diff --git a/GI/GLib.hs b/GI/GLib.hs --- a/GI/GLib.hs +++ b/GI/GLib.hs @@ -1,38 +1,34739 @@ - -{- | -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.GLib - ( module GI.GLib.Callbacks , - module GI.GLib.Constants , - module GI.GLib.Enums , - module GI.GLib.Flags , - module GI.GLib.Functions , - module GI.GLib.Structs , - module GI.GLib.Unions , - - - ) where - -import GI.GLib.Callbacks -import GI.GLib.Constants -import GI.GLib.Enums -import GI.GLib.Flags -import GI.GLib.Functions -import GI.GLib.Structs -import GI.GLib.Unions - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - +-- Generated code. + +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +{-# LANGUAGE ForeignFunctionInterface, ConstraintKinds, + TypeFamilies, MultiParamTypeClasses, KindSignatures, + FlexibleInstances, UndecidableInstances, DataKinds, + OverloadedStrings, NegativeLiterals, FlexibleContexts #-} + +module GI.GLib where + +import Prelude () +import Data.GI.Base.ShortPrelude +import Data.Char +import Data.Int +import Data.Word +import qualified Data.ByteString.Char8 as B +import Data.ByteString.Char8 (ByteString) +import qualified Data.Map as Map +import Foreign.C +import Foreign.Ptr +import Foreign.ForeignPtr +import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr) +import Foreign.Storable (peek, poke, sizeOf) +import Control.Applicative ((<$>)) +import Control.Exception (onException) +import Control.Monad.IO.Class +import qualified Data.Text as T + +import Data.GI.Base.Attributes hiding (get, set) +import Data.GI.Base.BasicTypes +import Data.GI.Base.BasicConversions +import Data.GI.Base.Closure +import Data.GI.Base.GError +import Data.GI.Base.GHashTable +import Data.GI.Base.GParamSpec +import Data.GI.Base.GVariant +import Data.GI.Base.GValue +import Data.GI.Base.ManagedPtr +import Data.GI.Base.Overloading +import Data.GI.Base.Properties hiding (new) +import Data.GI.Base.Signals (SignalConnectMode(..), connectSignalFunPtr, SignalHandlerId) +import Data.GI.Base.Utils + + +-- Flags AsciiType + +data AsciiType = + AsciiTypeAlnum + | AsciiTypeAlpha + | AsciiTypeCntrl + | AsciiTypeDigit + | AsciiTypeGraph + | AsciiTypeLower + | AsciiTypePrint + | AsciiTypePunct + | AsciiTypeSpace + | AsciiTypeUpper + | AsciiTypeXdigit + | AnotherAsciiType Int + deriving (Show, Eq) + +instance Enum AsciiType where + fromEnum AsciiTypeAlnum = 1 + fromEnum AsciiTypeAlpha = 2 + fromEnum AsciiTypeCntrl = 4 + fromEnum AsciiTypeDigit = 8 + fromEnum AsciiTypeGraph = 16 + fromEnum AsciiTypeLower = 32 + fromEnum AsciiTypePrint = 64 + fromEnum AsciiTypePunct = 128 + fromEnum AsciiTypeSpace = 256 + fromEnum AsciiTypeUpper = 512 + fromEnum AsciiTypeXdigit = 1024 + fromEnum (AnotherAsciiType k) = k + + toEnum 1 = AsciiTypeAlnum + toEnum 2 = AsciiTypeAlpha + toEnum 4 = AsciiTypeCntrl + toEnum 8 = AsciiTypeDigit + toEnum 16 = AsciiTypeGraph + toEnum 32 = AsciiTypeLower + toEnum 64 = AsciiTypePrint + toEnum 128 = AsciiTypePunct + toEnum 256 = AsciiTypeSpace + toEnum 512 = AsciiTypeUpper + toEnum 1024 = AsciiTypeXdigit + toEnum k = AnotherAsciiType k + +instance IsGFlag AsciiType + +-- struct AsyncQueue +newtype AsyncQueue = AsyncQueue (ForeignPtr AsyncQueue) +noAsyncQueue :: Maybe AsyncQueue +noAsyncQueue = Nothing + +-- method AsyncQueue::length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_async_queue_length" g_async_queue_length :: + Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" + IO Int32 + + +asyncQueueLength :: + (MonadIO m) => + AsyncQueue -> -- _obj + m Int32 +asyncQueueLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_async_queue_length _obj' + touchManagedPtr _obj + return result + +-- method AsyncQueue::length_unlocked +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_async_queue_length_unlocked" g_async_queue_length_unlocked :: + Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" + IO Int32 + + +asyncQueueLengthUnlocked :: + (MonadIO m) => + AsyncQueue -> -- _obj + m Int32 +asyncQueueLengthUnlocked _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_async_queue_length_unlocked _obj' + touchManagedPtr _obj + return result + +-- method AsyncQueue::lock +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_async_queue_lock" g_async_queue_lock :: + Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" + IO () + + +asyncQueueLock :: + (MonadIO m) => + AsyncQueue -> -- _obj + m () +asyncQueueLock _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_async_queue_lock _obj' + touchManagedPtr _obj + return () + +-- method AsyncQueue::push +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", 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 + +foreign import ccall "g_async_queue_push" g_async_queue_push :: + Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" + Ptr () -> -- data : TBasicType TVoid + IO () + + +asyncQueuePush :: + (MonadIO m) => + AsyncQueue -> -- _obj + Ptr () -> -- data + m () +asyncQueuePush _obj data_ = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_async_queue_push _obj' data_ + touchManagedPtr _obj + return () + +-- method AsyncQueue::push_front +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", 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_async_queue_push_front" g_async_queue_push_front :: + Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" + Ptr () -> -- item : TBasicType TVoid + IO () + + +asyncQueuePushFront :: + (MonadIO m) => + AsyncQueue -> -- _obj + Ptr () -> -- item + m () +asyncQueuePushFront _obj item = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_async_queue_push_front _obj' item + touchManagedPtr _obj + return () + +-- method AsyncQueue::push_front_unlocked +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", 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_async_queue_push_front_unlocked" g_async_queue_push_front_unlocked :: + Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" + Ptr () -> -- item : TBasicType TVoid + IO () + + +asyncQueuePushFrontUnlocked :: + (MonadIO m) => + AsyncQueue -> -- _obj + Ptr () -> -- item + m () +asyncQueuePushFrontUnlocked _obj item = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_async_queue_push_front_unlocked _obj' item + touchManagedPtr _obj + return () + +-- method AsyncQueue::push_unlocked +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", 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 + +foreign import ccall "g_async_queue_push_unlocked" g_async_queue_push_unlocked :: + Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" + Ptr () -> -- data : TBasicType TVoid + IO () + + +asyncQueuePushUnlocked :: + (MonadIO m) => + AsyncQueue -> -- _obj + Ptr () -> -- data + m () +asyncQueuePushUnlocked _obj data_ = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_async_queue_push_unlocked _obj' data_ + touchManagedPtr _obj + return () + +-- method AsyncQueue::ref_unlocked +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_async_queue_ref_unlocked" g_async_queue_ref_unlocked :: + Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" + IO () + +{-# DEPRECATED asyncQueueRefUnlocked ["(Since version 2.8)","Reference counting is done atomically.","so g_async_queue_ref() can be used regardless of the @queue's","lock."]#-} +asyncQueueRefUnlocked :: + (MonadIO m) => + AsyncQueue -> -- _obj + m () +asyncQueueRefUnlocked _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_async_queue_ref_unlocked _obj' + touchManagedPtr _obj + return () + +-- method AsyncQueue::remove +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_async_queue_remove" g_async_queue_remove :: + Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" + Ptr () -> -- item : TBasicType TVoid + IO CInt + + +asyncQueueRemove :: + (MonadIO m) => + AsyncQueue -> -- _obj + Ptr () -> -- item + m Bool +asyncQueueRemove _obj item = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_async_queue_remove _obj' item + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method AsyncQueue::remove_unlocked +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "item", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_async_queue_remove_unlocked" g_async_queue_remove_unlocked :: + Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" + Ptr () -> -- item : TBasicType TVoid + IO CInt + + +asyncQueueRemoveUnlocked :: + (MonadIO m) => + AsyncQueue -> -- _obj + Ptr () -> -- item + m Bool +asyncQueueRemoveUnlocked _obj item = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_async_queue_remove_unlocked _obj' item + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method AsyncQueue::unlock +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_async_queue_unlock" g_async_queue_unlock :: + Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" + IO () + + +asyncQueueUnlock :: + (MonadIO m) => + AsyncQueue -> -- _obj + m () +asyncQueueUnlock _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_async_queue_unlock _obj' + touchManagedPtr _obj + return () + +-- method AsyncQueue::unref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_async_queue_unref" g_async_queue_unref :: + Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" + IO () + + +asyncQueueUnref :: + (MonadIO m) => + AsyncQueue -> -- _obj + m () +asyncQueueUnref _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_async_queue_unref _obj' + touchManagedPtr _obj + return () + +-- method AsyncQueue::unref_and_unlock +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_async_queue_unref_and_unlock" g_async_queue_unref_and_unlock :: + Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" + IO () + +{-# DEPRECATED asyncQueueUnrefAndUnlock ["(Since version 2.8)","Reference counting is done atomically.","so g_async_queue_unref() can be used regardless of the @queue's","lock."]#-} +asyncQueueUnrefAndUnlock :: + (MonadIO m) => + AsyncQueue -> -- _obj + m () +asyncQueueUnrefAndUnlock _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_async_queue_unref_and_unlock _obj' + touchManagedPtr _obj + return () + +-- struct BookmarkFile +newtype BookmarkFile = BookmarkFile (ForeignPtr BookmarkFile) +noBookmarkFile :: Maybe BookmarkFile +noBookmarkFile = Nothing + +-- method BookmarkFile::add_application +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_bookmark_file_add_application" g_bookmark_file_add_application :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- uri : TBasicType TUTF8 + CString -> -- name : TBasicType TUTF8 + CString -> -- exec : TBasicType TUTF8 + IO () + + +bookmarkFileAddApplication :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- uri + Maybe (T.Text) -> -- name + Maybe (T.Text) -> -- exec + m () +bookmarkFileAddApplication _obj uri name exec = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + uri' <- textToCString uri + maybeName <- case name of + Nothing -> return nullPtr + Just jName -> do + jName' <- textToCString jName + return jName' + maybeExec <- case exec of + Nothing -> return nullPtr + Just jExec -> do + jExec' <- textToCString jExec + return jExec' + g_bookmark_file_add_application _obj' uri' maybeName maybeExec + touchManagedPtr _obj + freeMem uri' + freeMem maybeName + freeMem maybeExec + return () + +-- method BookmarkFile::add_group +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "group", 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_bookmark_file_add_group" g_bookmark_file_add_group :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- uri : TBasicType TUTF8 + CString -> -- group : TBasicType TUTF8 + IO () + + +bookmarkFileAddGroup :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- uri + T.Text -> -- group + m () +bookmarkFileAddGroup _obj uri group = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + uri' <- textToCString uri + group' <- textToCString group + g_bookmark_file_add_group _obj' uri' group' + touchManagedPtr _obj + freeMem uri' + freeMem group' + return () + +-- method BookmarkFile::free +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_bookmark_file_free" g_bookmark_file_free :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + IO () + + +bookmarkFileFree :: + (MonadIO m) => + BookmarkFile -> -- _obj + m () +bookmarkFileFree _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_bookmark_file_free _obj' + touchManagedPtr _obj + return () + +-- method BookmarkFile::get_added +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 : TBasicType TInt64 +-- throws : True +-- Skip return : False + +foreign import ccall "g_bookmark_file_get_added" g_bookmark_file_get_added :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- uri : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO Int64 + + +bookmarkFileGetAdded :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- uri + m Int64 +bookmarkFileGetAdded _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + uri' <- textToCString uri + onException (do + result <- propagateGError $ g_bookmark_file_get_added _obj' uri' + touchManagedPtr _obj + freeMem uri' + return result + ) (do + freeMem uri' + ) + +-- method BookmarkFile::get_app_info +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exec", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "count", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "stamp", argType = TBasicType TInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "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_bookmark_file_get_app_info" g_bookmark_file_get_app_info :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- uri : TBasicType TUTF8 + CString -> -- name : TBasicType TUTF8 + Ptr CString -> -- exec : TBasicType TUTF8 + Ptr Word32 -> -- count : TBasicType TUInt32 + Ptr Int64 -> -- stamp : TBasicType TInt64 + Ptr (Ptr GError) -> -- error + IO CInt + + +bookmarkFileGetAppInfo :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- uri + T.Text -> -- name + m (T.Text,Word32,Int64) +bookmarkFileGetAppInfo _obj uri name = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + uri' <- textToCString uri + name' <- textToCString name + exec <- allocMem :: IO (Ptr CString) + count <- allocMem :: IO (Ptr Word32) + stamp <- allocMem :: IO (Ptr Int64) + onException (do + _ <- propagateGError $ g_bookmark_file_get_app_info _obj' uri' name' exec count stamp + exec' <- peek exec + exec'' <- cstringToText exec' + freeMem exec' + count' <- peek count + stamp' <- peek stamp + touchManagedPtr _obj + freeMem uri' + freeMem name' + freeMem exec + freeMem count + freeMem stamp + return (exec'', count', stamp') + ) (do + freeMem uri' + freeMem name' + freeMem exec + freeMem count + freeMem stamp + ) + +-- method BookmarkFile::get_applications +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "length", argType = TBasicType TUInt64, 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 "GLib" "BookmarkFile", 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 : TCArray False (-1) 2 (TBasicType TUTF8) +-- throws : True +-- Skip return : False + +foreign import ccall "g_bookmark_file_get_applications" g_bookmark_file_get_applications :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- uri : TBasicType TUTF8 + Ptr Word64 -> -- length : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO (Ptr CString) + + +bookmarkFileGetApplications :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- uri + m [T.Text] +bookmarkFileGetApplications _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + uri' <- textToCString uri + length_ <- allocMem :: IO (Ptr Word64) + onException (do + result <- propagateGError $ g_bookmark_file_get_applications _obj' uri' length_ + length_' <- peek length_ + checkUnexpectedReturnNULL "g_bookmark_file_get_applications" result + result' <- (unpackUTF8CArrayWithLength length_') result + (mapCArrayWithLength length_') freeMem result + freeMem result + touchManagedPtr _obj + freeMem uri' + freeMem length_ + return result' + ) (do + freeMem uri' + freeMem length_ + ) + +-- method BookmarkFile::get_description +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "g_bookmark_file_get_description" g_bookmark_file_get_description :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- uri : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CString + + +bookmarkFileGetDescription :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- uri + m T.Text +bookmarkFileGetDescription _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + uri' <- textToCString uri + onException (do + result <- propagateGError $ g_bookmark_file_get_description _obj' uri' + checkUnexpectedReturnNULL "g_bookmark_file_get_description" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem uri' + return result' + ) (do + freeMem uri' + ) + +-- method BookmarkFile::get_groups +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "length", argType = TBasicType TUInt64, 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 "GLib" "BookmarkFile", 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 : TCArray False (-1) 2 (TBasicType TUTF8) +-- throws : True +-- Skip return : False + +foreign import ccall "g_bookmark_file_get_groups" g_bookmark_file_get_groups :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- uri : TBasicType TUTF8 + Ptr Word64 -> -- length : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO (Ptr CString) + + +bookmarkFileGetGroups :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- uri + m [T.Text] +bookmarkFileGetGroups _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + uri' <- textToCString uri + length_ <- allocMem :: IO (Ptr Word64) + onException (do + result <- propagateGError $ g_bookmark_file_get_groups _obj' uri' length_ + length_' <- peek length_ + checkUnexpectedReturnNULL "g_bookmark_file_get_groups" result + result' <- (unpackUTF8CArrayWithLength length_') result + (mapCArrayWithLength length_') freeMem result + freeMem result + touchManagedPtr _obj + freeMem uri' + freeMem length_ + return result' + ) (do + freeMem uri' + freeMem length_ + ) + +-- method BookmarkFile::get_icon +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "href", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_bookmark_file_get_icon" g_bookmark_file_get_icon :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- uri : TBasicType TUTF8 + Ptr CString -> -- href : TBasicType TUTF8 + Ptr CString -> -- mime_type : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + + +bookmarkFileGetIcon :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- uri + m (T.Text,T.Text) +bookmarkFileGetIcon _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + uri' <- textToCString uri + href <- allocMem :: IO (Ptr CString) + mime_type <- allocMem :: IO (Ptr CString) + onException (do + _ <- propagateGError $ g_bookmark_file_get_icon _obj' uri' href mime_type + href' <- peek href + href'' <- cstringToText href' + freeMem href' + mime_type' <- peek mime_type + mime_type'' <- cstringToText mime_type' + freeMem mime_type' + touchManagedPtr _obj + freeMem uri' + freeMem href + freeMem mime_type + return (href'', mime_type'') + ) (do + freeMem uri' + freeMem href + freeMem mime_type + ) + +-- method BookmarkFile::get_is_private +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_bookmark_file_get_is_private" g_bookmark_file_get_is_private :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- uri : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + + +bookmarkFileGetIsPrivate :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- uri + m () +bookmarkFileGetIsPrivate _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + uri' <- textToCString uri + onException (do + _ <- propagateGError $ g_bookmark_file_get_is_private _obj' uri' + touchManagedPtr _obj + freeMem uri' + return () + ) (do + freeMem uri' + ) + +-- method BookmarkFile::get_mime_type +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "g_bookmark_file_get_mime_type" g_bookmark_file_get_mime_type :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- uri : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CString + + +bookmarkFileGetMimeType :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- uri + m T.Text +bookmarkFileGetMimeType _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + uri' <- textToCString uri + onException (do + result <- propagateGError $ g_bookmark_file_get_mime_type _obj' uri' + checkUnexpectedReturnNULL "g_bookmark_file_get_mime_type" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem uri' + return result' + ) (do + freeMem uri' + ) + +-- method BookmarkFile::get_modified +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 : TBasicType TInt64 +-- throws : True +-- Skip return : False + +foreign import ccall "g_bookmark_file_get_modified" g_bookmark_file_get_modified :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- uri : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO Int64 + + +bookmarkFileGetModified :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- uri + m Int64 +bookmarkFileGetModified _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + uri' <- textToCString uri + onException (do + result <- propagateGError $ g_bookmark_file_get_modified _obj' uri' + touchManagedPtr _obj + freeMem uri' + return result + ) (do + freeMem uri' + ) + +-- method BookmarkFile::get_size +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_bookmark_file_get_size" g_bookmark_file_get_size :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + IO Int32 + + +bookmarkFileGetSize :: + (MonadIO m) => + BookmarkFile -> -- _obj + m Int32 +bookmarkFileGetSize _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_bookmark_file_get_size _obj' + touchManagedPtr _obj + return result + +-- method BookmarkFile::get_title +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "g_bookmark_file_get_title" g_bookmark_file_get_title :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- uri : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CString + + +bookmarkFileGetTitle :: + (MonadIO m) => + BookmarkFile -> -- _obj + Maybe (T.Text) -> -- uri + m T.Text +bookmarkFileGetTitle _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + maybeUri <- case uri of + Nothing -> return nullPtr + Just jUri -> do + jUri' <- textToCString jUri + return jUri' + onException (do + result <- propagateGError $ g_bookmark_file_get_title _obj' maybeUri + checkUnexpectedReturnNULL "g_bookmark_file_get_title" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem maybeUri + return result' + ) (do + freeMem maybeUri + ) + +-- method BookmarkFile::get_uris +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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}] +-- 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 "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TCArray False (-1) 1 (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "g_bookmark_file_get_uris" g_bookmark_file_get_uris :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + Ptr Word64 -> -- length : TBasicType TUInt64 + IO (Ptr CString) + + +bookmarkFileGetUris :: + (MonadIO m) => + BookmarkFile -> -- _obj + m [T.Text] +bookmarkFileGetUris _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + length_ <- allocMem :: IO (Ptr Word64) + result <- g_bookmark_file_get_uris _obj' length_ + length_' <- peek length_ + checkUnexpectedReturnNULL "g_bookmark_file_get_uris" result + result' <- (unpackUTF8CArrayWithLength length_') result + (mapCArrayWithLength length_') freeMem result + freeMem result + touchManagedPtr _obj + freeMem length_ + return result' + +-- method BookmarkFile::get_visited +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 : TBasicType TInt64 +-- throws : True +-- Skip return : False + +foreign import ccall "g_bookmark_file_get_visited" g_bookmark_file_get_visited :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- uri : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO Int64 + + +bookmarkFileGetVisited :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- uri + m Int64 +bookmarkFileGetVisited _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + uri' <- textToCString uri + onException (do + result <- propagateGError $ g_bookmark_file_get_visited _obj' uri' + touchManagedPtr _obj + freeMem uri' + return result + ) (do + freeMem uri' + ) + +-- method BookmarkFile::has_application +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "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_bookmark_file_has_application" g_bookmark_file_has_application :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- uri : TBasicType TUTF8 + CString -> -- name : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + + +bookmarkFileHasApplication :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- uri + T.Text -> -- name + m () +bookmarkFileHasApplication _obj uri name = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + uri' <- textToCString uri + name' <- textToCString name + onException (do + _ <- propagateGError $ g_bookmark_file_has_application _obj' uri' name' + touchManagedPtr _obj + freeMem uri' + freeMem name' + return () + ) (do + freeMem uri' + freeMem name' + ) + +-- method BookmarkFile::has_group +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "group", 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_bookmark_file_has_group" g_bookmark_file_has_group :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- uri : TBasicType TUTF8 + CString -> -- group : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + + +bookmarkFileHasGroup :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- uri + T.Text -> -- group + m () +bookmarkFileHasGroup _obj uri group = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + uri' <- textToCString uri + group' <- textToCString group + onException (do + _ <- propagateGError $ g_bookmark_file_has_group _obj' uri' group' + touchManagedPtr _obj + freeMem uri' + freeMem group' + return () + ) (do + freeMem uri' + freeMem group' + ) + +-- method BookmarkFile::has_item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_bookmark_file_has_item" g_bookmark_file_has_item :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- uri : TBasicType TUTF8 + IO CInt + + +bookmarkFileHasItem :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- uri + m Bool +bookmarkFileHasItem _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + uri' <- textToCString uri + result <- g_bookmark_file_has_item _obj' uri' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem uri' + return result' + +-- method BookmarkFile::load_from_data +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, 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}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_bookmark_file_load_from_data" g_bookmark_file_load_from_data :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- data : TBasicType TUTF8 + Word64 -> -- length : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO CInt + + +bookmarkFileLoadFromData :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- data + Word64 -> -- length + m () +bookmarkFileLoadFromData _obj data_ length_ = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + data_' <- textToCString data_ + onException (do + _ <- propagateGError $ g_bookmark_file_load_from_data _obj' data_' length_ + touchManagedPtr _obj + freeMem data_' + return () + ) (do + freeMem data_' + ) + +-- method BookmarkFile::load_from_data_dirs +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "full_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "full_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_bookmark_file_load_from_data_dirs" g_bookmark_file_load_from_data_dirs :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- file : TBasicType TUTF8 + CString -> -- full_path : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + + +bookmarkFileLoadFromDataDirs :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- file + Maybe (T.Text) -> -- full_path + m () +bookmarkFileLoadFromDataDirs _obj file full_path = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + file' <- textToCString file + maybeFull_path <- case full_path of + Nothing -> return nullPtr + Just jFull_path -> do + jFull_path' <- textToCString jFull_path + return jFull_path' + onException (do + _ <- propagateGError $ g_bookmark_file_load_from_data_dirs _obj' file' maybeFull_path + touchManagedPtr _obj + freeMem file' + freeMem maybeFull_path + return () + ) (do + freeMem file' + freeMem maybeFull_path + ) + +-- method BookmarkFile::load_from_file +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", 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_bookmark_file_load_from_file" g_bookmark_file_load_from_file :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- filename : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + + +bookmarkFileLoadFromFile :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- filename + m () +bookmarkFileLoadFromFile _obj filename = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + filename' <- textToCString filename + onException (do + _ <- propagateGError $ g_bookmark_file_load_from_file _obj' filename' + touchManagedPtr _obj + freeMem filename' + return () + ) (do + freeMem filename' + ) + +-- method BookmarkFile::move_item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_bookmark_file_move_item" g_bookmark_file_move_item :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- old_uri : TBasicType TUTF8 + CString -> -- new_uri : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + + +bookmarkFileMoveItem :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- old_uri + Maybe (T.Text) -> -- new_uri + m () +bookmarkFileMoveItem _obj old_uri new_uri = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + old_uri' <- textToCString old_uri + maybeNew_uri <- case new_uri of + Nothing -> return nullPtr + Just jNew_uri -> do + jNew_uri' <- textToCString jNew_uri + return jNew_uri' + onException (do + _ <- propagateGError $ g_bookmark_file_move_item _obj' old_uri' maybeNew_uri + touchManagedPtr _obj + freeMem old_uri' + freeMem maybeNew_uri + return () + ) (do + freeMem old_uri' + freeMem maybeNew_uri + ) + +-- method BookmarkFile::remove_application +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "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_bookmark_file_remove_application" g_bookmark_file_remove_application :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- uri : TBasicType TUTF8 + CString -> -- name : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + + +bookmarkFileRemoveApplication :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- uri + T.Text -> -- name + m () +bookmarkFileRemoveApplication _obj uri name = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + uri' <- textToCString uri + name' <- textToCString name + onException (do + _ <- propagateGError $ g_bookmark_file_remove_application _obj' uri' name' + touchManagedPtr _obj + freeMem uri' + freeMem name' + return () + ) (do + freeMem uri' + freeMem name' + ) + +-- method BookmarkFile::remove_group +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "group", 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_bookmark_file_remove_group" g_bookmark_file_remove_group :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- uri : TBasicType TUTF8 + CString -> -- group : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + + +bookmarkFileRemoveGroup :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- uri + T.Text -> -- group + m () +bookmarkFileRemoveGroup _obj uri group = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + uri' <- textToCString uri + group' <- textToCString group + onException (do + _ <- propagateGError $ g_bookmark_file_remove_group _obj' uri' group' + touchManagedPtr _obj + freeMem uri' + freeMem group' + return () + ) (do + freeMem uri' + freeMem group' + ) + +-- method BookmarkFile::remove_item +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_bookmark_file_remove_item" g_bookmark_file_remove_item :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- uri : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + + +bookmarkFileRemoveItem :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- uri + m () +bookmarkFileRemoveItem _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + uri' <- textToCString uri + onException (do + _ <- propagateGError $ g_bookmark_file_remove_item _obj' uri' + touchManagedPtr _obj + freeMem uri' + return () + ) (do + freeMem uri' + ) + +-- method BookmarkFile::set_added +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "added", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "added", 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_bookmark_file_set_added" g_bookmark_file_set_added :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- uri : TBasicType TUTF8 + Int64 -> -- added : TBasicType TInt64 + IO () + + +bookmarkFileSetAdded :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- uri + Int64 -> -- added + m () +bookmarkFileSetAdded _obj uri added = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + uri' <- textToCString uri + g_bookmark_file_set_added _obj' uri' added + touchManagedPtr _obj + freeMem uri' + return () + +-- method BookmarkFile::set_app_info +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stamp", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stamp", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_bookmark_file_set_app_info" g_bookmark_file_set_app_info :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- uri : TBasicType TUTF8 + CString -> -- name : TBasicType TUTF8 + CString -> -- exec : TBasicType TUTF8 + Int32 -> -- count : TBasicType TInt32 + Int64 -> -- stamp : TBasicType TInt64 + Ptr (Ptr GError) -> -- error + IO CInt + + +bookmarkFileSetAppInfo :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- uri + T.Text -> -- name + T.Text -> -- exec + Int32 -> -- count + Int64 -> -- stamp + m () +bookmarkFileSetAppInfo _obj uri name exec count stamp = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + uri' <- textToCString uri + name' <- textToCString name + exec' <- textToCString exec + onException (do + _ <- propagateGError $ g_bookmark_file_set_app_info _obj' uri' name' exec' count stamp + touchManagedPtr _obj + freeMem uri' + freeMem name' + freeMem exec' + return () + ) (do + freeMem uri' + freeMem name' + freeMem exec' + ) + +-- method BookmarkFile::set_description +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 + +foreign import ccall "g_bookmark_file_set_description" g_bookmark_file_set_description :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- uri : TBasicType TUTF8 + CString -> -- description : TBasicType TUTF8 + IO () + + +bookmarkFileSetDescription :: + (MonadIO m) => + BookmarkFile -> -- _obj + Maybe (T.Text) -> -- uri + T.Text -> -- description + m () +bookmarkFileSetDescription _obj uri description = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + maybeUri <- case uri of + Nothing -> return nullPtr + Just jUri -> do + jUri' <- textToCString jUri + return jUri' + description' <- textToCString description + g_bookmark_file_set_description _obj' maybeUri description' + touchManagedPtr _obj + freeMem maybeUri + freeMem description' + return () + +-- method BookmarkFile::set_groups +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "groups", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "groups", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_bookmark_file_set_groups" g_bookmark_file_set_groups :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- uri : TBasicType TUTF8 + CString -> -- groups : TBasicType TUTF8 + Word64 -> -- length : TBasicType TUInt64 + IO () + + +bookmarkFileSetGroups :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- uri + Maybe (T.Text) -> -- groups + Word64 -> -- length + m () +bookmarkFileSetGroups _obj uri groups length_ = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + uri' <- textToCString uri + maybeGroups <- case groups of + Nothing -> return nullPtr + Just jGroups -> do + jGroups' <- textToCString jGroups + return jGroups' + g_bookmark_file_set_groups _obj' uri' maybeGroups length_ + touchManagedPtr _obj + freeMem uri' + freeMem maybeGroups + return () + +-- method BookmarkFile::set_icon +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "href", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "href", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_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_bookmark_file_set_icon" g_bookmark_file_set_icon :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- uri : TBasicType TUTF8 + CString -> -- href : TBasicType TUTF8 + CString -> -- mime_type : TBasicType TUTF8 + IO () + + +bookmarkFileSetIcon :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- uri + Maybe (T.Text) -> -- href + T.Text -> -- mime_type + m () +bookmarkFileSetIcon _obj uri href mime_type = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + uri' <- textToCString uri + maybeHref <- case href of + Nothing -> return nullPtr + Just jHref -> do + jHref' <- textToCString jHref + return jHref' + mime_type' <- textToCString mime_type + g_bookmark_file_set_icon _obj' uri' maybeHref mime_type' + touchManagedPtr _obj + freeMem uri' + freeMem maybeHref + freeMem mime_type' + return () + +-- method BookmarkFile::set_is_private +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "is_private", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "is_private", 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_bookmark_file_set_is_private" g_bookmark_file_set_is_private :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- uri : TBasicType TUTF8 + CInt -> -- is_private : TBasicType TBoolean + IO () + + +bookmarkFileSetIsPrivate :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- uri + Bool -> -- is_private + m () +bookmarkFileSetIsPrivate _obj uri is_private = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + uri' <- textToCString uri + let is_private' = (fromIntegral . fromEnum) is_private + g_bookmark_file_set_is_private _obj' uri' is_private' + touchManagedPtr _obj + freeMem uri' + return () + +-- method BookmarkFile::set_mime_type +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "mime_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_bookmark_file_set_mime_type" g_bookmark_file_set_mime_type :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- uri : TBasicType TUTF8 + CString -> -- mime_type : TBasicType TUTF8 + IO () + + +bookmarkFileSetMimeType :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- uri + T.Text -> -- mime_type + m () +bookmarkFileSetMimeType _obj uri mime_type = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + uri' <- textToCString uri + mime_type' <- textToCString mime_type + g_bookmark_file_set_mime_type _obj' uri' mime_type' + touchManagedPtr _obj + freeMem uri' + freeMem mime_type' + return () + +-- method BookmarkFile::set_modified +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "modified", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "modified", 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_bookmark_file_set_modified" g_bookmark_file_set_modified :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- uri : TBasicType TUTF8 + Int64 -> -- modified : TBasicType TInt64 + IO () + + +bookmarkFileSetModified :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- uri + Int64 -> -- modified + m () +bookmarkFileSetModified _obj uri modified = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + uri' <- textToCString uri + g_bookmark_file_set_modified _obj' uri' modified + touchManagedPtr _obj + freeMem uri' + return () + +-- method BookmarkFile::set_title +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 + +foreign import ccall "g_bookmark_file_set_title" g_bookmark_file_set_title :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- uri : TBasicType TUTF8 + CString -> -- title : TBasicType TUTF8 + IO () + + +bookmarkFileSetTitle :: + (MonadIO m) => + BookmarkFile -> -- _obj + Maybe (T.Text) -> -- uri + T.Text -> -- title + m () +bookmarkFileSetTitle _obj uri title = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + maybeUri <- case uri of + Nothing -> return nullPtr + Just jUri -> do + jUri' <- textToCString jUri + return jUri' + title' <- textToCString title + g_bookmark_file_set_title _obj' maybeUri title' + touchManagedPtr _obj + freeMem maybeUri + freeMem title' + return () + +-- method BookmarkFile::set_visited +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "visited", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "visited", 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_bookmark_file_set_visited" g_bookmark_file_set_visited :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- uri : TBasicType TUTF8 + Int64 -> -- visited : TBasicType TInt64 + IO () + + +bookmarkFileSetVisited :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- uri + Int64 -> -- visited + m () +bookmarkFileSetVisited _obj uri visited = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + uri' <- textToCString uri + g_bookmark_file_set_visited _obj' uri' visited + touchManagedPtr _obj + freeMem uri' + return () + +-- method BookmarkFile::to_data +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "g_bookmark_file_to_data" g_bookmark_file_to_data :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + Ptr Word64 -> -- length : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO CString + + +bookmarkFileToData :: + (MonadIO m) => + BookmarkFile -> -- _obj + m (T.Text,Word64) +bookmarkFileToData _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + length_ <- allocMem :: IO (Ptr Word64) + onException (do + result <- propagateGError $ g_bookmark_file_to_data _obj' length_ + checkUnexpectedReturnNULL "g_bookmark_file_to_data" result + result' <- cstringToText result + freeMem result + length_' <- peek length_ + touchManagedPtr _obj + freeMem length_ + return (result', length_') + ) (do + freeMem length_ + ) + +-- method BookmarkFile::to_file +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", 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_bookmark_file_to_file" g_bookmark_file_to_file :: + Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" + CString -> -- filename : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + + +bookmarkFileToFile :: + (MonadIO m) => + BookmarkFile -> -- _obj + T.Text -> -- filename + m () +bookmarkFileToFile _obj filename = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + filename' <- textToCString filename + onException (do + _ <- propagateGError $ g_bookmark_file_to_file _obj' filename' + touchManagedPtr _obj + freeMem filename' + return () + ) (do + freeMem filename' + ) + +-- Enum BookmarkFileError + +data BookmarkFileError = + BookmarkFileErrorInvalidUri + | BookmarkFileErrorInvalidValue + | BookmarkFileErrorAppNotRegistered + | BookmarkFileErrorUriNotFound + | BookmarkFileErrorRead + | BookmarkFileErrorUnknownEncoding + | BookmarkFileErrorWrite + | BookmarkFileErrorFileNotFound + | AnotherBookmarkFileError Int + deriving (Show, Eq) + +instance Enum BookmarkFileError where + fromEnum BookmarkFileErrorInvalidUri = 0 + fromEnum BookmarkFileErrorInvalidValue = 1 + fromEnum BookmarkFileErrorAppNotRegistered = 2 + fromEnum BookmarkFileErrorUriNotFound = 3 + fromEnum BookmarkFileErrorRead = 4 + fromEnum BookmarkFileErrorUnknownEncoding = 5 + fromEnum BookmarkFileErrorWrite = 6 + fromEnum BookmarkFileErrorFileNotFound = 7 + fromEnum (AnotherBookmarkFileError k) = k + + toEnum 0 = BookmarkFileErrorInvalidUri + toEnum 1 = BookmarkFileErrorInvalidValue + toEnum 2 = BookmarkFileErrorAppNotRegistered + toEnum 3 = BookmarkFileErrorUriNotFound + toEnum 4 = BookmarkFileErrorRead + toEnum 5 = BookmarkFileErrorUnknownEncoding + toEnum 6 = BookmarkFileErrorWrite + toEnum 7 = BookmarkFileErrorFileNotFound + toEnum k = AnotherBookmarkFileError k + +instance GErrorClass BookmarkFileError where + gerrorClassDomain _ = "g-bookmark-file-error-quark" + +catchBookmarkFileError :: + IO a -> + (BookmarkFileError -> GErrorMessage -> IO a) -> + IO a +catchBookmarkFileError = catchGErrorJustDomain + +handleBookmarkFileError :: + (BookmarkFileError -> GErrorMessage -> IO a) -> + IO a -> + IO a +handleBookmarkFileError = handleGErrorJustDomain + +-- struct ByteArray +newtype ByteArray = ByteArray (ForeignPtr ByteArray) +noByteArray :: Maybe ByteArray +noByteArray = Nothing + +foreign import ccall "g_byte_array_get_type" c_g_byte_array_get_type :: + IO GType + +instance BoxedObject ByteArray where + boxedType _ = c_g_byte_array_get_type + +byteArrayReadData :: ByteArray -> IO Word8 +byteArrayReadData s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Word8 + return val + +byteArrayReadLen :: ByteArray -> IO Word32 +byteArrayReadLen s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO Word32 + return val + +-- struct Bytes +newtype Bytes = Bytes (ForeignPtr Bytes) +noBytes :: Maybe Bytes +noBytes = Nothing + +foreign import ccall "g_bytes_get_type" c_g_bytes_get_type :: + IO GType + +instance BoxedObject Bytes where + boxedType _ = c_g_bytes_get_type + +-- method Bytes::new +-- method type : Constructor +-- Args : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, 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}] +-- Lengths : [Arg {argName = "size", argType = TBasicType TUInt64, 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 = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "Bytes" +-- throws : False +-- Skip return : False + +foreign import ccall "g_bytes_new" g_bytes_new :: + Ptr Word8 -> -- data : TCArray False (-1) 1 (TBasicType TUInt8) + Word64 -> -- size : TBasicType TUInt64 + IO (Ptr Bytes) + + +bytesNew :: + (MonadIO m) => + Maybe (ByteString) -> -- data + m Bytes +bytesNew data_ = liftIO $ do + let size = case data_ of + Nothing -> 0 + Just jData_ -> fromIntegral $ B.length jData_ + maybeData_ <- case data_ of + Nothing -> return nullPtr + Just jData_ -> do + jData_' <- packByteString jData_ + return jData_' + result <- g_bytes_new maybeData_ size + checkUnexpectedReturnNULL "g_bytes_new" result + result' <- (wrapBoxed Bytes) result + freeMem maybeData_ + return result' + +-- method Bytes::new_take +-- method type : Constructor +-- Args : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "size", argType = TBasicType TUInt64, 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 = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- returnType : TInterface "GLib" "Bytes" +-- throws : False +-- Skip return : False + +foreign import ccall "g_bytes_new_take" g_bytes_new_take :: + Ptr Word8 -> -- data : TCArray False (-1) 1 (TBasicType TUInt8) + Word64 -> -- size : TBasicType TUInt64 + IO (Ptr Bytes) + + +bytesNewTake :: + (MonadIO m) => + Maybe (ByteString) -> -- data + m Bytes +bytesNewTake data_ = liftIO $ do + let size = case data_ of + Nothing -> 0 + Just jData_ -> fromIntegral $ B.length jData_ + maybeData_ <- case data_ of + Nothing -> return nullPtr + Just jData_ -> do + jData_' <- packByteString jData_ + return jData_' + result <- g_bytes_new_take maybeData_ size + checkUnexpectedReturnNULL "g_bytes_new_take" result + result' <- (wrapBoxed Bytes) result + return result' + +-- method Bytes::compare +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes2", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes2", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_bytes_compare" g_bytes_compare :: + Ptr Bytes -> -- _obj : TInterface "GLib" "Bytes" + Ptr Bytes -> -- bytes2 : TInterface "GLib" "Bytes" + IO Int32 + + +bytesCompare :: + (MonadIO m) => + Bytes -> -- _obj + Bytes -> -- bytes2 + m Int32 +bytesCompare _obj bytes2 = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let bytes2' = unsafeManagedPtrGetPtr bytes2 + result <- g_bytes_compare _obj' bytes2' + touchManagedPtr _obj + touchManagedPtr bytes2 + return result + +-- method Bytes::equal +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes2", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes2", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_bytes_equal" g_bytes_equal :: + Ptr Bytes -> -- _obj : TInterface "GLib" "Bytes" + Ptr Bytes -> -- bytes2 : TInterface "GLib" "Bytes" + IO CInt + + +bytesEqual :: + (MonadIO m) => + Bytes -> -- _obj + Bytes -> -- bytes2 + m Bool +bytesEqual _obj bytes2 = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let bytes2' = unsafeManagedPtrGetPtr bytes2 + result <- g_bytes_equal _obj' bytes2' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr bytes2 + return result' + +-- method Bytes::get_data +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", 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}] +-- Lengths : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TCArray False (-1) 1 (TBasicType TUInt8) +-- throws : False +-- Skip return : False + +foreign import ccall "g_bytes_get_data" g_bytes_get_data :: + Ptr Bytes -> -- _obj : TInterface "GLib" "Bytes" + Ptr Word64 -> -- size : TBasicType TUInt64 + IO (Ptr Word8) + + +bytesGetData :: + (MonadIO m) => + Bytes -> -- _obj + m ByteString +bytesGetData _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + size <- allocMem :: IO (Ptr Word64) + result <- g_bytes_get_data _obj' size + size' <- peek size + checkUnexpectedReturnNULL "g_bytes_get_data" result + result' <- (unpackByteStringWithLength size') result + touchManagedPtr _obj + freeMem size + return result' + +-- method Bytes::get_size +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "g_bytes_get_size" g_bytes_get_size :: + Ptr Bytes -> -- _obj : TInterface "GLib" "Bytes" + IO Word64 + + +bytesGetSize :: + (MonadIO m) => + Bytes -> -- _obj + m Word64 +bytesGetSize _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_bytes_get_size _obj' + touchManagedPtr _obj + return result + +-- method Bytes::hash +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_bytes_hash" g_bytes_hash :: + Ptr Bytes -> -- _obj : TInterface "GLib" "Bytes" + IO Word32 + + +bytesHash :: + (MonadIO m) => + Bytes -> -- _obj + m Word32 +bytesHash _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_bytes_hash _obj' + touchManagedPtr _obj + return result + +-- method Bytes::new_from_bytes +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", 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 = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", 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 = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "Bytes" +-- throws : False +-- Skip return : False + +foreign import ccall "g_bytes_new_from_bytes" g_bytes_new_from_bytes :: + Ptr Bytes -> -- _obj : TInterface "GLib" "Bytes" + Word64 -> -- offset : TBasicType TUInt64 + Word64 -> -- length : TBasicType TUInt64 + IO (Ptr Bytes) + + +bytesNewFromBytes :: + (MonadIO m) => + Bytes -> -- _obj + Word64 -> -- offset + Word64 -> -- length + m Bytes +bytesNewFromBytes _obj offset length_ = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_bytes_new_from_bytes _obj' offset length_ + checkUnexpectedReturnNULL "g_bytes_new_from_bytes" result + result' <- (wrapBoxed Bytes) result + touchManagedPtr _obj + return result' + +-- method Bytes::ref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "Bytes" +-- throws : False +-- Skip return : False + +foreign import ccall "g_bytes_ref" g_bytes_ref :: + Ptr Bytes -> -- _obj : TInterface "GLib" "Bytes" + IO (Ptr Bytes) + + +bytesRef :: + (MonadIO m) => + Bytes -> -- _obj + m Bytes +bytesRef _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_bytes_ref _obj' + checkUnexpectedReturnNULL "g_bytes_ref" result + result' <- (wrapBoxed Bytes) result + touchManagedPtr _obj + return result' + +-- method Bytes::unref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_bytes_unref" g_bytes_unref :: + Ptr Bytes -> -- _obj : TInterface "GLib" "Bytes" + IO () + + +bytesUnref :: + (MonadIO m) => + Bytes -> -- _obj + m () +bytesUnref _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_bytes_unref _obj' + touchManagedPtr _obj + return () + +-- method Bytes::unref_to_array +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TByteArray +-- throws : False +-- Skip return : False + +foreign import ccall "g_bytes_unref_to_array" g_bytes_unref_to_array :: + Ptr Bytes -> -- _obj : TInterface "GLib" "Bytes" + IO (Ptr GByteArray) + + +bytesUnrefToArray :: + (MonadIO m) => + Bytes -> -- _obj + m ByteString +bytesUnrefToArray _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_bytes_unref_to_array _obj' + checkUnexpectedReturnNULL "g_bytes_unref_to_array" result + result' <- unpackGByteArray result + unrefGByteArray result + touchManagedPtr _obj + return result' + +-- method Bytes::unref_to_data +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", 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 + +foreign import ccall "g_bytes_unref_to_data" g_bytes_unref_to_data :: + Ptr Bytes -> -- _obj : TInterface "GLib" "Bytes" + Word64 -> -- size : TBasicType TUInt64 + IO () + + +bytesUnrefToData :: + (MonadIO m) => + Bytes -> -- _obj + Word64 -> -- size + m () +bytesUnrefToData _obj size = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_bytes_unref_to_data _obj' size + touchManagedPtr _obj + return () + +-- struct Checksum +newtype Checksum = Checksum (ForeignPtr Checksum) +noChecksum :: Maybe Checksum +noChecksum = Nothing + +foreign import ccall "g_checksum_get_type" c_g_checksum_get_type :: + IO GType + +instance BoxedObject Checksum where + boxedType _ = c_g_checksum_get_type + +-- method Checksum::new +-- method type : Constructor +-- Args : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "Checksum" +-- throws : False +-- Skip return : False + +foreign import ccall "g_checksum_new" g_checksum_new :: + CUInt -> -- checksum_type : TInterface "GLib" "ChecksumType" + IO (Ptr Checksum) + + +checksumNew :: + (MonadIO m) => + ChecksumType -> -- checksum_type + m Checksum +checksumNew checksum_type = liftIO $ do + let checksum_type' = (fromIntegral . fromEnum) checksum_type + result <- g_checksum_new checksum_type' + checkUnexpectedReturnNULL "g_checksum_new" result + result' <- (wrapBoxed Checksum) result + return result' + +-- method Checksum::copy +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "Checksum" +-- throws : False +-- Skip return : False + +foreign import ccall "g_checksum_copy" g_checksum_copy :: + Ptr Checksum -> -- _obj : TInterface "GLib" "Checksum" + IO (Ptr Checksum) + + +checksumCopy :: + (MonadIO m) => + Checksum -> -- _obj + m Checksum +checksumCopy _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_checksum_copy _obj' + checkUnexpectedReturnNULL "g_checksum_copy" result + result' <- (wrapBoxed Checksum) result + touchManagedPtr _obj + return result' + +-- method Checksum::free +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_checksum_free" g_checksum_free :: + Ptr Checksum -> -- _obj : TInterface "GLib" "Checksum" + IO () + + +checksumFree :: + (MonadIO m) => + Checksum -> -- _obj + m () +checksumFree _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_checksum_free _obj' + touchManagedPtr _obj + return () + +-- method Checksum::get_string +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_checksum_get_string" g_checksum_get_string :: + Ptr Checksum -> -- _obj : TInterface "GLib" "Checksum" + IO CString + + +checksumGetString :: + (MonadIO m) => + Checksum -> -- _obj + m T.Text +checksumGetString _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_checksum_get_string _obj' + checkUnexpectedReturnNULL "g_checksum_get_string" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Checksum::reset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_checksum_reset" g_checksum_reset :: + Ptr Checksum -> -- _obj : TInterface "GLib" "Checksum" + IO () + + +checksumReset :: + (MonadIO m) => + Checksum -> -- _obj + m () +checksumReset _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_checksum_reset _obj' + touchManagedPtr _obj + return () + +-- method Checksum::update +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", 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},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", 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}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_checksum_update" g_checksum_update :: + Ptr Checksum -> -- _obj : TInterface "GLib" "Checksum" + Ptr Word8 -> -- data : TCArray False (-1) 2 (TBasicType TUInt8) + Int64 -> -- length : TBasicType TInt64 + IO () + + +checksumUpdate :: + (MonadIO m) => + Checksum -> -- _obj + ByteString -> -- data + m () +checksumUpdate _obj data_ = liftIO $ do + let length_ = fromIntegral $ B.length data_ + let _obj' = unsafeManagedPtrGetPtr _obj + data_' <- packByteString data_ + g_checksum_update _obj' data_' length_ + touchManagedPtr _obj + freeMem data_' + return () + +-- Enum ChecksumType + +data ChecksumType = + ChecksumTypeMd5 + | ChecksumTypeSha1 + | ChecksumTypeSha256 + | ChecksumTypeSha512 + | AnotherChecksumType Int + deriving (Show, Eq) + +instance Enum ChecksumType where + fromEnum ChecksumTypeMd5 = 0 + fromEnum ChecksumTypeSha1 = 1 + fromEnum ChecksumTypeSha256 = 2 + fromEnum ChecksumTypeSha512 = 3 + fromEnum (AnotherChecksumType k) = k + + toEnum 0 = ChecksumTypeMd5 + toEnum 1 = ChecksumTypeSha1 + toEnum 2 = ChecksumTypeSha256 + toEnum 3 = ChecksumTypeSha512 + toEnum k = AnotherChecksumType k + +-- callback ChildWatchFunc +childWatchFuncClosure :: ChildWatchFunc -> IO Closure +childWatchFuncClosure cb = newCClosure =<< mkChildWatchFunc wrapped + where wrapped = childWatchFuncWrapper Nothing cb + +type ChildWatchFuncC = + Int32 -> + Int32 -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkChildWatchFunc :: ChildWatchFuncC -> IO (FunPtr ChildWatchFuncC) + +type ChildWatchFunc = + Int32 -> + Int32 -> + IO () + +noChildWatchFunc :: Maybe ChildWatchFunc +noChildWatchFunc = Nothing + +childWatchFuncWrapper :: + Maybe (Ptr (FunPtr (ChildWatchFuncC))) -> + ChildWatchFunc -> + Int32 -> + Int32 -> + Ptr () -> + IO () +childWatchFuncWrapper funptrptr _cb pid status _ = do + _cb pid status + maybeReleaseFunPtr funptrptr + +-- callback CompareDataFunc +compareDataFuncClosure :: CompareDataFunc -> IO Closure +compareDataFuncClosure cb = newCClosure =<< mkCompareDataFunc wrapped + where wrapped = compareDataFuncWrapper Nothing cb + +type CompareDataFuncC = + Ptr () -> + Ptr () -> + Ptr () -> + IO Int32 + +foreign import ccall "wrapper" + mkCompareDataFunc :: CompareDataFuncC -> IO (FunPtr CompareDataFuncC) + +type CompareDataFunc = + Ptr () -> + Ptr () -> + IO Int32 + +noCompareDataFunc :: Maybe CompareDataFunc +noCompareDataFunc = Nothing + +compareDataFuncWrapper :: + Maybe (Ptr (FunPtr (CompareDataFuncC))) -> + CompareDataFunc -> + Ptr () -> + Ptr () -> + Ptr () -> + IO Int32 +compareDataFuncWrapper funptrptr _cb a b _ = do + result <- _cb a b + maybeReleaseFunPtr funptrptr + return result + +-- callback CompareFunc +compareFuncClosure :: CompareFunc -> IO Closure +compareFuncClosure cb = newCClosure =<< mkCompareFunc wrapped + where wrapped = compareFuncWrapper Nothing cb + +type CompareFuncC = + Ptr () -> + Ptr () -> + IO Int32 + +foreign import ccall "wrapper" + mkCompareFunc :: CompareFuncC -> IO (FunPtr CompareFuncC) + +type CompareFunc = + Ptr () -> + Ptr () -> + IO Int32 + +noCompareFunc :: Maybe CompareFunc +noCompareFunc = Nothing + +compareFuncWrapper :: + Maybe (Ptr (FunPtr (CompareFuncC))) -> + CompareFunc -> + Ptr () -> + Ptr () -> + IO Int32 +compareFuncWrapper funptrptr _cb a b = do + result <- _cb a b + maybeReleaseFunPtr funptrptr + return result + +-- struct Cond +newtype Cond = Cond (ForeignPtr Cond) +noCond :: Maybe Cond +noCond = Nothing + +-- method Cond::broadcast +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_cond_broadcast" g_cond_broadcast :: + Ptr Cond -> -- _obj : TInterface "GLib" "Cond" + IO () + + +condBroadcast :: + (MonadIO m) => + Cond -> -- _obj + m () +condBroadcast _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_cond_broadcast _obj' + touchManagedPtr _obj + return () + +-- method Cond::clear +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_cond_clear" g_cond_clear :: + Ptr Cond -> -- _obj : TInterface "GLib" "Cond" + IO () + + +condClear :: + (MonadIO m) => + Cond -> -- _obj + m () +condClear _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_cond_clear _obj' + touchManagedPtr _obj + return () + +-- method Cond::init +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_cond_init" g_cond_init :: + Ptr Cond -> -- _obj : TInterface "GLib" "Cond" + IO () + + +condInit :: + (MonadIO m) => + Cond -> -- _obj + m () +condInit _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_cond_init _obj' + touchManagedPtr _obj + return () + +-- method Cond::signal +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_cond_signal" g_cond_signal :: + Ptr Cond -> -- _obj : TInterface "GLib" "Cond" + IO () + + +condSignal :: + (MonadIO m) => + Cond -> -- _obj + m () +condSignal _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_cond_signal _obj' + touchManagedPtr _obj + return () + +-- method Cond::wait +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mutex", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mutex", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_cond_wait" g_cond_wait :: + Ptr Cond -> -- _obj : TInterface "GLib" "Cond" + Ptr Mutex -> -- mutex : TInterface "GLib" "Mutex" + IO () + + +condWait :: + (MonadIO m) => + Cond -> -- _obj + Mutex -> -- mutex + m () +condWait _obj mutex = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let mutex' = unsafeManagedPtrGetPtr mutex + g_cond_wait _obj' mutex' + touchManagedPtr _obj + touchManagedPtr mutex + return () + +-- method Cond::wait_until +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mutex", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_time", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mutex", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_time", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_cond_wait_until" g_cond_wait_until :: + Ptr Cond -> -- _obj : TInterface "GLib" "Cond" + Ptr Mutex -> -- mutex : TInterface "GLib" "Mutex" + Int64 -> -- end_time : TBasicType TInt64 + IO CInt + + +condWaitUntil :: + (MonadIO m) => + Cond -> -- _obj + Mutex -> -- mutex + Int64 -> -- end_time + m Bool +condWaitUntil _obj mutex end_time = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let mutex' = unsafeManagedPtrGetPtr mutex + result <- g_cond_wait_until _obj' mutex' end_time + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr mutex + return result' + +-- Enum ConvertError + +data ConvertError = + ConvertErrorNoConversion + | ConvertErrorIllegalSequence + | ConvertErrorFailed + | ConvertErrorPartialInput + | ConvertErrorBadUri + | ConvertErrorNotAbsolutePath + | ConvertErrorNoMemory + | AnotherConvertError Int + deriving (Show, Eq) + +instance Enum ConvertError where + fromEnum ConvertErrorNoConversion = 0 + fromEnum ConvertErrorIllegalSequence = 1 + fromEnum ConvertErrorFailed = 2 + fromEnum ConvertErrorPartialInput = 3 + fromEnum ConvertErrorBadUri = 4 + fromEnum ConvertErrorNotAbsolutePath = 5 + fromEnum ConvertErrorNoMemory = 6 + fromEnum (AnotherConvertError k) = k + + toEnum 0 = ConvertErrorNoConversion + toEnum 1 = ConvertErrorIllegalSequence + toEnum 2 = ConvertErrorFailed + toEnum 3 = ConvertErrorPartialInput + toEnum 4 = ConvertErrorBadUri + toEnum 5 = ConvertErrorNotAbsolutePath + toEnum 6 = ConvertErrorNoMemory + toEnum k = AnotherConvertError k + +instance GErrorClass ConvertError where + gerrorClassDomain _ = "g_convert_error" + +catchConvertError :: + IO a -> + (ConvertError -> GErrorMessage -> IO a) -> + IO a +catchConvertError = catchGErrorJustDomain + +handleConvertError :: + (ConvertError -> GErrorMessage -> IO a) -> + IO a -> + IO a +handleConvertError = handleGErrorJustDomain + +-- struct Data +newtype Data = Data (ForeignPtr Data) +noData :: Maybe Data +noData = Nothing + +-- callback DataForeachFunc +dataForeachFuncClosure :: DataForeachFunc -> IO Closure +dataForeachFuncClosure cb = newCClosure =<< mkDataForeachFunc wrapped + where wrapped = dataForeachFuncWrapper Nothing cb + +type DataForeachFuncC = + Word32 -> + Ptr () -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkDataForeachFunc :: DataForeachFuncC -> IO (FunPtr DataForeachFuncC) + +type DataForeachFunc = + Word32 -> + Ptr () -> + IO () + +noDataForeachFunc :: Maybe DataForeachFunc +noDataForeachFunc = Nothing + +dataForeachFuncWrapper :: + Maybe (Ptr (FunPtr (DataForeachFuncC))) -> + DataForeachFunc -> + Word32 -> + Ptr () -> + Ptr () -> + IO () +dataForeachFuncWrapper funptrptr _cb key_id data_ _ = do + _cb key_id data_ + maybeReleaseFunPtr funptrptr + +-- struct Date +newtype Date = Date (ForeignPtr Date) +noDate :: Maybe Date +noDate = Nothing + +foreign import ccall "g_date_get_type" c_g_date_get_type :: + IO GType + +instance BoxedObject Date where + boxedType _ = c_g_date_get_type + +dateReadJulianDays :: Date -> IO Word32 +dateReadJulianDays s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Word32 + return val + +dateReadJulian :: Date -> IO Word32 +dateReadJulian s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 4) :: IO Word32 + return val + +dateReadDmy :: Date -> IO Word32 +dateReadDmy s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO Word32 + return val + +dateReadDay :: Date -> IO Word32 +dateReadDay s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 12) :: IO Word32 + return val + +dateReadMonth :: Date -> IO Word32 +dateReadMonth s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 16) :: IO Word32 + return val + +dateReadYear :: Date -> IO Word32 +dateReadYear s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 20) :: IO Word32 + return val + +-- method Date::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "GLib" "Date" +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_new" g_date_new :: + IO (Ptr Date) + + +dateNew :: + (MonadIO m) => + m Date +dateNew = liftIO $ do + result <- g_date_new + checkUnexpectedReturnNULL "g_date_new" result + result' <- (wrapBoxed Date) result + return result' + +-- method Date::new_dmy +-- method type : Constructor +-- Args : [Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "Date" +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_new_dmy" g_date_new_dmy :: + Word8 -> -- day : TBasicType TUInt8 + CUInt -> -- month : TInterface "GLib" "DateMonth" + Word16 -> -- year : TBasicType TUInt16 + IO (Ptr Date) + + +dateNewDmy :: + (MonadIO m) => + Word8 -> -- day + DateMonth -> -- month + Word16 -> -- year + m Date +dateNewDmy day month year = liftIO $ do + let month' = (fromIntegral . fromEnum) month + result <- g_date_new_dmy day month' year + checkUnexpectedReturnNULL "g_date_new_dmy" result + result' <- (wrapBoxed Date) result + return result' + +-- method Date::new_julian +-- method type : Constructor +-- Args : [Arg {argName = "julian_day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "julian_day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "Date" +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_new_julian" g_date_new_julian :: + Word32 -> -- julian_day : TBasicType TUInt32 + IO (Ptr Date) + + +dateNewJulian :: + (MonadIO m) => + Word32 -> -- julian_day + m Date +dateNewJulian julian_day = liftIO $ do + result <- g_date_new_julian julian_day + checkUnexpectedReturnNULL "g_date_new_julian" result + result' <- (wrapBoxed Date) result + return result' + +-- method Date::add_days +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_days", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_days", 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_date_add_days" g_date_add_days :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + Word32 -> -- n_days : TBasicType TUInt32 + IO () + + +dateAddDays :: + (MonadIO m) => + Date -> -- _obj + Word32 -> -- n_days + m () +dateAddDays _obj n_days = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_date_add_days _obj' n_days + touchManagedPtr _obj + return () + +-- method Date::add_months +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_months", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_months", 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_date_add_months" g_date_add_months :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + Word32 -> -- n_months : TBasicType TUInt32 + IO () + + +dateAddMonths :: + (MonadIO m) => + Date -> -- _obj + Word32 -> -- n_months + m () +dateAddMonths _obj n_months = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_date_add_months _obj' n_months + touchManagedPtr _obj + return () + +-- method Date::add_years +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_years", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_years", 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_date_add_years" g_date_add_years :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + Word32 -> -- n_years : TBasicType TUInt32 + IO () + + +dateAddYears :: + (MonadIO m) => + Date -> -- _obj + Word32 -> -- n_years + m () +dateAddYears _obj n_years = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_date_add_years _obj' n_years + touchManagedPtr _obj + return () + +-- method Date::clamp +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min_date", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_date", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min_date", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_date", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_clamp" g_date_clamp :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + Ptr Date -> -- min_date : TInterface "GLib" "Date" + Ptr Date -> -- max_date : TInterface "GLib" "Date" + IO () + + +dateClamp :: + (MonadIO m) => + Date -> -- _obj + Date -> -- min_date + Date -> -- max_date + m () +dateClamp _obj min_date max_date = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let min_date' = unsafeManagedPtrGetPtr min_date + let max_date' = unsafeManagedPtrGetPtr max_date + g_date_clamp _obj' min_date' max_date' + touchManagedPtr _obj + touchManagedPtr min_date + touchManagedPtr max_date + return () + +-- method Date::clear +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_dates", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_dates", 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_date_clear" g_date_clear :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + Word32 -> -- n_dates : TBasicType TUInt32 + IO () + + +dateClear :: + (MonadIO m) => + Date -> -- _obj + Word32 -> -- n_dates + m () +dateClear _obj n_dates = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_date_clear _obj' n_dates + touchManagedPtr _obj + return () + +-- method Date::compare +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rhs", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rhs", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_compare" g_date_compare :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + Ptr Date -> -- rhs : TInterface "GLib" "Date" + IO Int32 + + +dateCompare :: + (MonadIO m) => + Date -> -- _obj + Date -> -- rhs + m Int32 +dateCompare _obj rhs = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let rhs' = unsafeManagedPtrGetPtr rhs + result <- g_date_compare _obj' rhs' + touchManagedPtr _obj + touchManagedPtr rhs + return result + +-- method Date::days_between +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "date2", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "date2", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_days_between" g_date_days_between :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + Ptr Date -> -- date2 : TInterface "GLib" "Date" + IO Int32 + + +dateDaysBetween :: + (MonadIO m) => + Date -> -- _obj + Date -> -- date2 + m Int32 +dateDaysBetween _obj date2 = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let date2' = unsafeManagedPtrGetPtr date2 + result <- g_date_days_between _obj' date2' + touchManagedPtr _obj + touchManagedPtr date2 + return result + +-- method Date::free +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_free" g_date_free :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + IO () + + +dateFree :: + (MonadIO m) => + Date -> -- _obj + m () +dateFree _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_date_free _obj' + touchManagedPtr _obj + return () + +-- method Date::get_day +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_get_day" g_date_get_day :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + IO Word8 + + +dateGetDay :: + (MonadIO m) => + Date -> -- _obj + m Word8 +dateGetDay _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_get_day _obj' + touchManagedPtr _obj + return result + +-- method Date::get_day_of_year +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_get_day_of_year" g_date_get_day_of_year :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + IO Word32 + + +dateGetDayOfYear :: + (MonadIO m) => + Date -> -- _obj + m Word32 +dateGetDayOfYear _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_get_day_of_year _obj' + touchManagedPtr _obj + return result + +-- method Date::get_iso8601_week_of_year +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_get_iso8601_week_of_year" g_date_get_iso8601_week_of_year :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + IO Word32 + + +dateGetIso8601WeekOfYear :: + (MonadIO m) => + Date -> -- _obj + m Word32 +dateGetIso8601WeekOfYear _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_get_iso8601_week_of_year _obj' + touchManagedPtr _obj + return result + +-- method Date::get_julian +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_get_julian" g_date_get_julian :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + IO Word32 + + +dateGetJulian :: + (MonadIO m) => + Date -> -- _obj + m Word32 +dateGetJulian _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_get_julian _obj' + touchManagedPtr _obj + return result + +-- method Date::get_monday_week_of_year +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_get_monday_week_of_year" g_date_get_monday_week_of_year :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + IO Word32 + + +dateGetMondayWeekOfYear :: + (MonadIO m) => + Date -> -- _obj + m Word32 +dateGetMondayWeekOfYear _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_get_monday_week_of_year _obj' + touchManagedPtr _obj + return result + +-- method Date::get_month +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "DateMonth" +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_get_month" g_date_get_month :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + IO CUInt + + +dateGetMonth :: + (MonadIO m) => + Date -> -- _obj + m DateMonth +dateGetMonth _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_get_month _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +-- method Date::get_sunday_week_of_year +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_get_sunday_week_of_year" g_date_get_sunday_week_of_year :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + IO Word32 + + +dateGetSundayWeekOfYear :: + (MonadIO m) => + Date -> -- _obj + m Word32 +dateGetSundayWeekOfYear _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_get_sunday_week_of_year _obj' + touchManagedPtr _obj + return result + +-- method Date::get_weekday +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "DateWeekday" +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_get_weekday" g_date_get_weekday :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + IO CUInt + + +dateGetWeekday :: + (MonadIO m) => + Date -> -- _obj + m DateWeekday +dateGetWeekday _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_get_weekday _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +-- method Date::get_year +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt16 +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_get_year" g_date_get_year :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + IO Word16 + + +dateGetYear :: + (MonadIO m) => + Date -> -- _obj + m Word16 +dateGetYear _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_get_year _obj' + touchManagedPtr _obj + return result + +-- method Date::is_first_of_month +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_is_first_of_month" g_date_is_first_of_month :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + IO CInt + + +dateIsFirstOfMonth :: + (MonadIO m) => + Date -> -- _obj + m Bool +dateIsFirstOfMonth _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_is_first_of_month _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Date::is_last_of_month +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_is_last_of_month" g_date_is_last_of_month :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + IO CInt + + +dateIsLastOfMonth :: + (MonadIO m) => + Date -> -- _obj + m Bool +dateIsLastOfMonth _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_is_last_of_month _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Date::order +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "date2", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "date2", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_order" g_date_order :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + Ptr Date -> -- date2 : TInterface "GLib" "Date" + IO () + + +dateOrder :: + (MonadIO m) => + Date -> -- _obj + Date -> -- date2 + m () +dateOrder _obj date2 = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let date2' = unsafeManagedPtrGetPtr date2 + g_date_order _obj' date2' + touchManagedPtr _obj + touchManagedPtr date2 + return () + +-- method Date::set_day +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_set_day" g_date_set_day :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + Word8 -> -- day : TBasicType TUInt8 + IO () + + +dateSetDay :: + (MonadIO m) => + Date -> -- _obj + Word8 -> -- day + m () +dateSetDay _obj day = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_date_set_day _obj' day + touchManagedPtr _obj + return () + +-- method Date::set_dmy +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_set_dmy" g_date_set_dmy :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + Word8 -> -- day : TBasicType TUInt8 + CUInt -> -- month : TInterface "GLib" "DateMonth" + Word16 -> -- y : TBasicType TUInt16 + IO () + + +dateSetDmy :: + (MonadIO m) => + Date -> -- _obj + Word8 -> -- day + DateMonth -> -- month + Word16 -> -- y + m () +dateSetDmy _obj day month y = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let month' = (fromIntegral . fromEnum) month + g_date_set_dmy _obj' day month' y + touchManagedPtr _obj + return () + +-- method Date::set_julian +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "julian_date", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "julian_date", 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_date_set_julian" g_date_set_julian :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + Word32 -> -- julian_date : TBasicType TUInt32 + IO () + + +dateSetJulian :: + (MonadIO m) => + Date -> -- _obj + Word32 -> -- julian_date + m () +dateSetJulian _obj julian_date = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_date_set_julian _obj' julian_date + touchManagedPtr _obj + return () + +-- method Date::set_month +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_set_month" g_date_set_month :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + CUInt -> -- month : TInterface "GLib" "DateMonth" + IO () + + +dateSetMonth :: + (MonadIO m) => + Date -> -- _obj + DateMonth -> -- month + m () +dateSetMonth _obj month = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let month' = (fromIntegral . fromEnum) month + g_date_set_month _obj' month' + touchManagedPtr _obj + return () + +-- method Date::set_parse +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", 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}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_set_parse" g_date_set_parse :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + CString -> -- str : TBasicType TUTF8 + IO () + + +dateSetParse :: + (MonadIO m) => + Date -> -- _obj + T.Text -> -- str + m () +dateSetParse _obj str = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + str' <- textToCString str + g_date_set_parse _obj' str' + touchManagedPtr _obj + freeMem str' + return () + +-- method Date::set_time +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", 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_date_set_time" g_date_set_time :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + Int32 -> -- time_ : TBasicType TInt32 + IO () + +{-# DEPRECATED dateSetTime ["(Since version 2.10)","Use g_date_set_time_t() instead."]#-} +dateSetTime :: + (MonadIO m) => + Date -> -- _obj + Int32 -> -- time_ + m () +dateSetTime _obj time_ = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_date_set_time _obj' time_ + touchManagedPtr _obj + return () + +-- method Date::set_time_t +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timet", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timet", 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_date_set_time_t" g_date_set_time_t :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + Int64 -> -- timet : TBasicType TInt64 + IO () + + +dateSetTimeT :: + (MonadIO m) => + Date -> -- _obj + Int64 -> -- timet + m () +dateSetTimeT _obj timet = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_date_set_time_t _obj' timet + touchManagedPtr _obj + return () + +-- method Date::set_time_val +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeval", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeval", 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_date_set_time_val" g_date_set_time_val :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + Ptr TimeVal -> -- timeval : TInterface "GLib" "TimeVal" + IO () + + +dateSetTimeVal :: + (MonadIO m) => + Date -> -- _obj + TimeVal -> -- timeval + m () +dateSetTimeVal _obj timeval = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let timeval' = unsafeManagedPtrGetPtr timeval + g_date_set_time_val _obj' timeval' + touchManagedPtr _obj + touchManagedPtr timeval + return () + +-- method Date::set_year +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_set_year" g_date_set_year :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + Word16 -> -- year : TBasicType TUInt16 + IO () + + +dateSetYear :: + (MonadIO m) => + Date -> -- _obj + Word16 -> -- year + m () +dateSetYear _obj year = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_date_set_year _obj' year + touchManagedPtr _obj + return () + +-- method Date::subtract_days +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_days", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_days", 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_date_subtract_days" g_date_subtract_days :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + Word32 -> -- n_days : TBasicType TUInt32 + IO () + + +dateSubtractDays :: + (MonadIO m) => + Date -> -- _obj + Word32 -> -- n_days + m () +dateSubtractDays _obj n_days = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_date_subtract_days _obj' n_days + touchManagedPtr _obj + return () + +-- method Date::subtract_months +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_months", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_months", 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_date_subtract_months" g_date_subtract_months :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + Word32 -> -- n_months : TBasicType TUInt32 + IO () + + +dateSubtractMonths :: + (MonadIO m) => + Date -> -- _obj + Word32 -> -- n_months + m () +dateSubtractMonths _obj n_months = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_date_subtract_months _obj' n_months + touchManagedPtr _obj + return () + +-- method Date::subtract_years +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_years", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_years", 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_date_subtract_years" g_date_subtract_years :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + Word32 -> -- n_years : TBasicType TUInt32 + IO () + + +dateSubtractYears :: + (MonadIO m) => + Date -> -- _obj + Word32 -> -- n_years + m () +dateSubtractYears _obj n_years = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_date_subtract_years _obj' n_years + touchManagedPtr _obj + return () + +-- method Date::to_struct_tm +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tm", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tm", 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_date_to_struct_tm" g_date_to_struct_tm :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + Ptr () -> -- tm : TBasicType TVoid + IO () + + +dateToStructTm :: + (MonadIO m) => + Date -> -- _obj + Ptr () -> -- tm + m () +dateToStructTm _obj tm = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_date_to_struct_tm _obj' tm + touchManagedPtr _obj + return () + +-- method Date::valid +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_valid" g_date_valid :: + Ptr Date -> -- _obj : TInterface "GLib" "Date" + IO CInt + + +dateValid :: + (MonadIO m) => + Date -> -- _obj + m Bool +dateValid _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_valid _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- Enum DateDMY + +data DateDMY = + DateDMYDay + | DateDMYMonth + | DateDMYYear + | AnotherDateDMY Int + deriving (Show, Eq) + +instance Enum DateDMY where + fromEnum DateDMYDay = 0 + fromEnum DateDMYMonth = 1 + fromEnum DateDMYYear = 2 + fromEnum (AnotherDateDMY k) = k + + toEnum 0 = DateDMYDay + toEnum 1 = DateDMYMonth + toEnum 2 = DateDMYYear + toEnum k = AnotherDateDMY k + +-- Enum DateMonth + +data DateMonth = + DateMonthBadMonth + | DateMonthJanuary + | DateMonthFebruary + | DateMonthMarch + | DateMonthApril + | DateMonthMay + | DateMonthJune + | DateMonthJuly + | DateMonthAugust + | DateMonthSeptember + | DateMonthOctober + | DateMonthNovember + | DateMonthDecember + | AnotherDateMonth Int + deriving (Show, Eq) + +instance Enum DateMonth where + fromEnum DateMonthBadMonth = 0 + fromEnum DateMonthJanuary = 1 + fromEnum DateMonthFebruary = 2 + fromEnum DateMonthMarch = 3 + fromEnum DateMonthApril = 4 + fromEnum DateMonthMay = 5 + fromEnum DateMonthJune = 6 + fromEnum DateMonthJuly = 7 + fromEnum DateMonthAugust = 8 + fromEnum DateMonthSeptember = 9 + fromEnum DateMonthOctober = 10 + fromEnum DateMonthNovember = 11 + fromEnum DateMonthDecember = 12 + fromEnum (AnotherDateMonth k) = k + + toEnum 0 = DateMonthBadMonth + toEnum 1 = DateMonthJanuary + toEnum 2 = DateMonthFebruary + toEnum 3 = DateMonthMarch + toEnum 4 = DateMonthApril + toEnum 5 = DateMonthMay + toEnum 6 = DateMonthJune + toEnum 7 = DateMonthJuly + toEnum 8 = DateMonthAugust + toEnum 9 = DateMonthSeptember + toEnum 10 = DateMonthOctober + toEnum 11 = DateMonthNovember + toEnum 12 = DateMonthDecember + toEnum k = AnotherDateMonth k + +-- struct DateTime +newtype DateTime = DateTime (ForeignPtr DateTime) +noDateTime :: Maybe DateTime +noDateTime = Nothing + +foreign import ccall "g_date_time_get_type" c_g_date_time_get_type :: + IO GType + +instance BoxedObject DateTime where + boxedType _ = c_g_date_time_get_type + +-- method DateTime::new +-- method type : Constructor +-- Args : [Arg {argName = "tz", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "tz", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, 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_date_time_new" g_date_time_new :: + Ptr TimeZone -> -- tz : TInterface "GLib" "TimeZone" + Int32 -> -- year : TBasicType TInt32 + Int32 -> -- month : TBasicType TInt32 + Int32 -> -- day : TBasicType TInt32 + Int32 -> -- hour : TBasicType TInt32 + Int32 -> -- minute : TBasicType TInt32 + CDouble -> -- seconds : TBasicType TDouble + IO (Ptr DateTime) + + +dateTimeNew :: + (MonadIO m) => + TimeZone -> -- tz + Int32 -> -- year + Int32 -> -- month + Int32 -> -- day + Int32 -> -- hour + Int32 -> -- minute + Double -> -- seconds + m DateTime +dateTimeNew tz year month day hour minute seconds = liftIO $ do + let tz' = unsafeManagedPtrGetPtr tz + let seconds' = realToFrac seconds + result <- g_date_time_new tz' year month day hour minute seconds' + checkUnexpectedReturnNULL "g_date_time_new" result + result' <- (wrapBoxed DateTime) result + touchManagedPtr tz + return result' + +-- method DateTime::new_from_timeval_local +-- method type : Constructor +-- Args : [Arg {argName = "tv", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "tv", argType = TInterface "GLib" "TimeVal", 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_date_time_new_from_timeval_local" g_date_time_new_from_timeval_local :: + Ptr TimeVal -> -- tv : TInterface "GLib" "TimeVal" + IO (Ptr DateTime) + + +dateTimeNewFromTimevalLocal :: + (MonadIO m) => + TimeVal -> -- tv + m DateTime +dateTimeNewFromTimevalLocal tv = liftIO $ do + let tv' = unsafeManagedPtrGetPtr tv + result <- g_date_time_new_from_timeval_local tv' + checkUnexpectedReturnNULL "g_date_time_new_from_timeval_local" result + result' <- (wrapBoxed DateTime) result + touchManagedPtr tv + return result' + +-- method DateTime::new_from_timeval_utc +-- method type : Constructor +-- Args : [Arg {argName = "tv", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "tv", argType = TInterface "GLib" "TimeVal", 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_date_time_new_from_timeval_utc" g_date_time_new_from_timeval_utc :: + Ptr TimeVal -> -- tv : TInterface "GLib" "TimeVal" + IO (Ptr DateTime) + + +dateTimeNewFromTimevalUtc :: + (MonadIO m) => + TimeVal -> -- tv + m DateTime +dateTimeNewFromTimevalUtc tv = liftIO $ do + let tv' = unsafeManagedPtrGetPtr tv + result <- g_date_time_new_from_timeval_utc tv' + checkUnexpectedReturnNULL "g_date_time_new_from_timeval_utc" result + result' <- (wrapBoxed DateTime) result + touchManagedPtr tv + return result' + +-- method DateTime::new_from_unix_local +-- method type : Constructor +-- Args : [Arg {argName = "t", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "t", argType = TBasicType TInt64, 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_date_time_new_from_unix_local" g_date_time_new_from_unix_local :: + Int64 -> -- t : TBasicType TInt64 + IO (Ptr DateTime) + + +dateTimeNewFromUnixLocal :: + (MonadIO m) => + Int64 -> -- t + m DateTime +dateTimeNewFromUnixLocal t = liftIO $ do + result <- g_date_time_new_from_unix_local t + checkUnexpectedReturnNULL "g_date_time_new_from_unix_local" result + result' <- (wrapBoxed DateTime) result + return result' + +-- method DateTime::new_from_unix_utc +-- method type : Constructor +-- Args : [Arg {argName = "t", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "t", argType = TBasicType TInt64, 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_date_time_new_from_unix_utc" g_date_time_new_from_unix_utc :: + Int64 -> -- t : TBasicType TInt64 + IO (Ptr DateTime) + + +dateTimeNewFromUnixUtc :: + (MonadIO m) => + Int64 -> -- t + m DateTime +dateTimeNewFromUnixUtc t = liftIO $ do + result <- g_date_time_new_from_unix_utc t + checkUnexpectedReturnNULL "g_date_time_new_from_unix_utc" result + result' <- (wrapBoxed DateTime) result + return result' + +-- method DateTime::new_local +-- method type : Constructor +-- Args : [Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, 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_date_time_new_local" g_date_time_new_local :: + Int32 -> -- year : TBasicType TInt32 + Int32 -> -- month : TBasicType TInt32 + Int32 -> -- day : TBasicType TInt32 + Int32 -> -- hour : TBasicType TInt32 + Int32 -> -- minute : TBasicType TInt32 + CDouble -> -- seconds : TBasicType TDouble + IO (Ptr DateTime) + + +dateTimeNewLocal :: + (MonadIO m) => + Int32 -> -- year + Int32 -> -- month + Int32 -> -- day + Int32 -> -- hour + Int32 -> -- minute + Double -> -- seconds + m DateTime +dateTimeNewLocal year month day hour minute seconds = liftIO $ do + let seconds' = realToFrac seconds + result <- g_date_time_new_local year month day hour minute seconds' + checkUnexpectedReturnNULL "g_date_time_new_local" result + result' <- (wrapBoxed DateTime) result + return result' + +-- method DateTime::new_now +-- method type : Constructor +-- Args : [Arg {argName = "tz", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "tz", argType = TInterface "GLib" "TimeZone", 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_date_time_new_now" g_date_time_new_now :: + Ptr TimeZone -> -- tz : TInterface "GLib" "TimeZone" + IO (Ptr DateTime) + + +dateTimeNewNow :: + (MonadIO m) => + TimeZone -> -- tz + m DateTime +dateTimeNewNow tz = liftIO $ do + let tz' = unsafeManagedPtrGetPtr tz + result <- g_date_time_new_now tz' + checkUnexpectedReturnNULL "g_date_time_new_now" result + result' <- (wrapBoxed DateTime) result + touchManagedPtr tz + return result' + +-- method DateTime::new_now_local +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "GLib" "DateTime" +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_time_new_now_local" g_date_time_new_now_local :: + IO (Ptr DateTime) + + +dateTimeNewNowLocal :: + (MonadIO m) => + m DateTime +dateTimeNewNowLocal = liftIO $ do + result <- g_date_time_new_now_local + checkUnexpectedReturnNULL "g_date_time_new_now_local" result + result' <- (wrapBoxed DateTime) result + return result' + +-- method DateTime::new_now_utc +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "GLib" "DateTime" +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_time_new_now_utc" g_date_time_new_now_utc :: + IO (Ptr DateTime) + + +dateTimeNewNowUtc :: + (MonadIO m) => + m DateTime +dateTimeNewNowUtc = liftIO $ do + result <- g_date_time_new_now_utc + checkUnexpectedReturnNULL "g_date_time_new_now_utc" result + result' <- (wrapBoxed DateTime) result + return result' + +-- method DateTime::new_utc +-- method type : Constructor +-- Args : [Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, 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_date_time_new_utc" g_date_time_new_utc :: + Int32 -> -- year : TBasicType TInt32 + Int32 -> -- month : TBasicType TInt32 + Int32 -> -- day : TBasicType TInt32 + Int32 -> -- hour : TBasicType TInt32 + Int32 -> -- minute : TBasicType TInt32 + CDouble -> -- seconds : TBasicType TDouble + IO (Ptr DateTime) + + +dateTimeNewUtc :: + (MonadIO m) => + Int32 -> -- year + Int32 -> -- month + Int32 -> -- day + Int32 -> -- hour + Int32 -> -- minute + Double -> -- seconds + m DateTime +dateTimeNewUtc year month day hour minute seconds = liftIO $ do + let seconds' = realToFrac seconds + result <- g_date_time_new_utc year month day hour minute seconds' + checkUnexpectedReturnNULL "g_date_time_new_utc" result + result' <- (wrapBoxed DateTime) result + return result' + +-- method DateTime::add +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timespan", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timespan", argType = TBasicType TInt64, 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_date_time_add" g_date_time_add :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + Int64 -> -- timespan : TBasicType TInt64 + IO (Ptr DateTime) + + +dateTimeAdd :: + (MonadIO m) => + DateTime -> -- _obj + Int64 -> -- timespan + m DateTime +dateTimeAdd _obj timespan = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_time_add _obj' timespan + checkUnexpectedReturnNULL "g_date_time_add" result + result' <- (wrapBoxed DateTime) result + touchManagedPtr _obj + return result' + +-- method DateTime::add_days +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "days", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "days", argType = TBasicType TInt32, 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_date_time_add_days" g_date_time_add_days :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + Int32 -> -- days : TBasicType TInt32 + IO (Ptr DateTime) + + +dateTimeAddDays :: + (MonadIO m) => + DateTime -> -- _obj + Int32 -> -- days + m DateTime +dateTimeAddDays _obj days = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_time_add_days _obj' days + checkUnexpectedReturnNULL "g_date_time_add_days" result + result' <- (wrapBoxed DateTime) result + touchManagedPtr _obj + return result' + +-- method DateTime::add_full +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "years", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "months", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "days", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hours", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minutes", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "years", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "months", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "days", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hours", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minutes", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, 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_date_time_add_full" g_date_time_add_full :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + Int32 -> -- years : TBasicType TInt32 + Int32 -> -- months : TBasicType TInt32 + Int32 -> -- days : TBasicType TInt32 + Int32 -> -- hours : TBasicType TInt32 + Int32 -> -- minutes : TBasicType TInt32 + CDouble -> -- seconds : TBasicType TDouble + IO (Ptr DateTime) + + +dateTimeAddFull :: + (MonadIO m) => + DateTime -> -- _obj + Int32 -> -- years + Int32 -> -- months + Int32 -> -- days + Int32 -> -- hours + Int32 -> -- minutes + Double -> -- seconds + m DateTime +dateTimeAddFull _obj years months days hours minutes seconds = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let seconds' = realToFrac seconds + result <- g_date_time_add_full _obj' years months days hours minutes seconds' + checkUnexpectedReturnNULL "g_date_time_add_full" result + result' <- (wrapBoxed DateTime) result + touchManagedPtr _obj + return result' + +-- method DateTime::add_hours +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hours", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hours", argType = TBasicType TInt32, 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_date_time_add_hours" g_date_time_add_hours :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + Int32 -> -- hours : TBasicType TInt32 + IO (Ptr DateTime) + + +dateTimeAddHours :: + (MonadIO m) => + DateTime -> -- _obj + Int32 -> -- hours + m DateTime +dateTimeAddHours _obj hours = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_time_add_hours _obj' hours + checkUnexpectedReturnNULL "g_date_time_add_hours" result + result' <- (wrapBoxed DateTime) result + touchManagedPtr _obj + return result' + +-- method DateTime::add_minutes +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minutes", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minutes", argType = TBasicType TInt32, 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_date_time_add_minutes" g_date_time_add_minutes :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + Int32 -> -- minutes : TBasicType TInt32 + IO (Ptr DateTime) + + +dateTimeAddMinutes :: + (MonadIO m) => + DateTime -> -- _obj + Int32 -> -- minutes + m DateTime +dateTimeAddMinutes _obj minutes = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_time_add_minutes _obj' minutes + checkUnexpectedReturnNULL "g_date_time_add_minutes" result + result' <- (wrapBoxed DateTime) result + touchManagedPtr _obj + return result' + +-- method DateTime::add_months +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "months", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "months", argType = TBasicType TInt32, 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_date_time_add_months" g_date_time_add_months :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + Int32 -> -- months : TBasicType TInt32 + IO (Ptr DateTime) + + +dateTimeAddMonths :: + (MonadIO m) => + DateTime -> -- _obj + Int32 -> -- months + m DateTime +dateTimeAddMonths _obj months = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_time_add_months _obj' months + checkUnexpectedReturnNULL "g_date_time_add_months" result + result' <- (wrapBoxed DateTime) result + touchManagedPtr _obj + return result' + +-- method DateTime::add_seconds +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, 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_date_time_add_seconds" g_date_time_add_seconds :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + CDouble -> -- seconds : TBasicType TDouble + IO (Ptr DateTime) + + +dateTimeAddSeconds :: + (MonadIO m) => + DateTime -> -- _obj + Double -> -- seconds + m DateTime +dateTimeAddSeconds _obj seconds = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let seconds' = realToFrac seconds + result <- g_date_time_add_seconds _obj' seconds' + checkUnexpectedReturnNULL "g_date_time_add_seconds" result + result' <- (wrapBoxed DateTime) result + touchManagedPtr _obj + return result' + +-- method DateTime::add_weeks +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "weeks", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "weeks", argType = TBasicType TInt32, 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_date_time_add_weeks" g_date_time_add_weeks :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + Int32 -> -- weeks : TBasicType TInt32 + IO (Ptr DateTime) + + +dateTimeAddWeeks :: + (MonadIO m) => + DateTime -> -- _obj + Int32 -> -- weeks + m DateTime +dateTimeAddWeeks _obj weeks = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_time_add_weeks _obj' weeks + checkUnexpectedReturnNULL "g_date_time_add_weeks" result + result' <- (wrapBoxed DateTime) result + touchManagedPtr _obj + return result' + +-- method DateTime::add_years +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "years", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "years", argType = TBasicType TInt32, 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_date_time_add_years" g_date_time_add_years :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + Int32 -> -- years : TBasicType TInt32 + IO (Ptr DateTime) + + +dateTimeAddYears :: + (MonadIO m) => + DateTime -> -- _obj + Int32 -> -- years + m DateTime +dateTimeAddYears _obj years = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_time_add_years _obj' years + checkUnexpectedReturnNULL "g_date_time_add_years" result + result' <- (wrapBoxed DateTime) result + touchManagedPtr _obj + return result' + +-- method DateTime::difference +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_time_difference" g_date_time_difference :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + Ptr DateTime -> -- begin : TInterface "GLib" "DateTime" + IO Int64 + + +dateTimeDifference :: + (MonadIO m) => + DateTime -> -- _obj + DateTime -> -- begin + m Int64 +dateTimeDifference _obj begin = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let begin' = unsafeManagedPtrGetPtr begin + result <- g_date_time_difference _obj' begin' + touchManagedPtr _obj + touchManagedPtr begin + return result + +-- method DateTime::format +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", 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_date_time_format" g_date_time_format :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + CString -> -- format : TBasicType TUTF8 + IO CString + + +dateTimeFormat :: + (MonadIO m) => + DateTime -> -- _obj + T.Text -> -- format + m T.Text +dateTimeFormat _obj format = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + format' <- textToCString format + result <- g_date_time_format _obj' format' + checkUnexpectedReturnNULL "g_date_time_format" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem format' + return result' + +-- method DateTime::get_day_of_month +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_time_get_day_of_month" g_date_time_get_day_of_month :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + IO Int32 + + +dateTimeGetDayOfMonth :: + (MonadIO m) => + DateTime -> -- _obj + m Int32 +dateTimeGetDayOfMonth _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_time_get_day_of_month _obj' + touchManagedPtr _obj + return result + +-- method DateTime::get_day_of_week +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_time_get_day_of_week" g_date_time_get_day_of_week :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + IO Int32 + + +dateTimeGetDayOfWeek :: + (MonadIO m) => + DateTime -> -- _obj + m Int32 +dateTimeGetDayOfWeek _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_time_get_day_of_week _obj' + touchManagedPtr _obj + return result + +-- method DateTime::get_day_of_year +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_time_get_day_of_year" g_date_time_get_day_of_year :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + IO Int32 + + +dateTimeGetDayOfYear :: + (MonadIO m) => + DateTime -> -- _obj + m Int32 +dateTimeGetDayOfYear _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_time_get_day_of_year _obj' + touchManagedPtr _obj + return result + +-- method DateTime::get_hour +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_time_get_hour" g_date_time_get_hour :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + IO Int32 + + +dateTimeGetHour :: + (MonadIO m) => + DateTime -> -- _obj + m Int32 +dateTimeGetHour _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_time_get_hour _obj' + touchManagedPtr _obj + return result + +-- method DateTime::get_microsecond +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_time_get_microsecond" g_date_time_get_microsecond :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + IO Int32 + + +dateTimeGetMicrosecond :: + (MonadIO m) => + DateTime -> -- _obj + m Int32 +dateTimeGetMicrosecond _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_time_get_microsecond _obj' + touchManagedPtr _obj + return result + +-- method DateTime::get_minute +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_time_get_minute" g_date_time_get_minute :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + IO Int32 + + +dateTimeGetMinute :: + (MonadIO m) => + DateTime -> -- _obj + m Int32 +dateTimeGetMinute _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_time_get_minute _obj' + touchManagedPtr _obj + return result + +-- method DateTime::get_month +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_time_get_month" g_date_time_get_month :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + IO Int32 + + +dateTimeGetMonth :: + (MonadIO m) => + DateTime -> -- _obj + m Int32 +dateTimeGetMonth _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_time_get_month _obj' + touchManagedPtr _obj + return result + +-- method DateTime::get_second +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_time_get_second" g_date_time_get_second :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + IO Int32 + + +dateTimeGetSecond :: + (MonadIO m) => + DateTime -> -- _obj + m Int32 +dateTimeGetSecond _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_time_get_second _obj' + touchManagedPtr _obj + return result + +-- method DateTime::get_seconds +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_time_get_seconds" g_date_time_get_seconds :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + IO CDouble + + +dateTimeGetSeconds :: + (MonadIO m) => + DateTime -> -- _obj + m Double +dateTimeGetSeconds _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_time_get_seconds _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method DateTime::get_timezone_abbreviation +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_time_get_timezone_abbreviation" g_date_time_get_timezone_abbreviation :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + IO CString + + +dateTimeGetTimezoneAbbreviation :: + (MonadIO m) => + DateTime -> -- _obj + m T.Text +dateTimeGetTimezoneAbbreviation _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_time_get_timezone_abbreviation _obj' + checkUnexpectedReturnNULL "g_date_time_get_timezone_abbreviation" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method DateTime::get_utc_offset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_time_get_utc_offset" g_date_time_get_utc_offset :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + IO Int64 + + +dateTimeGetUtcOffset :: + (MonadIO m) => + DateTime -> -- _obj + m Int64 +dateTimeGetUtcOffset _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_time_get_utc_offset _obj' + touchManagedPtr _obj + return result + +-- method DateTime::get_week_numbering_year +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_time_get_week_numbering_year" g_date_time_get_week_numbering_year :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + IO Int32 + + +dateTimeGetWeekNumberingYear :: + (MonadIO m) => + DateTime -> -- _obj + m Int32 +dateTimeGetWeekNumberingYear _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_time_get_week_numbering_year _obj' + touchManagedPtr _obj + return result + +-- method DateTime::get_week_of_year +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_time_get_week_of_year" g_date_time_get_week_of_year :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + IO Int32 + + +dateTimeGetWeekOfYear :: + (MonadIO m) => + DateTime -> -- _obj + m Int32 +dateTimeGetWeekOfYear _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_time_get_week_of_year _obj' + touchManagedPtr _obj + return result + +-- method DateTime::get_year +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_time_get_year" g_date_time_get_year :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + IO Int32 + + +dateTimeGetYear :: + (MonadIO m) => + DateTime -> -- _obj + m Int32 +dateTimeGetYear _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_time_get_year _obj' + touchManagedPtr _obj + return result + +-- method DateTime::get_ymd +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_time_get_ymd" g_date_time_get_ymd :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + Ptr Int32 -> -- year : TBasicType TInt32 + Ptr Int32 -> -- month : TBasicType TInt32 + Ptr Int32 -> -- day : TBasicType TInt32 + IO () + + +dateTimeGetYmd :: + (MonadIO m) => + DateTime -> -- _obj + m (Int32,Int32,Int32) +dateTimeGetYmd _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + year <- allocMem :: IO (Ptr Int32) + month <- allocMem :: IO (Ptr Int32) + day <- allocMem :: IO (Ptr Int32) + g_date_time_get_ymd _obj' year month day + year' <- peek year + month' <- peek month + day' <- peek day + touchManagedPtr _obj + freeMem year + freeMem month + freeMem day + return (year', month', day') + +-- method DateTime::is_daylight_savings +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_time_is_daylight_savings" g_date_time_is_daylight_savings :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + IO CInt + + +dateTimeIsDaylightSavings :: + (MonadIO m) => + DateTime -> -- _obj + m Bool +dateTimeIsDaylightSavings _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_time_is_daylight_savings _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method DateTime::ref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", 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_date_time_ref" g_date_time_ref :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + IO (Ptr DateTime) + + +dateTimeRef :: + (MonadIO m) => + DateTime -> -- _obj + m DateTime +dateTimeRef _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_time_ref _obj' + checkUnexpectedReturnNULL "g_date_time_ref" result + result' <- (wrapBoxed DateTime) result + touchManagedPtr _obj + return result' + +-- method DateTime::to_local +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", 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_date_time_to_local" g_date_time_to_local :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + IO (Ptr DateTime) + + +dateTimeToLocal :: + (MonadIO m) => + DateTime -> -- _obj + m DateTime +dateTimeToLocal _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_time_to_local _obj' + checkUnexpectedReturnNULL "g_date_time_to_local" result + result' <- (wrapBoxed DateTime) result + touchManagedPtr _obj + return result' + +-- method DateTime::to_timeval +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tv", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tv", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_time_to_timeval" g_date_time_to_timeval :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + Ptr TimeVal -> -- tv : TInterface "GLib" "TimeVal" + IO CInt + + +dateTimeToTimeval :: + (MonadIO m) => + DateTime -> -- _obj + TimeVal -> -- tv + m Bool +dateTimeToTimeval _obj tv = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let tv' = unsafeManagedPtrGetPtr tv + result <- g_date_time_to_timeval _obj' tv' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr tv + return result' + +-- method DateTime::to_timezone +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tz", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tz", argType = TInterface "GLib" "TimeZone", 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_date_time_to_timezone" g_date_time_to_timezone :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + Ptr TimeZone -> -- tz : TInterface "GLib" "TimeZone" + IO (Ptr DateTime) + + +dateTimeToTimezone :: + (MonadIO m) => + DateTime -> -- _obj + TimeZone -> -- tz + m DateTime +dateTimeToTimezone _obj tz = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let tz' = unsafeManagedPtrGetPtr tz + result <- g_date_time_to_timezone _obj' tz' + checkUnexpectedReturnNULL "g_date_time_to_timezone" result + result' <- (wrapBoxed DateTime) result + touchManagedPtr _obj + touchManagedPtr tz + return result' + +-- method DateTime::to_unix +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_time_to_unix" g_date_time_to_unix :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + IO Int64 + + +dateTimeToUnix :: + (MonadIO m) => + DateTime -> -- _obj + m Int64 +dateTimeToUnix _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_time_to_unix _obj' + touchManagedPtr _obj + return result + +-- method DateTime::to_utc +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", 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_date_time_to_utc" g_date_time_to_utc :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + IO (Ptr DateTime) + + +dateTimeToUtc :: + (MonadIO m) => + DateTime -> -- _obj + m DateTime +dateTimeToUtc _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_date_time_to_utc _obj' + checkUnexpectedReturnNULL "g_date_time_to_utc" result + result' <- (wrapBoxed DateTime) result + touchManagedPtr _obj + return result' + +-- method DateTime::unref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_time_unref" g_date_time_unref :: + Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" + IO () + + +dateTimeUnref :: + (MonadIO m) => + DateTime -> -- _obj + m () +dateTimeUnref _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_date_time_unref _obj' + touchManagedPtr _obj + return () + +-- Enum DateWeekday + +data DateWeekday = + DateWeekdayBadWeekday + | DateWeekdayMonday + | DateWeekdayTuesday + | DateWeekdayWednesday + | DateWeekdayThursday + | DateWeekdayFriday + | DateWeekdaySaturday + | DateWeekdaySunday + | AnotherDateWeekday Int + deriving (Show, Eq) + +instance Enum DateWeekday where + fromEnum DateWeekdayBadWeekday = 0 + fromEnum DateWeekdayMonday = 1 + fromEnum DateWeekdayTuesday = 2 + fromEnum DateWeekdayWednesday = 3 + fromEnum DateWeekdayThursday = 4 + fromEnum DateWeekdayFriday = 5 + fromEnum DateWeekdaySaturday = 6 + fromEnum DateWeekdaySunday = 7 + fromEnum (AnotherDateWeekday k) = k + + toEnum 0 = DateWeekdayBadWeekday + toEnum 1 = DateWeekdayMonday + toEnum 2 = DateWeekdayTuesday + toEnum 3 = DateWeekdayWednesday + toEnum 4 = DateWeekdayThursday + toEnum 5 = DateWeekdayFriday + toEnum 6 = DateWeekdaySaturday + toEnum 7 = DateWeekdaySunday + toEnum k = AnotherDateWeekday k + +-- struct DebugKey +newtype DebugKey = DebugKey (ForeignPtr DebugKey) +noDebugKey :: Maybe DebugKey +noDebugKey = Nothing + +debugKeyReadKey :: DebugKey -> IO T.Text +debugKeyReadKey s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO CString + val' <- cstringToText val + return val' + +debugKeyReadValue :: DebugKey -> IO Word32 +debugKeyReadValue s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO Word32 + return val + +-- callback DestroyNotify +destroyNotifyClosure :: DestroyNotify -> IO Closure +destroyNotifyClosure cb = newCClosure =<< mkDestroyNotify wrapped + where wrapped = destroyNotifyWrapper Nothing cb + +type DestroyNotifyC = + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkDestroyNotify :: DestroyNotifyC -> IO (FunPtr DestroyNotifyC) + +type DestroyNotify = + Ptr () -> + IO () + +noDestroyNotify :: Maybe DestroyNotify +noDestroyNotify = Nothing + +destroyNotifyWrapper :: + Maybe (Ptr (FunPtr (DestroyNotifyC))) -> + DestroyNotify -> + Ptr () -> + IO () +destroyNotifyWrapper funptrptr _cb data_ = do + _cb data_ + maybeReleaseFunPtr funptrptr + +-- struct Dir +newtype Dir = Dir (ForeignPtr Dir) +noDir :: Maybe Dir +noDir = Nothing + +-- method Dir::close +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Dir", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Dir", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_dir_close" g_dir_close :: + Ptr Dir -> -- _obj : TInterface "GLib" "Dir" + IO () + + +dirClose :: + (MonadIO m) => + Dir -> -- _obj + m () +dirClose _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_dir_close _obj' + touchManagedPtr _obj + return () + +-- method Dir::read_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Dir", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Dir", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_dir_read_name" g_dir_read_name :: + Ptr Dir -> -- _obj : TInterface "GLib" "Dir" + IO CString + + +dirReadName :: + (MonadIO m) => + Dir -> -- _obj + m T.Text +dirReadName _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_dir_read_name _obj' + checkUnexpectedReturnNULL "g_dir_read_name" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Dir::rewind +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Dir", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Dir", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_dir_rewind" g_dir_rewind :: + Ptr Dir -> -- _obj : TInterface "GLib" "Dir" + IO () + + +dirRewind :: + (MonadIO m) => + Dir -> -- _obj + m () +dirRewind _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_dir_rewind _obj' + touchManagedPtr _obj + return () + +-- union DoubleIEEE754 +newtype DoubleIEEE754 = DoubleIEEE754 (ForeignPtr DoubleIEEE754) +noDoubleIEEE754 :: Maybe DoubleIEEE754 +noDoubleIEEE754 = Nothing + +doubleIEEE754ReadVDouble :: DoubleIEEE754 -> IO Double +doubleIEEE754ReadVDouble s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO CDouble + let val' = realToFrac val + return val' + +-- callback EqualFunc +equalFuncClosure :: EqualFunc -> IO Closure +equalFuncClosure cb = newCClosure =<< mkEqualFunc wrapped + where wrapped = equalFuncWrapper Nothing cb + +type EqualFuncC = + Ptr () -> + Ptr () -> + IO CInt + +foreign import ccall "wrapper" + mkEqualFunc :: EqualFuncC -> IO (FunPtr EqualFuncC) + +type EqualFunc = + Ptr () -> + Ptr () -> + IO Bool + +noEqualFunc :: Maybe EqualFunc +noEqualFunc = Nothing + +equalFuncWrapper :: + Maybe (Ptr (FunPtr (EqualFuncC))) -> + EqualFunc -> + Ptr () -> + Ptr () -> + IO CInt +equalFuncWrapper funptrptr _cb a b = do + result <- _cb a b + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- Enum ErrorType + +data ErrorType = + ErrorTypeUnknown + | ErrorTypeUnexpEof + | ErrorTypeUnexpEofInString + | ErrorTypeUnexpEofInComment + | ErrorTypeNonDigitInConst + | ErrorTypeDigitRadix + | ErrorTypeFloatRadix + | ErrorTypeFloatMalformed + | AnotherErrorType Int + deriving (Show, Eq) + +instance Enum ErrorType where + fromEnum ErrorTypeUnknown = 0 + fromEnum ErrorTypeUnexpEof = 1 + fromEnum ErrorTypeUnexpEofInString = 2 + fromEnum ErrorTypeUnexpEofInComment = 3 + fromEnum ErrorTypeNonDigitInConst = 4 + fromEnum ErrorTypeDigitRadix = 5 + fromEnum ErrorTypeFloatRadix = 6 + fromEnum ErrorTypeFloatMalformed = 7 + fromEnum (AnotherErrorType k) = k + + toEnum 0 = ErrorTypeUnknown + toEnum 1 = ErrorTypeUnexpEof + toEnum 2 = ErrorTypeUnexpEofInString + toEnum 3 = ErrorTypeUnexpEofInComment + toEnum 4 = ErrorTypeNonDigitInConst + toEnum 5 = ErrorTypeDigitRadix + toEnum 6 = ErrorTypeFloatRadix + toEnum 7 = ErrorTypeFloatMalformed + toEnum k = AnotherErrorType k + +-- Enum FileError + +data FileError = + FileErrorExist + | FileErrorIsdir + | FileErrorAcces + | FileErrorNametoolong + | FileErrorNoent + | FileErrorNotdir + | FileErrorNxio + | FileErrorNodev + | FileErrorRofs + | FileErrorTxtbsy + | FileErrorFault + | FileErrorLoop + | FileErrorNospc + | FileErrorNomem + | FileErrorMfile + | FileErrorNfile + | FileErrorBadf + | FileErrorInval + | FileErrorPipe + | FileErrorAgain + | FileErrorIntr + | FileErrorIo + | FileErrorPerm + | FileErrorNosys + | FileErrorFailed + | AnotherFileError Int + deriving (Show, Eq) + +instance Enum FileError where + fromEnum FileErrorExist = 0 + fromEnum FileErrorIsdir = 1 + fromEnum FileErrorAcces = 2 + fromEnum FileErrorNametoolong = 3 + fromEnum FileErrorNoent = 4 + fromEnum FileErrorNotdir = 5 + fromEnum FileErrorNxio = 6 + fromEnum FileErrorNodev = 7 + fromEnum FileErrorRofs = 8 + fromEnum FileErrorTxtbsy = 9 + fromEnum FileErrorFault = 10 + fromEnum FileErrorLoop = 11 + fromEnum FileErrorNospc = 12 + fromEnum FileErrorNomem = 13 + fromEnum FileErrorMfile = 14 + fromEnum FileErrorNfile = 15 + fromEnum FileErrorBadf = 16 + fromEnum FileErrorInval = 17 + fromEnum FileErrorPipe = 18 + fromEnum FileErrorAgain = 19 + fromEnum FileErrorIntr = 20 + fromEnum FileErrorIo = 21 + fromEnum FileErrorPerm = 22 + fromEnum FileErrorNosys = 23 + fromEnum FileErrorFailed = 24 + fromEnum (AnotherFileError k) = k + + toEnum 0 = FileErrorExist + toEnum 1 = FileErrorIsdir + toEnum 2 = FileErrorAcces + toEnum 3 = FileErrorNametoolong + toEnum 4 = FileErrorNoent + toEnum 5 = FileErrorNotdir + toEnum 6 = FileErrorNxio + toEnum 7 = FileErrorNodev + toEnum 8 = FileErrorRofs + toEnum 9 = FileErrorTxtbsy + toEnum 10 = FileErrorFault + toEnum 11 = FileErrorLoop + toEnum 12 = FileErrorNospc + toEnum 13 = FileErrorNomem + toEnum 14 = FileErrorMfile + toEnum 15 = FileErrorNfile + toEnum 16 = FileErrorBadf + toEnum 17 = FileErrorInval + toEnum 18 = FileErrorPipe + toEnum 19 = FileErrorAgain + toEnum 20 = FileErrorIntr + toEnum 21 = FileErrorIo + toEnum 22 = FileErrorPerm + toEnum 23 = FileErrorNosys + toEnum 24 = FileErrorFailed + toEnum k = AnotherFileError k + +instance GErrorClass FileError where + gerrorClassDomain _ = "g-file-error-quark" + +catchFileError :: + IO a -> + (FileError -> GErrorMessage -> IO a) -> + IO a +catchFileError = catchGErrorJustDomain + +handleFileError :: + (FileError -> GErrorMessage -> IO a) -> + IO a -> + IO a +handleFileError = handleGErrorJustDomain + +-- Flags FileTest + +data FileTest = + FileTestIsRegular + | FileTestIsSymlink + | FileTestIsDir + | FileTestIsExecutable + | FileTestExists + | AnotherFileTest Int + deriving (Show, Eq) + +instance Enum FileTest where + fromEnum FileTestIsRegular = 1 + fromEnum FileTestIsSymlink = 2 + fromEnum FileTestIsDir = 4 + fromEnum FileTestIsExecutable = 8 + fromEnum FileTestExists = 16 + fromEnum (AnotherFileTest k) = k + + toEnum 1 = FileTestIsRegular + toEnum 2 = FileTestIsSymlink + toEnum 4 = FileTestIsDir + toEnum 8 = FileTestIsExecutable + toEnum 16 = FileTestExists + toEnum k = AnotherFileTest k + +instance IsGFlag FileTest + +-- union FloatIEEE754 +newtype FloatIEEE754 = FloatIEEE754 (ForeignPtr FloatIEEE754) +noFloatIEEE754 :: Maybe FloatIEEE754 +noFloatIEEE754 = Nothing + +floatIEEE754ReadVFloat :: FloatIEEE754 -> IO Float +floatIEEE754ReadVFloat s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO CFloat + let val' = realToFrac val + return val' + +-- Flags FormatSizeFlags + +data FormatSizeFlags = + FormatSizeFlagsDefault + | FormatSizeFlagsLongFormat + | FormatSizeFlagsIecUnits + | AnotherFormatSizeFlags Int + deriving (Show, Eq) + +instance Enum FormatSizeFlags where + fromEnum FormatSizeFlagsDefault = 0 + fromEnum FormatSizeFlagsLongFormat = 1 + fromEnum FormatSizeFlagsIecUnits = 2 + fromEnum (AnotherFormatSizeFlags k) = k + + toEnum 0 = FormatSizeFlagsDefault + toEnum 1 = FormatSizeFlagsLongFormat + toEnum 2 = FormatSizeFlagsIecUnits + toEnum k = AnotherFormatSizeFlags k + +instance IsGFlag FormatSizeFlags + +-- callback FreeFunc +freeFuncClosure :: FreeFunc -> IO Closure +freeFuncClosure cb = newCClosure =<< mkFreeFunc wrapped + where wrapped = freeFuncWrapper Nothing cb + +type FreeFuncC = + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkFreeFunc :: FreeFuncC -> IO (FunPtr FreeFuncC) + +type FreeFunc = + Ptr () -> + IO () + +noFreeFunc :: Maybe FreeFunc +noFreeFunc = Nothing + +freeFuncWrapper :: + Maybe (Ptr (FunPtr (FreeFuncC))) -> + FreeFunc -> + Ptr () -> + IO () +freeFuncWrapper funptrptr _cb data_ = do + _cb data_ + maybeReleaseFunPtr funptrptr + +-- callback Func +funcClosure :: Func -> IO Closure +funcClosure cb = newCClosure =<< mkFunc wrapped + where wrapped = funcWrapper Nothing cb + +type FuncC = + Ptr () -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkFunc :: FuncC -> IO (FunPtr FuncC) + +type Func = + Ptr () -> + IO () + +noFunc :: Maybe Func +noFunc = Nothing + +funcWrapper :: + Maybe (Ptr (FunPtr (FuncC))) -> + Func -> + Ptr () -> + Ptr () -> + IO () +funcWrapper funptrptr _cb data_ _ = do + _cb data_ + maybeReleaseFunPtr funptrptr + +-- callback HFunc +hFuncClosure :: HFunc -> IO Closure +hFuncClosure cb = newCClosure =<< mkHFunc wrapped + where wrapped = hFuncWrapper Nothing cb + +type HFuncC = + Ptr () -> + Ptr () -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkHFunc :: HFuncC -> IO (FunPtr HFuncC) + +type HFunc = + Ptr () -> + Ptr () -> + IO () + +noHFunc :: Maybe HFunc +noHFunc = Nothing + +hFuncWrapper :: + Maybe (Ptr (FunPtr (HFuncC))) -> + HFunc -> + Ptr () -> + Ptr () -> + Ptr () -> + IO () +hFuncWrapper funptrptr _cb key value _ = do + _cb key value + maybeReleaseFunPtr funptrptr + +-- callback HRFunc +hRFuncClosure :: HRFunc -> IO Closure +hRFuncClosure cb = newCClosure =<< mkHRFunc wrapped + where wrapped = hRFuncWrapper Nothing cb + +type HRFuncC = + Ptr () -> + Ptr () -> + Ptr () -> + IO CInt + +foreign import ccall "wrapper" + mkHRFunc :: HRFuncC -> IO (FunPtr HRFuncC) + +type HRFunc = + Ptr () -> + Ptr () -> + IO Bool + +noHRFunc :: Maybe HRFunc +noHRFunc = Nothing + +hRFuncWrapper :: + Maybe (Ptr (FunPtr (HRFuncC))) -> + HRFunc -> + Ptr () -> + Ptr () -> + Ptr () -> + IO CInt +hRFuncWrapper funptrptr _cb key value _ = do + result <- _cb key value + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- callback HashFunc +hashFuncClosure :: HashFunc -> IO Closure +hashFuncClosure cb = newCClosure =<< mkHashFunc wrapped + where wrapped = hashFuncWrapper Nothing cb + +type HashFuncC = + Ptr () -> + IO Word32 + +foreign import ccall "wrapper" + mkHashFunc :: HashFuncC -> IO (FunPtr HashFuncC) + +type HashFunc = + Ptr () -> + IO Word32 + +noHashFunc :: Maybe HashFunc +noHashFunc = Nothing + +hashFuncWrapper :: + Maybe (Ptr (FunPtr (HashFuncC))) -> + HashFunc -> + Ptr () -> + IO Word32 +hashFuncWrapper funptrptr _cb key = do + result <- _cb key + maybeReleaseFunPtr funptrptr + return result + +-- struct HashTableIter +newtype HashTableIter = HashTableIter (ForeignPtr HashTableIter) +noHashTableIter :: Maybe HashTableIter +noHashTableIter = Nothing + +-- method HashTableIter::init +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (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_hash_table_iter_init" g_hash_table_iter_init :: + Ptr HashTableIter -> -- _obj : TInterface "GLib" "HashTableIter" + Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid) + IO () + + +hashTableIterInit :: + (MonadIO m) => + HashTableIter -> -- _obj + Map.Map (Ptr ()) (Ptr ()) -> -- hash_table + m () +hashTableIterInit _obj hash_table = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let hash_table' = Map.toList hash_table + let hash_table'' = mapFirst ptrPackPtr hash_table' + let hash_table''' = mapSecond ptrPackPtr hash_table'' + hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table''' + g_hash_table_iter_init _obj' hash_table'''' + touchManagedPtr _obj + unrefGHashTable hash_table'''' + return () + +-- method HashTableIter::next +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_hash_table_iter_next" g_hash_table_iter_next :: + Ptr HashTableIter -> -- _obj : TInterface "GLib" "HashTableIter" + Ptr () -> -- key : TBasicType TVoid + Ptr () -> -- value : TBasicType TVoid + IO CInt + + +hashTableIterNext :: + (MonadIO m) => + HashTableIter -> -- _obj + Maybe (Ptr ()) -> -- key + Maybe (Ptr ()) -> -- value + m Bool +hashTableIterNext _obj key value = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + maybeKey <- case key of + Nothing -> return nullPtr + Just jKey -> do + return jKey + maybeValue <- case value of + Nothing -> return nullPtr + Just jValue -> do + return jValue + result <- g_hash_table_iter_next _obj' maybeKey maybeValue + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method HashTableIter::remove +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_hash_table_iter_remove" g_hash_table_iter_remove :: + Ptr HashTableIter -> -- _obj : TInterface "GLib" "HashTableIter" + IO () + + +hashTableIterRemove :: + (MonadIO m) => + HashTableIter -> -- _obj + m () +hashTableIterRemove _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_hash_table_iter_remove _obj' + touchManagedPtr _obj + return () + +-- method HashTableIter::replace +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_hash_table_iter_replace" g_hash_table_iter_replace :: + Ptr HashTableIter -> -- _obj : TInterface "GLib" "HashTableIter" + Ptr () -> -- value : TBasicType TVoid + IO () + + +hashTableIterReplace :: + (MonadIO m) => + HashTableIter -> -- _obj + Ptr () -> -- value + m () +hashTableIterReplace _obj value = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_hash_table_iter_replace _obj' value + touchManagedPtr _obj + return () + +-- method HashTableIter::steal +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_hash_table_iter_steal" g_hash_table_iter_steal :: + Ptr HashTableIter -> -- _obj : TInterface "GLib" "HashTableIter" + IO () + + +hashTableIterSteal :: + (MonadIO m) => + HashTableIter -> -- _obj + m () +hashTableIterSteal _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_hash_table_iter_steal _obj' + touchManagedPtr _obj + return () + +-- struct Hmac +newtype Hmac = Hmac (ForeignPtr Hmac) +noHmac :: Maybe Hmac +noHmac = Nothing + +-- method Hmac::get_digest +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digest_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digest_len", 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_hmac_get_digest" g_hmac_get_digest :: + Ptr Hmac -> -- _obj : TInterface "GLib" "Hmac" + Word8 -> -- buffer : TBasicType TUInt8 + Word64 -> -- digest_len : TBasicType TUInt64 + IO () + + +hmacGetDigest :: + (MonadIO m) => + Hmac -> -- _obj + Word8 -> -- buffer + Word64 -> -- digest_len + m () +hmacGetDigest _obj buffer digest_len = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_hmac_get_digest _obj' buffer digest_len + touchManagedPtr _obj + return () + +-- method Hmac::get_string +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_hmac_get_string" g_hmac_get_string :: + Ptr Hmac -> -- _obj : TInterface "GLib" "Hmac" + IO CString + + +hmacGetString :: + (MonadIO m) => + Hmac -> -- _obj + m T.Text +hmacGetString _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_hmac_get_string _obj' + checkUnexpectedReturnNULL "g_hmac_get_string" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Hmac::unref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_hmac_unref" g_hmac_unref :: + Ptr Hmac -> -- _obj : TInterface "GLib" "Hmac" + IO () + + +hmacUnref :: + (MonadIO m) => + Hmac -> -- _obj + m () +hmacUnref _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_hmac_unref _obj' + touchManagedPtr _obj + return () + +-- method Hmac::update +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", 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},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", 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}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_hmac_update" g_hmac_update :: + Ptr Hmac -> -- _obj : TInterface "GLib" "Hmac" + Ptr Word8 -> -- data : TCArray False (-1) 2 (TBasicType TUInt8) + Int64 -> -- length : TBasicType TInt64 + IO () + + +hmacUpdate :: + (MonadIO m) => + Hmac -> -- _obj + ByteString -> -- data + m () +hmacUpdate _obj data_ = liftIO $ do + let length_ = fromIntegral $ B.length data_ + let _obj' = unsafeManagedPtrGetPtr _obj + data_' <- packByteString data_ + g_hmac_update _obj' data_' length_ + touchManagedPtr _obj + freeMem data_' + return () + +-- struct Hook +newtype Hook = Hook (ForeignPtr Hook) +noHook :: Maybe Hook +noHook = Nothing + +hookReadData :: Hook -> IO (Ptr ()) +hookReadData s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO (Ptr ()) + return val + +hookReadNext :: Hook -> IO Hook +hookReadNext s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO (Ptr Hook) + val' <- (newPtr 64 Hook) val + return val' + +hookReadPrev :: Hook -> IO Hook +hookReadPrev s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 16) :: IO (Ptr Hook) + val' <- (newPtr 64 Hook) val + return val' + +hookReadRefCount :: Hook -> IO Word32 +hookReadRefCount s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 24) :: IO Word32 + return val + +hookReadHookId :: Hook -> IO Word64 +hookReadHookId s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 32) :: IO Word64 + return val + +hookReadFlags :: Hook -> IO Word32 +hookReadFlags s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 40) :: IO Word32 + return val + +hookReadFunc :: Hook -> IO (Ptr ()) +hookReadFunc s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 48) :: IO (Ptr ()) + return val + +-- XXX Skipped getter for "Hook:destroy" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- method Hook::compare_ids +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_hook_compare_ids" g_hook_compare_ids :: + Ptr Hook -> -- _obj : TInterface "GLib" "Hook" + Ptr Hook -> -- sibling : TInterface "GLib" "Hook" + IO Int32 + + +hookCompareIds :: + (MonadIO m) => + Hook -> -- _obj + Hook -> -- sibling + m Int32 +hookCompareIds _obj sibling = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let sibling' = unsafeManagedPtrGetPtr sibling + result <- g_hook_compare_ids _obj' sibling' + touchManagedPtr _obj + touchManagedPtr sibling + return result + +-- callback HookCheckFunc +hookCheckFuncClosure :: HookCheckFunc -> IO Closure +hookCheckFuncClosure cb = newCClosure =<< mkHookCheckFunc wrapped + where wrapped = hookCheckFuncWrapper Nothing cb + +type HookCheckFuncC = + Ptr () -> + IO CInt + +foreign import ccall "wrapper" + mkHookCheckFunc :: HookCheckFuncC -> IO (FunPtr HookCheckFuncC) + +type HookCheckFunc = + Ptr () -> + IO Bool + +noHookCheckFunc :: Maybe HookCheckFunc +noHookCheckFunc = Nothing + +hookCheckFuncWrapper :: + Maybe (Ptr (FunPtr (HookCheckFuncC))) -> + HookCheckFunc -> + Ptr () -> + IO CInt +hookCheckFuncWrapper funptrptr _cb data_ = do + result <- _cb data_ + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- callback HookCheckMarshaller +hookCheckMarshallerClosure :: HookCheckMarshaller -> IO Closure +hookCheckMarshallerClosure cb = newCClosure =<< mkHookCheckMarshaller wrapped + where wrapped = hookCheckMarshallerWrapper Nothing cb + +type HookCheckMarshallerC = + Ptr Hook -> + Ptr () -> + IO CInt + +foreign import ccall "wrapper" + mkHookCheckMarshaller :: HookCheckMarshallerC -> IO (FunPtr HookCheckMarshallerC) + +type HookCheckMarshaller = + Hook -> + Ptr () -> + IO Bool + +noHookCheckMarshaller :: Maybe HookCheckMarshaller +noHookCheckMarshaller = Nothing + +hookCheckMarshallerWrapper :: + Maybe (Ptr (FunPtr (HookCheckMarshallerC))) -> + HookCheckMarshaller -> + Ptr Hook -> + Ptr () -> + IO CInt +hookCheckMarshallerWrapper funptrptr _cb hook marshal_data = do + hook' <- (newPtr 64 Hook) hook + result <- _cb hook' marshal_data + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- callback HookCompareFunc +hookCompareFuncClosure :: HookCompareFunc -> IO Closure +hookCompareFuncClosure cb = newCClosure =<< mkHookCompareFunc wrapped + where wrapped = hookCompareFuncWrapper Nothing cb + +type HookCompareFuncC = + Ptr Hook -> + Ptr Hook -> + IO Int32 + +foreign import ccall "wrapper" + mkHookCompareFunc :: HookCompareFuncC -> IO (FunPtr HookCompareFuncC) + +type HookCompareFunc = + Hook -> + Hook -> + IO Int32 + +noHookCompareFunc :: Maybe HookCompareFunc +noHookCompareFunc = Nothing + +hookCompareFuncWrapper :: + Maybe (Ptr (FunPtr (HookCompareFuncC))) -> + HookCompareFunc -> + Ptr Hook -> + Ptr Hook -> + IO Int32 +hookCompareFuncWrapper funptrptr _cb new_hook sibling = do + new_hook' <- (newPtr 64 Hook) new_hook + sibling' <- (newPtr 64 Hook) sibling + result <- _cb new_hook' sibling' + maybeReleaseFunPtr funptrptr + return result + +-- callback HookFinalizeFunc +hookFinalizeFuncClosure :: HookFinalizeFunc -> IO Closure +hookFinalizeFuncClosure cb = newCClosure =<< mkHookFinalizeFunc wrapped + where wrapped = hookFinalizeFuncWrapper Nothing cb + +type HookFinalizeFuncC = + Ptr HookList -> + Ptr Hook -> + IO () + +foreign import ccall "wrapper" + mkHookFinalizeFunc :: HookFinalizeFuncC -> IO (FunPtr HookFinalizeFuncC) + +type HookFinalizeFunc = + HookList -> + Hook -> + IO () + +noHookFinalizeFunc :: Maybe HookFinalizeFunc +noHookFinalizeFunc = Nothing + +hookFinalizeFuncWrapper :: + Maybe (Ptr (FunPtr (HookFinalizeFuncC))) -> + HookFinalizeFunc -> + Ptr HookList -> + Ptr Hook -> + IO () +hookFinalizeFuncWrapper funptrptr _cb hook_list hook = do + hook_list' <- (newPtr 56 HookList) hook_list + hook' <- (newPtr 64 Hook) hook + _cb hook_list' hook' + maybeReleaseFunPtr funptrptr + +-- callback HookFindFunc +hookFindFuncClosure :: HookFindFunc -> IO Closure +hookFindFuncClosure cb = newCClosure =<< mkHookFindFunc wrapped + where wrapped = hookFindFuncWrapper Nothing cb + +type HookFindFuncC = + Ptr Hook -> + Ptr () -> + IO CInt + +foreign import ccall "wrapper" + mkHookFindFunc :: HookFindFuncC -> IO (FunPtr HookFindFuncC) + +type HookFindFunc = + Hook -> + Ptr () -> + IO Bool + +noHookFindFunc :: Maybe HookFindFunc +noHookFindFunc = Nothing + +hookFindFuncWrapper :: + Maybe (Ptr (FunPtr (HookFindFuncC))) -> + HookFindFunc -> + Ptr Hook -> + Ptr () -> + IO CInt +hookFindFuncWrapper funptrptr _cb hook data_ = do + hook' <- (newPtr 64 Hook) hook + result <- _cb hook' data_ + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- Flags HookFlagMask + +data HookFlagMask = + HookFlagMaskActive + | HookFlagMaskInCall + | HookFlagMaskMask + | AnotherHookFlagMask Int + deriving (Show, Eq) + +instance Enum HookFlagMask where + fromEnum HookFlagMaskActive = 1 + fromEnum HookFlagMaskInCall = 2 + fromEnum HookFlagMaskMask = 15 + fromEnum (AnotherHookFlagMask k) = k + + toEnum 1 = HookFlagMaskActive + toEnum 2 = HookFlagMaskInCall + toEnum 15 = HookFlagMaskMask + toEnum k = AnotherHookFlagMask k + +instance IsGFlag HookFlagMask + +-- callback HookFunc +hookFuncClosure :: HookFunc -> IO Closure +hookFuncClosure cb = newCClosure =<< mkHookFunc wrapped + where wrapped = hookFuncWrapper Nothing cb + +type HookFuncC = + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkHookFunc :: HookFuncC -> IO (FunPtr HookFuncC) + +type HookFunc = + Ptr () -> + IO () + +noHookFunc :: Maybe HookFunc +noHookFunc = Nothing + +hookFuncWrapper :: + Maybe (Ptr (FunPtr (HookFuncC))) -> + HookFunc -> + Ptr () -> + IO () +hookFuncWrapper funptrptr _cb data_ = do + _cb data_ + maybeReleaseFunPtr funptrptr + +-- struct HookList +newtype HookList = HookList (ForeignPtr HookList) +noHookList :: Maybe HookList +noHookList = Nothing + +hookListReadSeqId :: HookList -> IO Word64 +hookListReadSeqId s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Word64 + return val + +hookListReadHookSize :: HookList -> IO Word32 +hookListReadHookSize s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO Word32 + return val + +hookListReadIsSetup :: HookList -> IO Word32 +hookListReadIsSetup s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 12) :: IO Word32 + return val + +hookListReadHooks :: HookList -> IO Hook +hookListReadHooks s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 16) :: IO (Ptr Hook) + val' <- (newPtr 64 Hook) val + return val' + +hookListReadDummy3 :: HookList -> IO (Ptr ()) +hookListReadDummy3 s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 24) :: IO (Ptr ()) + return val + +-- XXX Skipped getter for "HookList:finalize_hook" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- XXX Skipped getter for "HookList:dummy" :: Not implemented: "Don't know how to unpack C array of type TCArray False 2 (-1) (TBasicType TVoid)" + +-- method HookList::clear +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_hook_list_clear" g_hook_list_clear :: + Ptr HookList -> -- _obj : TInterface "GLib" "HookList" + IO () + + +hookListClear :: + (MonadIO m) => + HookList -> -- _obj + m () +hookListClear _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_hook_list_clear _obj' + touchManagedPtr _obj + return () + +-- method HookList::init +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook_size", 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_hook_list_init" g_hook_list_init :: + Ptr HookList -> -- _obj : TInterface "GLib" "HookList" + Word32 -> -- hook_size : TBasicType TUInt32 + IO () + + +hookListInit :: + (MonadIO m) => + HookList -> -- _obj + Word32 -> -- hook_size + m () +hookListInit _obj hook_size = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_hook_list_init _obj' hook_size + touchManagedPtr _obj + return () + +-- method HookList::invoke +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "may_recurse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "may_recurse", 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_hook_list_invoke" g_hook_list_invoke :: + Ptr HookList -> -- _obj : TInterface "GLib" "HookList" + CInt -> -- may_recurse : TBasicType TBoolean + IO () + + +hookListInvoke :: + (MonadIO m) => + HookList -> -- _obj + Bool -> -- may_recurse + m () +hookListInvoke _obj may_recurse = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let may_recurse' = (fromIntegral . fromEnum) may_recurse + g_hook_list_invoke _obj' may_recurse' + touchManagedPtr _obj + return () + +-- method HookList::invoke_check +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "may_recurse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "may_recurse", 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_hook_list_invoke_check" g_hook_list_invoke_check :: + Ptr HookList -> -- _obj : TInterface "GLib" "HookList" + CInt -> -- may_recurse : TBasicType TBoolean + IO () + + +hookListInvokeCheck :: + (MonadIO m) => + HookList -> -- _obj + Bool -> -- may_recurse + m () +hookListInvokeCheck _obj may_recurse = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let may_recurse' = (fromIntegral . fromEnum) may_recurse + g_hook_list_invoke_check _obj' may_recurse' + touchManagedPtr _obj + return () + +-- callback HookMarshaller +hookMarshallerClosure :: HookMarshaller -> IO Closure +hookMarshallerClosure cb = newCClosure =<< mkHookMarshaller wrapped + where wrapped = hookMarshallerWrapper Nothing cb + +type HookMarshallerC = + Ptr Hook -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkHookMarshaller :: HookMarshallerC -> IO (FunPtr HookMarshallerC) + +type HookMarshaller = + Hook -> + Ptr () -> + IO () + +noHookMarshaller :: Maybe HookMarshaller +noHookMarshaller = Nothing + +hookMarshallerWrapper :: + Maybe (Ptr (FunPtr (HookMarshallerC))) -> + HookMarshaller -> + Ptr Hook -> + Ptr () -> + IO () +hookMarshallerWrapper funptrptr _cb hook marshal_data = do + hook' <- (newPtr 64 Hook) hook + _cb hook' marshal_data + maybeReleaseFunPtr funptrptr + +-- struct IConv +newtype IConv = IConv (ForeignPtr IConv) +noIConv :: Maybe IConv +noIConv = Nothing + +-- method IConv::close +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IConv", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IConv", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_iconv_close" g_iconv_close :: + Ptr IConv -> -- _obj : TInterface "GLib" "IConv" + IO Int32 + + +iConvClose :: + (MonadIO m) => + IConv -> -- _obj + m Int32 +iConvClose _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_iconv_close _obj' + touchManagedPtr _obj + return result + +-- struct IOChannel +newtype IOChannel = IOChannel (ForeignPtr IOChannel) +noIOChannel :: Maybe IOChannel +noIOChannel = Nothing + +foreign import ccall "g_io_channel_get_type" c_g_io_channel_get_type :: + IO GType + +instance BoxedObject IOChannel where + boxedType _ = c_g_io_channel_get_type + +-- method IOChannel::new_file +-- method type : Constructor +-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "IOChannel" +-- throws : True +-- Skip return : False + +foreign import ccall "g_io_channel_new_file" g_io_channel_new_file :: + CString -> -- filename : TBasicType TUTF8 + CString -> -- mode : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr IOChannel) + + +iOChannelNewFile :: + (MonadIO m) => + T.Text -> -- filename + T.Text -> -- mode + m IOChannel +iOChannelNewFile filename mode = liftIO $ do + filename' <- textToCString filename + mode' <- textToCString mode + onException (do + result <- propagateGError $ g_io_channel_new_file filename' mode' + checkUnexpectedReturnNULL "g_io_channel_new_file" result + result' <- (wrapBoxed IOChannel) result + freeMem filename' + freeMem mode' + return result' + ) (do + freeMem filename' + freeMem mode' + ) + +-- method IOChannel::unix_new +-- method type : Constructor +-- Args : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "IOChannel" +-- throws : False +-- Skip return : False + +foreign import ccall "g_io_channel_unix_new" g_io_channel_unix_new :: + Int32 -> -- fd : TBasicType TInt32 + IO (Ptr IOChannel) + + +iOChannelUnixNew :: + (MonadIO m) => + Int32 -> -- fd + m IOChannel +iOChannelUnixNew fd = liftIO $ do + result <- g_io_channel_unix_new fd + checkUnexpectedReturnNULL "g_io_channel_unix_new" result + result' <- (wrapBoxed IOChannel) result + return result' + +-- method IOChannel::close +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", 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_channel_close" g_io_channel_close :: + Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" + IO () + +{-# DEPRECATED iOChannelClose ["(Since version 2.2)","Use g_io_channel_shutdown() instead."]#-} +iOChannelClose :: + (MonadIO m) => + IOChannel -> -- _obj + m () +iOChannelClose _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_io_channel_close _obj' + touchManagedPtr _obj + return () + +-- method IOChannel::flush +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "IOStatus" +-- throws : True +-- Skip return : False + +foreign import ccall "g_io_channel_flush" g_io_channel_flush :: + Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" + Ptr (Ptr GError) -> -- error + IO CUInt + + +iOChannelFlush :: + (MonadIO m) => + IOChannel -> -- _obj + m IOStatus +iOChannelFlush _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + onException (do + result <- propagateGError $ g_io_channel_flush _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + ) (do + return () + ) + +-- method IOChannel::get_buffer_condition +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "IOCondition" +-- throws : False +-- Skip return : False + +foreign import ccall "g_io_channel_get_buffer_condition" g_io_channel_get_buffer_condition :: + Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" + IO CUInt + + +iOChannelGetBufferCondition :: + (MonadIO m) => + IOChannel -> -- _obj + m [IOCondition] +iOChannelGetBufferCondition _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_io_channel_get_buffer_condition _obj' + let result' = wordToGFlags result + touchManagedPtr _obj + return result' + +-- method IOChannel::get_buffer_size +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "g_io_channel_get_buffer_size" g_io_channel_get_buffer_size :: + Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" + IO Word64 + + +iOChannelGetBufferSize :: + (MonadIO m) => + IOChannel -> -- _obj + m Word64 +iOChannelGetBufferSize _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_io_channel_get_buffer_size _obj' + touchManagedPtr _obj + return result + +-- method IOChannel::get_buffered +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_io_channel_get_buffered" g_io_channel_get_buffered :: + Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" + IO CInt + + +iOChannelGetBuffered :: + (MonadIO m) => + IOChannel -> -- _obj + m Bool +iOChannelGetBuffered _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_io_channel_get_buffered _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method IOChannel::get_close_on_unref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_io_channel_get_close_on_unref" g_io_channel_get_close_on_unref :: + Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" + IO CInt + + +iOChannelGetCloseOnUnref :: + (MonadIO m) => + IOChannel -> -- _obj + m Bool +iOChannelGetCloseOnUnref _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_io_channel_get_close_on_unref _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method IOChannel::get_encoding +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_io_channel_get_encoding" g_io_channel_get_encoding :: + Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" + IO CString + + +iOChannelGetEncoding :: + (MonadIO m) => + IOChannel -> -- _obj + m T.Text +iOChannelGetEncoding _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_io_channel_get_encoding _obj' + checkUnexpectedReturnNULL "g_io_channel_get_encoding" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method IOChannel::get_flags +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "IOFlags" +-- throws : False +-- Skip return : False + +foreign import ccall "g_io_channel_get_flags" g_io_channel_get_flags :: + Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" + IO CUInt + + +iOChannelGetFlags :: + (MonadIO m) => + IOChannel -> -- _obj + m [IOFlags] +iOChannelGetFlags _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_io_channel_get_flags _obj' + let result' = wordToGFlags result + touchManagedPtr _obj + return result' + +-- method IOChannel::get_line_term +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_io_channel_get_line_term" g_io_channel_get_line_term :: + Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" + Int32 -> -- length : TBasicType TInt32 + IO CString + + +iOChannelGetLineTerm :: + (MonadIO m) => + IOChannel -> -- _obj + Int32 -> -- length + m T.Text +iOChannelGetLineTerm _obj length_ = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_io_channel_get_line_term _obj' length_ + checkUnexpectedReturnNULL "g_io_channel_get_line_term" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method IOChannel::init +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", 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_channel_init" g_io_channel_init :: + Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" + IO () + + +iOChannelInit :: + (MonadIO m) => + IOChannel -> -- _obj + m () +iOChannelInit _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_io_channel_init _obj' + touchManagedPtr _obj + return () + +-- method IOChannel::read +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf", argType = TBasicType TUTF8, 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 = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf", argType = TBasicType TUTF8, 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 = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "IOError" +-- throws : False +-- Skip return : False + +foreign import ccall "g_io_channel_read" g_io_channel_read :: + Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" + CString -> -- buf : TBasicType TUTF8 + Word64 -> -- count : TBasicType TUInt64 + Word64 -> -- bytes_read : TBasicType TUInt64 + IO CUInt + +{-# DEPRECATED iOChannelRead ["(Since version 2.2)","Use g_io_channel_read_chars() instead."]#-} +iOChannelRead :: + (MonadIO m) => + IOChannel -> -- _obj + T.Text -> -- buf + Word64 -> -- count + Word64 -> -- bytes_read + m IOError +iOChannelRead _obj buf count bytes_read = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + buf' <- textToCString buf + result <- g_io_channel_read _obj' buf' count bytes_read + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + freeMem buf' + return result' + +-- method IOChannel::read_line +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str_return", argType = TBasicType TUTF8, 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 = "terminator_pos", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "IOStatus" +-- throws : True +-- Skip return : False + +foreign import ccall "g_io_channel_read_line" g_io_channel_read_line :: + Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" + Ptr CString -> -- str_return : TBasicType TUTF8 + Ptr Word64 -> -- length : TBasicType TUInt64 + Ptr Word64 -> -- terminator_pos : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO CUInt + + +iOChannelReadLine :: + (MonadIO m) => + IOChannel -> -- _obj + m (IOStatus,T.Text,Word64,Word64) +iOChannelReadLine _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + str_return <- allocMem :: IO (Ptr CString) + length_ <- allocMem :: IO (Ptr Word64) + terminator_pos <- allocMem :: IO (Ptr Word64) + onException (do + result <- propagateGError $ g_io_channel_read_line _obj' str_return length_ terminator_pos + let result' = (toEnum . fromIntegral) result + str_return' <- peek str_return + str_return'' <- cstringToText str_return' + freeMem str_return' + length_' <- peek length_ + terminator_pos' <- peek terminator_pos + touchManagedPtr _obj + freeMem str_return + freeMem length_ + freeMem terminator_pos + return (result', str_return'', length_', terminator_pos') + ) (do + freeMem str_return + freeMem length_ + freeMem terminator_pos + ) + +-- method IOChannel::read_to_end +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str_return", argType = TCArray False (-1) 2 (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}] +-- 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 "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "IOStatus" +-- throws : True +-- Skip return : False + +foreign import ccall "g_io_channel_read_to_end" g_io_channel_read_to_end :: + Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" + Ptr (Ptr Word8) -> -- str_return : TCArray False (-1) 2 (TBasicType TUInt8) + Ptr Word64 -> -- length : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO CUInt + + +iOChannelReadToEnd :: + (MonadIO m) => + IOChannel -> -- _obj + m (IOStatus,ByteString) +iOChannelReadToEnd _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + str_return <- allocMem :: IO (Ptr (Ptr Word8)) + length_ <- allocMem :: IO (Ptr Word64) + onException (do + result <- propagateGError $ g_io_channel_read_to_end _obj' str_return length_ + length_' <- peek length_ + let result' = (toEnum . fromIntegral) result + str_return' <- peek str_return + str_return'' <- (unpackByteStringWithLength length_') str_return' + freeMem str_return' + touchManagedPtr _obj + freeMem str_return + freeMem length_ + return (result', str_return'') + ) (do + freeMem str_return + freeMem length_ + ) + +-- method IOChannel::read_unichar +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "thechar", argType = TBasicType TUniChar, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "IOStatus" +-- throws : True +-- Skip return : False + +foreign import ccall "g_io_channel_read_unichar" g_io_channel_read_unichar :: + Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" + Ptr CInt -> -- thechar : TBasicType TUniChar + Ptr (Ptr GError) -> -- error + IO CUInt + + +iOChannelReadUnichar :: + (MonadIO m) => + IOChannel -> -- _obj + m (IOStatus,Char) +iOChannelReadUnichar _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + thechar <- allocMem :: IO (Ptr CInt) + onException (do + result <- propagateGError $ g_io_channel_read_unichar _obj' thechar + let result' = (toEnum . fromIntegral) result + thechar' <- peek thechar + let thechar'' = (chr . fromIntegral) thechar' + touchManagedPtr _obj + freeMem thechar + return (result', thechar'') + ) (do + freeMem thechar + ) + +-- method IOChannel::ref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "IOChannel" +-- throws : False +-- Skip return : False + +foreign import ccall "g_io_channel_ref" g_io_channel_ref :: + Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" + IO (Ptr IOChannel) + + +iOChannelRef :: + (MonadIO m) => + IOChannel -> -- _obj + m IOChannel +iOChannelRef _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_io_channel_ref _obj' + checkUnexpectedReturnNULL "g_io_channel_ref" result + result' <- (wrapBoxed IOChannel) result + touchManagedPtr _obj + return result' + +-- method IOChannel::seek +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", 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}] +-- returnType : TInterface "GLib" "IOError" +-- throws : False +-- Skip return : False + +foreign import ccall "g_io_channel_seek" g_io_channel_seek :: + Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" + Int64 -> -- offset : TBasicType TInt64 + CUInt -> -- type : TInterface "GLib" "SeekType" + IO CUInt + +{-# DEPRECATED iOChannelSeek ["(Since version 2.2)","Use g_io_channel_seek_position() instead."]#-} +iOChannelSeek :: + (MonadIO m) => + IOChannel -> -- _obj + Int64 -> -- offset + SeekType -> -- type + m IOError +iOChannelSeek _obj offset type_ = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let type_' = (fromIntegral . fromEnum) type_ + result <- g_io_channel_seek _obj' offset type_' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +-- method IOChannel::seek_position +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", 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}] +-- returnType : TInterface "GLib" "IOStatus" +-- throws : True +-- Skip return : False + +foreign import ccall "g_io_channel_seek_position" g_io_channel_seek_position :: + Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" + Int64 -> -- offset : TBasicType TInt64 + CUInt -> -- type : TInterface "GLib" "SeekType" + Ptr (Ptr GError) -> -- error + IO CUInt + + +iOChannelSeekPosition :: + (MonadIO m) => + IOChannel -> -- _obj + Int64 -> -- offset + SeekType -> -- type + m IOStatus +iOChannelSeekPosition _obj offset type_ = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let type_' = (fromIntegral . fromEnum) type_ + onException (do + result <- propagateGError $ g_io_channel_seek_position _obj' offset type_' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + ) (do + return () + ) + +-- method IOChannel::set_buffer_size +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", 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 + +foreign import ccall "g_io_channel_set_buffer_size" g_io_channel_set_buffer_size :: + Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" + Word64 -> -- size : TBasicType TUInt64 + IO () + + +iOChannelSetBufferSize :: + (MonadIO m) => + IOChannel -> -- _obj + Word64 -> -- size + m () +iOChannelSetBufferSize _obj size = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_io_channel_set_buffer_size _obj' size + touchManagedPtr _obj + return () + +-- method IOChannel::set_buffered +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffered", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffered", 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_io_channel_set_buffered" g_io_channel_set_buffered :: + Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" + CInt -> -- buffered : TBasicType TBoolean + IO () + + +iOChannelSetBuffered :: + (MonadIO m) => + IOChannel -> -- _obj + Bool -> -- buffered + m () +iOChannelSetBuffered _obj buffered = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let buffered' = (fromIntegral . fromEnum) buffered + g_io_channel_set_buffered _obj' buffered' + touchManagedPtr _obj + return () + +-- method IOChannel::set_close_on_unref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "do_close", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "do_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_io_channel_set_close_on_unref" g_io_channel_set_close_on_unref :: + Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" + CInt -> -- do_close : TBasicType TBoolean + IO () + + +iOChannelSetCloseOnUnref :: + (MonadIO m) => + IOChannel -> -- _obj + Bool -> -- do_close + m () +iOChannelSetCloseOnUnref _obj do_close = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let do_close' = (fromIntegral . fromEnum) do_close + g_io_channel_set_close_on_unref _obj' do_close' + touchManagedPtr _obj + return () + +-- method IOChannel::set_encoding +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "IOStatus" +-- throws : True +-- Skip return : False + +foreign import ccall "g_io_channel_set_encoding" g_io_channel_set_encoding :: + Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" + CString -> -- encoding : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CUInt + + +iOChannelSetEncoding :: + (MonadIO m) => + IOChannel -> -- _obj + Maybe (T.Text) -> -- encoding + m IOStatus +iOChannelSetEncoding _obj encoding = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + maybeEncoding <- case encoding of + Nothing -> return nullPtr + Just jEncoding -> do + jEncoding' <- textToCString jEncoding + return jEncoding' + onException (do + result <- propagateGError $ g_io_channel_set_encoding _obj' maybeEncoding + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + freeMem maybeEncoding + return result' + ) (do + freeMem maybeEncoding + ) + +-- method IOChannel::set_flags +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "IOFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "IOFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "IOStatus" +-- throws : True +-- Skip return : False + +foreign import ccall "g_io_channel_set_flags" g_io_channel_set_flags :: + Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" + CUInt -> -- flags : TInterface "GLib" "IOFlags" + Ptr (Ptr GError) -> -- error + IO CUInt + + +iOChannelSetFlags :: + (MonadIO m) => + IOChannel -> -- _obj + [IOFlags] -> -- flags + m IOStatus +iOChannelSetFlags _obj flags = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let flags' = gflagsToWord flags + onException (do + result <- propagateGError $ g_io_channel_set_flags _obj' flags' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + ) (do + return () + ) + +-- method IOChannel::set_line_term +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_term", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_term", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", 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_io_channel_set_line_term" g_io_channel_set_line_term :: + Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" + CString -> -- line_term : TBasicType TUTF8 + Int32 -> -- length : TBasicType TInt32 + IO () + + +iOChannelSetLineTerm :: + (MonadIO m) => + IOChannel -> -- _obj + Maybe (T.Text) -> -- line_term + Int32 -> -- length + m () +iOChannelSetLineTerm _obj line_term length_ = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + maybeLine_term <- case line_term of + Nothing -> return nullPtr + Just jLine_term -> do + jLine_term' <- textToCString jLine_term + return jLine_term' + g_io_channel_set_line_term _obj' maybeLine_term length_ + touchManagedPtr _obj + freeMem maybeLine_term + return () + +-- method IOChannel::shutdown +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flush", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flush", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "IOStatus" +-- throws : True +-- Skip return : False + +foreign import ccall "g_io_channel_shutdown" g_io_channel_shutdown :: + Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" + CInt -> -- flush : TBasicType TBoolean + Ptr (Ptr GError) -> -- error + IO CUInt + + +iOChannelShutdown :: + (MonadIO m) => + IOChannel -> -- _obj + Bool -> -- flush + m IOStatus +iOChannelShutdown _obj flush = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let flush' = (fromIntegral . fromEnum) flush + onException (do + result <- propagateGError $ g_io_channel_shutdown _obj' flush' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + ) (do + return () + ) + +-- method IOChannel::unix_get_fd +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_io_channel_unix_get_fd" g_io_channel_unix_get_fd :: + Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" + IO Int32 + + +iOChannelUnixGetFd :: + (MonadIO m) => + IOChannel -> -- _obj + m Int32 +iOChannelUnixGetFd _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_io_channel_unix_get_fd _obj' + touchManagedPtr _obj + return result + +-- method IOChannel::unref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", 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_channel_unref" g_io_channel_unref :: + Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" + IO () + + +iOChannelUnref :: + (MonadIO m) => + IOChannel -> -- _obj + m () +iOChannelUnref _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_io_channel_unref _obj' + touchManagedPtr _obj + return () + +-- method IOChannel::write +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf", argType = TBasicType TUTF8, 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 = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf", argType = TBasicType TUTF8, 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 = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "IOError" +-- throws : False +-- Skip return : False + +foreign import ccall "g_io_channel_write" g_io_channel_write :: + Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" + CString -> -- buf : TBasicType TUTF8 + Word64 -> -- count : TBasicType TUInt64 + Word64 -> -- bytes_written : TBasicType TUInt64 + IO CUInt + +{-# DEPRECATED iOChannelWrite ["(Since version 2.2)","Use g_io_channel_write_chars() instead."]#-} +iOChannelWrite :: + (MonadIO m) => + IOChannel -> -- _obj + T.Text -> -- buf + Word64 -> -- count + Word64 -> -- bytes_written + m IOError +iOChannelWrite _obj buf count bytes_written = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + buf' <- textToCString buf + result <- g_io_channel_write _obj' buf' count bytes_written + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + freeMem buf' + return result' + +-- method IOChannel::write_chars +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf", argType = TCArray False (-1) (-1) (TBasicType TUInt8), 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 = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf", argType = TCArray False (-1) (-1) (TBasicType TUInt8), 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}] +-- returnType : TInterface "GLib" "IOStatus" +-- throws : True +-- Skip return : False + +foreign import ccall "g_io_channel_write_chars" g_io_channel_write_chars :: + Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" + Ptr Word8 -> -- buf : TCArray False (-1) (-1) (TBasicType TUInt8) + Int64 -> -- count : TBasicType TInt64 + Ptr Word64 -> -- bytes_written : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO CUInt + + +iOChannelWriteChars :: + (MonadIO m) => + IOChannel -> -- _obj + Ptr Word8 -> -- buf + Int64 -> -- count + m (IOStatus,Word64) +iOChannelWriteChars _obj buf count = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + bytes_written <- allocMem :: IO (Ptr Word64) + onException (do + result <- propagateGError $ g_io_channel_write_chars _obj' buf count bytes_written + let result' = (toEnum . fromIntegral) result + bytes_written' <- peek bytes_written + touchManagedPtr _obj + freeMem bytes_written + return (result', bytes_written') + ) (do + freeMem bytes_written + ) + +-- method IOChannel::write_unichar +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "thechar", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "thechar", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "IOStatus" +-- throws : True +-- Skip return : False + +foreign import ccall "g_io_channel_write_unichar" g_io_channel_write_unichar :: + Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" + CInt -> -- thechar : TBasicType TUniChar + Ptr (Ptr GError) -> -- error + IO CUInt + + +iOChannelWriteUnichar :: + (MonadIO m) => + IOChannel -> -- _obj + Char -> -- thechar + m IOStatus +iOChannelWriteUnichar _obj thechar = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let thechar' = (fromIntegral . ord) thechar + onException (do + result <- propagateGError $ g_io_channel_write_unichar _obj' thechar' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + ) (do + return () + ) + +-- Enum IOChannelError + +data IOChannelError = + IOChannelErrorFbig + | IOChannelErrorInval + | IOChannelErrorIo + | IOChannelErrorIsdir + | IOChannelErrorNospc + | IOChannelErrorNxio + | IOChannelErrorOverflow + | IOChannelErrorPipe + | IOChannelErrorFailed + | AnotherIOChannelError Int + deriving (Show, Eq) + +instance Enum IOChannelError where + fromEnum IOChannelErrorFbig = 0 + fromEnum IOChannelErrorInval = 1 + fromEnum IOChannelErrorIo = 2 + fromEnum IOChannelErrorIsdir = 3 + fromEnum IOChannelErrorNospc = 4 + fromEnum IOChannelErrorNxio = 5 + fromEnum IOChannelErrorOverflow = 6 + fromEnum IOChannelErrorPipe = 7 + fromEnum IOChannelErrorFailed = 8 + fromEnum (AnotherIOChannelError k) = k + + toEnum 0 = IOChannelErrorFbig + toEnum 1 = IOChannelErrorInval + toEnum 2 = IOChannelErrorIo + toEnum 3 = IOChannelErrorIsdir + toEnum 4 = IOChannelErrorNospc + toEnum 5 = IOChannelErrorNxio + toEnum 6 = IOChannelErrorOverflow + toEnum 7 = IOChannelErrorPipe + toEnum 8 = IOChannelErrorFailed + toEnum k = AnotherIOChannelError k + +instance GErrorClass IOChannelError where + gerrorClassDomain _ = "g-io-channel-error-quark" + +catchIOChannelError :: + IO a -> + (IOChannelError -> GErrorMessage -> IO a) -> + IO a +catchIOChannelError = catchGErrorJustDomain + +handleIOChannelError :: + (IOChannelError -> GErrorMessage -> IO a) -> + IO a -> + IO a +handleIOChannelError = handleGErrorJustDomain + +-- Flags IOCondition + +data IOCondition = + IOConditionIn + | IOConditionOut + | IOConditionPri + | IOConditionErr + | IOConditionHup + | IOConditionNval + | AnotherIOCondition Int + deriving (Show, Eq) + +instance Enum IOCondition where + fromEnum IOConditionIn = 1 + fromEnum IOConditionOut = 4 + fromEnum IOConditionPri = 2 + fromEnum IOConditionErr = 8 + fromEnum IOConditionHup = 16 + fromEnum IOConditionNval = 32 + fromEnum (AnotherIOCondition k) = k + + toEnum 1 = IOConditionIn + toEnum 2 = IOConditionPri + toEnum 4 = IOConditionOut + toEnum 8 = IOConditionErr + toEnum 16 = IOConditionHup + toEnum 32 = IOConditionNval + toEnum k = AnotherIOCondition k + +foreign import ccall "g_io_condition_get_type" c_g_io_condition_get_type :: + IO GType + +instance BoxedEnum IOCondition where + boxedEnumType _ = c_g_io_condition_get_type + +instance IsGFlag IOCondition + +-- Enum IOError + +data IOError = + IOErrorNone + | IOErrorAgain + | IOErrorInval + | IOErrorUnknown + | AnotherIOError Int + deriving (Show, Eq) + +instance Enum IOError where + fromEnum IOErrorNone = 0 + fromEnum IOErrorAgain = 1 + fromEnum IOErrorInval = 2 + fromEnum IOErrorUnknown = 3 + fromEnum (AnotherIOError k) = k + + toEnum 0 = IOErrorNone + toEnum 1 = IOErrorAgain + toEnum 2 = IOErrorInval + toEnum 3 = IOErrorUnknown + toEnum k = AnotherIOError k + +-- Flags IOFlags + +data IOFlags = + IOFlagsAppend + | IOFlagsNonblock + | IOFlagsIsReadable + | IOFlagsIsWritable + | IOFlagsIsWriteable + | IOFlagsIsSeekable + | IOFlagsMask + | IOFlagsGetMask + | IOFlagsSetMask + | AnotherIOFlags Int + deriving (Show, Eq) + +instance Enum IOFlags where + fromEnum IOFlagsAppend = 1 + fromEnum IOFlagsNonblock = 2 + fromEnum IOFlagsIsReadable = 4 + fromEnum IOFlagsIsWritable = 8 + fromEnum IOFlagsIsWriteable = 8 + fromEnum IOFlagsIsSeekable = 16 + fromEnum IOFlagsMask = 31 + fromEnum IOFlagsGetMask = 31 + fromEnum IOFlagsSetMask = 3 + fromEnum (AnotherIOFlags k) = k + + toEnum 1 = IOFlagsAppend + toEnum 2 = IOFlagsNonblock + toEnum 3 = IOFlagsSetMask + toEnum 4 = IOFlagsIsReadable + toEnum 8 = IOFlagsIsWritable + toEnum 16 = IOFlagsIsSeekable + toEnum 31 = IOFlagsMask + toEnum k = AnotherIOFlags k + +instance IsGFlag IOFlags + +-- callback IOFunc +iOFuncClosure :: IOFunc -> IO Closure +iOFuncClosure cb = newCClosure =<< mkIOFunc wrapped + where wrapped = iOFuncWrapper Nothing cb + +type IOFuncC = + Ptr IOChannel -> + CUInt -> + Ptr () -> + IO CInt + +foreign import ccall "wrapper" + mkIOFunc :: IOFuncC -> IO (FunPtr IOFuncC) + +type IOFunc = + IOChannel -> + [IOCondition] -> + Ptr () -> + IO Bool + +noIOFunc :: Maybe IOFunc +noIOFunc = Nothing + +iOFuncWrapper :: + Maybe (Ptr (FunPtr (IOFuncC))) -> + IOFunc -> + Ptr IOChannel -> + CUInt -> + Ptr () -> + IO CInt +iOFuncWrapper funptrptr _cb source condition data_ = do + source' <- (newBoxed IOChannel) source + let condition' = wordToGFlags condition + result <- _cb source' condition' data_ + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- struct IOFuncs +newtype IOFuncs = IOFuncs (ForeignPtr IOFuncs) +noIOFuncs :: Maybe IOFuncs +noIOFuncs = Nothing + +-- XXX Skipped getter for "IOFuncs:io_read" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- XXX Skipped getter for "IOFuncs:io_write" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- XXX Skipped getter for "IOFuncs:io_seek" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- XXX Skipped getter for "IOFuncs:io_close" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- XXX Skipped getter for "IOFuncs:io_create_watch" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- XXX Skipped getter for "IOFuncs:io_free" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- XXX Skipped getter for "IOFuncs:io_set_flags" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- XXX Skipped getter for "IOFuncs:io_get_flags" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- Enum IOStatus + +data IOStatus = + IOStatusError + | IOStatusNormal + | IOStatusEof + | IOStatusAgain + | AnotherIOStatus Int + deriving (Show, Eq) + +instance Enum IOStatus where + fromEnum IOStatusError = 0 + fromEnum IOStatusNormal = 1 + fromEnum IOStatusEof = 2 + fromEnum IOStatusAgain = 3 + fromEnum (AnotherIOStatus k) = k + + toEnum 0 = IOStatusError + toEnum 1 = IOStatusNormal + toEnum 2 = IOStatusEof + toEnum 3 = IOStatusAgain + toEnum k = AnotherIOStatus k + +-- struct KeyFile +newtype KeyFile = KeyFile (ForeignPtr KeyFile) +noKeyFile :: Maybe KeyFile +noKeyFile = Nothing + +foreign import ccall "g_key_file_get_type" c_g_key_file_get_type :: + IO GType + +instance BoxedObject KeyFile where + boxedType _ = c_g_key_file_get_type + +-- method KeyFile::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "GLib" "KeyFile" +-- throws : False +-- Skip return : False + +foreign import ccall "g_key_file_new" g_key_file_new :: + IO (Ptr KeyFile) + + +keyFileNew :: + (MonadIO m) => + m KeyFile +keyFileNew = liftIO $ do + result <- g_key_file_new + checkUnexpectedReturnNULL "g_key_file_new" result + result' <- (wrapBoxed KeyFile) result + return result' + +-- method KeyFile::get_boolean +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 : True +-- Skip return : False + +foreign import ccall "g_key_file_get_boolean" g_key_file_get_boolean :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + + +keyFileGetBoolean :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + T.Text -> -- key + m () +keyFileGetBoolean _obj group_name key = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + key' <- textToCString key + onException (do + _ <- propagateGError $ g_key_file_get_boolean _obj' group_name' key' + touchManagedPtr _obj + freeMem group_name' + freeMem key' + return () + ) (do + freeMem group_name' + freeMem key' + ) + +-- method KeyFile::get_boolean_list +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "length", argType = TBasicType TUInt64, 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 "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 False (-1) 3 (TBasicType TBoolean) +-- throws : True +-- Skip return : False + +foreign import ccall "g_key_file_get_boolean_list" g_key_file_get_boolean_list :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + Ptr Word64 -> -- length : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO (Ptr CInt) + + +keyFileGetBooleanList :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + T.Text -> -- key + m [Bool] +keyFileGetBooleanList _obj group_name key = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + key' <- textToCString key + length_ <- allocMem :: IO (Ptr Word64) + onException (do + result <- propagateGError $ g_key_file_get_boolean_list _obj' group_name' key' length_ + length_' <- peek length_ + checkUnexpectedReturnNULL "g_key_file_get_boolean_list" result + result' <- (unpackMapStorableArrayWithLength (/= 0) length_') result + freeMem result + touchManagedPtr _obj + freeMem group_name' + freeMem key' + freeMem length_ + return result' + ) (do + freeMem group_name' + freeMem key' + freeMem length_ + ) + +-- method KeyFile::get_comment +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 : True +-- Skip return : False + +foreign import ccall "g_key_file_get_comment" g_key_file_get_comment :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CString + + +keyFileGetComment :: + (MonadIO m) => + KeyFile -> -- _obj + Maybe (T.Text) -> -- group_name + T.Text -> -- key + m T.Text +keyFileGetComment _obj group_name key = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + maybeGroup_name <- case group_name of + Nothing -> return nullPtr + Just jGroup_name -> do + jGroup_name' <- textToCString jGroup_name + return jGroup_name' + key' <- textToCString key + onException (do + result <- propagateGError $ g_key_file_get_comment _obj' maybeGroup_name key' + checkUnexpectedReturnNULL "g_key_file_get_comment" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem maybeGroup_name + freeMem key' + return result' + ) (do + freeMem maybeGroup_name + freeMem key' + ) + +-- method KeyFile::get_double +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 : True +-- Skip return : False + +foreign import ccall "g_key_file_get_double" g_key_file_get_double :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CDouble + + +keyFileGetDouble :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + T.Text -> -- key + m Double +keyFileGetDouble _obj group_name key = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + key' <- textToCString key + onException (do + result <- propagateGError $ g_key_file_get_double _obj' group_name' key' + let result' = realToFrac result + touchManagedPtr _obj + freeMem group_name' + freeMem key' + return result' + ) (do + freeMem group_name' + freeMem key' + ) + +-- method KeyFile::get_double_list +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "length", argType = TBasicType TUInt64, 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 "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 False (-1) 3 (TBasicType TDouble) +-- throws : True +-- Skip return : False + +foreign import ccall "g_key_file_get_double_list" g_key_file_get_double_list :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + Ptr Word64 -> -- length : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO (Ptr CDouble) + + +keyFileGetDoubleList :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + T.Text -> -- key + m [Double] +keyFileGetDoubleList _obj group_name key = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + key' <- textToCString key + length_ <- allocMem :: IO (Ptr Word64) + onException (do + result <- propagateGError $ g_key_file_get_double_list _obj' group_name' key' length_ + length_' <- peek length_ + checkUnexpectedReturnNULL "g_key_file_get_double_list" result + result' <- (unpackMapStorableArrayWithLength realToFrac length_') result + freeMem result + touchManagedPtr _obj + freeMem group_name' + freeMem key' + freeMem length_ + return result' + ) (do + freeMem group_name' + freeMem key' + freeMem length_ + ) + +-- method KeyFile::get_groups +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", 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_key_file_get_groups" g_key_file_get_groups :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + Ptr Word64 -> -- length : TBasicType TUInt64 + IO (Ptr CString) + + +keyFileGetGroups :: + (MonadIO m) => + KeyFile -> -- _obj + m ([T.Text],Word64) +keyFileGetGroups _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + length_ <- allocMem :: IO (Ptr Word64) + result <- g_key_file_get_groups _obj' length_ + checkUnexpectedReturnNULL "g_key_file_get_groups" result + result' <- unpackZeroTerminatedUTF8CArray result + mapZeroTerminatedCArray freeMem result + freeMem result + length_' <- peek length_ + touchManagedPtr _obj + freeMem length_ + return (result', length_') + +-- method KeyFile::get_int64 +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 TInt64 +-- throws : True +-- Skip return : False + +foreign import ccall "g_key_file_get_int64" g_key_file_get_int64 :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO Int64 + + +keyFileGetInt64 :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + T.Text -> -- key + m Int64 +keyFileGetInt64 _obj group_name key = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + key' <- textToCString key + onException (do + result <- propagateGError $ g_key_file_get_int64 _obj' group_name' key' + touchManagedPtr _obj + freeMem group_name' + freeMem key' + return result + ) (do + freeMem group_name' + freeMem key' + ) + +-- method KeyFile::get_integer +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 : True +-- Skip return : False + +foreign import ccall "g_key_file_get_integer" g_key_file_get_integer :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO Int32 + + +keyFileGetInteger :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + T.Text -> -- key + m Int32 +keyFileGetInteger _obj group_name key = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + key' <- textToCString key + onException (do + result <- propagateGError $ g_key_file_get_integer _obj' group_name' key' + touchManagedPtr _obj + freeMem group_name' + freeMem key' + return result + ) (do + freeMem group_name' + freeMem key' + ) + +-- method KeyFile::get_integer_list +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "length", argType = TBasicType TUInt64, 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 "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 False (-1) 3 (TBasicType TInt32) +-- throws : True +-- Skip return : False + +foreign import ccall "g_key_file_get_integer_list" g_key_file_get_integer_list :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + Ptr Word64 -> -- length : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO (Ptr Int32) + + +keyFileGetIntegerList :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + T.Text -> -- key + m [Int32] +keyFileGetIntegerList _obj group_name key = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + key' <- textToCString key + length_ <- allocMem :: IO (Ptr Word64) + onException (do + result <- propagateGError $ g_key_file_get_integer_list _obj' group_name' key' length_ + length_' <- peek length_ + checkUnexpectedReturnNULL "g_key_file_get_integer_list" result + result' <- (unpackStorableArrayWithLength length_') result + freeMem result + touchManagedPtr _obj + freeMem group_name' + freeMem key' + freeMem length_ + return result' + ) (do + freeMem group_name' + freeMem key' + freeMem length_ + ) + +-- method KeyFile::get_keys +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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_key_file_get_keys" g_key_file_get_keys :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + Ptr Word64 -> -- length : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO (Ptr CString) + + +keyFileGetKeys :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + m ([T.Text],Word64) +keyFileGetKeys _obj group_name = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + length_ <- allocMem :: IO (Ptr Word64) + onException (do + result <- propagateGError $ g_key_file_get_keys _obj' group_name' length_ + checkUnexpectedReturnNULL "g_key_file_get_keys" result + result' <- unpackZeroTerminatedUTF8CArray result + mapZeroTerminatedCArray freeMem result + freeMem result + length_' <- peek length_ + touchManagedPtr _obj + freeMem group_name' + freeMem length_ + return (result', length_') + ) (do + freeMem group_name' + freeMem length_ + ) + +-- method KeyFile::get_locale_string +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "g_key_file_get_locale_string" g_key_file_get_locale_string :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + CString -> -- locale : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CString + + +keyFileGetLocaleString :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + T.Text -> -- key + Maybe (T.Text) -> -- locale + m T.Text +keyFileGetLocaleString _obj group_name key locale = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + key' <- textToCString key + maybeLocale <- case locale of + Nothing -> return nullPtr + Just jLocale -> do + jLocale' <- textToCString jLocale + return jLocale' + onException (do + result <- propagateGError $ g_key_file_get_locale_string _obj' group_name' key' maybeLocale + checkUnexpectedReturnNULL "g_key_file_get_locale_string" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem group_name' + freeMem key' + freeMem maybeLocale + return result' + ) (do + freeMem group_name' + freeMem key' + freeMem maybeLocale + ) + +-- method KeyFile::get_locale_string_list +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TCArray True (-1) 4 (TBasicType TUTF8) +-- throws : True +-- Skip return : False + +foreign import ccall "g_key_file_get_locale_string_list" g_key_file_get_locale_string_list :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + CString -> -- locale : TBasicType TUTF8 + Ptr Word64 -> -- length : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO (Ptr CString) + + +keyFileGetLocaleStringList :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + T.Text -> -- key + Maybe (T.Text) -> -- locale + m ([T.Text],Word64) +keyFileGetLocaleStringList _obj group_name key locale = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + key' <- textToCString key + maybeLocale <- case locale of + Nothing -> return nullPtr + Just jLocale -> do + jLocale' <- textToCString jLocale + return jLocale' + length_ <- allocMem :: IO (Ptr Word64) + onException (do + result <- propagateGError $ g_key_file_get_locale_string_list _obj' group_name' key' maybeLocale length_ + checkUnexpectedReturnNULL "g_key_file_get_locale_string_list" result + result' <- unpackZeroTerminatedUTF8CArray result + mapZeroTerminatedCArray freeMem result + freeMem result + length_' <- peek length_ + touchManagedPtr _obj + freeMem group_name' + freeMem key' + freeMem maybeLocale + freeMem length_ + return (result', length_') + ) (do + freeMem group_name' + freeMem key' + freeMem maybeLocale + freeMem length_ + ) + +-- method KeyFile::get_start_group +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_key_file_get_start_group" g_key_file_get_start_group :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + IO CString + + +keyFileGetStartGroup :: + (MonadIO m) => + KeyFile -> -- _obj + m T.Text +keyFileGetStartGroup _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_key_file_get_start_group _obj' + checkUnexpectedReturnNULL "g_key_file_get_start_group" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method KeyFile::get_string +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 : True +-- Skip return : False + +foreign import ccall "g_key_file_get_string" g_key_file_get_string :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CString + + +keyFileGetString :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + T.Text -> -- key + m T.Text +keyFileGetString _obj group_name key = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + key' <- textToCString key + onException (do + result <- propagateGError $ g_key_file_get_string _obj' group_name' key' + checkUnexpectedReturnNULL "g_key_file_get_string" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem group_name' + freeMem key' + return result' + ) (do + freeMem group_name' + freeMem key' + ) + +-- method KeyFile::get_string_list +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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) 3 (TBasicType TUTF8) +-- throws : True +-- Skip return : False + +foreign import ccall "g_key_file_get_string_list" g_key_file_get_string_list :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + Ptr Word64 -> -- length : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO (Ptr CString) + + +keyFileGetStringList :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + T.Text -> -- key + m ([T.Text],Word64) +keyFileGetStringList _obj group_name key = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + key' <- textToCString key + length_ <- allocMem :: IO (Ptr Word64) + onException (do + result <- propagateGError $ g_key_file_get_string_list _obj' group_name' key' length_ + checkUnexpectedReturnNULL "g_key_file_get_string_list" result + result' <- unpackZeroTerminatedUTF8CArray result + mapZeroTerminatedCArray freeMem result + freeMem result + length_' <- peek length_ + touchManagedPtr _obj + freeMem group_name' + freeMem key' + freeMem length_ + return (result', length_') + ) (do + freeMem group_name' + freeMem key' + freeMem length_ + ) + +-- method KeyFile::get_uint64 +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 TUInt64 +-- throws : True +-- Skip return : False + +foreign import ccall "g_key_file_get_uint64" g_key_file_get_uint64 :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO Word64 + + +keyFileGetUint64 :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + T.Text -> -- key + m Word64 +keyFileGetUint64 _obj group_name key = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + key' <- textToCString key + onException (do + result <- propagateGError $ g_key_file_get_uint64 _obj' group_name' key' + touchManagedPtr _obj + freeMem group_name' + freeMem key' + return result + ) (do + freeMem group_name' + freeMem key' + ) + +-- method KeyFile::get_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 : True +-- Skip return : False + +foreign import ccall "g_key_file_get_value" g_key_file_get_value :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CString + + +keyFileGetValue :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + T.Text -> -- key + m T.Text +keyFileGetValue _obj group_name key = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + key' <- textToCString key + onException (do + result <- propagateGError $ g_key_file_get_value _obj' group_name' key' + checkUnexpectedReturnNULL "g_key_file_get_value" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem group_name' + freeMem key' + return result' + ) (do + freeMem group_name' + freeMem key' + ) + +-- method KeyFile::has_group +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_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_key_file_has_group" g_key_file_has_group :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + IO CInt + + +keyFileHasGroup :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + m Bool +keyFileHasGroup _obj group_name = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + result <- g_key_file_has_group _obj' group_name' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem group_name' + return result' + +-- method KeyFile::load_from_data +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, 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 = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, 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 = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_key_file_load_from_data" g_key_file_load_from_data :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- data : TBasicType TUTF8 + Word64 -> -- length : TBasicType TUInt64 + CUInt -> -- flags : TInterface "GLib" "KeyFileFlags" + Ptr (Ptr GError) -> -- error + IO CInt + + +keyFileLoadFromData :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- data + Word64 -> -- length + [KeyFileFlags] -> -- flags + m () +keyFileLoadFromData _obj data_ length_ flags = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + data_' <- textToCString data_ + let flags' = gflagsToWord flags + onException (do + _ <- propagateGError $ g_key_file_load_from_data _obj' data_' length_ flags' + touchManagedPtr _obj + freeMem data_' + return () + ) (do + freeMem data_' + ) + +-- method KeyFile::load_from_data_dirs +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "full_path", argType = TBasicType TFileName, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_key_file_load_from_data_dirs" g_key_file_load_from_data_dirs :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- file : TBasicType TFileName + Ptr CString -> -- full_path : TBasicType TFileName + CUInt -> -- flags : TInterface "GLib" "KeyFileFlags" + Ptr (Ptr GError) -> -- error + IO CInt + + +keyFileLoadFromDataDirs :: + (MonadIO m) => + KeyFile -> -- _obj + [Char] -> -- file + [KeyFileFlags] -> -- flags + m ([Char]) +keyFileLoadFromDataDirs _obj file flags = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + file' <- stringToCString file + full_path <- allocMem :: IO (Ptr CString) + let flags' = gflagsToWord flags + onException (do + _ <- propagateGError $ g_key_file_load_from_data_dirs _obj' file' full_path flags' + full_path' <- peek full_path + full_path'' <- cstringToString full_path' + freeMem full_path' + touchManagedPtr _obj + freeMem file' + freeMem full_path + return full_path'' + ) (do + freeMem file' + freeMem full_path + ) + +-- method KeyFile::load_from_dirs +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_dirs", argType = TCArray True (-1) (-1) (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "full_path", argType = TBasicType TFileName, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_dirs", argType = TCArray True (-1) (-1) (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_key_file_load_from_dirs" g_key_file_load_from_dirs :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- file : TBasicType TFileName + Ptr CString -> -- search_dirs : TCArray True (-1) (-1) (TBasicType TFileName) + Ptr CString -> -- full_path : TBasicType TFileName + CUInt -> -- flags : TInterface "GLib" "KeyFileFlags" + Ptr (Ptr GError) -> -- error + IO CInt + + +keyFileLoadFromDirs :: + (MonadIO m) => + KeyFile -> -- _obj + [Char] -> -- file + [[Char]] -> -- search_dirs + [KeyFileFlags] -> -- flags + m ([Char]) +keyFileLoadFromDirs _obj file search_dirs flags = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + file' <- stringToCString file + search_dirs' <- packZeroTerminatedFileNameArray search_dirs + full_path <- allocMem :: IO (Ptr CString) + let flags' = gflagsToWord flags + onException (do + _ <- propagateGError $ g_key_file_load_from_dirs _obj' file' search_dirs' full_path flags' + full_path' <- peek full_path + full_path'' <- cstringToString full_path' + freeMem full_path' + touchManagedPtr _obj + freeMem file' + mapZeroTerminatedCArray freeMem search_dirs' + freeMem search_dirs' + freeMem full_path + return full_path'' + ) (do + freeMem file' + mapZeroTerminatedCArray freeMem search_dirs' + freeMem search_dirs' + freeMem full_path + ) + +-- method KeyFile::load_from_file +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_key_file_load_from_file" g_key_file_load_from_file :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- file : TBasicType TFileName + CUInt -> -- flags : TInterface "GLib" "KeyFileFlags" + Ptr (Ptr GError) -> -- error + IO CInt + + +keyFileLoadFromFile :: + (MonadIO m) => + KeyFile -> -- _obj + [Char] -> -- file + [KeyFileFlags] -> -- flags + m () +keyFileLoadFromFile _obj file flags = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + file' <- stringToCString file + let flags' = gflagsToWord flags + onException (do + _ <- propagateGError $ g_key_file_load_from_file _obj' file' flags' + touchManagedPtr _obj + freeMem file' + return () + ) (do + freeMem file' + ) + +-- method KeyFile::remove_comment +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_key_file_remove_comment" g_key_file_remove_comment :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + + +keyFileRemoveComment :: + (MonadIO m) => + KeyFile -> -- _obj + Maybe (T.Text) -> -- group_name + Maybe (T.Text) -> -- key + m () +keyFileRemoveComment _obj group_name key = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + maybeGroup_name <- case group_name of + Nothing -> return nullPtr + Just jGroup_name -> do + jGroup_name' <- textToCString jGroup_name + return jGroup_name' + maybeKey <- case key of + Nothing -> return nullPtr + Just jKey -> do + jKey' <- textToCString jKey + return jKey' + onException (do + _ <- propagateGError $ g_key_file_remove_comment _obj' maybeGroup_name maybeKey + touchManagedPtr _obj + freeMem maybeGroup_name + freeMem maybeKey + return () + ) (do + freeMem maybeGroup_name + freeMem maybeKey + ) + +-- method KeyFile::remove_group +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_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_key_file_remove_group" g_key_file_remove_group :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + + +keyFileRemoveGroup :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + m () +keyFileRemoveGroup _obj group_name = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + onException (do + _ <- propagateGError $ g_key_file_remove_group _obj' group_name' + touchManagedPtr _obj + freeMem group_name' + return () + ) (do + freeMem group_name' + ) + +-- method KeyFile::remove_key +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 : True +-- Skip return : False + +foreign import ccall "g_key_file_remove_key" g_key_file_remove_key :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + + +keyFileRemoveKey :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + T.Text -> -- key + m () +keyFileRemoveKey _obj group_name key = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + key' <- textToCString key + onException (do + _ <- propagateGError $ g_key_file_remove_key _obj' group_name' key' + touchManagedPtr _obj + freeMem group_name' + freeMem key' + return () + ) (do + freeMem group_name' + freeMem key' + ) + +-- method KeyFile::save_to_file +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", 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_key_file_save_to_file" g_key_file_save_to_file :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- filename : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + + +keyFileSaveToFile :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- filename + m () +keyFileSaveToFile _obj filename = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + filename' <- textToCString filename + onException (do + _ <- propagateGError $ g_key_file_save_to_file _obj' filename' + touchManagedPtr _obj + freeMem filename' + return () + ) (do + freeMem filename' + ) + +-- method KeyFile::set_boolean +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_key_file_set_boolean" g_key_file_set_boolean :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + CInt -> -- value : TBasicType TBoolean + IO () + + +keyFileSetBoolean :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + T.Text -> -- key + Bool -> -- value + m () +keyFileSetBoolean _obj group_name key value = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + key' <- textToCString key + let value' = (fromIntegral . fromEnum) value + g_key_file_set_boolean _obj' group_name' key' value' + touchManagedPtr _obj + freeMem group_name' + freeMem key' + return () + +-- method KeyFile::set_boolean_list +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "list", argType = TCArray False (-1) 4 (TBasicType TBoolean), 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}] +-- 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 "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "list", argType = TCArray False (-1) 4 (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_key_file_set_boolean_list" g_key_file_set_boolean_list :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + Ptr CInt -> -- list : TCArray False (-1) 4 (TBasicType TBoolean) + Word64 -> -- length : TBasicType TUInt64 + IO () + + +keyFileSetBooleanList :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + T.Text -> -- key + [Bool] -> -- list + m () +keyFileSetBooleanList _obj group_name key list = liftIO $ do + let length_ = fromIntegral $ length list + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + key' <- textToCString key + list' <- (packMapStorableArray (fromIntegral . fromEnum)) list + g_key_file_set_boolean_list _obj' group_name' key' list' length_ + touchManagedPtr _obj + freeMem group_name' + freeMem key' + freeMem list' + return () + +-- method KeyFile::set_comment +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "comment", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "comment", 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_key_file_set_comment" g_key_file_set_comment :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + CString -> -- comment : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + + +keyFileSetComment :: + (MonadIO m) => + KeyFile -> -- _obj + Maybe (T.Text) -> -- group_name + Maybe (T.Text) -> -- key + T.Text -> -- comment + m () +keyFileSetComment _obj group_name key comment = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + maybeGroup_name <- case group_name of + Nothing -> return nullPtr + Just jGroup_name -> do + jGroup_name' <- textToCString jGroup_name + return jGroup_name' + maybeKey <- case key of + Nothing -> return nullPtr + Just jKey -> do + jKey' <- textToCString jKey + return jKey' + comment' <- textToCString comment + onException (do + _ <- propagateGError $ g_key_file_set_comment _obj' maybeGroup_name maybeKey comment' + touchManagedPtr _obj + freeMem maybeGroup_name + freeMem maybeKey + freeMem comment' + return () + ) (do + freeMem maybeGroup_name + freeMem maybeKey + freeMem comment' + ) + +-- method KeyFile::set_double +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_key_file_set_double" g_key_file_set_double :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + CDouble -> -- value : TBasicType TDouble + IO () + + +keyFileSetDouble :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + T.Text -> -- key + Double -> -- value + m () +keyFileSetDouble _obj group_name key value = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + key' <- textToCString key + let value' = realToFrac value + g_key_file_set_double _obj' group_name' key' value' + touchManagedPtr _obj + freeMem group_name' + freeMem key' + return () + +-- method KeyFile::set_double_list +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "list", argType = TCArray False (-1) 4 (TBasicType TDouble), 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}] +-- 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 "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "list", argType = TCArray False (-1) 4 (TBasicType TDouble), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_key_file_set_double_list" g_key_file_set_double_list :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + Ptr CDouble -> -- list : TCArray False (-1) 4 (TBasicType TDouble) + Word64 -> -- length : TBasicType TUInt64 + IO () + + +keyFileSetDoubleList :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + T.Text -> -- key + [Double] -> -- list + m () +keyFileSetDoubleList _obj group_name key list = liftIO $ do + let length_ = fromIntegral $ length list + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + key' <- textToCString key + list' <- (packMapStorableArray realToFrac) list + g_key_file_set_double_list _obj' group_name' key' list' length_ + touchManagedPtr _obj + freeMem group_name' + freeMem key' + freeMem list' + return () + +-- method KeyFile::set_int64 +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 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_key_file_set_int64" g_key_file_set_int64 :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + Int64 -> -- value : TBasicType TInt64 + IO () + + +keyFileSetInt64 :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + T.Text -> -- key + Int64 -> -- value + m () +keyFileSetInt64 _obj group_name key value = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + key' <- textToCString key + g_key_file_set_int64 _obj' group_name' key' value + touchManagedPtr _obj + freeMem group_name' + freeMem key' + return () + +-- method KeyFile::set_integer +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_key_file_set_integer" g_key_file_set_integer :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + Int32 -> -- value : TBasicType TInt32 + IO () + + +keyFileSetInteger :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + T.Text -> -- key + Int32 -> -- value + m () +keyFileSetInteger _obj group_name key value = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + key' <- textToCString key + g_key_file_set_integer _obj' group_name' key' value + touchManagedPtr _obj + freeMem group_name' + freeMem key' + return () + +-- method KeyFile::set_integer_list +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "list", argType = TCArray False (-1) 4 (TBasicType TInt32), 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}] +-- 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 "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "list", argType = TCArray False (-1) 4 (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_key_file_set_integer_list" g_key_file_set_integer_list :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + Ptr Int32 -> -- list : TCArray False (-1) 4 (TBasicType TInt32) + Word64 -> -- length : TBasicType TUInt64 + IO () + + +keyFileSetIntegerList :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + T.Text -> -- key + [Int32] -> -- list + m () +keyFileSetIntegerList _obj group_name key list = liftIO $ do + let length_ = fromIntegral $ length list + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + key' <- textToCString key + list' <- packStorableArray list + g_key_file_set_integer_list _obj' group_name' key' list' length_ + touchManagedPtr _obj + freeMem group_name' + freeMem key' + freeMem list' + return () + +-- method KeyFile::set_list_separator +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "separator", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "separator", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_key_file_set_list_separator" g_key_file_set_list_separator :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + Int8 -> -- separator : TBasicType TInt8 + IO () + + +keyFileSetListSeparator :: + (MonadIO m) => + KeyFile -> -- _obj + Int8 -> -- separator + m () +keyFileSetListSeparator _obj separator = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_key_file_set_list_separator _obj' separator + touchManagedPtr _obj + return () + +-- method KeyFile::set_locale_string +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", 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_key_file_set_locale_string" g_key_file_set_locale_string :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + CString -> -- locale : TBasicType TUTF8 + CString -> -- string : TBasicType TUTF8 + IO () + + +keyFileSetLocaleString :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + T.Text -> -- key + T.Text -> -- locale + T.Text -> -- string + m () +keyFileSetLocaleString _obj group_name key locale string = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + key' <- textToCString key + locale' <- textToCString locale + string' <- textToCString string + g_key_file_set_locale_string _obj' group_name' key' locale' string' + touchManagedPtr _obj + freeMem group_name' + freeMem key' + freeMem locale' + freeMem string' + return () + +-- method KeyFile::set_locale_string_list +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TCArray True (-1) 5 (TBasicType TUTF8), 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TCArray True (-1) 5 (TBasicType TUTF8), 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}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_key_file_set_locale_string_list" g_key_file_set_locale_string_list :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + CString -> -- locale : TBasicType TUTF8 + Ptr CString -> -- list : TCArray True (-1) 5 (TBasicType TUTF8) + Word64 -> -- length : TBasicType TUInt64 + IO () + + +keyFileSetLocaleStringList :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + T.Text -> -- key + T.Text -> -- locale + [T.Text] -> -- list + Word64 -> -- length + m () +keyFileSetLocaleStringList _obj group_name key locale list length_ = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + key' <- textToCString key + locale' <- textToCString locale + list' <- packZeroTerminatedUTF8CArray list + g_key_file_set_locale_string_list _obj' group_name' key' locale' list' length_ + touchManagedPtr _obj + freeMem group_name' + freeMem key' + freeMem locale' + mapZeroTerminatedCArray freeMem list' + freeMem list' + return () + +-- method KeyFile::set_string +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "string", 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_key_file_set_string" g_key_file_set_string :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + CString -> -- string : TBasicType TUTF8 + IO () + + +keyFileSetString :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + T.Text -> -- key + T.Text -> -- string + m () +keyFileSetString _obj group_name key string = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + key' <- textToCString key + string' <- textToCString string + g_key_file_set_string _obj' group_name' key' string' + touchManagedPtr _obj + freeMem group_name' + freeMem key' + freeMem string' + return () + +-- method KeyFile::set_string_list +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "list", argType = TCArray True (-1) 4 (TBasicType TUTF8), 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "list", argType = TCArray True (-1) 4 (TBasicType TUTF8), 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}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_key_file_set_string_list" g_key_file_set_string_list :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + Ptr CString -> -- list : TCArray True (-1) 4 (TBasicType TUTF8) + Word64 -> -- length : TBasicType TUInt64 + IO () + + +keyFileSetStringList :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + T.Text -> -- key + [T.Text] -> -- list + Word64 -> -- length + m () +keyFileSetStringList _obj group_name key list length_ = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + key' <- textToCString key + list' <- packZeroTerminatedUTF8CArray list + g_key_file_set_string_list _obj' group_name' key' list' length_ + touchManagedPtr _obj + freeMem group_name' + freeMem key' + mapZeroTerminatedCArray freeMem list' + freeMem list' + return () + +-- method KeyFile::set_uint64 +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 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_key_file_set_uint64" g_key_file_set_uint64 :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + Word64 -> -- value : TBasicType TUInt64 + IO () + + +keyFileSetUint64 :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + T.Text -> -- key + Word64 -> -- value + m () +keyFileSetUint64 _obj group_name key value = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + key' <- textToCString key + g_key_file_set_uint64 _obj' group_name' key' value + touchManagedPtr _obj + freeMem group_name' + freeMem key' + return () + +-- method KeyFile::set_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_key_file_set_value" g_key_file_set_value :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + CString -> -- group_name : TBasicType TUTF8 + CString -> -- key : TBasicType TUTF8 + CString -> -- value : TBasicType TUTF8 + IO () + + +keyFileSetValue :: + (MonadIO m) => + KeyFile -> -- _obj + T.Text -> -- group_name + T.Text -> -- key + T.Text -> -- value + m () +keyFileSetValue _obj group_name key value = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + group_name' <- textToCString group_name + key' <- textToCString key + value' <- textToCString value + g_key_file_set_value _obj' group_name' key' value' + touchManagedPtr _obj + freeMem group_name' + freeMem key' + freeMem value' + return () + +-- method KeyFile::to_data +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "g_key_file_to_data" g_key_file_to_data :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + Ptr Word64 -> -- length : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO CString + + +keyFileToData :: + (MonadIO m) => + KeyFile -> -- _obj + m (T.Text,Word64) +keyFileToData _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + length_ <- allocMem :: IO (Ptr Word64) + onException (do + result <- propagateGError $ g_key_file_to_data _obj' length_ + checkUnexpectedReturnNULL "g_key_file_to_data" result + result' <- cstringToText result + freeMem result + length_' <- peek length_ + touchManagedPtr _obj + freeMem length_ + return (result', length_') + ) (do + freeMem length_ + ) + +-- method KeyFile::unref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_key_file_unref" g_key_file_unref :: + Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" + IO () + + +keyFileUnref :: + (MonadIO m) => + KeyFile -> -- _obj + m () +keyFileUnref _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_key_file_unref _obj' + touchManagedPtr _obj + return () + +-- Enum KeyFileError + +data KeyFileError = + KeyFileErrorUnknownEncoding + | KeyFileErrorParse + | KeyFileErrorNotFound + | KeyFileErrorKeyNotFound + | KeyFileErrorGroupNotFound + | KeyFileErrorInvalidValue + | AnotherKeyFileError Int + deriving (Show, Eq) + +instance Enum KeyFileError where + fromEnum KeyFileErrorUnknownEncoding = 0 + fromEnum KeyFileErrorParse = 1 + fromEnum KeyFileErrorNotFound = 2 + fromEnum KeyFileErrorKeyNotFound = 3 + fromEnum KeyFileErrorGroupNotFound = 4 + fromEnum KeyFileErrorInvalidValue = 5 + fromEnum (AnotherKeyFileError k) = k + + toEnum 0 = KeyFileErrorUnknownEncoding + toEnum 1 = KeyFileErrorParse + toEnum 2 = KeyFileErrorNotFound + toEnum 3 = KeyFileErrorKeyNotFound + toEnum 4 = KeyFileErrorGroupNotFound + toEnum 5 = KeyFileErrorInvalidValue + toEnum k = AnotherKeyFileError k + +instance GErrorClass KeyFileError where + gerrorClassDomain _ = "g-key-file-error-quark" + +catchKeyFileError :: + IO a -> + (KeyFileError -> GErrorMessage -> IO a) -> + IO a +catchKeyFileError = catchGErrorJustDomain + +handleKeyFileError :: + (KeyFileError -> GErrorMessage -> IO a) -> + IO a -> + IO a +handleKeyFileError = handleGErrorJustDomain + +-- Flags KeyFileFlags + +data KeyFileFlags = + KeyFileFlagsNone + | KeyFileFlagsKeepComments + | KeyFileFlagsKeepTranslations + | AnotherKeyFileFlags Int + deriving (Show, Eq) + +instance Enum KeyFileFlags where + fromEnum KeyFileFlagsNone = 0 + fromEnum KeyFileFlagsKeepComments = 1 + fromEnum KeyFileFlagsKeepTranslations = 2 + fromEnum (AnotherKeyFileFlags k) = k + + toEnum 0 = KeyFileFlagsNone + toEnum 1 = KeyFileFlagsKeepComments + toEnum 2 = KeyFileFlagsKeepTranslations + toEnum k = AnotherKeyFileFlags k + +instance IsGFlag KeyFileFlags + +-- callback LogFunc +logFuncClosure :: LogFunc -> IO Closure +logFuncClosure cb = newCClosure =<< mkLogFunc wrapped + where wrapped = logFuncWrapper Nothing cb + +type LogFuncC = + CString -> + CUInt -> + CString -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkLogFunc :: LogFuncC -> IO (FunPtr LogFuncC) + +type LogFunc = + T.Text -> + [LogLevelFlags] -> + T.Text -> + IO () + +noLogFunc :: Maybe LogFunc +noLogFunc = Nothing + +logFuncWrapper :: + Maybe (Ptr (FunPtr (LogFuncC))) -> + LogFunc -> + CString -> + CUInt -> + CString -> + Ptr () -> + IO () +logFuncWrapper funptrptr _cb log_domain log_level message _ = do + log_domain' <- cstringToText log_domain + let log_level' = wordToGFlags log_level + message' <- cstringToText message + _cb log_domain' log_level' message' + maybeReleaseFunPtr funptrptr + +-- Flags LogLevelFlags + +data LogLevelFlags = + LogLevelFlagsFlagRecursion + | LogLevelFlagsFlagFatal + | LogLevelFlagsLevelError + | LogLevelFlagsLevelCritical + | LogLevelFlagsLevelWarning + | LogLevelFlagsLevelMessage + | LogLevelFlagsLevelInfo + | LogLevelFlagsLevelDebug + | LogLevelFlagsLevelMask + | AnotherLogLevelFlags Int + deriving (Show, Eq) + +instance Enum LogLevelFlags where + fromEnum LogLevelFlagsFlagRecursion = 1 + fromEnum LogLevelFlagsFlagFatal = 2 + fromEnum LogLevelFlagsLevelError = 4 + fromEnum LogLevelFlagsLevelCritical = 8 + fromEnum LogLevelFlagsLevelWarning = 16 + fromEnum LogLevelFlagsLevelMessage = 32 + fromEnum LogLevelFlagsLevelInfo = 64 + fromEnum LogLevelFlagsLevelDebug = 128 + fromEnum LogLevelFlagsLevelMask = -4 + fromEnum (AnotherLogLevelFlags k) = k + + toEnum -4 = LogLevelFlagsLevelMask + toEnum 1 = LogLevelFlagsFlagRecursion + toEnum 2 = LogLevelFlagsFlagFatal + toEnum 4 = LogLevelFlagsLevelError + toEnum 8 = LogLevelFlagsLevelCritical + toEnum 16 = LogLevelFlagsLevelWarning + toEnum 32 = LogLevelFlagsLevelMessage + toEnum 64 = LogLevelFlagsLevelInfo + toEnum 128 = LogLevelFlagsLevelDebug + toEnum k = AnotherLogLevelFlags k + +instance IsGFlag LogLevelFlags + +-- struct MainContext +newtype MainContext = MainContext (ForeignPtr MainContext) +noMainContext :: Maybe MainContext +noMainContext = Nothing + +foreign import ccall "g_main_context_get_type" c_g_main_context_get_type :: + IO GType + +instance BoxedObject MainContext where + boxedType _ = c_g_main_context_get_type + +-- method MainContext::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "GLib" "MainContext" +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_context_new" g_main_context_new :: + IO (Ptr MainContext) + + +mainContextNew :: + (MonadIO m) => + m MainContext +mainContextNew = liftIO $ do + result <- g_main_context_new + checkUnexpectedReturnNULL "g_main_context_new" result + result' <- (wrapBoxed MainContext) result + return result' + +-- method MainContext::acquire +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_context_acquire" g_main_context_acquire :: + Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" + IO CInt + + +mainContextAcquire :: + (MonadIO m) => + MainContext -> -- _obj + m Bool +mainContextAcquire _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_main_context_acquire _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method MainContext::add_poll +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", 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 = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", 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 + +foreign import ccall "g_main_context_add_poll" g_main_context_add_poll :: + Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" + Ptr PollFD -> -- fd : TInterface "GLib" "PollFD" + Int32 -> -- priority : TBasicType TInt32 + IO () + + +mainContextAddPoll :: + (MonadIO m) => + MainContext -> -- _obj + PollFD -> -- fd + Int32 -> -- priority + m () +mainContextAddPoll _obj fd priority = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let fd' = unsafeManagedPtrGetPtr fd + g_main_context_add_poll _obj' fd' priority + touchManagedPtr _obj + touchManagedPtr fd + return () + +-- method MainContext::check +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fds", argType = TCArray False (-1) 3 (TInterface "GLib" "PollFD"), 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 = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fds", argType = TCArray False (-1) 3 (TInterface "GLib" "PollFD"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_context_check" g_main_context_check :: + Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" + Int32 -> -- max_priority : TBasicType TInt32 + Ptr PollFD -> -- fds : TCArray False (-1) 3 (TInterface "GLib" "PollFD") + Int32 -> -- n_fds : TBasicType TInt32 + IO Int32 + + +mainContextCheck :: + (MonadIO m) => + MainContext -> -- _obj + Int32 -> -- max_priority + [PollFD] -> -- fds + m Int32 +mainContextCheck _obj max_priority fds = liftIO $ do + let n_fds = fromIntegral $ length fds + let _obj' = unsafeManagedPtrGetPtr _obj + let fds' = map unsafeManagedPtrGetPtr fds + fds'' <- packBlockArray 8 fds' + result <- g_main_context_check _obj' max_priority fds'' n_fds + touchManagedPtr _obj + mapM_ touchManagedPtr fds + freeMem fds'' + return result + +-- method MainContext::dispatch +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_context_dispatch" g_main_context_dispatch :: + Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" + IO () + + +mainContextDispatch :: + (MonadIO m) => + MainContext -> -- _obj + m () +mainContextDispatch _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_main_context_dispatch _obj' + touchManagedPtr _obj + return () + +-- method MainContext::find_source_by_funcs_user_data +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "funcs", argType = TInterface "GLib" "SourceFuncs", 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 : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "funcs", argType = TInterface "GLib" "SourceFuncs", 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}] +-- returnType : TInterface "GLib" "Source" +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_context_find_source_by_funcs_user_data" g_main_context_find_source_by_funcs_user_data :: + Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" + Ptr SourceFuncs -> -- funcs : TInterface "GLib" "SourceFuncs" + Ptr () -> -- user_data : TBasicType TVoid + IO (Ptr Source) + + +mainContextFindSourceByFuncsUserData :: + (MonadIO m) => + MainContext -> -- _obj + SourceFuncs -> -- funcs + Ptr () -> -- user_data + m Source +mainContextFindSourceByFuncsUserData _obj funcs user_data = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let funcs' = unsafeManagedPtrGetPtr funcs + result <- g_main_context_find_source_by_funcs_user_data _obj' funcs' user_data + checkUnexpectedReturnNULL "g_main_context_find_source_by_funcs_user_data" result + result' <- (newBoxed Source) result + touchManagedPtr _obj + touchManagedPtr funcs + return result' + +-- method MainContext::find_source_by_id +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_id", argType = TBasicType TUInt32, 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_main_context_find_source_by_id" g_main_context_find_source_by_id :: + Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" + Word32 -> -- source_id : TBasicType TUInt32 + IO (Ptr Source) + + +mainContextFindSourceById :: + (MonadIO m) => + MainContext -> -- _obj + Word32 -> -- source_id + m Source +mainContextFindSourceById _obj source_id = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_main_context_find_source_by_id _obj' source_id + checkUnexpectedReturnNULL "g_main_context_find_source_by_id" result + result' <- (newBoxed Source) result + touchManagedPtr _obj + return result' + +-- method MainContext::find_source_by_user_data +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", 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 : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", 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}] +-- returnType : TInterface "GLib" "Source" +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_context_find_source_by_user_data" g_main_context_find_source_by_user_data :: + Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" + Ptr () -> -- user_data : TBasicType TVoid + IO (Ptr Source) + + +mainContextFindSourceByUserData :: + (MonadIO m) => + MainContext -> -- _obj + Ptr () -> -- user_data + m Source +mainContextFindSourceByUserData _obj user_data = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_main_context_find_source_by_user_data _obj' user_data + checkUnexpectedReturnNULL "g_main_context_find_source_by_user_data" result + result' <- (newBoxed Source) result + touchManagedPtr _obj + return result' + +-- method MainContext::invoke_full +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", 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},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", 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},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_context_invoke_full" g_main_context_invoke_full :: + Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" + Int32 -> -- priority : TBasicType TInt32 + FunPtr SourceFuncC -> -- function : TInterface "GLib" "SourceFunc" + Ptr () -> -- data : TBasicType TVoid + FunPtr DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" + IO () + + +mainContextInvokeFull :: + (MonadIO m) => + MainContext -> -- _obj + Int32 -> -- priority + SourceFunc -> -- function + m () +mainContextInvokeFull _obj priority function = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + function' <- mkSourceFunc (sourceFuncWrapper Nothing function) + let data_ = castFunPtrToPtr function' + let notify = safeFreeFunPtrPtr + g_main_context_invoke_full _obj' priority function' data_ notify + touchManagedPtr _obj + return () + +-- method MainContext::is_owner +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_context_is_owner" g_main_context_is_owner :: + Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" + IO CInt + + +mainContextIsOwner :: + (MonadIO m) => + MainContext -> -- _obj + m Bool +mainContextIsOwner _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_main_context_is_owner _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method MainContext::iteration +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "may_block", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "may_block", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_context_iteration" g_main_context_iteration :: + Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" + CInt -> -- may_block : TBasicType TBoolean + IO CInt + + +mainContextIteration :: + (MonadIO m) => + MainContext -> -- _obj + Bool -> -- may_block + m Bool +mainContextIteration _obj may_block = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let may_block' = (fromIntegral . fromEnum) may_block + result <- g_main_context_iteration _obj' may_block' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method MainContext::pending +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_context_pending" g_main_context_pending :: + Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" + IO CInt + + +mainContextPending :: + (MonadIO m) => + MainContext -> -- _obj + m Bool +mainContextPending _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_main_context_pending _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method MainContext::pop_thread_default +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_context_pop_thread_default" g_main_context_pop_thread_default :: + Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" + IO () + + +mainContextPopThreadDefault :: + (MonadIO m) => + MainContext -> -- _obj + m () +mainContextPopThreadDefault _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_main_context_pop_thread_default _obj' + touchManagedPtr _obj + return () + +-- method MainContext::prepare +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", 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 = "_obj", argType = TInterface "GLib" "MainContext", 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 TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_context_prepare" g_main_context_prepare :: + Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" + Int32 -> -- priority : TBasicType TInt32 + IO CInt + + +mainContextPrepare :: + (MonadIO m) => + MainContext -> -- _obj + Int32 -> -- priority + m Bool +mainContextPrepare _obj priority = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_main_context_prepare _obj' priority + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method MainContext::push_thread_default +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_context_push_thread_default" g_main_context_push_thread_default :: + Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" + IO () + + +mainContextPushThreadDefault :: + (MonadIO m) => + MainContext -> -- _obj + m () +mainContextPushThreadDefault _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_main_context_push_thread_default _obj' + touchManagedPtr _obj + return () + +-- method MainContext::query +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout_", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "fds", argType = TCArray False (-1) 4 (TInterface "GLib" "PollFD"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_fds", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [Arg {argName = "n_fds", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_context_query" g_main_context_query :: + Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" + Int32 -> -- max_priority : TBasicType TInt32 + Ptr Int32 -> -- timeout_ : TBasicType TInt32 + Ptr (Ptr PollFD) -> -- fds : TCArray False (-1) 4 (TInterface "GLib" "PollFD") + Ptr Int32 -> -- n_fds : TBasicType TInt32 + IO Int32 + + +mainContextQuery :: + (MonadIO m) => + MainContext -> -- _obj + Int32 -> -- max_priority + m (Int32,Int32,[PollFD]) +mainContextQuery _obj max_priority = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + timeout_ <- allocMem :: IO (Ptr Int32) + fds <- allocMem :: IO (Ptr (Ptr PollFD)) + n_fds <- allocMem :: IO (Ptr Int32) + result <- g_main_context_query _obj' max_priority timeout_ fds n_fds + n_fds' <- peek n_fds + timeout_' <- peek timeout_ + fds' <- peek fds + fds'' <- (unpackBoxedArrayWithLength 8 n_fds') fds' + fds''' <- mapM (newBoxed PollFD) fds'' + touchManagedPtr _obj + freeMem timeout_ + freeMem fds + freeMem n_fds + return (result, timeout_', fds''') + +-- method MainContext::ref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "MainContext" +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_context_ref" g_main_context_ref :: + Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" + IO (Ptr MainContext) + + +mainContextRef :: + (MonadIO m) => + MainContext -> -- _obj + m MainContext +mainContextRef _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_main_context_ref _obj' + checkUnexpectedReturnNULL "g_main_context_ref" result + result' <- (wrapBoxed MainContext) result + touchManagedPtr _obj + return result' + +-- method MainContext::release +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_context_release" g_main_context_release :: + Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" + IO () + + +mainContextRelease :: + (MonadIO m) => + MainContext -> -- _obj + m () +mainContextRelease _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_main_context_release _obj' + touchManagedPtr _obj + return () + +-- method MainContext::remove_poll +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_context_remove_poll" g_main_context_remove_poll :: + Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" + Ptr PollFD -> -- fd : TInterface "GLib" "PollFD" + IO () + + +mainContextRemovePoll :: + (MonadIO m) => + MainContext -> -- _obj + PollFD -> -- fd + m () +mainContextRemovePoll _obj fd = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let fd' = unsafeManagedPtrGetPtr fd + g_main_context_remove_poll _obj' fd' + touchManagedPtr _obj + touchManagedPtr fd + return () + +-- method MainContext::unref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_context_unref" g_main_context_unref :: + Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" + IO () + + +mainContextUnref :: + (MonadIO m) => + MainContext -> -- _obj + m () +mainContextUnref _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_main_context_unref _obj' + touchManagedPtr _obj + return () + +-- method MainContext::wait +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cond", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mutex", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cond", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mutex", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_context_wait" g_main_context_wait :: + Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" + Ptr Cond -> -- cond : TInterface "GLib" "Cond" + Ptr Mutex -> -- mutex : TInterface "GLib" "Mutex" + IO CInt + + +mainContextWait :: + (MonadIO m) => + MainContext -> -- _obj + Cond -> -- cond + Mutex -> -- mutex + m Bool +mainContextWait _obj cond mutex = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let cond' = unsafeManagedPtrGetPtr cond + let mutex' = unsafeManagedPtrGetPtr mutex + result <- g_main_context_wait _obj' cond' mutex' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr cond + touchManagedPtr mutex + return result' + +-- method MainContext::wakeup +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_context_wakeup" g_main_context_wakeup :: + Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" + IO () + + +mainContextWakeup :: + (MonadIO m) => + MainContext -> -- _obj + m () +mainContextWakeup _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_main_context_wakeup _obj' + touchManagedPtr _obj + return () + +-- struct MainLoop +newtype MainLoop = MainLoop (ForeignPtr MainLoop) +noMainLoop :: Maybe MainLoop +noMainLoop = Nothing + +foreign import ccall "g_main_loop_get_type" c_g_main_loop_get_type :: + IO GType + +instance BoxedObject MainLoop where + boxedType _ = c_g_main_loop_get_type + +-- method MainLoop::new +-- method type : Constructor +-- Args : [Arg {argName = "context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_running", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_running", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "MainLoop" +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_loop_new" g_main_loop_new :: + Ptr MainContext -> -- context : TInterface "GLib" "MainContext" + CInt -> -- is_running : TBasicType TBoolean + IO (Ptr MainLoop) + + +mainLoopNew :: + (MonadIO m) => + Maybe (MainContext) -> -- context + Bool -> -- is_running + m MainLoop +mainLoopNew context is_running = liftIO $ do + maybeContext <- case context of + Nothing -> return nullPtr + Just jContext -> do + let jContext' = unsafeManagedPtrGetPtr jContext + return jContext' + let is_running' = (fromIntegral . fromEnum) is_running + result <- g_main_loop_new maybeContext is_running' + checkUnexpectedReturnNULL "g_main_loop_new" result + result' <- (wrapBoxed MainLoop) result + whenJust context touchManagedPtr + return result' + +-- method MainLoop::get_context +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "MainContext" +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_loop_get_context" g_main_loop_get_context :: + Ptr MainLoop -> -- _obj : TInterface "GLib" "MainLoop" + IO (Ptr MainContext) + + +mainLoopGetContext :: + (MonadIO m) => + MainLoop -> -- _obj + m MainContext +mainLoopGetContext _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_main_loop_get_context _obj' + checkUnexpectedReturnNULL "g_main_loop_get_context" result + result' <- (newBoxed MainContext) result + touchManagedPtr _obj + return result' + +-- method MainLoop::is_running +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_loop_is_running" g_main_loop_is_running :: + Ptr MainLoop -> -- _obj : TInterface "GLib" "MainLoop" + IO CInt + + +mainLoopIsRunning :: + (MonadIO m) => + MainLoop -> -- _obj + m Bool +mainLoopIsRunning _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_main_loop_is_running _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method MainLoop::quit +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_loop_quit" g_main_loop_quit :: + Ptr MainLoop -> -- _obj : TInterface "GLib" "MainLoop" + IO () + + +mainLoopQuit :: + (MonadIO m) => + MainLoop -> -- _obj + m () +mainLoopQuit _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_main_loop_quit _obj' + touchManagedPtr _obj + return () + +-- method MainLoop::ref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "MainLoop" +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_loop_ref" g_main_loop_ref :: + Ptr MainLoop -> -- _obj : TInterface "GLib" "MainLoop" + IO (Ptr MainLoop) + + +mainLoopRef :: + (MonadIO m) => + MainLoop -> -- _obj + m MainLoop +mainLoopRef _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_main_loop_ref _obj' + checkUnexpectedReturnNULL "g_main_loop_ref" result + result' <- (wrapBoxed MainLoop) result + touchManagedPtr _obj + return result' + +-- method MainLoop::run +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_loop_run" g_main_loop_run :: + Ptr MainLoop -> -- _obj : TInterface "GLib" "MainLoop" + IO () + + +mainLoopRun :: + (MonadIO m) => + MainLoop -> -- _obj + m () +mainLoopRun _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_main_loop_run _obj' + touchManagedPtr _obj + return () + +-- method MainLoop::unref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_loop_unref" g_main_loop_unref :: + Ptr MainLoop -> -- _obj : TInterface "GLib" "MainLoop" + IO () + + +mainLoopUnref :: + (MonadIO m) => + MainLoop -> -- _obj + m () +mainLoopUnref _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_main_loop_unref _obj' + touchManagedPtr _obj + return () + +-- struct MappedFile +newtype MappedFile = MappedFile (ForeignPtr MappedFile) +noMappedFile :: Maybe MappedFile +noMappedFile = Nothing + +foreign import ccall "g_mapped_file_get_type" c_g_mapped_file_get_type :: + IO GType + +instance BoxedObject MappedFile where + boxedType _ = c_g_mapped_file_get_type + +-- method MappedFile::new +-- method type : Constructor +-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "MappedFile" +-- throws : True +-- Skip return : False + +foreign import ccall "g_mapped_file_new" g_mapped_file_new :: + CString -> -- filename : TBasicType TUTF8 + CInt -> -- writable : TBasicType TBoolean + Ptr (Ptr GError) -> -- error + IO (Ptr MappedFile) + + +mappedFileNew :: + (MonadIO m) => + T.Text -> -- filename + Bool -> -- writable + m MappedFile +mappedFileNew filename writable = liftIO $ do + filename' <- textToCString filename + let writable' = (fromIntegral . fromEnum) writable + onException (do + result <- propagateGError $ g_mapped_file_new filename' writable' + checkUnexpectedReturnNULL "g_mapped_file_new" result + result' <- (wrapBoxed MappedFile) result + freeMem filename' + return result' + ) (do + freeMem filename' + ) + +-- method MappedFile::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},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "MappedFile" +-- throws : True +-- Skip return : False + +foreign import ccall "g_mapped_file_new_from_fd" g_mapped_file_new_from_fd :: + Int32 -> -- fd : TBasicType TInt32 + CInt -> -- writable : TBasicType TBoolean + Ptr (Ptr GError) -> -- error + IO (Ptr MappedFile) + + +mappedFileNewFromFd :: + (MonadIO m) => + Int32 -> -- fd + Bool -> -- writable + m MappedFile +mappedFileNewFromFd fd writable = liftIO $ do + let writable' = (fromIntegral . fromEnum) writable + onException (do + result <- propagateGError $ g_mapped_file_new_from_fd fd writable' + checkUnexpectedReturnNULL "g_mapped_file_new_from_fd" result + result' <- (wrapBoxed MappedFile) result + return result' + ) (do + return () + ) + +-- method MappedFile::free +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_mapped_file_free" g_mapped_file_free :: + Ptr MappedFile -> -- _obj : TInterface "GLib" "MappedFile" + IO () + +{-# DEPRECATED mappedFileFree ["(Since version 2.22)","Use g_mapped_file_unref() instead."]#-} +mappedFileFree :: + (MonadIO m) => + MappedFile -> -- _obj + m () +mappedFileFree _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_mapped_file_free _obj' + touchManagedPtr _obj + return () + +-- method MappedFile::get_bytes +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "Bytes" +-- throws : False +-- Skip return : False + +foreign import ccall "g_mapped_file_get_bytes" g_mapped_file_get_bytes :: + Ptr MappedFile -> -- _obj : TInterface "GLib" "MappedFile" + IO (Ptr Bytes) + + +mappedFileGetBytes :: + (MonadIO m) => + MappedFile -> -- _obj + m Bytes +mappedFileGetBytes _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_mapped_file_get_bytes _obj' + checkUnexpectedReturnNULL "g_mapped_file_get_bytes" result + result' <- (wrapBoxed Bytes) result + touchManagedPtr _obj + return result' + +-- method MappedFile::get_contents +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_mapped_file_get_contents" g_mapped_file_get_contents :: + Ptr MappedFile -> -- _obj : TInterface "GLib" "MappedFile" + IO CString + + +mappedFileGetContents :: + (MonadIO m) => + MappedFile -> -- _obj + m T.Text +mappedFileGetContents _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_mapped_file_get_contents _obj' + checkUnexpectedReturnNULL "g_mapped_file_get_contents" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method MappedFile::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "g_mapped_file_get_length" g_mapped_file_get_length :: + Ptr MappedFile -> -- _obj : TInterface "GLib" "MappedFile" + IO Word64 + + +mappedFileGetLength :: + (MonadIO m) => + MappedFile -> -- _obj + m Word64 +mappedFileGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_mapped_file_get_length _obj' + touchManagedPtr _obj + return result + +-- method MappedFile::ref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "MappedFile" +-- throws : False +-- Skip return : False + +foreign import ccall "g_mapped_file_ref" g_mapped_file_ref :: + Ptr MappedFile -> -- _obj : TInterface "GLib" "MappedFile" + IO (Ptr MappedFile) + + +mappedFileRef :: + (MonadIO m) => + MappedFile -> -- _obj + m MappedFile +mappedFileRef _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_mapped_file_ref _obj' + checkUnexpectedReturnNULL "g_mapped_file_ref" result + result' <- (wrapBoxed MappedFile) result + touchManagedPtr _obj + return result' + +-- method MappedFile::unref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_mapped_file_unref" g_mapped_file_unref :: + Ptr MappedFile -> -- _obj : TInterface "GLib" "MappedFile" + IO () + + +mappedFileUnref :: + (MonadIO m) => + MappedFile -> -- _obj + m () +mappedFileUnref _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_mapped_file_unref _obj' + touchManagedPtr _obj + return () + +-- Flags MarkupCollectType + +data MarkupCollectType = + MarkupCollectTypeInvalid + | MarkupCollectTypeString + | MarkupCollectTypeStrdup + | MarkupCollectTypeBoolean + | MarkupCollectTypeTristate + | MarkupCollectTypeOptional + | AnotherMarkupCollectType Int + deriving (Show, Eq) + +instance Enum MarkupCollectType where + fromEnum MarkupCollectTypeInvalid = 0 + fromEnum MarkupCollectTypeString = 1 + fromEnum MarkupCollectTypeStrdup = 2 + fromEnum MarkupCollectTypeBoolean = 3 + fromEnum MarkupCollectTypeTristate = 4 + fromEnum MarkupCollectTypeOptional = 65536 + fromEnum (AnotherMarkupCollectType k) = k + + toEnum 0 = MarkupCollectTypeInvalid + toEnum 1 = MarkupCollectTypeString + toEnum 2 = MarkupCollectTypeStrdup + toEnum 3 = MarkupCollectTypeBoolean + toEnum 4 = MarkupCollectTypeTristate + toEnum 65536 = MarkupCollectTypeOptional + toEnum k = AnotherMarkupCollectType k + +instance IsGFlag MarkupCollectType + +-- Enum MarkupError + +data MarkupError = + MarkupErrorBadUtf8 + | MarkupErrorEmpty + | MarkupErrorParse + | MarkupErrorUnknownElement + | MarkupErrorUnknownAttribute + | MarkupErrorInvalidContent + | MarkupErrorMissingAttribute + | AnotherMarkupError Int + deriving (Show, Eq) + +instance Enum MarkupError where + fromEnum MarkupErrorBadUtf8 = 0 + fromEnum MarkupErrorEmpty = 1 + fromEnum MarkupErrorParse = 2 + fromEnum MarkupErrorUnknownElement = 3 + fromEnum MarkupErrorUnknownAttribute = 4 + fromEnum MarkupErrorInvalidContent = 5 + fromEnum MarkupErrorMissingAttribute = 6 + fromEnum (AnotherMarkupError k) = k + + toEnum 0 = MarkupErrorBadUtf8 + toEnum 1 = MarkupErrorEmpty + toEnum 2 = MarkupErrorParse + toEnum 3 = MarkupErrorUnknownElement + toEnum 4 = MarkupErrorUnknownAttribute + toEnum 5 = MarkupErrorInvalidContent + toEnum 6 = MarkupErrorMissingAttribute + toEnum k = AnotherMarkupError k + +instance GErrorClass MarkupError where + gerrorClassDomain _ = "g-markup-error-quark" + +catchMarkupError :: + IO a -> + (MarkupError -> GErrorMessage -> IO a) -> + IO a +catchMarkupError = catchGErrorJustDomain + +handleMarkupError :: + (MarkupError -> GErrorMessage -> IO a) -> + IO a -> + IO a +handleMarkupError = handleGErrorJustDomain + +-- struct MarkupParseContext +newtype MarkupParseContext = MarkupParseContext (ForeignPtr MarkupParseContext) +noMarkupParseContext :: Maybe MarkupParseContext +noMarkupParseContext = Nothing + +foreign import ccall "g_markup_parse_context_get_type" c_g_markup_parse_context_get_type :: + IO GType + +instance BoxedObject MarkupParseContext where + boxedType _ = c_g_markup_parse_context_get_type + +-- method MarkupParseContext::new +-- method type : Constructor +-- Args : [Arg {argName = "parser", argType = TInterface "GLib" "MarkupParser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "MarkupParseFlags", 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_dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "parser", argType = TInterface "GLib" "MarkupParser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "MarkupParseFlags", 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_dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "MarkupParseContext" +-- throws : False +-- Skip return : False + +foreign import ccall "g_markup_parse_context_new" g_markup_parse_context_new :: + Ptr MarkupParser -> -- parser : TInterface "GLib" "MarkupParser" + CUInt -> -- flags : TInterface "GLib" "MarkupParseFlags" + Ptr () -> -- user_data : TBasicType TVoid + FunPtr DestroyNotifyC -> -- user_data_dnotify : TInterface "GLib" "DestroyNotify" + IO (Ptr MarkupParseContext) + + +markupParseContextNew :: + (MonadIO m) => + MarkupParser -> -- parser + [MarkupParseFlags] -> -- flags + Ptr () -> -- user_data + DestroyNotify -> -- user_data_dnotify + m MarkupParseContext +markupParseContextNew parser flags user_data user_data_dnotify = liftIO $ do + let parser' = unsafeManagedPtrGetPtr parser + let flags' = gflagsToWord flags + ptruser_data_dnotify <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC)) + user_data_dnotify' <- mkDestroyNotify (destroyNotifyWrapper (Just ptruser_data_dnotify) user_data_dnotify) + poke ptruser_data_dnotify user_data_dnotify' + result <- g_markup_parse_context_new parser' flags' user_data user_data_dnotify' + checkUnexpectedReturnNULL "g_markup_parse_context_new" result + result' <- (wrapBoxed MarkupParseContext) result + touchManagedPtr parser + return result' + +-- method MarkupParseContext::end_parse +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_markup_parse_context_end_parse" g_markup_parse_context_end_parse :: + Ptr MarkupParseContext -> -- _obj : TInterface "GLib" "MarkupParseContext" + Ptr (Ptr GError) -> -- error + IO CInt + + +markupParseContextEndParse :: + (MonadIO m) => + MarkupParseContext -> -- _obj + m () +markupParseContextEndParse _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + onException (do + _ <- propagateGError $ g_markup_parse_context_end_parse _obj' + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method MarkupParseContext::free +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_markup_parse_context_free" g_markup_parse_context_free :: + Ptr MarkupParseContext -> -- _obj : TInterface "GLib" "MarkupParseContext" + IO () + + +markupParseContextFree :: + (MonadIO m) => + MarkupParseContext -> -- _obj + m () +markupParseContextFree _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_markup_parse_context_free _obj' + touchManagedPtr _obj + return () + +-- method MarkupParseContext::get_element +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_markup_parse_context_get_element" g_markup_parse_context_get_element :: + Ptr MarkupParseContext -> -- _obj : TInterface "GLib" "MarkupParseContext" + IO CString + + +markupParseContextGetElement :: + (MonadIO m) => + MarkupParseContext -> -- _obj + m T.Text +markupParseContextGetElement _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_markup_parse_context_get_element _obj' + checkUnexpectedReturnNULL "g_markup_parse_context_get_element" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method MarkupParseContext::parse +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_markup_parse_context_parse" g_markup_parse_context_parse :: + Ptr MarkupParseContext -> -- _obj : TInterface "GLib" "MarkupParseContext" + CString -> -- text : TBasicType TUTF8 + Int64 -> -- text_len : TBasicType TInt64 + Ptr (Ptr GError) -> -- error + IO CInt + + +markupParseContextParse :: + (MonadIO m) => + MarkupParseContext -> -- _obj + T.Text -> -- text + Int64 -> -- text_len + m () +markupParseContextParse _obj text text_len = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + text' <- textToCString text + onException (do + _ <- propagateGError $ g_markup_parse_context_parse _obj' text' text_len + touchManagedPtr _obj + freeMem text' + return () + ) (do + freeMem text' + ) + +-- method MarkupParseContext::push +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parser", argType = TInterface "GLib" "MarkupParser", 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 : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parser", argType = TInterface "GLib" "MarkupParser", 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}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_markup_parse_context_push" g_markup_parse_context_push :: + Ptr MarkupParseContext -> -- _obj : TInterface "GLib" "MarkupParseContext" + Ptr MarkupParser -> -- parser : TInterface "GLib" "MarkupParser" + Ptr () -> -- user_data : TBasicType TVoid + IO () + + +markupParseContextPush :: + (MonadIO m) => + MarkupParseContext -> -- _obj + MarkupParser -> -- parser + Ptr () -> -- user_data + m () +markupParseContextPush _obj parser user_data = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let parser' = unsafeManagedPtrGetPtr parser + g_markup_parse_context_push _obj' parser' user_data + touchManagedPtr _obj + touchManagedPtr parser + return () + +-- method MarkupParseContext::ref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "MarkupParseContext" +-- throws : False +-- Skip return : False + +foreign import ccall "g_markup_parse_context_ref" g_markup_parse_context_ref :: + Ptr MarkupParseContext -> -- _obj : TInterface "GLib" "MarkupParseContext" + IO (Ptr MarkupParseContext) + + +markupParseContextRef :: + (MonadIO m) => + MarkupParseContext -> -- _obj + m MarkupParseContext +markupParseContextRef _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_markup_parse_context_ref _obj' + checkUnexpectedReturnNULL "g_markup_parse_context_ref" result + result' <- (wrapBoxed MarkupParseContext) result + touchManagedPtr _obj + return result' + +-- method MarkupParseContext::unref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_markup_parse_context_unref" g_markup_parse_context_unref :: + Ptr MarkupParseContext -> -- _obj : TInterface "GLib" "MarkupParseContext" + IO () + + +markupParseContextUnref :: + (MonadIO m) => + MarkupParseContext -> -- _obj + m () +markupParseContextUnref _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_markup_parse_context_unref _obj' + touchManagedPtr _obj + return () + +-- Flags MarkupParseFlags + +data MarkupParseFlags = + MarkupParseFlagsDoNotUseThisUnsupportedFlag + | MarkupParseFlagsTreatCdataAsText + | MarkupParseFlagsPrefixErrorPosition + | MarkupParseFlagsIgnoreQualified + | AnotherMarkupParseFlags Int + deriving (Show, Eq) + +instance Enum MarkupParseFlags where + fromEnum MarkupParseFlagsDoNotUseThisUnsupportedFlag = 1 + fromEnum MarkupParseFlagsTreatCdataAsText = 2 + fromEnum MarkupParseFlagsPrefixErrorPosition = 4 + fromEnum MarkupParseFlagsIgnoreQualified = 8 + fromEnum (AnotherMarkupParseFlags k) = k + + toEnum 1 = MarkupParseFlagsDoNotUseThisUnsupportedFlag + toEnum 2 = MarkupParseFlagsTreatCdataAsText + toEnum 4 = MarkupParseFlagsPrefixErrorPosition + toEnum 8 = MarkupParseFlagsIgnoreQualified + toEnum k = AnotherMarkupParseFlags k + +instance IsGFlag MarkupParseFlags + +-- struct MarkupParser +newtype MarkupParser = MarkupParser (ForeignPtr MarkupParser) +noMarkupParser :: Maybe MarkupParser +noMarkupParser = Nothing + +-- XXX Skipped getter for "MarkupParser:start_element" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- XXX Skipped getter for "MarkupParser:end_element" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- XXX Skipped getter for "MarkupParser:text" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- XXX Skipped getter for "MarkupParser:passthrough" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- XXX Skipped getter for "MarkupParser:error" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- struct MatchInfo +newtype MatchInfo = MatchInfo (ForeignPtr MatchInfo) +noMatchInfo :: Maybe MatchInfo +noMatchInfo = Nothing + +foreign import ccall "g_match_info_get_type" c_g_match_info_get_type :: + IO GType + +instance BoxedObject MatchInfo where + boxedType _ = c_g_match_info_get_type + +-- method MatchInfo::expand_references +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_to_expand", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_to_expand", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "g_match_info_expand_references" g_match_info_expand_references :: + Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" + CString -> -- string_to_expand : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CString + + +matchInfoExpandReferences :: + (MonadIO m) => + MatchInfo -> -- _obj + T.Text -> -- string_to_expand + m T.Text +matchInfoExpandReferences _obj string_to_expand = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + string_to_expand' <- textToCString string_to_expand + onException (do + result <- propagateGError $ g_match_info_expand_references _obj' string_to_expand' + checkUnexpectedReturnNULL "g_match_info_expand_references" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem string_to_expand' + return result' + ) (do + freeMem string_to_expand' + ) + +-- method MatchInfo::fetch +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_match_info_fetch" g_match_info_fetch :: + Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" + Int32 -> -- match_num : TBasicType TInt32 + IO CString + + +matchInfoFetch :: + (MonadIO m) => + MatchInfo -> -- _obj + Int32 -> -- match_num + m T.Text +matchInfoFetch _obj match_num = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_match_info_fetch _obj' match_num + checkUnexpectedReturnNULL "g_match_info_fetch" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method MatchInfo::fetch_all +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", 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_match_info_fetch_all" g_match_info_fetch_all :: + Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" + IO (Ptr CString) + + +matchInfoFetchAll :: + (MonadIO m) => + MatchInfo -> -- _obj + m [T.Text] +matchInfoFetchAll _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_match_info_fetch_all _obj' + checkUnexpectedReturnNULL "g_match_info_fetch_all" result + result' <- unpackZeroTerminatedUTF8CArray result + mapZeroTerminatedCArray freeMem result + freeMem result + touchManagedPtr _obj + return result' + +-- method MatchInfo::fetch_named +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", 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 "GLib" "MatchInfo", 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 + +foreign import ccall "g_match_info_fetch_named" g_match_info_fetch_named :: + Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" + CString -> -- name : TBasicType TUTF8 + IO CString + + +matchInfoFetchNamed :: + (MonadIO m) => + MatchInfo -> -- _obj + T.Text -> -- name + m T.Text +matchInfoFetchNamed _obj name = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + name' <- textToCString name + result <- g_match_info_fetch_named _obj' name' + checkUnexpectedReturnNULL "g_match_info_fetch_named" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem name' + return result' + +-- method MatchInfo::fetch_named_pos +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", 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 = "start_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", 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 + +foreign import ccall "g_match_info_fetch_named_pos" g_match_info_fetch_named_pos :: + Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" + CString -> -- name : TBasicType TUTF8 + Ptr Int32 -> -- start_pos : TBasicType TInt32 + Ptr Int32 -> -- end_pos : TBasicType TInt32 + IO CInt + + +matchInfoFetchNamedPos :: + (MonadIO m) => + MatchInfo -> -- _obj + T.Text -> -- name + m (Bool,Int32,Int32) +matchInfoFetchNamedPos _obj name = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + name' <- textToCString name + start_pos <- allocMem :: IO (Ptr Int32) + end_pos <- allocMem :: IO (Ptr Int32) + result <- g_match_info_fetch_named_pos _obj' name' start_pos end_pos + let result' = (/= 0) result + start_pos' <- peek start_pos + end_pos' <- peek end_pos + touchManagedPtr _obj + freeMem name' + freeMem start_pos + freeMem end_pos + return (result', start_pos', end_pos') + +-- method MatchInfo::fetch_pos +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_match_info_fetch_pos" g_match_info_fetch_pos :: + Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" + Int32 -> -- match_num : TBasicType TInt32 + Ptr Int32 -> -- start_pos : TBasicType TInt32 + Ptr Int32 -> -- end_pos : TBasicType TInt32 + IO CInt + + +matchInfoFetchPos :: + (MonadIO m) => + MatchInfo -> -- _obj + Int32 -> -- match_num + m (Bool,Int32,Int32) +matchInfoFetchPos _obj match_num = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + start_pos <- allocMem :: IO (Ptr Int32) + end_pos <- allocMem :: IO (Ptr Int32) + result <- g_match_info_fetch_pos _obj' match_num start_pos end_pos + let result' = (/= 0) result + start_pos' <- peek start_pos + end_pos' <- peek end_pos + touchManagedPtr _obj + freeMem start_pos + freeMem end_pos + return (result', start_pos', end_pos') + +-- method MatchInfo::free +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_match_info_free" g_match_info_free :: + Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" + IO () + + +matchInfoFree :: + (MonadIO m) => + MatchInfo -> -- _obj + m () +matchInfoFree _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_match_info_free _obj' + touchManagedPtr _obj + return () + +-- method MatchInfo::get_match_count +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_match_info_get_match_count" g_match_info_get_match_count :: + Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" + IO Int32 + + +matchInfoGetMatchCount :: + (MonadIO m) => + MatchInfo -> -- _obj + m Int32 +matchInfoGetMatchCount _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_match_info_get_match_count _obj' + touchManagedPtr _obj + return result + +-- method MatchInfo::get_regex +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "Regex" +-- throws : False +-- Skip return : False + +foreign import ccall "g_match_info_get_regex" g_match_info_get_regex :: + Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" + IO (Ptr Regex) + + +matchInfoGetRegex :: + (MonadIO m) => + MatchInfo -> -- _obj + m Regex +matchInfoGetRegex _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_match_info_get_regex _obj' + checkUnexpectedReturnNULL "g_match_info_get_regex" result + result' <- (wrapBoxed Regex) result + touchManagedPtr _obj + return result' + +-- method MatchInfo::get_string +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_match_info_get_string" g_match_info_get_string :: + Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" + IO CString + + +matchInfoGetString :: + (MonadIO m) => + MatchInfo -> -- _obj + m T.Text +matchInfoGetString _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_match_info_get_string _obj' + checkUnexpectedReturnNULL "g_match_info_get_string" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method MatchInfo::is_partial_match +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_match_info_is_partial_match" g_match_info_is_partial_match :: + Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" + IO CInt + + +matchInfoIsPartialMatch :: + (MonadIO m) => + MatchInfo -> -- _obj + m Bool +matchInfoIsPartialMatch _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_match_info_is_partial_match _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method MatchInfo::matches +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_match_info_matches" g_match_info_matches :: + Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" + IO CInt + + +matchInfoMatches :: + (MonadIO m) => + MatchInfo -> -- _obj + m Bool +matchInfoMatches _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_match_info_matches _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method MatchInfo::next +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_match_info_next" g_match_info_next :: + Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" + Ptr (Ptr GError) -> -- error + IO CInt + + +matchInfoNext :: + (MonadIO m) => + MatchInfo -> -- _obj + m () +matchInfoNext _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + onException (do + _ <- propagateGError $ g_match_info_next _obj' + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method MatchInfo::ref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "MatchInfo" +-- throws : False +-- Skip return : False + +foreign import ccall "g_match_info_ref" g_match_info_ref :: + Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" + IO (Ptr MatchInfo) + + +matchInfoRef :: + (MonadIO m) => + MatchInfo -> -- _obj + m MatchInfo +matchInfoRef _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_match_info_ref _obj' + checkUnexpectedReturnNULL "g_match_info_ref" result + result' <- (wrapBoxed MatchInfo) result + touchManagedPtr _obj + return result' + +-- method MatchInfo::unref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_match_info_unref" g_match_info_unref :: + Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" + IO () + + +matchInfoUnref :: + (MonadIO m) => + MatchInfo -> -- _obj + m () +matchInfoUnref _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_match_info_unref _obj' + touchManagedPtr _obj + return () + +-- struct MemVTable +newtype MemVTable = MemVTable (ForeignPtr MemVTable) +noMemVTable :: Maybe MemVTable +noMemVTable = Nothing + +-- XXX Skipped getter for "MemVTable:free" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- union Mutex +newtype Mutex = Mutex (ForeignPtr Mutex) +noMutex :: Maybe Mutex +noMutex = Nothing + +-- method Mutex::clear +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_mutex_clear" g_mutex_clear :: + Ptr Mutex -> -- _obj : TInterface "GLib" "Mutex" + IO () + + +mutexClear :: + (MonadIO m) => + Mutex -> -- _obj + m () +mutexClear _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_mutex_clear _obj' + touchManagedPtr _obj + return () + +-- method Mutex::init +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_mutex_init" g_mutex_init :: + Ptr Mutex -> -- _obj : TInterface "GLib" "Mutex" + IO () + + +mutexInit :: + (MonadIO m) => + Mutex -> -- _obj + m () +mutexInit _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_mutex_init _obj' + touchManagedPtr _obj + return () + +-- method Mutex::lock +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_mutex_lock" g_mutex_lock :: + Ptr Mutex -> -- _obj : TInterface "GLib" "Mutex" + IO () + + +mutexLock :: + (MonadIO m) => + Mutex -> -- _obj + m () +mutexLock _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_mutex_lock _obj' + touchManagedPtr _obj + return () + +-- method Mutex::trylock +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_mutex_trylock" g_mutex_trylock :: + Ptr Mutex -> -- _obj : TInterface "GLib" "Mutex" + IO CInt + + +mutexTrylock :: + (MonadIO m) => + Mutex -> -- _obj + m Bool +mutexTrylock _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_mutex_trylock _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Mutex::unlock +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_mutex_unlock" g_mutex_unlock :: + Ptr Mutex -> -- _obj : TInterface "GLib" "Mutex" + IO () + + +mutexUnlock :: + (MonadIO m) => + Mutex -> -- _obj + m () +mutexUnlock _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_mutex_unlock _obj' + touchManagedPtr _obj + return () + +-- struct Node +newtype Node = Node (ForeignPtr Node) +noNode :: Maybe Node +noNode = Nothing + +nodeReadData :: Node -> IO (Ptr ()) +nodeReadData s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO (Ptr ()) + return val + +nodeReadNext :: Node -> IO Node +nodeReadNext s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO (Ptr Node) + val' <- (newPtr 40 Node) val + return val' + +nodeReadPrev :: Node -> IO Node +nodeReadPrev s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 16) :: IO (Ptr Node) + val' <- (newPtr 40 Node) val + return val' + +nodeReadParent :: Node -> IO Node +nodeReadParent s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 24) :: IO (Ptr Node) + val' <- (newPtr 40 Node) val + return val' + +nodeReadChildren :: Node -> IO Node +nodeReadChildren s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 32) :: IO (Ptr Node) + val' <- (newPtr 40 Node) val + return val' + +-- method Node::child_index +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", 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 TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_node_child_index" g_node_child_index :: + Ptr Node -> -- _obj : TInterface "GLib" "Node" + Ptr () -> -- data : TBasicType TVoid + IO Int32 + + +nodeChildIndex :: + (MonadIO m) => + Node -> -- _obj + Ptr () -> -- data + m Int32 +nodeChildIndex _obj data_ = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_node_child_index _obj' data_ + touchManagedPtr _obj + return result + +-- method Node::child_position +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_node_child_position" g_node_child_position :: + Ptr Node -> -- _obj : TInterface "GLib" "Node" + Ptr Node -> -- child : TInterface "GLib" "Node" + IO Int32 + + +nodeChildPosition :: + (MonadIO m) => + Node -> -- _obj + Node -> -- child + m Int32 +nodeChildPosition _obj child = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let child' = unsafeManagedPtrGetPtr child + result <- g_node_child_position _obj' child' + touchManagedPtr _obj + touchManagedPtr child + return result + +-- method Node::depth +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_node_depth" g_node_depth :: + Ptr Node -> -- _obj : TInterface "GLib" "Node" + IO Word32 + + +nodeDepth :: + (MonadIO m) => + Node -> -- _obj + m Word32 +nodeDepth _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_node_depth _obj' + touchManagedPtr _obj + return result + +-- method Node::destroy +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_node_destroy" g_node_destroy :: + Ptr Node -> -- _obj : TInterface "GLib" "Node" + IO () + + +nodeDestroy :: + (MonadIO m) => + Node -> -- _obj + m () +nodeDestroy _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_node_destroy _obj' + touchManagedPtr _obj + return () + +-- method Node::is_ancestor +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "descendant", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "descendant", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_node_is_ancestor" g_node_is_ancestor :: + Ptr Node -> -- _obj : TInterface "GLib" "Node" + Ptr Node -> -- descendant : TInterface "GLib" "Node" + IO CInt + + +nodeIsAncestor :: + (MonadIO m) => + Node -> -- _obj + Node -> -- descendant + m Bool +nodeIsAncestor _obj descendant = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let descendant' = unsafeManagedPtrGetPtr descendant + result <- g_node_is_ancestor _obj' descendant' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr descendant + return result' + +-- method Node::max_height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_node_max_height" g_node_max_height :: + Ptr Node -> -- _obj : TInterface "GLib" "Node" + IO Word32 + + +nodeMaxHeight :: + (MonadIO m) => + Node -> -- _obj + m Word32 +nodeMaxHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_node_max_height _obj' + touchManagedPtr _obj + return result + +-- method Node::n_children +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_node_n_children" g_node_n_children :: + Ptr Node -> -- _obj : TInterface "GLib" "Node" + IO Word32 + + +nodeNChildren :: + (MonadIO m) => + Node -> -- _obj + m Word32 +nodeNChildren _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_node_n_children _obj' + touchManagedPtr _obj + return result + +-- method Node::n_nodes +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "TraverseFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "TraverseFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_node_n_nodes" g_node_n_nodes :: + Ptr Node -> -- _obj : TInterface "GLib" "Node" + CUInt -> -- flags : TInterface "GLib" "TraverseFlags" + IO Word32 + + +nodeNNodes :: + (MonadIO m) => + Node -> -- _obj + [TraverseFlags] -> -- flags + m Word32 +nodeNNodes _obj flags = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let flags' = gflagsToWord flags + result <- g_node_n_nodes _obj' flags' + touchManagedPtr _obj + return result + +-- method Node::reverse_children +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_node_reverse_children" g_node_reverse_children :: + Ptr Node -> -- _obj : TInterface "GLib" "Node" + IO () + + +nodeReverseChildren :: + (MonadIO m) => + Node -> -- _obj + m () +nodeReverseChildren _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_node_reverse_children _obj' + touchManagedPtr _obj + return () + +-- method Node::unlink +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_node_unlink" g_node_unlink :: + Ptr Node -> -- _obj : TInterface "GLib" "Node" + IO () + + +nodeUnlink :: + (MonadIO m) => + Node -> -- _obj + m () +nodeUnlink _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_node_unlink _obj' + touchManagedPtr _obj + return () + +-- callback NodeForeachFunc +nodeForeachFuncClosure :: NodeForeachFunc -> IO Closure +nodeForeachFuncClosure cb = newCClosure =<< mkNodeForeachFunc wrapped + where wrapped = nodeForeachFuncWrapper Nothing cb + +type NodeForeachFuncC = + Ptr Node -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkNodeForeachFunc :: NodeForeachFuncC -> IO (FunPtr NodeForeachFuncC) + +type NodeForeachFunc = + Node -> + Ptr () -> + IO () + +noNodeForeachFunc :: Maybe NodeForeachFunc +noNodeForeachFunc = Nothing + +nodeForeachFuncWrapper :: + Maybe (Ptr (FunPtr (NodeForeachFuncC))) -> + NodeForeachFunc -> + Ptr Node -> + Ptr () -> + IO () +nodeForeachFuncWrapper funptrptr _cb node data_ = do + node' <- (newPtr 40 Node) node + _cb node' data_ + maybeReleaseFunPtr funptrptr + +-- callback NodeTraverseFunc +nodeTraverseFuncClosure :: NodeTraverseFunc -> IO Closure +nodeTraverseFuncClosure cb = newCClosure =<< mkNodeTraverseFunc wrapped + where wrapped = nodeTraverseFuncWrapper Nothing cb + +type NodeTraverseFuncC = + Ptr Node -> + Ptr () -> + IO CInt + +foreign import ccall "wrapper" + mkNodeTraverseFunc :: NodeTraverseFuncC -> IO (FunPtr NodeTraverseFuncC) + +type NodeTraverseFunc = + Node -> + Ptr () -> + IO Bool + +noNodeTraverseFunc :: Maybe NodeTraverseFunc +noNodeTraverseFunc = Nothing + +nodeTraverseFuncWrapper :: + Maybe (Ptr (FunPtr (NodeTraverseFuncC))) -> + NodeTraverseFunc -> + Ptr Node -> + Ptr () -> + IO CInt +nodeTraverseFuncWrapper funptrptr _cb node data_ = do + node' <- (newPtr 40 Node) node + result <- _cb node' data_ + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- Enum NormalizeMode + +data NormalizeMode = + NormalizeModeDefault + | NormalizeModeNfd + | NormalizeModeDefaultCompose + | NormalizeModeNfc + | NormalizeModeAll + | NormalizeModeNfkd + | NormalizeModeAllCompose + | NormalizeModeNfkc + | AnotherNormalizeMode Int + deriving (Show, Eq) + +instance Enum NormalizeMode where + fromEnum NormalizeModeDefault = 0 + fromEnum NormalizeModeNfd = 0 + fromEnum NormalizeModeDefaultCompose = 1 + fromEnum NormalizeModeNfc = 1 + fromEnum NormalizeModeAll = 2 + fromEnum NormalizeModeNfkd = 2 + fromEnum NormalizeModeAllCompose = 3 + fromEnum NormalizeModeNfkc = 3 + fromEnum (AnotherNormalizeMode k) = k + + toEnum 0 = NormalizeModeDefault + toEnum 1 = NormalizeModeDefaultCompose + toEnum 2 = NormalizeModeAll + toEnum 3 = NormalizeModeAllCompose + toEnum k = AnotherNormalizeMode k + +-- struct Once +newtype Once = Once (ForeignPtr Once) +noOnce :: Maybe Once +noOnce = Nothing + +onceReadStatus :: Once -> IO OnceStatus +onceReadStatus s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO CUInt + let val' = (toEnum . fromIntegral) val + return val' + +onceReadRetval :: Once -> IO (Ptr ()) +onceReadRetval s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO (Ptr ()) + return val + +-- Enum OnceStatus + +data OnceStatus = + OnceStatusNotcalled + | OnceStatusProgress + | OnceStatusReady + | AnotherOnceStatus Int + deriving (Show, Eq) + +instance Enum OnceStatus where + fromEnum OnceStatusNotcalled = 0 + fromEnum OnceStatusProgress = 1 + fromEnum OnceStatusReady = 2 + fromEnum (AnotherOnceStatus k) = k + + toEnum 0 = OnceStatusNotcalled + toEnum 1 = OnceStatusProgress + toEnum 2 = OnceStatusReady + toEnum k = AnotherOnceStatus k + +-- Enum OptionArg + +data OptionArg = + OptionArgNone + | OptionArgString + | OptionArgInt + | OptionArgCallback + | OptionArgFilename + | OptionArgStringArray + | OptionArgFilenameArray + | OptionArgDouble + | OptionArgInt64 + | AnotherOptionArg Int + deriving (Show, Eq) + +instance Enum OptionArg where + fromEnum OptionArgNone = 0 + fromEnum OptionArgString = 1 + fromEnum OptionArgInt = 2 + fromEnum OptionArgCallback = 3 + fromEnum OptionArgFilename = 4 + fromEnum OptionArgStringArray = 5 + fromEnum OptionArgFilenameArray = 6 + fromEnum OptionArgDouble = 7 + fromEnum OptionArgInt64 = 8 + fromEnum (AnotherOptionArg k) = k + + toEnum 0 = OptionArgNone + toEnum 1 = OptionArgString + toEnum 2 = OptionArgInt + toEnum 3 = OptionArgCallback + toEnum 4 = OptionArgFilename + toEnum 5 = OptionArgStringArray + toEnum 6 = OptionArgFilenameArray + toEnum 7 = OptionArgDouble + toEnum 8 = OptionArgInt64 + toEnum k = AnotherOptionArg k + +-- callback OptionArgFunc +optionArgFuncClosure :: OptionArgFunc -> IO Closure +optionArgFuncClosure cb = newCClosure =<< mkOptionArgFunc wrapped + where wrapped = optionArgFuncWrapper Nothing cb + +type OptionArgFuncC = + CString -> + CString -> + Ptr () -> + IO CInt + +foreign import ccall "wrapper" + mkOptionArgFunc :: OptionArgFuncC -> IO (FunPtr OptionArgFuncC) + +type OptionArgFunc = + T.Text -> + T.Text -> + Ptr () -> + IO Bool + +noOptionArgFunc :: Maybe OptionArgFunc +noOptionArgFunc = Nothing + +optionArgFuncWrapper :: + Maybe (Ptr (FunPtr (OptionArgFuncC))) -> + OptionArgFunc -> + CString -> + CString -> + Ptr () -> + IO CInt +optionArgFuncWrapper funptrptr _cb option_name value data_ = do + option_name' <- cstringToText option_name + value' <- cstringToText value + result <- _cb option_name' value' data_ + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- struct OptionContext +newtype OptionContext = OptionContext (ForeignPtr OptionContext) +noOptionContext :: Maybe OptionContext +noOptionContext = Nothing + +-- method OptionContext::add_group +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_option_context_add_group" g_option_context_add_group :: + Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" + Ptr OptionGroup -> -- group : TInterface "GLib" "OptionGroup" + IO () + + +optionContextAddGroup :: + (MonadIO m) => + OptionContext -> -- _obj + OptionGroup -> -- group + m () +optionContextAddGroup _obj group = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + group' <- copyBoxed group + g_option_context_add_group _obj' group' + touchManagedPtr _obj + touchManagedPtr group + return () + +-- method OptionContext::add_main_entries +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TInterface "GLib" "OptionEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translation_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TInterface "GLib" "OptionEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translation_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_option_context_add_main_entries" g_option_context_add_main_entries :: + Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" + Ptr OptionEntry -> -- entries : TInterface "GLib" "OptionEntry" + CString -> -- translation_domain : TBasicType TUTF8 + IO () + + +optionContextAddMainEntries :: + (MonadIO m) => + OptionContext -> -- _obj + OptionEntry -> -- entries + Maybe (T.Text) -> -- translation_domain + m () +optionContextAddMainEntries _obj entries translation_domain = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let entries' = unsafeManagedPtrGetPtr entries + maybeTranslation_domain <- case translation_domain of + Nothing -> return nullPtr + Just jTranslation_domain -> do + jTranslation_domain' <- textToCString jTranslation_domain + return jTranslation_domain' + g_option_context_add_main_entries _obj' entries' maybeTranslation_domain + touchManagedPtr _obj + touchManagedPtr entries + freeMem maybeTranslation_domain + return () + +-- method OptionContext::free +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_option_context_free" g_option_context_free :: + Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" + IO () + + +optionContextFree :: + (MonadIO m) => + OptionContext -> -- _obj + m () +optionContextFree _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_option_context_free _obj' + touchManagedPtr _obj + return () + +-- method OptionContext::get_description +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_option_context_get_description" g_option_context_get_description :: + Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" + IO CString + + +optionContextGetDescription :: + (MonadIO m) => + OptionContext -> -- _obj + m T.Text +optionContextGetDescription _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_option_context_get_description _obj' + checkUnexpectedReturnNULL "g_option_context_get_description" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method OptionContext::get_help +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "main_help", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "main_help", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_option_context_get_help" g_option_context_get_help :: + Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" + CInt -> -- main_help : TBasicType TBoolean + Ptr OptionGroup -> -- group : TInterface "GLib" "OptionGroup" + IO CString + + +optionContextGetHelp :: + (MonadIO m) => + OptionContext -> -- _obj + Bool -> -- main_help + Maybe (OptionGroup) -> -- group + m T.Text +optionContextGetHelp _obj main_help group = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let main_help' = (fromIntegral . fromEnum) main_help + maybeGroup <- case group of + Nothing -> return nullPtr + Just jGroup -> do + let jGroup' = unsafeManagedPtrGetPtr jGroup + return jGroup' + result <- g_option_context_get_help _obj' main_help' maybeGroup + checkUnexpectedReturnNULL "g_option_context_get_help" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + whenJust group touchManagedPtr + return result' + +-- method OptionContext::get_help_enabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_option_context_get_help_enabled" g_option_context_get_help_enabled :: + Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" + IO CInt + + +optionContextGetHelpEnabled :: + (MonadIO m) => + OptionContext -> -- _obj + m Bool +optionContextGetHelpEnabled _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_option_context_get_help_enabled _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method OptionContext::get_ignore_unknown_options +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_option_context_get_ignore_unknown_options" g_option_context_get_ignore_unknown_options :: + Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" + IO CInt + + +optionContextGetIgnoreUnknownOptions :: + (MonadIO m) => + OptionContext -> -- _obj + m Bool +optionContextGetIgnoreUnknownOptions _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_option_context_get_ignore_unknown_options _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method OptionContext::get_main_group +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "OptionGroup" +-- throws : False +-- Skip return : False + +foreign import ccall "g_option_context_get_main_group" g_option_context_get_main_group :: + Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" + IO (Ptr OptionGroup) + + +optionContextGetMainGroup :: + (MonadIO m) => + OptionContext -> -- _obj + m OptionGroup +optionContextGetMainGroup _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_option_context_get_main_group _obj' + checkUnexpectedReturnNULL "g_option_context_get_main_group" result + result' <- (newBoxed OptionGroup) result + touchManagedPtr _obj + return result' + +-- method OptionContext::get_strict_posix +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_option_context_get_strict_posix" g_option_context_get_strict_posix :: + Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" + IO CInt + + +optionContextGetStrictPosix :: + (MonadIO m) => + OptionContext -> -- _obj + m Bool +optionContextGetStrictPosix _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_option_context_get_strict_posix _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method OptionContext::get_summary +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_option_context_get_summary" g_option_context_get_summary :: + Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" + IO CString + + +optionContextGetSummary :: + (MonadIO m) => + OptionContext -> -- _obj + m T.Text +optionContextGetSummary _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_option_context_get_summary _obj' + checkUnexpectedReturnNULL "g_option_context_get_summary" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- XXX Could not generate method OptionContext::parse +-- Error was : Bad introspection data: "argument \"argc\" is not of nullable type (TBasicType TInt32), but it is marked as such." +-- method OptionContext::parse_strv +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arguments", argType = TCArray False (-1) (-1) (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arguments", argType = TCArray False (-1) (-1) (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_option_context_parse_strv" g_option_context_parse_strv :: + Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" + Ptr (Ptr CString) -> -- arguments : TCArray False (-1) (-1) (TBasicType TUTF8) + Ptr (Ptr GError) -> -- error + IO CInt + + +optionContextParseStrv :: + (MonadIO m) => + OptionContext -> -- _obj + Ptr CString -> -- arguments + m ((Ptr CString)) +optionContextParseStrv _obj arguments = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + arguments' <- allocMem :: IO (Ptr (Ptr CString)) + poke arguments' arguments + onException (do + _ <- propagateGError $ g_option_context_parse_strv _obj' arguments' + arguments'' <- peek arguments' + touchManagedPtr _obj + freeMem arguments' + return arguments'' + ) (do + freeMem arguments' + ) + +-- method OptionContext::set_description +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_option_context_set_description" g_option_context_set_description :: + Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" + CString -> -- description : TBasicType TUTF8 + IO () + + +optionContextSetDescription :: + (MonadIO m) => + OptionContext -> -- _obj + Maybe (T.Text) -> -- description + m () +optionContextSetDescription _obj description = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + maybeDescription <- case description of + Nothing -> return nullPtr + Just jDescription -> do + jDescription' <- textToCString jDescription + return jDescription' + g_option_context_set_description _obj' maybeDescription + touchManagedPtr _obj + freeMem maybeDescription + return () + +-- method OptionContext::set_help_enabled +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "help_enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "help_enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_option_context_set_help_enabled" g_option_context_set_help_enabled :: + Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" + CInt -> -- help_enabled : TBasicType TBoolean + IO () + + +optionContextSetHelpEnabled :: + (MonadIO m) => + OptionContext -> -- _obj + Bool -> -- help_enabled + m () +optionContextSetHelpEnabled _obj help_enabled = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let help_enabled' = (fromIntegral . fromEnum) help_enabled + g_option_context_set_help_enabled _obj' help_enabled' + touchManagedPtr _obj + return () + +-- method OptionContext::set_ignore_unknown_options +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ignore_unknown", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ignore_unknown", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_option_context_set_ignore_unknown_options" g_option_context_set_ignore_unknown_options :: + Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" + CInt -> -- ignore_unknown : TBasicType TBoolean + IO () + + +optionContextSetIgnoreUnknownOptions :: + (MonadIO m) => + OptionContext -> -- _obj + Bool -> -- ignore_unknown + m () +optionContextSetIgnoreUnknownOptions _obj ignore_unknown = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let ignore_unknown' = (fromIntegral . fromEnum) ignore_unknown + g_option_context_set_ignore_unknown_options _obj' ignore_unknown' + touchManagedPtr _obj + return () + +-- method OptionContext::set_main_group +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_option_context_set_main_group" g_option_context_set_main_group :: + Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" + Ptr OptionGroup -> -- group : TInterface "GLib" "OptionGroup" + IO () + + +optionContextSetMainGroup :: + (MonadIO m) => + OptionContext -> -- _obj + OptionGroup -> -- group + m () +optionContextSetMainGroup _obj group = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + group' <- copyBoxed group + g_option_context_set_main_group _obj' group' + touchManagedPtr _obj + touchManagedPtr group + return () + +-- method OptionContext::set_strict_posix +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "strict_posix", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "strict_posix", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_option_context_set_strict_posix" g_option_context_set_strict_posix :: + Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" + CInt -> -- strict_posix : TBasicType TBoolean + IO () + + +optionContextSetStrictPosix :: + (MonadIO m) => + OptionContext -> -- _obj + Bool -> -- strict_posix + m () +optionContextSetStrictPosix _obj strict_posix = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let strict_posix' = (fromIntegral . fromEnum) strict_posix + g_option_context_set_strict_posix _obj' strict_posix' + touchManagedPtr _obj + return () + +-- method OptionContext::set_summary +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "summary", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "summary", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_option_context_set_summary" g_option_context_set_summary :: + Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" + CString -> -- summary : TBasicType TUTF8 + IO () + + +optionContextSetSummary :: + (MonadIO m) => + OptionContext -> -- _obj + Maybe (T.Text) -> -- summary + m () +optionContextSetSummary _obj summary = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + maybeSummary <- case summary of + Nothing -> return nullPtr + Just jSummary -> do + jSummary' <- textToCString jSummary + return jSummary' + g_option_context_set_summary _obj' maybeSummary + touchManagedPtr _obj + freeMem maybeSummary + return () + +-- method OptionContext::set_translate_func +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "TranslateFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "TranslateFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_option_context_set_translate_func" g_option_context_set_translate_func :: + Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" + FunPtr TranslateFuncC -> -- func : TInterface "GLib" "TranslateFunc" + Ptr () -> -- data : TBasicType TVoid + FunPtr DestroyNotifyC -> -- destroy_notify : TInterface "GLib" "DestroyNotify" + IO () + + +optionContextSetTranslateFunc :: + (MonadIO m) => + OptionContext -> -- _obj + Maybe (TranslateFunc) -> -- func + m () +optionContextSetTranslateFunc _obj func = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + maybeFunc <- case func of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jFunc -> do + jFunc' <- mkTranslateFunc (translateFuncWrapper Nothing jFunc) + return jFunc' + let data_ = castFunPtrToPtr maybeFunc + let destroy_notify = safeFreeFunPtrPtr + g_option_context_set_translate_func _obj' maybeFunc data_ destroy_notify + touchManagedPtr _obj + return () + +-- method OptionContext::set_translation_domain +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_option_context_set_translation_domain" g_option_context_set_translation_domain :: + Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" + CString -> -- domain : TBasicType TUTF8 + IO () + + +optionContextSetTranslationDomain :: + (MonadIO m) => + OptionContext -> -- _obj + T.Text -> -- domain + m () +optionContextSetTranslationDomain _obj domain = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + domain' <- textToCString domain + g_option_context_set_translation_domain _obj' domain' + touchManagedPtr _obj + freeMem domain' + return () + +-- struct OptionEntry +newtype OptionEntry = OptionEntry (ForeignPtr OptionEntry) +noOptionEntry :: Maybe OptionEntry +noOptionEntry = Nothing + +optionEntryReadLongName :: OptionEntry -> IO T.Text +optionEntryReadLongName s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO CString + val' <- cstringToText val + return val' + +optionEntryReadShortName :: OptionEntry -> IO Int8 +optionEntryReadShortName s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO Int8 + return val + +optionEntryReadFlags :: OptionEntry -> IO Int32 +optionEntryReadFlags s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 12) :: IO Int32 + return val + +optionEntryReadArg :: OptionEntry -> IO OptionArg +optionEntryReadArg s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 16) :: IO CUInt + let val' = (toEnum . fromIntegral) val + return val' + +optionEntryReadArgData :: OptionEntry -> IO (Ptr ()) +optionEntryReadArgData s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 24) :: IO (Ptr ()) + return val + +optionEntryReadDescription :: OptionEntry -> IO T.Text +optionEntryReadDescription s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 32) :: IO CString + val' <- cstringToText val + return val' + +optionEntryReadArgDescription :: OptionEntry -> IO T.Text +optionEntryReadArgDescription s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 40) :: IO CString + val' <- cstringToText val + return val' + +-- Enum OptionError + +data OptionError = + OptionErrorUnknownOption + | OptionErrorBadValue + | OptionErrorFailed + | AnotherOptionError Int + deriving (Show, Eq) + +instance Enum OptionError where + fromEnum OptionErrorUnknownOption = 0 + fromEnum OptionErrorBadValue = 1 + fromEnum OptionErrorFailed = 2 + fromEnum (AnotherOptionError k) = k + + toEnum 0 = OptionErrorUnknownOption + toEnum 1 = OptionErrorBadValue + toEnum 2 = OptionErrorFailed + toEnum k = AnotherOptionError k + +instance GErrorClass OptionError where + gerrorClassDomain _ = "g-option-context-error-quark" + +catchOptionError :: + IO a -> + (OptionError -> GErrorMessage -> IO a) -> + IO a +catchOptionError = catchGErrorJustDomain + +handleOptionError :: + (OptionError -> GErrorMessage -> IO a) -> + IO a -> + IO a +handleOptionError = handleGErrorJustDomain + +-- callback OptionErrorFunc +optionErrorFuncClosure :: OptionErrorFunc -> IO Closure +optionErrorFuncClosure cb = newCClosure =<< mkOptionErrorFunc wrapped + where wrapped = optionErrorFuncWrapper Nothing cb + +type OptionErrorFuncC = + Ptr OptionContext -> + Ptr OptionGroup -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkOptionErrorFunc :: OptionErrorFuncC -> IO (FunPtr OptionErrorFuncC) + +type OptionErrorFunc = + OptionContext -> + OptionGroup -> + Ptr () -> + IO () + +noOptionErrorFunc :: Maybe OptionErrorFunc +noOptionErrorFunc = Nothing + +optionErrorFuncWrapper :: + Maybe (Ptr (FunPtr (OptionErrorFuncC))) -> + OptionErrorFunc -> + Ptr OptionContext -> + Ptr OptionGroup -> + Ptr () -> + IO () +optionErrorFuncWrapper funptrptr _cb context group data_ = do + -- XXX Wrapping a foreign struct/union with no known destructor, leak? + context' <- (\x -> OptionContext <$> newForeignPtr_ x) context + group' <- (newBoxed OptionGroup) group + _cb context' group' data_ + maybeReleaseFunPtr funptrptr + +-- Flags OptionFlags + +data OptionFlags = + OptionFlagsNone + | OptionFlagsHidden + | OptionFlagsInMain + | OptionFlagsReverse + | OptionFlagsNoArg + | OptionFlagsFilename + | OptionFlagsOptionalArg + | OptionFlagsNoalias + | AnotherOptionFlags Int + deriving (Show, Eq) + +instance Enum OptionFlags where + fromEnum OptionFlagsNone = 0 + fromEnum OptionFlagsHidden = 1 + fromEnum OptionFlagsInMain = 2 + fromEnum OptionFlagsReverse = 4 + fromEnum OptionFlagsNoArg = 8 + fromEnum OptionFlagsFilename = 16 + fromEnum OptionFlagsOptionalArg = 32 + fromEnum OptionFlagsNoalias = 64 + fromEnum (AnotherOptionFlags k) = k + + toEnum 0 = OptionFlagsNone + toEnum 1 = OptionFlagsHidden + toEnum 2 = OptionFlagsInMain + toEnum 4 = OptionFlagsReverse + toEnum 8 = OptionFlagsNoArg + toEnum 16 = OptionFlagsFilename + toEnum 32 = OptionFlagsOptionalArg + toEnum 64 = OptionFlagsNoalias + toEnum k = AnotherOptionFlags k + +instance IsGFlag OptionFlags + +-- struct OptionGroup +newtype OptionGroup = OptionGroup (ForeignPtr OptionGroup) +noOptionGroup :: Maybe OptionGroup +noOptionGroup = Nothing + +foreign import ccall "g_option_group_get_type" c_g_option_group_get_type :: + IO GType + +instance BoxedObject OptionGroup where + boxedType _ = c_g_option_group_get_type + +-- method OptionGroup::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 = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "help_description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, 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 : [] +-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, 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 = "help_description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, 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 : TInterface "GLib" "OptionGroup" +-- throws : False +-- Skip return : False + +foreign import ccall "g_option_group_new" g_option_group_new :: + CString -> -- name : TBasicType TUTF8 + CString -> -- description : TBasicType TUTF8 + CString -> -- help_description : TBasicType TUTF8 + Ptr () -> -- user_data : TBasicType TVoid + FunPtr DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" + IO (Ptr OptionGroup) + + +optionGroupNew :: + (MonadIO m) => + T.Text -> -- name + T.Text -> -- description + T.Text -> -- help_description + Maybe (Ptr ()) -> -- user_data + Maybe (DestroyNotify) -> -- destroy + m OptionGroup +optionGroupNew name description help_description user_data destroy = liftIO $ do + name' <- textToCString name + description' <- textToCString description + help_description' <- textToCString help_description + maybeUser_data <- case user_data of + Nothing -> return nullPtr + Just jUser_data -> do + return jUser_data + ptrdestroy <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC)) + maybeDestroy <- case destroy of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jDestroy -> do + jDestroy' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrdestroy) jDestroy) + poke ptrdestroy jDestroy' + return jDestroy' + result <- g_option_group_new name' description' help_description' maybeUser_data maybeDestroy + checkUnexpectedReturnNULL "g_option_group_new" result + result' <- (wrapBoxed OptionGroup) result + freeMem name' + freeMem description' + freeMem help_description' + return result' + +-- method OptionGroup::add_entries +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TInterface "GLib" "OptionEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TInterface "GLib" "OptionEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_option_group_add_entries" g_option_group_add_entries :: + Ptr OptionGroup -> -- _obj : TInterface "GLib" "OptionGroup" + Ptr OptionEntry -> -- entries : TInterface "GLib" "OptionEntry" + IO () + + +optionGroupAddEntries :: + (MonadIO m) => + OptionGroup -> -- _obj + OptionEntry -> -- entries + m () +optionGroupAddEntries _obj entries = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let entries' = unsafeManagedPtrGetPtr entries + g_option_group_add_entries _obj' entries' + touchManagedPtr _obj + touchManagedPtr entries + return () + +-- method OptionGroup::free +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_option_group_free" g_option_group_free :: + Ptr OptionGroup -> -- _obj : TInterface "GLib" "OptionGroup" + IO () + +{-# DEPRECATED optionGroupFree ["(Since version 2.44)","Use g_option_group_unref() instead."]#-} +optionGroupFree :: + (MonadIO m) => + OptionGroup -> -- _obj + m () +optionGroupFree _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_option_group_free _obj' + touchManagedPtr _obj + return () + +-- method OptionGroup::ref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "OptionGroup" +-- throws : False +-- Skip return : False + +foreign import ccall "g_option_group_ref" g_option_group_ref :: + Ptr OptionGroup -> -- _obj : TInterface "GLib" "OptionGroup" + IO (Ptr OptionGroup) + + +optionGroupRef :: + (MonadIO m) => + OptionGroup -> -- _obj + m OptionGroup +optionGroupRef _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_option_group_ref _obj' + checkUnexpectedReturnNULL "g_option_group_ref" result + result' <- (wrapBoxed OptionGroup) result + touchManagedPtr _obj + return result' + +-- method OptionGroup::set_translate_func +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "TranslateFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "TranslateFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_option_group_set_translate_func" g_option_group_set_translate_func :: + Ptr OptionGroup -> -- _obj : TInterface "GLib" "OptionGroup" + FunPtr TranslateFuncC -> -- func : TInterface "GLib" "TranslateFunc" + Ptr () -> -- data : TBasicType TVoid + FunPtr DestroyNotifyC -> -- destroy_notify : TInterface "GLib" "DestroyNotify" + IO () + + +optionGroupSetTranslateFunc :: + (MonadIO m) => + OptionGroup -> -- _obj + Maybe (TranslateFunc) -> -- func + m () +optionGroupSetTranslateFunc _obj func = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + maybeFunc <- case func of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jFunc -> do + jFunc' <- mkTranslateFunc (translateFuncWrapper Nothing jFunc) + return jFunc' + let data_ = castFunPtrToPtr maybeFunc + let destroy_notify = safeFreeFunPtrPtr + g_option_group_set_translate_func _obj' maybeFunc data_ destroy_notify + touchManagedPtr _obj + return () + +-- method OptionGroup::set_translation_domain +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_option_group_set_translation_domain" g_option_group_set_translation_domain :: + Ptr OptionGroup -> -- _obj : TInterface "GLib" "OptionGroup" + CString -> -- domain : TBasicType TUTF8 + IO () + + +optionGroupSetTranslationDomain :: + (MonadIO m) => + OptionGroup -> -- _obj + T.Text -> -- domain + m () +optionGroupSetTranslationDomain _obj domain = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + domain' <- textToCString domain + g_option_group_set_translation_domain _obj' domain' + touchManagedPtr _obj + freeMem domain' + return () + +-- method OptionGroup::unref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_option_group_unref" g_option_group_unref :: + Ptr OptionGroup -> -- _obj : TInterface "GLib" "OptionGroup" + IO () + + +optionGroupUnref :: + (MonadIO m) => + OptionGroup -> -- _obj + m () +optionGroupUnref _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_option_group_unref _obj' + touchManagedPtr _obj + return () + +-- callback OptionParseFunc +optionParseFuncClosure :: OptionParseFunc -> IO Closure +optionParseFuncClosure cb = newCClosure =<< mkOptionParseFunc wrapped + where wrapped = optionParseFuncWrapper Nothing cb + +type OptionParseFuncC = + Ptr OptionContext -> + Ptr OptionGroup -> + Ptr () -> + IO CInt + +foreign import ccall "wrapper" + mkOptionParseFunc :: OptionParseFuncC -> IO (FunPtr OptionParseFuncC) + +type OptionParseFunc = + OptionContext -> + OptionGroup -> + Ptr () -> + IO Bool + +noOptionParseFunc :: Maybe OptionParseFunc +noOptionParseFunc = Nothing + +optionParseFuncWrapper :: + Maybe (Ptr (FunPtr (OptionParseFuncC))) -> + OptionParseFunc -> + Ptr OptionContext -> + Ptr OptionGroup -> + Ptr () -> + IO CInt +optionParseFuncWrapper funptrptr _cb context group data_ = do + -- XXX Wrapping a foreign struct/union with no known destructor, leak? + context' <- (\x -> OptionContext <$> newForeignPtr_ x) context + group' <- (newBoxed OptionGroup) group + result <- _cb context' group' data_ + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- struct PatternSpec +newtype PatternSpec = PatternSpec (ForeignPtr PatternSpec) +noPatternSpec :: Maybe PatternSpec +noPatternSpec = Nothing + +-- method PatternSpec::equal +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec2", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec2", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_pattern_spec_equal" g_pattern_spec_equal :: + Ptr PatternSpec -> -- _obj : TInterface "GLib" "PatternSpec" + Ptr PatternSpec -> -- pspec2 : TInterface "GLib" "PatternSpec" + IO CInt + + +patternSpecEqual :: + (MonadIO m) => + PatternSpec -> -- _obj + PatternSpec -> -- pspec2 + m Bool +patternSpecEqual _obj pspec2 = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let pspec2' = unsafeManagedPtrGetPtr pspec2 + result <- g_pattern_spec_equal _obj' pspec2' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr pspec2 + return result' + +-- method PatternSpec::free +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_pattern_spec_free" g_pattern_spec_free :: + Ptr PatternSpec -> -- _obj : TInterface "GLib" "PatternSpec" + IO () + + +patternSpecFree :: + (MonadIO m) => + PatternSpec -> -- _obj + m () +patternSpecFree _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_pattern_spec_free _obj' + touchManagedPtr _obj + return () + +-- struct PollFD +newtype PollFD = PollFD (ForeignPtr PollFD) +noPollFD :: Maybe PollFD +noPollFD = Nothing + +foreign import ccall "g_pollfd_get_type" c_g_pollfd_get_type :: + IO GType + +instance BoxedObject PollFD where + boxedType _ = c_g_pollfd_get_type + +pollFDReadFd :: PollFD -> IO Int32 +pollFDReadFd s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Int32 + return val + +pollFDReadEvents :: PollFD -> IO Word16 +pollFDReadEvents s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 4) :: IO Word16 + return val + +pollFDReadRevents :: PollFD -> IO Word16 +pollFDReadRevents s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 6) :: IO Word16 + return val + +-- callback PollFunc +pollFuncClosure :: PollFunc -> IO Closure +pollFuncClosure cb = newCClosure =<< mkPollFunc wrapped + where wrapped = pollFuncWrapper Nothing cb + +type PollFuncC = + Ptr PollFD -> + Word32 -> + Int32 -> + IO Int32 + +foreign import ccall "wrapper" + mkPollFunc :: PollFuncC -> IO (FunPtr PollFuncC) + +type PollFunc = + PollFD -> + Word32 -> + Int32 -> + IO Int32 + +noPollFunc :: Maybe PollFunc +noPollFunc = Nothing + +pollFuncWrapper :: + Maybe (Ptr (FunPtr (PollFuncC))) -> + PollFunc -> + Ptr PollFD -> + Word32 -> + Int32 -> + IO Int32 +pollFuncWrapper funptrptr _cb ufds nfsd timeout_ = do + ufds' <- (newBoxed PollFD) ufds + result <- _cb ufds' nfsd timeout_ + maybeReleaseFunPtr funptrptr + return result + +-- callback PrintFunc +printFuncClosure :: PrintFunc -> IO Closure +printFuncClosure cb = newCClosure =<< mkPrintFunc wrapped + where wrapped = printFuncWrapper Nothing cb + +type PrintFuncC = + CString -> + IO () + +foreign import ccall "wrapper" + mkPrintFunc :: PrintFuncC -> IO (FunPtr PrintFuncC) + +type PrintFunc = + T.Text -> + IO () + +noPrintFunc :: Maybe PrintFunc +noPrintFunc = Nothing + +printFuncWrapper :: + Maybe (Ptr (FunPtr (PrintFuncC))) -> + PrintFunc -> + CString -> + IO () +printFuncWrapper funptrptr _cb string = do + string' <- cstringToText string + _cb string' + maybeReleaseFunPtr funptrptr + +-- struct PtrArray +newtype PtrArray = PtrArray (ForeignPtr PtrArray) +noPtrArray :: Maybe PtrArray +noPtrArray = Nothing + +foreign import ccall "g_ptr_array_get_type" c_g_ptr_array_get_type :: + IO GType + +instance BoxedObject PtrArray where + boxedType _ = c_g_ptr_array_get_type + +ptrArrayReadPdata :: PtrArray -> IO (Ptr ()) +ptrArrayReadPdata s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO (Ptr ()) + return val + +ptrArrayReadLen :: PtrArray -> IO Word32 +ptrArrayReadLen s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO Word32 + return val + +-- struct Queue +newtype Queue = Queue (ForeignPtr Queue) +noQueue :: Maybe Queue +noQueue = Nothing + +queueReadHead :: Queue -> IO ([Ptr ()]) +queueReadHead s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO (Ptr (GList (Ptr ()))) + val' <- unpackGList val + return val' + +queueReadTail :: Queue -> IO ([Ptr ()]) +queueReadTail s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO (Ptr (GList (Ptr ()))) + val' <- unpackGList val + return val' + +queueReadLength :: Queue -> IO Word32 +queueReadLength s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 16) :: IO Word32 + return val + +-- method Queue::clear +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_queue_clear" g_queue_clear :: + Ptr Queue -> -- _obj : TInterface "GLib" "Queue" + IO () + + +queueClear :: + (MonadIO m) => + Queue -> -- _obj + m () +queueClear _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_queue_clear _obj' + touchManagedPtr _obj + return () + +-- method Queue::free +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_queue_free" g_queue_free :: + Ptr Queue -> -- _obj : TInterface "GLib" "Queue" + IO () + + +queueFree :: + (MonadIO m) => + Queue -> -- _obj + m () +queueFree _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_queue_free _obj' + touchManagedPtr _obj + return () + +-- method Queue::free_full +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "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 "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "free_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_queue_free_full" g_queue_free_full :: + Ptr Queue -> -- _obj : TInterface "GLib" "Queue" + FunPtr DestroyNotifyC -> -- free_func : TInterface "GLib" "DestroyNotify" + IO () + + +queueFreeFull :: + (MonadIO m) => + Queue -> -- _obj + DestroyNotify -> -- free_func + m () +queueFreeFull _obj free_func = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + ptrfree_func <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC)) + free_func' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrfree_func) free_func) + poke ptrfree_func free_func' + g_queue_free_full _obj' free_func' + touchManagedPtr _obj + return () + +-- method Queue::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_queue_get_length" g_queue_get_length :: + Ptr Queue -> -- _obj : TInterface "GLib" "Queue" + IO Word32 + + +queueGetLength :: + (MonadIO m) => + Queue -> -- _obj + m Word32 +queueGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_queue_get_length _obj' + touchManagedPtr _obj + return result + +-- method Queue::index +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", 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 TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_queue_index" g_queue_index :: + Ptr Queue -> -- _obj : TInterface "GLib" "Queue" + Ptr () -> -- data : TBasicType TVoid + IO Int32 + + +queueIndex :: + (MonadIO m) => + Queue -> -- _obj + Ptr () -> -- data + m Int32 +queueIndex _obj data_ = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_queue_index _obj' data_ + touchManagedPtr _obj + return result + +-- method Queue::init +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_queue_init" g_queue_init :: + Ptr Queue -> -- _obj : TInterface "GLib" "Queue" + IO () + + +queueInit :: + (MonadIO m) => + Queue -> -- _obj + m () +queueInit _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_queue_init _obj' + touchManagedPtr _obj + return () + +-- method Queue::is_empty +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_queue_is_empty" g_queue_is_empty :: + Ptr Queue -> -- _obj : TInterface "GLib" "Queue" + IO CInt + + +queueIsEmpty :: + (MonadIO m) => + Queue -> -- _obj + m Bool +queueIsEmpty _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_queue_is_empty _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Queue::push_head +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", 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 + +foreign import ccall "g_queue_push_head" g_queue_push_head :: + Ptr Queue -> -- _obj : TInterface "GLib" "Queue" + Ptr () -> -- data : TBasicType TVoid + IO () + + +queuePushHead :: + (MonadIO m) => + Queue -> -- _obj + Ptr () -> -- data + m () +queuePushHead _obj data_ = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_queue_push_head _obj' data_ + touchManagedPtr _obj + return () + +-- method Queue::push_nth +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", 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},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", 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},Arg {argName = "n", 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_queue_push_nth" g_queue_push_nth :: + Ptr Queue -> -- _obj : TInterface "GLib" "Queue" + Ptr () -> -- data : TBasicType TVoid + Int32 -> -- n : TBasicType TInt32 + IO () + + +queuePushNth :: + (MonadIO m) => + Queue -> -- _obj + Ptr () -> -- data + Int32 -> -- n + m () +queuePushNth _obj data_ n = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_queue_push_nth _obj' data_ n + touchManagedPtr _obj + return () + +-- method Queue::push_tail +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", 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 + +foreign import ccall "g_queue_push_tail" g_queue_push_tail :: + Ptr Queue -> -- _obj : TInterface "GLib" "Queue" + Ptr () -> -- data : TBasicType TVoid + IO () + + +queuePushTail :: + (MonadIO m) => + Queue -> -- _obj + Ptr () -> -- data + m () +queuePushTail _obj data_ = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_queue_push_tail _obj' data_ + touchManagedPtr _obj + return () + +-- method Queue::remove +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", 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 TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_queue_remove" g_queue_remove :: + Ptr Queue -> -- _obj : TInterface "GLib" "Queue" + Ptr () -> -- data : TBasicType TVoid + IO CInt + + +queueRemove :: + (MonadIO m) => + Queue -> -- _obj + Ptr () -> -- data + m Bool +queueRemove _obj data_ = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_queue_remove _obj' data_ + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Queue::remove_all +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", 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 TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_queue_remove_all" g_queue_remove_all :: + Ptr Queue -> -- _obj : TInterface "GLib" "Queue" + Ptr () -> -- data : TBasicType TVoid + IO Word32 + + +queueRemoveAll :: + (MonadIO m) => + Queue -> -- _obj + Ptr () -> -- data + m Word32 +queueRemoveAll _obj data_ = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_queue_remove_all _obj' data_ + touchManagedPtr _obj + return result + +-- method Queue::reverse +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_queue_reverse" g_queue_reverse :: + Ptr Queue -> -- _obj : TInterface "GLib" "Queue" + IO () + + +queueReverse :: + (MonadIO m) => + Queue -> -- _obj + m () +queueReverse _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_queue_reverse _obj' + touchManagedPtr _obj + return () + +-- struct RWLock +newtype RWLock = RWLock (ForeignPtr RWLock) +noRWLock :: Maybe RWLock +noRWLock = Nothing + +-- method RWLock::clear +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_rw_lock_clear" g_rw_lock_clear :: + Ptr RWLock -> -- _obj : TInterface "GLib" "RWLock" + IO () + + +rWLockClear :: + (MonadIO m) => + RWLock -> -- _obj + m () +rWLockClear _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_rw_lock_clear _obj' + touchManagedPtr _obj + return () + +-- method RWLock::init +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_rw_lock_init" g_rw_lock_init :: + Ptr RWLock -> -- _obj : TInterface "GLib" "RWLock" + IO () + + +rWLockInit :: + (MonadIO m) => + RWLock -> -- _obj + m () +rWLockInit _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_rw_lock_init _obj' + touchManagedPtr _obj + return () + +-- method RWLock::reader_lock +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_rw_lock_reader_lock" g_rw_lock_reader_lock :: + Ptr RWLock -> -- _obj : TInterface "GLib" "RWLock" + IO () + + +rWLockReaderLock :: + (MonadIO m) => + RWLock -> -- _obj + m () +rWLockReaderLock _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_rw_lock_reader_lock _obj' + touchManagedPtr _obj + return () + +-- method RWLock::reader_trylock +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_rw_lock_reader_trylock" g_rw_lock_reader_trylock :: + Ptr RWLock -> -- _obj : TInterface "GLib" "RWLock" + IO CInt + + +rWLockReaderTrylock :: + (MonadIO m) => + RWLock -> -- _obj + m Bool +rWLockReaderTrylock _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_rw_lock_reader_trylock _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method RWLock::reader_unlock +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_rw_lock_reader_unlock" g_rw_lock_reader_unlock :: + Ptr RWLock -> -- _obj : TInterface "GLib" "RWLock" + IO () + + +rWLockReaderUnlock :: + (MonadIO m) => + RWLock -> -- _obj + m () +rWLockReaderUnlock _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_rw_lock_reader_unlock _obj' + touchManagedPtr _obj + return () + +-- method RWLock::writer_lock +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_rw_lock_writer_lock" g_rw_lock_writer_lock :: + Ptr RWLock -> -- _obj : TInterface "GLib" "RWLock" + IO () + + +rWLockWriterLock :: + (MonadIO m) => + RWLock -> -- _obj + m () +rWLockWriterLock _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_rw_lock_writer_lock _obj' + touchManagedPtr _obj + return () + +-- method RWLock::writer_trylock +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_rw_lock_writer_trylock" g_rw_lock_writer_trylock :: + Ptr RWLock -> -- _obj : TInterface "GLib" "RWLock" + IO CInt + + +rWLockWriterTrylock :: + (MonadIO m) => + RWLock -> -- _obj + m Bool +rWLockWriterTrylock _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_rw_lock_writer_trylock _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method RWLock::writer_unlock +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_rw_lock_writer_unlock" g_rw_lock_writer_unlock :: + Ptr RWLock -> -- _obj : TInterface "GLib" "RWLock" + IO () + + +rWLockWriterUnlock :: + (MonadIO m) => + RWLock -> -- _obj + m () +rWLockWriterUnlock _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_rw_lock_writer_unlock _obj' + touchManagedPtr _obj + return () + +-- struct Rand +newtype Rand = Rand (ForeignPtr Rand) +noRand :: Maybe Rand +noRand = Nothing + +-- method Rand::double +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "g_rand_double" g_rand_double :: + Ptr Rand -> -- _obj : TInterface "GLib" "Rand" + IO CDouble + + +randDouble :: + (MonadIO m) => + Rand -> -- _obj + m Double +randDouble _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_rand_double _obj' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method Rand::double_range +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "g_rand_double_range" g_rand_double_range :: + Ptr Rand -> -- _obj : TInterface "GLib" "Rand" + CDouble -> -- begin : TBasicType TDouble + CDouble -> -- end : TBasicType TDouble + IO CDouble + + +randDoubleRange :: + (MonadIO m) => + Rand -> -- _obj + Double -> -- begin + Double -> -- end + m Double +randDoubleRange _obj begin end = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let begin' = realToFrac begin + let end' = realToFrac end + result <- g_rand_double_range _obj' begin' end' + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method Rand::free +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_rand_free" g_rand_free :: + Ptr Rand -> -- _obj : TInterface "GLib" "Rand" + IO () + + +randFree :: + (MonadIO m) => + Rand -> -- _obj + m () +randFree _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_rand_free _obj' + touchManagedPtr _obj + return () + +-- method Rand::int +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_rand_int" g_rand_int :: + Ptr Rand -> -- _obj : TInterface "GLib" "Rand" + IO Word32 + + +randInt :: + (MonadIO m) => + Rand -> -- _obj + m Word32 +randInt _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_rand_int _obj' + touchManagedPtr _obj + return result + +-- method Rand::int_range +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_rand_int_range" g_rand_int_range :: + Ptr Rand -> -- _obj : TInterface "GLib" "Rand" + Int32 -> -- begin : TBasicType TInt32 + Int32 -> -- end : TBasicType TInt32 + IO Int32 + + +randIntRange :: + (MonadIO m) => + Rand -> -- _obj + Int32 -> -- begin + Int32 -> -- end + m Int32 +randIntRange _obj begin end = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_rand_int_range _obj' begin end + touchManagedPtr _obj + return result + +-- method Rand::set_seed +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seed", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seed", 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_rand_set_seed" g_rand_set_seed :: + Ptr Rand -> -- _obj : TInterface "GLib" "Rand" + Word32 -> -- seed : TBasicType TUInt32 + IO () + + +randSetSeed :: + (MonadIO m) => + Rand -> -- _obj + Word32 -> -- seed + m () +randSetSeed _obj seed = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_rand_set_seed _obj' seed + touchManagedPtr _obj + return () + +-- method Rand::set_seed_array +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seed", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seed_length", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seed", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seed_length", 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_rand_set_seed_array" g_rand_set_seed_array :: + Ptr Rand -> -- _obj : TInterface "GLib" "Rand" + Word32 -> -- seed : TBasicType TUInt32 + Word32 -> -- seed_length : TBasicType TUInt32 + IO () + + +randSetSeedArray :: + (MonadIO m) => + Rand -> -- _obj + Word32 -> -- seed + Word32 -> -- seed_length + m () +randSetSeedArray _obj seed seed_length = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_rand_set_seed_array _obj' seed seed_length + touchManagedPtr _obj + return () + +-- struct RecMutex +newtype RecMutex = RecMutex (ForeignPtr RecMutex) +noRecMutex :: Maybe RecMutex +noRecMutex = Nothing + +-- method RecMutex::clear +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_rec_mutex_clear" g_rec_mutex_clear :: + Ptr RecMutex -> -- _obj : TInterface "GLib" "RecMutex" + IO () + + +recMutexClear :: + (MonadIO m) => + RecMutex -> -- _obj + m () +recMutexClear _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_rec_mutex_clear _obj' + touchManagedPtr _obj + return () + +-- method RecMutex::init +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_rec_mutex_init" g_rec_mutex_init :: + Ptr RecMutex -> -- _obj : TInterface "GLib" "RecMutex" + IO () + + +recMutexInit :: + (MonadIO m) => + RecMutex -> -- _obj + m () +recMutexInit _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_rec_mutex_init _obj' + touchManagedPtr _obj + return () + +-- method RecMutex::lock +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_rec_mutex_lock" g_rec_mutex_lock :: + Ptr RecMutex -> -- _obj : TInterface "GLib" "RecMutex" + IO () + + +recMutexLock :: + (MonadIO m) => + RecMutex -> -- _obj + m () +recMutexLock _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_rec_mutex_lock _obj' + touchManagedPtr _obj + return () + +-- method RecMutex::trylock +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_rec_mutex_trylock" g_rec_mutex_trylock :: + Ptr RecMutex -> -- _obj : TInterface "GLib" "RecMutex" + IO CInt + + +recMutexTrylock :: + (MonadIO m) => + RecMutex -> -- _obj + m Bool +recMutexTrylock _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_rec_mutex_trylock _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method RecMutex::unlock +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_rec_mutex_unlock" g_rec_mutex_unlock :: + Ptr RecMutex -> -- _obj : TInterface "GLib" "RecMutex" + IO () + + +recMutexUnlock :: + (MonadIO m) => + RecMutex -> -- _obj + m () +recMutexUnlock _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_rec_mutex_unlock _obj' + touchManagedPtr _obj + return () + +-- struct Regex +newtype Regex = Regex (ForeignPtr Regex) +noRegex :: Maybe Regex +noRegex = Nothing + +foreign import ccall "g_regex_get_type" c_g_regex_get_type :: + IO GType + +instance BoxedObject Regex where + boxedType _ = c_g_regex_get_type + +-- method Regex::new +-- method type : Constructor +-- Args : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compile_options", argType = TInterface "GLib" "RegexCompileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compile_options", argType = TInterface "GLib" "RegexCompileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "Regex" +-- throws : True +-- Skip return : False + +foreign import ccall "g_regex_new" g_regex_new :: + CString -> -- pattern : TBasicType TUTF8 + CUInt -> -- compile_options : TInterface "GLib" "RegexCompileFlags" + CUInt -> -- match_options : TInterface "GLib" "RegexMatchFlags" + Ptr (Ptr GError) -> -- error + IO (Ptr Regex) + + +regexNew :: + (MonadIO m) => + T.Text -> -- pattern + [RegexCompileFlags] -> -- compile_options + [RegexMatchFlags] -> -- match_options + m Regex +regexNew pattern compile_options match_options = liftIO $ do + pattern' <- textToCString pattern + let compile_options' = gflagsToWord compile_options + let match_options' = gflagsToWord match_options + onException (do + result <- propagateGError $ g_regex_new pattern' compile_options' match_options' + checkUnexpectedReturnNULL "g_regex_new" result + result' <- (wrapBoxed Regex) result + freeMem pattern' + return result' + ) (do + freeMem pattern' + ) + +-- method Regex::get_capture_count +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_regex_get_capture_count" g_regex_get_capture_count :: + Ptr Regex -> -- _obj : TInterface "GLib" "Regex" + IO Int32 + + +regexGetCaptureCount :: + (MonadIO m) => + Regex -> -- _obj + m Int32 +regexGetCaptureCount _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_regex_get_capture_count _obj' + touchManagedPtr _obj + return result + +-- method Regex::get_compile_flags +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "RegexCompileFlags" +-- throws : False +-- Skip return : False + +foreign import ccall "g_regex_get_compile_flags" g_regex_get_compile_flags :: + Ptr Regex -> -- _obj : TInterface "GLib" "Regex" + IO CUInt + + +regexGetCompileFlags :: + (MonadIO m) => + Regex -> -- _obj + m [RegexCompileFlags] +regexGetCompileFlags _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_regex_get_compile_flags _obj' + let result' = wordToGFlags result + touchManagedPtr _obj + return result' + +-- method Regex::get_has_cr_or_lf +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_regex_get_has_cr_or_lf" g_regex_get_has_cr_or_lf :: + Ptr Regex -> -- _obj : TInterface "GLib" "Regex" + IO CInt + + +regexGetHasCrOrLf :: + (MonadIO m) => + Regex -> -- _obj + m Bool +regexGetHasCrOrLf _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_regex_get_has_cr_or_lf _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Regex::get_match_flags +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "RegexMatchFlags" +-- throws : False +-- Skip return : False + +foreign import ccall "g_regex_get_match_flags" g_regex_get_match_flags :: + Ptr Regex -> -- _obj : TInterface "GLib" "Regex" + IO CUInt + + +regexGetMatchFlags :: + (MonadIO m) => + Regex -> -- _obj + m [RegexMatchFlags] +regexGetMatchFlags _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_regex_get_match_flags _obj' + let result' = wordToGFlags result + touchManagedPtr _obj + return result' + +-- method Regex::get_max_backref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_regex_get_max_backref" g_regex_get_max_backref :: + Ptr Regex -> -- _obj : TInterface "GLib" "Regex" + IO Int32 + + +regexGetMaxBackref :: + (MonadIO m) => + Regex -> -- _obj + m Int32 +regexGetMaxBackref _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_regex_get_max_backref _obj' + touchManagedPtr _obj + return result + +-- method Regex::get_max_lookbehind +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_regex_get_max_lookbehind" g_regex_get_max_lookbehind :: + Ptr Regex -> -- _obj : TInterface "GLib" "Regex" + IO Int32 + + +regexGetMaxLookbehind :: + (MonadIO m) => + Regex -> -- _obj + m Int32 +regexGetMaxLookbehind _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_regex_get_max_lookbehind _obj' + touchManagedPtr _obj + return result + +-- method Regex::get_pattern +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_regex_get_pattern" g_regex_get_pattern :: + Ptr Regex -> -- _obj : TInterface "GLib" "Regex" + IO CString + + +regexGetPattern :: + (MonadIO m) => + Regex -> -- _obj + m T.Text +regexGetPattern _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_regex_get_pattern _obj' + checkUnexpectedReturnNULL "g_regex_get_pattern" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Regex::get_string_number +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", 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 "GLib" "Regex", 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 TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_regex_get_string_number" g_regex_get_string_number :: + Ptr Regex -> -- _obj : TInterface "GLib" "Regex" + CString -> -- name : TBasicType TUTF8 + IO Int32 + + +regexGetStringNumber :: + (MonadIO m) => + Regex -> -- _obj + T.Text -> -- name + m Int32 +regexGetStringNumber _obj name = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + name' <- textToCString name + result <- g_regex_get_string_number _obj' name' + touchManagedPtr _obj + freeMem name' + return result + +-- method Regex::match +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_info", argType = TInterface "GLib" "MatchInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_regex_match" g_regex_match :: + Ptr Regex -> -- _obj : TInterface "GLib" "Regex" + CString -> -- string : TBasicType TUTF8 + CUInt -> -- match_options : TInterface "GLib" "RegexMatchFlags" + Ptr (Ptr MatchInfo) -> -- match_info : TInterface "GLib" "MatchInfo" + IO CInt + + +regexMatch :: + (MonadIO m) => + Regex -> -- _obj + T.Text -> -- string + [RegexMatchFlags] -> -- match_options + m (Bool,MatchInfo) +regexMatch _obj string match_options = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + string' <- textToCString string + let match_options' = gflagsToWord match_options + match_info <- allocMem :: IO (Ptr (Ptr MatchInfo)) + result <- g_regex_match _obj' string' match_options' match_info + let result' = (/= 0) result + match_info' <- peek match_info + match_info'' <- (wrapBoxed MatchInfo) match_info' + touchManagedPtr _obj + freeMem string' + freeMem match_info + return (result', match_info'') + +-- method Regex::match_all +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_info", argType = TInterface "GLib" "MatchInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_regex_match_all" g_regex_match_all :: + Ptr Regex -> -- _obj : TInterface "GLib" "Regex" + CString -> -- string : TBasicType TUTF8 + CUInt -> -- match_options : TInterface "GLib" "RegexMatchFlags" + Ptr (Ptr MatchInfo) -> -- match_info : TInterface "GLib" "MatchInfo" + IO CInt + + +regexMatchAll :: + (MonadIO m) => + Regex -> -- _obj + T.Text -> -- string + [RegexMatchFlags] -> -- match_options + m (Bool,MatchInfo) +regexMatchAll _obj string match_options = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + string' <- textToCString string + let match_options' = gflagsToWord match_options + match_info <- allocMem :: IO (Ptr (Ptr MatchInfo)) + result <- g_regex_match_all _obj' string' match_options' match_info + let result' = (/= 0) result + match_info' <- peek match_info + match_info'' <- (wrapBoxed MatchInfo) match_info' + touchManagedPtr _obj + freeMem string' + freeMem match_info + return (result', match_info'') + +-- method Regex::match_all_full +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_info", argType = TInterface "GLib" "MatchInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_regex_match_all_full" g_regex_match_all_full :: + Ptr Regex -> -- _obj : TInterface "GLib" "Regex" + Ptr CString -> -- string : TCArray False (-1) 2 (TBasicType TUTF8) + Int64 -> -- string_len : TBasicType TInt64 + Int32 -> -- start_position : TBasicType TInt32 + CUInt -> -- match_options : TInterface "GLib" "RegexMatchFlags" + Ptr (Ptr MatchInfo) -> -- match_info : TInterface "GLib" "MatchInfo" + Ptr (Ptr GError) -> -- error + IO CInt + + +regexMatchAllFull :: + (MonadIO m) => + Regex -> -- _obj + [T.Text] -> -- string + Int32 -> -- start_position + [RegexMatchFlags] -> -- match_options + m (MatchInfo) +regexMatchAllFull _obj string start_position match_options = liftIO $ do + let string_len = fromIntegral $ length string + let _obj' = unsafeManagedPtrGetPtr _obj + string' <- packUTF8CArray string + let match_options' = gflagsToWord match_options + match_info <- allocMem :: IO (Ptr (Ptr MatchInfo)) + onException (do + _ <- propagateGError $ g_regex_match_all_full _obj' string' string_len start_position match_options' match_info + match_info' <- peek match_info + match_info'' <- (wrapBoxed MatchInfo) match_info' + touchManagedPtr _obj + (mapCArrayWithLength string_len) freeMem string' + freeMem string' + freeMem match_info + return match_info'' + ) (do + (mapCArrayWithLength string_len) freeMem string' + freeMem string' + freeMem match_info + ) + +-- method Regex::match_full +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_info", argType = TInterface "GLib" "MatchInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_regex_match_full" g_regex_match_full :: + Ptr Regex -> -- _obj : TInterface "GLib" "Regex" + Ptr CString -> -- string : TCArray False (-1) 2 (TBasicType TUTF8) + Int64 -> -- string_len : TBasicType TInt64 + Int32 -> -- start_position : TBasicType TInt32 + CUInt -> -- match_options : TInterface "GLib" "RegexMatchFlags" + Ptr (Ptr MatchInfo) -> -- match_info : TInterface "GLib" "MatchInfo" + Ptr (Ptr GError) -> -- error + IO CInt + + +regexMatchFull :: + (MonadIO m) => + Regex -> -- _obj + [T.Text] -> -- string + Int32 -> -- start_position + [RegexMatchFlags] -> -- match_options + m (MatchInfo) +regexMatchFull _obj string start_position match_options = liftIO $ do + let string_len = fromIntegral $ length string + let _obj' = unsafeManagedPtrGetPtr _obj + string' <- packUTF8CArray string + let match_options' = gflagsToWord match_options + match_info <- allocMem :: IO (Ptr (Ptr MatchInfo)) + onException (do + _ <- propagateGError $ g_regex_match_full _obj' string' string_len start_position match_options' match_info + match_info' <- peek match_info + match_info'' <- (wrapBoxed MatchInfo) match_info' + touchManagedPtr _obj + (mapCArrayWithLength string_len) freeMem string' + freeMem string' + freeMem match_info + return match_info'' + ) (do + (mapCArrayWithLength string_len) freeMem string' + freeMem string' + freeMem match_info + ) + +-- method Regex::ref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "Regex" +-- throws : False +-- Skip return : False + +foreign import ccall "g_regex_ref" g_regex_ref :: + Ptr Regex -> -- _obj : TInterface "GLib" "Regex" + IO (Ptr Regex) + + +regexRef :: + (MonadIO m) => + Regex -> -- _obj + m Regex +regexRef _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_regex_ref _obj' + checkUnexpectedReturnNULL "g_regex_ref" result + result' <- (wrapBoxed Regex) result + touchManagedPtr _obj + return result' + +-- method Regex::replace +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "g_regex_replace" g_regex_replace :: + Ptr Regex -> -- _obj : TInterface "GLib" "Regex" + Ptr CString -> -- string : TCArray False (-1) 2 (TBasicType TUTF8) + Int64 -> -- string_len : TBasicType TInt64 + Int32 -> -- start_position : TBasicType TInt32 + CString -> -- replacement : TBasicType TUTF8 + CUInt -> -- match_options : TInterface "GLib" "RegexMatchFlags" + Ptr (Ptr GError) -> -- error + IO CString + + +regexReplace :: + (MonadIO m) => + Regex -> -- _obj + [T.Text] -> -- string + Int32 -> -- start_position + T.Text -> -- replacement + [RegexMatchFlags] -> -- match_options + m T.Text +regexReplace _obj string start_position replacement match_options = liftIO $ do + let string_len = fromIntegral $ length string + let _obj' = unsafeManagedPtrGetPtr _obj + string' <- packUTF8CArray string + replacement' <- textToCString replacement + let match_options' = gflagsToWord match_options + onException (do + result <- propagateGError $ g_regex_replace _obj' string' string_len start_position replacement' match_options' + checkUnexpectedReturnNULL "g_regex_replace" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + (mapCArrayWithLength string_len) freeMem string' + freeMem string' + freeMem replacement' + return result' + ) (do + (mapCArrayWithLength string_len) freeMem string' + freeMem string' + freeMem replacement' + ) + +-- method Regex::replace_literal +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "g_regex_replace_literal" g_regex_replace_literal :: + Ptr Regex -> -- _obj : TInterface "GLib" "Regex" + Ptr CString -> -- string : TCArray False (-1) 2 (TBasicType TUTF8) + Int64 -> -- string_len : TBasicType TInt64 + Int32 -> -- start_position : TBasicType TInt32 + CString -> -- replacement : TBasicType TUTF8 + CUInt -> -- match_options : TInterface "GLib" "RegexMatchFlags" + Ptr (Ptr GError) -> -- error + IO CString + + +regexReplaceLiteral :: + (MonadIO m) => + Regex -> -- _obj + [T.Text] -> -- string + Int32 -> -- start_position + T.Text -> -- replacement + [RegexMatchFlags] -> -- match_options + m T.Text +regexReplaceLiteral _obj string start_position replacement match_options = liftIO $ do + let string_len = fromIntegral $ length string + let _obj' = unsafeManagedPtrGetPtr _obj + string' <- packUTF8CArray string + replacement' <- textToCString replacement + let match_options' = gflagsToWord match_options + onException (do + result <- propagateGError $ g_regex_replace_literal _obj' string' string_len start_position replacement' match_options' + checkUnexpectedReturnNULL "g_regex_replace_literal" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + (mapCArrayWithLength string_len) freeMem string' + freeMem string' + freeMem replacement' + return result' + ) (do + (mapCArrayWithLength string_len) freeMem string' + freeMem string' + freeMem replacement' + ) + +-- method Regex::split +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", 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_regex_split" g_regex_split :: + Ptr Regex -> -- _obj : TInterface "GLib" "Regex" + CString -> -- string : TBasicType TUTF8 + CUInt -> -- match_options : TInterface "GLib" "RegexMatchFlags" + IO (Ptr CString) + + +regexSplit :: + (MonadIO m) => + Regex -> -- _obj + T.Text -> -- string + [RegexMatchFlags] -> -- match_options + m [T.Text] +regexSplit _obj string match_options = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + string' <- textToCString string + let match_options' = gflagsToWord match_options + result <- g_regex_split _obj' string' match_options' + checkUnexpectedReturnNULL "g_regex_split" result + result' <- unpackZeroTerminatedUTF8CArray result + mapZeroTerminatedCArray freeMem result + freeMem result + touchManagedPtr _obj + freeMem string' + return result' + +-- method Regex::split_full +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_tokens", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_tokens", argType = TBasicType TInt32, 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_regex_split_full" g_regex_split_full :: + Ptr Regex -> -- _obj : TInterface "GLib" "Regex" + Ptr CString -> -- string : TCArray False (-1) 2 (TBasicType TUTF8) + Int64 -> -- string_len : TBasicType TInt64 + Int32 -> -- start_position : TBasicType TInt32 + CUInt -> -- match_options : TInterface "GLib" "RegexMatchFlags" + Int32 -> -- max_tokens : TBasicType TInt32 + Ptr (Ptr GError) -> -- error + IO (Ptr CString) + + +regexSplitFull :: + (MonadIO m) => + Regex -> -- _obj + [T.Text] -> -- string + Int32 -> -- start_position + [RegexMatchFlags] -> -- match_options + Int32 -> -- max_tokens + m [T.Text] +regexSplitFull _obj string start_position match_options max_tokens = liftIO $ do + let string_len = fromIntegral $ length string + let _obj' = unsafeManagedPtrGetPtr _obj + string' <- packUTF8CArray string + let match_options' = gflagsToWord match_options + onException (do + result <- propagateGError $ g_regex_split_full _obj' string' string_len start_position match_options' max_tokens + checkUnexpectedReturnNULL "g_regex_split_full" result + result' <- unpackZeroTerminatedUTF8CArray result + mapZeroTerminatedCArray freeMem result + freeMem result + touchManagedPtr _obj + (mapCArrayWithLength string_len) freeMem string' + freeMem string' + return result' + ) (do + (mapCArrayWithLength string_len) freeMem string' + freeMem string' + ) + +-- method Regex::unref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_regex_unref" g_regex_unref :: + Ptr Regex -> -- _obj : TInterface "GLib" "Regex" + IO () + + +regexUnref :: + (MonadIO m) => + Regex -> -- _obj + m () +regexUnref _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_regex_unref _obj' + touchManagedPtr _obj + return () + +-- Flags RegexCompileFlags + +data RegexCompileFlags = + RegexCompileFlagsCaseless + | RegexCompileFlagsMultiline + | RegexCompileFlagsDotall + | RegexCompileFlagsExtended + | RegexCompileFlagsAnchored + | RegexCompileFlagsDollarEndonly + | RegexCompileFlagsUngreedy + | RegexCompileFlagsRaw + | RegexCompileFlagsNoAutoCapture + | RegexCompileFlagsOptimize + | RegexCompileFlagsFirstline + | RegexCompileFlagsDupnames + | RegexCompileFlagsNewlineCr + | RegexCompileFlagsNewlineLf + | RegexCompileFlagsNewlineCrlf + | RegexCompileFlagsNewlineAnycrlf + | RegexCompileFlagsBsrAnycrlf + | RegexCompileFlagsJavascriptCompat + | AnotherRegexCompileFlags Int + deriving (Show, Eq) + +instance Enum RegexCompileFlags where + fromEnum RegexCompileFlagsCaseless = 1 + fromEnum RegexCompileFlagsMultiline = 2 + fromEnum RegexCompileFlagsDotall = 4 + fromEnum RegexCompileFlagsExtended = 8 + fromEnum RegexCompileFlagsAnchored = 16 + fromEnum RegexCompileFlagsDollarEndonly = 32 + fromEnum RegexCompileFlagsUngreedy = 512 + fromEnum RegexCompileFlagsRaw = 2048 + fromEnum RegexCompileFlagsNoAutoCapture = 4096 + fromEnum RegexCompileFlagsOptimize = 8192 + fromEnum RegexCompileFlagsFirstline = 262144 + fromEnum RegexCompileFlagsDupnames = 524288 + fromEnum RegexCompileFlagsNewlineCr = 1048576 + fromEnum RegexCompileFlagsNewlineLf = 2097152 + fromEnum RegexCompileFlagsNewlineCrlf = 3145728 + fromEnum RegexCompileFlagsNewlineAnycrlf = 5242880 + fromEnum RegexCompileFlagsBsrAnycrlf = 8388608 + fromEnum RegexCompileFlagsJavascriptCompat = 33554432 + fromEnum (AnotherRegexCompileFlags k) = k + + toEnum 1 = RegexCompileFlagsCaseless + toEnum 2 = RegexCompileFlagsMultiline + toEnum 4 = RegexCompileFlagsDotall + toEnum 8 = RegexCompileFlagsExtended + toEnum 16 = RegexCompileFlagsAnchored + toEnum 32 = RegexCompileFlagsDollarEndonly + toEnum 512 = RegexCompileFlagsUngreedy + toEnum 2048 = RegexCompileFlagsRaw + toEnum 4096 = RegexCompileFlagsNoAutoCapture + toEnum 8192 = RegexCompileFlagsOptimize + toEnum 262144 = RegexCompileFlagsFirstline + toEnum 524288 = RegexCompileFlagsDupnames + toEnum 1048576 = RegexCompileFlagsNewlineCr + toEnum 2097152 = RegexCompileFlagsNewlineLf + toEnum 3145728 = RegexCompileFlagsNewlineCrlf + toEnum 5242880 = RegexCompileFlagsNewlineAnycrlf + toEnum 8388608 = RegexCompileFlagsBsrAnycrlf + toEnum 33554432 = RegexCompileFlagsJavascriptCompat + toEnum k = AnotherRegexCompileFlags k + +instance IsGFlag RegexCompileFlags + +-- Enum RegexError + +data RegexError = + RegexErrorCompile + | RegexErrorOptimize + | RegexErrorReplace + | RegexErrorMatch + | RegexErrorInternal + | RegexErrorStrayBackslash + | RegexErrorMissingControlChar + | RegexErrorUnrecognizedEscape + | RegexErrorQuantifiersOutOfOrder + | RegexErrorQuantifierTooBig + | RegexErrorUnterminatedCharacterClass + | RegexErrorInvalidEscapeInCharacterClass + | RegexErrorRangeOutOfOrder + | RegexErrorNothingToRepeat + | RegexErrorUnrecognizedCharacter + | RegexErrorPosixNamedClassOutsideClass + | RegexErrorUnmatchedParenthesis + | RegexErrorInexistentSubpatternReference + | RegexErrorUnterminatedComment + | RegexErrorExpressionTooLarge + | RegexErrorMemoryError + | RegexErrorVariableLengthLookbehind + | RegexErrorMalformedCondition + | RegexErrorTooManyConditionalBranches + | RegexErrorAssertionExpected + | RegexErrorUnknownPosixClassName + | RegexErrorPosixCollatingElementsNotSupported + | RegexErrorHexCodeTooLarge + | RegexErrorInvalidCondition + | RegexErrorSingleByteMatchInLookbehind + | RegexErrorInfiniteLoop + | RegexErrorMissingSubpatternNameTerminator + | RegexErrorDuplicateSubpatternName + | RegexErrorMalformedProperty + | RegexErrorUnknownProperty + | RegexErrorSubpatternNameTooLong + | RegexErrorTooManySubpatterns + | RegexErrorInvalidOctalValue + | RegexErrorTooManyBranchesInDefine + | RegexErrorDefineRepetion + | RegexErrorInconsistentNewlineOptions + | RegexErrorMissingBackReference + | RegexErrorInvalidRelativeReference + | RegexErrorBacktrackingControlVerbArgumentForbidden + | RegexErrorUnknownBacktrackingControlVerb + | RegexErrorNumberTooBig + | RegexErrorMissingSubpatternName + | RegexErrorMissingDigit + | RegexErrorInvalidDataCharacter + | RegexErrorExtraSubpatternName + | RegexErrorBacktrackingControlVerbArgumentRequired + | RegexErrorInvalidControlChar + | RegexErrorMissingName + | RegexErrorNotSupportedInClass + | RegexErrorTooManyForwardReferences + | RegexErrorNameTooLong + | RegexErrorCharacterValueTooLarge + | AnotherRegexError Int + deriving (Show, Eq) + +instance Enum RegexError where + fromEnum RegexErrorCompile = 0 + fromEnum RegexErrorOptimize = 1 + fromEnum RegexErrorReplace = 2 + fromEnum RegexErrorMatch = 3 + fromEnum RegexErrorInternal = 4 + fromEnum RegexErrorStrayBackslash = 101 + fromEnum RegexErrorMissingControlChar = 102 + fromEnum RegexErrorUnrecognizedEscape = 103 + fromEnum RegexErrorQuantifiersOutOfOrder = 104 + fromEnum RegexErrorQuantifierTooBig = 105 + fromEnum RegexErrorUnterminatedCharacterClass = 106 + fromEnum RegexErrorInvalidEscapeInCharacterClass = 107 + fromEnum RegexErrorRangeOutOfOrder = 108 + fromEnum RegexErrorNothingToRepeat = 109 + fromEnum RegexErrorUnrecognizedCharacter = 112 + fromEnum RegexErrorPosixNamedClassOutsideClass = 113 + fromEnum RegexErrorUnmatchedParenthesis = 114 + fromEnum RegexErrorInexistentSubpatternReference = 115 + fromEnum RegexErrorUnterminatedComment = 118 + fromEnum RegexErrorExpressionTooLarge = 120 + fromEnum RegexErrorMemoryError = 121 + fromEnum RegexErrorVariableLengthLookbehind = 125 + fromEnum RegexErrorMalformedCondition = 126 + fromEnum RegexErrorTooManyConditionalBranches = 127 + fromEnum RegexErrorAssertionExpected = 128 + fromEnum RegexErrorUnknownPosixClassName = 130 + fromEnum RegexErrorPosixCollatingElementsNotSupported = 131 + fromEnum RegexErrorHexCodeTooLarge = 134 + fromEnum RegexErrorInvalidCondition = 135 + fromEnum RegexErrorSingleByteMatchInLookbehind = 136 + fromEnum RegexErrorInfiniteLoop = 140 + fromEnum RegexErrorMissingSubpatternNameTerminator = 142 + fromEnum RegexErrorDuplicateSubpatternName = 143 + fromEnum RegexErrorMalformedProperty = 146 + fromEnum RegexErrorUnknownProperty = 147 + fromEnum RegexErrorSubpatternNameTooLong = 148 + fromEnum RegexErrorTooManySubpatterns = 149 + fromEnum RegexErrorInvalidOctalValue = 151 + fromEnum RegexErrorTooManyBranchesInDefine = 154 + fromEnum RegexErrorDefineRepetion = 155 + fromEnum RegexErrorInconsistentNewlineOptions = 156 + fromEnum RegexErrorMissingBackReference = 157 + fromEnum RegexErrorInvalidRelativeReference = 158 + fromEnum RegexErrorBacktrackingControlVerbArgumentForbidden = 159 + fromEnum RegexErrorUnknownBacktrackingControlVerb = 160 + fromEnum RegexErrorNumberTooBig = 161 + fromEnum RegexErrorMissingSubpatternName = 162 + fromEnum RegexErrorMissingDigit = 163 + fromEnum RegexErrorInvalidDataCharacter = 164 + fromEnum RegexErrorExtraSubpatternName = 165 + fromEnum RegexErrorBacktrackingControlVerbArgumentRequired = 166 + fromEnum RegexErrorInvalidControlChar = 168 + fromEnum RegexErrorMissingName = 169 + fromEnum RegexErrorNotSupportedInClass = 171 + fromEnum RegexErrorTooManyForwardReferences = 172 + fromEnum RegexErrorNameTooLong = 175 + fromEnum RegexErrorCharacterValueTooLarge = 176 + fromEnum (AnotherRegexError k) = k + + toEnum 0 = RegexErrorCompile + toEnum 1 = RegexErrorOptimize + toEnum 2 = RegexErrorReplace + toEnum 3 = RegexErrorMatch + toEnum 4 = RegexErrorInternal + toEnum 101 = RegexErrorStrayBackslash + toEnum 102 = RegexErrorMissingControlChar + toEnum 103 = RegexErrorUnrecognizedEscape + toEnum 104 = RegexErrorQuantifiersOutOfOrder + toEnum 105 = RegexErrorQuantifierTooBig + toEnum 106 = RegexErrorUnterminatedCharacterClass + toEnum 107 = RegexErrorInvalidEscapeInCharacterClass + toEnum 108 = RegexErrorRangeOutOfOrder + toEnum 109 = RegexErrorNothingToRepeat + toEnum 112 = RegexErrorUnrecognizedCharacter + toEnum 113 = RegexErrorPosixNamedClassOutsideClass + toEnum 114 = RegexErrorUnmatchedParenthesis + toEnum 115 = RegexErrorInexistentSubpatternReference + toEnum 118 = RegexErrorUnterminatedComment + toEnum 120 = RegexErrorExpressionTooLarge + toEnum 121 = RegexErrorMemoryError + toEnum 125 = RegexErrorVariableLengthLookbehind + toEnum 126 = RegexErrorMalformedCondition + toEnum 127 = RegexErrorTooManyConditionalBranches + toEnum 128 = RegexErrorAssertionExpected + toEnum 130 = RegexErrorUnknownPosixClassName + toEnum 131 = RegexErrorPosixCollatingElementsNotSupported + toEnum 134 = RegexErrorHexCodeTooLarge + toEnum 135 = RegexErrorInvalidCondition + toEnum 136 = RegexErrorSingleByteMatchInLookbehind + toEnum 140 = RegexErrorInfiniteLoop + toEnum 142 = RegexErrorMissingSubpatternNameTerminator + toEnum 143 = RegexErrorDuplicateSubpatternName + toEnum 146 = RegexErrorMalformedProperty + toEnum 147 = RegexErrorUnknownProperty + toEnum 148 = RegexErrorSubpatternNameTooLong + toEnum 149 = RegexErrorTooManySubpatterns + toEnum 151 = RegexErrorInvalidOctalValue + toEnum 154 = RegexErrorTooManyBranchesInDefine + toEnum 155 = RegexErrorDefineRepetion + toEnum 156 = RegexErrorInconsistentNewlineOptions + toEnum 157 = RegexErrorMissingBackReference + toEnum 158 = RegexErrorInvalidRelativeReference + toEnum 159 = RegexErrorBacktrackingControlVerbArgumentForbidden + toEnum 160 = RegexErrorUnknownBacktrackingControlVerb + toEnum 161 = RegexErrorNumberTooBig + toEnum 162 = RegexErrorMissingSubpatternName + toEnum 163 = RegexErrorMissingDigit + toEnum 164 = RegexErrorInvalidDataCharacter + toEnum 165 = RegexErrorExtraSubpatternName + toEnum 166 = RegexErrorBacktrackingControlVerbArgumentRequired + toEnum 168 = RegexErrorInvalidControlChar + toEnum 169 = RegexErrorMissingName + toEnum 171 = RegexErrorNotSupportedInClass + toEnum 172 = RegexErrorTooManyForwardReferences + toEnum 175 = RegexErrorNameTooLong + toEnum 176 = RegexErrorCharacterValueTooLarge + toEnum k = AnotherRegexError k + +instance GErrorClass RegexError where + gerrorClassDomain _ = "g-regex-error-quark" + +catchRegexError :: + IO a -> + (RegexError -> GErrorMessage -> IO a) -> + IO a +catchRegexError = catchGErrorJustDomain + +handleRegexError :: + (RegexError -> GErrorMessage -> IO a) -> + IO a -> + IO a +handleRegexError = handleGErrorJustDomain + +-- callback RegexEvalCallback +regexEvalCallbackClosure :: RegexEvalCallback -> IO Closure +regexEvalCallbackClosure cb = newCClosure =<< mkRegexEvalCallback wrapped + where wrapped = regexEvalCallbackWrapper Nothing cb + +type RegexEvalCallbackC = + Ptr MatchInfo -> + Ptr String -> + Ptr () -> + IO CInt + +foreign import ccall "wrapper" + mkRegexEvalCallback :: RegexEvalCallbackC -> IO (FunPtr RegexEvalCallbackC) + +type RegexEvalCallback = + MatchInfo -> + String -> + IO Bool + +noRegexEvalCallback :: Maybe RegexEvalCallback +noRegexEvalCallback = Nothing + +regexEvalCallbackWrapper :: + Maybe (Ptr (FunPtr (RegexEvalCallbackC))) -> + RegexEvalCallback -> + Ptr MatchInfo -> + Ptr String -> + Ptr () -> + IO CInt +regexEvalCallbackWrapper funptrptr _cb match_info result_ _ = do + match_info' <- (newBoxed MatchInfo) match_info + result_' <- (newBoxed String) result_ + result <- _cb match_info' result_' + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- Flags RegexMatchFlags + +data RegexMatchFlags = + RegexMatchFlagsAnchored + | RegexMatchFlagsNotbol + | RegexMatchFlagsNoteol + | RegexMatchFlagsNotempty + | RegexMatchFlagsPartial + | RegexMatchFlagsNewlineCr + | RegexMatchFlagsNewlineLf + | RegexMatchFlagsNewlineCrlf + | RegexMatchFlagsNewlineAny + | RegexMatchFlagsNewlineAnycrlf + | RegexMatchFlagsBsrAnycrlf + | RegexMatchFlagsBsrAny + | RegexMatchFlagsPartialSoft + | RegexMatchFlagsPartialHard + | RegexMatchFlagsNotemptyAtstart + | AnotherRegexMatchFlags Int + deriving (Show, Eq) + +instance Enum RegexMatchFlags where + fromEnum RegexMatchFlagsAnchored = 16 + fromEnum RegexMatchFlagsNotbol = 128 + fromEnum RegexMatchFlagsNoteol = 256 + fromEnum RegexMatchFlagsNotempty = 1024 + fromEnum RegexMatchFlagsPartial = 32768 + fromEnum RegexMatchFlagsNewlineCr = 1048576 + fromEnum RegexMatchFlagsNewlineLf = 2097152 + fromEnum RegexMatchFlagsNewlineCrlf = 3145728 + fromEnum RegexMatchFlagsNewlineAny = 4194304 + fromEnum RegexMatchFlagsNewlineAnycrlf = 5242880 + fromEnum RegexMatchFlagsBsrAnycrlf = 8388608 + fromEnum RegexMatchFlagsBsrAny = 16777216 + fromEnum RegexMatchFlagsPartialSoft = 32768 + fromEnum RegexMatchFlagsPartialHard = 134217728 + fromEnum RegexMatchFlagsNotemptyAtstart = 268435456 + fromEnum (AnotherRegexMatchFlags k) = k + + toEnum 16 = RegexMatchFlagsAnchored + toEnum 128 = RegexMatchFlagsNotbol + toEnum 256 = RegexMatchFlagsNoteol + toEnum 1024 = RegexMatchFlagsNotempty + toEnum 32768 = RegexMatchFlagsPartial + toEnum 1048576 = RegexMatchFlagsNewlineCr + toEnum 2097152 = RegexMatchFlagsNewlineLf + toEnum 3145728 = RegexMatchFlagsNewlineCrlf + toEnum 4194304 = RegexMatchFlagsNewlineAny + toEnum 5242880 = RegexMatchFlagsNewlineAnycrlf + toEnum 8388608 = RegexMatchFlagsBsrAnycrlf + toEnum 16777216 = RegexMatchFlagsBsrAny + toEnum 134217728 = RegexMatchFlagsPartialHard + toEnum 268435456 = RegexMatchFlagsNotemptyAtstart + toEnum k = AnotherRegexMatchFlags k + +instance IsGFlag RegexMatchFlags + +-- struct Scanner +newtype Scanner = Scanner (ForeignPtr Scanner) +noScanner :: Maybe Scanner +noScanner = Nothing + +scannerReadUserData :: Scanner -> IO (Ptr ()) +scannerReadUserData s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO (Ptr ()) + return val + +scannerReadMaxParseErrors :: Scanner -> IO Word32 +scannerReadMaxParseErrors s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO Word32 + return val + +scannerReadParseErrors :: Scanner -> IO Word32 +scannerReadParseErrors s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 12) :: IO Word32 + return val + +scannerReadInputName :: Scanner -> IO T.Text +scannerReadInputName s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 16) :: IO CString + val' <- cstringToText val + return val' + +scannerReadQdata :: Scanner -> IO Data +scannerReadQdata s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 24) :: IO (Ptr Data) + -- XXX Wrapping a foreign struct/union with no known destructor, leak? + val' <- (\x -> Data <$> newForeignPtr_ x) val + return val' + +scannerReadConfig :: Scanner -> IO ScannerConfig +scannerReadConfig s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 32) :: IO (Ptr ScannerConfig) + val' <- (newPtr 128 ScannerConfig) val + return val' + +scannerReadToken :: Scanner -> IO TokenType +scannerReadToken s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 40) :: IO CUInt + let val' = (toEnum . fromIntegral) val + return val' + +scannerReadValue :: Scanner -> IO TokenValue +scannerReadValue s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 48) :: IO (Ptr TokenValue) + val' <- (newPtr 8 TokenValue) val + return val' + +scannerReadLine :: Scanner -> IO Word32 +scannerReadLine s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 56) :: IO Word32 + return val + +scannerReadPosition :: Scanner -> IO Word32 +scannerReadPosition s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 60) :: IO Word32 + return val + +scannerReadNextToken :: Scanner -> IO TokenType +scannerReadNextToken s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 64) :: IO CUInt + let val' = (toEnum . fromIntegral) val + return val' + +scannerReadNextValue :: Scanner -> IO TokenValue +scannerReadNextValue s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 72) :: IO (Ptr TokenValue) + val' <- (newPtr 8 TokenValue) val + return val' + +scannerReadNextLine :: Scanner -> IO Word32 +scannerReadNextLine s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 80) :: IO Word32 + return val + +scannerReadNextPosition :: Scanner -> IO Word32 +scannerReadNextPosition s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 84) :: IO Word32 + return val + +-- XXX Skipped getter for "Scanner:msg_handler" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- method Scanner::cur_line +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_scanner_cur_line" g_scanner_cur_line :: + Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" + IO Word32 + + +scannerCurLine :: + (MonadIO m) => + Scanner -> -- _obj + m Word32 +scannerCurLine _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_scanner_cur_line _obj' + touchManagedPtr _obj + return result + +-- method Scanner::cur_position +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_scanner_cur_position" g_scanner_cur_position :: + Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" + IO Word32 + + +scannerCurPosition :: + (MonadIO m) => + Scanner -> -- _obj + m Word32 +scannerCurPosition _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_scanner_cur_position _obj' + touchManagedPtr _obj + return result + +-- method Scanner::cur_token +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "TokenType" +-- throws : False +-- Skip return : False + +foreign import ccall "g_scanner_cur_token" g_scanner_cur_token :: + Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" + IO CUInt + + +scannerCurToken :: + (MonadIO m) => + Scanner -> -- _obj + m TokenType +scannerCurToken _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_scanner_cur_token _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +-- method Scanner::destroy +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_scanner_destroy" g_scanner_destroy :: + Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" + IO () + + +scannerDestroy :: + (MonadIO m) => + Scanner -> -- _obj + m () +scannerDestroy _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_scanner_destroy _obj' + touchManagedPtr _obj + return () + +-- method Scanner::eof +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_scanner_eof" g_scanner_eof :: + Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" + IO CInt + + +scannerEof :: + (MonadIO m) => + Scanner -> -- _obj + m Bool +scannerEof _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_scanner_eof _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Scanner::get_next_token +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "TokenType" +-- throws : False +-- Skip return : False + +foreign import ccall "g_scanner_get_next_token" g_scanner_get_next_token :: + Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" + IO CUInt + + +scannerGetNextToken :: + (MonadIO m) => + Scanner -> -- _obj + m TokenType +scannerGetNextToken _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_scanner_get_next_token _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +-- method Scanner::input_file +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "input_fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "input_fd", 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_scanner_input_file" g_scanner_input_file :: + Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" + Int32 -> -- input_fd : TBasicType TInt32 + IO () + + +scannerInputFile :: + (MonadIO m) => + Scanner -> -- _obj + Int32 -> -- input_fd + m () +scannerInputFile _obj input_fd = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_scanner_input_file _obj' input_fd + touchManagedPtr _obj + return () + +-- method Scanner::input_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_len", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_len", 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_scanner_input_text" g_scanner_input_text :: + Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" + CString -> -- text : TBasicType TUTF8 + Word32 -> -- text_len : TBasicType TUInt32 + IO () + + +scannerInputText :: + (MonadIO m) => + Scanner -> -- _obj + T.Text -> -- text + Word32 -> -- text_len + m () +scannerInputText _obj text text_len = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + text' <- textToCString text + g_scanner_input_text _obj' text' text_len + touchManagedPtr _obj + freeMem text' + return () + +-- method Scanner::peek_next_token +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "TokenType" +-- throws : False +-- Skip return : False + +foreign import ccall "g_scanner_peek_next_token" g_scanner_peek_next_token :: + Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" + IO CUInt + + +scannerPeekNextToken :: + (MonadIO m) => + Scanner -> -- _obj + m TokenType +scannerPeekNextToken _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_scanner_peek_next_token _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +-- method Scanner::scope_add_symbol +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scope_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scope_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_scanner_scope_add_symbol" g_scanner_scope_add_symbol :: + Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" + Word32 -> -- scope_id : TBasicType TUInt32 + CString -> -- symbol : TBasicType TUTF8 + Ptr () -> -- value : TBasicType TVoid + IO () + + +scannerScopeAddSymbol :: + (MonadIO m) => + Scanner -> -- _obj + Word32 -> -- scope_id + T.Text -> -- symbol + Ptr () -> -- value + m () +scannerScopeAddSymbol _obj scope_id symbol value = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + symbol' <- textToCString symbol + g_scanner_scope_add_symbol _obj' scope_id symbol' value + touchManagedPtr _obj + freeMem symbol' + return () + +-- method Scanner::scope_remove_symbol +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scope_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scope_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol", 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_scanner_scope_remove_symbol" g_scanner_scope_remove_symbol :: + Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" + Word32 -> -- scope_id : TBasicType TUInt32 + CString -> -- symbol : TBasicType TUTF8 + IO () + + +scannerScopeRemoveSymbol :: + (MonadIO m) => + Scanner -> -- _obj + Word32 -> -- scope_id + T.Text -> -- symbol + m () +scannerScopeRemoveSymbol _obj scope_id symbol = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + symbol' <- textToCString symbol + g_scanner_scope_remove_symbol _obj' scope_id symbol' + touchManagedPtr _obj + freeMem symbol' + return () + +-- method Scanner::set_scope +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scope_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scope_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_scanner_set_scope" g_scanner_set_scope :: + Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" + Word32 -> -- scope_id : TBasicType TUInt32 + IO Word32 + + +scannerSetScope :: + (MonadIO m) => + Scanner -> -- _obj + Word32 -> -- scope_id + m Word32 +scannerSetScope _obj scope_id = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_scanner_set_scope _obj' scope_id + touchManagedPtr _obj + return result + +-- method Scanner::sync_file_offset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_scanner_sync_file_offset" g_scanner_sync_file_offset :: + Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" + IO () + + +scannerSyncFileOffset :: + (MonadIO m) => + Scanner -> -- _obj + m () +scannerSyncFileOffset _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_scanner_sync_file_offset _obj' + touchManagedPtr _obj + return () + +-- method Scanner::unexp_token +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expected_token", argType = TInterface "GLib" "TokenType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "identifier_spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol_spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol_name", argType = TBasicType TUTF8, 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},Arg {argName = "is_error", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expected_token", argType = TInterface "GLib" "TokenType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "identifier_spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol_spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol_name", argType = TBasicType TUTF8, 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},Arg {argName = "is_error", 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_scanner_unexp_token" g_scanner_unexp_token :: + Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" + CUInt -> -- expected_token : TInterface "GLib" "TokenType" + CString -> -- identifier_spec : TBasicType TUTF8 + CString -> -- symbol_spec : TBasicType TUTF8 + CString -> -- symbol_name : TBasicType TUTF8 + CString -> -- message : TBasicType TUTF8 + Int32 -> -- is_error : TBasicType TInt32 + IO () + + +scannerUnexpToken :: + (MonadIO m) => + Scanner -> -- _obj + TokenType -> -- expected_token + T.Text -> -- identifier_spec + T.Text -> -- symbol_spec + T.Text -> -- symbol_name + T.Text -> -- message + Int32 -> -- is_error + m () +scannerUnexpToken _obj expected_token identifier_spec symbol_spec symbol_name message is_error = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let expected_token' = (fromIntegral . fromEnum) expected_token + identifier_spec' <- textToCString identifier_spec + symbol_spec' <- textToCString symbol_spec + symbol_name' <- textToCString symbol_name + message' <- textToCString message + g_scanner_unexp_token _obj' expected_token' identifier_spec' symbol_spec' symbol_name' message' is_error + touchManagedPtr _obj + freeMem identifier_spec' + freeMem symbol_spec' + freeMem symbol_name' + freeMem message' + return () + +-- struct ScannerConfig +newtype ScannerConfig = ScannerConfig (ForeignPtr ScannerConfig) +noScannerConfig :: Maybe ScannerConfig +noScannerConfig = Nothing + +scannerConfigReadCsetSkipCharacters :: ScannerConfig -> IO T.Text +scannerConfigReadCsetSkipCharacters s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO CString + val' <- cstringToText val + return val' + +scannerConfigReadCsetIdentifierFirst :: ScannerConfig -> IO T.Text +scannerConfigReadCsetIdentifierFirst s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO CString + val' <- cstringToText val + return val' + +scannerConfigReadCsetIdentifierNth :: ScannerConfig -> IO T.Text +scannerConfigReadCsetIdentifierNth s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 16) :: IO CString + val' <- cstringToText val + return val' + +scannerConfigReadCpairCommentSingle :: ScannerConfig -> IO T.Text +scannerConfigReadCpairCommentSingle s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 24) :: IO CString + val' <- cstringToText val + return val' + +scannerConfigReadCaseSensitive :: ScannerConfig -> IO Word32 +scannerConfigReadCaseSensitive s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 32) :: IO Word32 + return val + +scannerConfigReadSkipCommentMulti :: ScannerConfig -> IO Word32 +scannerConfigReadSkipCommentMulti s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 36) :: IO Word32 + return val + +scannerConfigReadSkipCommentSingle :: ScannerConfig -> IO Word32 +scannerConfigReadSkipCommentSingle s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 40) :: IO Word32 + return val + +scannerConfigReadScanCommentMulti :: ScannerConfig -> IO Word32 +scannerConfigReadScanCommentMulti s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 44) :: IO Word32 + return val + +scannerConfigReadScanIdentifier :: ScannerConfig -> IO Word32 +scannerConfigReadScanIdentifier s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 48) :: IO Word32 + return val + +scannerConfigReadScanIdentifier1char :: ScannerConfig -> IO Word32 +scannerConfigReadScanIdentifier1char s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 52) :: IO Word32 + return val + +scannerConfigReadScanIdentifierNULL :: ScannerConfig -> IO Word32 +scannerConfigReadScanIdentifierNULL s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 56) :: IO Word32 + return val + +scannerConfigReadScanSymbols :: ScannerConfig -> IO Word32 +scannerConfigReadScanSymbols s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 60) :: IO Word32 + return val + +scannerConfigReadScanBinary :: ScannerConfig -> IO Word32 +scannerConfigReadScanBinary s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 64) :: IO Word32 + return val + +scannerConfigReadScanOctal :: ScannerConfig -> IO Word32 +scannerConfigReadScanOctal s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 68) :: IO Word32 + return val + +scannerConfigReadScanFloat :: ScannerConfig -> IO Word32 +scannerConfigReadScanFloat s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 72) :: IO Word32 + return val + +scannerConfigReadScanHex :: ScannerConfig -> IO Word32 +scannerConfigReadScanHex s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 76) :: IO Word32 + return val + +scannerConfigReadScanHexDollar :: ScannerConfig -> IO Word32 +scannerConfigReadScanHexDollar s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 80) :: IO Word32 + return val + +scannerConfigReadScanStringSq :: ScannerConfig -> IO Word32 +scannerConfigReadScanStringSq s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 84) :: IO Word32 + return val + +scannerConfigReadScanStringDq :: ScannerConfig -> IO Word32 +scannerConfigReadScanStringDq s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 88) :: IO Word32 + return val + +scannerConfigReadNumbers2Int :: ScannerConfig -> IO Word32 +scannerConfigReadNumbers2Int s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 92) :: IO Word32 + return val + +scannerConfigReadInt2Float :: ScannerConfig -> IO Word32 +scannerConfigReadInt2Float s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 96) :: IO Word32 + return val + +scannerConfigReadIdentifier2String :: ScannerConfig -> IO Word32 +scannerConfigReadIdentifier2String s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 100) :: IO Word32 + return val + +scannerConfigReadChar2Token :: ScannerConfig -> IO Word32 +scannerConfigReadChar2Token s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 104) :: IO Word32 + return val + +scannerConfigReadSymbol2Token :: ScannerConfig -> IO Word32 +scannerConfigReadSymbol2Token s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 108) :: IO Word32 + return val + +scannerConfigReadScope0Fallback :: ScannerConfig -> IO Word32 +scannerConfigReadScope0Fallback s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 112) :: IO Word32 + return val + +scannerConfigReadStoreInt64 :: ScannerConfig -> IO Word32 +scannerConfigReadStoreInt64 s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 116) :: IO Word32 + return val + +-- callback ScannerMsgFunc +scannerMsgFuncClosure :: ScannerMsgFunc -> IO Closure +scannerMsgFuncClosure cb = newCClosure =<< mkScannerMsgFunc wrapped + where wrapped = scannerMsgFuncWrapper Nothing cb + +type ScannerMsgFuncC = + Ptr Scanner -> + CString -> + CInt -> + IO () + +foreign import ccall "wrapper" + mkScannerMsgFunc :: ScannerMsgFuncC -> IO (FunPtr ScannerMsgFuncC) + +type ScannerMsgFunc = + Scanner -> + T.Text -> + Bool -> + IO () + +noScannerMsgFunc :: Maybe ScannerMsgFunc +noScannerMsgFunc = Nothing + +scannerMsgFuncWrapper :: + Maybe (Ptr (FunPtr (ScannerMsgFuncC))) -> + ScannerMsgFunc -> + Ptr Scanner -> + CString -> + CInt -> + IO () +scannerMsgFuncWrapper funptrptr _cb scanner message error_ = do + scanner' <- (newPtr 144 Scanner) scanner + message' <- cstringToText message + let error_' = (/= 0) error_ + _cb scanner' message' error_' + maybeReleaseFunPtr funptrptr + +-- Enum SeekType + +data SeekType = + SeekTypeCur + | SeekTypeSet + | SeekTypeEnd + | AnotherSeekType Int + deriving (Show, Eq) + +instance Enum SeekType where + fromEnum SeekTypeCur = 0 + fromEnum SeekTypeSet = 1 + fromEnum SeekTypeEnd = 2 + fromEnum (AnotherSeekType k) = k + + toEnum 0 = SeekTypeCur + toEnum 1 = SeekTypeSet + toEnum 2 = SeekTypeEnd + toEnum k = AnotherSeekType k + +-- struct Sequence +newtype Sequence = Sequence (ForeignPtr Sequence) +noSequence :: Maybe Sequence +noSequence = Nothing + +-- method Sequence::free +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Sequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Sequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_sequence_free" g_sequence_free :: + Ptr Sequence -> -- _obj : TInterface "GLib" "Sequence" + IO () + + +sequenceFree :: + (MonadIO m) => + Sequence -> -- _obj + m () +sequenceFree _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_sequence_free _obj' + touchManagedPtr _obj + return () + +-- method Sequence::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Sequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Sequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_sequence_get_length" g_sequence_get_length :: + Ptr Sequence -> -- _obj : TInterface "GLib" "Sequence" + IO Int32 + + +sequenceGetLength :: + (MonadIO m) => + Sequence -> -- _obj + m Int32 +sequenceGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_sequence_get_length _obj' + touchManagedPtr _obj + return result + +-- struct SequenceIter +newtype SequenceIter = SequenceIter (ForeignPtr SequenceIter) +noSequenceIter :: Maybe SequenceIter +noSequenceIter = Nothing + +-- method SequenceIter::compare +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_sequence_iter_compare" g_sequence_iter_compare :: + Ptr SequenceIter -> -- _obj : TInterface "GLib" "SequenceIter" + Ptr SequenceIter -> -- b : TInterface "GLib" "SequenceIter" + IO Int32 + + +sequenceIterCompare :: + (MonadIO m) => + SequenceIter -> -- _obj + SequenceIter -> -- b + m Int32 +sequenceIterCompare _obj b = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let b' = unsafeManagedPtrGetPtr b + result <- g_sequence_iter_compare _obj' b' + touchManagedPtr _obj + touchManagedPtr b + return result + +-- method SequenceIter::get_position +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_sequence_iter_get_position" g_sequence_iter_get_position :: + Ptr SequenceIter -> -- _obj : TInterface "GLib" "SequenceIter" + IO Int32 + + +sequenceIterGetPosition :: + (MonadIO m) => + SequenceIter -> -- _obj + m Int32 +sequenceIterGetPosition _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_sequence_iter_get_position _obj' + touchManagedPtr _obj + return result + +-- method SequenceIter::is_begin +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_sequence_iter_is_begin" g_sequence_iter_is_begin :: + Ptr SequenceIter -> -- _obj : TInterface "GLib" "SequenceIter" + IO CInt + + +sequenceIterIsBegin :: + (MonadIO m) => + SequenceIter -> -- _obj + m Bool +sequenceIterIsBegin _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_sequence_iter_is_begin _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method SequenceIter::is_end +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_sequence_iter_is_end" g_sequence_iter_is_end :: + Ptr SequenceIter -> -- _obj : TInterface "GLib" "SequenceIter" + IO CInt + + +sequenceIterIsEnd :: + (MonadIO m) => + SequenceIter -> -- _obj + m Bool +sequenceIterIsEnd _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_sequence_iter_is_end _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- callback SequenceIterCompareFunc +sequenceIterCompareFuncClosure :: SequenceIterCompareFunc -> IO Closure +sequenceIterCompareFuncClosure cb = newCClosure =<< mkSequenceIterCompareFunc wrapped + where wrapped = sequenceIterCompareFuncWrapper Nothing cb + +type SequenceIterCompareFuncC = + Ptr SequenceIter -> + Ptr SequenceIter -> + Ptr () -> + IO Int32 + +foreign import ccall "wrapper" + mkSequenceIterCompareFunc :: SequenceIterCompareFuncC -> IO (FunPtr SequenceIterCompareFuncC) + +type SequenceIterCompareFunc = + SequenceIter -> + SequenceIter -> + Ptr () -> + IO Int32 + +noSequenceIterCompareFunc :: Maybe SequenceIterCompareFunc +noSequenceIterCompareFunc = Nothing + +sequenceIterCompareFuncWrapper :: + Maybe (Ptr (FunPtr (SequenceIterCompareFuncC))) -> + SequenceIterCompareFunc -> + Ptr SequenceIter -> + Ptr SequenceIter -> + Ptr () -> + IO Int32 +sequenceIterCompareFuncWrapper funptrptr _cb a b data_ = do + -- XXX Wrapping a foreign struct/union with no known destructor, leak? + a' <- (\x -> SequenceIter <$> newForeignPtr_ x) a + -- XXX Wrapping a foreign struct/union with no known destructor, leak? + b' <- (\x -> SequenceIter <$> newForeignPtr_ x) b + result <- _cb a' b' data_ + maybeReleaseFunPtr funptrptr + return result + +-- Enum ShellError + +data ShellError = + ShellErrorBadQuoting + | ShellErrorEmptyString + | ShellErrorFailed + | AnotherShellError Int + deriving (Show, Eq) + +instance Enum ShellError where + fromEnum ShellErrorBadQuoting = 0 + fromEnum ShellErrorEmptyString = 1 + fromEnum ShellErrorFailed = 2 + fromEnum (AnotherShellError k) = k + + toEnum 0 = ShellErrorBadQuoting + toEnum 1 = ShellErrorEmptyString + toEnum 2 = ShellErrorFailed + toEnum k = AnotherShellError k + +instance GErrorClass ShellError where + gerrorClassDomain _ = "g-shell-error-quark" + +catchShellError :: + IO a -> + (ShellError -> GErrorMessage -> IO a) -> + IO a +catchShellError = catchGErrorJustDomain + +handleShellError :: + (ShellError -> GErrorMessage -> IO a) -> + IO a -> + IO a +handleShellError = handleGErrorJustDomain + +-- Enum SliceConfig + +data SliceConfig = + SliceConfigAlwaysMalloc + | SliceConfigBypassMagazines + | SliceConfigWorkingSetMsecs + | SliceConfigColorIncrement + | SliceConfigChunkSizes + | SliceConfigContentionCounter + | AnotherSliceConfig Int + deriving (Show, Eq) + +instance Enum SliceConfig where + fromEnum SliceConfigAlwaysMalloc = 1 + fromEnum SliceConfigBypassMagazines = 2 + fromEnum SliceConfigWorkingSetMsecs = 3 + fromEnum SliceConfigColorIncrement = 4 + fromEnum SliceConfigChunkSizes = 5 + fromEnum SliceConfigContentionCounter = 6 + fromEnum (AnotherSliceConfig k) = k + + toEnum 1 = SliceConfigAlwaysMalloc + toEnum 2 = SliceConfigBypassMagazines + toEnum 3 = SliceConfigWorkingSetMsecs + toEnum 4 = SliceConfigColorIncrement + toEnum 5 = SliceConfigChunkSizes + toEnum 6 = SliceConfigContentionCounter + toEnum k = AnotherSliceConfig k + +-- struct Source +newtype Source = Source (ForeignPtr Source) +noSource :: Maybe Source +noSource = Nothing + +foreign import ccall "g_source_get_type" c_g_source_get_type :: + IO GType + +instance BoxedObject Source where + boxedType _ = c_g_source_get_type + +-- method Source::new +-- method type : Constructor +-- Args : [Arg {argName = "source_funcs", argType = TInterface "GLib" "SourceFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "struct_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "source_funcs", argType = TInterface "GLib" "SourceFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "struct_size", argType = TBasicType TUInt32, 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_source_new" g_source_new :: + Ptr SourceFuncs -> -- source_funcs : TInterface "GLib" "SourceFuncs" + Word32 -> -- struct_size : TBasicType TUInt32 + IO (Ptr Source) + + +sourceNew :: + (MonadIO m) => + SourceFuncs -> -- source_funcs + Word32 -> -- struct_size + m Source +sourceNew source_funcs struct_size = liftIO $ do + let source_funcs' = unsafeManagedPtrGetPtr source_funcs + result <- g_source_new source_funcs' struct_size + checkUnexpectedReturnNULL "g_source_new" result + result' <- (wrapBoxed Source) result + touchManagedPtr source_funcs + return result' + +-- method Source::add_child_source +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_source", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_source", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_source_add_child_source" g_source_add_child_source :: + Ptr Source -> -- _obj : TInterface "GLib" "Source" + Ptr Source -> -- child_source : TInterface "GLib" "Source" + IO () + + +sourceAddChildSource :: + (MonadIO m) => + Source -> -- _obj + Source -> -- child_source + m () +sourceAddChildSource _obj child_source = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let child_source' = unsafeManagedPtrGetPtr child_source + g_source_add_child_source _obj' child_source' + touchManagedPtr _obj + touchManagedPtr child_source + return () + +-- method Source::add_poll +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_source_add_poll" g_source_add_poll :: + Ptr Source -> -- _obj : TInterface "GLib" "Source" + Ptr PollFD -> -- fd : TInterface "GLib" "PollFD" + IO () + + +sourceAddPoll :: + (MonadIO m) => + Source -> -- _obj + PollFD -> -- fd + m () +sourceAddPoll _obj fd = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let fd' = unsafeManagedPtrGetPtr fd + g_source_add_poll _obj' fd' + touchManagedPtr _obj + touchManagedPtr fd + return () + +-- method Source::attach +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_source_attach" g_source_attach :: + Ptr Source -> -- _obj : TInterface "GLib" "Source" + Ptr MainContext -> -- context : TInterface "GLib" "MainContext" + IO Word32 + + +sourceAttach :: + (MonadIO m) => + Source -> -- _obj + Maybe (MainContext) -> -- context + m Word32 +sourceAttach _obj context = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + maybeContext <- case context of + Nothing -> return nullPtr + Just jContext -> do + let jContext' = unsafeManagedPtrGetPtr jContext + return jContext' + result <- g_source_attach _obj' maybeContext + touchManagedPtr _obj + whenJust context touchManagedPtr + return result + +-- method Source::destroy +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_source_destroy" g_source_destroy :: + Ptr Source -> -- _obj : TInterface "GLib" "Source" + IO () + + +sourceDestroy :: + (MonadIO m) => + Source -> -- _obj + m () +sourceDestroy _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_source_destroy _obj' + touchManagedPtr _obj + return () + +-- method Source::get_can_recurse +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_source_get_can_recurse" g_source_get_can_recurse :: + Ptr Source -> -- _obj : TInterface "GLib" "Source" + IO CInt + + +sourceGetCanRecurse :: + (MonadIO m) => + Source -> -- _obj + m Bool +sourceGetCanRecurse _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_source_get_can_recurse _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Source::get_context +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "MainContext" +-- throws : False +-- Skip return : False + +foreign import ccall "g_source_get_context" g_source_get_context :: + Ptr Source -> -- _obj : TInterface "GLib" "Source" + IO (Ptr MainContext) + + +sourceGetContext :: + (MonadIO m) => + Source -> -- _obj + m MainContext +sourceGetContext _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_source_get_context _obj' + checkUnexpectedReturnNULL "g_source_get_context" result + result' <- (newBoxed MainContext) result + touchManagedPtr _obj + return result' + +-- method Source::get_current_time +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeval", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeval", 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_source_get_current_time" g_source_get_current_time :: + Ptr Source -> -- _obj : TInterface "GLib" "Source" + Ptr TimeVal -> -- timeval : TInterface "GLib" "TimeVal" + IO () + +{-# DEPRECATED sourceGetCurrentTime ["(Since version 2.28)","use g_source_get_time() instead"]#-} +sourceGetCurrentTime :: + (MonadIO m) => + Source -> -- _obj + TimeVal -> -- timeval + m () +sourceGetCurrentTime _obj timeval = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let timeval' = unsafeManagedPtrGetPtr timeval + g_source_get_current_time _obj' timeval' + touchManagedPtr _obj + touchManagedPtr timeval + return () + +-- method Source::get_id +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_source_get_id" g_source_get_id :: + Ptr Source -> -- _obj : TInterface "GLib" "Source" + IO Word32 + + +sourceGetId :: + (MonadIO m) => + Source -> -- _obj + m Word32 +sourceGetId _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_source_get_id _obj' + touchManagedPtr _obj + return result + +-- method Source::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_source_get_name" g_source_get_name :: + Ptr Source -> -- _obj : TInterface "GLib" "Source" + IO CString + + +sourceGetName :: + (MonadIO m) => + Source -> -- _obj + m T.Text +sourceGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_source_get_name _obj' + checkUnexpectedReturnNULL "g_source_get_name" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Source::get_priority +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_source_get_priority" g_source_get_priority :: + Ptr Source -> -- _obj : TInterface "GLib" "Source" + IO Int32 + + +sourceGetPriority :: + (MonadIO m) => + Source -> -- _obj + m Int32 +sourceGetPriority _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_source_get_priority _obj' + touchManagedPtr _obj + return result + +-- method Source::get_ready_time +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "g_source_get_ready_time" g_source_get_ready_time :: + Ptr Source -> -- _obj : TInterface "GLib" "Source" + IO Int64 + + +sourceGetReadyTime :: + (MonadIO m) => + Source -> -- _obj + m Int64 +sourceGetReadyTime _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_source_get_ready_time _obj' + touchManagedPtr _obj + return result + +-- method Source::get_time +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "g_source_get_time" g_source_get_time :: + Ptr Source -> -- _obj : TInterface "GLib" "Source" + IO Int64 + + +sourceGetTime :: + (MonadIO m) => + Source -> -- _obj + m Int64 +sourceGetTime _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_source_get_time _obj' + touchManagedPtr _obj + return result + +-- method Source::is_destroyed +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_source_is_destroyed" g_source_is_destroyed :: + Ptr Source -> -- _obj : TInterface "GLib" "Source" + IO CInt + + +sourceIsDestroyed :: + (MonadIO m) => + Source -> -- _obj + m Bool +sourceIsDestroyed _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_source_is_destroyed _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Source::modify_unix_fd +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_events", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_events", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_source_modify_unix_fd" g_source_modify_unix_fd :: + Ptr Source -> -- _obj : TInterface "GLib" "Source" + Ptr () -> -- tag : TBasicType TVoid + CUInt -> -- new_events : TInterface "GLib" "IOCondition" + IO () + + +sourceModifyUnixFd :: + (MonadIO m) => + Source -> -- _obj + Ptr () -> -- tag + [IOCondition] -> -- new_events + m () +sourceModifyUnixFd _obj tag new_events = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let new_events' = gflagsToWord new_events + g_source_modify_unix_fd _obj' tag new_events' + touchManagedPtr _obj + return () + +-- method Source::query_unix_fd +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "IOCondition" +-- throws : False +-- Skip return : False + +foreign import ccall "g_source_query_unix_fd" g_source_query_unix_fd :: + Ptr Source -> -- _obj : TInterface "GLib" "Source" + Ptr () -> -- tag : TBasicType TVoid + IO CUInt + + +sourceQueryUnixFd :: + (MonadIO m) => + Source -> -- _obj + Ptr () -> -- tag + m [IOCondition] +sourceQueryUnixFd _obj tag = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_source_query_unix_fd _obj' tag + let result' = wordToGFlags result + touchManagedPtr _obj + return result' + +-- method Source::ref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", 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_source_ref" g_source_ref :: + Ptr Source -> -- _obj : TInterface "GLib" "Source" + IO (Ptr Source) + + +sourceRef :: + (MonadIO m) => + Source -> -- _obj + m Source +sourceRef _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_source_ref _obj' + checkUnexpectedReturnNULL "g_source_ref" result + result' <- (wrapBoxed Source) result + touchManagedPtr _obj + return result' + +-- method Source::remove_child_source +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_source", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_source", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_source_remove_child_source" g_source_remove_child_source :: + Ptr Source -> -- _obj : TInterface "GLib" "Source" + Ptr Source -> -- child_source : TInterface "GLib" "Source" + IO () + + +sourceRemoveChildSource :: + (MonadIO m) => + Source -> -- _obj + Source -> -- child_source + m () +sourceRemoveChildSource _obj child_source = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let child_source' = unsafeManagedPtrGetPtr child_source + g_source_remove_child_source _obj' child_source' + touchManagedPtr _obj + touchManagedPtr child_source + return () + +-- method Source::remove_poll +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_source_remove_poll" g_source_remove_poll :: + Ptr Source -> -- _obj : TInterface "GLib" "Source" + Ptr PollFD -> -- fd : TInterface "GLib" "PollFD" + IO () + + +sourceRemovePoll :: + (MonadIO m) => + Source -> -- _obj + PollFD -> -- fd + m () +sourceRemovePoll _obj fd = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let fd' = unsafeManagedPtrGetPtr fd + g_source_remove_poll _obj' fd' + touchManagedPtr _obj + touchManagedPtr fd + return () + +-- method Source::remove_unix_fd +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", 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_source_remove_unix_fd" g_source_remove_unix_fd :: + Ptr Source -> -- _obj : TInterface "GLib" "Source" + Ptr () -> -- tag : TBasicType TVoid + IO () + + +sourceRemoveUnixFd :: + (MonadIO m) => + Source -> -- _obj + Ptr () -> -- tag + m () +sourceRemoveUnixFd _obj tag = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_source_remove_unix_fd _obj' tag + touchManagedPtr _obj + return () + +-- method Source::set_callback +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", 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 = "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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", 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 + +foreign import ccall "g_source_set_callback" g_source_set_callback :: + Ptr Source -> -- _obj : TInterface "GLib" "Source" + FunPtr SourceFuncC -> -- func : TInterface "GLib" "SourceFunc" + Ptr () -> -- data : TBasicType TVoid + FunPtr DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" + IO () + + +sourceSetCallback :: + (MonadIO m) => + Source -> -- _obj + SourceFunc -> -- func + m () +sourceSetCallback _obj func = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + func' <- mkSourceFunc (sourceFuncWrapper Nothing func) + let data_ = castFunPtrToPtr func' + let notify = safeFreeFunPtrPtr + g_source_set_callback _obj' func' data_ notify + touchManagedPtr _obj + return () + +-- method Source::set_callback_indirect +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, 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 = "callback_funcs", argType = TInterface "GLib" "SourceCallbackFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, 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 = "callback_funcs", argType = TInterface "GLib" "SourceCallbackFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_source_set_callback_indirect" g_source_set_callback_indirect :: + Ptr Source -> -- _obj : TInterface "GLib" "Source" + Ptr () -> -- callback_data : TBasicType TVoid + Ptr SourceCallbackFuncs -> -- callback_funcs : TInterface "GLib" "SourceCallbackFuncs" + IO () + + +sourceSetCallbackIndirect :: + (MonadIO m) => + Source -> -- _obj + Ptr () -> -- callback_data + SourceCallbackFuncs -> -- callback_funcs + m () +sourceSetCallbackIndirect _obj callback_data callback_funcs = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let callback_funcs' = unsafeManagedPtrGetPtr callback_funcs + g_source_set_callback_indirect _obj' callback_data callback_funcs' + touchManagedPtr _obj + touchManagedPtr callback_funcs + return () + +-- method Source::set_can_recurse +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_recurse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_recurse", 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_source_set_can_recurse" g_source_set_can_recurse :: + Ptr Source -> -- _obj : TInterface "GLib" "Source" + CInt -> -- can_recurse : TBasicType TBoolean + IO () + + +sourceSetCanRecurse :: + (MonadIO m) => + Source -> -- _obj + Bool -> -- can_recurse + m () +sourceSetCanRecurse _obj can_recurse = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let can_recurse' = (fromIntegral . fromEnum) can_recurse + g_source_set_can_recurse _obj' can_recurse' + touchManagedPtr _obj + return () + +-- method Source::set_funcs +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "funcs", argType = TInterface "GLib" "SourceFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "funcs", argType = TInterface "GLib" "SourceFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_source_set_funcs" g_source_set_funcs :: + Ptr Source -> -- _obj : TInterface "GLib" "Source" + Ptr SourceFuncs -> -- funcs : TInterface "GLib" "SourceFuncs" + IO () + + +sourceSetFuncs :: + (MonadIO m) => + Source -> -- _obj + SourceFuncs -> -- funcs + m () +sourceSetFuncs _obj funcs = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let funcs' = unsafeManagedPtrGetPtr funcs + g_source_set_funcs _obj' funcs' + touchManagedPtr _obj + touchManagedPtr funcs + return () + +-- method Source::set_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", 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 "GLib" "Source", 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_source_set_name" g_source_set_name :: + Ptr Source -> -- _obj : TInterface "GLib" "Source" + CString -> -- name : TBasicType TUTF8 + IO () + + +sourceSetName :: + (MonadIO m) => + Source -> -- _obj + T.Text -> -- name + m () +sourceSetName _obj name = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + name' <- textToCString name + g_source_set_name _obj' name' + touchManagedPtr _obj + freeMem name' + return () + +-- method Source::set_priority +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", 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 = "_obj", argType = TInterface "GLib" "Source", 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 + +foreign import ccall "g_source_set_priority" g_source_set_priority :: + Ptr Source -> -- _obj : TInterface "GLib" "Source" + Int32 -> -- priority : TBasicType TInt32 + IO () + + +sourceSetPriority :: + (MonadIO m) => + Source -> -- _obj + Int32 -> -- priority + m () +sourceSetPriority _obj priority = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_source_set_priority _obj' priority + touchManagedPtr _obj + return () + +-- method Source::set_ready_time +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ready_time", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ready_time", 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_source_set_ready_time" g_source_set_ready_time :: + Ptr Source -> -- _obj : TInterface "GLib" "Source" + Int64 -> -- ready_time : TBasicType TInt64 + IO () + + +sourceSetReadyTime :: + (MonadIO m) => + Source -> -- _obj + Int64 -> -- ready_time + m () +sourceSetReadyTime _obj ready_time = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_source_set_ready_time _obj' ready_time + touchManagedPtr _obj + return () + +-- method Source::unref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_source_unref" g_source_unref :: + Ptr Source -> -- _obj : TInterface "GLib" "Source" + IO () + + +sourceUnref :: + (MonadIO m) => + Source -> -- _obj + m () +sourceUnref _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_source_unref _obj' + touchManagedPtr _obj + return () + +-- struct SourceCallbackFuncs +newtype SourceCallbackFuncs = SourceCallbackFuncs (ForeignPtr SourceCallbackFuncs) +noSourceCallbackFuncs :: Maybe SourceCallbackFuncs +noSourceCallbackFuncs = Nothing + +-- XXX Skipped getter for "SourceCallbackFuncs:ref" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- XXX Skipped getter for "SourceCallbackFuncs:unref" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- callback SourceDummyMarshal +sourceDummyMarshalClosure :: SourceDummyMarshal -> IO Closure +sourceDummyMarshalClosure cb = newCClosure =<< mkSourceDummyMarshal wrapped + where wrapped = sourceDummyMarshalWrapper Nothing cb + +type SourceDummyMarshalC = + IO () + +foreign import ccall "wrapper" + mkSourceDummyMarshal :: SourceDummyMarshalC -> IO (FunPtr SourceDummyMarshalC) + +type SourceDummyMarshal = + IO () + +noSourceDummyMarshal :: Maybe SourceDummyMarshal +noSourceDummyMarshal = Nothing + +sourceDummyMarshalWrapper :: + Maybe (Ptr (FunPtr (SourceDummyMarshalC))) -> + SourceDummyMarshal -> + IO () +sourceDummyMarshalWrapper funptrptr _cb = do + _cb + maybeReleaseFunPtr funptrptr + +-- callback SourceFunc +sourceFuncClosure :: SourceFunc -> IO Closure +sourceFuncClosure cb = newCClosure =<< mkSourceFunc wrapped + where wrapped = sourceFuncWrapper Nothing cb + +type SourceFuncC = + Ptr () -> + IO CInt + +foreign import ccall "wrapper" + mkSourceFunc :: SourceFuncC -> IO (FunPtr SourceFuncC) + +type SourceFunc = + IO Bool + +noSourceFunc :: Maybe SourceFunc +noSourceFunc = Nothing + +sourceFuncWrapper :: + Maybe (Ptr (FunPtr (SourceFuncC))) -> + SourceFunc -> + Ptr () -> + IO CInt +sourceFuncWrapper funptrptr _cb _ = do + result <- _cb + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- struct SourceFuncs +newtype SourceFuncs = SourceFuncs (ForeignPtr SourceFuncs) +noSourceFuncs :: Maybe SourceFuncs +noSourceFuncs = Nothing + +-- XXX Skipped getter for "SourceFuncs:prepare" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- XXX Skipped getter for "SourceFuncs:check" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- XXX Skipped getter for "SourceFuncs:finalize" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +-- callback SpawnChildSetupFunc +spawnChildSetupFuncClosure :: SpawnChildSetupFunc -> IO Closure +spawnChildSetupFuncClosure cb = newCClosure =<< mkSpawnChildSetupFunc wrapped + where wrapped = spawnChildSetupFuncWrapper Nothing cb + +type SpawnChildSetupFuncC = + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkSpawnChildSetupFunc :: SpawnChildSetupFuncC -> IO (FunPtr SpawnChildSetupFuncC) + +type SpawnChildSetupFunc = + IO () + +noSpawnChildSetupFunc :: Maybe SpawnChildSetupFunc +noSpawnChildSetupFunc = Nothing + +spawnChildSetupFuncWrapper :: + Maybe (Ptr (FunPtr (SpawnChildSetupFuncC))) -> + SpawnChildSetupFunc -> + Ptr () -> + IO () +spawnChildSetupFuncWrapper funptrptr _cb _ = do + _cb + maybeReleaseFunPtr funptrptr + +-- Enum SpawnError + +data SpawnError = + SpawnErrorFork + | SpawnErrorRead + | SpawnErrorChdir + | SpawnErrorAcces + | SpawnErrorPerm + | SpawnErrorTooBig + | SpawnError2big + | SpawnErrorNoexec + | SpawnErrorNametoolong + | SpawnErrorNoent + | SpawnErrorNomem + | SpawnErrorNotdir + | SpawnErrorLoop + | SpawnErrorTxtbusy + | SpawnErrorIo + | SpawnErrorNfile + | SpawnErrorMfile + | SpawnErrorInval + | SpawnErrorIsdir + | SpawnErrorLibbad + | SpawnErrorFailed + | AnotherSpawnError Int + deriving (Show, Eq) + +instance Enum SpawnError where + fromEnum SpawnErrorFork = 0 + fromEnum SpawnErrorRead = 1 + fromEnum SpawnErrorChdir = 2 + fromEnum SpawnErrorAcces = 3 + fromEnum SpawnErrorPerm = 4 + fromEnum SpawnErrorTooBig = 5 + fromEnum SpawnError2big = 5 + fromEnum SpawnErrorNoexec = 6 + fromEnum SpawnErrorNametoolong = 7 + fromEnum SpawnErrorNoent = 8 + fromEnum SpawnErrorNomem = 9 + fromEnum SpawnErrorNotdir = 10 + fromEnum SpawnErrorLoop = 11 + fromEnum SpawnErrorTxtbusy = 12 + fromEnum SpawnErrorIo = 13 + fromEnum SpawnErrorNfile = 14 + fromEnum SpawnErrorMfile = 15 + fromEnum SpawnErrorInval = 16 + fromEnum SpawnErrorIsdir = 17 + fromEnum SpawnErrorLibbad = 18 + fromEnum SpawnErrorFailed = 19 + fromEnum (AnotherSpawnError k) = k + + toEnum 0 = SpawnErrorFork + toEnum 1 = SpawnErrorRead + toEnum 2 = SpawnErrorChdir + toEnum 3 = SpawnErrorAcces + toEnum 4 = SpawnErrorPerm + toEnum 5 = SpawnErrorTooBig + toEnum 6 = SpawnErrorNoexec + toEnum 7 = SpawnErrorNametoolong + toEnum 8 = SpawnErrorNoent + toEnum 9 = SpawnErrorNomem + toEnum 10 = SpawnErrorNotdir + toEnum 11 = SpawnErrorLoop + toEnum 12 = SpawnErrorTxtbusy + toEnum 13 = SpawnErrorIo + toEnum 14 = SpawnErrorNfile + toEnum 15 = SpawnErrorMfile + toEnum 16 = SpawnErrorInval + toEnum 17 = SpawnErrorIsdir + toEnum 18 = SpawnErrorLibbad + toEnum 19 = SpawnErrorFailed + toEnum k = AnotherSpawnError k + +instance GErrorClass SpawnError where + gerrorClassDomain _ = "g-exec-error-quark" + +catchSpawnError :: + IO a -> + (SpawnError -> GErrorMessage -> IO a) -> + IO a +catchSpawnError = catchGErrorJustDomain + +handleSpawnError :: + (SpawnError -> GErrorMessage -> IO a) -> + IO a -> + IO a +handleSpawnError = handleGErrorJustDomain + +-- Flags SpawnFlags + +data SpawnFlags = + SpawnFlagsDefault + | SpawnFlagsLeaveDescriptorsOpen + | SpawnFlagsDoNotReapChild + | SpawnFlagsSearchPath + | SpawnFlagsStdoutToDevNull + | SpawnFlagsStderrToDevNull + | SpawnFlagsChildInheritsStdin + | SpawnFlagsFileAndArgvZero + | SpawnFlagsSearchPathFromEnvp + | SpawnFlagsCloexecPipes + | AnotherSpawnFlags Int + deriving (Show, Eq) + +instance Enum SpawnFlags where + fromEnum SpawnFlagsDefault = 0 + fromEnum SpawnFlagsLeaveDescriptorsOpen = 1 + fromEnum SpawnFlagsDoNotReapChild = 2 + fromEnum SpawnFlagsSearchPath = 4 + fromEnum SpawnFlagsStdoutToDevNull = 8 + fromEnum SpawnFlagsStderrToDevNull = 16 + fromEnum SpawnFlagsChildInheritsStdin = 32 + fromEnum SpawnFlagsFileAndArgvZero = 64 + fromEnum SpawnFlagsSearchPathFromEnvp = 128 + fromEnum SpawnFlagsCloexecPipes = 256 + fromEnum (AnotherSpawnFlags k) = k + + toEnum 0 = SpawnFlagsDefault + toEnum 1 = SpawnFlagsLeaveDescriptorsOpen + toEnum 2 = SpawnFlagsDoNotReapChild + toEnum 4 = SpawnFlagsSearchPath + toEnum 8 = SpawnFlagsStdoutToDevNull + toEnum 16 = SpawnFlagsStderrToDevNull + toEnum 32 = SpawnFlagsChildInheritsStdin + toEnum 64 = SpawnFlagsFileAndArgvZero + toEnum 128 = SpawnFlagsSearchPathFromEnvp + toEnum 256 = SpawnFlagsCloexecPipes + toEnum k = AnotherSpawnFlags k + +instance IsGFlag SpawnFlags + +-- struct StatBuf +newtype StatBuf = StatBuf (ForeignPtr StatBuf) +noStatBuf :: Maybe StatBuf +noStatBuf = Nothing + +-- struct String +newtype String = String (ForeignPtr String) +noString :: Maybe String +noString = Nothing + +foreign import ccall "g_gstring_get_type" c_g_gstring_get_type :: + IO GType + +instance BoxedObject String where + boxedType _ = c_g_gstring_get_type + +stringReadStr :: String -> IO T.Text +stringReadStr s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO CString + val' <- cstringToText val + return val' + +stringReadLen :: String -> IO Word64 +stringReadLen s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO Word64 + return val + +stringReadAllocatedLen :: String -> IO Word64 +stringReadAllocatedLen s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 16) :: IO Word64 + return val + +-- method String::append +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "String" +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_append" g_string_append :: + Ptr String -> -- _obj : TInterface "GLib" "String" + CString -> -- val : TBasicType TUTF8 + IO (Ptr String) + + +stringAppend :: + (MonadIO m) => + String -> -- _obj + T.Text -> -- val + m String +stringAppend _obj val = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + val' <- textToCString val + result <- g_string_append _obj' val' + checkUnexpectedReturnNULL "g_string_append" result + result' <- (wrapBoxed String) result + touchManagedPtr _obj + freeMem val' + return result' + +-- method String::append_c +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "String" +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_append_c" g_string_append_c :: + Ptr String -> -- _obj : TInterface "GLib" "String" + Int8 -> -- c : TBasicType TInt8 + IO (Ptr String) + + +stringAppendC :: + (MonadIO m) => + String -> -- _obj + Int8 -> -- c + m String +stringAppendC _obj c = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_string_append_c _obj' c + checkUnexpectedReturnNULL "g_string_append_c" result + result' <- (wrapBoxed String) result + touchManagedPtr _obj + return result' + +-- method String::append_len +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "String" +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_append_len" g_string_append_len :: + Ptr String -> -- _obj : TInterface "GLib" "String" + CString -> -- val : TBasicType TUTF8 + Int64 -> -- len : TBasicType TInt64 + IO (Ptr String) + + +stringAppendLen :: + (MonadIO m) => + String -> -- _obj + T.Text -> -- val + Int64 -> -- len + m String +stringAppendLen _obj val len = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + val' <- textToCString val + result <- g_string_append_len _obj' val' len + checkUnexpectedReturnNULL "g_string_append_len" result + result' <- (wrapBoxed String) result + touchManagedPtr _obj + freeMem val' + return result' + +-- method String::append_unichar +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "String" +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_append_unichar" g_string_append_unichar :: + Ptr String -> -- _obj : TInterface "GLib" "String" + CInt -> -- wc : TBasicType TUniChar + IO (Ptr String) + + +stringAppendUnichar :: + (MonadIO m) => + String -> -- _obj + Char -> -- wc + m String +stringAppendUnichar _obj wc = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let wc' = (fromIntegral . ord) wc + result <- g_string_append_unichar _obj' wc' + checkUnexpectedReturnNULL "g_string_append_unichar" result + result' <- (wrapBoxed String) result + touchManagedPtr _obj + return result' + +-- method String::append_uri_escaped +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unescaped", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reserved_chars_allowed", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allow_utf8", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unescaped", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reserved_chars_allowed", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allow_utf8", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "String" +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_append_uri_escaped" g_string_append_uri_escaped :: + Ptr String -> -- _obj : TInterface "GLib" "String" + CString -> -- unescaped : TBasicType TUTF8 + CString -> -- reserved_chars_allowed : TBasicType TUTF8 + CInt -> -- allow_utf8 : TBasicType TBoolean + IO (Ptr String) + + +stringAppendUriEscaped :: + (MonadIO m) => + String -> -- _obj + T.Text -> -- unescaped + T.Text -> -- reserved_chars_allowed + Bool -> -- allow_utf8 + m String +stringAppendUriEscaped _obj unescaped reserved_chars_allowed allow_utf8 = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + unescaped' <- textToCString unescaped + reserved_chars_allowed' <- textToCString reserved_chars_allowed + let allow_utf8' = (fromIntegral . fromEnum) allow_utf8 + result <- g_string_append_uri_escaped _obj' unescaped' reserved_chars_allowed' allow_utf8' + checkUnexpectedReturnNULL "g_string_append_uri_escaped" result + result' <- (wrapBoxed String) result + touchManagedPtr _obj + freeMem unescaped' + freeMem reserved_chars_allowed' + return result' + +-- method String::ascii_down +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "String" +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_ascii_down" g_string_ascii_down :: + Ptr String -> -- _obj : TInterface "GLib" "String" + IO (Ptr String) + + +stringAsciiDown :: + (MonadIO m) => + String -> -- _obj + m String +stringAsciiDown _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_string_ascii_down _obj' + checkUnexpectedReturnNULL "g_string_ascii_down" result + result' <- (wrapBoxed String) result + touchManagedPtr _obj + return result' + +-- method String::ascii_up +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "String" +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_ascii_up" g_string_ascii_up :: + Ptr String -> -- _obj : TInterface "GLib" "String" + IO (Ptr String) + + +stringAsciiUp :: + (MonadIO m) => + String -> -- _obj + m String +stringAsciiUp _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_string_ascii_up _obj' + checkUnexpectedReturnNULL "g_string_ascii_up" result + result' <- (wrapBoxed String) result + touchManagedPtr _obj + return result' + +-- method String::assign +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rval", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rval", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "String" +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_assign" g_string_assign :: + Ptr String -> -- _obj : TInterface "GLib" "String" + CString -> -- rval : TBasicType TUTF8 + IO (Ptr String) + + +stringAssign :: + (MonadIO m) => + String -> -- _obj + T.Text -> -- rval + m String +stringAssign _obj rval = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + rval' <- textToCString rval + result <- g_string_assign _obj' rval' + checkUnexpectedReturnNULL "g_string_assign" result + result' <- (wrapBoxed String) result + touchManagedPtr _obj + freeMem rval' + return result' + +-- method String::down +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "String" +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_down" g_string_down :: + Ptr String -> -- _obj : TInterface "GLib" "String" + IO (Ptr String) + +{-# DEPRECATED stringDown ["(Since version 2.2)","This function uses the locale-specific"," tolower() function, which is almost never the right thing."," Use g_string_ascii_down() or g_utf8_strdown() instead."]#-} +stringDown :: + (MonadIO m) => + String -> -- _obj + m String +stringDown _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_string_down _obj' + checkUnexpectedReturnNULL "g_string_down" result + result' <- (wrapBoxed String) result + touchManagedPtr _obj + return result' + +-- method String::equal +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_equal" g_string_equal :: + Ptr String -> -- _obj : TInterface "GLib" "String" + Ptr String -> -- v2 : TInterface "GLib" "String" + IO CInt + + +stringEqual :: + (MonadIO m) => + String -> -- _obj + String -> -- v2 + m Bool +stringEqual _obj v2 = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let v2' = unsafeManagedPtrGetPtr v2 + result <- g_string_equal _obj' v2' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr v2 + return result' + +-- method String::erase +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "String" +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_erase" g_string_erase :: + Ptr String -> -- _obj : TInterface "GLib" "String" + Int64 -> -- pos : TBasicType TInt64 + Int64 -> -- len : TBasicType TInt64 + IO (Ptr String) + + +stringErase :: + (MonadIO m) => + String -> -- _obj + Int64 -> -- pos + Int64 -> -- len + m String +stringErase _obj pos len = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_string_erase _obj' pos len + checkUnexpectedReturnNULL "g_string_erase" result + result' <- (wrapBoxed String) result + touchManagedPtr _obj + return result' + +-- method String::free +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "free_segment", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "free_segment", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_free" g_string_free :: + Ptr String -> -- _obj : TInterface "GLib" "String" + CInt -> -- free_segment : TBasicType TBoolean + IO CString + + +stringFree :: + (MonadIO m) => + String -> -- _obj + Bool -> -- free_segment + m T.Text +stringFree _obj free_segment = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let free_segment' = (fromIntegral . fromEnum) free_segment + result <- g_string_free _obj' free_segment' + checkUnexpectedReturnNULL "g_string_free" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method String::free_to_bytes +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "Bytes" +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_free_to_bytes" g_string_free_to_bytes :: + Ptr String -> -- _obj : TInterface "GLib" "String" + IO (Ptr Bytes) + + +stringFreeToBytes :: + (MonadIO m) => + String -> -- _obj + m Bytes +stringFreeToBytes _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_string_free_to_bytes _obj' + checkUnexpectedReturnNULL "g_string_free_to_bytes" result + result' <- (wrapBoxed Bytes) result + touchManagedPtr _obj + return result' + +-- method String::hash +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_hash" g_string_hash :: + Ptr String -> -- _obj : TInterface "GLib" "String" + IO Word32 + + +stringHash :: + (MonadIO m) => + String -> -- _obj + m Word32 +stringHash _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_string_hash _obj' + touchManagedPtr _obj + return result + +-- method String::insert +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "String" +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_insert" g_string_insert :: + Ptr String -> -- _obj : TInterface "GLib" "String" + Int64 -> -- pos : TBasicType TInt64 + CString -> -- val : TBasicType TUTF8 + IO (Ptr String) + + +stringInsert :: + (MonadIO m) => + String -> -- _obj + Int64 -> -- pos + T.Text -> -- val + m String +stringInsert _obj pos val = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + val' <- textToCString val + result <- g_string_insert _obj' pos val' + checkUnexpectedReturnNULL "g_string_insert" result + result' <- (wrapBoxed String) result + touchManagedPtr _obj + freeMem val' + return result' + +-- method String::insert_c +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "String" +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_insert_c" g_string_insert_c :: + Ptr String -> -- _obj : TInterface "GLib" "String" + Int64 -> -- pos : TBasicType TInt64 + Int8 -> -- c : TBasicType TInt8 + IO (Ptr String) + + +stringInsertC :: + (MonadIO m) => + String -> -- _obj + Int64 -> -- pos + Int8 -> -- c + m String +stringInsertC _obj pos c = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_string_insert_c _obj' pos c + checkUnexpectedReturnNULL "g_string_insert_c" result + result' <- (wrapBoxed String) result + touchManagedPtr _obj + return result' + +-- method String::insert_len +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "String" +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_insert_len" g_string_insert_len :: + Ptr String -> -- _obj : TInterface "GLib" "String" + Int64 -> -- pos : TBasicType TInt64 + CString -> -- val : TBasicType TUTF8 + Int64 -> -- len : TBasicType TInt64 + IO (Ptr String) + + +stringInsertLen :: + (MonadIO m) => + String -> -- _obj + Int64 -> -- pos + T.Text -> -- val + Int64 -> -- len + m String +stringInsertLen _obj pos val len = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + val' <- textToCString val + result <- g_string_insert_len _obj' pos val' len + checkUnexpectedReturnNULL "g_string_insert_len" result + result' <- (wrapBoxed String) result + touchManagedPtr _obj + freeMem val' + return result' + +-- method String::insert_unichar +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "String" +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_insert_unichar" g_string_insert_unichar :: + Ptr String -> -- _obj : TInterface "GLib" "String" + Int64 -> -- pos : TBasicType TInt64 + CInt -> -- wc : TBasicType TUniChar + IO (Ptr String) + + +stringInsertUnichar :: + (MonadIO m) => + String -> -- _obj + Int64 -> -- pos + Char -> -- wc + m String +stringInsertUnichar _obj pos wc = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let wc' = (fromIntegral . ord) wc + result <- g_string_insert_unichar _obj' pos wc' + checkUnexpectedReturnNULL "g_string_insert_unichar" result + result' <- (wrapBoxed String) result + touchManagedPtr _obj + return result' + +-- method String::overwrite +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "String" +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_overwrite" g_string_overwrite :: + Ptr String -> -- _obj : TInterface "GLib" "String" + Word64 -> -- pos : TBasicType TUInt64 + CString -> -- val : TBasicType TUTF8 + IO (Ptr String) + + +stringOverwrite :: + (MonadIO m) => + String -> -- _obj + Word64 -> -- pos + T.Text -> -- val + m String +stringOverwrite _obj pos val = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + val' <- textToCString val + result <- g_string_overwrite _obj' pos val' + checkUnexpectedReturnNULL "g_string_overwrite" result + result' <- (wrapBoxed String) result + touchManagedPtr _obj + freeMem val' + return result' + +-- method String::overwrite_len +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "String" +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_overwrite_len" g_string_overwrite_len :: + Ptr String -> -- _obj : TInterface "GLib" "String" + Word64 -> -- pos : TBasicType TUInt64 + CString -> -- val : TBasicType TUTF8 + Int64 -> -- len : TBasicType TInt64 + IO (Ptr String) + + +stringOverwriteLen :: + (MonadIO m) => + String -> -- _obj + Word64 -> -- pos + T.Text -> -- val + Int64 -> -- len + m String +stringOverwriteLen _obj pos val len = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + val' <- textToCString val + result <- g_string_overwrite_len _obj' pos val' len + checkUnexpectedReturnNULL "g_string_overwrite_len" result + result' <- (wrapBoxed String) result + touchManagedPtr _obj + freeMem val' + return result' + +-- method String::prepend +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "String" +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_prepend" g_string_prepend :: + Ptr String -> -- _obj : TInterface "GLib" "String" + CString -> -- val : TBasicType TUTF8 + IO (Ptr String) + + +stringPrepend :: + (MonadIO m) => + String -> -- _obj + T.Text -> -- val + m String +stringPrepend _obj val = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + val' <- textToCString val + result <- g_string_prepend _obj' val' + checkUnexpectedReturnNULL "g_string_prepend" result + result' <- (wrapBoxed String) result + touchManagedPtr _obj + freeMem val' + return result' + +-- method String::prepend_c +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "String" +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_prepend_c" g_string_prepend_c :: + Ptr String -> -- _obj : TInterface "GLib" "String" + Int8 -> -- c : TBasicType TInt8 + IO (Ptr String) + + +stringPrependC :: + (MonadIO m) => + String -> -- _obj + Int8 -> -- c + m String +stringPrependC _obj c = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_string_prepend_c _obj' c + checkUnexpectedReturnNULL "g_string_prepend_c" result + result' <- (wrapBoxed String) result + touchManagedPtr _obj + return result' + +-- method String::prepend_len +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "String" +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_prepend_len" g_string_prepend_len :: + Ptr String -> -- _obj : TInterface "GLib" "String" + CString -> -- val : TBasicType TUTF8 + Int64 -> -- len : TBasicType TInt64 + IO (Ptr String) + + +stringPrependLen :: + (MonadIO m) => + String -> -- _obj + T.Text -> -- val + Int64 -> -- len + m String +stringPrependLen _obj val len = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + val' <- textToCString val + result <- g_string_prepend_len _obj' val' len + checkUnexpectedReturnNULL "g_string_prepend_len" result + result' <- (wrapBoxed String) result + touchManagedPtr _obj + freeMem val' + return result' + +-- method String::prepend_unichar +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "String" +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_prepend_unichar" g_string_prepend_unichar :: + Ptr String -> -- _obj : TInterface "GLib" "String" + CInt -> -- wc : TBasicType TUniChar + IO (Ptr String) + + +stringPrependUnichar :: + (MonadIO m) => + String -> -- _obj + Char -> -- wc + m String +stringPrependUnichar _obj wc = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let wc' = (fromIntegral . ord) wc + result <- g_string_prepend_unichar _obj' wc' + checkUnexpectedReturnNULL "g_string_prepend_unichar" result + result' <- (wrapBoxed String) result + touchManagedPtr _obj + return result' + +-- method String::set_size +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", 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 "GLib" "String" +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_set_size" g_string_set_size :: + Ptr String -> -- _obj : TInterface "GLib" "String" + Word64 -> -- len : TBasicType TUInt64 + IO (Ptr String) + + +stringSetSize :: + (MonadIO m) => + String -> -- _obj + Word64 -> -- len + m String +stringSetSize _obj len = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_string_set_size _obj' len + checkUnexpectedReturnNULL "g_string_set_size" result + result' <- (wrapBoxed String) result + touchManagedPtr _obj + return result' + +-- method String::truncate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", 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 "GLib" "String" +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_truncate" g_string_truncate :: + Ptr String -> -- _obj : TInterface "GLib" "String" + Word64 -> -- len : TBasicType TUInt64 + IO (Ptr String) + + +stringTruncate :: + (MonadIO m) => + String -> -- _obj + Word64 -> -- len + m String +stringTruncate _obj len = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_string_truncate _obj' len + checkUnexpectedReturnNULL "g_string_truncate" result + result' <- (wrapBoxed String) result + touchManagedPtr _obj + return result' + +-- method String::up +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "String" +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_up" g_string_up :: + Ptr String -> -- _obj : TInterface "GLib" "String" + IO (Ptr String) + +{-# DEPRECATED stringUp ["(Since version 2.2)","This function uses the locale-specific"," toupper() function, which is almost never the right thing."," Use g_string_ascii_up() or g_utf8_strup() instead."]#-} +stringUp :: + (MonadIO m) => + String -> -- _obj + m String +stringUp _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_string_up _obj' + checkUnexpectedReturnNULL "g_string_up" result + result' <- (wrapBoxed String) result + touchManagedPtr _obj + return result' + +-- struct StringChunk +newtype StringChunk = StringChunk (ForeignPtr StringChunk) +noStringChunk :: Maybe StringChunk +noStringChunk = Nothing + +-- method StringChunk::clear +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_chunk_clear" g_string_chunk_clear :: + Ptr StringChunk -> -- _obj : TInterface "GLib" "StringChunk" + IO () + + +stringChunkClear :: + (MonadIO m) => + StringChunk -> -- _obj + m () +stringChunkClear _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_string_chunk_clear _obj' + touchManagedPtr _obj + return () + +-- method StringChunk::free +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_chunk_free" g_string_chunk_free :: + Ptr StringChunk -> -- _obj : TInterface "GLib" "StringChunk" + IO () + + +stringChunkFree :: + (MonadIO m) => + StringChunk -> -- _obj + m () +stringChunkFree _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_string_chunk_free _obj' + touchManagedPtr _obj + return () + +-- method StringChunk::insert +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},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_string_chunk_insert" g_string_chunk_insert :: + Ptr StringChunk -> -- _obj : TInterface "GLib" "StringChunk" + CString -> -- string : TBasicType TUTF8 + IO CString + + +stringChunkInsert :: + (MonadIO m) => + StringChunk -> -- _obj + T.Text -> -- string + m T.Text +stringChunkInsert _obj string = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + string' <- textToCString string + result <- g_string_chunk_insert _obj' string' + checkUnexpectedReturnNULL "g_string_chunk_insert" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem string' + return result' + +-- method StringChunk::insert_const +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},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_string_chunk_insert_const" g_string_chunk_insert_const :: + Ptr StringChunk -> -- _obj : TInterface "GLib" "StringChunk" + CString -> -- string : TBasicType TUTF8 + IO CString + + +stringChunkInsertConst :: + (MonadIO m) => + StringChunk -> -- _obj + T.Text -> -- string + m T.Text +stringChunkInsertConst _obj string = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + string' <- textToCString string + result <- g_string_chunk_insert_const _obj' string' + checkUnexpectedReturnNULL "g_string_chunk_insert_const" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem string' + return result' + +-- method StringChunk::insert_len +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_chunk_insert_len" g_string_chunk_insert_len :: + Ptr StringChunk -> -- _obj : TInterface "GLib" "StringChunk" + CString -> -- string : TBasicType TUTF8 + Int64 -> -- len : TBasicType TInt64 + IO CString + + +stringChunkInsertLen :: + (MonadIO m) => + StringChunk -> -- _obj + T.Text -> -- string + Int64 -> -- len + m T.Text +stringChunkInsertLen _obj string len = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + string' <- textToCString string + result <- g_string_chunk_insert_len _obj' string' len + checkUnexpectedReturnNULL "g_string_chunk_insert_len" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + freeMem string' + return result' + +-- struct TestCase +newtype TestCase = TestCase (ForeignPtr TestCase) +noTestCase :: Maybe TestCase +noTestCase = Nothing + +-- struct TestConfig +newtype TestConfig = TestConfig (ForeignPtr TestConfig) +noTestConfig :: Maybe TestConfig +noTestConfig = Nothing + +testConfigReadTestInitialized :: TestConfig -> IO Bool +testConfigReadTestInitialized s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO CInt + let val' = (/= 0) val + return val' + +testConfigReadTestQuick :: TestConfig -> IO Bool +testConfigReadTestQuick s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 4) :: IO CInt + let val' = (/= 0) val + return val' + +testConfigReadTestPerf :: TestConfig -> IO Bool +testConfigReadTestPerf s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO CInt + let val' = (/= 0) val + return val' + +testConfigReadTestVerbose :: TestConfig -> IO Bool +testConfigReadTestVerbose s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 12) :: IO CInt + let val' = (/= 0) val + return val' + +testConfigReadTestQuiet :: TestConfig -> IO Bool +testConfigReadTestQuiet s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 16) :: IO CInt + let val' = (/= 0) val + return val' + +testConfigReadTestUndefined :: TestConfig -> IO Bool +testConfigReadTestUndefined s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 20) :: IO CInt + let val' = (/= 0) val + return val' + +-- callback TestDataFunc +testDataFuncClosure :: TestDataFunc -> IO Closure +testDataFuncClosure cb = newCClosure =<< mkTestDataFunc wrapped + where wrapped = testDataFuncWrapper Nothing cb + +type TestDataFuncC = + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkTestDataFunc :: TestDataFuncC -> IO (FunPtr TestDataFuncC) + +type TestDataFunc = + IO () + +noTestDataFunc :: Maybe TestDataFunc +noTestDataFunc = Nothing + +testDataFuncWrapper :: + Maybe (Ptr (FunPtr (TestDataFuncC))) -> + TestDataFunc -> + Ptr () -> + IO () +testDataFuncWrapper funptrptr _cb _ = do + _cb + maybeReleaseFunPtr funptrptr + +-- Enum TestFileType + +data TestFileType = + TestFileTypeDist + | TestFileTypeBuilt + | AnotherTestFileType Int + deriving (Show, Eq) + +instance Enum TestFileType where + fromEnum TestFileTypeDist = 0 + fromEnum TestFileTypeBuilt = 1 + fromEnum (AnotherTestFileType k) = k + + toEnum 0 = TestFileTypeDist + toEnum 1 = TestFileTypeBuilt + toEnum k = AnotherTestFileType k + +-- callback TestFixtureFunc +testFixtureFuncClosure :: TestFixtureFunc -> IO Closure +testFixtureFuncClosure cb = newCClosure =<< mkTestFixtureFunc wrapped + where wrapped = testFixtureFuncWrapper Nothing cb + +type TestFixtureFuncC = + Ptr () -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkTestFixtureFunc :: TestFixtureFuncC -> IO (FunPtr TestFixtureFuncC) + +type TestFixtureFunc = + Ptr () -> + IO () + +noTestFixtureFunc :: Maybe TestFixtureFunc +noTestFixtureFunc = Nothing + +testFixtureFuncWrapper :: + Maybe (Ptr (FunPtr (TestFixtureFuncC))) -> + TestFixtureFunc -> + Ptr () -> + Ptr () -> + IO () +testFixtureFuncWrapper funptrptr _cb fixture _ = do + _cb fixture + maybeReleaseFunPtr funptrptr + +-- callback TestFunc +testFuncClosure :: TestFunc -> IO Closure +testFuncClosure cb = newCClosure =<< mkTestFunc wrapped + where wrapped = testFuncWrapper Nothing cb + +type TestFuncC = + IO () + +foreign import ccall "wrapper" + mkTestFunc :: TestFuncC -> IO (FunPtr TestFuncC) + +type TestFunc = + IO () + +noTestFunc :: Maybe TestFunc +noTestFunc = Nothing + +testFuncWrapper :: + Maybe (Ptr (FunPtr (TestFuncC))) -> + TestFunc -> + IO () +testFuncWrapper funptrptr _cb = do + _cb + maybeReleaseFunPtr funptrptr + +-- struct TestLogBuffer +newtype TestLogBuffer = TestLogBuffer (ForeignPtr TestLogBuffer) +noTestLogBuffer :: Maybe TestLogBuffer +noTestLogBuffer = Nothing + +-- method TestLogBuffer::free +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TestLogBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TestLogBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_test_log_buffer_free" g_test_log_buffer_free :: + Ptr TestLogBuffer -> -- _obj : TInterface "GLib" "TestLogBuffer" + IO () + + +testLogBufferFree :: + (MonadIO m) => + TestLogBuffer -> -- _obj + m () +testLogBufferFree _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_test_log_buffer_free _obj' + touchManagedPtr _obj + return () + +-- method TestLogBuffer::push +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TestLogBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_bytes", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TestLogBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_bytes", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_test_log_buffer_push" g_test_log_buffer_push :: + Ptr TestLogBuffer -> -- _obj : TInterface "GLib" "TestLogBuffer" + Word32 -> -- n_bytes : TBasicType TUInt32 + Word8 -> -- bytes : TBasicType TUInt8 + IO () + + +testLogBufferPush :: + (MonadIO m) => + TestLogBuffer -> -- _obj + Word32 -> -- n_bytes + Word8 -> -- bytes + m () +testLogBufferPush _obj n_bytes bytes = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_test_log_buffer_push _obj' n_bytes bytes + touchManagedPtr _obj + return () + +-- callback TestLogFatalFunc +testLogFatalFuncClosure :: TestLogFatalFunc -> IO Closure +testLogFatalFuncClosure cb = newCClosure =<< mkTestLogFatalFunc wrapped + where wrapped = testLogFatalFuncWrapper Nothing cb + +type TestLogFatalFuncC = + CString -> + CUInt -> + CString -> + Ptr () -> + IO CInt + +foreign import ccall "wrapper" + mkTestLogFatalFunc :: TestLogFatalFuncC -> IO (FunPtr TestLogFatalFuncC) + +type TestLogFatalFunc = + T.Text -> + [LogLevelFlags] -> + T.Text -> + IO Bool + +noTestLogFatalFunc :: Maybe TestLogFatalFunc +noTestLogFatalFunc = Nothing + +testLogFatalFuncWrapper :: + Maybe (Ptr (FunPtr (TestLogFatalFuncC))) -> + TestLogFatalFunc -> + CString -> + CUInt -> + CString -> + Ptr () -> + IO CInt +testLogFatalFuncWrapper funptrptr _cb log_domain log_level message _ = do + log_domain' <- cstringToText log_domain + let log_level' = wordToGFlags log_level + message' <- cstringToText message + result <- _cb log_domain' log_level' message' + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- struct TestLogMsg +newtype TestLogMsg = TestLogMsg (ForeignPtr TestLogMsg) +noTestLogMsg :: Maybe TestLogMsg +noTestLogMsg = Nothing + +testLogMsgReadLogType :: TestLogMsg -> IO TestLogType +testLogMsgReadLogType s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO CUInt + let val' = (toEnum . fromIntegral) val + return val' + +testLogMsgReadNStrings :: TestLogMsg -> IO Word32 +testLogMsgReadNStrings s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 4) :: IO Word32 + return val + +testLogMsgReadStrings :: TestLogMsg -> IO T.Text +testLogMsgReadStrings s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO CString + val' <- cstringToText val + return val' + +testLogMsgReadNNums :: TestLogMsg -> IO Word32 +testLogMsgReadNNums s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 16) :: IO Word32 + return val + +testLogMsgReadNums :: TestLogMsg -> IO Int64 +testLogMsgReadNums s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 24) :: IO Int64 + return val + +-- method TestLogMsg::free +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TestLogMsg", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TestLogMsg", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_test_log_msg_free" g_test_log_msg_free :: + Ptr TestLogMsg -> -- _obj : TInterface "GLib" "TestLogMsg" + IO () + + +testLogMsgFree :: + (MonadIO m) => + TestLogMsg -> -- _obj + m () +testLogMsgFree _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_test_log_msg_free _obj' + touchManagedPtr _obj + return () + +-- Enum TestLogType + +data TestLogType = + TestLogTypeNone + | TestLogTypeError + | TestLogTypeStartBinary + | TestLogTypeListCase + | TestLogTypeSkipCase + | TestLogTypeStartCase + | TestLogTypeStopCase + | TestLogTypeMinResult + | TestLogTypeMaxResult + | TestLogTypeMessage + | TestLogTypeStartSuite + | TestLogTypeStopSuite + | AnotherTestLogType Int + deriving (Show, Eq) + +instance Enum TestLogType where + fromEnum TestLogTypeNone = 0 + fromEnum TestLogTypeError = 1 + fromEnum TestLogTypeStartBinary = 2 + fromEnum TestLogTypeListCase = 3 + fromEnum TestLogTypeSkipCase = 4 + fromEnum TestLogTypeStartCase = 5 + fromEnum TestLogTypeStopCase = 6 + fromEnum TestLogTypeMinResult = 7 + fromEnum TestLogTypeMaxResult = 8 + fromEnum TestLogTypeMessage = 9 + fromEnum TestLogTypeStartSuite = 10 + fromEnum TestLogTypeStopSuite = 11 + fromEnum (AnotherTestLogType k) = k + + toEnum 0 = TestLogTypeNone + toEnum 1 = TestLogTypeError + toEnum 2 = TestLogTypeStartBinary + toEnum 3 = TestLogTypeListCase + toEnum 4 = TestLogTypeSkipCase + toEnum 5 = TestLogTypeStartCase + toEnum 6 = TestLogTypeStopCase + toEnum 7 = TestLogTypeMinResult + toEnum 8 = TestLogTypeMaxResult + toEnum 9 = TestLogTypeMessage + toEnum 10 = TestLogTypeStartSuite + toEnum 11 = TestLogTypeStopSuite + toEnum k = AnotherTestLogType k + +-- Flags TestSubprocessFlags + +data TestSubprocessFlags = + TestSubprocessFlagsStdin + | TestSubprocessFlagsStdout + | TestSubprocessFlagsStderr + | AnotherTestSubprocessFlags Int + deriving (Show, Eq) + +instance Enum TestSubprocessFlags where + fromEnum TestSubprocessFlagsStdin = 1 + fromEnum TestSubprocessFlagsStdout = 2 + fromEnum TestSubprocessFlagsStderr = 4 + fromEnum (AnotherTestSubprocessFlags k) = k + + toEnum 1 = TestSubprocessFlagsStdin + toEnum 2 = TestSubprocessFlagsStdout + toEnum 4 = TestSubprocessFlagsStderr + toEnum k = AnotherTestSubprocessFlags k + +instance IsGFlag TestSubprocessFlags + +-- struct TestSuite +newtype TestSuite = TestSuite (ForeignPtr TestSuite) +noTestSuite :: Maybe TestSuite +noTestSuite = Nothing + +-- method TestSuite::add +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_case", argType = TInterface "GLib" "TestCase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_case", argType = TInterface "GLib" "TestCase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_test_suite_add" g_test_suite_add :: + Ptr TestSuite -> -- _obj : TInterface "GLib" "TestSuite" + Ptr TestCase -> -- test_case : TInterface "GLib" "TestCase" + IO () + + +testSuiteAdd :: + (MonadIO m) => + TestSuite -> -- _obj + TestCase -> -- test_case + m () +testSuiteAdd _obj test_case = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let test_case' = unsafeManagedPtrGetPtr test_case + g_test_suite_add _obj' test_case' + touchManagedPtr _obj + touchManagedPtr test_case + return () + +-- method TestSuite::add_suite +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nestedsuite", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nestedsuite", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_test_suite_add_suite" g_test_suite_add_suite :: + Ptr TestSuite -> -- _obj : TInterface "GLib" "TestSuite" + Ptr TestSuite -> -- nestedsuite : TInterface "GLib" "TestSuite" + IO () + + +testSuiteAddSuite :: + (MonadIO m) => + TestSuite -> -- _obj + TestSuite -> -- nestedsuite + m () +testSuiteAddSuite _obj nestedsuite = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let nestedsuite' = unsafeManagedPtrGetPtr nestedsuite + g_test_suite_add_suite _obj' nestedsuite' + touchManagedPtr _obj + touchManagedPtr nestedsuite + return () + +-- Flags TestTrapFlags +{-# DEPRECATED TestTrapFlags ["#GTestTrapFlags is used only with g_test_trap_fork(),","which is deprecated. g_test_trap_subprocess() uses","#GTestTrapSubprocessFlags."]#-} +data TestTrapFlags = + TestTrapFlagsSilenceStdout + | TestTrapFlagsSilenceStderr + | TestTrapFlagsInheritStdin + | AnotherTestTrapFlags Int + deriving (Show, Eq) + +instance Enum TestTrapFlags where + fromEnum TestTrapFlagsSilenceStdout = 128 + fromEnum TestTrapFlagsSilenceStderr = 256 + fromEnum TestTrapFlagsInheritStdin = 512 + fromEnum (AnotherTestTrapFlags k) = k + + toEnum 128 = TestTrapFlagsSilenceStdout + toEnum 256 = TestTrapFlagsSilenceStderr + toEnum 512 = TestTrapFlagsInheritStdin + toEnum k = AnotherTestTrapFlags k + +instance IsGFlag TestTrapFlags + +-- struct Thread +newtype Thread = Thread (ForeignPtr Thread) +noThread :: Maybe Thread +noThread = Nothing + +foreign import ccall "g_thread_get_type" c_g_thread_get_type :: + IO GType + +instance BoxedObject Thread where + boxedType _ = c_g_thread_get_type + +-- method Thread::ref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Thread", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Thread", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "Thread" +-- throws : False +-- Skip return : False + +foreign import ccall "g_thread_ref" g_thread_ref :: + Ptr Thread -> -- _obj : TInterface "GLib" "Thread" + IO (Ptr Thread) + + +threadRef :: + (MonadIO m) => + Thread -> -- _obj + m Thread +threadRef _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_thread_ref _obj' + checkUnexpectedReturnNULL "g_thread_ref" result + result' <- (wrapBoxed Thread) result + touchManagedPtr _obj + return result' + +-- method Thread::unref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Thread", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Thread", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_thread_unref" g_thread_unref :: + Ptr Thread -> -- _obj : TInterface "GLib" "Thread" + IO () + + +threadUnref :: + (MonadIO m) => + Thread -> -- _obj + m () +threadUnref _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_thread_unref _obj' + touchManagedPtr _obj + return () + +-- Enum ThreadError + +data ThreadError = + ThreadErrorThreadErrorAgain + | AnotherThreadError Int + deriving (Show, Eq) + +instance Enum ThreadError where + fromEnum ThreadErrorThreadErrorAgain = 0 + fromEnum (AnotherThreadError k) = k + + toEnum 0 = ThreadErrorThreadErrorAgain + toEnum k = AnotherThreadError k + +instance GErrorClass ThreadError where + gerrorClassDomain _ = "g_thread_error" + +catchThreadError :: + IO a -> + (ThreadError -> GErrorMessage -> IO a) -> + IO a +catchThreadError = catchGErrorJustDomain + +handleThreadError :: + (ThreadError -> GErrorMessage -> IO a) -> + IO a -> + IO a +handleThreadError = handleGErrorJustDomain + +-- struct ThreadPool +newtype ThreadPool = ThreadPool (ForeignPtr ThreadPool) +noThreadPool :: Maybe ThreadPool +noThreadPool = Nothing + +-- XXX Skipped getter for "ThreadPool:func" :: Not implemented: "Wrapping foreign callbacks is not supported yet" + +threadPoolReadUserData :: ThreadPool -> IO (Ptr ()) +threadPoolReadUserData s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO (Ptr ()) + return val + +threadPoolReadExclusive :: ThreadPool -> IO Bool +threadPoolReadExclusive s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 16) :: IO CInt + let val' = (/= 0) val + return val' + +-- method ThreadPool::free +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "immediate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wait_", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "immediate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wait_", 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_thread_pool_free" g_thread_pool_free :: + Ptr ThreadPool -> -- _obj : TInterface "GLib" "ThreadPool" + CInt -> -- immediate : TBasicType TBoolean + CInt -> -- wait_ : TBasicType TBoolean + IO () + + +threadPoolFree :: + (MonadIO m) => + ThreadPool -> -- _obj + Bool -> -- immediate + Bool -> -- wait_ + m () +threadPoolFree _obj immediate wait_ = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let immediate' = (fromIntegral . fromEnum) immediate + let wait_' = (fromIntegral . fromEnum) wait_ + g_thread_pool_free _obj' immediate' wait_' + touchManagedPtr _obj + return () + +-- method ThreadPool::get_max_threads +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_thread_pool_get_max_threads" g_thread_pool_get_max_threads :: + Ptr ThreadPool -> -- _obj : TInterface "GLib" "ThreadPool" + IO Int32 + + +threadPoolGetMaxThreads :: + (MonadIO m) => + ThreadPool -> -- _obj + m Int32 +threadPoolGetMaxThreads _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_thread_pool_get_max_threads _obj' + touchManagedPtr _obj + return result + +-- method ThreadPool::get_num_threads +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_thread_pool_get_num_threads" g_thread_pool_get_num_threads :: + Ptr ThreadPool -> -- _obj : TInterface "GLib" "ThreadPool" + IO Word32 + + +threadPoolGetNumThreads :: + (MonadIO m) => + ThreadPool -> -- _obj + m Word32 +threadPoolGetNumThreads _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_thread_pool_get_num_threads _obj' + touchManagedPtr _obj + return result + +-- method ThreadPool::move_to_front +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", 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 TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_thread_pool_move_to_front" g_thread_pool_move_to_front :: + Ptr ThreadPool -> -- _obj : TInterface "GLib" "ThreadPool" + Ptr () -> -- data : TBasicType TVoid + IO CInt + + +threadPoolMoveToFront :: + (MonadIO m) => + ThreadPool -> -- _obj + Ptr () -> -- data + m Bool +threadPoolMoveToFront _obj data_ = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_thread_pool_move_to_front _obj' data_ + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method ThreadPool::push +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", 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 TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_thread_pool_push" g_thread_pool_push :: + Ptr ThreadPool -> -- _obj : TInterface "GLib" "ThreadPool" + Ptr () -> -- data : TBasicType TVoid + Ptr (Ptr GError) -> -- error + IO CInt + + +threadPoolPush :: + (MonadIO m) => + ThreadPool -> -- _obj + Ptr () -> -- data + m () +threadPoolPush _obj data_ = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + onException (do + _ <- propagateGError $ g_thread_pool_push _obj' data_ + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method ThreadPool::set_max_threads +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_threads", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_threads", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_thread_pool_set_max_threads" g_thread_pool_set_max_threads :: + Ptr ThreadPool -> -- _obj : TInterface "GLib" "ThreadPool" + Int32 -> -- max_threads : TBasicType TInt32 + Ptr (Ptr GError) -> -- error + IO CInt + + +threadPoolSetMaxThreads :: + (MonadIO m) => + ThreadPool -> -- _obj + Int32 -> -- max_threads + m () +threadPoolSetMaxThreads _obj max_threads = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + onException (do + _ <- propagateGError $ g_thread_pool_set_max_threads _obj' max_threads + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method ThreadPool::unprocessed +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_thread_pool_unprocessed" g_thread_pool_unprocessed :: + Ptr ThreadPool -> -- _obj : TInterface "GLib" "ThreadPool" + IO Word32 + + +threadPoolUnprocessed :: + (MonadIO m) => + ThreadPool -> -- _obj + m Word32 +threadPoolUnprocessed _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_thread_pool_unprocessed _obj' + touchManagedPtr _obj + return result + +-- Enum TimeType + +data TimeType = + TimeTypeStandard + | TimeTypeDaylight + | TimeTypeUniversal + | AnotherTimeType Int + deriving (Show, Eq) + +instance Enum TimeType where + fromEnum TimeTypeStandard = 0 + fromEnum TimeTypeDaylight = 1 + fromEnum TimeTypeUniversal = 2 + fromEnum (AnotherTimeType k) = k + + toEnum 0 = TimeTypeStandard + toEnum 1 = TimeTypeDaylight + toEnum 2 = TimeTypeUniversal + toEnum k = AnotherTimeType k + +-- struct TimeVal +newtype TimeVal = TimeVal (ForeignPtr TimeVal) +noTimeVal :: Maybe TimeVal +noTimeVal = Nothing + +timeValReadTvSec :: TimeVal -> IO Int64 +timeValReadTvSec s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Int64 + return val + +timeValReadTvUsec :: TimeVal -> IO Int64 +timeValReadTvUsec s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO Int64 + return val + +-- method TimeVal::add +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "microseconds", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "microseconds", 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_time_val_add" g_time_val_add :: + Ptr TimeVal -> -- _obj : TInterface "GLib" "TimeVal" + Int64 -> -- microseconds : TBasicType TInt64 + IO () + + +timeValAdd :: + (MonadIO m) => + TimeVal -> -- _obj + Int64 -> -- microseconds + m () +timeValAdd _obj microseconds = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_time_val_add _obj' microseconds + touchManagedPtr _obj + return () + +-- method TimeVal::to_iso8601 +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_time_val_to_iso8601" g_time_val_to_iso8601 :: + Ptr TimeVal -> -- _obj : TInterface "GLib" "TimeVal" + IO CString + + +timeValToIso8601 :: + (MonadIO m) => + TimeVal -> -- _obj + m T.Text +timeValToIso8601 _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_time_val_to_iso8601 _obj' + checkUnexpectedReturnNULL "g_time_val_to_iso8601" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- struct TimeZone +newtype TimeZone = TimeZone (ForeignPtr TimeZone) +noTimeZone :: Maybe TimeZone +noTimeZone = Nothing + +foreign import ccall "g_time_zone_get_type" c_g_time_zone_get_type :: + IO GType + +instance BoxedObject TimeZone where + boxedType _ = c_g_time_zone_get_type + +-- method TimeZone::new +-- method type : Constructor +-- Args : [Arg {argName = "identifier", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "identifier", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "TimeZone" +-- throws : False +-- Skip return : False + +foreign import ccall "g_time_zone_new" g_time_zone_new :: + CString -> -- identifier : TBasicType TUTF8 + IO (Ptr TimeZone) + + +timeZoneNew :: + (MonadIO m) => + Maybe (T.Text) -> -- identifier + m TimeZone +timeZoneNew identifier = liftIO $ do + maybeIdentifier <- case identifier of + Nothing -> return nullPtr + Just jIdentifier -> do + jIdentifier' <- textToCString jIdentifier + return jIdentifier' + result <- g_time_zone_new maybeIdentifier + checkUnexpectedReturnNULL "g_time_zone_new" result + result' <- (wrapBoxed TimeZone) result + freeMem maybeIdentifier + return result' + +-- method TimeZone::new_local +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "GLib" "TimeZone" +-- throws : False +-- Skip return : False + +foreign import ccall "g_time_zone_new_local" g_time_zone_new_local :: + IO (Ptr TimeZone) + + +timeZoneNewLocal :: + (MonadIO m) => + m TimeZone +timeZoneNewLocal = liftIO $ do + result <- g_time_zone_new_local + checkUnexpectedReturnNULL "g_time_zone_new_local" result + result' <- (wrapBoxed TimeZone) result + return result' + +-- method TimeZone::new_utc +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "GLib" "TimeZone" +-- throws : False +-- Skip return : False + +foreign import ccall "g_time_zone_new_utc" g_time_zone_new_utc :: + IO (Ptr TimeZone) + + +timeZoneNewUtc :: + (MonadIO m) => + m TimeZone +timeZoneNewUtc = liftIO $ do + result <- g_time_zone_new_utc + checkUnexpectedReturnNULL "g_time_zone_new_utc" result + result' <- (wrapBoxed TimeZone) result + return result' + +-- method TimeZone::adjust_time +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "TimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "TimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_time_zone_adjust_time" g_time_zone_adjust_time :: + Ptr TimeZone -> -- _obj : TInterface "GLib" "TimeZone" + CUInt -> -- type : TInterface "GLib" "TimeType" + Int64 -> -- time_ : TBasicType TInt64 + IO Int32 + + +timeZoneAdjustTime :: + (MonadIO m) => + TimeZone -> -- _obj + TimeType -> -- type + Int64 -> -- time_ + m Int32 +timeZoneAdjustTime _obj type_ time_ = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let type_' = (fromIntegral . fromEnum) type_ + result <- g_time_zone_adjust_time _obj' type_' time_ + touchManagedPtr _obj + return result + +-- method TimeZone::find_interval +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "TimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "TimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_time_zone_find_interval" g_time_zone_find_interval :: + Ptr TimeZone -> -- _obj : TInterface "GLib" "TimeZone" + CUInt -> -- type : TInterface "GLib" "TimeType" + Int64 -> -- time_ : TBasicType TInt64 + IO Int32 + + +timeZoneFindInterval :: + (MonadIO m) => + TimeZone -> -- _obj + TimeType -> -- type + Int64 -> -- time_ + m Int32 +timeZoneFindInterval _obj type_ time_ = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let type_' = (fromIntegral . fromEnum) type_ + result <- g_time_zone_find_interval _obj' type_' time_ + touchManagedPtr _obj + return result + +-- method TimeZone::get_abbreviation +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_time_zone_get_abbreviation" g_time_zone_get_abbreviation :: + Ptr TimeZone -> -- _obj : TInterface "GLib" "TimeZone" + Int32 -> -- interval : TBasicType TInt32 + IO CString + + +timeZoneGetAbbreviation :: + (MonadIO m) => + TimeZone -> -- _obj + Int32 -> -- interval + m T.Text +timeZoneGetAbbreviation _obj interval = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_time_zone_get_abbreviation _obj' interval + checkUnexpectedReturnNULL "g_time_zone_get_abbreviation" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method TimeZone::get_offset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_time_zone_get_offset" g_time_zone_get_offset :: + Ptr TimeZone -> -- _obj : TInterface "GLib" "TimeZone" + Int32 -> -- interval : TBasicType TInt32 + IO Int32 + + +timeZoneGetOffset :: + (MonadIO m) => + TimeZone -> -- _obj + Int32 -> -- interval + m Int32 +timeZoneGetOffset _obj interval = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_time_zone_get_offset _obj' interval + touchManagedPtr _obj + return result + +-- method TimeZone::is_dst +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_time_zone_is_dst" g_time_zone_is_dst :: + Ptr TimeZone -> -- _obj : TInterface "GLib" "TimeZone" + Int32 -> -- interval : TBasicType TInt32 + IO CInt + + +timeZoneIsDst :: + (MonadIO m) => + TimeZone -> -- _obj + Int32 -> -- interval + m Bool +timeZoneIsDst _obj interval = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_time_zone_is_dst _obj' interval + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method TimeZone::ref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "TimeZone" +-- throws : False +-- Skip return : False + +foreign import ccall "g_time_zone_ref" g_time_zone_ref :: + Ptr TimeZone -> -- _obj : TInterface "GLib" "TimeZone" + IO (Ptr TimeZone) + + +timeZoneRef :: + (MonadIO m) => + TimeZone -> -- _obj + m TimeZone +timeZoneRef _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_time_zone_ref _obj' + checkUnexpectedReturnNULL "g_time_zone_ref" result + result' <- (wrapBoxed TimeZone) result + touchManagedPtr _obj + return result' + +-- method TimeZone::unref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_time_zone_unref" g_time_zone_unref :: + Ptr TimeZone -> -- _obj : TInterface "GLib" "TimeZone" + IO () + + +timeZoneUnref :: + (MonadIO m) => + TimeZone -> -- _obj + m () +timeZoneUnref _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_time_zone_unref _obj' + touchManagedPtr _obj + return () + +-- struct Timer +newtype Timer = Timer (ForeignPtr Timer) +noTimer :: Maybe Timer +noTimer = Nothing + +-- method Timer::continue +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_timer_continue" g_timer_continue :: + Ptr Timer -> -- _obj : TInterface "GLib" "Timer" + IO () + + +timerContinue :: + (MonadIO m) => + Timer -> -- _obj + m () +timerContinue _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_timer_continue _obj' + touchManagedPtr _obj + return () + +-- method Timer::destroy +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_timer_destroy" g_timer_destroy :: + Ptr Timer -> -- _obj : TInterface "GLib" "Timer" + IO () + + +timerDestroy :: + (MonadIO m) => + Timer -> -- _obj + m () +timerDestroy _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_timer_destroy _obj' + touchManagedPtr _obj + return () + +-- method Timer::elapsed +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "microseconds", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "microseconds", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "g_timer_elapsed" g_timer_elapsed :: + Ptr Timer -> -- _obj : TInterface "GLib" "Timer" + Word64 -> -- microseconds : TBasicType TUInt64 + IO CDouble + + +timerElapsed :: + (MonadIO m) => + Timer -> -- _obj + Word64 -> -- microseconds + m Double +timerElapsed _obj microseconds = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_timer_elapsed _obj' microseconds + let result' = realToFrac result + touchManagedPtr _obj + return result' + +-- method Timer::reset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_timer_reset" g_timer_reset :: + Ptr Timer -> -- _obj : TInterface "GLib" "Timer" + IO () + + +timerReset :: + (MonadIO m) => + Timer -> -- _obj + m () +timerReset _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_timer_reset _obj' + touchManagedPtr _obj + return () + +-- method Timer::start +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_timer_start" g_timer_start :: + Ptr Timer -> -- _obj : TInterface "GLib" "Timer" + IO () + + +timerStart :: + (MonadIO m) => + Timer -> -- _obj + m () +timerStart _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_timer_start _obj' + touchManagedPtr _obj + return () + +-- method Timer::stop +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_timer_stop" g_timer_stop :: + Ptr Timer -> -- _obj : TInterface "GLib" "Timer" + IO () + + +timerStop :: + (MonadIO m) => + Timer -> -- _obj + m () +timerStop _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_timer_stop _obj' + touchManagedPtr _obj + return () + +-- Enum TokenType + +data TokenType = + TokenTypeEof + | TokenTypeLeftParen + | TokenTypeRightParen + | TokenTypeLeftCurly + | TokenTypeRightCurly + | TokenTypeLeftBrace + | TokenTypeRightBrace + | TokenTypeEqualSign + | TokenTypeComma + | TokenTypeNone + | TokenTypeError + | TokenTypeChar + | TokenTypeBinary + | TokenTypeOctal + | TokenTypeInt + | TokenTypeHex + | TokenTypeFloat + | TokenTypeString + | TokenTypeSymbol + | TokenTypeIdentifier + | TokenTypeIdentifierNull + | TokenTypeCommentSingle + | TokenTypeCommentMulti + | AnotherTokenType Int + deriving (Show, Eq) + +instance Enum TokenType where + fromEnum TokenTypeEof = 0 + fromEnum TokenTypeLeftParen = 40 + fromEnum TokenTypeRightParen = 41 + fromEnum TokenTypeLeftCurly = 123 + fromEnum TokenTypeRightCurly = 125 + fromEnum TokenTypeLeftBrace = 91 + fromEnum TokenTypeRightBrace = 93 + fromEnum TokenTypeEqualSign = 61 + fromEnum TokenTypeComma = 44 + fromEnum TokenTypeNone = 256 + fromEnum TokenTypeError = 257 + fromEnum TokenTypeChar = 258 + fromEnum TokenTypeBinary = 259 + fromEnum TokenTypeOctal = 260 + fromEnum TokenTypeInt = 261 + fromEnum TokenTypeHex = 262 + fromEnum TokenTypeFloat = 263 + fromEnum TokenTypeString = 264 + fromEnum TokenTypeSymbol = 265 + fromEnum TokenTypeIdentifier = 266 + fromEnum TokenTypeIdentifierNull = 267 + fromEnum TokenTypeCommentSingle = 268 + fromEnum TokenTypeCommentMulti = 269 + fromEnum (AnotherTokenType k) = k + + toEnum 0 = TokenTypeEof + toEnum 40 = TokenTypeLeftParen + toEnum 41 = TokenTypeRightParen + toEnum 44 = TokenTypeComma + toEnum 61 = TokenTypeEqualSign + toEnum 91 = TokenTypeLeftBrace + toEnum 93 = TokenTypeRightBrace + toEnum 123 = TokenTypeLeftCurly + toEnum 125 = TokenTypeRightCurly + toEnum 256 = TokenTypeNone + toEnum 257 = TokenTypeError + toEnum 258 = TokenTypeChar + toEnum 259 = TokenTypeBinary + toEnum 260 = TokenTypeOctal + toEnum 261 = TokenTypeInt + toEnum 262 = TokenTypeHex + toEnum 263 = TokenTypeFloat + toEnum 264 = TokenTypeString + toEnum 265 = TokenTypeSymbol + toEnum 266 = TokenTypeIdentifier + toEnum 267 = TokenTypeIdentifierNull + toEnum 268 = TokenTypeCommentSingle + toEnum 269 = TokenTypeCommentMulti + toEnum k = AnotherTokenType k + +-- union TokenValue +newtype TokenValue = TokenValue (ForeignPtr TokenValue) +noTokenValue :: Maybe TokenValue +noTokenValue = Nothing + +tokenValueReadVSymbol :: TokenValue -> IO (Ptr ()) +tokenValueReadVSymbol s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO (Ptr ()) + return val + +tokenValueReadVIdentifier :: TokenValue -> IO T.Text +tokenValueReadVIdentifier s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO CString + val' <- cstringToText val + return val' + +tokenValueReadVBinary :: TokenValue -> IO Word64 +tokenValueReadVBinary s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Word64 + return val + +tokenValueReadVOctal :: TokenValue -> IO Word64 +tokenValueReadVOctal s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Word64 + return val + +tokenValueReadVInt :: TokenValue -> IO Word64 +tokenValueReadVInt s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Word64 + return val + +tokenValueReadVInt64 :: TokenValue -> IO Word64 +tokenValueReadVInt64 s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Word64 + return val + +tokenValueReadVFloat :: TokenValue -> IO Double +tokenValueReadVFloat s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO CDouble + let val' = realToFrac val + return val' + +tokenValueReadVHex :: TokenValue -> IO Word64 +tokenValueReadVHex s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Word64 + return val + +tokenValueReadVString :: TokenValue -> IO T.Text +tokenValueReadVString s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO CString + val' <- cstringToText val + return val' + +tokenValueReadVComment :: TokenValue -> IO T.Text +tokenValueReadVComment s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO CString + val' <- cstringToText val + return val' + +tokenValueReadVChar :: TokenValue -> IO Word8 +tokenValueReadVChar s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Word8 + return val + +tokenValueReadVError :: TokenValue -> IO Word32 +tokenValueReadVError s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Word32 + return val + +-- callback TranslateFunc +translateFuncClosure :: TranslateFunc -> IO Closure +translateFuncClosure cb = newCClosure =<< mkTranslateFunc wrapped + where wrapped = translateFuncWrapper Nothing cb + +type TranslateFuncC = + CString -> + Ptr () -> + IO CString + +foreign import ccall "wrapper" + mkTranslateFunc :: TranslateFuncC -> IO (FunPtr TranslateFuncC) + +type TranslateFunc = + T.Text -> + Ptr () -> + IO T.Text + +noTranslateFunc :: Maybe TranslateFunc +noTranslateFunc = Nothing + +translateFuncWrapper :: + Maybe (Ptr (FunPtr (TranslateFuncC))) -> + TranslateFunc -> + CString -> + Ptr () -> + IO CString +translateFuncWrapper funptrptr _cb str data_ = do + str' <- cstringToText str + result <- _cb str' data_ + maybeReleaseFunPtr funptrptr + result' <- textToCString result + return result' + +-- struct TrashStack +newtype TrashStack = TrashStack (ForeignPtr TrashStack) +noTrashStack :: Maybe TrashStack +noTrashStack = Nothing + +trashStackReadNext :: TrashStack -> IO TrashStack +trashStackReadNext s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO (Ptr TrashStack) + val' <- (newPtr 8 TrashStack) val + return val' + +-- Flags TraverseFlags + +data TraverseFlags = + TraverseFlagsLeaves + | TraverseFlagsNonLeaves + | TraverseFlagsAll + | TraverseFlagsMask + | TraverseFlagsLeafs + | TraverseFlagsNonLeafs + | AnotherTraverseFlags Int + deriving (Show, Eq) + +instance Enum TraverseFlags where + fromEnum TraverseFlagsLeaves = 1 + fromEnum TraverseFlagsNonLeaves = 2 + fromEnum TraverseFlagsAll = 3 + fromEnum TraverseFlagsMask = 3 + fromEnum TraverseFlagsLeafs = 1 + fromEnum TraverseFlagsNonLeafs = 2 + fromEnum (AnotherTraverseFlags k) = k + + toEnum 1 = TraverseFlagsLeaves + toEnum 2 = TraverseFlagsNonLeaves + toEnum 3 = TraverseFlagsAll + toEnum k = AnotherTraverseFlags k + +instance IsGFlag TraverseFlags + +-- callback TraverseFunc +traverseFuncClosure :: TraverseFunc -> IO Closure +traverseFuncClosure cb = newCClosure =<< mkTraverseFunc wrapped + where wrapped = traverseFuncWrapper Nothing cb + +type TraverseFuncC = + Ptr () -> + Ptr () -> + Ptr () -> + IO CInt + +foreign import ccall "wrapper" + mkTraverseFunc :: TraverseFuncC -> IO (FunPtr TraverseFuncC) + +type TraverseFunc = + Ptr () -> + Ptr () -> + Ptr () -> + IO Bool + +noTraverseFunc :: Maybe TraverseFunc +noTraverseFunc = Nothing + +traverseFuncWrapper :: + Maybe (Ptr (FunPtr (TraverseFuncC))) -> + TraverseFunc -> + Ptr () -> + Ptr () -> + Ptr () -> + IO CInt +traverseFuncWrapper funptrptr _cb key value data_ = do + result <- _cb key value data_ + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- Enum TraverseType + +data TraverseType = + TraverseTypeInOrder + | TraverseTypePreOrder + | TraverseTypePostOrder + | TraverseTypeLevelOrder + | AnotherTraverseType Int + deriving (Show, Eq) + +instance Enum TraverseType where + fromEnum TraverseTypeInOrder = 0 + fromEnum TraverseTypePreOrder = 1 + fromEnum TraverseTypePostOrder = 2 + fromEnum TraverseTypeLevelOrder = 3 + fromEnum (AnotherTraverseType k) = k + + toEnum 0 = TraverseTypeInOrder + toEnum 1 = TraverseTypePreOrder + toEnum 2 = TraverseTypePostOrder + toEnum 3 = TraverseTypeLevelOrder + toEnum k = AnotherTraverseType k + +-- struct Tree +newtype Tree = Tree (ForeignPtr Tree) +noTree :: Maybe Tree +noTree = Nothing + +-- method Tree::destroy +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_tree_destroy" g_tree_destroy :: + Ptr Tree -> -- _obj : TInterface "GLib" "Tree" + IO () + + +treeDestroy :: + (MonadIO m) => + Tree -> -- _obj + m () +treeDestroy _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_tree_destroy _obj' + touchManagedPtr _obj + return () + +-- method Tree::height +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_tree_height" g_tree_height :: + Ptr Tree -> -- _obj : TInterface "GLib" "Tree" + IO Int32 + + +treeHeight :: + (MonadIO m) => + Tree -> -- _obj + m Int32 +treeHeight _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_tree_height _obj' + touchManagedPtr _obj + return result + +-- method Tree::insert +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_tree_insert" g_tree_insert :: + Ptr Tree -> -- _obj : TInterface "GLib" "Tree" + Ptr () -> -- key : TBasicType TVoid + Ptr () -> -- value : TBasicType TVoid + IO () + + +treeInsert :: + (MonadIO m) => + Tree -> -- _obj + Ptr () -> -- key + Ptr () -> -- value + m () +treeInsert _obj key value = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_tree_insert _obj' key value + touchManagedPtr _obj + return () + +-- method Tree::lookup_extended +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orig_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orig_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_tree_lookup_extended" g_tree_lookup_extended :: + Ptr Tree -> -- _obj : TInterface "GLib" "Tree" + Ptr () -> -- lookup_key : TBasicType TVoid + Ptr () -> -- orig_key : TBasicType TVoid + Ptr () -> -- value : TBasicType TVoid + IO CInt + + +treeLookupExtended :: + (MonadIO m) => + Tree -> -- _obj + Ptr () -> -- lookup_key + Ptr () -> -- orig_key + Ptr () -> -- value + m Bool +treeLookupExtended _obj lookup_key orig_key value = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_tree_lookup_extended _obj' lookup_key orig_key value + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Tree::nnodes +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_tree_nnodes" g_tree_nnodes :: + Ptr Tree -> -- _obj : TInterface "GLib" "Tree" + IO Int32 + + +treeNnodes :: + (MonadIO m) => + Tree -> -- _obj + m Int32 +treeNnodes _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_tree_nnodes _obj' + touchManagedPtr _obj + return result + +-- method Tree::remove +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_tree_remove" g_tree_remove :: + Ptr Tree -> -- _obj : TInterface "GLib" "Tree" + Ptr () -> -- key : TBasicType TVoid + IO CInt + + +treeRemove :: + (MonadIO m) => + Tree -> -- _obj + Ptr () -> -- key + m Bool +treeRemove _obj key = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_tree_remove _obj' key + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Tree::replace +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_tree_replace" g_tree_replace :: + Ptr Tree -> -- _obj : TInterface "GLib" "Tree" + Ptr () -> -- key : TBasicType TVoid + Ptr () -> -- value : TBasicType TVoid + IO () + + +treeReplace :: + (MonadIO m) => + Tree -> -- _obj + Ptr () -> -- key + Ptr () -> -- value + m () +treeReplace _obj key value = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_tree_replace _obj' key value + touchManagedPtr _obj + return () + +-- method Tree::steal +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_tree_steal" g_tree_steal :: + Ptr Tree -> -- _obj : TInterface "GLib" "Tree" + Ptr () -> -- key : TBasicType TVoid + IO CInt + + +treeSteal :: + (MonadIO m) => + Tree -> -- _obj + Ptr () -> -- key + m Bool +treeSteal _obj key = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_tree_steal _obj' key + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Tree::unref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_tree_unref" g_tree_unref :: + Ptr Tree -> -- _obj : TInterface "GLib" "Tree" + IO () + + +treeUnref :: + (MonadIO m) => + Tree -> -- _obj + m () +treeUnref _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_tree_unref _obj' + touchManagedPtr _obj + return () + +-- Enum UnicodeBreakType + +data UnicodeBreakType = + UnicodeBreakTypeMandatory + | UnicodeBreakTypeCarriageReturn + | UnicodeBreakTypeLineFeed + | UnicodeBreakTypeCombiningMark + | UnicodeBreakTypeSurrogate + | UnicodeBreakTypeZeroWidthSpace + | UnicodeBreakTypeInseparable + | UnicodeBreakTypeNonBreakingGlue + | UnicodeBreakTypeContingent + | UnicodeBreakTypeSpace + | UnicodeBreakTypeAfter + | UnicodeBreakTypeBefore + | UnicodeBreakTypeBeforeAndAfter + | UnicodeBreakTypeHyphen + | UnicodeBreakTypeNonStarter + | UnicodeBreakTypeOpenPunctuation + | UnicodeBreakTypeClosePunctuation + | UnicodeBreakTypeQuotation + | UnicodeBreakTypeExclamation + | UnicodeBreakTypeIdeographic + | UnicodeBreakTypeNumeric + | UnicodeBreakTypeInfixSeparator + | UnicodeBreakTypeSymbol + | UnicodeBreakTypeAlphabetic + | UnicodeBreakTypePrefix + | UnicodeBreakTypePostfix + | UnicodeBreakTypeComplexContext + | UnicodeBreakTypeAmbiguous + | UnicodeBreakTypeUnknown + | UnicodeBreakTypeNextLine + | UnicodeBreakTypeWordJoiner + | UnicodeBreakTypeHangulLJamo + | UnicodeBreakTypeHangulVJamo + | UnicodeBreakTypeHangulTJamo + | UnicodeBreakTypeHangulLvSyllable + | UnicodeBreakTypeHangulLvtSyllable + | UnicodeBreakTypeCloseParanthesis + | UnicodeBreakTypeConditionalJapaneseStarter + | UnicodeBreakTypeHebrewLetter + | UnicodeBreakTypeRegionalIndicator + | AnotherUnicodeBreakType Int + deriving (Show, Eq) + +instance Enum UnicodeBreakType where + fromEnum UnicodeBreakTypeMandatory = 0 + fromEnum UnicodeBreakTypeCarriageReturn = 1 + fromEnum UnicodeBreakTypeLineFeed = 2 + fromEnum UnicodeBreakTypeCombiningMark = 3 + fromEnum UnicodeBreakTypeSurrogate = 4 + fromEnum UnicodeBreakTypeZeroWidthSpace = 5 + fromEnum UnicodeBreakTypeInseparable = 6 + fromEnum UnicodeBreakTypeNonBreakingGlue = 7 + fromEnum UnicodeBreakTypeContingent = 8 + fromEnum UnicodeBreakTypeSpace = 9 + fromEnum UnicodeBreakTypeAfter = 10 + fromEnum UnicodeBreakTypeBefore = 11 + fromEnum UnicodeBreakTypeBeforeAndAfter = 12 + fromEnum UnicodeBreakTypeHyphen = 13 + fromEnum UnicodeBreakTypeNonStarter = 14 + fromEnum UnicodeBreakTypeOpenPunctuation = 15 + fromEnum UnicodeBreakTypeClosePunctuation = 16 + fromEnum UnicodeBreakTypeQuotation = 17 + fromEnum UnicodeBreakTypeExclamation = 18 + fromEnum UnicodeBreakTypeIdeographic = 19 + fromEnum UnicodeBreakTypeNumeric = 20 + fromEnum UnicodeBreakTypeInfixSeparator = 21 + fromEnum UnicodeBreakTypeSymbol = 22 + fromEnum UnicodeBreakTypeAlphabetic = 23 + fromEnum UnicodeBreakTypePrefix = 24 + fromEnum UnicodeBreakTypePostfix = 25 + fromEnum UnicodeBreakTypeComplexContext = 26 + fromEnum UnicodeBreakTypeAmbiguous = 27 + fromEnum UnicodeBreakTypeUnknown = 28 + fromEnum UnicodeBreakTypeNextLine = 29 + fromEnum UnicodeBreakTypeWordJoiner = 30 + fromEnum UnicodeBreakTypeHangulLJamo = 31 + fromEnum UnicodeBreakTypeHangulVJamo = 32 + fromEnum UnicodeBreakTypeHangulTJamo = 33 + fromEnum UnicodeBreakTypeHangulLvSyllable = 34 + fromEnum UnicodeBreakTypeHangulLvtSyllable = 35 + fromEnum UnicodeBreakTypeCloseParanthesis = 36 + fromEnum UnicodeBreakTypeConditionalJapaneseStarter = 37 + fromEnum UnicodeBreakTypeHebrewLetter = 38 + fromEnum UnicodeBreakTypeRegionalIndicator = 39 + fromEnum (AnotherUnicodeBreakType k) = k + + toEnum 0 = UnicodeBreakTypeMandatory + toEnum 1 = UnicodeBreakTypeCarriageReturn + toEnum 2 = UnicodeBreakTypeLineFeed + toEnum 3 = UnicodeBreakTypeCombiningMark + toEnum 4 = UnicodeBreakTypeSurrogate + toEnum 5 = UnicodeBreakTypeZeroWidthSpace + toEnum 6 = UnicodeBreakTypeInseparable + toEnum 7 = UnicodeBreakTypeNonBreakingGlue + toEnum 8 = UnicodeBreakTypeContingent + toEnum 9 = UnicodeBreakTypeSpace + toEnum 10 = UnicodeBreakTypeAfter + toEnum 11 = UnicodeBreakTypeBefore + toEnum 12 = UnicodeBreakTypeBeforeAndAfter + toEnum 13 = UnicodeBreakTypeHyphen + toEnum 14 = UnicodeBreakTypeNonStarter + toEnum 15 = UnicodeBreakTypeOpenPunctuation + toEnum 16 = UnicodeBreakTypeClosePunctuation + toEnum 17 = UnicodeBreakTypeQuotation + toEnum 18 = UnicodeBreakTypeExclamation + toEnum 19 = UnicodeBreakTypeIdeographic + toEnum 20 = UnicodeBreakTypeNumeric + toEnum 21 = UnicodeBreakTypeInfixSeparator + toEnum 22 = UnicodeBreakTypeSymbol + toEnum 23 = UnicodeBreakTypeAlphabetic + toEnum 24 = UnicodeBreakTypePrefix + toEnum 25 = UnicodeBreakTypePostfix + toEnum 26 = UnicodeBreakTypeComplexContext + toEnum 27 = UnicodeBreakTypeAmbiguous + toEnum 28 = UnicodeBreakTypeUnknown + toEnum 29 = UnicodeBreakTypeNextLine + toEnum 30 = UnicodeBreakTypeWordJoiner + toEnum 31 = UnicodeBreakTypeHangulLJamo + toEnum 32 = UnicodeBreakTypeHangulVJamo + toEnum 33 = UnicodeBreakTypeHangulTJamo + toEnum 34 = UnicodeBreakTypeHangulLvSyllable + toEnum 35 = UnicodeBreakTypeHangulLvtSyllable + toEnum 36 = UnicodeBreakTypeCloseParanthesis + toEnum 37 = UnicodeBreakTypeConditionalJapaneseStarter + toEnum 38 = UnicodeBreakTypeHebrewLetter + toEnum 39 = UnicodeBreakTypeRegionalIndicator + toEnum k = AnotherUnicodeBreakType k + +-- Enum UnicodeScript + +data UnicodeScript = + UnicodeScriptInvalidCode + | UnicodeScriptCommon + | UnicodeScriptInherited + | UnicodeScriptArabic + | UnicodeScriptArmenian + | UnicodeScriptBengali + | UnicodeScriptBopomofo + | UnicodeScriptCherokee + | UnicodeScriptCoptic + | UnicodeScriptCyrillic + | UnicodeScriptDeseret + | UnicodeScriptDevanagari + | UnicodeScriptEthiopic + | UnicodeScriptGeorgian + | UnicodeScriptGothic + | UnicodeScriptGreek + | UnicodeScriptGujarati + | UnicodeScriptGurmukhi + | UnicodeScriptHan + | UnicodeScriptHangul + | UnicodeScriptHebrew + | UnicodeScriptHiragana + | UnicodeScriptKannada + | UnicodeScriptKatakana + | UnicodeScriptKhmer + | UnicodeScriptLao + | UnicodeScriptLatin + | UnicodeScriptMalayalam + | UnicodeScriptMongolian + | UnicodeScriptMyanmar + | UnicodeScriptOgham + | UnicodeScriptOldItalic + | UnicodeScriptOriya + | UnicodeScriptRunic + | UnicodeScriptSinhala + | UnicodeScriptSyriac + | UnicodeScriptTamil + | UnicodeScriptTelugu + | UnicodeScriptThaana + | UnicodeScriptThai + | UnicodeScriptTibetan + | UnicodeScriptCanadianAboriginal + | UnicodeScriptYi + | UnicodeScriptTagalog + | UnicodeScriptHanunoo + | UnicodeScriptBuhid + | UnicodeScriptTagbanwa + | UnicodeScriptBraille + | UnicodeScriptCypriot + | UnicodeScriptLimbu + | UnicodeScriptOsmanya + | UnicodeScriptShavian + | UnicodeScriptLinearB + | UnicodeScriptTaiLe + | UnicodeScriptUgaritic + | UnicodeScriptNewTaiLue + | UnicodeScriptBuginese + | UnicodeScriptGlagolitic + | UnicodeScriptTifinagh + | UnicodeScriptSylotiNagri + | UnicodeScriptOldPersian + | UnicodeScriptKharoshthi + | UnicodeScriptUnknown + | UnicodeScriptBalinese + | UnicodeScriptCuneiform + | UnicodeScriptPhoenician + | UnicodeScriptPhagsPa + | UnicodeScriptNko + | UnicodeScriptKayahLi + | UnicodeScriptLepcha + | UnicodeScriptRejang + | UnicodeScriptSundanese + | UnicodeScriptSaurashtra + | UnicodeScriptCham + | UnicodeScriptOlChiki + | UnicodeScriptVai + | UnicodeScriptCarian + | UnicodeScriptLycian + | UnicodeScriptLydian + | UnicodeScriptAvestan + | UnicodeScriptBamum + | UnicodeScriptEgyptianHieroglyphs + | UnicodeScriptImperialAramaic + | UnicodeScriptInscriptionalPahlavi + | UnicodeScriptInscriptionalParthian + | UnicodeScriptJavanese + | UnicodeScriptKaithi + | UnicodeScriptLisu + | UnicodeScriptMeeteiMayek + | UnicodeScriptOldSouthArabian + | UnicodeScriptOldTurkic + | UnicodeScriptSamaritan + | UnicodeScriptTaiTham + | UnicodeScriptTaiViet + | UnicodeScriptBatak + | UnicodeScriptBrahmi + | UnicodeScriptMandaic + | UnicodeScriptChakma + | UnicodeScriptMeroiticCursive + | UnicodeScriptMeroiticHieroglyphs + | UnicodeScriptMiao + | UnicodeScriptSharada + | UnicodeScriptSoraSompeng + | UnicodeScriptTakri + | UnicodeScriptBassaVah + | UnicodeScriptCaucasianAlbanian + | UnicodeScriptDuployan + | UnicodeScriptElbasan + | UnicodeScriptGrantha + | UnicodeScriptKhojki + | UnicodeScriptKhudawadi + | UnicodeScriptLinearA + | UnicodeScriptMahajani + | UnicodeScriptManichaean + | UnicodeScriptMendeKikakui + | UnicodeScriptModi + | UnicodeScriptMro + | UnicodeScriptNabataean + | UnicodeScriptOldNorthArabian + | UnicodeScriptOldPermic + | UnicodeScriptPahawhHmong + | UnicodeScriptPalmyrene + | UnicodeScriptPauCinHau + | UnicodeScriptPsalterPahlavi + | UnicodeScriptSiddham + | UnicodeScriptTirhuta + | UnicodeScriptWarangCiti + | AnotherUnicodeScript Int + deriving (Show, Eq) + +instance Enum UnicodeScript where + fromEnum UnicodeScriptInvalidCode = -1 + fromEnum UnicodeScriptCommon = 0 + fromEnum UnicodeScriptInherited = 1 + fromEnum UnicodeScriptArabic = 2 + fromEnum UnicodeScriptArmenian = 3 + fromEnum UnicodeScriptBengali = 4 + fromEnum UnicodeScriptBopomofo = 5 + fromEnum UnicodeScriptCherokee = 6 + fromEnum UnicodeScriptCoptic = 7 + fromEnum UnicodeScriptCyrillic = 8 + fromEnum UnicodeScriptDeseret = 9 + fromEnum UnicodeScriptDevanagari = 10 + fromEnum UnicodeScriptEthiopic = 11 + fromEnum UnicodeScriptGeorgian = 12 + fromEnum UnicodeScriptGothic = 13 + fromEnum UnicodeScriptGreek = 14 + fromEnum UnicodeScriptGujarati = 15 + fromEnum UnicodeScriptGurmukhi = 16 + fromEnum UnicodeScriptHan = 17 + fromEnum UnicodeScriptHangul = 18 + fromEnum UnicodeScriptHebrew = 19 + fromEnum UnicodeScriptHiragana = 20 + fromEnum UnicodeScriptKannada = 21 + fromEnum UnicodeScriptKatakana = 22 + fromEnum UnicodeScriptKhmer = 23 + fromEnum UnicodeScriptLao = 24 + fromEnum UnicodeScriptLatin = 25 + fromEnum UnicodeScriptMalayalam = 26 + fromEnum UnicodeScriptMongolian = 27 + fromEnum UnicodeScriptMyanmar = 28 + fromEnum UnicodeScriptOgham = 29 + fromEnum UnicodeScriptOldItalic = 30 + fromEnum UnicodeScriptOriya = 31 + fromEnum UnicodeScriptRunic = 32 + fromEnum UnicodeScriptSinhala = 33 + fromEnum UnicodeScriptSyriac = 34 + fromEnum UnicodeScriptTamil = 35 + fromEnum UnicodeScriptTelugu = 36 + fromEnum UnicodeScriptThaana = 37 + fromEnum UnicodeScriptThai = 38 + fromEnum UnicodeScriptTibetan = 39 + fromEnum UnicodeScriptCanadianAboriginal = 40 + fromEnum UnicodeScriptYi = 41 + fromEnum UnicodeScriptTagalog = 42 + fromEnum UnicodeScriptHanunoo = 43 + fromEnum UnicodeScriptBuhid = 44 + fromEnum UnicodeScriptTagbanwa = 45 + fromEnum UnicodeScriptBraille = 46 + fromEnum UnicodeScriptCypriot = 47 + fromEnum UnicodeScriptLimbu = 48 + fromEnum UnicodeScriptOsmanya = 49 + fromEnum UnicodeScriptShavian = 50 + fromEnum UnicodeScriptLinearB = 51 + fromEnum UnicodeScriptTaiLe = 52 + fromEnum UnicodeScriptUgaritic = 53 + fromEnum UnicodeScriptNewTaiLue = 54 + fromEnum UnicodeScriptBuginese = 55 + fromEnum UnicodeScriptGlagolitic = 56 + fromEnum UnicodeScriptTifinagh = 57 + fromEnum UnicodeScriptSylotiNagri = 58 + fromEnum UnicodeScriptOldPersian = 59 + fromEnum UnicodeScriptKharoshthi = 60 + fromEnum UnicodeScriptUnknown = 61 + fromEnum UnicodeScriptBalinese = 62 + fromEnum UnicodeScriptCuneiform = 63 + fromEnum UnicodeScriptPhoenician = 64 + fromEnum UnicodeScriptPhagsPa = 65 + fromEnum UnicodeScriptNko = 66 + fromEnum UnicodeScriptKayahLi = 67 + fromEnum UnicodeScriptLepcha = 68 + fromEnum UnicodeScriptRejang = 69 + fromEnum UnicodeScriptSundanese = 70 + fromEnum UnicodeScriptSaurashtra = 71 + fromEnum UnicodeScriptCham = 72 + fromEnum UnicodeScriptOlChiki = 73 + fromEnum UnicodeScriptVai = 74 + fromEnum UnicodeScriptCarian = 75 + fromEnum UnicodeScriptLycian = 76 + fromEnum UnicodeScriptLydian = 77 + fromEnum UnicodeScriptAvestan = 78 + fromEnum UnicodeScriptBamum = 79 + fromEnum UnicodeScriptEgyptianHieroglyphs = 80 + fromEnum UnicodeScriptImperialAramaic = 81 + fromEnum UnicodeScriptInscriptionalPahlavi = 82 + fromEnum UnicodeScriptInscriptionalParthian = 83 + fromEnum UnicodeScriptJavanese = 84 + fromEnum UnicodeScriptKaithi = 85 + fromEnum UnicodeScriptLisu = 86 + fromEnum UnicodeScriptMeeteiMayek = 87 + fromEnum UnicodeScriptOldSouthArabian = 88 + fromEnum UnicodeScriptOldTurkic = 89 + fromEnum UnicodeScriptSamaritan = 90 + fromEnum UnicodeScriptTaiTham = 91 + fromEnum UnicodeScriptTaiViet = 92 + fromEnum UnicodeScriptBatak = 93 + fromEnum UnicodeScriptBrahmi = 94 + fromEnum UnicodeScriptMandaic = 95 + fromEnum UnicodeScriptChakma = 96 + fromEnum UnicodeScriptMeroiticCursive = 97 + fromEnum UnicodeScriptMeroiticHieroglyphs = 98 + fromEnum UnicodeScriptMiao = 99 + fromEnum UnicodeScriptSharada = 100 + fromEnum UnicodeScriptSoraSompeng = 101 + fromEnum UnicodeScriptTakri = 102 + fromEnum UnicodeScriptBassaVah = 103 + fromEnum UnicodeScriptCaucasianAlbanian = 104 + fromEnum UnicodeScriptDuployan = 105 + fromEnum UnicodeScriptElbasan = 106 + fromEnum UnicodeScriptGrantha = 107 + fromEnum UnicodeScriptKhojki = 108 + fromEnum UnicodeScriptKhudawadi = 109 + fromEnum UnicodeScriptLinearA = 110 + fromEnum UnicodeScriptMahajani = 111 + fromEnum UnicodeScriptManichaean = 112 + fromEnum UnicodeScriptMendeKikakui = 113 + fromEnum UnicodeScriptModi = 114 + fromEnum UnicodeScriptMro = 115 + fromEnum UnicodeScriptNabataean = 116 + fromEnum UnicodeScriptOldNorthArabian = 117 + fromEnum UnicodeScriptOldPermic = 118 + fromEnum UnicodeScriptPahawhHmong = 119 + fromEnum UnicodeScriptPalmyrene = 120 + fromEnum UnicodeScriptPauCinHau = 121 + fromEnum UnicodeScriptPsalterPahlavi = 122 + fromEnum UnicodeScriptSiddham = 123 + fromEnum UnicodeScriptTirhuta = 124 + fromEnum UnicodeScriptWarangCiti = 125 + fromEnum (AnotherUnicodeScript k) = k + + toEnum -1 = UnicodeScriptInvalidCode + toEnum 0 = UnicodeScriptCommon + toEnum 1 = UnicodeScriptInherited + toEnum 2 = UnicodeScriptArabic + toEnum 3 = UnicodeScriptArmenian + toEnum 4 = UnicodeScriptBengali + toEnum 5 = UnicodeScriptBopomofo + toEnum 6 = UnicodeScriptCherokee + toEnum 7 = UnicodeScriptCoptic + toEnum 8 = UnicodeScriptCyrillic + toEnum 9 = UnicodeScriptDeseret + toEnum 10 = UnicodeScriptDevanagari + toEnum 11 = UnicodeScriptEthiopic + toEnum 12 = UnicodeScriptGeorgian + toEnum 13 = UnicodeScriptGothic + toEnum 14 = UnicodeScriptGreek + toEnum 15 = UnicodeScriptGujarati + toEnum 16 = UnicodeScriptGurmukhi + toEnum 17 = UnicodeScriptHan + toEnum 18 = UnicodeScriptHangul + toEnum 19 = UnicodeScriptHebrew + toEnum 20 = UnicodeScriptHiragana + toEnum 21 = UnicodeScriptKannada + toEnum 22 = UnicodeScriptKatakana + toEnum 23 = UnicodeScriptKhmer + toEnum 24 = UnicodeScriptLao + toEnum 25 = UnicodeScriptLatin + toEnum 26 = UnicodeScriptMalayalam + toEnum 27 = UnicodeScriptMongolian + toEnum 28 = UnicodeScriptMyanmar + toEnum 29 = UnicodeScriptOgham + toEnum 30 = UnicodeScriptOldItalic + toEnum 31 = UnicodeScriptOriya + toEnum 32 = UnicodeScriptRunic + toEnum 33 = UnicodeScriptSinhala + toEnum 34 = UnicodeScriptSyriac + toEnum 35 = UnicodeScriptTamil + toEnum 36 = UnicodeScriptTelugu + toEnum 37 = UnicodeScriptThaana + toEnum 38 = UnicodeScriptThai + toEnum 39 = UnicodeScriptTibetan + toEnum 40 = UnicodeScriptCanadianAboriginal + toEnum 41 = UnicodeScriptYi + toEnum 42 = UnicodeScriptTagalog + toEnum 43 = UnicodeScriptHanunoo + toEnum 44 = UnicodeScriptBuhid + toEnum 45 = UnicodeScriptTagbanwa + toEnum 46 = UnicodeScriptBraille + toEnum 47 = UnicodeScriptCypriot + toEnum 48 = UnicodeScriptLimbu + toEnum 49 = UnicodeScriptOsmanya + toEnum 50 = UnicodeScriptShavian + toEnum 51 = UnicodeScriptLinearB + toEnum 52 = UnicodeScriptTaiLe + toEnum 53 = UnicodeScriptUgaritic + toEnum 54 = UnicodeScriptNewTaiLue + toEnum 55 = UnicodeScriptBuginese + toEnum 56 = UnicodeScriptGlagolitic + toEnum 57 = UnicodeScriptTifinagh + toEnum 58 = UnicodeScriptSylotiNagri + toEnum 59 = UnicodeScriptOldPersian + toEnum 60 = UnicodeScriptKharoshthi + toEnum 61 = UnicodeScriptUnknown + toEnum 62 = UnicodeScriptBalinese + toEnum 63 = UnicodeScriptCuneiform + toEnum 64 = UnicodeScriptPhoenician + toEnum 65 = UnicodeScriptPhagsPa + toEnum 66 = UnicodeScriptNko + toEnum 67 = UnicodeScriptKayahLi + toEnum 68 = UnicodeScriptLepcha + toEnum 69 = UnicodeScriptRejang + toEnum 70 = UnicodeScriptSundanese + toEnum 71 = UnicodeScriptSaurashtra + toEnum 72 = UnicodeScriptCham + toEnum 73 = UnicodeScriptOlChiki + toEnum 74 = UnicodeScriptVai + toEnum 75 = UnicodeScriptCarian + toEnum 76 = UnicodeScriptLycian + toEnum 77 = UnicodeScriptLydian + toEnum 78 = UnicodeScriptAvestan + toEnum 79 = UnicodeScriptBamum + toEnum 80 = UnicodeScriptEgyptianHieroglyphs + toEnum 81 = UnicodeScriptImperialAramaic + toEnum 82 = UnicodeScriptInscriptionalPahlavi + toEnum 83 = UnicodeScriptInscriptionalParthian + toEnum 84 = UnicodeScriptJavanese + toEnum 85 = UnicodeScriptKaithi + toEnum 86 = UnicodeScriptLisu + toEnum 87 = UnicodeScriptMeeteiMayek + toEnum 88 = UnicodeScriptOldSouthArabian + toEnum 89 = UnicodeScriptOldTurkic + toEnum 90 = UnicodeScriptSamaritan + toEnum 91 = UnicodeScriptTaiTham + toEnum 92 = UnicodeScriptTaiViet + toEnum 93 = UnicodeScriptBatak + toEnum 94 = UnicodeScriptBrahmi + toEnum 95 = UnicodeScriptMandaic + toEnum 96 = UnicodeScriptChakma + toEnum 97 = UnicodeScriptMeroiticCursive + toEnum 98 = UnicodeScriptMeroiticHieroglyphs + toEnum 99 = UnicodeScriptMiao + toEnum 100 = UnicodeScriptSharada + toEnum 101 = UnicodeScriptSoraSompeng + toEnum 102 = UnicodeScriptTakri + toEnum 103 = UnicodeScriptBassaVah + toEnum 104 = UnicodeScriptCaucasianAlbanian + toEnum 105 = UnicodeScriptDuployan + toEnum 106 = UnicodeScriptElbasan + toEnum 107 = UnicodeScriptGrantha + toEnum 108 = UnicodeScriptKhojki + toEnum 109 = UnicodeScriptKhudawadi + toEnum 110 = UnicodeScriptLinearA + toEnum 111 = UnicodeScriptMahajani + toEnum 112 = UnicodeScriptManichaean + toEnum 113 = UnicodeScriptMendeKikakui + toEnum 114 = UnicodeScriptModi + toEnum 115 = UnicodeScriptMro + toEnum 116 = UnicodeScriptNabataean + toEnum 117 = UnicodeScriptOldNorthArabian + toEnum 118 = UnicodeScriptOldPermic + toEnum 119 = UnicodeScriptPahawhHmong + toEnum 120 = UnicodeScriptPalmyrene + toEnum 121 = UnicodeScriptPauCinHau + toEnum 122 = UnicodeScriptPsalterPahlavi + toEnum 123 = UnicodeScriptSiddham + toEnum 124 = UnicodeScriptTirhuta + toEnum 125 = UnicodeScriptWarangCiti + toEnum k = AnotherUnicodeScript k + +-- Enum UnicodeType + +data UnicodeType = + UnicodeTypeControl + | UnicodeTypeFormat + | UnicodeTypeUnassigned + | UnicodeTypePrivateUse + | UnicodeTypeSurrogate + | UnicodeTypeLowercaseLetter + | UnicodeTypeModifierLetter + | UnicodeTypeOtherLetter + | UnicodeTypeTitlecaseLetter + | UnicodeTypeUppercaseLetter + | UnicodeTypeSpacingMark + | UnicodeTypeEnclosingMark + | UnicodeTypeNonSpacingMark + | UnicodeTypeDecimalNumber + | UnicodeTypeLetterNumber + | UnicodeTypeOtherNumber + | UnicodeTypeConnectPunctuation + | UnicodeTypeDashPunctuation + | UnicodeTypeClosePunctuation + | UnicodeTypeFinalPunctuation + | UnicodeTypeInitialPunctuation + | UnicodeTypeOtherPunctuation + | UnicodeTypeOpenPunctuation + | UnicodeTypeCurrencySymbol + | UnicodeTypeModifierSymbol + | UnicodeTypeMathSymbol + | UnicodeTypeOtherSymbol + | UnicodeTypeLineSeparator + | UnicodeTypeParagraphSeparator + | UnicodeTypeSpaceSeparator + | AnotherUnicodeType Int + deriving (Show, Eq) + +instance Enum UnicodeType where + fromEnum UnicodeTypeControl = 0 + fromEnum UnicodeTypeFormat = 1 + fromEnum UnicodeTypeUnassigned = 2 + fromEnum UnicodeTypePrivateUse = 3 + fromEnum UnicodeTypeSurrogate = 4 + fromEnum UnicodeTypeLowercaseLetter = 5 + fromEnum UnicodeTypeModifierLetter = 6 + fromEnum UnicodeTypeOtherLetter = 7 + fromEnum UnicodeTypeTitlecaseLetter = 8 + fromEnum UnicodeTypeUppercaseLetter = 9 + fromEnum UnicodeTypeSpacingMark = 10 + fromEnum UnicodeTypeEnclosingMark = 11 + fromEnum UnicodeTypeNonSpacingMark = 12 + fromEnum UnicodeTypeDecimalNumber = 13 + fromEnum UnicodeTypeLetterNumber = 14 + fromEnum UnicodeTypeOtherNumber = 15 + fromEnum UnicodeTypeConnectPunctuation = 16 + fromEnum UnicodeTypeDashPunctuation = 17 + fromEnum UnicodeTypeClosePunctuation = 18 + fromEnum UnicodeTypeFinalPunctuation = 19 + fromEnum UnicodeTypeInitialPunctuation = 20 + fromEnum UnicodeTypeOtherPunctuation = 21 + fromEnum UnicodeTypeOpenPunctuation = 22 + fromEnum UnicodeTypeCurrencySymbol = 23 + fromEnum UnicodeTypeModifierSymbol = 24 + fromEnum UnicodeTypeMathSymbol = 25 + fromEnum UnicodeTypeOtherSymbol = 26 + fromEnum UnicodeTypeLineSeparator = 27 + fromEnum UnicodeTypeParagraphSeparator = 28 + fromEnum UnicodeTypeSpaceSeparator = 29 + fromEnum (AnotherUnicodeType k) = k + + toEnum 0 = UnicodeTypeControl + toEnum 1 = UnicodeTypeFormat + toEnum 2 = UnicodeTypeUnassigned + toEnum 3 = UnicodeTypePrivateUse + toEnum 4 = UnicodeTypeSurrogate + toEnum 5 = UnicodeTypeLowercaseLetter + toEnum 6 = UnicodeTypeModifierLetter + toEnum 7 = UnicodeTypeOtherLetter + toEnum 8 = UnicodeTypeTitlecaseLetter + toEnum 9 = UnicodeTypeUppercaseLetter + toEnum 10 = UnicodeTypeSpacingMark + toEnum 11 = UnicodeTypeEnclosingMark + toEnum 12 = UnicodeTypeNonSpacingMark + toEnum 13 = UnicodeTypeDecimalNumber + toEnum 14 = UnicodeTypeLetterNumber + toEnum 15 = UnicodeTypeOtherNumber + toEnum 16 = UnicodeTypeConnectPunctuation + toEnum 17 = UnicodeTypeDashPunctuation + toEnum 18 = UnicodeTypeClosePunctuation + toEnum 19 = UnicodeTypeFinalPunctuation + toEnum 20 = UnicodeTypeInitialPunctuation + toEnum 21 = UnicodeTypeOtherPunctuation + toEnum 22 = UnicodeTypeOpenPunctuation + toEnum 23 = UnicodeTypeCurrencySymbol + toEnum 24 = UnicodeTypeModifierSymbol + toEnum 25 = UnicodeTypeMathSymbol + toEnum 26 = UnicodeTypeOtherSymbol + toEnum 27 = UnicodeTypeLineSeparator + toEnum 28 = UnicodeTypeParagraphSeparator + toEnum 29 = UnicodeTypeSpaceSeparator + toEnum k = AnotherUnicodeType k + +-- callback UnixFDSourceFunc +unixFDSourceFuncClosure :: UnixFDSourceFunc -> IO Closure +unixFDSourceFuncClosure cb = newCClosure =<< mkUnixFDSourceFunc wrapped + where wrapped = unixFDSourceFuncWrapper Nothing cb + +type UnixFDSourceFuncC = + Int32 -> + CUInt -> + Ptr () -> + IO CInt + +foreign import ccall "wrapper" + mkUnixFDSourceFunc :: UnixFDSourceFuncC -> IO (FunPtr UnixFDSourceFuncC) + +type UnixFDSourceFunc = + Int32 -> + [IOCondition] -> + IO Bool + +noUnixFDSourceFunc :: Maybe UnixFDSourceFunc +noUnixFDSourceFunc = Nothing + +unixFDSourceFuncWrapper :: + Maybe (Ptr (FunPtr (UnixFDSourceFuncC))) -> + UnixFDSourceFunc -> + Int32 -> + CUInt -> + Ptr () -> + IO CInt +unixFDSourceFuncWrapper funptrptr _cb fd condition _ = do + let condition' = wordToGFlags condition + result <- _cb fd condition' + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- Enum UserDirectory + +data UserDirectory = + UserDirectoryDirectoryDesktop + | UserDirectoryDirectoryDocuments + | UserDirectoryDirectoryDownload + | UserDirectoryDirectoryMusic + | UserDirectoryDirectoryPictures + | UserDirectoryDirectoryPublicShare + | UserDirectoryDirectoryTemplates + | UserDirectoryDirectoryVideos + | UserDirectoryNDirectories + | AnotherUserDirectory Int + deriving (Show, Eq) + +instance Enum UserDirectory where + fromEnum UserDirectoryDirectoryDesktop = 0 + fromEnum UserDirectoryDirectoryDocuments = 1 + fromEnum UserDirectoryDirectoryDownload = 2 + fromEnum UserDirectoryDirectoryMusic = 3 + fromEnum UserDirectoryDirectoryPictures = 4 + fromEnum UserDirectoryDirectoryPublicShare = 5 + fromEnum UserDirectoryDirectoryTemplates = 6 + fromEnum UserDirectoryDirectoryVideos = 7 + fromEnum UserDirectoryNDirectories = 8 + fromEnum (AnotherUserDirectory k) = k + + toEnum 0 = UserDirectoryDirectoryDesktop + toEnum 1 = UserDirectoryDirectoryDocuments + toEnum 2 = UserDirectoryDirectoryDownload + toEnum 3 = UserDirectoryDirectoryMusic + toEnum 4 = UserDirectoryDirectoryPictures + toEnum 5 = UserDirectoryDirectoryPublicShare + toEnum 6 = UserDirectoryDirectoryTemplates + toEnum 7 = UserDirectoryDirectoryVideos + toEnum 8 = UserDirectoryNDirectories + toEnum k = AnotherUserDirectory k + +-- struct VariantBuilder +newtype VariantBuilder = VariantBuilder (ForeignPtr VariantBuilder) +noVariantBuilder :: Maybe VariantBuilder +noVariantBuilder = Nothing + +foreign import ccall "g_variant_builder_get_type" c_g_variant_builder_get_type :: + IO GType + +instance BoxedObject VariantBuilder where + boxedType _ = c_g_variant_builder_get_type + +-- method VariantBuilder::new +-- method type : Constructor +-- Args : [Arg {argName = "type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "VariantBuilder" +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_builder_new" g_variant_builder_new :: + Ptr VariantType -> -- type : TInterface "GLib" "VariantType" + IO (Ptr VariantBuilder) + + +variantBuilderNew :: + (MonadIO m) => + VariantType -> -- type + m VariantBuilder +variantBuilderNew type_ = liftIO $ do + let type_' = unsafeManagedPtrGetPtr type_ + result <- g_variant_builder_new type_' + checkUnexpectedReturnNULL "g_variant_builder_new" result + result' <- (wrapBoxed VariantBuilder) result + touchManagedPtr type_ + return result' + +-- method VariantBuilder::add_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", 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 + +foreign import ccall "g_variant_builder_add_value" g_variant_builder_add_value :: + Ptr VariantBuilder -> -- _obj : TInterface "GLib" "VariantBuilder" + Ptr GVariant -> -- value : TVariant + IO () + + +variantBuilderAddValue :: + (MonadIO m) => + VariantBuilder -> -- _obj + GVariant -> -- value + m () +variantBuilderAddValue _obj value = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let value' = unsafeManagedPtrGetPtr value + g_variant_builder_add_value _obj' value' + touchManagedPtr _obj + return () + +-- method VariantBuilder::close +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_builder_close" g_variant_builder_close :: + Ptr VariantBuilder -> -- _obj : TInterface "GLib" "VariantBuilder" + IO () + + +variantBuilderClose :: + (MonadIO m) => + VariantBuilder -> -- _obj + m () +variantBuilderClose _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_variant_builder_close _obj' + touchManagedPtr _obj + return () + +-- method VariantBuilder::end +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TVariant +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_builder_end" g_variant_builder_end :: + Ptr VariantBuilder -> -- _obj : TInterface "GLib" "VariantBuilder" + IO (Ptr GVariant) + + +variantBuilderEnd :: + (MonadIO m) => + VariantBuilder -> -- _obj + m GVariant +variantBuilderEnd _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_variant_builder_end _obj' + checkUnexpectedReturnNULL "g_variant_builder_end" result + result' <- newGVariantFromPtr result + touchManagedPtr _obj + return result' + +-- method VariantBuilder::open +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", 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 = "_obj", argType = TInterface "GLib" "VariantBuilder", 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 : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_builder_open" g_variant_builder_open :: + Ptr VariantBuilder -> -- _obj : TInterface "GLib" "VariantBuilder" + Ptr VariantType -> -- type : TInterface "GLib" "VariantType" + IO () + + +variantBuilderOpen :: + (MonadIO m) => + VariantBuilder -> -- _obj + VariantType -> -- type + m () +variantBuilderOpen _obj type_ = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let type_' = unsafeManagedPtrGetPtr type_ + g_variant_builder_open _obj' type_' + touchManagedPtr _obj + touchManagedPtr type_ + return () + +-- method VariantBuilder::ref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "VariantBuilder" +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_builder_ref" g_variant_builder_ref :: + Ptr VariantBuilder -> -- _obj : TInterface "GLib" "VariantBuilder" + IO (Ptr VariantBuilder) + + +variantBuilderRef :: + (MonadIO m) => + VariantBuilder -> -- _obj + m VariantBuilder +variantBuilderRef _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_variant_builder_ref _obj' + checkUnexpectedReturnNULL "g_variant_builder_ref" result + result' <- (wrapBoxed VariantBuilder) result + touchManagedPtr _obj + return result' + +-- method VariantBuilder::unref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_builder_unref" g_variant_builder_unref :: + Ptr VariantBuilder -> -- _obj : TInterface "GLib" "VariantBuilder" + IO () + + +variantBuilderUnref :: + (MonadIO m) => + VariantBuilder -> -- _obj + m () +variantBuilderUnref _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_variant_builder_unref _obj' + touchManagedPtr _obj + return () + +-- Enum VariantClass + +data VariantClass = + VariantClassBoolean + | VariantClassByte + | VariantClassInt16 + | VariantClassUint16 + | VariantClassInt32 + | VariantClassUint32 + | VariantClassInt64 + | VariantClassUint64 + | VariantClassHandle + | VariantClassDouble + | VariantClassString + | VariantClassObjectPath + | VariantClassSignature + | VariantClassVariant + | VariantClassMaybe + | VariantClassArray + | VariantClassTuple + | VariantClassDictEntry + | AnotherVariantClass Int + deriving (Show, Eq) + +instance Enum VariantClass where + fromEnum VariantClassBoolean = 98 + fromEnum VariantClassByte = 121 + fromEnum VariantClassInt16 = 110 + fromEnum VariantClassUint16 = 113 + fromEnum VariantClassInt32 = 105 + fromEnum VariantClassUint32 = 117 + fromEnum VariantClassInt64 = 120 + fromEnum VariantClassUint64 = 116 + fromEnum VariantClassHandle = 104 + fromEnum VariantClassDouble = 100 + fromEnum VariantClassString = 115 + fromEnum VariantClassObjectPath = 111 + fromEnum VariantClassSignature = 103 + fromEnum VariantClassVariant = 118 + fromEnum VariantClassMaybe = 109 + fromEnum VariantClassArray = 97 + fromEnum VariantClassTuple = 40 + fromEnum VariantClassDictEntry = 123 + fromEnum (AnotherVariantClass k) = k + + toEnum 40 = VariantClassTuple + toEnum 97 = VariantClassArray + toEnum 98 = VariantClassBoolean + toEnum 100 = VariantClassDouble + toEnum 103 = VariantClassSignature + toEnum 104 = VariantClassHandle + toEnum 105 = VariantClassInt32 + toEnum 109 = VariantClassMaybe + toEnum 110 = VariantClassInt16 + toEnum 111 = VariantClassObjectPath + toEnum 113 = VariantClassUint16 + toEnum 115 = VariantClassString + toEnum 116 = VariantClassUint64 + toEnum 117 = VariantClassUint32 + toEnum 118 = VariantClassVariant + toEnum 120 = VariantClassInt64 + toEnum 121 = VariantClassByte + toEnum 123 = VariantClassDictEntry + toEnum k = AnotherVariantClass k + +-- struct VariantDict +newtype VariantDict = VariantDict (ForeignPtr VariantDict) +noVariantDict :: Maybe VariantDict +noVariantDict = Nothing + +foreign import ccall "g_variant_dict_get_type" c_g_variant_dict_get_type :: + IO GType + +instance BoxedObject VariantDict where + boxedType _ = c_g_variant_dict_get_type + +-- method VariantDict::new +-- method type : Constructor +-- Args : [Arg {argName = "from_asv", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "from_asv", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "VariantDict" +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_dict_new" g_variant_dict_new :: + Ptr GVariant -> -- from_asv : TVariant + IO (Ptr VariantDict) + + +variantDictNew :: + (MonadIO m) => + Maybe (GVariant) -> -- from_asv + m VariantDict +variantDictNew from_asv = liftIO $ do + maybeFrom_asv <- case from_asv of + Nothing -> return nullPtr + Just jFrom_asv -> do + let jFrom_asv' = unsafeManagedPtrGetPtr jFrom_asv + return jFrom_asv' + result <- g_variant_dict_new maybeFrom_asv + checkUnexpectedReturnNULL "g_variant_dict_new" result + result' <- (wrapBoxed VariantDict) result + return result' + +-- method VariantDict::clear +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_dict_clear" g_variant_dict_clear :: + Ptr VariantDict -> -- _obj : TInterface "GLib" "VariantDict" + IO () + + +variantDictClear :: + (MonadIO m) => + VariantDict -> -- _obj + m () +variantDictClear _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_variant_dict_clear _obj' + touchManagedPtr _obj + return () + +-- method VariantDict::contains +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", 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 + +foreign import ccall "g_variant_dict_contains" g_variant_dict_contains :: + Ptr VariantDict -> -- _obj : TInterface "GLib" "VariantDict" + CString -> -- key : TBasicType TUTF8 + IO CInt + + +variantDictContains :: + (MonadIO m) => + VariantDict -> -- _obj + T.Text -> -- key + m Bool +variantDictContains _obj key = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + key' <- textToCString key + result <- g_variant_dict_contains _obj' key' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem key' + return result' + +-- method VariantDict::end +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TVariant +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_dict_end" g_variant_dict_end :: + Ptr VariantDict -> -- _obj : TInterface "GLib" "VariantDict" + IO (Ptr GVariant) + + +variantDictEnd :: + (MonadIO m) => + VariantDict -> -- _obj + m GVariant +variantDictEnd _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_variant_dict_end _obj' + checkUnexpectedReturnNULL "g_variant_dict_end" result + result' <- newGVariantFromPtr result + touchManagedPtr _obj + return result' + +-- method VariantDict::insert_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", 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 TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_dict_insert_value" g_variant_dict_insert_value :: + Ptr VariantDict -> -- _obj : TInterface "GLib" "VariantDict" + CString -> -- key : TBasicType TUTF8 + Ptr GVariant -> -- value : TVariant + IO () + + +variantDictInsertValue :: + (MonadIO m) => + VariantDict -> -- _obj + T.Text -> -- key + GVariant -> -- value + m () +variantDictInsertValue _obj key value = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + key' <- textToCString key + let value' = unsafeManagedPtrGetPtr value + g_variant_dict_insert_value _obj' key' value' + touchManagedPtr _obj + freeMem key' + return () + +-- method VariantDict::lookup_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", 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 = "expected_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", 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 = "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 + +foreign import ccall "g_variant_dict_lookup_value" g_variant_dict_lookup_value :: + Ptr VariantDict -> -- _obj : TInterface "GLib" "VariantDict" + CString -> -- key : TBasicType TUTF8 + Ptr VariantType -> -- expected_type : TInterface "GLib" "VariantType" + IO (Ptr GVariant) + + +variantDictLookupValue :: + (MonadIO m) => + VariantDict -> -- _obj + T.Text -> -- key + Maybe (VariantType) -> -- expected_type + m GVariant +variantDictLookupValue _obj key expected_type = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + key' <- textToCString key + maybeExpected_type <- case expected_type of + Nothing -> return nullPtr + Just jExpected_type -> do + let jExpected_type' = unsafeManagedPtrGetPtr jExpected_type + return jExpected_type' + result <- g_variant_dict_lookup_value _obj' key' maybeExpected_type + checkUnexpectedReturnNULL "g_variant_dict_lookup_value" result + result' <- wrapGVariantPtr result + touchManagedPtr _obj + whenJust expected_type touchManagedPtr + freeMem key' + return result' + +-- method VariantDict::ref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "VariantDict" +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_dict_ref" g_variant_dict_ref :: + Ptr VariantDict -> -- _obj : TInterface "GLib" "VariantDict" + IO (Ptr VariantDict) + + +variantDictRef :: + (MonadIO m) => + VariantDict -> -- _obj + m VariantDict +variantDictRef _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_variant_dict_ref _obj' + checkUnexpectedReturnNULL "g_variant_dict_ref" result + result' <- (wrapBoxed VariantDict) result + touchManagedPtr _obj + return result' + +-- method VariantDict::remove +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", 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 + +foreign import ccall "g_variant_dict_remove" g_variant_dict_remove :: + Ptr VariantDict -> -- _obj : TInterface "GLib" "VariantDict" + CString -> -- key : TBasicType TUTF8 + IO CInt + + +variantDictRemove :: + (MonadIO m) => + VariantDict -> -- _obj + T.Text -> -- key + m Bool +variantDictRemove _obj key = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + key' <- textToCString key + result <- g_variant_dict_remove _obj' key' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem key' + return result' + +-- method VariantDict::unref +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_dict_unref" g_variant_dict_unref :: + Ptr VariantDict -> -- _obj : TInterface "GLib" "VariantDict" + IO () + + +variantDictUnref :: + (MonadIO m) => + VariantDict -> -- _obj + m () +variantDictUnref _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_variant_dict_unref _obj' + touchManagedPtr _obj + return () + +-- Enum VariantParseError + +data VariantParseError = + VariantParseErrorFailed + | VariantParseErrorBasicTypeExpected + | VariantParseErrorCannotInferType + | VariantParseErrorDefiniteTypeExpected + | VariantParseErrorInputNotAtEnd + | VariantParseErrorInvalidCharacter + | VariantParseErrorInvalidFormatString + | VariantParseErrorInvalidObjectPath + | VariantParseErrorInvalidSignature + | VariantParseErrorInvalidTypeString + | VariantParseErrorNoCommonType + | VariantParseErrorNumberOutOfRange + | VariantParseErrorNumberTooBig + | VariantParseErrorTypeError + | VariantParseErrorUnexpectedToken + | VariantParseErrorUnknownKeyword + | VariantParseErrorUnterminatedStringConstant + | VariantParseErrorValueExpected + | AnotherVariantParseError Int + deriving (Show, Eq) + +instance Enum VariantParseError where + fromEnum VariantParseErrorFailed = 0 + fromEnum VariantParseErrorBasicTypeExpected = 1 + fromEnum VariantParseErrorCannotInferType = 2 + fromEnum VariantParseErrorDefiniteTypeExpected = 3 + fromEnum VariantParseErrorInputNotAtEnd = 4 + fromEnum VariantParseErrorInvalidCharacter = 5 + fromEnum VariantParseErrorInvalidFormatString = 6 + fromEnum VariantParseErrorInvalidObjectPath = 7 + fromEnum VariantParseErrorInvalidSignature = 8 + fromEnum VariantParseErrorInvalidTypeString = 9 + fromEnum VariantParseErrorNoCommonType = 10 + fromEnum VariantParseErrorNumberOutOfRange = 11 + fromEnum VariantParseErrorNumberTooBig = 12 + fromEnum VariantParseErrorTypeError = 13 + fromEnum VariantParseErrorUnexpectedToken = 14 + fromEnum VariantParseErrorUnknownKeyword = 15 + fromEnum VariantParseErrorUnterminatedStringConstant = 16 + fromEnum VariantParseErrorValueExpected = 17 + fromEnum (AnotherVariantParseError k) = k + + toEnum 0 = VariantParseErrorFailed + toEnum 1 = VariantParseErrorBasicTypeExpected + toEnum 2 = VariantParseErrorCannotInferType + toEnum 3 = VariantParseErrorDefiniteTypeExpected + toEnum 4 = VariantParseErrorInputNotAtEnd + toEnum 5 = VariantParseErrorInvalidCharacter + toEnum 6 = VariantParseErrorInvalidFormatString + toEnum 7 = VariantParseErrorInvalidObjectPath + toEnum 8 = VariantParseErrorInvalidSignature + toEnum 9 = VariantParseErrorInvalidTypeString + toEnum 10 = VariantParseErrorNoCommonType + toEnum 11 = VariantParseErrorNumberOutOfRange + toEnum 12 = VariantParseErrorNumberTooBig + toEnum 13 = VariantParseErrorTypeError + toEnum 14 = VariantParseErrorUnexpectedToken + toEnum 15 = VariantParseErrorUnknownKeyword + toEnum 16 = VariantParseErrorUnterminatedStringConstant + toEnum 17 = VariantParseErrorValueExpected + toEnum k = AnotherVariantParseError k + +instance GErrorClass VariantParseError where + gerrorClassDomain _ = "g-variant-parse-error-quark" + +catchVariantParseError :: + IO a -> + (VariantParseError -> GErrorMessage -> IO a) -> + IO a +catchVariantParseError = catchGErrorJustDomain + +handleVariantParseError :: + (VariantParseError -> GErrorMessage -> IO a) -> + IO a -> + IO a +handleVariantParseError = handleGErrorJustDomain + +-- struct VariantType +newtype VariantType = VariantType (ForeignPtr VariantType) +noVariantType :: Maybe VariantType +noVariantType = Nothing + +foreign import ccall "g_variant_type_get_gtype" c_g_variant_type_get_gtype :: + IO GType + +instance BoxedObject VariantType where + boxedType _ = c_g_variant_type_get_gtype + +-- method VariantType::new +-- method type : Constructor +-- Args : [Arg {argName = "type_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "type_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "VariantType" +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_type_new" g_variant_type_new :: + CString -> -- type_string : TBasicType TUTF8 + IO (Ptr VariantType) + + +variantTypeNew :: + (MonadIO m) => + T.Text -> -- type_string + m VariantType +variantTypeNew type_string = liftIO $ do + type_string' <- textToCString type_string + result <- g_variant_type_new type_string' + checkUnexpectedReturnNULL "g_variant_type_new" result + result' <- (wrapBoxed VariantType) result + freeMem type_string' + return result' + +-- method VariantType::new_array +-- method type : Constructor +-- Args : [Arg {argName = "element", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "element", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "VariantType" +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_type_new_array" g_variant_type_new_array :: + Ptr VariantType -> -- element : TInterface "GLib" "VariantType" + IO (Ptr VariantType) + + +variantTypeNewArray :: + (MonadIO m) => + VariantType -> -- element + m VariantType +variantTypeNewArray element = liftIO $ do + let element' = unsafeManagedPtrGetPtr element + result <- g_variant_type_new_array element' + checkUnexpectedReturnNULL "g_variant_type_new_array" result + result' <- (wrapBoxed VariantType) result + touchManagedPtr element + return result' + +-- method VariantType::new_dict_entry +-- method type : Constructor +-- Args : [Arg {argName = "key", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "key", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "VariantType" +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_type_new_dict_entry" g_variant_type_new_dict_entry :: + Ptr VariantType -> -- key : TInterface "GLib" "VariantType" + Ptr VariantType -> -- value : TInterface "GLib" "VariantType" + IO (Ptr VariantType) + + +variantTypeNewDictEntry :: + (MonadIO m) => + VariantType -> -- key + VariantType -> -- value + m VariantType +variantTypeNewDictEntry key value = liftIO $ do + let key' = unsafeManagedPtrGetPtr key + let value' = unsafeManagedPtrGetPtr value + result <- g_variant_type_new_dict_entry key' value' + checkUnexpectedReturnNULL "g_variant_type_new_dict_entry" result + result' <- (wrapBoxed VariantType) result + touchManagedPtr key + touchManagedPtr value + return result' + +-- method VariantType::new_maybe +-- method type : Constructor +-- Args : [Arg {argName = "element", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "element", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "VariantType" +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_type_new_maybe" g_variant_type_new_maybe :: + Ptr VariantType -> -- element : TInterface "GLib" "VariantType" + IO (Ptr VariantType) + + +variantTypeNewMaybe :: + (MonadIO m) => + VariantType -> -- element + m VariantType +variantTypeNewMaybe element = liftIO $ do + let element' = unsafeManagedPtrGetPtr element + result <- g_variant_type_new_maybe element' + checkUnexpectedReturnNULL "g_variant_type_new_maybe" result + result' <- (wrapBoxed VariantType) result + touchManagedPtr element + return result' + +-- method VariantType::new_tuple +-- method type : Constructor +-- Args : [Arg {argName = "items", argType = TCArray False (-1) 1 (TInterface "GLib" "VariantType"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "items", argType = TCArray False (-1) 1 (TInterface "GLib" "VariantType"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "VariantType" +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_type_new_tuple" g_variant_type_new_tuple :: + Ptr (Ptr VariantType) -> -- items : TCArray False (-1) 1 (TInterface "GLib" "VariantType") + Int32 -> -- length : TBasicType TInt32 + IO (Ptr VariantType) + + +variantTypeNewTuple :: + (MonadIO m) => + [VariantType] -> -- items + m VariantType +variantTypeNewTuple items = liftIO $ do + let length_ = fromIntegral $ length items + let items' = map unsafeManagedPtrGetPtr items + items'' <- packPtrArray items' + result <- g_variant_type_new_tuple items'' length_ + checkUnexpectedReturnNULL "g_variant_type_new_tuple" result + result' <- (wrapBoxed VariantType) result + mapM_ touchManagedPtr items + freeMem items'' + return result' + +-- method VariantType::copy +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "VariantType" +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_type_copy" g_variant_type_copy :: + Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" + IO (Ptr VariantType) + + +variantTypeCopy :: + (MonadIO m) => + VariantType -> -- _obj + m VariantType +variantTypeCopy _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_variant_type_copy _obj' + checkUnexpectedReturnNULL "g_variant_type_copy" result + result' <- (wrapBoxed VariantType) result + touchManagedPtr _obj + return result' + +-- method VariantType::dup_string +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_type_dup_string" g_variant_type_dup_string :: + Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" + IO CString + + +variantTypeDupString :: + (MonadIO m) => + VariantType -> -- _obj + m T.Text +variantTypeDupString _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_variant_type_dup_string _obj' + checkUnexpectedReturnNULL "g_variant_type_dup_string" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method VariantType::element +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "VariantType" +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_type_element" g_variant_type_element :: + Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" + IO (Ptr VariantType) + + +variantTypeElement :: + (MonadIO m) => + VariantType -> -- _obj + m VariantType +variantTypeElement _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_variant_type_element _obj' + checkUnexpectedReturnNULL "g_variant_type_element" result + result' <- (newBoxed VariantType) result + touchManagedPtr _obj + return result' + +-- method VariantType::equal +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type2", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type2", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_type_equal" g_variant_type_equal :: + Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" + Ptr VariantType -> -- type2 : TInterface "GLib" "VariantType" + IO CInt + + +variantTypeEqual :: + (MonadIO m) => + VariantType -> -- _obj + VariantType -> -- type2 + m Bool +variantTypeEqual _obj type2 = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let type2' = unsafeManagedPtrGetPtr type2 + result <- g_variant_type_equal _obj' type2' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr type2 + return result' + +-- method VariantType::first +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "VariantType" +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_type_first" g_variant_type_first :: + Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" + IO (Ptr VariantType) + + +variantTypeFirst :: + (MonadIO m) => + VariantType -> -- _obj + m VariantType +variantTypeFirst _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_variant_type_first _obj' + checkUnexpectedReturnNULL "g_variant_type_first" result + result' <- (newBoxed VariantType) result + touchManagedPtr _obj + return result' + +-- method VariantType::free +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_type_free" g_variant_type_free :: + Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" + IO () + + +variantTypeFree :: + (MonadIO m) => + VariantType -> -- _obj + m () +variantTypeFree _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + g_variant_type_free _obj' + touchManagedPtr _obj + return () + +-- method VariantType::get_string_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_type_get_string_length" g_variant_type_get_string_length :: + Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" + IO Word64 + + +variantTypeGetStringLength :: + (MonadIO m) => + VariantType -> -- _obj + m Word64 +variantTypeGetStringLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_variant_type_get_string_length _obj' + touchManagedPtr _obj + return result + +-- method VariantType::hash +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_type_hash" g_variant_type_hash :: + Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" + IO Word32 + + +variantTypeHash :: + (MonadIO m) => + VariantType -> -- _obj + m Word32 +variantTypeHash _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_variant_type_hash _obj' + touchManagedPtr _obj + return result + +-- method VariantType::is_array +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_type_is_array" g_variant_type_is_array :: + Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" + IO CInt + + +variantTypeIsArray :: + (MonadIO m) => + VariantType -> -- _obj + m Bool +variantTypeIsArray _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_variant_type_is_array _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method VariantType::is_basic +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_type_is_basic" g_variant_type_is_basic :: + Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" + IO CInt + + +variantTypeIsBasic :: + (MonadIO m) => + VariantType -> -- _obj + m Bool +variantTypeIsBasic _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_variant_type_is_basic _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method VariantType::is_container +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_type_is_container" g_variant_type_is_container :: + Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" + IO CInt + + +variantTypeIsContainer :: + (MonadIO m) => + VariantType -> -- _obj + m Bool +variantTypeIsContainer _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_variant_type_is_container _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method VariantType::is_definite +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_type_is_definite" g_variant_type_is_definite :: + Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" + IO CInt + + +variantTypeIsDefinite :: + (MonadIO m) => + VariantType -> -- _obj + m Bool +variantTypeIsDefinite _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_variant_type_is_definite _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method VariantType::is_dict_entry +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_type_is_dict_entry" g_variant_type_is_dict_entry :: + Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" + IO CInt + + +variantTypeIsDictEntry :: + (MonadIO m) => + VariantType -> -- _obj + m Bool +variantTypeIsDictEntry _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_variant_type_is_dict_entry _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method VariantType::is_maybe +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_type_is_maybe" g_variant_type_is_maybe :: + Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" + IO CInt + + +variantTypeIsMaybe :: + (MonadIO m) => + VariantType -> -- _obj + m Bool +variantTypeIsMaybe _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_variant_type_is_maybe _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method VariantType::is_subtype_of +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "supertype", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "supertype", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_type_is_subtype_of" g_variant_type_is_subtype_of :: + Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" + Ptr VariantType -> -- supertype : TInterface "GLib" "VariantType" + IO CInt + + +variantTypeIsSubtypeOf :: + (MonadIO m) => + VariantType -> -- _obj + VariantType -> -- supertype + m Bool +variantTypeIsSubtypeOf _obj supertype = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let supertype' = unsafeManagedPtrGetPtr supertype + result <- g_variant_type_is_subtype_of _obj' supertype' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr supertype + return result' + +-- method VariantType::is_tuple +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_type_is_tuple" g_variant_type_is_tuple :: + Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" + IO CInt + + +variantTypeIsTuple :: + (MonadIO m) => + VariantType -> -- _obj + m Bool +variantTypeIsTuple _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_variant_type_is_tuple _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method VariantType::is_variant +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_type_is_variant" g_variant_type_is_variant :: + Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" + IO CInt + + +variantTypeIsVariant :: + (MonadIO m) => + VariantType -> -- _obj + m Bool +variantTypeIsVariant _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_variant_type_is_variant _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method VariantType::key +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "VariantType" +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_type_key" g_variant_type_key :: + Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" + IO (Ptr VariantType) + + +variantTypeKey :: + (MonadIO m) => + VariantType -> -- _obj + m VariantType +variantTypeKey _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_variant_type_key _obj' + checkUnexpectedReturnNULL "g_variant_type_key" result + result' <- (newBoxed VariantType) result + touchManagedPtr _obj + return result' + +-- method VariantType::n_items +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_type_n_items" g_variant_type_n_items :: + Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" + IO Word64 + + +variantTypeNItems :: + (MonadIO m) => + VariantType -> -- _obj + m Word64 +variantTypeNItems _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_variant_type_n_items _obj' + touchManagedPtr _obj + return result + +-- method VariantType::next +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "VariantType" +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_type_next" g_variant_type_next :: + Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" + IO (Ptr VariantType) + + +variantTypeNext :: + (MonadIO m) => + VariantType -> -- _obj + m VariantType +variantTypeNext _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_variant_type_next _obj' + checkUnexpectedReturnNULL "g_variant_type_next" result + result' <- (newBoxed VariantType) result + touchManagedPtr _obj + return result' + +-- method VariantType::value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "VariantType" +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_type_value" g_variant_type_value :: + Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" + IO (Ptr VariantType) + + +variantTypeValue :: + (MonadIO m) => + VariantType -> -- _obj + m VariantType +variantTypeValue _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- g_variant_type_value _obj' + checkUnexpectedReturnNULL "g_variant_type_value" result + result' <- (newBoxed VariantType) result + touchManagedPtr _obj + return result' + +-- callback VoidFunc +voidFuncClosure :: VoidFunc -> IO Closure +voidFuncClosure cb = newCClosure =<< mkVoidFunc wrapped + where wrapped = voidFuncWrapper Nothing cb + +type VoidFuncC = + IO () + +foreign import ccall "wrapper" + mkVoidFunc :: VoidFuncC -> IO (FunPtr VoidFuncC) + +type VoidFunc = + IO () + +noVoidFunc :: Maybe VoidFunc +noVoidFunc = Nothing + +voidFuncWrapper :: + Maybe (Ptr (FunPtr (VoidFuncC))) -> + VoidFunc -> + IO () +voidFuncWrapper funptrptr _cb = do + _cb + maybeReleaseFunPtr funptrptr + +-- constant _ANALYZER_ANALYZING + +_ANALYZER_ANALYZING :: Int32 +_ANALYZER_ANALYZING = 1 +-- constant _ASCII_DTOSTR_BUF_SIZE + +_ASCII_DTOSTR_BUF_SIZE :: Int32 +_ASCII_DTOSTR_BUF_SIZE = 39 +-- constant _BIG_ENDIAN + +_BIG_ENDIAN :: Int32 +_BIG_ENDIAN = 4321 +-- constant _CAN_INLINE + +_CAN_INLINE :: Int32 +_CAN_INLINE = 1 +-- constant _CSET_A_2_Z + +_CSET_A_2_Z :: T.Text +_CSET_A_2_Z = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" +-- constant _CSET_DIGITS + +_CSET_DIGITS :: T.Text +_CSET_DIGITS = "0123456789" +-- constant _CSET_a_2_z + +_CSET_a_2_z :: T.Text +_CSET_a_2_z = "abcdefghijklmnopqrstuvwxyz" +-- constant _DATALIST_FLAGS_MASK + +_DATALIST_FLAGS_MASK :: Int32 +_DATALIST_FLAGS_MASK = 3 +-- constant _DATE_BAD_DAY + +_DATE_BAD_DAY :: Int32 +_DATE_BAD_DAY = 0 +-- constant _DATE_BAD_JULIAN + +_DATE_BAD_JULIAN :: Int32 +_DATE_BAD_JULIAN = 0 +-- constant _DATE_BAD_YEAR + +_DATE_BAD_YEAR :: Int32 +_DATE_BAD_YEAR = 0 +-- constant _DIR_SEPARATOR + +_DIR_SEPARATOR :: Int32 +_DIR_SEPARATOR = 92 +-- constant _DIR_SEPARATOR_S + +_DIR_SEPARATOR_S :: T.Text +_DIR_SEPARATOR_S = "\\" +-- constant _E + +_E :: Double +_E = 2.718282 +-- constant _GINT16_FORMAT + +_GINT16_FORMAT :: T.Text +_GINT16_FORMAT = "hi" +-- constant _GINT16_MODIFIER + +_GINT16_MODIFIER :: T.Text +_GINT16_MODIFIER = "h" +-- constant _GINT32_FORMAT + +_GINT32_FORMAT :: T.Text +_GINT32_FORMAT = "i" +-- constant _GINT32_MODIFIER + +_GINT32_MODIFIER :: T.Text +_GINT32_MODIFIER = "" +-- constant _GINT64_FORMAT + +_GINT64_FORMAT :: T.Text +_GINT64_FORMAT = "li" +-- constant _GINT64_MODIFIER + +_GINT64_MODIFIER :: T.Text +_GINT64_MODIFIER = "l" +-- constant _GINTPTR_FORMAT + +_GINTPTR_FORMAT :: T.Text +_GINTPTR_FORMAT = "li" +-- constant _GINTPTR_MODIFIER + +_GINTPTR_MODIFIER :: T.Text +_GINTPTR_MODIFIER = "l" +-- constant _GNUC_FUNCTION +{-# DEPRECATED _GNUC_FUNCTION ["(Since version 2.16)","Use G_STRFUNC() instead"]#-} +_GNUC_FUNCTION :: T.Text +_GNUC_FUNCTION = "" +-- constant _GNUC_PRETTY_FUNCTION +{-# DEPRECATED _GNUC_PRETTY_FUNCTION ["(Since version 2.16)","Use G_STRFUNC() instead"]#-} +_GNUC_PRETTY_FUNCTION :: T.Text +_GNUC_PRETTY_FUNCTION = "" +-- constant _GSIZE_FORMAT + +_GSIZE_FORMAT :: T.Text +_GSIZE_FORMAT = "lu" +-- constant _GSIZE_MODIFIER + +_GSIZE_MODIFIER :: T.Text +_GSIZE_MODIFIER = "l" +-- constant _GSSIZE_FORMAT + +_GSSIZE_FORMAT :: T.Text +_GSSIZE_FORMAT = "li" +-- constant _GSSIZE_MODIFIER + +_GSSIZE_MODIFIER :: T.Text +_GSSIZE_MODIFIER = "l" +-- constant _GUINT16_FORMAT + +_GUINT16_FORMAT :: T.Text +_GUINT16_FORMAT = "hu" +-- constant _GUINT32_FORMAT + +_GUINT32_FORMAT :: T.Text +_GUINT32_FORMAT = "u" +-- constant _GUINT64_FORMAT + +_GUINT64_FORMAT :: T.Text +_GUINT64_FORMAT = "lu" +-- constant _GUINTPTR_FORMAT + +_GUINTPTR_FORMAT :: T.Text +_GUINTPTR_FORMAT = "lu" +-- constant _HAVE_GINT64 + +_HAVE_GINT64 :: Int32 +_HAVE_GINT64 = 1 +-- constant _HAVE_GNUC_VARARGS + +_HAVE_GNUC_VARARGS :: Int32 +_HAVE_GNUC_VARARGS = 1 +-- constant _HAVE_GNUC_VISIBILITY + +_HAVE_GNUC_VISIBILITY :: Int32 +_HAVE_GNUC_VISIBILITY = 1 +-- constant _HAVE_GROWING_STACK + +_HAVE_GROWING_STACK :: Int32 +_HAVE_GROWING_STACK = 0 +-- constant _HAVE_INLINE + +_HAVE_INLINE :: Int32 +_HAVE_INLINE = 1 +-- constant _HAVE_ISO_VARARGS + +_HAVE_ISO_VARARGS :: Int32 +_HAVE_ISO_VARARGS = 1 +-- constant _HAVE___INLINE + +_HAVE___INLINE :: Int32 +_HAVE___INLINE = 1 +-- constant _HAVE___INLINE__ + +_HAVE___INLINE__ :: Int32 +_HAVE___INLINE__ = 1 +-- constant _HOOK_FLAG_USER_SHIFT + +_HOOK_FLAG_USER_SHIFT :: Int32 +_HOOK_FLAG_USER_SHIFT = 4 +-- constant _IEEE754_DOUBLE_BIAS + +_IEEE754_DOUBLE_BIAS :: Int32 +_IEEE754_DOUBLE_BIAS = 1023 +-- constant _IEEE754_FLOAT_BIAS + +_IEEE754_FLOAT_BIAS :: Int32 +_IEEE754_FLOAT_BIAS = 127 +-- constant _KEY_FILE_DESKTOP_GROUP + +_KEY_FILE_DESKTOP_GROUP :: T.Text +_KEY_FILE_DESKTOP_GROUP = "Desktop Entry" +-- constant _KEY_FILE_DESKTOP_KEY_ACTIONS + +_KEY_FILE_DESKTOP_KEY_ACTIONS :: T.Text +_KEY_FILE_DESKTOP_KEY_ACTIONS = "Actions" +-- constant _KEY_FILE_DESKTOP_KEY_CATEGORIES + +_KEY_FILE_DESKTOP_KEY_CATEGORIES :: T.Text +_KEY_FILE_DESKTOP_KEY_CATEGORIES = "Categories" +-- constant _KEY_FILE_DESKTOP_KEY_COMMENT + +_KEY_FILE_DESKTOP_KEY_COMMENT :: T.Text +_KEY_FILE_DESKTOP_KEY_COMMENT = "Comment" +-- constant _KEY_FILE_DESKTOP_KEY_DBUS_ACTIVATABLE + +_KEY_FILE_DESKTOP_KEY_DBUS_ACTIVATABLE :: T.Text +_KEY_FILE_DESKTOP_KEY_DBUS_ACTIVATABLE = "DBusActivatable" +-- constant _KEY_FILE_DESKTOP_KEY_EXEC + +_KEY_FILE_DESKTOP_KEY_EXEC :: T.Text +_KEY_FILE_DESKTOP_KEY_EXEC = "Exec" +-- constant _KEY_FILE_DESKTOP_KEY_GENERIC_NAME + +_KEY_FILE_DESKTOP_KEY_GENERIC_NAME :: T.Text +_KEY_FILE_DESKTOP_KEY_GENERIC_NAME = "GenericName" +-- constant _KEY_FILE_DESKTOP_KEY_HIDDEN + +_KEY_FILE_DESKTOP_KEY_HIDDEN :: T.Text +_KEY_FILE_DESKTOP_KEY_HIDDEN = "Hidden" +-- constant _KEY_FILE_DESKTOP_KEY_ICON + +_KEY_FILE_DESKTOP_KEY_ICON :: T.Text +_KEY_FILE_DESKTOP_KEY_ICON = "Icon" +-- constant _KEY_FILE_DESKTOP_KEY_MIME_TYPE + +_KEY_FILE_DESKTOP_KEY_MIME_TYPE :: T.Text +_KEY_FILE_DESKTOP_KEY_MIME_TYPE = "MimeType" +-- constant _KEY_FILE_DESKTOP_KEY_NAME + +_KEY_FILE_DESKTOP_KEY_NAME :: T.Text +_KEY_FILE_DESKTOP_KEY_NAME = "Name" +-- constant _KEY_FILE_DESKTOP_KEY_NOT_SHOW_IN + +_KEY_FILE_DESKTOP_KEY_NOT_SHOW_IN :: T.Text +_KEY_FILE_DESKTOP_KEY_NOT_SHOW_IN = "NotShowIn" +-- constant _KEY_FILE_DESKTOP_KEY_NO_DISPLAY + +_KEY_FILE_DESKTOP_KEY_NO_DISPLAY :: T.Text +_KEY_FILE_DESKTOP_KEY_NO_DISPLAY = "NoDisplay" +-- constant _KEY_FILE_DESKTOP_KEY_ONLY_SHOW_IN + +_KEY_FILE_DESKTOP_KEY_ONLY_SHOW_IN :: T.Text +_KEY_FILE_DESKTOP_KEY_ONLY_SHOW_IN = "OnlyShowIn" +-- constant _KEY_FILE_DESKTOP_KEY_PATH + +_KEY_FILE_DESKTOP_KEY_PATH :: T.Text +_KEY_FILE_DESKTOP_KEY_PATH = "Path" +-- constant _KEY_FILE_DESKTOP_KEY_STARTUP_NOTIFY + +_KEY_FILE_DESKTOP_KEY_STARTUP_NOTIFY :: T.Text +_KEY_FILE_DESKTOP_KEY_STARTUP_NOTIFY = "StartupNotify" +-- constant _KEY_FILE_DESKTOP_KEY_STARTUP_WM_CLASS + +_KEY_FILE_DESKTOP_KEY_STARTUP_WM_CLASS :: T.Text +_KEY_FILE_DESKTOP_KEY_STARTUP_WM_CLASS = "StartupWMClass" +-- constant _KEY_FILE_DESKTOP_KEY_TERMINAL + +_KEY_FILE_DESKTOP_KEY_TERMINAL :: T.Text +_KEY_FILE_DESKTOP_KEY_TERMINAL = "Terminal" +-- constant _KEY_FILE_DESKTOP_KEY_TRY_EXEC + +_KEY_FILE_DESKTOP_KEY_TRY_EXEC :: T.Text +_KEY_FILE_DESKTOP_KEY_TRY_EXEC = "TryExec" +-- constant _KEY_FILE_DESKTOP_KEY_TYPE + +_KEY_FILE_DESKTOP_KEY_TYPE :: T.Text +_KEY_FILE_DESKTOP_KEY_TYPE = "Type" +-- constant _KEY_FILE_DESKTOP_KEY_URL + +_KEY_FILE_DESKTOP_KEY_URL :: T.Text +_KEY_FILE_DESKTOP_KEY_URL = "URL" +-- constant _KEY_FILE_DESKTOP_KEY_VERSION + +_KEY_FILE_DESKTOP_KEY_VERSION :: T.Text +_KEY_FILE_DESKTOP_KEY_VERSION = "Version" +-- constant _KEY_FILE_DESKTOP_TYPE_APPLICATION + +_KEY_FILE_DESKTOP_TYPE_APPLICATION :: T.Text +_KEY_FILE_DESKTOP_TYPE_APPLICATION = "Application" +-- constant _KEY_FILE_DESKTOP_TYPE_DIRECTORY + +_KEY_FILE_DESKTOP_TYPE_DIRECTORY :: T.Text +_KEY_FILE_DESKTOP_TYPE_DIRECTORY = "Directory" +-- constant _KEY_FILE_DESKTOP_TYPE_LINK + +_KEY_FILE_DESKTOP_TYPE_LINK :: T.Text +_KEY_FILE_DESKTOP_TYPE_LINK = "Link" +-- constant _LITTLE_ENDIAN + +_LITTLE_ENDIAN :: Int32 +_LITTLE_ENDIAN = 1234 +-- constant _LN10 + +_LN10 :: Double +_LN10 = 2.302585 +-- constant _LN2 + +_LN2 :: Double +_LN2 = 0.693147 +-- constant _LOG_2_BASE_10 + +_LOG_2_BASE_10 :: Double +_LOG_2_BASE_10 = 0.301030 +-- constant _LOG_DOMAIN + +_LOG_DOMAIN :: Int8 +_LOG_DOMAIN = 0 +-- constant _LOG_FATAL_MASK + +_LOG_FATAL_MASK :: Int32 +_LOG_FATAL_MASK = 0 +-- constant _LOG_LEVEL_USER_SHIFT + +_LOG_LEVEL_USER_SHIFT :: Int32 +_LOG_LEVEL_USER_SHIFT = 8 +-- constant _MAJOR_VERSION + +_MAJOR_VERSION :: Int32 +_MAJOR_VERSION = 2 +-- constant _MAXINT16 + +_MAXINT16 :: Int16 +_MAXINT16 = 32767 +-- constant _MAXINT32 + +_MAXINT32 :: Int32 +_MAXINT32 = 2147483647 +-- constant _MAXINT64 + +_MAXINT64 :: Int64 +_MAXINT64 = 9223372036854775807 +-- constant _MAXINT8 + +_MAXINT8 :: Int8 +_MAXINT8 = 127 +-- constant _MAXUINT16 + +_MAXUINT16 :: Word16 +_MAXUINT16 = 65535 +-- constant _MAXUINT32 + +_MAXUINT32 :: Word32 +_MAXUINT32 = 4294967295 +-- constant _MAXUINT64 + +_MAXUINT64 :: Word64 +_MAXUINT64 = 18446744073709551615 +-- constant _MAXUINT8 + +_MAXUINT8 :: Word8 +_MAXUINT8 = 255 +-- constant _MICRO_VERSION + +_MICRO_VERSION :: Int32 +_MICRO_VERSION = 0 +-- constant _MININT16 + +_MININT16 :: Int16 +_MININT16 = 32768 +-- constant _MININT32 + +_MININT32 :: Int32 +_MININT32 = 2147483648 +-- constant _MININT64 + +_MININT64 :: Int64 +_MININT64 = -9223372036854775808 +-- constant _MININT8 + +_MININT8 :: Int8 +_MININT8 = 128 +-- constant _MINOR_VERSION + +_MINOR_VERSION :: Int32 +_MINOR_VERSION = 46 +-- constant _MODULE_SUFFIX + +_MODULE_SUFFIX :: T.Text +_MODULE_SUFFIX = "so" +-- constant _OPTION_REMAINING + +_OPTION_REMAINING :: T.Text +_OPTION_REMAINING = "" +-- constant _PDP_ENDIAN + +_PDP_ENDIAN :: Int32 +_PDP_ENDIAN = 3412 +-- constant _PI + +_PI :: Double +_PI = 3.141593 +-- constant _PI_2 + +_PI_2 :: Double +_PI_2 = 1.570796 +-- constant _PI_4 + +_PI_4 :: Double +_PI_4 = 0.785398 +-- constant _POLLFD_FORMAT + +_POLLFD_FORMAT :: T.Text +_POLLFD_FORMAT = "%#I64x" +-- constant _PRIORITY_DEFAULT + +_PRIORITY_DEFAULT :: Int32 +_PRIORITY_DEFAULT = 0 +-- constant _PRIORITY_DEFAULT_IDLE + +_PRIORITY_DEFAULT_IDLE :: Int32 +_PRIORITY_DEFAULT_IDLE = 200 +-- constant _PRIORITY_HIGH + +_PRIORITY_HIGH :: Int32 +_PRIORITY_HIGH = -100 +-- constant _PRIORITY_HIGH_IDLE + +_PRIORITY_HIGH_IDLE :: Int32 +_PRIORITY_HIGH_IDLE = 100 +-- constant _PRIORITY_LOW + +_PRIORITY_LOW :: Int32 +_PRIORITY_LOW = 300 +-- constant _SEARCHPATH_SEPARATOR + +_SEARCHPATH_SEPARATOR :: Int32 +_SEARCHPATH_SEPARATOR = 59 +-- constant _SEARCHPATH_SEPARATOR_S + +_SEARCHPATH_SEPARATOR_S :: T.Text +_SEARCHPATH_SEPARATOR_S = ";" +-- constant _SIZEOF_LONG + +_SIZEOF_LONG :: Int32 +_SIZEOF_LONG = 8 +-- constant _SIZEOF_SIZE_T + +_SIZEOF_SIZE_T :: Int32 +_SIZEOF_SIZE_T = 8 +-- constant _SIZEOF_SSIZE_T + +_SIZEOF_SSIZE_T :: Int32 +_SIZEOF_SSIZE_T = 8 +-- constant _SIZEOF_VOID_P + +_SIZEOF_VOID_P :: Int32 +_SIZEOF_VOID_P = 8 +-- constant _SOURCE_CONTINUE + +_SOURCE_CONTINUE :: Bool +_SOURCE_CONTINUE = True +-- constant _SOURCE_REMOVE + +_SOURCE_REMOVE :: Bool +_SOURCE_REMOVE = False +-- constant _SQRT2 + +_SQRT2 :: Double +_SQRT2 = 1.414214 +-- constant _STR_DELIMITERS + +_STR_DELIMITERS :: T.Text +_STR_DELIMITERS = "_-|> <." +-- constant _SYSDEF_AF_INET + +_SYSDEF_AF_INET :: Int32 +_SYSDEF_AF_INET = 2 +-- constant _SYSDEF_AF_INET6 + +_SYSDEF_AF_INET6 :: Int32 +_SYSDEF_AF_INET6 = 10 +-- constant _SYSDEF_AF_UNIX + +_SYSDEF_AF_UNIX :: Int32 +_SYSDEF_AF_UNIX = 1 +-- constant _SYSDEF_MSG_DONTROUTE + +_SYSDEF_MSG_DONTROUTE :: Int32 +_SYSDEF_MSG_DONTROUTE = 4 +-- constant _SYSDEF_MSG_OOB + +_SYSDEF_MSG_OOB :: Int32 +_SYSDEF_MSG_OOB = 1 +-- constant _SYSDEF_MSG_PEEK + +_SYSDEF_MSG_PEEK :: Int32 +_SYSDEF_MSG_PEEK = 2 +-- constant _TIME_SPAN_DAY + +_TIME_SPAN_DAY :: Int64 +_TIME_SPAN_DAY = 86400000000 +-- constant _TIME_SPAN_HOUR + +_TIME_SPAN_HOUR :: Int64 +_TIME_SPAN_HOUR = 3600000000 +-- constant _TIME_SPAN_MILLISECOND + +_TIME_SPAN_MILLISECOND :: Int64 +_TIME_SPAN_MILLISECOND = 1000 +-- constant _TIME_SPAN_MINUTE + +_TIME_SPAN_MINUTE :: Int64 +_TIME_SPAN_MINUTE = 60000000 +-- constant _TIME_SPAN_SECOND + +_TIME_SPAN_SECOND :: Int64 +_TIME_SPAN_SECOND = 1000000 +-- constant _UNICHAR_MAX_DECOMPOSITION_LENGTH + +_UNICHAR_MAX_DECOMPOSITION_LENGTH :: Int32 +_UNICHAR_MAX_DECOMPOSITION_LENGTH = 18 +-- constant _URI_RESERVED_CHARS_GENERIC_DELIMITERS + +_URI_RESERVED_CHARS_GENERIC_DELIMITERS :: T.Text +_URI_RESERVED_CHARS_GENERIC_DELIMITERS = ":/?#[]@" +-- constant _URI_RESERVED_CHARS_SUBCOMPONENT_DELIMITERS + +_URI_RESERVED_CHARS_SUBCOMPONENT_DELIMITERS :: T.Text +_URI_RESERVED_CHARS_SUBCOMPONENT_DELIMITERS = "!$&'()*+,;=" +-- constant _USEC_PER_SEC + +_USEC_PER_SEC :: Int32 +_USEC_PER_SEC = 1000000 +-- constant _VA_COPY_AS_ARRAY + +_VA_COPY_AS_ARRAY :: Int32 +_VA_COPY_AS_ARRAY = 1 +-- constant _VERSION_MIN_REQUIRED + +_VERSION_MIN_REQUIRED :: Int32 +_VERSION_MIN_REQUIRED = 2 +-- constant _WIN32_MSG_HANDLE + +_WIN32_MSG_HANDLE :: Int32 +_WIN32_MSG_HANDLE = 19981206 +-- function g_access +-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_access" g_access :: + CString -> -- filename : TBasicType TUTF8 + Int32 -> -- mode : TBasicType TInt32 + IO Int32 + + +access :: + (MonadIO m) => + T.Text -> -- filename + Int32 -> -- mode + m Int32 +access filename mode = liftIO $ do + filename' <- textToCString filename + result <- g_access filename' mode + freeMem filename' + return result + +-- function g_ascii_digit_value +-- Args : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_ascii_digit_value" g_ascii_digit_value :: + Int8 -> -- c : TBasicType TInt8 + IO Int32 + + +asciiDigitValue :: + (MonadIO m) => + Int8 -> -- c + m Int32 +asciiDigitValue c = liftIO $ do + result <- g_ascii_digit_value c + return result + +-- function g_ascii_dtostr +-- Args : [Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "d", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "d", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_ascii_dtostr" g_ascii_dtostr :: + CString -> -- buffer : TBasicType TUTF8 + Int32 -> -- buf_len : TBasicType TInt32 + CDouble -> -- d : TBasicType TDouble + IO CString + + +asciiDtostr :: + (MonadIO m) => + T.Text -> -- buffer + Int32 -> -- buf_len + Double -> -- d + m T.Text +asciiDtostr buffer buf_len d = liftIO $ do + buffer' <- textToCString buffer + let d' = realToFrac d + result <- g_ascii_dtostr buffer' buf_len d' + checkUnexpectedReturnNULL "g_ascii_dtostr" result + result' <- cstringToText result + freeMem result + freeMem buffer' + return result' + +-- function g_ascii_formatd +-- Args : [Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "d", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "d", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_ascii_formatd" g_ascii_formatd :: + CString -> -- buffer : TBasicType TUTF8 + Int32 -> -- buf_len : TBasicType TInt32 + CString -> -- format : TBasicType TUTF8 + CDouble -> -- d : TBasicType TDouble + IO CString + + +asciiFormatd :: + (MonadIO m) => + T.Text -> -- buffer + Int32 -> -- buf_len + T.Text -> -- format + Double -> -- d + m T.Text +asciiFormatd buffer buf_len format d = liftIO $ do + buffer' <- textToCString buffer + format' <- textToCString format + let d' = realToFrac d + result <- g_ascii_formatd buffer' buf_len format' d' + checkUnexpectedReturnNULL "g_ascii_formatd" result + result' <- cstringToText result + freeMem result + freeMem buffer' + freeMem format' + return result' + +-- function g_ascii_strcasecmp +-- Args : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", 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_ascii_strcasecmp" g_ascii_strcasecmp :: + CString -> -- s1 : TBasicType TUTF8 + CString -> -- s2 : TBasicType TUTF8 + IO Int32 + + +asciiStrcasecmp :: + (MonadIO m) => + T.Text -> -- s1 + T.Text -> -- s2 + m Int32 +asciiStrcasecmp s1 s2 = liftIO $ do + s1' <- textToCString s1 + s2' <- textToCString s2 + result <- g_ascii_strcasecmp s1' s2' + freeMem s1' + freeMem s2' + return result + +-- function g_ascii_strdown +-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, 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},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_ascii_strdown" g_ascii_strdown :: + CString -> -- str : TBasicType TUTF8 + Int64 -> -- len : TBasicType TInt64 + IO CString + + +asciiStrdown :: + (MonadIO m) => + T.Text -> -- str + Int64 -> -- len + m T.Text +asciiStrdown str len = liftIO $ do + str' <- textToCString str + result <- g_ascii_strdown str' len + checkUnexpectedReturnNULL "g_ascii_strdown" result + result' <- cstringToText result + freeMem result + freeMem str' + return result' + +-- function g_ascii_strncasecmp +-- Args : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_ascii_strncasecmp" g_ascii_strncasecmp :: + CString -> -- s1 : TBasicType TUTF8 + CString -> -- s2 : TBasicType TUTF8 + Word64 -> -- n : TBasicType TUInt64 + IO Int32 + + +asciiStrncasecmp :: + (MonadIO m) => + T.Text -> -- s1 + T.Text -> -- s2 + Word64 -> -- n + m Int32 +asciiStrncasecmp s1 s2 n = liftIO $ do + s1' <- textToCString s1 + s2' <- textToCString s2 + result <- g_ascii_strncasecmp s1' s2' n + freeMem s1' + freeMem s2' + return result + +-- function g_ascii_strtod +-- Args : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "g_ascii_strtod" g_ascii_strtod :: + CString -> -- nptr : TBasicType TUTF8 + CString -> -- endptr : TBasicType TUTF8 + IO CDouble + + +asciiStrtod :: + (MonadIO m) => + T.Text -> -- nptr + T.Text -> -- endptr + m Double +asciiStrtod nptr endptr = liftIO $ do + nptr' <- textToCString nptr + endptr' <- textToCString endptr + result <- g_ascii_strtod nptr' endptr' + let result' = realToFrac result + freeMem nptr' + freeMem endptr' + return result' + +-- function g_ascii_strtoll +-- Args : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "g_ascii_strtoll" g_ascii_strtoll :: + CString -> -- nptr : TBasicType TUTF8 + CString -> -- endptr : TBasicType TUTF8 + Word32 -> -- base : TBasicType TUInt32 + IO Int64 + + +asciiStrtoll :: + (MonadIO m) => + T.Text -> -- nptr + T.Text -> -- endptr + Word32 -> -- base + m Int64 +asciiStrtoll nptr endptr base = liftIO $ do + nptr' <- textToCString nptr + endptr' <- textToCString endptr + result <- g_ascii_strtoll nptr' endptr' base + freeMem nptr' + freeMem endptr' + return result + +-- function g_ascii_strtoull +-- Args : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "g_ascii_strtoull" g_ascii_strtoull :: + CString -> -- nptr : TBasicType TUTF8 + CString -> -- endptr : TBasicType TUTF8 + Word32 -> -- base : TBasicType TUInt32 + IO Word64 + + +asciiStrtoull :: + (MonadIO m) => + T.Text -> -- nptr + T.Text -> -- endptr + Word32 -> -- base + m Word64 +asciiStrtoull nptr endptr base = liftIO $ do + nptr' <- textToCString nptr + endptr' <- textToCString endptr + result <- g_ascii_strtoull nptr' endptr' base + freeMem nptr' + freeMem endptr' + return result + +-- function g_ascii_strup +-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, 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},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_ascii_strup" g_ascii_strup :: + CString -> -- str : TBasicType TUTF8 + Int64 -> -- len : TBasicType TInt64 + IO CString + + +asciiStrup :: + (MonadIO m) => + T.Text -> -- str + Int64 -> -- len + m T.Text +asciiStrup str len = liftIO $ do + str' <- textToCString str + result <- g_ascii_strup str' len + checkUnexpectedReturnNULL "g_ascii_strup" result + result' <- cstringToText result + freeMem result + freeMem str' + return result' + +-- function g_ascii_tolower +-- Args : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_ascii_tolower" g_ascii_tolower :: + Int8 -> -- c : TBasicType TInt8 + IO Int8 + + +asciiTolower :: + (MonadIO m) => + Int8 -> -- c + m Int8 +asciiTolower c = liftIO $ do + result <- g_ascii_tolower c + return result + +-- function g_ascii_toupper +-- Args : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_ascii_toupper" g_ascii_toupper :: + Int8 -> -- c : TBasicType TInt8 + IO Int8 + + +asciiToupper :: + (MonadIO m) => + Int8 -> -- c + m Int8 +asciiToupper c = liftIO $ do + result <- g_ascii_toupper c + return result + +-- function g_ascii_xdigit_value +-- Args : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_ascii_xdigit_value" g_ascii_xdigit_value :: + Int8 -> -- c : TBasicType TInt8 + IO Int32 + + +asciiXdigitValue :: + (MonadIO m) => + Int8 -> -- c + m Int32 +asciiXdigitValue c = liftIO $ do + result <- g_ascii_xdigit_value c + return result + +-- function g_assert_warning +-- Args : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pretty_function", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expression", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pretty_function", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expression", 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_assert_warning" g_assert_warning :: + CString -> -- log_domain : TBasicType TUTF8 + CString -> -- file : TBasicType TUTF8 + Int32 -> -- line : TBasicType TInt32 + CString -> -- pretty_function : TBasicType TUTF8 + CString -> -- expression : TBasicType TUTF8 + IO () + + +assertWarning :: + (MonadIO m) => + T.Text -> -- log_domain + T.Text -> -- file + Int32 -> -- line + T.Text -> -- pretty_function + T.Text -> -- expression + m () +assertWarning log_domain file line pretty_function expression = liftIO $ do + log_domain' <- textToCString log_domain + file' <- textToCString file + pretty_function' <- textToCString pretty_function + expression' <- textToCString expression + g_assert_warning log_domain' file' line pretty_function' expression' + freeMem log_domain' + freeMem file' + freeMem pretty_function' + freeMem expression' + return () + +-- function g_assertion_message +-- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, 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 + +foreign import ccall "g_assertion_message" g_assertion_message :: + CString -> -- domain : TBasicType TUTF8 + CString -> -- file : TBasicType TUTF8 + Int32 -> -- line : TBasicType TInt32 + CString -> -- func : TBasicType TUTF8 + CString -> -- message : TBasicType TUTF8 + IO () + + +assertionMessage :: + (MonadIO m) => + T.Text -> -- domain + T.Text -> -- file + Int32 -> -- line + T.Text -> -- func + T.Text -> -- message + m () +assertionMessage domain file line func message = liftIO $ do + domain' <- textToCString domain + file' <- textToCString file + func' <- textToCString func + message' <- textToCString message + g_assertion_message domain' file' line func' message' + freeMem domain' + freeMem file' + freeMem func' + freeMem message' + return () + +-- function g_assertion_message_cmpstr +-- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arg1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cmp", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arg2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arg1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cmp", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arg2", 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_assertion_message_cmpstr" g_assertion_message_cmpstr :: + CString -> -- domain : TBasicType TUTF8 + CString -> -- file : TBasicType TUTF8 + Int32 -> -- line : TBasicType TInt32 + CString -> -- func : TBasicType TUTF8 + CString -> -- expr : TBasicType TUTF8 + CString -> -- arg1 : TBasicType TUTF8 + CString -> -- cmp : TBasicType TUTF8 + CString -> -- arg2 : TBasicType TUTF8 + IO () + + +assertionMessageCmpstr :: + (MonadIO m) => + T.Text -> -- domain + T.Text -> -- file + Int32 -> -- line + T.Text -> -- func + T.Text -> -- expr + T.Text -> -- arg1 + T.Text -> -- cmp + T.Text -> -- arg2 + m () +assertionMessageCmpstr domain file line func expr arg1 cmp arg2 = liftIO $ do + domain' <- textToCString domain + file' <- textToCString file + func' <- textToCString func + expr' <- textToCString expr + arg1' <- textToCString arg1 + cmp' <- textToCString cmp + arg2' <- textToCString arg2 + g_assertion_message_cmpstr domain' file' line func' expr' arg1' cmp' arg2' + freeMem domain' + freeMem file' + freeMem func' + freeMem expr' + freeMem arg1' + freeMem cmp' + freeMem arg2' + return () + +-- function g_assertion_message_error +-- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expr", argType = TBasicType TUTF8, 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},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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expr", argType = TBasicType TUTF8, 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},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}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_assertion_message_error" g_assertion_message_error :: + CString -> -- domain : TBasicType TUTF8 + CString -> -- file : TBasicType TUTF8 + Int32 -> -- line : TBasicType TInt32 + CString -> -- func : TBasicType TUTF8 + CString -> -- expr : TBasicType TUTF8 + Ptr GError -> -- error : TError + Word32 -> -- error_domain : TBasicType TUInt32 + Int32 -> -- error_code : TBasicType TInt32 + IO () + + +assertionMessageError :: + (MonadIO m) => + T.Text -> -- domain + T.Text -> -- file + Int32 -> -- line + T.Text -> -- func + T.Text -> -- expr + GError -> -- error + Word32 -> -- error_domain + Int32 -> -- error_code + m () +assertionMessageError domain file line func expr error_ error_domain error_code = liftIO $ do + domain' <- textToCString domain + file' <- textToCString file + func' <- textToCString func + expr' <- textToCString expr + let error_' = unsafeManagedPtrGetPtr error_ + g_assertion_message_error domain' file' line func' expr' error_' error_domain error_code + touchManagedPtr error_ + freeMem domain' + freeMem file' + freeMem func' + freeMem expr' + return () + +-- function g_assertion_message_expr +-- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expr", 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_assertion_message_expr" g_assertion_message_expr :: + CString -> -- domain : TBasicType TUTF8 + CString -> -- file : TBasicType TUTF8 + Int32 -> -- line : TBasicType TInt32 + CString -> -- func : TBasicType TUTF8 + CString -> -- expr : TBasicType TUTF8 + IO () + + +assertionMessageExpr :: + (MonadIO m) => + T.Text -> -- domain + T.Text -> -- file + Int32 -> -- line + T.Text -> -- func + T.Text -> -- expr + m () +assertionMessageExpr domain file line func expr = liftIO $ do + domain' <- textToCString domain + file' <- textToCString file + func' <- textToCString func + expr' <- textToCString expr + g_assertion_message_expr domain' file' line func' expr' + freeMem domain' + freeMem file' + freeMem func' + freeMem expr' + return () + +-- function g_atexit +-- Args : [Arg {argName = "func", argType = TInterface "GLib" "VoidFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "func", argType = TInterface "GLib" "VoidFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_atexit" g_atexit :: + FunPtr VoidFuncC -> -- func : TInterface "GLib" "VoidFunc" + IO () + +{-# DEPRECATED atexit ["(Since version 2.32)","It is best to avoid g_atexit()."]#-} +atexit :: + (MonadIO m) => + VoidFunc -> -- func + m () +atexit func = liftIO $ do + ptrfunc <- callocMem :: IO (Ptr (FunPtr VoidFuncC)) + func' <- mkVoidFunc (voidFuncWrapper (Just ptrfunc) func) + poke ptrfunc func' + g_atexit func' + return () + +-- function g_atomic_int_add +-- Args : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_atomic_int_add" g_atomic_int_add :: + Int32 -> -- atomic : TBasicType TInt32 + Int32 -> -- val : TBasicType TInt32 + IO Int32 + + +atomicIntAdd :: + (MonadIO m) => + Int32 -> -- atomic + Int32 -> -- val + m Int32 +atomicIntAdd atomic val = liftIO $ do + result <- g_atomic_int_add atomic val + return result + +-- function g_atomic_int_and +-- Args : [Arg {argName = "atomic", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_atomic_int_and" g_atomic_int_and :: + Word32 -> -- atomic : TBasicType TUInt32 + Word32 -> -- val : TBasicType TUInt32 + IO Word32 + + +atomicIntAnd :: + (MonadIO m) => + Word32 -> -- atomic + Word32 -> -- val + m Word32 +atomicIntAnd atomic val = liftIO $ do + result <- g_atomic_int_and atomic val + return result + +-- function g_atomic_int_compare_and_exchange +-- Args : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_atomic_int_compare_and_exchange" g_atomic_int_compare_and_exchange :: + Int32 -> -- atomic : TBasicType TInt32 + Int32 -> -- oldval : TBasicType TInt32 + Int32 -> -- newval : TBasicType TInt32 + IO CInt + + +atomicIntCompareAndExchange :: + (MonadIO m) => + Int32 -> -- atomic + Int32 -> -- oldval + Int32 -> -- newval + m Bool +atomicIntCompareAndExchange atomic oldval newval = liftIO $ do + result <- g_atomic_int_compare_and_exchange atomic oldval newval + let result' = (/= 0) result + return result' + +-- function g_atomic_int_dec_and_test +-- Args : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_atomic_int_dec_and_test" g_atomic_int_dec_and_test :: + Int32 -> -- atomic : TBasicType TInt32 + IO CInt + + +atomicIntDecAndTest :: + (MonadIO m) => + Int32 -> -- atomic + m Bool +atomicIntDecAndTest atomic = liftIO $ do + result <- g_atomic_int_dec_and_test atomic + let result' = (/= 0) result + return result' + +-- function g_atomic_int_exchange_and_add +-- Args : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_atomic_int_exchange_and_add" g_atomic_int_exchange_and_add :: + Int32 -> -- atomic : TBasicType TInt32 + Int32 -> -- val : TBasicType TInt32 + IO Int32 + +{-# DEPRECATED atomicIntExchangeAndAdd ["(Since version 2.30)","Use g_atomic_int_add() instead."]#-} +atomicIntExchangeAndAdd :: + (MonadIO m) => + Int32 -> -- atomic + Int32 -> -- val + m Int32 +atomicIntExchangeAndAdd atomic val = liftIO $ do + result <- g_atomic_int_exchange_and_add atomic val + return result + +-- function g_atomic_int_get +-- Args : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_atomic_int_get" g_atomic_int_get :: + Int32 -> -- atomic : TBasicType TInt32 + IO Int32 + + +atomicIntGet :: + (MonadIO m) => + Int32 -> -- atomic + m Int32 +atomicIntGet atomic = liftIO $ do + result <- g_atomic_int_get atomic + return result + +-- function g_atomic_int_inc +-- Args : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "atomic", 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_atomic_int_inc" g_atomic_int_inc :: + Int32 -> -- atomic : TBasicType TInt32 + IO () + + +atomicIntInc :: + (MonadIO m) => + Int32 -> -- atomic + m () +atomicIntInc atomic = liftIO $ do + g_atomic_int_inc atomic + return () + +-- function g_atomic_int_or +-- Args : [Arg {argName = "atomic", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_atomic_int_or" g_atomic_int_or :: + Word32 -> -- atomic : TBasicType TUInt32 + Word32 -> -- val : TBasicType TUInt32 + IO Word32 + + +atomicIntOr :: + (MonadIO m) => + Word32 -> -- atomic + Word32 -> -- val + m Word32 +atomicIntOr atomic val = liftIO $ do + result <- g_atomic_int_or atomic val + return result + +-- function g_atomic_int_set +-- Args : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", 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_atomic_int_set" g_atomic_int_set :: + Int32 -> -- atomic : TBasicType TInt32 + Int32 -> -- newval : TBasicType TInt32 + IO () + + +atomicIntSet :: + (MonadIO m) => + Int32 -> -- atomic + Int32 -> -- newval + m () +atomicIntSet atomic newval = liftIO $ do + g_atomic_int_set atomic newval + return () + +-- function g_atomic_int_xor +-- Args : [Arg {argName = "atomic", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_atomic_int_xor" g_atomic_int_xor :: + Word32 -> -- atomic : TBasicType TUInt32 + Word32 -> -- val : TBasicType TUInt32 + IO Word32 + + +atomicIntXor :: + (MonadIO m) => + Word32 -> -- atomic + Word32 -> -- val + m Word32 +atomicIntXor atomic val = liftIO $ do + result <- g_atomic_int_xor atomic val + return result + +-- function g_atomic_pointer_add +-- Args : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "g_atomic_pointer_add" g_atomic_pointer_add :: + Ptr () -> -- atomic : TBasicType TVoid + Int64 -> -- val : TBasicType TInt64 + IO Int64 + + +atomicPointerAdd :: + (MonadIO m) => + Ptr () -> -- atomic + Int64 -> -- val + m Int64 +atomicPointerAdd atomic val = liftIO $ do + result <- g_atomic_pointer_add atomic val + return result + +-- function g_atomic_pointer_and +-- Args : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "g_atomic_pointer_and" g_atomic_pointer_and :: + Ptr () -> -- atomic : TBasicType TVoid + Word64 -> -- val : TBasicType TUInt64 + IO Word64 + + +atomicPointerAnd :: + (MonadIO m) => + Ptr () -> -- atomic + Word64 -> -- val + m Word64 +atomicPointerAnd atomic val = liftIO $ do + result <- g_atomic_pointer_and atomic val + return result + +-- function g_atomic_pointer_compare_and_exchange +-- Args : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_atomic_pointer_compare_and_exchange" g_atomic_pointer_compare_and_exchange :: + Ptr () -> -- atomic : TBasicType TVoid + Ptr () -> -- oldval : TBasicType TVoid + Ptr () -> -- newval : TBasicType TVoid + IO CInt + + +atomicPointerCompareAndExchange :: + (MonadIO m) => + Ptr () -> -- atomic + Ptr () -> -- oldval + Ptr () -> -- newval + m Bool +atomicPointerCompareAndExchange atomic oldval newval = liftIO $ do + result <- g_atomic_pointer_compare_and_exchange atomic oldval newval + let result' = (/= 0) result + return result' + +-- function g_atomic_pointer_or +-- Args : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "g_atomic_pointer_or" g_atomic_pointer_or :: + Ptr () -> -- atomic : TBasicType TVoid + Word64 -> -- val : TBasicType TUInt64 + IO Word64 + + +atomicPointerOr :: + (MonadIO m) => + Ptr () -> -- atomic + Word64 -> -- val + m Word64 +atomicPointerOr atomic val = liftIO $ do + result <- g_atomic_pointer_or atomic val + return result + +-- function g_atomic_pointer_set +-- Args : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", 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_atomic_pointer_set" g_atomic_pointer_set :: + Ptr () -> -- atomic : TBasicType TVoid + Ptr () -> -- newval : TBasicType TVoid + IO () + + +atomicPointerSet :: + (MonadIO m) => + Ptr () -> -- atomic + Ptr () -> -- newval + m () +atomicPointerSet atomic newval = liftIO $ do + g_atomic_pointer_set atomic newval + return () + +-- function g_atomic_pointer_xor +-- Args : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "g_atomic_pointer_xor" g_atomic_pointer_xor :: + Ptr () -> -- atomic : TBasicType TVoid + Word64 -> -- val : TBasicType TUInt64 + IO Word64 + + +atomicPointerXor :: + (MonadIO m) => + Ptr () -> -- atomic + Word64 -> -- val + m Word64 +atomicPointerXor atomic val = liftIO $ do + result <- g_atomic_pointer_xor atomic val + return result + +-- function g_base64_decode +-- Args : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "out_len", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [Arg {argName = "out_len", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- hInArgs : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TCArray False (-1) 1 (TBasicType TUInt8) +-- throws : False +-- Skip return : False + +foreign import ccall "g_base64_decode" g_base64_decode :: + CString -> -- text : TBasicType TUTF8 + Ptr Word64 -> -- out_len : TBasicType TUInt64 + IO (Ptr Word8) + + +base64Decode :: + (MonadIO m) => + T.Text -> -- text + m ByteString +base64Decode text = liftIO $ do + text' <- textToCString text + out_len <- allocMem :: IO (Ptr Word64) + result <- g_base64_decode text' out_len + out_len' <- peek out_len + checkUnexpectedReturnNULL "g_base64_decode" result + result' <- (unpackByteStringWithLength out_len') result + freeMem result + freeMem text' + freeMem out_len + return result' + +-- function g_base64_decode_inplace +-- Args : [Arg {argName = "text", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "out_len", argType = TBasicType TUInt64, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "out_len", argType = TBasicType TUInt64, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "text", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- returnType : TBasicType TUInt8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_base64_decode_inplace" g_base64_decode_inplace :: + Ptr (Ptr Word8) -> -- text : TCArray False (-1) 1 (TBasicType TUInt8) + Ptr Word64 -> -- out_len : TBasicType TUInt64 + IO Word8 + + +base64DecodeInplace :: + (MonadIO m) => + ByteString -> -- text + m (Word8,ByteString) +base64DecodeInplace text = liftIO $ do + let out_len = fromIntegral $ B.length text + text' <- packByteString text + text'' <- allocMem :: IO (Ptr (Ptr Word8)) + poke text'' text' + out_len' <- allocMem :: IO (Ptr Word64) + poke out_len' out_len + result <- g_base64_decode_inplace text'' out_len' + out_len'' <- peek out_len' + text''' <- peek text'' + text'''' <- (unpackByteStringWithLength out_len'') text''' + freeMem text''' + freeMem text'' + freeMem out_len' + return (result, text'''') + +-- function g_base64_encode +-- Args : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), 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}] +-- Lengths : [Arg {argName = "len", argType = TBasicType TUInt64, 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 = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_base64_encode" g_base64_encode :: + Ptr Word8 -> -- data : TCArray False (-1) 1 (TBasicType TUInt8) + Word64 -> -- len : TBasicType TUInt64 + IO CString + + +base64Encode :: + (MonadIO m) => + ByteString -> -- data + m T.Text +base64Encode data_ = liftIO $ do + let len = fromIntegral $ B.length data_ + data_' <- packByteString data_ + result <- g_base64_encode data_' len + checkUnexpectedReturnNULL "g_base64_encode" result + result' <- cstringToText result + freeMem result + freeMem data_' + return result' + +-- function g_basename +-- Args : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "file_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_basename" g_basename :: + CString -> -- file_name : TBasicType TUTF8 + IO CString + +{-# DEPRECATED basename ["(Since version 2.2)","Use g_path_get_basename() instead, but notice"," that g_path_get_basename() allocates new memory for the"," returned string, unlike this function which returns a pointer"," into the argument."]#-} +basename :: + (MonadIO m) => + T.Text -> -- file_name + m T.Text +basename file_name = liftIO $ do + file_name' <- textToCString file_name + result <- g_basename file_name' + checkUnexpectedReturnNULL "g_basename" result + result' <- cstringToText result + freeMem file_name' + return result' + +-- function g_bit_lock +-- Args : [Arg {argName = "address", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "address", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", 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_bit_lock" g_bit_lock :: + Int32 -> -- address : TBasicType TInt32 + Int32 -> -- lock_bit : TBasicType TInt32 + IO () + + +bitLock :: + (MonadIO m) => + Int32 -> -- address + Int32 -> -- lock_bit + m () +bitLock address lock_bit = liftIO $ do + g_bit_lock address lock_bit + return () + +-- function g_bit_nth_lsf +-- Args : [Arg {argName = "mask", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nth_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "mask", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nth_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_bit_nth_lsf" g_bit_nth_lsf :: + Word64 -> -- mask : TBasicType TUInt64 + Int32 -> -- nth_bit : TBasicType TInt32 + IO Int32 + + +bitNthLsf :: + (MonadIO m) => + Word64 -> -- mask + Int32 -> -- nth_bit + m Int32 +bitNthLsf mask nth_bit = liftIO $ do + result <- g_bit_nth_lsf mask nth_bit + return result + +-- function g_bit_nth_msf +-- Args : [Arg {argName = "mask", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nth_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "mask", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nth_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_bit_nth_msf" g_bit_nth_msf :: + Word64 -> -- mask : TBasicType TUInt64 + Int32 -> -- nth_bit : TBasicType TInt32 + IO Int32 + + +bitNthMsf :: + (MonadIO m) => + Word64 -> -- mask + Int32 -> -- nth_bit + m Int32 +bitNthMsf mask nth_bit = liftIO $ do + result <- g_bit_nth_msf mask nth_bit + return result + +-- function g_bit_storage +-- Args : [Arg {argName = "number", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "number", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_bit_storage" g_bit_storage :: + Word64 -> -- number : TBasicType TUInt64 + IO Word32 + + +bitStorage :: + (MonadIO m) => + Word64 -> -- number + m Word32 +bitStorage number = liftIO $ do + result <- g_bit_storage number + return result + +-- function g_bit_trylock +-- Args : [Arg {argName = "address", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "address", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_bit_trylock" g_bit_trylock :: + Int32 -> -- address : TBasicType TInt32 + Int32 -> -- lock_bit : TBasicType TInt32 + IO CInt + + +bitTrylock :: + (MonadIO m) => + Int32 -> -- address + Int32 -> -- lock_bit + m Bool +bitTrylock address lock_bit = liftIO $ do + result <- g_bit_trylock address lock_bit + let result' = (/= 0) result + return result' + +-- function g_bit_unlock +-- Args : [Arg {argName = "address", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "address", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", 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_bit_unlock" g_bit_unlock :: + Int32 -> -- address : TBasicType TInt32 + Int32 -> -- lock_bit : TBasicType TInt32 + IO () + + +bitUnlock :: + (MonadIO m) => + Int32 -> -- address + Int32 -> -- lock_bit + m () +bitUnlock address lock_bit = liftIO $ do + g_bit_unlock address lock_bit + return () + +-- function g_bookmark_file_error_quark +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_bookmark_file_error_quark" g_bookmark_file_error_quark :: + IO Word32 + + +bookmarkFileErrorQuark :: + (MonadIO m) => + m Word32 +bookmarkFileErrorQuark = liftIO $ do + result <- g_bookmark_file_error_quark + return result + +-- function g_build_filenamev +-- Args : [Arg {argName = "args", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "args", argType = TCArray True (-1) (-1) (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_build_filenamev" g_build_filenamev :: + Ptr CString -> -- args : TCArray True (-1) (-1) (TBasicType TUTF8) + IO CString + + +buildFilenamev :: + (MonadIO m) => + [T.Text] -> -- args + m T.Text +buildFilenamev args = liftIO $ do + args' <- packZeroTerminatedUTF8CArray args + result <- g_build_filenamev args' + checkUnexpectedReturnNULL "g_build_filenamev" result + result' <- cstringToText result + freeMem result + mapZeroTerminatedCArray freeMem args' + freeMem args' + return result' + +-- function g_build_pathv +-- Args : [Arg {argName = "separator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "args", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "separator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "args", argType = TCArray True (-1) (-1) (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_build_pathv" g_build_pathv :: + CString -> -- separator : TBasicType TUTF8 + Ptr CString -> -- args : TCArray True (-1) (-1) (TBasicType TUTF8) + IO CString + + +buildPathv :: + (MonadIO m) => + T.Text -> -- separator + [T.Text] -> -- args + m T.Text +buildPathv separator args = liftIO $ do + separator' <- textToCString separator + args' <- packZeroTerminatedUTF8CArray args + result <- g_build_pathv separator' args' + checkUnexpectedReturnNULL "g_build_pathv" result + result' <- cstringToText result + freeMem result + freeMem separator' + mapZeroTerminatedCArray freeMem args' + freeMem args' + return result' + +-- function g_byte_array_free +-- Args : [Arg {argName = "array", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "free_segment", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "array", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "free_segment", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_byte_array_free" g_byte_array_free :: + Ptr GByteArray -> -- array : TByteArray + CInt -> -- free_segment : TBasicType TBoolean + IO Word8 + + +byteArrayFree :: + (MonadIO m) => + ByteString -> -- array + Bool -> -- free_segment + m Word8 +byteArrayFree array free_segment = liftIO $ do + array' <- packGByteArray array + let free_segment' = (fromIntegral . fromEnum) free_segment + result <- g_byte_array_free array' free_segment' + unrefGByteArray array' + return result + +-- function g_byte_array_free_to_bytes +-- Args : [Arg {argName = "array", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "array", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- returnType : TInterface "GLib" "Bytes" +-- throws : False +-- Skip return : False + +foreign import ccall "g_byte_array_free_to_bytes" g_byte_array_free_to_bytes :: + Ptr GByteArray -> -- array : TByteArray + IO (Ptr Bytes) + + +byteArrayFreeToBytes :: + (MonadIO m) => + ByteString -> -- array + m Bytes +byteArrayFreeToBytes array = liftIO $ do + array' <- packGByteArray array + result <- g_byte_array_free_to_bytes array' + checkUnexpectedReturnNULL "g_byte_array_free_to_bytes" result + result' <- (wrapBoxed Bytes) result + return result' + +-- function g_byte_array_new +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TByteArray +-- throws : False +-- Skip return : False + +foreign import ccall "g_byte_array_new" g_byte_array_new :: + IO (Ptr GByteArray) + + +byteArrayNew :: + (MonadIO m) => + m ByteString +byteArrayNew = liftIO $ do + result <- g_byte_array_new + checkUnexpectedReturnNULL "g_byte_array_new" result + result' <- unpackGByteArray result + unrefGByteArray result + return result' + +-- function g_byte_array_new_take +-- 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 TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "len", argType = TBasicType TUInt64, 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}] +-- returnType : TByteArray +-- throws : False +-- Skip return : False + +foreign import ccall "g_byte_array_new_take" g_byte_array_new_take :: + Ptr Word8 -> -- data : TCArray False (-1) 1 (TBasicType TUInt8) + Word64 -> -- len : TBasicType TUInt64 + IO (Ptr GByteArray) + + +byteArrayNewTake :: + (MonadIO m) => + ByteString -> -- data + m ByteString +byteArrayNewTake data_ = liftIO $ do + let len = fromIntegral $ B.length data_ + data_' <- packByteString data_ + result <- g_byte_array_new_take data_' len + checkUnexpectedReturnNULL "g_byte_array_new_take" result + result' <- unpackGByteArray result + unrefGByteArray result + return result' + +-- function g_byte_array_unref +-- Args : [Arg {argName = "array", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "array", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_byte_array_unref" g_byte_array_unref :: + Ptr GByteArray -> -- array : TByteArray + IO () + + +byteArrayUnref :: + (MonadIO m) => + ByteString -> -- array + m () +byteArrayUnref array = liftIO $ do + array' <- packGByteArray array + g_byte_array_unref array' + unrefGByteArray array' + return () + +-- function g_chdir +-- 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 : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_chdir" g_chdir :: + CString -> -- path : TBasicType TUTF8 + IO Int32 + + +chdir :: + (MonadIO m) => + T.Text -> -- path + m Int32 +chdir path = liftIO $ do + path' <- textToCString path + result <- g_chdir path' + freeMem path' + return result + +-- function glib_check_version +-- Args : [Arg {argName = "required_major", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_minor", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_micro", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "required_major", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_minor", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_micro", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "glib_check_version" glib_check_version :: + Word32 -> -- required_major : TBasicType TUInt32 + Word32 -> -- required_minor : TBasicType TUInt32 + Word32 -> -- required_micro : TBasicType TUInt32 + IO CString + + +checkVersion :: + (MonadIO m) => + Word32 -> -- required_major + Word32 -> -- required_minor + Word32 -> -- required_micro + m T.Text +checkVersion required_major required_minor required_micro = liftIO $ do + result <- glib_check_version required_major required_minor required_micro + checkUnexpectedReturnNULL "glib_check_version" result + result' <- cstringToText result + return result' + +-- function g_checksum_type_get_length +-- Args : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "g_checksum_type_get_length" g_checksum_type_get_length :: + CUInt -> -- checksum_type : TInterface "GLib" "ChecksumType" + IO Int64 + + +checksumTypeGetLength :: + (MonadIO m) => + ChecksumType -> -- checksum_type + m Int64 +checksumTypeGetLength checksum_type = liftIO $ do + let checksum_type' = (fromIntegral . fromEnum) checksum_type + result <- g_checksum_type_get_length checksum_type' + return result + +-- function g_child_watch_add_full +-- Args : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pid", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "ChildWatchFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pid", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "ChildWatchFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_child_watch_add_full" g_child_watch_add_full :: + Int32 -> -- priority : TBasicType TInt32 + Int32 -> -- pid : TBasicType TInt32 + FunPtr ChildWatchFuncC -> -- function : TInterface "GLib" "ChildWatchFunc" + Ptr () -> -- data : TBasicType TVoid + FunPtr DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" + IO Word32 + + +childWatchAdd :: + (MonadIO m) => + Int32 -> -- priority + Int32 -> -- pid + ChildWatchFunc -> -- function + m Word32 +childWatchAdd priority pid function = liftIO $ do + function' <- mkChildWatchFunc (childWatchFuncWrapper Nothing function) + let data_ = castFunPtrToPtr function' + let notify = safeFreeFunPtrPtr + result <- g_child_watch_add_full priority pid function' data_ notify + return result + +-- function g_child_watch_source_new +-- Args : [Arg {argName = "pid", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "pid", argType = TBasicType TInt32, 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_child_watch_source_new" g_child_watch_source_new :: + Int32 -> -- pid : TBasicType TInt32 + IO (Ptr Source) + + +childWatchSourceNew :: + (MonadIO m) => + Int32 -> -- pid + m Source +childWatchSourceNew pid = liftIO $ do + result <- g_child_watch_source_new pid + checkUnexpectedReturnNULL "g_child_watch_source_new" result + result' <- (wrapBoxed Source) result + return result' + +-- function g_clear_error +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TVoid +-- throws : True +-- Skip return : False + +foreign import ccall "g_clear_error" g_clear_error :: + Ptr (Ptr GError) -> -- error + IO () + + +clearError :: + (MonadIO m) => + m () +clearError = liftIO $ do + onException (do + propagateGError $ g_clear_error + return () + ) (do + return () + ) + +-- function g_close +-- Args : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [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 + +foreign import ccall "g_close" g_close :: + Int32 -> -- fd : TBasicType TInt32 + Ptr (Ptr GError) -> -- error + IO CInt + + +close :: + (MonadIO m) => + Int32 -> -- fd + m () +close fd = liftIO $ do + onException (do + _ <- propagateGError $ g_close fd + return () + ) (do + return () + ) + +-- function g_compute_checksum_for_bytes +-- Args : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_compute_checksum_for_bytes" g_compute_checksum_for_bytes :: + CUInt -> -- checksum_type : TInterface "GLib" "ChecksumType" + Ptr Bytes -> -- data : TInterface "GLib" "Bytes" + IO CString + + +computeChecksumForBytes :: + (MonadIO m) => + ChecksumType -> -- checksum_type + Bytes -> -- data + m T.Text +computeChecksumForBytes checksum_type data_ = liftIO $ do + let checksum_type' = (fromIntegral . fromEnum) checksum_type + let data_' = unsafeManagedPtrGetPtr data_ + result <- g_compute_checksum_for_bytes checksum_type' data_' + checkUnexpectedReturnNULL "g_compute_checksum_for_bytes" result + result' <- cstringToText result + freeMem result + touchManagedPtr data_ + return result' + +-- function g_compute_checksum_for_data +-- Args : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", 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},Arg {argName = "length", argType = TBasicType TUInt64, 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 = "checksum_type", argType = TInterface "GLib" "ChecksumType", 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}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_compute_checksum_for_data" g_compute_checksum_for_data :: + CUInt -> -- checksum_type : TInterface "GLib" "ChecksumType" + Ptr Word8 -> -- data : TCArray False (-1) 2 (TBasicType TUInt8) + Word64 -> -- length : TBasicType TUInt64 + IO CString + + +computeChecksumForData :: + (MonadIO m) => + ChecksumType -> -- checksum_type + ByteString -> -- data + m T.Text +computeChecksumForData checksum_type data_ = liftIO $ do + let length_ = fromIntegral $ B.length data_ + let checksum_type' = (fromIntegral . fromEnum) checksum_type + data_' <- packByteString data_ + result <- g_compute_checksum_for_data checksum_type' data_' length_ + checkUnexpectedReturnNULL "g_compute_checksum_for_data" result + result' <- cstringToText result + freeMem result + freeMem data_' + return result' + +-- function g_compute_checksum_for_string +-- Args : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", 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 = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", 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 = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_compute_checksum_for_string" g_compute_checksum_for_string :: + CUInt -> -- checksum_type : TInterface "GLib" "ChecksumType" + CString -> -- str : TBasicType TUTF8 + Int64 -> -- length : TBasicType TInt64 + IO CString + + +computeChecksumForString :: + (MonadIO m) => + ChecksumType -> -- checksum_type + T.Text -> -- str + Int64 -> -- length + m T.Text +computeChecksumForString checksum_type str length_ = liftIO $ do + let checksum_type' = (fromIntegral . fromEnum) checksum_type + str' <- textToCString str + result <- g_compute_checksum_for_string checksum_type' str' length_ + checkUnexpectedReturnNULL "g_compute_checksum_for_string" result + result' <- cstringToText result + freeMem result + freeMem str' + return result' + +-- function g_compute_hmac_for_data +-- Args : [Arg {argName = "digest_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_len", argType = TBasicType TUInt64, 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 = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "key_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "digest_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TCArray False (-1) 2 (TBasicType TUInt8), 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 = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_compute_hmac_for_data" g_compute_hmac_for_data :: + CUInt -> -- digest_type : TInterface "GLib" "ChecksumType" + Ptr Word8 -> -- key : TCArray False (-1) 2 (TBasicType TUInt8) + Word64 -> -- key_len : TBasicType TUInt64 + Word8 -> -- data : TBasicType TUInt8 + Word64 -> -- length : TBasicType TUInt64 + IO CString + + +computeHmacForData :: + (MonadIO m) => + ChecksumType -> -- digest_type + ByteString -> -- key + Word8 -> -- data + Word64 -> -- length + m T.Text +computeHmacForData digest_type key data_ length_ = liftIO $ do + let key_len = fromIntegral $ B.length key + let digest_type' = (fromIntegral . fromEnum) digest_type + key' <- packByteString key + result <- g_compute_hmac_for_data digest_type' key' key_len data_ length_ + checkUnexpectedReturnNULL "g_compute_hmac_for_data" result + result' <- cstringToText result + freeMem result + freeMem key' + return result' + +-- function g_compute_hmac_for_string +-- Args : [Arg {argName = "digest_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_len", argType = TBasicType TUInt64, 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 = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "key_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "digest_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TCArray False (-1) 2 (TBasicType TUInt8), 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 = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_compute_hmac_for_string" g_compute_hmac_for_string :: + CUInt -> -- digest_type : TInterface "GLib" "ChecksumType" + Ptr Word8 -> -- key : TCArray False (-1) 2 (TBasicType TUInt8) + Word64 -> -- key_len : TBasicType TUInt64 + CString -> -- str : TBasicType TUTF8 + Int64 -> -- length : TBasicType TInt64 + IO CString + + +computeHmacForString :: + (MonadIO m) => + ChecksumType -> -- digest_type + ByteString -> -- key + T.Text -> -- str + Int64 -> -- length + m T.Text +computeHmacForString digest_type key str length_ = liftIO $ do + let key_len = fromIntegral $ B.length key + let digest_type' = (fromIntegral . fromEnum) digest_type + key' <- packByteString key + str' <- textToCString str + result <- g_compute_hmac_for_string digest_type' key' key_len str' length_ + checkUnexpectedReturnNULL "g_compute_hmac_for_string" result + result' <- cstringToText result + freeMem result + freeMem key' + freeMem str' + return result' + +-- function g_convert +-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "to_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "from_codeset", argType = TBasicType TUTF8, 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 : [] +-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "to_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "from_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "g_convert" g_convert :: + CString -> -- str : TBasicType TUTF8 + Int64 -> -- len : TBasicType TInt64 + CString -> -- to_codeset : TBasicType TUTF8 + CString -> -- from_codeset : TBasicType TUTF8 + Ptr Word64 -> -- bytes_read : TBasicType TUInt64 + Ptr Word64 -> -- bytes_written : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO CString + + +convert :: + (MonadIO m) => + T.Text -> -- str + Int64 -> -- len + T.Text -> -- to_codeset + T.Text -> -- from_codeset + m (T.Text,Word64,Word64) +convert str len to_codeset from_codeset = liftIO $ do + str' <- textToCString str + to_codeset' <- textToCString to_codeset + from_codeset' <- textToCString from_codeset + bytes_read <- allocMem :: IO (Ptr Word64) + bytes_written <- allocMem :: IO (Ptr Word64) + onException (do + result <- propagateGError $ g_convert str' len to_codeset' from_codeset' bytes_read bytes_written + checkUnexpectedReturnNULL "g_convert" result + result' <- cstringToText result + freeMem result + bytes_read' <- peek bytes_read + bytes_written' <- peek bytes_written + freeMem str' + freeMem to_codeset' + freeMem from_codeset' + freeMem bytes_read + freeMem bytes_written + return (result', bytes_read', bytes_written') + ) (do + freeMem str' + freeMem to_codeset' + freeMem from_codeset' + freeMem bytes_read + freeMem bytes_written + ) + +-- function g_convert_error_quark +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_convert_error_quark" g_convert_error_quark :: + IO Word32 + + +convertErrorQuark :: + (MonadIO m) => + m Word32 +convertErrorQuark = liftIO $ do + result <- g_convert_error_quark + return result + +-- function g_convert_with_fallback +-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "to_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "from_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fallback", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, 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},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "to_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "from_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fallback", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "g_convert_with_fallback" g_convert_with_fallback :: + CString -> -- str : TBasicType TUTF8 + Int64 -> -- len : TBasicType TInt64 + CString -> -- to_codeset : TBasicType TUTF8 + CString -> -- from_codeset : TBasicType TUTF8 + CString -> -- fallback : TBasicType TUTF8 + Word64 -> -- bytes_read : TBasicType TUInt64 + Word64 -> -- bytes_written : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO CString + + +convertWithFallback :: + (MonadIO m) => + T.Text -> -- str + Int64 -> -- len + T.Text -> -- to_codeset + T.Text -> -- from_codeset + T.Text -> -- fallback + Word64 -> -- bytes_read + Word64 -> -- bytes_written + m T.Text +convertWithFallback str len to_codeset from_codeset fallback bytes_read bytes_written = liftIO $ do + str' <- textToCString str + to_codeset' <- textToCString to_codeset + from_codeset' <- textToCString from_codeset + fallback' <- textToCString fallback + onException (do + result <- propagateGError $ g_convert_with_fallback str' len to_codeset' from_codeset' fallback' bytes_read bytes_written + checkUnexpectedReturnNULL "g_convert_with_fallback" result + result' <- cstringToText result + freeMem result + freeMem str' + freeMem to_codeset' + freeMem from_codeset' + freeMem fallback' + return result' + ) (do + freeMem str' + freeMem to_codeset' + freeMem from_codeset' + freeMem fallback' + ) + +-- function g_convert_with_iconv +-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "converter", argType = TInterface "GLib" "IConv", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, 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},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "converter", argType = TInterface "GLib" "IConv", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "g_convert_with_iconv" g_convert_with_iconv :: + CString -> -- str : TBasicType TUTF8 + Int64 -> -- len : TBasicType TInt64 + Ptr IConv -> -- converter : TInterface "GLib" "IConv" + Word64 -> -- bytes_read : TBasicType TUInt64 + Word64 -> -- bytes_written : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO CString + + +convertWithIconv :: + (MonadIO m) => + T.Text -> -- str + Int64 -> -- len + IConv -> -- converter + Word64 -> -- bytes_read + Word64 -> -- bytes_written + m T.Text +convertWithIconv str len converter bytes_read bytes_written = liftIO $ do + str' <- textToCString str + let converter' = unsafeManagedPtrGetPtr converter + onException (do + result <- propagateGError $ g_convert_with_iconv str' len converter' bytes_read bytes_written + checkUnexpectedReturnNULL "g_convert_with_iconv" result + result' <- cstringToText result + freeMem result + touchManagedPtr converter + freeMem str' + return result' + ) (do + freeMem str' + ) + +-- function g_datalist_clear +-- Args : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_datalist_clear" g_datalist_clear :: + Ptr Data -> -- datalist : TInterface "GLib" "Data" + IO () + + +datalistClear :: + (MonadIO m) => + Data -> -- datalist + m () +datalistClear datalist = liftIO $ do + let datalist' = unsafeManagedPtrGetPtr datalist + g_datalist_clear datalist' + touchManagedPtr datalist + return () + +-- function g_datalist_get_flags +-- Args : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_datalist_get_flags" g_datalist_get_flags :: + Ptr Data -> -- datalist : TInterface "GLib" "Data" + IO Word32 + + +datalistGetFlags :: + (MonadIO m) => + Data -> -- datalist + m Word32 +datalistGetFlags datalist = liftIO $ do + let datalist' = unsafeManagedPtrGetPtr datalist + result <- g_datalist_get_flags datalist' + touchManagedPtr datalist + return result + +-- function g_datalist_id_replace_data +-- Args : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, 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},Arg {argName = "old_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, 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},Arg {argName = "old_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_datalist_id_replace_data" g_datalist_id_replace_data :: + Ptr Data -> -- datalist : TInterface "GLib" "Data" + Word32 -> -- key_id : TBasicType TUInt32 + Ptr () -> -- oldval : TBasicType TVoid + Ptr () -> -- newval : TBasicType TVoid + FunPtr DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" + FunPtr DestroyNotifyC -> -- old_destroy : TInterface "GLib" "DestroyNotify" + IO CInt + + +datalistIdReplaceData :: + (MonadIO m) => + Data -> -- datalist + Word32 -> -- key_id + Maybe (Ptr ()) -> -- oldval + Maybe (Ptr ()) -> -- newval + Maybe (DestroyNotify) -> -- destroy + Maybe (DestroyNotify) -> -- old_destroy + m Bool +datalistIdReplaceData datalist key_id oldval newval destroy old_destroy = liftIO $ do + let datalist' = unsafeManagedPtrGetPtr datalist + maybeOldval <- case oldval of + Nothing -> return nullPtr + Just jOldval -> do + return jOldval + maybeNewval <- case newval of + Nothing -> return nullPtr + Just jNewval -> do + return jNewval + ptrdestroy <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC)) + maybeDestroy <- case destroy of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jDestroy -> do + jDestroy' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrdestroy) jDestroy) + poke ptrdestroy jDestroy' + return jDestroy' + ptrold_destroy <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC)) + maybeOld_destroy <- case old_destroy of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jOld_destroy -> do + jOld_destroy' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrold_destroy) jOld_destroy) + poke ptrold_destroy jOld_destroy' + return jOld_destroy' + result <- g_datalist_id_replace_data datalist' key_id maybeOldval maybeNewval maybeDestroy maybeOld_destroy + let result' = (/= 0) result + touchManagedPtr datalist + return result' + +-- function g_datalist_id_set_data_full +-- Args : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_datalist_id_set_data_full" g_datalist_id_set_data_full :: + Ptr Data -> -- datalist : TInterface "GLib" "Data" + Word32 -> -- key_id : TBasicType TUInt32 + Ptr () -> -- data : TBasicType TVoid + FunPtr DestroyNotifyC -> -- destroy_func : TInterface "GLib" "DestroyNotify" + IO () + + +datalistIdSetDataFull :: + (MonadIO m) => + Data -> -- datalist + Word32 -> -- key_id + Maybe (Ptr ()) -> -- data + DestroyNotify -> -- destroy_func + m () +datalistIdSetDataFull datalist key_id data_ destroy_func = liftIO $ do + let datalist' = unsafeManagedPtrGetPtr datalist + maybeData_ <- case data_ of + Nothing -> return nullPtr + Just jData_ -> do + return jData_ + ptrdestroy_func <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC)) + destroy_func' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrdestroy_func) destroy_func) + poke ptrdestroy_func destroy_func' + g_datalist_id_set_data_full datalist' key_id maybeData_ destroy_func' + touchManagedPtr datalist + return () + +-- function g_datalist_init +-- Args : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_datalist_init" g_datalist_init :: + Ptr Data -> -- datalist : TInterface "GLib" "Data" + IO () + + +datalistInit :: + (MonadIO m) => + Data -> -- datalist + m () +datalistInit datalist = liftIO $ do + let datalist' = unsafeManagedPtrGetPtr datalist + g_datalist_init datalist' + touchManagedPtr datalist + return () + +-- function g_datalist_set_flags +-- Args : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", 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_datalist_set_flags" g_datalist_set_flags :: + Ptr Data -> -- datalist : TInterface "GLib" "Data" + Word32 -> -- flags : TBasicType TUInt32 + IO () + + +datalistSetFlags :: + (MonadIO m) => + Data -> -- datalist + Word32 -> -- flags + m () +datalistSetFlags datalist flags = liftIO $ do + let datalist' = unsafeManagedPtrGetPtr datalist + g_datalist_set_flags datalist' flags + touchManagedPtr datalist + return () + +-- function g_datalist_unset_flags +-- Args : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", 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_datalist_unset_flags" g_datalist_unset_flags :: + Ptr Data -> -- datalist : TInterface "GLib" "Data" + Word32 -> -- flags : TBasicType TUInt32 + IO () + + +datalistUnsetFlags :: + (MonadIO m) => + Data -> -- datalist + Word32 -> -- flags + m () +datalistUnsetFlags datalist flags = liftIO $ do + let datalist' = unsafeManagedPtrGetPtr datalist + g_datalist_unset_flags datalist' flags + touchManagedPtr datalist + return () + +-- function g_dataset_destroy +-- Args : [Arg {argName = "dataset_location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "dataset_location", 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_dataset_destroy" g_dataset_destroy :: + Ptr () -> -- dataset_location : TBasicType TVoid + IO () + + +datasetDestroy :: + (MonadIO m) => + Ptr () -> -- dataset_location + m () +datasetDestroy dataset_location = liftIO $ do + g_dataset_destroy dataset_location + return () + +-- function g_dataset_id_set_data_full +-- Args : [Arg {argName = "dataset_location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_id", argType = TBasicType TUInt32, 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},Arg {argName = "destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "dataset_location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_id", argType = TBasicType TUInt32, 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},Arg {argName = "destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_dataset_id_set_data_full" g_dataset_id_set_data_full :: + Ptr () -> -- dataset_location : TBasicType TVoid + Word32 -> -- key_id : TBasicType TUInt32 + Ptr () -> -- data : TBasicType TVoid + FunPtr DestroyNotifyC -> -- destroy_func : TInterface "GLib" "DestroyNotify" + IO () + + +datasetIdSetDataFull :: + (MonadIO m) => + Ptr () -> -- dataset_location + Word32 -> -- key_id + Ptr () -> -- data + DestroyNotify -> -- destroy_func + m () +datasetIdSetDataFull dataset_location key_id data_ destroy_func = liftIO $ do + ptrdestroy_func <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC)) + destroy_func' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrdestroy_func) destroy_func) + poke ptrdestroy_func destroy_func' + g_dataset_id_set_data_full dataset_location key_id data_ destroy_func' + return () + +-- function g_date_get_days_in_month +-- Args : [Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_get_days_in_month" g_date_get_days_in_month :: + CUInt -> -- month : TInterface "GLib" "DateMonth" + Word16 -> -- year : TBasicType TUInt16 + IO Word8 + + +dateGetDaysInMonth :: + (MonadIO m) => + DateMonth -> -- month + Word16 -> -- year + m Word8 +dateGetDaysInMonth month year = liftIO $ do + let month' = (fromIntegral . fromEnum) month + result <- g_date_get_days_in_month month' year + return result + +-- function g_date_get_monday_weeks_in_year +-- Args : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_get_monday_weeks_in_year" g_date_get_monday_weeks_in_year :: + Word16 -> -- year : TBasicType TUInt16 + IO Word8 + + +dateGetMondayWeeksInYear :: + (MonadIO m) => + Word16 -> -- year + m Word8 +dateGetMondayWeeksInYear year = liftIO $ do + result <- g_date_get_monday_weeks_in_year year + return result + +-- function g_date_get_sunday_weeks_in_year +-- Args : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_get_sunday_weeks_in_year" g_date_get_sunday_weeks_in_year :: + Word16 -> -- year : TBasicType TUInt16 + IO Word8 + + +dateGetSundayWeeksInYear :: + (MonadIO m) => + Word16 -> -- year + m Word8 +dateGetSundayWeeksInYear year = liftIO $ do + result <- g_date_get_sunday_weeks_in_year year + return result + +-- function g_date_is_leap_year +-- Args : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_is_leap_year" g_date_is_leap_year :: + Word16 -> -- year : TBasicType TUInt16 + IO CInt + + +dateIsLeapYear :: + (MonadIO m) => + Word16 -> -- year + m Bool +dateIsLeapYear year = liftIO $ do + result <- g_date_is_leap_year year + let result' = (/= 0) result + return result' + +-- function g_date_strftime +-- Args : [Arg {argName = "s", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "slen", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "date", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "s", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "slen", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "date", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_strftime" g_date_strftime :: + CString -> -- s : TBasicType TUTF8 + Word64 -> -- slen : TBasicType TUInt64 + CString -> -- format : TBasicType TUTF8 + Ptr Date -> -- date : TInterface "GLib" "Date" + IO Word64 + + +dateStrftime :: + (MonadIO m) => + T.Text -> -- s + Word64 -> -- slen + T.Text -> -- format + Date -> -- date + m Word64 +dateStrftime s slen format date = liftIO $ do + s' <- textToCString s + format' <- textToCString format + let date' = unsafeManagedPtrGetPtr date + result <- g_date_strftime s' slen format' date' + touchManagedPtr date + freeMem s' + freeMem format' + return result + +-- function g_date_time_compare +-- Args : [Arg {argName = "dt1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dt2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "dt1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dt2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_time_compare" g_date_time_compare :: + Ptr () -> -- dt1 : TBasicType TVoid + Ptr () -> -- dt2 : TBasicType TVoid + IO Int32 + + +dateTimeCompare :: + (MonadIO m) => + Ptr () -> -- dt1 + Ptr () -> -- dt2 + m Int32 +dateTimeCompare dt1 dt2 = liftIO $ do + result <- g_date_time_compare dt1 dt2 + return result + +-- function g_date_time_equal +-- Args : [Arg {argName = "dt1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dt2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "dt1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dt2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_time_equal" g_date_time_equal :: + Ptr () -> -- dt1 : TBasicType TVoid + Ptr () -> -- dt2 : TBasicType TVoid + IO CInt + + +dateTimeEqual :: + (MonadIO m) => + Ptr () -> -- dt1 + Ptr () -> -- dt2 + m Bool +dateTimeEqual dt1 dt2 = liftIO $ do + result <- g_date_time_equal dt1 dt2 + let result' = (/= 0) result + return result' + +-- function g_date_time_hash +-- Args : [Arg {argName = "datetime", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "datetime", 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_date_time_hash" g_date_time_hash :: + Ptr () -> -- datetime : TBasicType TVoid + IO Word32 + + +dateTimeHash :: + (MonadIO m) => + Ptr () -> -- datetime + m Word32 +dateTimeHash datetime = liftIO $ do + result <- g_date_time_hash datetime + return result + +-- function g_date_valid_day +-- Args : [Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_valid_day" g_date_valid_day :: + Word8 -> -- day : TBasicType TUInt8 + IO CInt + + +dateValidDay :: + (MonadIO m) => + Word8 -> -- day + m Bool +dateValidDay day = liftIO $ do + result <- g_date_valid_day day + let result' = (/= 0) result + return result' + +-- function g_date_valid_dmy +-- Args : [Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_valid_dmy" g_date_valid_dmy :: + Word8 -> -- day : TBasicType TUInt8 + CUInt -> -- month : TInterface "GLib" "DateMonth" + Word16 -> -- year : TBasicType TUInt16 + IO CInt + + +dateValidDmy :: + (MonadIO m) => + Word8 -> -- day + DateMonth -> -- month + Word16 -> -- year + m Bool +dateValidDmy day month year = liftIO $ do + let month' = (fromIntegral . fromEnum) month + result <- g_date_valid_dmy day month' year + let result' = (/= 0) result + return result' + +-- function g_date_valid_julian +-- Args : [Arg {argName = "julian_date", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "julian_date", 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_date_valid_julian" g_date_valid_julian :: + Word32 -> -- julian_date : TBasicType TUInt32 + IO CInt + + +dateValidJulian :: + (MonadIO m) => + Word32 -> -- julian_date + m Bool +dateValidJulian julian_date = liftIO $ do + result <- g_date_valid_julian julian_date + let result' = (/= 0) result + return result' + +-- function g_date_valid_month +-- Args : [Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_valid_month" g_date_valid_month :: + CUInt -> -- month : TInterface "GLib" "DateMonth" + IO CInt + + +dateValidMonth :: + (MonadIO m) => + DateMonth -> -- month + m Bool +dateValidMonth month = liftIO $ do + let month' = (fromIntegral . fromEnum) month + result <- g_date_valid_month month' + let result' = (/= 0) result + return result' + +-- function g_date_valid_weekday +-- Args : [Arg {argName = "weekday", argType = TInterface "GLib" "DateWeekday", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "weekday", argType = TInterface "GLib" "DateWeekday", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_valid_weekday" g_date_valid_weekday :: + CUInt -> -- weekday : TInterface "GLib" "DateWeekday" + IO CInt + + +dateValidWeekday :: + (MonadIO m) => + DateWeekday -> -- weekday + m Bool +dateValidWeekday weekday = liftIO $ do + let weekday' = (fromIntegral . fromEnum) weekday + result <- g_date_valid_weekday weekday' + let result' = (/= 0) result + return result' + +-- function g_date_valid_year +-- Args : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_date_valid_year" g_date_valid_year :: + Word16 -> -- year : TBasicType TUInt16 + IO CInt + + +dateValidYear :: + (MonadIO m) => + Word16 -> -- year + m Bool +dateValidYear year = liftIO $ do + result <- g_date_valid_year year + let result' = (/= 0) result + return result' + +-- function g_dcgettext +-- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "category", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "category", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_dcgettext" g_dcgettext :: + CString -> -- domain : TBasicType TUTF8 + CString -> -- msgid : TBasicType TUTF8 + Int32 -> -- category : TBasicType TInt32 + IO CString + + +dcgettext :: + (MonadIO m) => + Maybe (T.Text) -> -- domain + T.Text -> -- msgid + Int32 -> -- category + m T.Text +dcgettext domain msgid category = liftIO $ do + maybeDomain <- case domain of + Nothing -> return nullPtr + Just jDomain -> do + jDomain' <- textToCString jDomain + return jDomain' + msgid' <- textToCString msgid + result <- g_dcgettext maybeDomain msgid' category + checkUnexpectedReturnNULL "g_dcgettext" result + result' <- cstringToText result + freeMem maybeDomain + freeMem msgid' + return result' + +-- function g_dgettext +-- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", 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_dgettext" g_dgettext :: + CString -> -- domain : TBasicType TUTF8 + CString -> -- msgid : TBasicType TUTF8 + IO CString + + +dgettext :: + (MonadIO m) => + Maybe (T.Text) -> -- domain + T.Text -> -- msgid + m T.Text +dgettext domain msgid = liftIO $ do + maybeDomain <- case domain of + Nothing -> return nullPtr + Just jDomain -> do + jDomain' <- textToCString jDomain + return jDomain' + msgid' <- textToCString msgid + result <- g_dgettext maybeDomain msgid' + checkUnexpectedReturnNULL "g_dgettext" result + result' <- cstringToText result + freeMem maybeDomain + freeMem msgid' + return result' + +-- function g_dir_make_tmp +-- Args : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TFileName +-- throws : True +-- Skip return : False + +foreign import ccall "g_dir_make_tmp" g_dir_make_tmp :: + CString -> -- tmpl : TBasicType TFileName + Ptr (Ptr GError) -> -- error + IO CString + + +dirMakeTmp :: + (MonadIO m) => + Maybe ([Char]) -> -- tmpl + m [Char] +dirMakeTmp tmpl = liftIO $ do + maybeTmpl <- case tmpl of + Nothing -> return nullPtr + Just jTmpl -> do + jTmpl' <- stringToCString jTmpl + return jTmpl' + onException (do + result <- propagateGError $ g_dir_make_tmp maybeTmpl + checkUnexpectedReturnNULL "g_dir_make_tmp" result + result' <- cstringToString result + freeMem result + freeMem maybeTmpl + return result' + ) (do + freeMem maybeTmpl + ) + +-- function g_direct_equal +-- Args : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_direct_equal" g_direct_equal :: + Ptr () -> -- v1 : TBasicType TVoid + Ptr () -> -- v2 : TBasicType TVoid + IO CInt + + +directEqual :: + (MonadIO m) => + Maybe (Ptr ()) -> -- v1 + Maybe (Ptr ()) -> -- v2 + m Bool +directEqual v1 v2 = liftIO $ do + maybeV1 <- case v1 of + Nothing -> return nullPtr + Just jV1 -> do + return jV1 + maybeV2 <- case v2 of + Nothing -> return nullPtr + Just jV2 -> do + return jV2 + result <- g_direct_equal maybeV1 maybeV2 + let result' = (/= 0) result + return result' + +-- function g_direct_hash +-- Args : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_direct_hash" g_direct_hash :: + Ptr () -> -- v : TBasicType TVoid + IO Word32 + + +directHash :: + (MonadIO m) => + Maybe (Ptr ()) -> -- v + m Word32 +directHash v = liftIO $ do + maybeV <- case v of + Nothing -> return nullPtr + Just jV -> do + return jV + result <- g_direct_hash maybeV + return result + +-- function g_dngettext +-- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid_plural", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid_plural", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_dngettext" g_dngettext :: + CString -> -- domain : TBasicType TUTF8 + CString -> -- msgid : TBasicType TUTF8 + CString -> -- msgid_plural : TBasicType TUTF8 + Word64 -> -- n : TBasicType TUInt64 + IO CString + + +dngettext :: + (MonadIO m) => + Maybe (T.Text) -> -- domain + T.Text -> -- msgid + T.Text -> -- msgid_plural + Word64 -> -- n + m T.Text +dngettext domain msgid msgid_plural n = liftIO $ do + maybeDomain <- case domain of + Nothing -> return nullPtr + Just jDomain -> do + jDomain' <- textToCString jDomain + return jDomain' + msgid' <- textToCString msgid + msgid_plural' <- textToCString msgid_plural + result <- g_dngettext maybeDomain msgid' msgid_plural' n + checkUnexpectedReturnNULL "g_dngettext" result + result' <- cstringToText result + freeMem maybeDomain + freeMem msgid' + freeMem msgid_plural' + return result' + +-- function g_double_equal +-- Args : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_double_equal" g_double_equal :: + Ptr () -> -- v1 : TBasicType TVoid + Ptr () -> -- v2 : TBasicType TVoid + IO CInt + + +doubleEqual :: + (MonadIO m) => + Ptr () -> -- v1 + Ptr () -> -- v2 + m Bool +doubleEqual v1 v2 = liftIO $ do + result <- g_double_equal v1 v2 + let result' = (/= 0) result + return result' + +-- function g_double_hash +-- Args : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "v", 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_double_hash" g_double_hash :: + Ptr () -> -- v : TBasicType TVoid + IO Word32 + + +doubleHash :: + (MonadIO m) => + Ptr () -> -- v + m Word32 +doubleHash v = liftIO $ do + result <- g_double_hash v + return result + +-- function g_dpgettext +-- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgctxtid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgidoffset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgctxtid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgidoffset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_dpgettext" g_dpgettext :: + CString -> -- domain : TBasicType TUTF8 + CString -> -- msgctxtid : TBasicType TUTF8 + Word64 -> -- msgidoffset : TBasicType TUInt64 + IO CString + + +dpgettext :: + (MonadIO m) => + Maybe (T.Text) -> -- domain + T.Text -> -- msgctxtid + Word64 -> -- msgidoffset + m T.Text +dpgettext domain msgctxtid msgidoffset = liftIO $ do + maybeDomain <- case domain of + Nothing -> return nullPtr + Just jDomain -> do + jDomain' <- textToCString jDomain + return jDomain' + msgctxtid' <- textToCString msgctxtid + result <- g_dpgettext maybeDomain msgctxtid' msgidoffset + checkUnexpectedReturnNULL "g_dpgettext" result + result' <- cstringToText result + freeMem maybeDomain + freeMem msgctxtid' + return result' + +-- function g_dpgettext2 +-- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", 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_dpgettext2" g_dpgettext2 :: + CString -> -- domain : TBasicType TUTF8 + CString -> -- context : TBasicType TUTF8 + CString -> -- msgid : TBasicType TUTF8 + IO CString + + +dpgettext2 :: + (MonadIO m) => + Maybe (T.Text) -> -- domain + T.Text -> -- context + T.Text -> -- msgid + m T.Text +dpgettext2 domain context msgid = liftIO $ do + maybeDomain <- case domain of + Nothing -> return nullPtr + Just jDomain -> do + jDomain' <- textToCString jDomain + return jDomain' + context' <- textToCString context + msgid' <- textToCString msgid + result <- g_dpgettext2 maybeDomain context' msgid' + checkUnexpectedReturnNULL "g_dpgettext2" result + result' <- cstringToText result + freeMem maybeDomain + freeMem context' + freeMem msgid' + return result' + +-- function g_environ_getenv +-- Args : [Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, 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 + +foreign import ccall "g_environ_getenv" g_environ_getenv :: + Ptr CString -> -- envp : TCArray True (-1) (-1) (TBasicType TUTF8) + CString -> -- variable : TBasicType TUTF8 + IO CString + + +environGetenv :: + (MonadIO m) => + Maybe ([T.Text]) -> -- envp + T.Text -> -- variable + m T.Text +environGetenv envp variable = liftIO $ do + maybeEnvp <- case envp of + Nothing -> return nullPtr + Just jEnvp -> do + jEnvp' <- packZeroTerminatedUTF8CArray jEnvp + return jEnvp' + variable' <- textToCString variable + result <- g_environ_getenv maybeEnvp variable' + checkUnexpectedReturnNULL "g_environ_getenv" result + result' <- cstringToText result + mapZeroTerminatedCArray freeMem maybeEnvp + freeMem maybeEnvp + freeMem variable' + return result' + +-- function g_environ_setenv +-- Args : [Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},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 : TCArray True (-1) (-1) (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "g_environ_setenv" g_environ_setenv :: + Ptr CString -> -- envp : TCArray True (-1) (-1) (TBasicType TUTF8) + CString -> -- variable : TBasicType TUTF8 + CString -> -- value : TBasicType TUTF8 + CInt -> -- overwrite : TBasicType TBoolean + IO (Ptr CString) + + +environSetenv :: + (MonadIO m) => + Maybe ([T.Text]) -> -- envp + T.Text -> -- variable + T.Text -> -- value + Bool -> -- overwrite + m [T.Text] +environSetenv envp variable value overwrite = liftIO $ do + maybeEnvp <- case envp of + Nothing -> return nullPtr + Just jEnvp -> do + jEnvp' <- packZeroTerminatedUTF8CArray jEnvp + return jEnvp' + variable' <- textToCString variable + value' <- textToCString value + let overwrite' = (fromIntegral . fromEnum) overwrite + result <- g_environ_setenv maybeEnvp variable' value' overwrite' + checkUnexpectedReturnNULL "g_environ_setenv" result + result' <- unpackZeroTerminatedUTF8CArray result + mapZeroTerminatedCArray freeMem result + freeMem result + freeMem variable' + freeMem value' + return result' + +-- function g_environ_unsetenv +-- Args : [Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "variable", 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_environ_unsetenv" g_environ_unsetenv :: + Ptr CString -> -- envp : TCArray True (-1) (-1) (TBasicType TUTF8) + CString -> -- variable : TBasicType TUTF8 + IO (Ptr CString) + + +environUnsetenv :: + (MonadIO m) => + Maybe ([T.Text]) -> -- envp + T.Text -> -- variable + m [T.Text] +environUnsetenv envp variable = liftIO $ do + maybeEnvp <- case envp of + Nothing -> return nullPtr + Just jEnvp -> do + jEnvp' <- packZeroTerminatedUTF8CArray jEnvp + return jEnvp' + variable' <- textToCString variable + result <- g_environ_unsetenv maybeEnvp variable' + checkUnexpectedReturnNULL "g_environ_unsetenv" result + result' <- unpackZeroTerminatedUTF8CArray result + mapZeroTerminatedCArray freeMem result + freeMem result + freeMem variable' + return result' + +-- function g_file_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 "GLib" "FileError" +-- throws : False +-- Skip return : False + +foreign import ccall "g_file_error_from_errno" g_file_error_from_errno :: + Int32 -> -- err_no : TBasicType TInt32 + IO CUInt + + +fileErrorFromErrno :: + (MonadIO m) => + Int32 -> -- err_no + m FileError +fileErrorFromErrno err_no = liftIO $ do + result <- g_file_error_from_errno err_no + let result' = (toEnum . fromIntegral) result + return result' + +-- function g_file_error_quark +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_file_error_quark" g_file_error_quark :: + IO Word32 + + +fileErrorQuark :: + (MonadIO m) => + m Word32 +fileErrorQuark = liftIO $ do + result <- g_file_error_quark + return result + +-- function g_file_get_contents +-- Args : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contents", argType = TCArray False (-1) 2 (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}] +-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- hInArgs : [Arg {argName = "filename", argType = TBasicType TFileName, 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_get_contents" g_file_get_contents :: + CString -> -- filename : TBasicType TFileName + Ptr (Ptr Word8) -> -- contents : TCArray False (-1) 2 (TBasicType TUInt8) + Ptr Word64 -> -- length : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO CInt + + +fileGetContents :: + (MonadIO m) => + [Char] -> -- filename + m (ByteString) +fileGetContents filename = liftIO $ do + filename' <- stringToCString filename + contents <- allocMem :: IO (Ptr (Ptr Word8)) + length_ <- allocMem :: IO (Ptr Word64) + onException (do + _ <- propagateGError $ g_file_get_contents filename' contents length_ + length_' <- peek length_ + contents' <- peek contents + contents'' <- (unpackByteStringWithLength length_') contents' + freeMem contents' + freeMem filename' + freeMem contents + freeMem length_ + return contents'' + ) (do + freeMem filename' + freeMem contents + freeMem length_ + ) + +-- function g_file_open_tmp +-- Args : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name_used", argType = TBasicType TFileName, 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 : TBasicType TInt32 +-- throws : True +-- Skip return : False + +foreign import ccall "g_file_open_tmp" g_file_open_tmp :: + CString -> -- tmpl : TBasicType TFileName + Ptr CString -> -- name_used : TBasicType TFileName + Ptr (Ptr GError) -> -- error + IO Int32 + + +fileOpenTmp :: + (MonadIO m) => + Maybe ([Char]) -> -- tmpl + m (Int32,[Char]) +fileOpenTmp tmpl = liftIO $ do + maybeTmpl <- case tmpl of + Nothing -> return nullPtr + Just jTmpl -> do + jTmpl' <- stringToCString jTmpl + return jTmpl' + name_used <- allocMem :: IO (Ptr CString) + onException (do + result <- propagateGError $ g_file_open_tmp maybeTmpl name_used + name_used' <- peek name_used + name_used'' <- cstringToString name_used' + freeMem name_used' + freeMem maybeTmpl + freeMem name_used + return (result, name_used'') + ) (do + freeMem maybeTmpl + freeMem name_used + ) + +-- function g_file_read_link +-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "g_file_read_link" g_file_read_link :: + CString -> -- filename : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CString + + +fileReadLink :: + (MonadIO m) => + T.Text -> -- filename + m T.Text +fileReadLink filename = liftIO $ do + filename' <- textToCString filename + onException (do + result <- propagateGError $ g_file_read_link filename' + checkUnexpectedReturnNULL "g_file_read_link" result + result' <- cstringToText result + freeMem result + freeMem filename' + return result' + ) (do + freeMem filename' + ) + +-- function g_file_set_contents +-- Args : [Arg {argName = "filename", argType = TBasicType TFileName, 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 TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "filename", argType = TBasicType TFileName, 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}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_file_set_contents" g_file_set_contents :: + CString -> -- filename : TBasicType TFileName + Ptr Word8 -> -- contents : TCArray False (-1) 2 (TBasicType TUInt8) + Int64 -> -- length : TBasicType TInt64 + Ptr (Ptr GError) -> -- error + IO CInt + + +fileSetContents :: + (MonadIO m) => + [Char] -> -- filename + ByteString -> -- contents + m () +fileSetContents filename contents = liftIO $ do + let length_ = fromIntegral $ B.length contents + filename' <- stringToCString filename + contents' <- packByteString contents + onException (do + _ <- propagateGError $ g_file_set_contents filename' contents' length_ + freeMem filename' + freeMem contents' + return () + ) (do + freeMem filename' + freeMem contents' + ) + +-- function g_file_test +-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test", argType = TInterface "GLib" "FileTest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test", argType = TInterface "GLib" "FileTest", 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_test" g_file_test :: + CString -> -- filename : TBasicType TUTF8 + CUInt -> -- test : TInterface "GLib" "FileTest" + IO CInt + + +fileTest :: + (MonadIO m) => + T.Text -> -- filename + [FileTest] -> -- test + m Bool +fileTest filename test = liftIO $ do + filename' <- textToCString filename + let test' = gflagsToWord test + result <- g_file_test filename' test' + let result' = (/= 0) result + freeMem filename' + return result' + +-- function g_filename_display_basename +-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "filename", 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_filename_display_basename" g_filename_display_basename :: + CString -> -- filename : TBasicType TUTF8 + IO CString + + +filenameDisplayBasename :: + (MonadIO m) => + T.Text -> -- filename + m T.Text +filenameDisplayBasename filename = liftIO $ do + filename' <- textToCString filename + result <- g_filename_display_basename filename' + checkUnexpectedReturnNULL "g_filename_display_basename" result + result' <- cstringToText result + freeMem result + freeMem filename' + return result' + +-- function g_filename_display_name +-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "filename", 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_filename_display_name" g_filename_display_name :: + CString -> -- filename : TBasicType TUTF8 + IO CString + + +filenameDisplayName :: + (MonadIO m) => + T.Text -> -- filename + m T.Text +filenameDisplayName filename = liftIO $ do + filename' <- textToCString filename + result <- g_filename_display_name filename' + checkUnexpectedReturnNULL "g_filename_display_name" result + result' <- cstringToText result + freeMem result + freeMem filename' + return result' + +-- function g_filename_from_uri +-- Args : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TFileName +-- throws : True +-- Skip return : False + +foreign import ccall "g_filename_from_uri" g_filename_from_uri :: + CString -> -- uri : TBasicType TUTF8 + Ptr CString -> -- hostname : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CString + + +filenameFromUri :: + (MonadIO m) => + T.Text -> -- uri + m ([Char],T.Text) +filenameFromUri uri = liftIO $ do + uri' <- textToCString uri + hostname <- allocMem :: IO (Ptr CString) + onException (do + result <- propagateGError $ g_filename_from_uri uri' hostname + checkUnexpectedReturnNULL "g_filename_from_uri" result + result' <- cstringToString result + freeMem result + hostname' <- peek hostname + hostname'' <- cstringToText hostname' + freeMem hostname' + freeMem uri' + freeMem hostname + return (result', hostname'') + ) (do + freeMem uri' + freeMem hostname + ) + +-- function g_filename_from_utf8 +-- Args : [Arg {argName = "utf8string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, 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 = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- hInArgs : [Arg {argName = "utf8string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TCArray False (-1) 3 (TBasicType TUInt8) +-- throws : True +-- Skip return : False + +foreign import ccall "g_filename_from_utf8" g_filename_from_utf8 :: + CString -> -- utf8string : TBasicType TUTF8 + Int64 -> -- len : TBasicType TInt64 + Ptr Word64 -> -- bytes_read : TBasicType TUInt64 + Ptr Word64 -> -- bytes_written : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO (Ptr Word8) + + +filenameFromUtf8 :: + (MonadIO m) => + T.Text -> -- utf8string + Int64 -> -- len + m (ByteString,Word64) +filenameFromUtf8 utf8string len = liftIO $ do + utf8string' <- textToCString utf8string + bytes_read <- allocMem :: IO (Ptr Word64) + bytes_written <- allocMem :: IO (Ptr Word64) + onException (do + result <- propagateGError $ g_filename_from_utf8 utf8string' len bytes_read bytes_written + bytes_written' <- peek bytes_written + checkUnexpectedReturnNULL "g_filename_from_utf8" result + result' <- (unpackByteStringWithLength bytes_written') result + freeMem result + bytes_read' <- peek bytes_read + freeMem utf8string' + freeMem bytes_read + freeMem bytes_written + return (result', bytes_read') + ) (do + freeMem utf8string' + freeMem bytes_read + freeMem bytes_written + ) + +-- function g_filename_to_uri +-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "g_filename_to_uri" g_filename_to_uri :: + CString -> -- filename : TBasicType TUTF8 + CString -> -- hostname : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CString + + +filenameToUri :: + (MonadIO m) => + T.Text -> -- filename + Maybe (T.Text) -> -- hostname + m T.Text +filenameToUri filename hostname = liftIO $ do + filename' <- textToCString filename + maybeHostname <- case hostname of + Nothing -> return nullPtr + Just jHostname -> do + jHostname' <- textToCString jHostname + return jHostname' + onException (do + result <- propagateGError $ g_filename_to_uri filename' maybeHostname + checkUnexpectedReturnNULL "g_filename_to_uri" result + result' <- cstringToText result + freeMem result + freeMem filename' + freeMem maybeHostname + return result' + ) (do + freeMem filename' + freeMem maybeHostname + ) + +-- function g_filename_to_utf8 +-- Args : [Arg {argName = "opsysstring", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "opsysstring", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "g_filename_to_utf8" g_filename_to_utf8 :: + CString -> -- opsysstring : TBasicType TUTF8 + Int64 -> -- len : TBasicType TInt64 + Word64 -> -- bytes_read : TBasicType TUInt64 + Word64 -> -- bytes_written : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO CString + + +filenameToUtf8 :: + (MonadIO m) => + T.Text -> -- opsysstring + Int64 -> -- len + Word64 -> -- bytes_read + Word64 -> -- bytes_written + m T.Text +filenameToUtf8 opsysstring len bytes_read bytes_written = liftIO $ do + opsysstring' <- textToCString opsysstring + onException (do + result <- propagateGError $ g_filename_to_utf8 opsysstring' len bytes_read bytes_written + checkUnexpectedReturnNULL "g_filename_to_utf8" result + result' <- cstringToText result + freeMem result + freeMem opsysstring' + return result' + ) (do + freeMem opsysstring' + ) + +-- function g_find_program_in_path +-- Args : [Arg {argName = "program", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "program", 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_find_program_in_path" g_find_program_in_path :: + CString -> -- program : TBasicType TUTF8 + IO CString + + +findProgramInPath :: + (MonadIO m) => + T.Text -> -- program + m T.Text +findProgramInPath program = liftIO $ do + program' <- textToCString program + result <- g_find_program_in_path program' + checkUnexpectedReturnNULL "g_find_program_in_path" result + result' <- cstringToText result + freeMem result + freeMem program' + return result' + +-- function g_format_size +-- Args : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_format_size" g_format_size :: + Word64 -> -- size : TBasicType TUInt64 + IO CString + + +formatSize :: + (MonadIO m) => + Word64 -> -- size + m T.Text +formatSize size = liftIO $ do + result <- g_format_size size + checkUnexpectedReturnNULL "g_format_size" result + result' <- cstringToText result + freeMem result + return result' + +-- function g_format_size_for_display +-- Args : [Arg {argName = "size", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "size", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_format_size_for_display" g_format_size_for_display :: + Int64 -> -- size : TBasicType TInt64 + IO CString + +{-# DEPRECATED formatSizeForDisplay ["(Since version 2.30)","This function is broken due to its use of SI"," suffixes to denote IEC units. Use g_format_size() instead."]#-} +formatSizeForDisplay :: + (MonadIO m) => + Int64 -> -- size + m T.Text +formatSizeForDisplay size = liftIO $ do + result <- g_format_size_for_display size + checkUnexpectedReturnNULL "g_format_size_for_display" result + result' <- cstringToText result + freeMem result + return result' + +-- function g_format_size_full +-- Args : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "FormatSizeFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "FormatSizeFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_format_size_full" g_format_size_full :: + Word64 -> -- size : TBasicType TUInt64 + CUInt -> -- flags : TInterface "GLib" "FormatSizeFlags" + IO CString + + +formatSizeFull :: + (MonadIO m) => + Word64 -> -- size + [FormatSizeFlags] -> -- flags + m T.Text +formatSizeFull size flags = liftIO $ do + let flags' = gflagsToWord flags + result <- g_format_size_full size flags' + checkUnexpectedReturnNULL "g_format_size_full" result + result' <- cstringToText result + freeMem result + return result' + +-- function g_free +-- Args : [Arg {argName = "mem", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "mem", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_free" g_free :: + Ptr () -> -- mem : TBasicType TVoid + IO () + + +free :: + (MonadIO m) => + Maybe (Ptr ()) -> -- mem + m () +free mem = liftIO $ do + maybeMem <- case mem of + Nothing -> return nullPtr + Just jMem -> do + return jMem + g_free maybeMem + return () + +-- function g_get_application_name +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_get_application_name" g_get_application_name :: + IO CString + + +getApplicationName :: + (MonadIO m) => + m T.Text +getApplicationName = liftIO $ do + result <- g_get_application_name + checkUnexpectedReturnNULL "g_get_application_name" result + result' <- cstringToText result + return result' + +-- function g_get_charset +-- Args : [Arg {argName = "charset", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_get_charset" g_get_charset :: + Ptr CString -> -- charset : TBasicType TUTF8 + IO CInt + + +getCharset :: + (MonadIO m) => + m (Bool,T.Text) +getCharset = liftIO $ do + charset <- allocMem :: IO (Ptr CString) + result <- g_get_charset charset + let result' = (/= 0) result + charset' <- peek charset + charset'' <- cstringToText charset' + freeMem charset + return (result', charset'') + +-- function g_get_codeset +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_get_codeset" g_get_codeset :: + IO CString + + +getCodeset :: + (MonadIO m) => + m T.Text +getCodeset = liftIO $ do + result <- g_get_codeset + checkUnexpectedReturnNULL "g_get_codeset" result + result' <- cstringToText result + freeMem result + return result' + +-- function g_get_current_dir +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_get_current_dir" g_get_current_dir :: + IO CString + + +getCurrentDir :: + (MonadIO m) => + m T.Text +getCurrentDir = liftIO $ do + result <- g_get_current_dir + checkUnexpectedReturnNULL "g_get_current_dir" result + result' <- cstringToText result + freeMem result + return result' + +-- function g_get_current_time +-- Args : [Arg {argName = "result", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "result", 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_get_current_time" g_get_current_time :: + Ptr TimeVal -> -- result : TInterface "GLib" "TimeVal" + IO () + + +getCurrentTime :: + (MonadIO m) => + TimeVal -> -- result + m () +getCurrentTime result_ = liftIO $ do + let result_' = unsafeManagedPtrGetPtr result_ + g_get_current_time result_' + touchManagedPtr result_ + return () + +-- function g_get_environ +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "g_get_environ" g_get_environ :: + IO (Ptr CString) + + +getEnviron :: + (MonadIO m) => + m [T.Text] +getEnviron = liftIO $ do + result <- g_get_environ + checkUnexpectedReturnNULL "g_get_environ" result + result' <- unpackZeroTerminatedUTF8CArray result + mapZeroTerminatedCArray freeMem result + freeMem result + return result' + +-- function g_get_filename_charsets +-- Args : [Arg {argName = "charsets", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "charsets", 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_get_filename_charsets" g_get_filename_charsets :: + CString -> -- charsets : TBasicType TUTF8 + IO CInt + + +getFilenameCharsets :: + (MonadIO m) => + T.Text -> -- charsets + m Bool +getFilenameCharsets charsets = liftIO $ do + charsets' <- textToCString charsets + result <- g_get_filename_charsets charsets' + let result' = (/= 0) result + freeMem charsets' + return result' + +-- function g_get_home_dir +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_get_home_dir" g_get_home_dir :: + IO CString + + +getHomeDir :: + (MonadIO m) => + m T.Text +getHomeDir = liftIO $ do + result <- g_get_home_dir + checkUnexpectedReturnNULL "g_get_home_dir" result + result' <- cstringToText result + return result' + +-- function g_get_host_name +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_get_host_name" g_get_host_name :: + IO CString + + +getHostName :: + (MonadIO m) => + m T.Text +getHostName = liftIO $ do + result <- g_get_host_name + checkUnexpectedReturnNULL "g_get_host_name" result + result' <- cstringToText result + return result' + +-- function g_get_language_names +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "g_get_language_names" g_get_language_names :: + IO (Ptr CString) + + +getLanguageNames :: + (MonadIO m) => + m [T.Text] +getLanguageNames = liftIO $ do + result <- g_get_language_names + checkUnexpectedReturnNULL "g_get_language_names" result + result' <- unpackZeroTerminatedUTF8CArray result + return result' + +-- function g_get_locale_variants +-- Args : [Arg {argName = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "locale", 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_get_locale_variants" g_get_locale_variants :: + CString -> -- locale : TBasicType TUTF8 + IO (Ptr CString) + + +getLocaleVariants :: + (MonadIO m) => + T.Text -> -- locale + m [T.Text] +getLocaleVariants locale = liftIO $ do + locale' <- textToCString locale + result <- g_get_locale_variants locale' + checkUnexpectedReturnNULL "g_get_locale_variants" result + result' <- unpackZeroTerminatedUTF8CArray result + mapZeroTerminatedCArray freeMem result + freeMem result + freeMem locale' + return result' + +-- function g_get_monotonic_time +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "g_get_monotonic_time" g_get_monotonic_time :: + IO Int64 + + +getMonotonicTime :: + (MonadIO m) => + m Int64 +getMonotonicTime = liftIO $ do + result <- g_get_monotonic_time + return result + +-- function g_get_num_processors +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_get_num_processors" g_get_num_processors :: + IO Word32 + + +getNumProcessors :: + (MonadIO m) => + m Word32 +getNumProcessors = liftIO $ do + result <- g_get_num_processors + return result + +-- function g_get_prgname +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_get_prgname" g_get_prgname :: + IO CString + + +getPrgname :: + (MonadIO m) => + m T.Text +getPrgname = liftIO $ do + result <- g_get_prgname + checkUnexpectedReturnNULL "g_get_prgname" result + result' <- cstringToText result + return result' + +-- function g_get_real_name +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_get_real_name" g_get_real_name :: + IO CString + + +getRealName :: + (MonadIO m) => + m T.Text +getRealName = liftIO $ do + result <- g_get_real_name + checkUnexpectedReturnNULL "g_get_real_name" result + result' <- cstringToText result + return result' + +-- function g_get_real_time +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "g_get_real_time" g_get_real_time :: + IO Int64 + + +getRealTime :: + (MonadIO m) => + m Int64 +getRealTime = liftIO $ do + result <- g_get_real_time + return result + +-- function g_get_system_config_dirs +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "g_get_system_config_dirs" g_get_system_config_dirs :: + IO (Ptr CString) + + +getSystemConfigDirs :: + (MonadIO m) => + m [T.Text] +getSystemConfigDirs = liftIO $ do + result <- g_get_system_config_dirs + checkUnexpectedReturnNULL "g_get_system_config_dirs" result + result' <- unpackZeroTerminatedUTF8CArray result + return result' + +-- function g_get_system_data_dirs +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "g_get_system_data_dirs" g_get_system_data_dirs :: + IO (Ptr CString) + + +getSystemDataDirs :: + (MonadIO m) => + m [T.Text] +getSystemDataDirs = liftIO $ do + result <- g_get_system_data_dirs + checkUnexpectedReturnNULL "g_get_system_data_dirs" result + result' <- unpackZeroTerminatedUTF8CArray result + return result' + +-- function g_get_tmp_dir +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_get_tmp_dir" g_get_tmp_dir :: + IO CString + + +getTmpDir :: + (MonadIO m) => + m T.Text +getTmpDir = liftIO $ do + result <- g_get_tmp_dir + checkUnexpectedReturnNULL "g_get_tmp_dir" result + result' <- cstringToText result + return result' + +-- function g_get_user_cache_dir +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_get_user_cache_dir" g_get_user_cache_dir :: + IO CString + + +getUserCacheDir :: + (MonadIO m) => + m T.Text +getUserCacheDir = liftIO $ do + result <- g_get_user_cache_dir + checkUnexpectedReturnNULL "g_get_user_cache_dir" result + result' <- cstringToText result + return result' + +-- function g_get_user_config_dir +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_get_user_config_dir" g_get_user_config_dir :: + IO CString + + +getUserConfigDir :: + (MonadIO m) => + m T.Text +getUserConfigDir = liftIO $ do + result <- g_get_user_config_dir + checkUnexpectedReturnNULL "g_get_user_config_dir" result + result' <- cstringToText result + return result' + +-- function g_get_user_data_dir +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_get_user_data_dir" g_get_user_data_dir :: + IO CString + + +getUserDataDir :: + (MonadIO m) => + m T.Text +getUserDataDir = liftIO $ do + result <- g_get_user_data_dir + checkUnexpectedReturnNULL "g_get_user_data_dir" result + result' <- cstringToText result + return result' + +-- function g_get_user_name +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_get_user_name" g_get_user_name :: + IO CString + + +getUserName :: + (MonadIO m) => + m T.Text +getUserName = liftIO $ do + result <- g_get_user_name + checkUnexpectedReturnNULL "g_get_user_name" result + result' <- cstringToText result + return result' + +-- function g_get_user_runtime_dir +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_get_user_runtime_dir" g_get_user_runtime_dir :: + IO CString + + +getUserRuntimeDir :: + (MonadIO m) => + m T.Text +getUserRuntimeDir = liftIO $ do + result <- g_get_user_runtime_dir + checkUnexpectedReturnNULL "g_get_user_runtime_dir" result + result' <- cstringToText result + return result' + +-- function g_get_user_special_dir +-- Args : [Arg {argName = "directory", argType = TInterface "GLib" "UserDirectory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "directory", argType = TInterface "GLib" "UserDirectory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_get_user_special_dir" g_get_user_special_dir :: + CUInt -> -- directory : TInterface "GLib" "UserDirectory" + IO CString + + +getUserSpecialDir :: + (MonadIO m) => + UserDirectory -> -- directory + m T.Text +getUserSpecialDir directory = liftIO $ do + let directory' = (fromIntegral . fromEnum) directory + result <- g_get_user_special_dir directory' + checkUnexpectedReturnNULL "g_get_user_special_dir" result + result' <- cstringToText result + return result' + +-- function g_getenv +-- Args : [Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [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 + +foreign import ccall "g_getenv" g_getenv :: + CString -> -- variable : TBasicType TUTF8 + IO CString + + +getenv :: + (MonadIO m) => + T.Text -> -- variable + m T.Text +getenv variable = liftIO $ do + variable' <- textToCString variable + result <- g_getenv variable' + checkUnexpectedReturnNULL "g_getenv" result + result' <- cstringToText result + freeMem variable' + return result' + +-- function g_hash_table_add +-- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_hash_table_add" g_hash_table_add :: + Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid) + Ptr () -> -- key : TBasicType TVoid + IO CInt + + +hashTableAdd :: + (MonadIO m) => + Map.Map (Ptr ()) (Ptr ()) -> -- hash_table + Ptr () -> -- key + m Bool +hashTableAdd hash_table key = liftIO $ do + let hash_table' = Map.toList hash_table + let hash_table'' = mapFirst ptrPackPtr hash_table' + let hash_table''' = mapSecond ptrPackPtr hash_table'' + hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table''' + result <- g_hash_table_add hash_table'''' key + let result' = (/= 0) result + unrefGHashTable hash_table'''' + return result' + +-- function g_hash_table_contains +-- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_hash_table_contains" g_hash_table_contains :: + Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid) + Ptr () -> -- key : TBasicType TVoid + IO CInt + + +hashTableContains :: + (MonadIO m) => + Map.Map (Ptr ()) (Ptr ()) -> -- hash_table + Ptr () -> -- key + m Bool +hashTableContains hash_table key = liftIO $ do + let hash_table' = Map.toList hash_table + let hash_table'' = mapFirst ptrPackPtr hash_table' + let hash_table''' = mapSecond ptrPackPtr hash_table'' + hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table''' + result <- g_hash_table_contains hash_table'''' key + let result' = (/= 0) result + unrefGHashTable hash_table'''' + return result' + +-- function g_hash_table_destroy +-- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (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_hash_table_destroy" g_hash_table_destroy :: + Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid) + IO () + + +hashTableDestroy :: + (MonadIO m) => + Map.Map (Ptr ()) (Ptr ()) -> -- hash_table + m () +hashTableDestroy hash_table = liftIO $ do + let hash_table' = Map.toList hash_table + let hash_table'' = mapFirst ptrPackPtr hash_table' + let hash_table''' = mapSecond ptrPackPtr hash_table'' + hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table''' + g_hash_table_destroy hash_table'''' + unrefGHashTable hash_table'''' + return () + +-- function g_hash_table_insert +-- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_hash_table_insert" g_hash_table_insert :: + Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid) + Ptr () -> -- key : TBasicType TVoid + Ptr () -> -- value : TBasicType TVoid + IO CInt + + +hashTableInsert :: + (MonadIO m) => + Map.Map (Ptr ()) (Ptr ()) -> -- hash_table + Ptr () -> -- key + Ptr () -> -- value + m Bool +hashTableInsert hash_table key value = liftIO $ do + let hash_table' = Map.toList hash_table + let hash_table'' = mapFirst ptrPackPtr hash_table' + let hash_table''' = mapSecond ptrPackPtr hash_table'' + hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table''' + result <- g_hash_table_insert hash_table'''' key value + let result' = (/= 0) result + unrefGHashTable hash_table'''' + return result' + +-- function g_hash_table_lookup_extended +-- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orig_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orig_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_hash_table_lookup_extended" g_hash_table_lookup_extended :: + Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid) + Ptr () -> -- lookup_key : TBasicType TVoid + Ptr () -> -- orig_key : TBasicType TVoid + Ptr () -> -- value : TBasicType TVoid + IO CInt + + +hashTableLookupExtended :: + (MonadIO m) => + Map.Map (Ptr ()) (Ptr ()) -> -- hash_table + Ptr () -> -- lookup_key + Maybe (Ptr ()) -> -- orig_key + Maybe (Ptr ()) -> -- value + m Bool +hashTableLookupExtended hash_table lookup_key orig_key value = liftIO $ do + let hash_table' = Map.toList hash_table + let hash_table'' = mapFirst ptrPackPtr hash_table' + let hash_table''' = mapSecond ptrPackPtr hash_table'' + hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table''' + maybeOrig_key <- case orig_key of + Nothing -> return nullPtr + Just jOrig_key -> do + return jOrig_key + maybeValue <- case value of + Nothing -> return nullPtr + Just jValue -> do + return jValue + result <- g_hash_table_lookup_extended hash_table'''' lookup_key maybeOrig_key maybeValue + let result' = (/= 0) result + unrefGHashTable hash_table'''' + return result' + +-- function g_hash_table_remove +-- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_hash_table_remove" g_hash_table_remove :: + Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid) + Ptr () -> -- key : TBasicType TVoid + IO CInt + + +hashTableRemove :: + (MonadIO m) => + Map.Map (Ptr ()) (Ptr ()) -> -- hash_table + Ptr () -> -- key + m Bool +hashTableRemove hash_table key = liftIO $ do + let hash_table' = Map.toList hash_table + let hash_table'' = mapFirst ptrPackPtr hash_table' + let hash_table''' = mapSecond ptrPackPtr hash_table'' + hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table''' + result <- g_hash_table_remove hash_table'''' key + let result' = (/= 0) result + unrefGHashTable hash_table'''' + return result' + +-- function g_hash_table_remove_all +-- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (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_hash_table_remove_all" g_hash_table_remove_all :: + Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid) + IO () + + +hashTableRemoveAll :: + (MonadIO m) => + Map.Map (Ptr ()) (Ptr ()) -> -- hash_table + m () +hashTableRemoveAll hash_table = liftIO $ do + let hash_table' = Map.toList hash_table + let hash_table'' = mapFirst ptrPackPtr hash_table' + let hash_table''' = mapSecond ptrPackPtr hash_table'' + hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table''' + g_hash_table_remove_all hash_table'''' + unrefGHashTable hash_table'''' + return () + +-- function g_hash_table_replace +-- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_hash_table_replace" g_hash_table_replace :: + Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid) + Ptr () -> -- key : TBasicType TVoid + Ptr () -> -- value : TBasicType TVoid + IO CInt + + +hashTableReplace :: + (MonadIO m) => + Map.Map (Ptr ()) (Ptr ()) -> -- hash_table + Ptr () -> -- key + Ptr () -> -- value + m Bool +hashTableReplace hash_table key value = liftIO $ do + let hash_table' = Map.toList hash_table + let hash_table'' = mapFirst ptrPackPtr hash_table' + let hash_table''' = mapSecond ptrPackPtr hash_table'' + hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table''' + result <- g_hash_table_replace hash_table'''' key value + let result' = (/= 0) result + unrefGHashTable hash_table'''' + return result' + +-- function g_hash_table_size +-- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (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_hash_table_size" g_hash_table_size :: + Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid) + IO Word32 + + +hashTableSize :: + (MonadIO m) => + Map.Map (Ptr ()) (Ptr ()) -> -- hash_table + m Word32 +hashTableSize hash_table = liftIO $ do + let hash_table' = Map.toList hash_table + let hash_table'' = mapFirst ptrPackPtr hash_table' + let hash_table''' = mapSecond ptrPackPtr hash_table'' + hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table''' + result <- g_hash_table_size hash_table'''' + unrefGHashTable hash_table'''' + return result + +-- function g_hash_table_steal +-- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_hash_table_steal" g_hash_table_steal :: + Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid) + Ptr () -> -- key : TBasicType TVoid + IO CInt + + +hashTableSteal :: + (MonadIO m) => + Map.Map (Ptr ()) (Ptr ()) -> -- hash_table + Ptr () -> -- key + m Bool +hashTableSteal hash_table key = liftIO $ do + let hash_table' = Map.toList hash_table + let hash_table'' = mapFirst ptrPackPtr hash_table' + let hash_table''' = mapSecond ptrPackPtr hash_table'' + hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table''' + result <- g_hash_table_steal hash_table'''' key + let result' = (/= 0) result + unrefGHashTable hash_table'''' + return result' + +-- function g_hash_table_steal_all +-- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (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_hash_table_steal_all" g_hash_table_steal_all :: + Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid) + IO () + + +hashTableStealAll :: + (MonadIO m) => + Map.Map (Ptr ()) (Ptr ()) -> -- hash_table + m () +hashTableStealAll hash_table = liftIO $ do + let hash_table' = Map.toList hash_table + let hash_table'' = mapFirst ptrPackPtr hash_table' + let hash_table''' = mapSecond ptrPackPtr hash_table'' + hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table''' + g_hash_table_steal_all hash_table'''' + unrefGHashTable hash_table'''' + return () + +-- function g_hash_table_unref +-- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (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_hash_table_unref" g_hash_table_unref :: + Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid) + IO () + + +hashTableUnref :: + (MonadIO m) => + Map.Map (Ptr ()) (Ptr ()) -> -- hash_table + m () +hashTableUnref hash_table = liftIO $ do + let hash_table' = Map.toList hash_table + let hash_table'' = mapFirst ptrPackPtr hash_table' + let hash_table''' = mapSecond ptrPackPtr hash_table'' + hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table''' + g_hash_table_unref hash_table'''' + unrefGHashTable hash_table'''' + return () + +-- function g_hook_destroy +-- Args : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook_id", 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_hook_destroy" g_hook_destroy :: + Ptr HookList -> -- hook_list : TInterface "GLib" "HookList" + Word64 -> -- hook_id : TBasicType TUInt64 + IO CInt + + +hookDestroy :: + (MonadIO m) => + HookList -> -- hook_list + Word64 -> -- hook_id + m Bool +hookDestroy hook_list hook_id = liftIO $ do + let hook_list' = unsafeManagedPtrGetPtr hook_list + result <- g_hook_destroy hook_list' hook_id + let result' = (/= 0) result + touchManagedPtr hook_list + return result' + +-- function g_hook_destroy_link +-- Args : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_hook_destroy_link" g_hook_destroy_link :: + Ptr HookList -> -- hook_list : TInterface "GLib" "HookList" + Ptr Hook -> -- hook : TInterface "GLib" "Hook" + IO () + + +hookDestroyLink :: + (MonadIO m) => + HookList -> -- hook_list + Hook -> -- hook + m () +hookDestroyLink hook_list hook = liftIO $ do + let hook_list' = unsafeManagedPtrGetPtr hook_list + let hook' = unsafeManagedPtrGetPtr hook + g_hook_destroy_link hook_list' hook' + touchManagedPtr hook_list + touchManagedPtr hook + return () + +-- function g_hook_free +-- Args : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_hook_free" g_hook_free :: + Ptr HookList -> -- hook_list : TInterface "GLib" "HookList" + Ptr Hook -> -- hook : TInterface "GLib" "Hook" + IO () + + +hookFree :: + (MonadIO m) => + HookList -> -- hook_list + Hook -> -- hook + m () +hookFree hook_list hook = liftIO $ do + let hook_list' = unsafeManagedPtrGetPtr hook_list + let hook' = unsafeManagedPtrGetPtr hook + g_hook_free hook_list' hook' + touchManagedPtr hook_list + touchManagedPtr hook + return () + +-- function g_hook_insert_before +-- Args : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_hook_insert_before" g_hook_insert_before :: + Ptr HookList -> -- hook_list : TInterface "GLib" "HookList" + Ptr Hook -> -- sibling : TInterface "GLib" "Hook" + Ptr Hook -> -- hook : TInterface "GLib" "Hook" + IO () + + +hookInsertBefore :: + (MonadIO m) => + HookList -> -- hook_list + Hook -> -- sibling + Hook -> -- hook + m () +hookInsertBefore hook_list sibling hook = liftIO $ do + let hook_list' = unsafeManagedPtrGetPtr hook_list + let sibling' = unsafeManagedPtrGetPtr sibling + let hook' = unsafeManagedPtrGetPtr hook + g_hook_insert_before hook_list' sibling' hook' + touchManagedPtr hook_list + touchManagedPtr sibling + touchManagedPtr hook + return () + +-- function g_hook_prepend +-- Args : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_hook_prepend" g_hook_prepend :: + Ptr HookList -> -- hook_list : TInterface "GLib" "HookList" + Ptr Hook -> -- hook : TInterface "GLib" "Hook" + IO () + + +hookPrepend :: + (MonadIO m) => + HookList -> -- hook_list + Hook -> -- hook + m () +hookPrepend hook_list hook = liftIO $ do + let hook_list' = unsafeManagedPtrGetPtr hook_list + let hook' = unsafeManagedPtrGetPtr hook + g_hook_prepend hook_list' hook' + touchManagedPtr hook_list + touchManagedPtr hook + return () + +-- function g_hook_unref +-- Args : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_hook_unref" g_hook_unref :: + Ptr HookList -> -- hook_list : TInterface "GLib" "HookList" + Ptr Hook -> -- hook : TInterface "GLib" "Hook" + IO () + + +hookUnref :: + (MonadIO m) => + HookList -> -- hook_list + Hook -> -- hook + m () +hookUnref hook_list hook = liftIO $ do + let hook_list' = unsafeManagedPtrGetPtr hook_list + let hook' = unsafeManagedPtrGetPtr hook + g_hook_unref hook_list' hook' + touchManagedPtr hook_list + touchManagedPtr hook + return () + +-- function g_hostname_is_ascii_encoded +-- Args : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "hostname", 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_hostname_is_ascii_encoded" g_hostname_is_ascii_encoded :: + CString -> -- hostname : TBasicType TUTF8 + IO CInt + + +hostnameIsAsciiEncoded :: + (MonadIO m) => + T.Text -> -- hostname + m Bool +hostnameIsAsciiEncoded hostname = liftIO $ do + hostname' <- textToCString hostname + result <- g_hostname_is_ascii_encoded hostname' + let result' = (/= 0) result + freeMem hostname' + return result' + +-- function g_hostname_is_ip_address +-- Args : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "hostname", 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_hostname_is_ip_address" g_hostname_is_ip_address :: + CString -> -- hostname : TBasicType TUTF8 + IO CInt + + +hostnameIsIpAddress :: + (MonadIO m) => + T.Text -> -- hostname + m Bool +hostnameIsIpAddress hostname = liftIO $ do + hostname' <- textToCString hostname + result <- g_hostname_is_ip_address hostname' + let result' = (/= 0) result + freeMem hostname' + return result' + +-- function g_hostname_is_non_ascii +-- Args : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "hostname", 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_hostname_is_non_ascii" g_hostname_is_non_ascii :: + CString -> -- hostname : TBasicType TUTF8 + IO CInt + + +hostnameIsNonAscii :: + (MonadIO m) => + T.Text -> -- hostname + m Bool +hostnameIsNonAscii hostname = liftIO $ do + hostname' <- textToCString hostname + result <- g_hostname_is_non_ascii hostname' + let result' = (/= 0) result + freeMem hostname' + return result' + +-- function g_hostname_to_ascii +-- Args : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "hostname", 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_hostname_to_ascii" g_hostname_to_ascii :: + CString -> -- hostname : TBasicType TUTF8 + IO CString + + +hostnameToAscii :: + (MonadIO m) => + T.Text -> -- hostname + m T.Text +hostnameToAscii hostname = liftIO $ do + hostname' <- textToCString hostname + result <- g_hostname_to_ascii hostname' + checkUnexpectedReturnNULL "g_hostname_to_ascii" result + result' <- cstringToText result + freeMem result + freeMem hostname' + return result' + +-- function g_hostname_to_unicode +-- Args : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "hostname", 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_hostname_to_unicode" g_hostname_to_unicode :: + CString -> -- hostname : TBasicType TUTF8 + IO CString + + +hostnameToUnicode :: + (MonadIO m) => + T.Text -> -- hostname + m T.Text +hostnameToUnicode hostname = liftIO $ do + hostname' <- textToCString hostname + result <- g_hostname_to_unicode hostname' + checkUnexpectedReturnNULL "g_hostname_to_unicode" result + result' <- cstringToText result + freeMem result + freeMem hostname' + return result' + +-- function g_iconv +-- Args : [Arg {argName = "converter", argType = TInterface "GLib" "IConv", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inbuf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inbytes_left", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "outbuf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "outbytes_left", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "converter", argType = TInterface "GLib" "IConv", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inbuf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inbytes_left", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "outbuf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "outbytes_left", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "g_iconv" g_iconv :: + Ptr IConv -> -- converter : TInterface "GLib" "IConv" + CString -> -- inbuf : TBasicType TUTF8 + Word64 -> -- inbytes_left : TBasicType TUInt64 + CString -> -- outbuf : TBasicType TUTF8 + Word64 -> -- outbytes_left : TBasicType TUInt64 + IO Word64 + + +iconv :: + (MonadIO m) => + IConv -> -- converter + T.Text -> -- inbuf + Word64 -> -- inbytes_left + T.Text -> -- outbuf + Word64 -> -- outbytes_left + m Word64 +iconv converter inbuf inbytes_left outbuf outbytes_left = liftIO $ do + let converter' = unsafeManagedPtrGetPtr converter + inbuf' <- textToCString inbuf + outbuf' <- textToCString outbuf + result <- g_iconv converter' inbuf' inbytes_left outbuf' outbytes_left + touchManagedPtr converter + freeMem inbuf' + freeMem outbuf' + return result + +-- function g_idle_add_full +-- Args : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", 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 = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_idle_add_full" g_idle_add_full :: + Int32 -> -- priority : TBasicType TInt32 + FunPtr SourceFuncC -> -- function : TInterface "GLib" "SourceFunc" + Ptr () -> -- data : TBasicType TVoid + FunPtr DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" + IO Word32 + + +idleAdd :: + (MonadIO m) => + Int32 -> -- priority + SourceFunc -> -- function + m Word32 +idleAdd priority function = liftIO $ do + function' <- mkSourceFunc (sourceFuncWrapper Nothing function) + let data_ = castFunPtrToPtr function' + let notify = safeFreeFunPtrPtr + result <- g_idle_add_full priority function' data_ notify + return result + +-- function g_idle_remove_by_data +-- Args : [Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_idle_remove_by_data" g_idle_remove_by_data :: + Ptr () -> -- data : TBasicType TVoid + IO CInt + + +idleRemoveByData :: + (MonadIO m) => + Ptr () -> -- data + m Bool +idleRemoveByData data_ = liftIO $ do + result <- g_idle_remove_by_data data_ + let result' = (/= 0) result + return result' + +-- function g_idle_source_new +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "GLib" "Source" +-- throws : False +-- Skip return : False + +foreign import ccall "g_idle_source_new" g_idle_source_new :: + IO (Ptr Source) + + +idleSourceNew :: + (MonadIO m) => + m Source +idleSourceNew = liftIO $ do + result <- g_idle_source_new + checkUnexpectedReturnNULL "g_idle_source_new" result + result' <- (wrapBoxed Source) result + return result' + +-- function g_int64_equal +-- Args : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_int64_equal" g_int64_equal :: + Ptr () -> -- v1 : TBasicType TVoid + Ptr () -> -- v2 : TBasicType TVoid + IO CInt + + +int64Equal :: + (MonadIO m) => + Ptr () -> -- v1 + Ptr () -> -- v2 + m Bool +int64Equal v1 v2 = liftIO $ do + result <- g_int64_equal v1 v2 + let result' = (/= 0) result + return result' + +-- function g_int64_hash +-- Args : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "v", 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_int64_hash" g_int64_hash :: + Ptr () -> -- v : TBasicType TVoid + IO Word32 + + +int64Hash :: + (MonadIO m) => + Ptr () -> -- v + m Word32 +int64Hash v = liftIO $ do + result <- g_int64_hash v + return result + +-- function g_int_equal +-- Args : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_int_equal" g_int_equal :: + Ptr () -> -- v1 : TBasicType TVoid + Ptr () -> -- v2 : TBasicType TVoid + IO CInt + + +intEqual :: + (MonadIO m) => + Ptr () -> -- v1 + Ptr () -> -- v2 + m Bool +intEqual v1 v2 = liftIO $ do + result <- g_int_equal v1 v2 + let result' = (/= 0) result + return result' + +-- function g_int_hash +-- Args : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "v", 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_int_hash" g_int_hash :: + Ptr () -> -- v : TBasicType TVoid + IO Word32 + + +intHash :: + (MonadIO m) => + Ptr () -> -- v + m Word32 +intHash v = liftIO $ do + result <- g_int_hash v + return result + +-- function g_intern_static_string +-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_intern_static_string" g_intern_static_string :: + CString -> -- string : TBasicType TUTF8 + IO CString + + +internStaticString :: + (MonadIO m) => + Maybe (T.Text) -> -- string + m T.Text +internStaticString string = liftIO $ do + maybeString <- case string of + Nothing -> return nullPtr + Just jString -> do + jString' <- textToCString jString + return jString' + result <- g_intern_static_string maybeString + checkUnexpectedReturnNULL "g_intern_static_string" result + result' <- cstringToText result + freeMem maybeString + return result' + +-- function g_intern_string +-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_intern_string" g_intern_string :: + CString -> -- string : TBasicType TUTF8 + IO CString + + +internString :: + (MonadIO m) => + Maybe (T.Text) -> -- string + m T.Text +internString string = liftIO $ do + maybeString <- case string of + Nothing -> return nullPtr + Just jString -> do + jString' <- textToCString jString + return jString' + result <- g_intern_string maybeString + checkUnexpectedReturnNULL "g_intern_string" result + result' <- cstringToText result + freeMem maybeString + return result' + +-- function g_io_add_watch_full +-- Args : [Arg {argName = "channel", argType = TInterface "GLib" "IOChannel", 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},Arg {argName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "IOFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 4, argDestroy = 5, 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 = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "channel", argType = TInterface "GLib" "IOChannel", 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},Arg {argName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "IOFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 4, argDestroy = 5, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_io_add_watch_full" g_io_add_watch_full :: + Ptr IOChannel -> -- channel : TInterface "GLib" "IOChannel" + Int32 -> -- priority : TBasicType TInt32 + CUInt -> -- condition : TInterface "GLib" "IOCondition" + FunPtr IOFuncC -> -- func : TInterface "GLib" "IOFunc" + Ptr () -> -- user_data : TBasicType TVoid + FunPtr DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" + IO Word32 + + +ioAddWatch :: + (MonadIO m) => + IOChannel -> -- channel + Int32 -> -- priority + [IOCondition] -> -- condition + IOFunc -> -- func + m Word32 +ioAddWatch channel priority condition func = liftIO $ do + let channel' = unsafeManagedPtrGetPtr channel + let condition' = gflagsToWord condition + func' <- mkIOFunc (iOFuncWrapper Nothing func) + let user_data = castFunPtrToPtr func' + let notify = safeFreeFunPtrPtr + result <- g_io_add_watch_full channel' priority condition' func' user_data notify + touchManagedPtr channel + return result + +-- function g_io_channel_error_from_errno +-- Args : [Arg {argName = "en", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "en", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "IOChannelError" +-- throws : False +-- Skip return : False + +foreign import ccall "g_io_channel_error_from_errno" g_io_channel_error_from_errno :: + Int32 -> -- en : TBasicType TInt32 + IO CUInt + + +ioChannelErrorFromErrno :: + (MonadIO m) => + Int32 -> -- en + m IOChannelError +ioChannelErrorFromErrno en = liftIO $ do + result <- g_io_channel_error_from_errno en + let result' = (toEnum . fromIntegral) result + return result' + +-- function g_io_channel_error_quark +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_io_channel_error_quark" g_io_channel_error_quark :: + IO Word32 + + +ioChannelErrorQuark :: + (MonadIO m) => + m Word32 +ioChannelErrorQuark = liftIO $ do + result <- g_io_channel_error_quark + return result + +-- function g_io_create_watch +-- Args : [Arg {argName = "channel", argType = TInterface "GLib" "IOChannel", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "channel", argType = TInterface "GLib" "IOChannel", 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" "Source" +-- throws : False +-- Skip return : False + +foreign import ccall "g_io_create_watch" g_io_create_watch :: + Ptr IOChannel -> -- channel : TInterface "GLib" "IOChannel" + CUInt -> -- condition : TInterface "GLib" "IOCondition" + IO (Ptr Source) + + +ioCreateWatch :: + (MonadIO m) => + IOChannel -> -- channel + [IOCondition] -> -- condition + m Source +ioCreateWatch channel condition = liftIO $ do + let channel' = unsafeManagedPtrGetPtr channel + let condition' = gflagsToWord condition + result <- g_io_create_watch channel' condition' + checkUnexpectedReturnNULL "g_io_create_watch" result + result' <- (wrapBoxed Source) result + touchManagedPtr channel + return result' + +-- function g_key_file_error_quark +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_key_file_error_quark" g_key_file_error_quark :: + IO Word32 + + +keyFileErrorQuark :: + (MonadIO m) => + m Word32 +keyFileErrorQuark = liftIO $ do + result <- g_key_file_error_quark + return result + +-- function g_listenv +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "g_listenv" g_listenv :: + IO (Ptr CString) + + +listenv :: + (MonadIO m) => + m [T.Text] +listenv = liftIO $ do + result <- g_listenv + checkUnexpectedReturnNULL "g_listenv" result + result' <- unpackZeroTerminatedUTF8CArray result + mapZeroTerminatedCArray freeMem result + freeMem result + return result' + +-- function g_locale_from_utf8 +-- Args : [Arg {argName = "utf8string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "utf8string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "g_locale_from_utf8" g_locale_from_utf8 :: + CString -> -- utf8string : TBasicType TUTF8 + Int64 -> -- len : TBasicType TInt64 + Word64 -> -- bytes_read : TBasicType TUInt64 + Word64 -> -- bytes_written : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO CString + + +localeFromUtf8 :: + (MonadIO m) => + T.Text -> -- utf8string + Int64 -> -- len + Word64 -> -- bytes_read + Word64 -> -- bytes_written + m T.Text +localeFromUtf8 utf8string len bytes_read bytes_written = liftIO $ do + utf8string' <- textToCString utf8string + onException (do + result <- propagateGError $ g_locale_from_utf8 utf8string' len bytes_read bytes_written + checkUnexpectedReturnNULL "g_locale_from_utf8" result + result' <- cstringToText result + freeMem result + freeMem utf8string' + return result' + ) (do + freeMem utf8string' + ) + +-- function g_locale_to_utf8 +-- Args : [Arg {argName = "opsysstring", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "opsysstring", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "g_locale_to_utf8" g_locale_to_utf8 :: + CString -> -- opsysstring : TBasicType TUTF8 + Int64 -> -- len : TBasicType TInt64 + Word64 -> -- bytes_read : TBasicType TUInt64 + Word64 -> -- bytes_written : TBasicType TUInt64 + Ptr (Ptr GError) -> -- error + IO CString + + +localeToUtf8 :: + (MonadIO m) => + T.Text -> -- opsysstring + Int64 -> -- len + Word64 -> -- bytes_read + Word64 -> -- bytes_written + m T.Text +localeToUtf8 opsysstring len bytes_read bytes_written = liftIO $ do + opsysstring' <- textToCString opsysstring + onException (do + result <- propagateGError $ g_locale_to_utf8 opsysstring' len bytes_read bytes_written + checkUnexpectedReturnNULL "g_locale_to_utf8" result + result' <- cstringToText result + freeMem result + freeMem opsysstring' + return result' + ) (do + freeMem opsysstring' + ) + +-- function g_log_default_handler +-- Args : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_level", argType = TInterface "GLib" "LogLevelFlags", 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},Arg {argName = "unused_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_level", argType = TInterface "GLib" "LogLevelFlags", 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},Arg {argName = "unused_data", 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_log_default_handler" g_log_default_handler :: + CString -> -- log_domain : TBasicType TUTF8 + CUInt -> -- log_level : TInterface "GLib" "LogLevelFlags" + CString -> -- message : TBasicType TUTF8 + Ptr () -> -- unused_data : TBasicType TVoid + IO () + + +logDefaultHandler :: + (MonadIO m) => + T.Text -> -- log_domain + [LogLevelFlags] -> -- log_level + T.Text -> -- message + Ptr () -> -- unused_data + m () +logDefaultHandler log_domain log_level message unused_data = liftIO $ do + log_domain' <- textToCString log_domain + let log_level' = gflagsToWord log_level + message' <- textToCString message + g_log_default_handler log_domain' log_level' message' unused_data + freeMem log_domain' + freeMem message' + return () + +-- function g_log_remove_handler +-- Args : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_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_log_remove_handler" g_log_remove_handler :: + CString -> -- log_domain : TBasicType TUTF8 + Word32 -> -- handler_id : TBasicType TUInt32 + IO () + + +logRemoveHandler :: + (MonadIO m) => + T.Text -> -- log_domain + Word32 -> -- handler_id + m () +logRemoveHandler log_domain handler_id = liftIO $ do + log_domain' <- textToCString log_domain + g_log_remove_handler log_domain' handler_id + freeMem log_domain' + return () + +-- function g_log_set_always_fatal +-- Args : [Arg {argName = "fatal_mask", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "fatal_mask", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "LogLevelFlags" +-- throws : False +-- Skip return : False + +foreign import ccall "g_log_set_always_fatal" g_log_set_always_fatal :: + CUInt -> -- fatal_mask : TInterface "GLib" "LogLevelFlags" + IO CUInt + + +logSetAlwaysFatal :: + (MonadIO m) => + [LogLevelFlags] -> -- fatal_mask + m [LogLevelFlags] +logSetAlwaysFatal fatal_mask = liftIO $ do + let fatal_mask' = gflagsToWord fatal_mask + result <- g_log_set_always_fatal fatal_mask' + let result' = wordToGFlags result + return result' + +-- function g_log_set_fatal_mask +-- Args : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fatal_mask", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fatal_mask", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "LogLevelFlags" +-- throws : False +-- Skip return : False + +foreign import ccall "g_log_set_fatal_mask" g_log_set_fatal_mask :: + CString -> -- log_domain : TBasicType TUTF8 + CUInt -> -- fatal_mask : TInterface "GLib" "LogLevelFlags" + IO CUInt + + +logSetFatalMask :: + (MonadIO m) => + T.Text -> -- log_domain + [LogLevelFlags] -> -- fatal_mask + m [LogLevelFlags] +logSetFatalMask log_domain fatal_mask = liftIO $ do + log_domain' <- textToCString log_domain + let fatal_mask' = gflagsToWord fatal_mask + result <- g_log_set_fatal_mask log_domain' fatal_mask' + let result' = wordToGFlags result + freeMem log_domain' + return result' + +-- function g_log_set_handler_full +-- Args : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_levels", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_func", argType = TInterface "GLib" "LogFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_levels", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_func", argType = TInterface "GLib" "LogFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_log_set_handler_full" g_log_set_handler_full :: + CString -> -- log_domain : TBasicType TUTF8 + CUInt -> -- log_levels : TInterface "GLib" "LogLevelFlags" + FunPtr LogFuncC -> -- log_func : TInterface "GLib" "LogFunc" + Ptr () -> -- user_data : TBasicType TVoid + FunPtr DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" + IO Word32 + + +logSetHandler :: + (MonadIO m) => + Maybe (T.Text) -> -- log_domain + [LogLevelFlags] -> -- log_levels + LogFunc -> -- log_func + m Word32 +logSetHandler log_domain log_levels log_func = liftIO $ do + maybeLog_domain <- case log_domain of + Nothing -> return nullPtr + Just jLog_domain -> do + jLog_domain' <- textToCString jLog_domain + return jLog_domain' + let log_levels' = gflagsToWord log_levels + log_func' <- mkLogFunc (logFuncWrapper Nothing log_func) + let user_data = castFunPtrToPtr log_func' + let destroy = safeFreeFunPtrPtr + result <- g_log_set_handler_full maybeLog_domain log_levels' log_func' user_data destroy + freeMem maybeLog_domain + return result + +-- function g_main_context_default +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "GLib" "MainContext" +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_context_default" g_main_context_default :: + IO (Ptr MainContext) + + +mainContextDefault :: + (MonadIO m) => + m MainContext +mainContextDefault = liftIO $ do + result <- g_main_context_default + checkUnexpectedReturnNULL "g_main_context_default" result + result' <- (newBoxed MainContext) result + return result' + +-- function g_main_context_get_thread_default +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "GLib" "MainContext" +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_context_get_thread_default" g_main_context_get_thread_default :: + IO (Ptr MainContext) + + +mainContextGetThreadDefault :: + (MonadIO m) => + m MainContext +mainContextGetThreadDefault = liftIO $ do + result <- g_main_context_get_thread_default + checkUnexpectedReturnNULL "g_main_context_get_thread_default" result + result' <- (newBoxed MainContext) result + return result' + +-- function g_main_context_ref_thread_default +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "GLib" "MainContext" +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_context_ref_thread_default" g_main_context_ref_thread_default :: + IO (Ptr MainContext) + + +mainContextRefThreadDefault :: + (MonadIO m) => + m MainContext +mainContextRefThreadDefault = liftIO $ do + result <- g_main_context_ref_thread_default + checkUnexpectedReturnNULL "g_main_context_ref_thread_default" result + result' <- (wrapBoxed MainContext) result + return result' + +-- function g_main_current_source +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "GLib" "Source" +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_current_source" g_main_current_source :: + IO (Ptr Source) + + +mainCurrentSource :: + (MonadIO m) => + m Source +mainCurrentSource = liftIO $ do + result <- g_main_current_source + checkUnexpectedReturnNULL "g_main_current_source" result + result' <- (newBoxed Source) result + return result' + +-- function g_main_depth +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_main_depth" g_main_depth :: + IO Int32 + + +mainDepth :: + (MonadIO m) => + m Int32 +mainDepth = liftIO $ do + result <- g_main_depth + return result + +-- function g_markup_error_quark +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_markup_error_quark" g_markup_error_quark :: + IO Word32 + + +markupErrorQuark :: + (MonadIO m) => + m Word32 +markupErrorQuark = liftIO $ do + result <- g_markup_error_quark + return result + +-- function g_markup_escape_text +-- Args : [Arg {argName = "text", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "text", 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 : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_markup_escape_text" g_markup_escape_text :: + CString -> -- text : TBasicType TUTF8 + Int64 -> -- length : TBasicType TInt64 + IO CString + + +markupEscapeText :: + (MonadIO m) => + T.Text -> -- text + Int64 -> -- length + m T.Text +markupEscapeText text length_ = liftIO $ do + text' <- textToCString text + result <- g_markup_escape_text text' length_ + checkUnexpectedReturnNULL "g_markup_escape_text" result + result' <- cstringToText result + freeMem result + freeMem text' + return result' + +-- function g_mem_is_system_malloc +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_mem_is_system_malloc" g_mem_is_system_malloc :: + IO CInt + +{-# DEPRECATED memIsSystemMalloc ["(Since version 2.46)","GLib always uses the system malloc, so this function always","returns %TRUE."]#-} +memIsSystemMalloc :: + (MonadIO m) => + m Bool +memIsSystemMalloc = liftIO $ do + result <- g_mem_is_system_malloc + let result' = (/= 0) result + return result' + +-- function g_mem_profile +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_mem_profile" g_mem_profile :: + IO () + +{-# DEPRECATED memProfile ["(Since version 2.46)","Use other memory profiling tools instead"]#-} +memProfile :: + (MonadIO m) => + m () +memProfile = liftIO $ do + g_mem_profile + return () + +-- function g_mem_set_vtable +-- Args : [Arg {argName = "vtable", argType = TInterface "GLib" "MemVTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "vtable", argType = TInterface "GLib" "MemVTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_mem_set_vtable" g_mem_set_vtable :: + Ptr MemVTable -> -- vtable : TInterface "GLib" "MemVTable" + IO () + +{-# DEPRECATED memSetVtable ["(Since version 2.46)","Use other memory profiling tools instead"]#-} +memSetVtable :: + (MonadIO m) => + MemVTable -> -- vtable + m () +memSetVtable vtable = liftIO $ do + let vtable' = unsafeManagedPtrGetPtr vtable + g_mem_set_vtable vtable' + touchManagedPtr vtable + return () + +-- function g_mkdir_with_parents +-- Args : [Arg {argName = "pathname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "pathname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_mkdir_with_parents" g_mkdir_with_parents :: + CString -> -- pathname : TBasicType TUTF8 + Int32 -> -- mode : TBasicType TInt32 + IO Int32 + + +mkdirWithParents :: + (MonadIO m) => + T.Text -> -- pathname + Int32 -> -- mode + m Int32 +mkdirWithParents pathname mode = liftIO $ do + pathname' <- textToCString pathname + result <- g_mkdir_with_parents pathname' mode + freeMem pathname' + return result + +-- function g_mkdtemp +-- Args : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_mkdtemp" g_mkdtemp :: + CString -> -- tmpl : TBasicType TFileName + IO CString + + +mkdtemp :: + (MonadIO m) => + [Char] -> -- tmpl + m T.Text +mkdtemp tmpl = liftIO $ do + tmpl' <- stringToCString tmpl + result <- g_mkdtemp tmpl' + checkUnexpectedReturnNULL "g_mkdtemp" result + result' <- cstringToText result + freeMem result + freeMem tmpl' + return result' + +-- function g_mkdtemp_full +-- Args : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_mkdtemp_full" g_mkdtemp_full :: + CString -> -- tmpl : TBasicType TFileName + Int32 -> -- mode : TBasicType TInt32 + IO CString + + +mkdtempFull :: + (MonadIO m) => + [Char] -> -- tmpl + Int32 -> -- mode + m T.Text +mkdtempFull tmpl mode = liftIO $ do + tmpl' <- stringToCString tmpl + result <- g_mkdtemp_full tmpl' mode + checkUnexpectedReturnNULL "g_mkdtemp_full" result + result' <- cstringToText result + freeMem result + freeMem tmpl' + return result' + +-- function g_mkstemp +-- Args : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_mkstemp" g_mkstemp :: + CString -> -- tmpl : TBasicType TFileName + IO Int32 + + +mkstemp :: + (MonadIO m) => + [Char] -> -- tmpl + m Int32 +mkstemp tmpl = liftIO $ do + tmpl' <- stringToCString tmpl + result <- g_mkstemp tmpl' + freeMem tmpl' + return result + +-- function g_mkstemp_full +-- Args : [Arg {argName = "tmpl", argType = TBasicType TFileName, 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 = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "tmpl", argType = TBasicType TFileName, 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 = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_mkstemp_full" g_mkstemp_full :: + CString -> -- tmpl : TBasicType TFileName + Int32 -> -- flags : TBasicType TInt32 + Int32 -> -- mode : TBasicType TInt32 + IO Int32 + + +mkstempFull :: + (MonadIO m) => + [Char] -> -- tmpl + Int32 -> -- flags + Int32 -> -- mode + m Int32 +mkstempFull tmpl flags mode = liftIO $ do + tmpl' <- stringToCString tmpl + result <- g_mkstemp_full tmpl' flags mode + freeMem tmpl' + return result + +-- function g_nullify_pointer +-- Args : [Arg {argName = "nullify_location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "nullify_location", 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_nullify_pointer" g_nullify_pointer :: + Ptr () -> -- nullify_location : TBasicType TVoid + IO () + + +nullifyPointer :: + (MonadIO m) => + Ptr () -> -- nullify_location + m () +nullifyPointer nullify_location = liftIO $ do + g_nullify_pointer nullify_location + return () + +-- function g_on_error_query +-- Args : [Arg {argName = "prg_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "prg_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_on_error_query" g_on_error_query :: + CString -> -- prg_name : TBasicType TUTF8 + IO () + + +onErrorQuery :: + (MonadIO m) => + T.Text -> -- prg_name + m () +onErrorQuery prg_name = liftIO $ do + prg_name' <- textToCString prg_name + g_on_error_query prg_name' + freeMem prg_name' + return () + +-- function g_on_error_stack_trace +-- Args : [Arg {argName = "prg_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "prg_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_on_error_stack_trace" g_on_error_stack_trace :: + CString -> -- prg_name : TBasicType TUTF8 + IO () + + +onErrorStackTrace :: + (MonadIO m) => + T.Text -> -- prg_name + m () +onErrorStackTrace prg_name = liftIO $ do + prg_name' <- textToCString prg_name + g_on_error_stack_trace prg_name' + freeMem prg_name' + return () + +-- function g_once_init_enter +-- Args : [Arg {argName = "location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_once_init_enter" g_once_init_enter :: + Ptr () -> -- location : TBasicType TVoid + IO CInt + + +onceInitEnter :: + (MonadIO m) => + Ptr () -> -- location + m Bool +onceInitEnter location = liftIO $ do + result <- g_once_init_enter location + let result' = (/= 0) result + return result' + +-- function g_once_init_leave +-- Args : [Arg {argName = "location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", 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_once_init_leave" g_once_init_leave :: + Ptr () -> -- location : TBasicType TVoid + Word64 -> -- result : TBasicType TUInt64 + IO () + + +onceInitLeave :: + (MonadIO m) => + Ptr () -> -- location + Word64 -> -- result + m () +onceInitLeave location result_ = liftIO $ do + g_once_init_leave location result_ + return () + +-- function g_option_error_quark +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_option_error_quark" g_option_error_quark :: + IO Word32 + + +optionErrorQuark :: + (MonadIO m) => + m Word32 +optionErrorQuark = liftIO $ do + result <- g_option_error_quark + return result + +-- function g_parse_debug_string +-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keys", argType = TCArray False (-1) 2 (TInterface "GLib" "DebugKey"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nkeys", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "nkeys", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keys", argType = TCArray False (-1) 2 (TInterface "GLib" "DebugKey"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_parse_debug_string" g_parse_debug_string :: + CString -> -- string : TBasicType TUTF8 + Ptr DebugKey -> -- keys : TCArray False (-1) 2 (TInterface "GLib" "DebugKey") + Word32 -> -- nkeys : TBasicType TUInt32 + IO Word32 + + +parseDebugString :: + (MonadIO m) => + Maybe (T.Text) -> -- string + [DebugKey] -> -- keys + m Word32 +parseDebugString string keys = liftIO $ do + let nkeys = fromIntegral $ length keys + maybeString <- case string of + Nothing -> return nullPtr + Just jString -> do + jString' <- textToCString jString + return jString' + let keys' = map unsafeManagedPtrGetPtr keys + keys'' <- packBlockArray 16 keys' + result <- g_parse_debug_string maybeString keys'' nkeys + mapM_ touchManagedPtr keys + freeMem maybeString + freeMem keys'' + return result + +-- function g_path_get_basename +-- Args : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "file_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_path_get_basename" g_path_get_basename :: + CString -> -- file_name : TBasicType TUTF8 + IO CString + + +pathGetBasename :: + (MonadIO m) => + T.Text -> -- file_name + m T.Text +pathGetBasename file_name = liftIO $ do + file_name' <- textToCString file_name + result <- g_path_get_basename file_name' + checkUnexpectedReturnNULL "g_path_get_basename" result + result' <- cstringToText result + freeMem result + freeMem file_name' + return result' + +-- function g_path_get_dirname +-- Args : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "file_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_path_get_dirname" g_path_get_dirname :: + CString -> -- file_name : TBasicType TUTF8 + IO CString + + +pathGetDirname :: + (MonadIO m) => + T.Text -> -- file_name + m T.Text +pathGetDirname file_name = liftIO $ do + file_name' <- textToCString file_name + result <- g_path_get_dirname file_name' + checkUnexpectedReturnNULL "g_path_get_dirname" result + result' <- cstringToText result + freeMem result + freeMem file_name' + return result' + +-- function g_path_is_absolute +-- Args : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "file_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_path_is_absolute" g_path_is_absolute :: + CString -> -- file_name : TBasicType TUTF8 + IO CInt + + +pathIsAbsolute :: + (MonadIO m) => + T.Text -> -- file_name + m Bool +pathIsAbsolute file_name = liftIO $ do + file_name' <- textToCString file_name + result <- g_path_is_absolute file_name' + let result' = (/= 0) result + freeMem file_name' + return result' + +-- function g_path_skip_root +-- Args : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "file_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_path_skip_root" g_path_skip_root :: + CString -> -- file_name : TBasicType TUTF8 + IO CString + + +pathSkipRoot :: + (MonadIO m) => + T.Text -> -- file_name + m T.Text +pathSkipRoot file_name = liftIO $ do + file_name' <- textToCString file_name + result <- g_path_skip_root file_name' + checkUnexpectedReturnNULL "g_path_skip_root" result + result' <- cstringToText result + freeMem file_name' + return result' + +-- function g_pattern_match +-- Args : [Arg {argName = "pspec", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_length", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_reversed", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "pspec", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_length", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_reversed", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_pattern_match" g_pattern_match :: + Ptr PatternSpec -> -- pspec : TInterface "GLib" "PatternSpec" + Word32 -> -- string_length : TBasicType TUInt32 + CString -> -- string : TBasicType TUTF8 + CString -> -- string_reversed : TBasicType TUTF8 + IO CInt + + +patternMatch :: + (MonadIO m) => + PatternSpec -> -- pspec + Word32 -> -- string_length + T.Text -> -- string + Maybe (T.Text) -> -- string_reversed + m Bool +patternMatch pspec string_length string string_reversed = liftIO $ do + let pspec' = unsafeManagedPtrGetPtr pspec + string' <- textToCString string + maybeString_reversed <- case string_reversed of + Nothing -> return nullPtr + Just jString_reversed -> do + jString_reversed' <- textToCString jString_reversed + return jString_reversed' + result <- g_pattern_match pspec' string_length string' maybeString_reversed + let result' = (/= 0) result + touchManagedPtr pspec + freeMem string' + freeMem maybeString_reversed + return result' + +-- function g_pattern_match_simple +-- Args : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},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_pattern_match_simple" g_pattern_match_simple :: + CString -> -- pattern : TBasicType TUTF8 + CString -> -- string : TBasicType TUTF8 + IO CInt + + +patternMatchSimple :: + (MonadIO m) => + T.Text -> -- pattern + T.Text -> -- string + m Bool +patternMatchSimple pattern string = liftIO $ do + pattern' <- textToCString pattern + string' <- textToCString string + result <- g_pattern_match_simple pattern' string' + let result' = (/= 0) result + freeMem pattern' + freeMem string' + return result' + +-- function g_pattern_match_string +-- Args : [Arg {argName = "pspec", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "pspec", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},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_pattern_match_string" g_pattern_match_string :: + Ptr PatternSpec -> -- pspec : TInterface "GLib" "PatternSpec" + CString -> -- string : TBasicType TUTF8 + IO CInt + + +patternMatchString :: + (MonadIO m) => + PatternSpec -> -- pspec + T.Text -> -- string + m Bool +patternMatchString pspec string = liftIO $ do + let pspec' = unsafeManagedPtrGetPtr pspec + string' <- textToCString string + result <- g_pattern_match_string pspec' string' + let result' = (/= 0) result + touchManagedPtr pspec + freeMem string' + return result' + +-- function g_pointer_bit_lock +-- Args : [Arg {argName = "address", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "address", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", 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_pointer_bit_lock" g_pointer_bit_lock :: + Ptr () -> -- address : TBasicType TVoid + Int32 -> -- lock_bit : TBasicType TInt32 + IO () + + +pointerBitLock :: + (MonadIO m) => + Ptr () -> -- address + Int32 -> -- lock_bit + m () +pointerBitLock address lock_bit = liftIO $ do + g_pointer_bit_lock address lock_bit + return () + +-- function g_pointer_bit_trylock +-- Args : [Arg {argName = "address", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "address", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_pointer_bit_trylock" g_pointer_bit_trylock :: + Ptr () -> -- address : TBasicType TVoid + Int32 -> -- lock_bit : TBasicType TInt32 + IO CInt + + +pointerBitTrylock :: + (MonadIO m) => + Ptr () -> -- address + Int32 -> -- lock_bit + m Bool +pointerBitTrylock address lock_bit = liftIO $ do + result <- g_pointer_bit_trylock address lock_bit + let result' = (/= 0) result + return result' + +-- function g_pointer_bit_unlock +-- Args : [Arg {argName = "address", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "address", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", 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_pointer_bit_unlock" g_pointer_bit_unlock :: + Ptr () -> -- address : TBasicType TVoid + Int32 -> -- lock_bit : TBasicType TInt32 + IO () + + +pointerBitUnlock :: + (MonadIO m) => + Ptr () -> -- address + Int32 -> -- lock_bit + m () +pointerBitUnlock address lock_bit = liftIO $ do + g_pointer_bit_unlock address lock_bit + return () + +-- function g_poll +-- Args : [Arg {argName = "fds", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nfds", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "fds", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nfds", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_poll" g_poll :: + Ptr PollFD -> -- fds : TInterface "GLib" "PollFD" + Word32 -> -- nfds : TBasicType TUInt32 + Int32 -> -- timeout : TBasicType TInt32 + IO Int32 + + +poll :: + (MonadIO m) => + PollFD -> -- fds + Word32 -> -- nfds + Int32 -> -- timeout + m Int32 +poll fds nfds timeout = liftIO $ do + let fds' = unsafeManagedPtrGetPtr fds + result <- g_poll fds' nfds timeout + touchManagedPtr fds + return result + +-- function g_propagate_error +-- Args : [Arg {argName = "dest", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "dest", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", 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_propagate_error" g_propagate_error :: + Ptr GError -> -- dest : TError + Ptr GError -> -- src : TError + IO () + + +propagateError :: + (MonadIO m) => + GError -> -- dest + GError -> -- src + m () +propagateError dest src = liftIO $ do + let dest' = unsafeManagedPtrGetPtr dest + let src' = unsafeManagedPtrGetPtr src + g_propagate_error dest' src' + touchManagedPtr dest + touchManagedPtr src + return () + +-- function g_quark_from_static_string +-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_quark_from_static_string" g_quark_from_static_string :: + CString -> -- string : TBasicType TUTF8 + IO Word32 + + +quarkFromStaticString :: + (MonadIO m) => + Maybe (T.Text) -> -- string + m Word32 +quarkFromStaticString string = liftIO $ do + maybeString <- case string of + Nothing -> return nullPtr + Just jString -> do + jString' <- textToCString jString + return jString' + result <- g_quark_from_static_string maybeString + freeMem maybeString + return result + +-- function g_quark_from_string +-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_quark_from_string" g_quark_from_string :: + CString -> -- string : TBasicType TUTF8 + IO Word32 + + +quarkFromString :: + (MonadIO m) => + Maybe (T.Text) -> -- string + m Word32 +quarkFromString string = liftIO $ do + maybeString <- case string of + Nothing -> return nullPtr + Just jString -> do + jString' <- textToCString jString + return jString' + result <- g_quark_from_string maybeString + freeMem maybeString + return result + +-- function g_quark_to_string +-- Args : [Arg {argName = "quark", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "quark", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_quark_to_string" g_quark_to_string :: + Word32 -> -- quark : TBasicType TUInt32 + IO CString + + +quarkToString :: + (MonadIO m) => + Word32 -> -- quark + m T.Text +quarkToString quark = liftIO $ do + result <- g_quark_to_string quark + checkUnexpectedReturnNULL "g_quark_to_string" result + result' <- cstringToText result + return result' + +-- function g_quark_try_string +-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_quark_try_string" g_quark_try_string :: + CString -> -- string : TBasicType TUTF8 + IO Word32 + + +quarkTryString :: + (MonadIO m) => + Maybe (T.Text) -> -- string + m Word32 +quarkTryString string = liftIO $ do + maybeString <- case string of + Nothing -> return nullPtr + Just jString -> do + jString' <- textToCString jString + return jString' + result <- g_quark_try_string maybeString + freeMem maybeString + return result + +-- function g_random_double +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "g_random_double" g_random_double :: + IO CDouble + + +randomDouble :: + (MonadIO m) => + m Double +randomDouble = liftIO $ do + result <- g_random_double + let result' = realToFrac result + return result' + +-- function g_random_double_range +-- Args : [Arg {argName = "begin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "begin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "g_random_double_range" g_random_double_range :: + CDouble -> -- begin : TBasicType TDouble + CDouble -> -- end : TBasicType TDouble + IO CDouble + + +randomDoubleRange :: + (MonadIO m) => + Double -> -- begin + Double -> -- end + m Double +randomDoubleRange begin end = liftIO $ do + let begin' = realToFrac begin + let end' = realToFrac end + result <- g_random_double_range begin' end' + let result' = realToFrac result + return result' + +-- function g_random_int +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_random_int" g_random_int :: + IO Word32 + + +randomInt :: + (MonadIO m) => + m Word32 +randomInt = liftIO $ do + result <- g_random_int + return result + +-- function g_random_int_range +-- Args : [Arg {argName = "begin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "begin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_random_int_range" g_random_int_range :: + Int32 -> -- begin : TBasicType TInt32 + Int32 -> -- end : TBasicType TInt32 + IO Int32 + + +randomIntRange :: + (MonadIO m) => + Int32 -> -- begin + Int32 -> -- end + m Int32 +randomIntRange begin end = liftIO $ do + result <- g_random_int_range begin end + return result + +-- function g_random_set_seed +-- Args : [Arg {argName = "seed", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "seed", 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_random_set_seed" g_random_set_seed :: + Word32 -> -- seed : TBasicType TUInt32 + IO () + + +randomSetSeed :: + (MonadIO m) => + Word32 -> -- seed + m () +randomSetSeed seed = liftIO $ do + g_random_set_seed seed + return () + +-- function g_regex_check_replacement +-- Args : [Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_references", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "replacement", 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_regex_check_replacement" g_regex_check_replacement :: + CString -> -- replacement : TBasicType TUTF8 + Ptr CInt -> -- has_references : TBasicType TBoolean + Ptr (Ptr GError) -> -- error + IO CInt + + +regexCheckReplacement :: + (MonadIO m) => + T.Text -> -- replacement + m (Bool) +regexCheckReplacement replacement = liftIO $ do + replacement' <- textToCString replacement + has_references <- allocMem :: IO (Ptr CInt) + onException (do + _ <- propagateGError $ g_regex_check_replacement replacement' has_references + has_references' <- peek has_references + let has_references'' = (/= 0) has_references' + freeMem replacement' + freeMem has_references + return has_references'' + ) (do + freeMem replacement' + freeMem has_references + ) + +-- function g_regex_error_quark +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_regex_error_quark" g_regex_error_quark :: + IO Word32 + + +regexErrorQuark :: + (MonadIO m) => + m Word32 +regexErrorQuark = liftIO $ do + result <- g_regex_error_quark + return result + +-- function g_regex_escape_nul +-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, 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},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_regex_escape_nul" g_regex_escape_nul :: + CString -> -- string : TBasicType TUTF8 + Int32 -> -- length : TBasicType TInt32 + IO CString + + +regexEscapeNul :: + (MonadIO m) => + T.Text -> -- string + Int32 -> -- length + m T.Text +regexEscapeNul string length_ = liftIO $ do + string' <- textToCString string + result <- g_regex_escape_nul string' length_ + checkUnexpectedReturnNULL "g_regex_escape_nul" result + result' <- cstringToText result + freeMem result + freeMem string' + return result' + +-- function g_regex_escape_string +-- Args : [Arg {argName = "string", argType = TCArray False (-1) 1 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "string", argType = TCArray False (-1) 1 (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_regex_escape_string" g_regex_escape_string :: + Ptr CString -> -- string : TCArray False (-1) 1 (TBasicType TUTF8) + Int32 -> -- length : TBasicType TInt32 + IO CString + + +regexEscapeString :: + (MonadIO m) => + [T.Text] -> -- string + m T.Text +regexEscapeString string = liftIO $ do + let length_ = fromIntegral $ length string + string' <- packUTF8CArray string + result <- g_regex_escape_string string' length_ + checkUnexpectedReturnNULL "g_regex_escape_string" result + result' <- cstringToText result + freeMem result + (mapCArrayWithLength length_) freeMem string' + freeMem string' + return result' + +-- function g_regex_match_simple +-- Args : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compile_options", argType = TInterface "GLib" "RegexCompileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compile_options", argType = TInterface "GLib" "RegexCompileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_regex_match_simple" g_regex_match_simple :: + CString -> -- pattern : TBasicType TUTF8 + CString -> -- string : TBasicType TUTF8 + CUInt -> -- compile_options : TInterface "GLib" "RegexCompileFlags" + CUInt -> -- match_options : TInterface "GLib" "RegexMatchFlags" + IO CInt + + +regexMatchSimple :: + (MonadIO m) => + T.Text -> -- pattern + T.Text -> -- string + [RegexCompileFlags] -> -- compile_options + [RegexMatchFlags] -> -- match_options + m Bool +regexMatchSimple pattern string compile_options match_options = liftIO $ do + pattern' <- textToCString pattern + string' <- textToCString string + let compile_options' = gflagsToWord compile_options + let match_options' = gflagsToWord match_options + result <- g_regex_match_simple pattern' string' compile_options' match_options' + let result' = (/= 0) result + freeMem pattern' + freeMem string' + return result' + +-- function g_regex_split_simple +-- Args : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compile_options", argType = TInterface "GLib" "RegexCompileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compile_options", argType = TInterface "GLib" "RegexCompileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", 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_regex_split_simple" g_regex_split_simple :: + CString -> -- pattern : TBasicType TUTF8 + CString -> -- string : TBasicType TUTF8 + CUInt -> -- compile_options : TInterface "GLib" "RegexCompileFlags" + CUInt -> -- match_options : TInterface "GLib" "RegexMatchFlags" + IO (Ptr CString) + + +regexSplitSimple :: + (MonadIO m) => + T.Text -> -- pattern + T.Text -> -- string + [RegexCompileFlags] -> -- compile_options + [RegexMatchFlags] -> -- match_options + m [T.Text] +regexSplitSimple pattern string compile_options match_options = liftIO $ do + pattern' <- textToCString pattern + string' <- textToCString string + let compile_options' = gflagsToWord compile_options + let match_options' = gflagsToWord match_options + result <- g_regex_split_simple pattern' string' compile_options' match_options' + checkUnexpectedReturnNULL "g_regex_split_simple" result + result' <- unpackZeroTerminatedUTF8CArray result + mapZeroTerminatedCArray freeMem result + freeMem result + freeMem pattern' + freeMem string' + return result' + +-- function g_reload_user_special_dirs_cache +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_reload_user_special_dirs_cache" g_reload_user_special_dirs_cache :: + IO () + + +reloadUserSpecialDirsCache :: + (MonadIO m) => + m () +reloadUserSpecialDirsCache = liftIO $ do + g_reload_user_special_dirs_cache + return () + +-- function g_return_if_fail_warning +-- Args : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pretty_function", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expression", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pretty_function", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expression", 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_return_if_fail_warning" g_return_if_fail_warning :: + CString -> -- log_domain : TBasicType TUTF8 + CString -> -- pretty_function : TBasicType TUTF8 + CString -> -- expression : TBasicType TUTF8 + IO () + + +returnIfFailWarning :: + (MonadIO m) => + T.Text -> -- log_domain + T.Text -> -- pretty_function + T.Text -> -- expression + m () +returnIfFailWarning log_domain pretty_function expression = liftIO $ do + log_domain' <- textToCString log_domain + pretty_function' <- textToCString pretty_function + expression' <- textToCString expression + g_return_if_fail_warning log_domain' pretty_function' expression' + freeMem log_domain' + freeMem pretty_function' + freeMem expression' + return () + +-- function g_rmdir +-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "filename", 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_rmdir" g_rmdir :: + CString -> -- filename : TBasicType TUTF8 + IO Int32 + + +rmdir :: + (MonadIO m) => + T.Text -> -- filename + m Int32 +rmdir filename = liftIO $ do + filename' <- textToCString filename + result <- g_rmdir filename' + freeMem filename' + return result + +-- function g_sequence_move +-- Args : [Arg {argName = "src", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "src", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_sequence_move" g_sequence_move :: + Ptr SequenceIter -> -- src : TInterface "GLib" "SequenceIter" + Ptr SequenceIter -> -- dest : TInterface "GLib" "SequenceIter" + IO () + + +sequenceMove :: + (MonadIO m) => + SequenceIter -> -- src + SequenceIter -> -- dest + m () +sequenceMove src dest = liftIO $ do + let src' = unsafeManagedPtrGetPtr src + let dest' = unsafeManagedPtrGetPtr dest + g_sequence_move src' dest' + touchManagedPtr src + touchManagedPtr dest + return () + +-- function g_sequence_move_range +-- Args : [Arg {argName = "dest", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "dest", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_sequence_move_range" g_sequence_move_range :: + Ptr SequenceIter -> -- dest : TInterface "GLib" "SequenceIter" + Ptr SequenceIter -> -- begin : TInterface "GLib" "SequenceIter" + Ptr SequenceIter -> -- end : TInterface "GLib" "SequenceIter" + IO () + + +sequenceMoveRange :: + (MonadIO m) => + SequenceIter -> -- dest + SequenceIter -> -- begin + SequenceIter -> -- end + m () +sequenceMoveRange dest begin end = liftIO $ do + let dest' = unsafeManagedPtrGetPtr dest + let begin' = unsafeManagedPtrGetPtr begin + let end' = unsafeManagedPtrGetPtr end + g_sequence_move_range dest' begin' end' + touchManagedPtr dest + touchManagedPtr begin + touchManagedPtr end + return () + +-- function g_sequence_remove +-- Args : [Arg {argName = "iter", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "iter", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_sequence_remove" g_sequence_remove :: + Ptr SequenceIter -> -- iter : TInterface "GLib" "SequenceIter" + IO () + + +sequenceRemove :: + (MonadIO m) => + SequenceIter -> -- iter + m () +sequenceRemove iter = liftIO $ do + let iter' = unsafeManagedPtrGetPtr iter + g_sequence_remove iter' + touchManagedPtr iter + return () + +-- function g_sequence_remove_range +-- Args : [Arg {argName = "begin", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "begin", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_sequence_remove_range" g_sequence_remove_range :: + Ptr SequenceIter -> -- begin : TInterface "GLib" "SequenceIter" + Ptr SequenceIter -> -- end : TInterface "GLib" "SequenceIter" + IO () + + +sequenceRemoveRange :: + (MonadIO m) => + SequenceIter -> -- begin + SequenceIter -> -- end + m () +sequenceRemoveRange begin end = liftIO $ do + let begin' = unsafeManagedPtrGetPtr begin + let end' = unsafeManagedPtrGetPtr end + g_sequence_remove_range begin' end' + touchManagedPtr begin + touchManagedPtr end + return () + +-- function g_sequence_set +-- Args : [Arg {argName = "iter", argType = TInterface "GLib" "SequenceIter", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "iter", argType = TInterface "GLib" "SequenceIter", 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 + +foreign import ccall "g_sequence_set" g_sequence_set :: + Ptr SequenceIter -> -- iter : TInterface "GLib" "SequenceIter" + Ptr () -> -- data : TBasicType TVoid + IO () + + +sequenceSet :: + (MonadIO m) => + SequenceIter -> -- iter + Ptr () -> -- data + m () +sequenceSet iter data_ = liftIO $ do + let iter' = unsafeManagedPtrGetPtr iter + g_sequence_set iter' data_ + touchManagedPtr iter + return () + +-- function g_sequence_swap +-- Args : [Arg {argName = "a", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "a", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_sequence_swap" g_sequence_swap :: + Ptr SequenceIter -> -- a : TInterface "GLib" "SequenceIter" + Ptr SequenceIter -> -- b : TInterface "GLib" "SequenceIter" + IO () + + +sequenceSwap :: + (MonadIO m) => + SequenceIter -> -- a + SequenceIter -> -- b + m () +sequenceSwap a b = liftIO $ do + let a' = unsafeManagedPtrGetPtr a + let b' = unsafeManagedPtrGetPtr b + g_sequence_swap a' b' + touchManagedPtr a + touchManagedPtr b + return () + +-- function g_set_application_name +-- Args : [Arg {argName = "application_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "application_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_set_application_name" g_set_application_name :: + CString -> -- application_name : TBasicType TUTF8 + IO () + + +setApplicationName :: + (MonadIO m) => + T.Text -> -- application_name + m () +setApplicationName application_name = liftIO $ do + application_name' <- textToCString application_name + g_set_application_name application_name' + freeMem application_name' + return () + +-- function g_set_error_literal +-- Args : [Arg {argName = "err", argType = TError, direction = DirectionIn, mayBeNull = True, 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "err", argType = TError, direction = DirectionIn, mayBeNull = True, 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 + +foreign import ccall "g_set_error_literal" g_set_error_literal :: + Ptr GError -> -- err : TError + Word32 -> -- domain : TBasicType TUInt32 + Int32 -> -- code : TBasicType TInt32 + CString -> -- message : TBasicType TUTF8 + IO () + + +setErrorLiteral :: + (MonadIO m) => + Maybe (GError) -> -- err + Word32 -> -- domain + Int32 -> -- code + T.Text -> -- message + m () +setErrorLiteral err domain code message = liftIO $ do + maybeErr <- case err of + Nothing -> return nullPtr + Just jErr -> do + let jErr' = unsafeManagedPtrGetPtr jErr + return jErr' + message' <- textToCString message + g_set_error_literal maybeErr domain code message' + whenJust err touchManagedPtr + freeMem message' + return () + +-- function g_set_prgname +-- Args : [Arg {argName = "prgname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "prgname", 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_set_prgname" g_set_prgname :: + CString -> -- prgname : TBasicType TUTF8 + IO () + + +setPrgname :: + (MonadIO m) => + T.Text -> -- prgname + m () +setPrgname prgname = liftIO $ do + prgname' <- textToCString prgname + g_set_prgname prgname' + freeMem prgname' + return () + +-- function g_setenv +-- Args : [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}] +-- Lengths : [] +-- hInArgs : [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 TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_setenv" g_setenv :: + CString -> -- variable : TBasicType TUTF8 + CString -> -- value : TBasicType TUTF8 + CInt -> -- overwrite : TBasicType TBoolean + IO CInt + + +setenv :: + (MonadIO m) => + T.Text -> -- variable + T.Text -> -- value + Bool -> -- overwrite + m Bool +setenv variable value overwrite = liftIO $ do + variable' <- textToCString variable + value' <- textToCString value + let overwrite' = (fromIntegral . fromEnum) overwrite + result <- g_setenv variable' value' overwrite' + let result' = (/= 0) result + freeMem variable' + freeMem value' + return result' + +-- function g_shell_error_quark +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_shell_error_quark" g_shell_error_quark :: + IO Word32 + + +shellErrorQuark :: + (MonadIO m) => + m Word32 +shellErrorQuark = liftIO $ do + result <- g_shell_error_quark + return result + +-- function g_shell_parse_argv +-- Args : [Arg {argName = "command_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "argcp", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "argvp", argType = TCArray True (-1) 1 (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "command_line", 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_shell_parse_argv" g_shell_parse_argv :: + CString -> -- command_line : TBasicType TUTF8 + Ptr Int32 -> -- argcp : TBasicType TInt32 + Ptr (Ptr CString) -> -- argvp : TCArray True (-1) 1 (TBasicType TUTF8) + Ptr (Ptr GError) -> -- error + IO CInt + + +shellParseArgv :: + (MonadIO m) => + T.Text -> -- command_line + m (Int32,[T.Text]) +shellParseArgv command_line = liftIO $ do + command_line' <- textToCString command_line + argcp <- allocMem :: IO (Ptr Int32) + argvp <- allocMem :: IO (Ptr (Ptr CString)) + onException (do + _ <- propagateGError $ g_shell_parse_argv command_line' argcp argvp + argcp' <- peek argcp + argvp' <- peek argvp + argvp'' <- unpackZeroTerminatedUTF8CArray argvp' + mapZeroTerminatedCArray freeMem argvp' + freeMem argvp' + freeMem command_line' + freeMem argcp + freeMem argvp + return (argcp', argvp'') + ) (do + freeMem command_line' + freeMem argcp + freeMem argvp + ) + +-- function g_shell_quote +-- Args : [Arg {argName = "unquoted_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "unquoted_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_shell_quote" g_shell_quote :: + CString -> -- unquoted_string : TBasicType TUTF8 + IO CString + + +shellQuote :: + (MonadIO m) => + T.Text -> -- unquoted_string + m T.Text +shellQuote unquoted_string = liftIO $ do + unquoted_string' <- textToCString unquoted_string + result <- g_shell_quote unquoted_string' + checkUnexpectedReturnNULL "g_shell_quote" result + result' <- cstringToText result + freeMem result + freeMem unquoted_string' + return result' + +-- function g_shell_unquote +-- Args : [Arg {argName = "quoted_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "quoted_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "g_shell_unquote" g_shell_unquote :: + CString -> -- quoted_string : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CString + + +shellUnquote :: + (MonadIO m) => + T.Text -> -- quoted_string + m T.Text +shellUnquote quoted_string = liftIO $ do + quoted_string' <- textToCString quoted_string + onException (do + result <- propagateGError $ g_shell_unquote quoted_string' + checkUnexpectedReturnNULL "g_shell_unquote" result + result' <- cstringToText result + freeMem result + freeMem quoted_string' + return result' + ) (do + freeMem quoted_string' + ) + +-- function g_slice_free1 +-- Args : [Arg {argName = "block_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mem_block", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "block_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mem_block", 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_slice_free1" g_slice_free1 :: + Word64 -> -- block_size : TBasicType TUInt64 + Ptr () -> -- mem_block : TBasicType TVoid + IO () + + +sliceFree1 :: + (MonadIO m) => + Word64 -> -- block_size + Ptr () -> -- mem_block + m () +sliceFree1 block_size mem_block = liftIO $ do + g_slice_free1 block_size mem_block + return () + +-- function g_slice_free_chain_with_offset +-- Args : [Arg {argName = "block_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mem_chain", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "next_offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "block_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mem_chain", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "next_offset", 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_slice_free_chain_with_offset" g_slice_free_chain_with_offset :: + Word64 -> -- block_size : TBasicType TUInt64 + Ptr () -> -- mem_chain : TBasicType TVoid + Word64 -> -- next_offset : TBasicType TUInt64 + IO () + + +sliceFreeChainWithOffset :: + (MonadIO m) => + Word64 -> -- block_size + Ptr () -> -- mem_chain + Word64 -> -- next_offset + m () +sliceFreeChainWithOffset block_size mem_chain next_offset = liftIO $ do + g_slice_free_chain_with_offset block_size mem_chain next_offset + return () + +-- function g_slice_get_config +-- Args : [Arg {argName = "ckey", argType = TInterface "GLib" "SliceConfig", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "ckey", argType = TInterface "GLib" "SliceConfig", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "g_slice_get_config" g_slice_get_config :: + CUInt -> -- ckey : TInterface "GLib" "SliceConfig" + IO Int64 + + +sliceGetConfig :: + (MonadIO m) => + SliceConfig -> -- ckey + m Int64 +sliceGetConfig ckey = liftIO $ do + let ckey' = (fromIntegral . fromEnum) ckey + result <- g_slice_get_config ckey' + return result + +-- function g_slice_get_config_state +-- Args : [Arg {argName = "ckey", argType = TInterface "GLib" "SliceConfig", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "ckey", argType = TInterface "GLib" "SliceConfig", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "g_slice_get_config_state" g_slice_get_config_state :: + CUInt -> -- ckey : TInterface "GLib" "SliceConfig" + Int64 -> -- address : TBasicType TInt64 + Word32 -> -- n_values : TBasicType TUInt32 + IO Int64 + + +sliceGetConfigState :: + (MonadIO m) => + SliceConfig -> -- ckey + Int64 -> -- address + Word32 -> -- n_values + m Int64 +sliceGetConfigState ckey address n_values = liftIO $ do + let ckey' = (fromIntegral . fromEnum) ckey + result <- g_slice_get_config_state ckey' address n_values + return result + +-- function g_slice_set_config +-- Args : [Arg {argName = "ckey", argType = TInterface "GLib" "SliceConfig", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "ckey", argType = TInterface "GLib" "SliceConfig", 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}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_slice_set_config" g_slice_set_config :: + CUInt -> -- ckey : TInterface "GLib" "SliceConfig" + Int64 -> -- value : TBasicType TInt64 + IO () + + +sliceSetConfig :: + (MonadIO m) => + SliceConfig -> -- ckey + Int64 -> -- value + m () +sliceSetConfig ckey value = liftIO $ do + let ckey' = (fromIntegral . fromEnum) ckey + g_slice_set_config ckey' value + return () + +-- function g_source_remove +-- Args : [Arg {argName = "tag", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "tag", 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_source_remove" g_source_remove :: + Word32 -> -- tag : TBasicType TUInt32 + IO CInt + + +sourceRemove :: + (MonadIO m) => + Word32 -> -- tag + m Bool +sourceRemove tag = liftIO $ do + result <- g_source_remove tag + let result' = (/= 0) result + return result' + +-- function g_source_remove_by_funcs_user_data +-- Args : [Arg {argName = "funcs", argType = TInterface "GLib" "SourceFuncs", 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 : [] +-- hInArgs : [Arg {argName = "funcs", argType = TInterface "GLib" "SourceFuncs", 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}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_source_remove_by_funcs_user_data" g_source_remove_by_funcs_user_data :: + Ptr SourceFuncs -> -- funcs : TInterface "GLib" "SourceFuncs" + Ptr () -> -- user_data : TBasicType TVoid + IO CInt + + +sourceRemoveByFuncsUserData :: + (MonadIO m) => + SourceFuncs -> -- funcs + Ptr () -> -- user_data + m Bool +sourceRemoveByFuncsUserData funcs user_data = liftIO $ do + let funcs' = unsafeManagedPtrGetPtr funcs + result <- g_source_remove_by_funcs_user_data funcs' user_data + let result' = (/= 0) result + touchManagedPtr funcs + return result' + +-- function g_source_remove_by_user_data +-- Args : [Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_source_remove_by_user_data" g_source_remove_by_user_data :: + Ptr () -> -- user_data : TBasicType TVoid + IO CInt + + +sourceRemoveByUserData :: + (MonadIO m) => + Ptr () -> -- user_data + m Bool +sourceRemoveByUserData user_data = liftIO $ do + result <- g_source_remove_by_user_data user_data + let result' = (/= 0) result + return result' + +-- function g_source_set_name_by_id +-- Args : [Arg {argName = "tag", argType = TBasicType TUInt32, 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 = "tag", argType = TBasicType TUInt32, 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_source_set_name_by_id" g_source_set_name_by_id :: + Word32 -> -- tag : TBasicType TUInt32 + CString -> -- name : TBasicType TUTF8 + IO () + + +sourceSetNameById :: + (MonadIO m) => + Word32 -> -- tag + T.Text -> -- name + m () +sourceSetNameById tag name = liftIO $ do + name' <- textToCString name + g_source_set_name_by_id tag name' + freeMem name' + return () + +-- function g_spaced_primes_closest +-- Args : [Arg {argName = "num", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "num", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_spaced_primes_closest" g_spaced_primes_closest :: + Word32 -> -- num : TBasicType TUInt32 + IO Word32 + + +spacedPrimesClosest :: + (MonadIO m) => + Word32 -> -- num + m Word32 +spacedPrimesClosest num = liftIO $ do + result <- g_spaced_primes_closest num + return result + +-- function g_spawn_async +-- Args : [Arg {argName = "working_directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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},Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "SpawnFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", 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},Arg {argName = "child_pid", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "working_directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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},Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "SpawnFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_spawn_async" g_spawn_async :: + CString -> -- working_directory : TBasicType TUTF8 + Ptr CString -> -- argv : TCArray True (-1) (-1) (TBasicType TUTF8) + Ptr CString -> -- envp : TCArray True (-1) (-1) (TBasicType TUTF8) + CUInt -> -- flags : TInterface "GLib" "SpawnFlags" + FunPtr SpawnChildSetupFuncC -> -- child_setup : TInterface "GLib" "SpawnChildSetupFunc" + Ptr () -> -- user_data : TBasicType TVoid + Ptr Int32 -> -- child_pid : TBasicType TInt32 + Ptr (Ptr GError) -> -- error + IO CInt + + +spawnAsync :: + (MonadIO m) => + Maybe (T.Text) -> -- working_directory + [T.Text] -> -- argv + Maybe ([T.Text]) -> -- envp + [SpawnFlags] -> -- flags + Maybe (SpawnChildSetupFunc) -> -- child_setup + m (Int32) +spawnAsync working_directory argv envp flags child_setup = liftIO $ do + maybeWorking_directory <- case working_directory of + Nothing -> return nullPtr + Just jWorking_directory -> do + jWorking_directory' <- textToCString jWorking_directory + return jWorking_directory' + argv' <- packZeroTerminatedUTF8CArray argv + maybeEnvp <- case envp of + Nothing -> return nullPtr + Just jEnvp -> do + jEnvp' <- packZeroTerminatedUTF8CArray jEnvp + return jEnvp' + let flags' = gflagsToWord flags + ptrchild_setup <- callocMem :: IO (Ptr (FunPtr SpawnChildSetupFuncC)) + maybeChild_setup <- case child_setup of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jChild_setup -> do + jChild_setup' <- mkSpawnChildSetupFunc (spawnChildSetupFuncWrapper (Just ptrchild_setup) jChild_setup) + poke ptrchild_setup jChild_setup' + return jChild_setup' + child_pid <- allocMem :: IO (Ptr Int32) + let user_data = nullPtr + onException (do + _ <- propagateGError $ g_spawn_async maybeWorking_directory argv' maybeEnvp flags' maybeChild_setup user_data child_pid + child_pid' <- peek child_pid + freeMem maybeWorking_directory + mapZeroTerminatedCArray freeMem argv' + freeMem argv' + mapZeroTerminatedCArray freeMem maybeEnvp + freeMem maybeEnvp + freeMem child_pid + return child_pid' + ) (do + freeMem maybeWorking_directory + mapZeroTerminatedCArray freeMem argv' + freeMem argv' + mapZeroTerminatedCArray freeMem maybeEnvp + freeMem maybeEnvp + freeMem child_pid + ) + +-- function g_spawn_async_with_pipes +-- Args : [Arg {argName = "working_directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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},Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "SpawnFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", 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},Arg {argName = "child_pid", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "standard_input", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "standard_output", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "standard_error", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "working_directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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},Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "SpawnFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_spawn_async_with_pipes" g_spawn_async_with_pipes :: + CString -> -- working_directory : TBasicType TUTF8 + Ptr CString -> -- argv : TCArray True (-1) (-1) (TBasicType TUTF8) + Ptr CString -> -- envp : TCArray True (-1) (-1) (TBasicType TUTF8) + CUInt -> -- flags : TInterface "GLib" "SpawnFlags" + FunPtr SpawnChildSetupFuncC -> -- child_setup : TInterface "GLib" "SpawnChildSetupFunc" + Ptr () -> -- user_data : TBasicType TVoid + Ptr Int32 -> -- child_pid : TBasicType TInt32 + Ptr Int32 -> -- standard_input : TBasicType TInt32 + Ptr Int32 -> -- standard_output : TBasicType TInt32 + Ptr Int32 -> -- standard_error : TBasicType TInt32 + Ptr (Ptr GError) -> -- error + IO CInt + + +spawnAsyncWithPipes :: + (MonadIO m) => + Maybe (T.Text) -> -- working_directory + [T.Text] -> -- argv + Maybe ([T.Text]) -> -- envp + [SpawnFlags] -> -- flags + Maybe (SpawnChildSetupFunc) -> -- child_setup + m (Int32,Int32,Int32,Int32) +spawnAsyncWithPipes working_directory argv envp flags child_setup = liftIO $ do + maybeWorking_directory <- case working_directory of + Nothing -> return nullPtr + Just jWorking_directory -> do + jWorking_directory' <- textToCString jWorking_directory + return jWorking_directory' + argv' <- packZeroTerminatedUTF8CArray argv + maybeEnvp <- case envp of + Nothing -> return nullPtr + Just jEnvp -> do + jEnvp' <- packZeroTerminatedUTF8CArray jEnvp + return jEnvp' + let flags' = gflagsToWord flags + ptrchild_setup <- callocMem :: IO (Ptr (FunPtr SpawnChildSetupFuncC)) + maybeChild_setup <- case child_setup of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jChild_setup -> do + jChild_setup' <- mkSpawnChildSetupFunc (spawnChildSetupFuncWrapper (Just ptrchild_setup) jChild_setup) + poke ptrchild_setup jChild_setup' + return jChild_setup' + child_pid <- allocMem :: IO (Ptr Int32) + standard_input <- allocMem :: IO (Ptr Int32) + standard_output <- allocMem :: IO (Ptr Int32) + standard_error <- allocMem :: IO (Ptr Int32) + let user_data = nullPtr + onException (do + _ <- propagateGError $ g_spawn_async_with_pipes maybeWorking_directory argv' maybeEnvp flags' maybeChild_setup user_data child_pid standard_input standard_output standard_error + child_pid' <- peek child_pid + standard_input' <- peek standard_input + standard_output' <- peek standard_output + standard_error' <- peek standard_error + freeMem maybeWorking_directory + mapZeroTerminatedCArray freeMem argv' + freeMem argv' + mapZeroTerminatedCArray freeMem maybeEnvp + freeMem maybeEnvp + freeMem child_pid + freeMem standard_input + freeMem standard_output + freeMem standard_error + return (child_pid', standard_input', standard_output', standard_error') + ) (do + freeMem maybeWorking_directory + mapZeroTerminatedCArray freeMem argv' + freeMem argv' + mapZeroTerminatedCArray freeMem maybeEnvp + freeMem maybeEnvp + freeMem child_pid + freeMem standard_input + freeMem standard_output + freeMem standard_error + ) + +-- function g_spawn_check_exit_status +-- Args : [Arg {argName = "exit_status", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "exit_status", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_spawn_check_exit_status" g_spawn_check_exit_status :: + Int32 -> -- exit_status : TBasicType TInt32 + Ptr (Ptr GError) -> -- error + IO CInt + + +spawnCheckExitStatus :: + (MonadIO m) => + Int32 -> -- exit_status + m () +spawnCheckExitStatus exit_status = liftIO $ do + onException (do + _ <- propagateGError $ g_spawn_check_exit_status exit_status + return () + ) (do + return () + ) + +-- function g_spawn_close_pid +-- Args : [Arg {argName = "pid", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "pid", 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_spawn_close_pid" g_spawn_close_pid :: + Int32 -> -- pid : TBasicType TInt32 + IO () + + +spawnClosePid :: + (MonadIO m) => + Int32 -> -- pid + m () +spawnClosePid pid = liftIO $ do + g_spawn_close_pid pid + return () + +-- function g_spawn_command_line_async +-- Args : [Arg {argName = "command_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "command_line", 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_spawn_command_line_async" g_spawn_command_line_async :: + CString -> -- command_line : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + + +spawnCommandLineAsync :: + (MonadIO m) => + T.Text -> -- command_line + m () +spawnCommandLineAsync command_line = liftIO $ do + command_line' <- textToCString command_line + onException (do + _ <- propagateGError $ g_spawn_command_line_async command_line' + freeMem command_line' + return () + ) (do + freeMem command_line' + ) + +-- function g_spawn_command_line_sync +-- Args : [Arg {argName = "command_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "standard_output", argType = TCArray True (-1) (-1) (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "standard_error", argType = TCArray True (-1) (-1) (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "exit_status", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "command_line", 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_spawn_command_line_sync" g_spawn_command_line_sync :: + CString -> -- command_line : TBasicType TUTF8 + Ptr (Ptr Word8) -> -- standard_output : TCArray True (-1) (-1) (TBasicType TUInt8) + Ptr (Ptr Word8) -> -- standard_error : TCArray True (-1) (-1) (TBasicType TUInt8) + Ptr Int32 -> -- exit_status : TBasicType TInt32 + Ptr (Ptr GError) -> -- error + IO CInt + + +spawnCommandLineSync :: + (MonadIO m) => + T.Text -> -- command_line + m (ByteString,ByteString,Int32) +spawnCommandLineSync command_line = liftIO $ do + command_line' <- textToCString command_line + standard_output <- allocMem :: IO (Ptr (Ptr Word8)) + standard_error <- allocMem :: IO (Ptr (Ptr Word8)) + exit_status <- allocMem :: IO (Ptr Int32) + onException (do + _ <- propagateGError $ g_spawn_command_line_sync command_line' standard_output standard_error exit_status + standard_output' <- peek standard_output + standard_output'' <- unpackZeroTerminatedByteString standard_output' + freeMem standard_output' + standard_error' <- peek standard_error + standard_error'' <- unpackZeroTerminatedByteString standard_error' + freeMem standard_error' + exit_status' <- peek exit_status + freeMem command_line' + freeMem standard_output + freeMem standard_error + freeMem exit_status + return (standard_output'', standard_error'', exit_status') + ) (do + freeMem command_line' + freeMem standard_output + freeMem standard_error + freeMem exit_status + ) + +-- function g_spawn_error_quark +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_spawn_error_quark" g_spawn_error_quark :: + IO Word32 + + +spawnErrorQuark :: + (MonadIO m) => + m Word32 +spawnErrorQuark = liftIO $ do + result <- g_spawn_error_quark + return result + +-- function g_spawn_exit_error_quark +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_spawn_exit_error_quark" g_spawn_exit_error_quark :: + IO Word32 + + +spawnExitErrorQuark :: + (MonadIO m) => + m Word32 +spawnExitErrorQuark = liftIO $ do + result <- g_spawn_exit_error_quark + return result + +-- function g_spawn_sync +-- Args : [Arg {argName = "working_directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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},Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "SpawnFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", 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},Arg {argName = "standard_output", argType = TCArray True (-1) (-1) (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "standard_error", argType = TCArray True (-1) (-1) (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "exit_status", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "working_directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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},Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "SpawnFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_spawn_sync" g_spawn_sync :: + CString -> -- working_directory : TBasicType TUTF8 + Ptr CString -> -- argv : TCArray True (-1) (-1) (TBasicType TUTF8) + Ptr CString -> -- envp : TCArray True (-1) (-1) (TBasicType TUTF8) + CUInt -> -- flags : TInterface "GLib" "SpawnFlags" + FunPtr SpawnChildSetupFuncC -> -- child_setup : TInterface "GLib" "SpawnChildSetupFunc" + Ptr () -> -- user_data : TBasicType TVoid + Ptr (Ptr Word8) -> -- standard_output : TCArray True (-1) (-1) (TBasicType TUInt8) + Ptr (Ptr Word8) -> -- standard_error : TCArray True (-1) (-1) (TBasicType TUInt8) + Ptr Int32 -> -- exit_status : TBasicType TInt32 + Ptr (Ptr GError) -> -- error + IO CInt + + +spawnSync :: + (MonadIO m) => + Maybe (T.Text) -> -- working_directory + [T.Text] -> -- argv + Maybe ([T.Text]) -> -- envp + [SpawnFlags] -> -- flags + Maybe (SpawnChildSetupFunc) -> -- child_setup + m (ByteString,ByteString,Int32) +spawnSync working_directory argv envp flags child_setup = liftIO $ do + maybeWorking_directory <- case working_directory of + Nothing -> return nullPtr + Just jWorking_directory -> do + jWorking_directory' <- textToCString jWorking_directory + return jWorking_directory' + argv' <- packZeroTerminatedUTF8CArray argv + maybeEnvp <- case envp of + Nothing -> return nullPtr + Just jEnvp -> do + jEnvp' <- packZeroTerminatedUTF8CArray jEnvp + return jEnvp' + let flags' = gflagsToWord flags + ptrchild_setup <- callocMem :: IO (Ptr (FunPtr SpawnChildSetupFuncC)) + maybeChild_setup <- case child_setup of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jChild_setup -> do + jChild_setup' <- mkSpawnChildSetupFunc (spawnChildSetupFuncWrapper (Just ptrchild_setup) jChild_setup) + poke ptrchild_setup jChild_setup' + return jChild_setup' + standard_output <- allocMem :: IO (Ptr (Ptr Word8)) + standard_error <- allocMem :: IO (Ptr (Ptr Word8)) + exit_status <- allocMem :: IO (Ptr Int32) + let user_data = nullPtr + onException (do + _ <- propagateGError $ g_spawn_sync maybeWorking_directory argv' maybeEnvp flags' maybeChild_setup user_data standard_output standard_error exit_status + standard_output' <- peek standard_output + standard_output'' <- unpackZeroTerminatedByteString standard_output' + freeMem standard_output' + standard_error' <- peek standard_error + standard_error'' <- unpackZeroTerminatedByteString standard_error' + freeMem standard_error' + exit_status' <- peek exit_status + freeMem maybeWorking_directory + mapZeroTerminatedCArray freeMem argv' + freeMem argv' + mapZeroTerminatedCArray freeMem maybeEnvp + freeMem maybeEnvp + freeMem standard_output + freeMem standard_error + freeMem exit_status + return (standard_output'', standard_error'', exit_status') + ) (do + freeMem maybeWorking_directory + mapZeroTerminatedCArray freeMem argv' + freeMem argv' + mapZeroTerminatedCArray freeMem maybeEnvp + freeMem maybeEnvp + freeMem standard_output + freeMem standard_error + freeMem exit_status + ) + +-- function g_stpcpy +-- Args : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", 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_stpcpy" g_stpcpy :: + CString -> -- dest : TBasicType TUTF8 + CString -> -- src : TBasicType TUTF8 + IO CString + + +stpcpy :: + (MonadIO m) => + T.Text -> -- dest + T.Text -> -- src + m T.Text +stpcpy dest src = liftIO $ do + dest' <- textToCString dest + src' <- textToCString src + result <- g_stpcpy dest' src' + checkUnexpectedReturnNULL "g_stpcpy" result + result' <- cstringToText result + freeMem result + freeMem dest' + freeMem src' + return result' + +-- function g_str_equal +-- Args : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_str_equal" g_str_equal :: + Ptr () -> -- v1 : TBasicType TVoid + Ptr () -> -- v2 : TBasicType TVoid + IO CInt + + +strEqual :: + (MonadIO m) => + Ptr () -> -- v1 + Ptr () -> -- v2 + m Bool +strEqual v1 v2 = liftIO $ do + result <- g_str_equal v1 v2 + let result' = (/= 0) result + return result' + +-- function g_str_has_prefix +-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "prefix", 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},Arg {argName = "prefix", 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_str_has_prefix" g_str_has_prefix :: + CString -> -- str : TBasicType TUTF8 + CString -> -- prefix : TBasicType TUTF8 + IO CInt + + +strHasPrefix :: + (MonadIO m) => + T.Text -> -- str + T.Text -> -- prefix + m Bool +strHasPrefix str prefix = liftIO $ do + str' <- textToCString str + prefix' <- textToCString prefix + result <- g_str_has_prefix str' prefix' + let result' = (/= 0) result + freeMem str' + freeMem prefix' + return result' + +-- function g_str_has_suffix +-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "suffix", 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},Arg {argName = "suffix", 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_str_has_suffix" g_str_has_suffix :: + CString -> -- str : TBasicType TUTF8 + CString -> -- suffix : TBasicType TUTF8 + IO CInt + + +strHasSuffix :: + (MonadIO m) => + T.Text -> -- str + T.Text -> -- suffix + m Bool +strHasSuffix str suffix = liftIO $ do + str' <- textToCString str + suffix' <- textToCString suffix + result <- g_str_has_suffix str' suffix' + let result' = (/= 0) result + freeMem str' + freeMem suffix' + return result' + +-- function g_str_hash +-- Args : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "v", 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_str_hash" g_str_hash :: + Ptr () -> -- v : TBasicType TVoid + IO Word32 + + +strHash :: + (MonadIO m) => + Ptr () -> -- v + m Word32 +strHash v = liftIO $ do + result <- g_str_hash v + return result + +-- function g_str_is_ascii +-- 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 : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_str_is_ascii" g_str_is_ascii :: + CString -> -- str : TBasicType TUTF8 + IO CInt + + +strIsAscii :: + (MonadIO m) => + T.Text -> -- str + m Bool +strIsAscii str = liftIO $ do + str' <- textToCString str + result <- g_str_is_ascii str' + let result' = (/= 0) result + freeMem str' + return result' + +-- function g_str_match_string +-- Args : [Arg {argName = "search_term", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "potential_hit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accept_alternates", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "search_term", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "potential_hit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accept_alternates", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_str_match_string" g_str_match_string :: + CString -> -- search_term : TBasicType TUTF8 + CString -> -- potential_hit : TBasicType TUTF8 + CInt -> -- accept_alternates : TBasicType TBoolean + IO CInt + + +strMatchString :: + (MonadIO m) => + T.Text -> -- search_term + T.Text -> -- potential_hit + Bool -> -- accept_alternates + m Bool +strMatchString search_term potential_hit accept_alternates = liftIO $ do + search_term' <- textToCString search_term + potential_hit' <- textToCString potential_hit + let accept_alternates' = (fromIntegral . fromEnum) accept_alternates + result <- g_str_match_string search_term' potential_hit' accept_alternates' + let result' = (/= 0) result + freeMem search_term' + freeMem potential_hit' + return result' + +-- function g_str_to_ascii +-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "from_locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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},Arg {argName = "from_locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_str_to_ascii" g_str_to_ascii :: + CString -> -- str : TBasicType TUTF8 + CString -> -- from_locale : TBasicType TUTF8 + IO CString + + +strToAscii :: + (MonadIO m) => + T.Text -> -- str + Maybe (T.Text) -> -- from_locale + m T.Text +strToAscii str from_locale = liftIO $ do + str' <- textToCString str + maybeFrom_locale <- case from_locale of + Nothing -> return nullPtr + Just jFrom_locale -> do + jFrom_locale' <- textToCString jFrom_locale + return jFrom_locale' + result <- g_str_to_ascii str' maybeFrom_locale + checkUnexpectedReturnNULL "g_str_to_ascii" result + result' <- cstringToText result + freeMem result + freeMem str' + freeMem maybeFrom_locale + return result' + +-- function g_str_tokenize_and_fold +-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translit_locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ascii_alternates", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translit_locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "g_str_tokenize_and_fold" g_str_tokenize_and_fold :: + CString -> -- string : TBasicType TUTF8 + CString -> -- translit_locale : TBasicType TUTF8 + Ptr (Ptr CString) -> -- ascii_alternates : TCArray True (-1) (-1) (TBasicType TUTF8) + IO (Ptr CString) + + +strTokenizeAndFold :: + (MonadIO m) => + T.Text -> -- string + Maybe (T.Text) -> -- translit_locale + m ([T.Text],[T.Text]) +strTokenizeAndFold string translit_locale = liftIO $ do + string' <- textToCString string + maybeTranslit_locale <- case translit_locale of + Nothing -> return nullPtr + Just jTranslit_locale -> do + jTranslit_locale' <- textToCString jTranslit_locale + return jTranslit_locale' + ascii_alternates <- allocMem :: IO (Ptr (Ptr CString)) + result <- g_str_tokenize_and_fold string' maybeTranslit_locale ascii_alternates + checkUnexpectedReturnNULL "g_str_tokenize_and_fold" result + result' <- unpackZeroTerminatedUTF8CArray result + mapZeroTerminatedCArray freeMem result + freeMem result + ascii_alternates' <- peek ascii_alternates + ascii_alternates'' <- unpackZeroTerminatedUTF8CArray ascii_alternates' + mapZeroTerminatedCArray freeMem ascii_alternates' + freeMem ascii_alternates' + freeMem string' + freeMem maybeTranslit_locale + freeMem ascii_alternates + return (result', ascii_alternates'') + +-- function g_strcanon +-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "valid_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "substitutor", argType = TBasicType TInt8, 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},Arg {argName = "valid_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "substitutor", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_strcanon" g_strcanon :: + CString -> -- string : TBasicType TUTF8 + CString -> -- valid_chars : TBasicType TUTF8 + Int8 -> -- substitutor : TBasicType TInt8 + IO CString + + +strcanon :: + (MonadIO m) => + T.Text -> -- string + T.Text -> -- valid_chars + Int8 -> -- substitutor + m T.Text +strcanon string valid_chars substitutor = liftIO $ do + string' <- textToCString string + valid_chars' <- textToCString valid_chars + result <- g_strcanon string' valid_chars' substitutor + checkUnexpectedReturnNULL "g_strcanon" result + result' <- cstringToText result + freeMem result + freeMem string' + freeMem valid_chars' + return result' + +-- function g_strcasecmp +-- Args : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", 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_strcasecmp" g_strcasecmp :: + CString -> -- s1 : TBasicType TUTF8 + CString -> -- s2 : TBasicType TUTF8 + IO Int32 + +{-# DEPRECATED strcasecmp ["(Since version 2.2)","See g_strncasecmp() for a discussion of why this"," function is deprecated and how to replace it."]#-} +strcasecmp :: + (MonadIO m) => + T.Text -> -- s1 + T.Text -> -- s2 + m Int32 +strcasecmp s1 s2 = liftIO $ do + s1' <- textToCString s1 + s2' <- textToCString s2 + result <- g_strcasecmp s1' s2' + freeMem s1' + freeMem s2' + return result + +-- function g_strchomp +-- 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_strchomp" g_strchomp :: + CString -> -- string : TBasicType TUTF8 + IO CString + + +strchomp :: + (MonadIO m) => + T.Text -> -- string + m T.Text +strchomp string = liftIO $ do + string' <- textToCString string + result <- g_strchomp string' + checkUnexpectedReturnNULL "g_strchomp" result + result' <- cstringToText result + freeMem result + freeMem string' + return result' + +-- function g_strchug +-- 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_strchug" g_strchug :: + CString -> -- string : TBasicType TUTF8 + IO CString + + +strchug :: + (MonadIO m) => + T.Text -> -- string + m T.Text +strchug string = liftIO $ do + string' <- textToCString string + result <- g_strchug string' + checkUnexpectedReturnNULL "g_strchug" result + result' <- cstringToText result + freeMem result + freeMem string' + return result' + +-- function g_strcmp0 +-- Args : [Arg {argName = "str1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "str1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_strcmp0" g_strcmp0 :: + CString -> -- str1 : TBasicType TUTF8 + CString -> -- str2 : TBasicType TUTF8 + IO Int32 + + +strcmp0 :: + (MonadIO m) => + Maybe (T.Text) -> -- str1 + Maybe (T.Text) -> -- str2 + m Int32 +strcmp0 str1 str2 = liftIO $ do + maybeStr1 <- case str1 of + Nothing -> return nullPtr + Just jStr1 -> do + jStr1' <- textToCString jStr1 + return jStr1' + maybeStr2 <- case str2 of + Nothing -> return nullPtr + Just jStr2 -> do + jStr2' <- textToCString jStr2 + return jStr2' + result <- g_strcmp0 maybeStr1 maybeStr2 + freeMem maybeStr1 + freeMem maybeStr2 + return result + +-- function g_strcompress +-- Args : [Arg {argName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "source", 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_strcompress" g_strcompress :: + CString -> -- source : TBasicType TUTF8 + IO CString + + +strcompress :: + (MonadIO m) => + T.Text -> -- source + m T.Text +strcompress source = liftIO $ do + source' <- textToCString source + result <- g_strcompress source' + checkUnexpectedReturnNULL "g_strcompress" result + result' <- cstringToText result + freeMem result + freeMem source' + return result' + +-- function g_strdelimit +-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "delimiters", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_delimiter", argType = TBasicType TInt8, 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},Arg {argName = "delimiters", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_delimiter", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_strdelimit" g_strdelimit :: + CString -> -- string : TBasicType TUTF8 + CString -> -- delimiters : TBasicType TUTF8 + Int8 -> -- new_delimiter : TBasicType TInt8 + IO CString + + +strdelimit :: + (MonadIO m) => + T.Text -> -- string + Maybe (T.Text) -> -- delimiters + Int8 -> -- new_delimiter + m T.Text +strdelimit string delimiters new_delimiter = liftIO $ do + string' <- textToCString string + maybeDelimiters <- case delimiters of + Nothing -> return nullPtr + Just jDelimiters -> do + jDelimiters' <- textToCString jDelimiters + return jDelimiters' + result <- g_strdelimit string' maybeDelimiters new_delimiter + checkUnexpectedReturnNULL "g_strdelimit" result + result' <- cstringToText result + freeMem result + freeMem string' + freeMem maybeDelimiters + return result' + +-- function g_strdown +-- 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_strdown" g_strdown :: + CString -> -- string : TBasicType TUTF8 + IO CString + +{-# DEPRECATED strdown ["(Since version 2.2)","This function is totally broken for the reasons discussed","in the g_strncasecmp() docs - use g_ascii_strdown() or g_utf8_strdown()","instead."]#-} +strdown :: + (MonadIO m) => + T.Text -> -- string + m T.Text +strdown string = liftIO $ do + string' <- textToCString string + result <- g_strdown string' + checkUnexpectedReturnNULL "g_strdown" result + result' <- cstringToText result + freeMem result + freeMem string' + return result' + +-- function g_strdup +-- 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 : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_strdup" g_strdup :: + CString -> -- str : TBasicType TUTF8 + IO CString + + +strdup :: + (MonadIO m) => + T.Text -> -- str + m T.Text +strdup str = liftIO $ do + str' <- textToCString str + result <- g_strdup str' + checkUnexpectedReturnNULL "g_strdup" result + result' <- cstringToText result + freeMem result + freeMem str' + return result' + +-- function g_strerror +-- Args : [Arg {argName = "errnum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "errnum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_strerror" g_strerror :: + Int32 -> -- errnum : TBasicType TInt32 + IO CString + + +strerror :: + (MonadIO m) => + Int32 -> -- errnum + m T.Text +strerror errnum = liftIO $ do + result <- g_strerror errnum + checkUnexpectedReturnNULL "g_strerror" result + result' <- cstringToText result + return result' + +-- function g_strescape +-- Args : [Arg {argName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exceptions", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exceptions", 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_strescape" g_strescape :: + CString -> -- source : TBasicType TUTF8 + CString -> -- exceptions : TBasicType TUTF8 + IO CString + + +strescape :: + (MonadIO m) => + T.Text -> -- source + T.Text -> -- exceptions + m T.Text +strescape source exceptions = liftIO $ do + source' <- textToCString source + exceptions' <- textToCString exceptions + result <- g_strescape source' exceptions' + checkUnexpectedReturnNULL "g_strescape" result + result' <- cstringToText result + freeMem result + freeMem source' + freeMem exceptions' + return result' + +-- function g_strfreev +-- Args : [Arg {argName = "str_array", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "str_array", 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_strfreev" g_strfreev :: + CString -> -- str_array : TBasicType TUTF8 + IO () + + +strfreev :: + (MonadIO m) => + T.Text -> -- str_array + m () +strfreev str_array = liftIO $ do + str_array' <- textToCString str_array + g_strfreev str_array' + freeMem str_array' + return () + +-- function g_string_new +-- Args : [Arg {argName = "init", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "init", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "String" +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_new" g_string_new :: + CString -> -- init : TBasicType TUTF8 + IO (Ptr String) + + +stringNew :: + (MonadIO m) => + Maybe (T.Text) -> -- init + m String +stringNew init = liftIO $ do + maybeInit <- case init of + Nothing -> return nullPtr + Just jInit -> do + jInit' <- textToCString jInit + return jInit' + result <- g_string_new maybeInit + checkUnexpectedReturnNULL "g_string_new" result + result' <- (wrapBoxed String) result + freeMem maybeInit + return result' + +-- function g_string_new_len +-- Args : [Arg {argName = "init", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "init", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "String" +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_new_len" g_string_new_len :: + CString -> -- init : TBasicType TUTF8 + Int64 -> -- len : TBasicType TInt64 + IO (Ptr String) + + +stringNewLen :: + (MonadIO m) => + T.Text -> -- init + Int64 -> -- len + m String +stringNewLen init len = liftIO $ do + init' <- textToCString init + result <- g_string_new_len init' len + checkUnexpectedReturnNULL "g_string_new_len" result + result' <- (wrapBoxed String) result + freeMem init' + return result' + +-- function g_string_sized_new +-- Args : [Arg {argName = "dfl_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "dfl_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "String" +-- throws : False +-- Skip return : False + +foreign import ccall "g_string_sized_new" g_string_sized_new :: + Word64 -> -- dfl_size : TBasicType TUInt64 + IO (Ptr String) + + +stringSizedNew :: + (MonadIO m) => + Word64 -> -- dfl_size + m String +stringSizedNew dfl_size = liftIO $ do + result <- g_string_sized_new dfl_size + checkUnexpectedReturnNULL "g_string_sized_new" result + result' <- (wrapBoxed String) result + return result' + +-- function g_strip_context +-- Args : [Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgval", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgval", 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_strip_context" g_strip_context :: + CString -> -- msgid : TBasicType TUTF8 + CString -> -- msgval : TBasicType TUTF8 + IO CString + + +stripContext :: + (MonadIO m) => + T.Text -> -- msgid + T.Text -> -- msgval + m T.Text +stripContext msgid msgval = liftIO $ do + msgid' <- textToCString msgid + msgval' <- textToCString msgval + result <- g_strip_context msgid' msgval' + checkUnexpectedReturnNULL "g_strip_context" result + result' <- cstringToText result + freeMem msgid' + freeMem msgval' + return result' + +-- function g_strjoinv +-- Args : [Arg {argName = "separator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str_array", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "separator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str_array", 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_strjoinv" g_strjoinv :: + CString -> -- separator : TBasicType TUTF8 + CString -> -- str_array : TBasicType TUTF8 + IO CString + + +strjoinv :: + (MonadIO m) => + Maybe (T.Text) -> -- separator + T.Text -> -- str_array + m T.Text +strjoinv separator str_array = liftIO $ do + maybeSeparator <- case separator of + Nothing -> return nullPtr + Just jSeparator -> do + jSeparator' <- textToCString jSeparator + return jSeparator' + str_array' <- textToCString str_array + result <- g_strjoinv maybeSeparator str_array' + checkUnexpectedReturnNULL "g_strjoinv" result + result' <- cstringToText result + freeMem result + freeMem maybeSeparator + freeMem str_array' + return result' + +-- function g_strlcat +-- Args : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "g_strlcat" g_strlcat :: + CString -> -- dest : TBasicType TUTF8 + CString -> -- src : TBasicType TUTF8 + Word64 -> -- dest_size : TBasicType TUInt64 + IO Word64 + + +strlcat :: + (MonadIO m) => + T.Text -> -- dest + T.Text -> -- src + Word64 -> -- dest_size + m Word64 +strlcat dest src dest_size = liftIO $ do + dest' <- textToCString dest + src' <- textToCString src + result <- g_strlcat dest' src' dest_size + freeMem dest' + freeMem src' + return result + +-- function g_strlcpy +-- Args : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "g_strlcpy" g_strlcpy :: + CString -> -- dest : TBasicType TUTF8 + CString -> -- src : TBasicType TUTF8 + Word64 -> -- dest_size : TBasicType TUInt64 + IO Word64 + + +strlcpy :: + (MonadIO m) => + T.Text -> -- dest + T.Text -> -- src + Word64 -> -- dest_size + m Word64 +strlcpy dest src dest_size = liftIO $ do + dest' <- textToCString dest + src' <- textToCString src + result <- g_strlcpy dest' src' dest_size + freeMem dest' + freeMem src' + return result + +-- function g_strncasecmp +-- Args : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_strncasecmp" g_strncasecmp :: + CString -> -- s1 : TBasicType TUTF8 + CString -> -- s2 : TBasicType TUTF8 + Word32 -> -- n : TBasicType TUInt32 + IO Int32 + +{-# DEPRECATED strncasecmp ["(Since version 2.2)","The problem with g_strncasecmp() is that it does"," the comparison by calling toupper()/tolower(). These functions"," are locale-specific and operate on single bytes. However, it is"," impossible to handle things correctly from an internationalization"," standpoint by operating on bytes, since characters may be multibyte."," Thus g_strncasecmp() is broken if your string is guaranteed to be"," ASCII, since it is locale-sensitive, and it's broken if your string"," is localized, since it doesn't work on many encodings at all,"," including UTF-8, EUC-JP, etc.",""," There are therefore two replacement techniques: g_ascii_strncasecmp(),"," which only works on ASCII and is not locale-sensitive, and"," g_utf8_casefold() followed by strcmp() on the resulting strings,"," which is good for case-insensitive sorting of UTF-8."]#-} +strncasecmp :: + (MonadIO m) => + T.Text -> -- s1 + T.Text -> -- s2 + Word32 -> -- n + m Int32 +strncasecmp s1 s2 n = liftIO $ do + s1' <- textToCString s1 + s2' <- textToCString s2 + result <- g_strncasecmp s1' s2' n + freeMem s1' + freeMem s2' + return result + +-- function g_strndup +-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, 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},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_strndup" g_strndup :: + CString -> -- str : TBasicType TUTF8 + Word64 -> -- n : TBasicType TUInt64 + IO CString + + +strndup :: + (MonadIO m) => + T.Text -> -- str + Word64 -> -- n + m T.Text +strndup str n = liftIO $ do + str' <- textToCString str + result <- g_strndup str' n + checkUnexpectedReturnNULL "g_strndup" result + result' <- cstringToText result + freeMem result + freeMem str' + return result' + +-- function g_strnfill +-- Args : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill_char", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill_char", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_strnfill" g_strnfill :: + Word64 -> -- length : TBasicType TUInt64 + Int8 -> -- fill_char : TBasicType TInt8 + IO CString + + +strnfill :: + (MonadIO m) => + Word64 -> -- length + Int8 -> -- fill_char + m T.Text +strnfill length_ fill_char = liftIO $ do + result <- g_strnfill length_ fill_char + checkUnexpectedReturnNULL "g_strnfill" result + result' <- cstringToText result + freeMem result + return result' + +-- function g_strreverse +-- 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_strreverse" g_strreverse :: + CString -> -- string : TBasicType TUTF8 + IO CString + + +strreverse :: + (MonadIO m) => + T.Text -> -- string + m T.Text +strreverse string = liftIO $ do + string' <- textToCString string + result <- g_strreverse string' + checkUnexpectedReturnNULL "g_strreverse" result + result' <- cstringToText result + freeMem result + freeMem string' + return result' + +-- function g_strrstr +-- Args : [Arg {argName = "haystack", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "haystack", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needle", 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_strrstr" g_strrstr :: + CString -> -- haystack : TBasicType TUTF8 + CString -> -- needle : TBasicType TUTF8 + IO CString + + +strrstr :: + (MonadIO m) => + T.Text -> -- haystack + T.Text -> -- needle + m T.Text +strrstr haystack needle = liftIO $ do + haystack' <- textToCString haystack + needle' <- textToCString needle + result <- g_strrstr haystack' needle' + checkUnexpectedReturnNULL "g_strrstr" result + result' <- cstringToText result + freeMem result + freeMem haystack' + freeMem needle' + return result' + +-- function g_strrstr_len +-- Args : [Arg {argName = "haystack", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "haystack_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "haystack", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "haystack_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needle", 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_strrstr_len" g_strrstr_len :: + CString -> -- haystack : TBasicType TUTF8 + Int64 -> -- haystack_len : TBasicType TInt64 + CString -> -- needle : TBasicType TUTF8 + IO CString + + +strrstrLen :: + (MonadIO m) => + T.Text -> -- haystack + Int64 -> -- haystack_len + T.Text -> -- needle + m T.Text +strrstrLen haystack haystack_len needle = liftIO $ do + haystack' <- textToCString haystack + needle' <- textToCString needle + result <- g_strrstr_len haystack' haystack_len needle' + checkUnexpectedReturnNULL "g_strrstr_len" result + result' <- cstringToText result + freeMem result + freeMem haystack' + freeMem needle' + return result' + +-- function g_strsignal +-- Args : [Arg {argName = "signum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "signum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_strsignal" g_strsignal :: + Int32 -> -- signum : TBasicType TInt32 + IO CString + + +strsignal :: + (MonadIO m) => + Int32 -> -- signum + m T.Text +strsignal signum = liftIO $ do + result <- g_strsignal signum + checkUnexpectedReturnNULL "g_strsignal" result + result' <- cstringToText result + return result' + +-- function g_strstr_len +-- Args : [Arg {argName = "haystack", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "haystack_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "haystack", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "haystack_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needle", 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_strstr_len" g_strstr_len :: + CString -> -- haystack : TBasicType TUTF8 + Int64 -> -- haystack_len : TBasicType TInt64 + CString -> -- needle : TBasicType TUTF8 + IO CString + + +strstrLen :: + (MonadIO m) => + T.Text -> -- haystack + Int64 -> -- haystack_len + T.Text -> -- needle + m T.Text +strstrLen haystack haystack_len needle = liftIO $ do + haystack' <- textToCString haystack + needle' <- textToCString needle + result <- g_strstr_len haystack' haystack_len needle' + checkUnexpectedReturnNULL "g_strstr_len" result + result' <- cstringToText result + freeMem result + freeMem haystack' + freeMem needle' + return result' + +-- function g_strtod +-- Args : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "g_strtod" g_strtod :: + CString -> -- nptr : TBasicType TUTF8 + CString -> -- endptr : TBasicType TUTF8 + IO CDouble + + +strtod :: + (MonadIO m) => + T.Text -> -- nptr + T.Text -> -- endptr + m Double +strtod nptr endptr = liftIO $ do + nptr' <- textToCString nptr + endptr' <- textToCString endptr + result <- g_strtod nptr' endptr' + let result' = realToFrac result + freeMem nptr' + freeMem endptr' + return result' + +-- function g_strup +-- 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_strup" g_strup :: + CString -> -- string : TBasicType TUTF8 + IO CString + +{-# DEPRECATED strup ["(Since version 2.2)","This function is totally broken for the reasons"," discussed in the g_strncasecmp() docs - use g_ascii_strup()"," or g_utf8_strup() instead."]#-} +strup :: + (MonadIO m) => + T.Text -> -- string + m T.Text +strup string = liftIO $ do + string' <- textToCString string + result <- g_strup string' + checkUnexpectedReturnNULL "g_strup" result + result' <- cstringToText result + freeMem result + freeMem string' + return result' + +-- function g_strv_contains +-- Args : [Arg {argName = "strv", argType = TBasicType TUTF8, 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "strv", argType = TBasicType TUTF8, 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}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_strv_contains" g_strv_contains :: + CString -> -- strv : TBasicType TUTF8 + CString -> -- str : TBasicType TUTF8 + IO CInt + + +strvContains :: + (MonadIO m) => + T.Text -> -- strv + T.Text -> -- str + m Bool +strvContains strv str = liftIO $ do + strv' <- textToCString strv + str' <- textToCString str + result <- g_strv_contains strv' str' + let result' = (/= 0) result + freeMem strv' + freeMem str' + return result' + +-- function g_strv_get_type +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TGType +-- throws : False +-- Skip return : False + +foreign import ccall "g_strv_get_type" g_strv_get_type :: + IO CGType + + +strvGetType :: + (MonadIO m) => + m GType +strvGetType = liftIO $ do + result <- g_strv_get_type + let result' = GType result + return result' + +-- function g_strv_length +-- Args : [Arg {argName = "str_array", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "str_array", 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_strv_length" g_strv_length :: + CString -> -- str_array : TBasicType TUTF8 + IO Word32 + + +strvLength :: + (MonadIO m) => + T.Text -> -- str_array + m Word32 +strvLength str_array = liftIO $ do + str_array' <- textToCString str_array + result <- g_strv_length str_array' + freeMem str_array' + return result + +-- function g_test_add_data_func +-- Args : [Arg {argName = "testpath", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_func", argType = TInterface "GLib" "TestDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "testpath", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_func", argType = TInterface "GLib" "TestDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_test_add_data_func" g_test_add_data_func :: + CString -> -- testpath : TBasicType TUTF8 + Ptr () -> -- test_data : TBasicType TVoid + FunPtr TestDataFuncC -> -- test_func : TInterface "GLib" "TestDataFunc" + IO () + + +testAddDataFunc :: + (MonadIO m) => + T.Text -> -- testpath + Ptr () -> -- test_data + TestDataFunc -> -- test_func + m () +testAddDataFunc testpath test_data test_func = liftIO $ do + testpath' <- textToCString testpath + ptrtest_func <- callocMem :: IO (Ptr (FunPtr TestDataFuncC)) + test_func' <- mkTestDataFunc (testDataFuncWrapper (Just ptrtest_func) test_func) + poke ptrtest_func test_func' + g_test_add_data_func testpath' test_data test_func' + freeMem testpath' + return () + +-- function g_test_add_func +-- Args : [Arg {argName = "testpath", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_func", argType = TInterface "GLib" "TestFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "testpath", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_func", argType = TInterface "GLib" "TestFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_test_add_func" g_test_add_func :: + CString -> -- testpath : TBasicType TUTF8 + FunPtr TestFuncC -> -- test_func : TInterface "GLib" "TestFunc" + IO () + + +testAddFunc :: + (MonadIO m) => + T.Text -> -- testpath + TestFunc -> -- test_func + m () +testAddFunc testpath test_func = liftIO $ do + testpath' <- textToCString testpath + ptrtest_func <- callocMem :: IO (Ptr (FunPtr TestFuncC)) + test_func' <- mkTestFunc (testFuncWrapper (Just ptrtest_func) test_func) + poke ptrtest_func test_func' + g_test_add_func testpath' test_func' + freeMem testpath' + return () + +-- function g_test_assert_expected_messages_internal +-- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", 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_test_assert_expected_messages_internal" g_test_assert_expected_messages_internal :: + CString -> -- domain : TBasicType TUTF8 + CString -> -- file : TBasicType TUTF8 + Int32 -> -- line : TBasicType TInt32 + CString -> -- func : TBasicType TUTF8 + IO () + + +testAssertExpectedMessagesInternal :: + (MonadIO m) => + T.Text -> -- domain + T.Text -> -- file + Int32 -> -- line + T.Text -> -- func + m () +testAssertExpectedMessagesInternal domain file line func = liftIO $ do + domain' <- textToCString domain + file' <- textToCString file + func' <- textToCString func + g_test_assert_expected_messages_internal domain' file' line func' + freeMem domain' + freeMem file' + freeMem func' + return () + +-- function g_test_bug +-- Args : [Arg {argName = "bug_uri_snippet", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "bug_uri_snippet", 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_test_bug" g_test_bug :: + CString -> -- bug_uri_snippet : TBasicType TUTF8 + IO () + + +testBug :: + (MonadIO m) => + T.Text -> -- bug_uri_snippet + m () +testBug bug_uri_snippet = liftIO $ do + bug_uri_snippet' <- textToCString bug_uri_snippet + g_test_bug bug_uri_snippet' + freeMem bug_uri_snippet' + return () + +-- function g_test_bug_base +-- Args : [Arg {argName = "uri_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "uri_pattern", 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_test_bug_base" g_test_bug_base :: + CString -> -- uri_pattern : TBasicType TUTF8 + IO () + + +testBugBase :: + (MonadIO m) => + T.Text -> -- uri_pattern + m () +testBugBase uri_pattern = liftIO $ do + uri_pattern' <- textToCString uri_pattern + g_test_bug_base uri_pattern' + freeMem uri_pattern' + return () + +-- function g_test_expect_message +-- Args : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_level", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_level", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", 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_test_expect_message" g_test_expect_message :: + CString -> -- log_domain : TBasicType TUTF8 + CUInt -> -- log_level : TInterface "GLib" "LogLevelFlags" + CString -> -- pattern : TBasicType TUTF8 + IO () + + +testExpectMessage :: + (MonadIO m) => + Maybe (T.Text) -> -- log_domain + [LogLevelFlags] -> -- log_level + T.Text -> -- pattern + m () +testExpectMessage log_domain log_level pattern = liftIO $ do + maybeLog_domain <- case log_domain of + Nothing -> return nullPtr + Just jLog_domain -> do + jLog_domain' <- textToCString jLog_domain + return jLog_domain' + let log_level' = gflagsToWord log_level + pattern' <- textToCString pattern + g_test_expect_message maybeLog_domain log_level' pattern' + freeMem maybeLog_domain + freeMem pattern' + return () + +-- function g_test_fail +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_test_fail" g_test_fail :: + IO () + + +testFail :: + (MonadIO m) => + m () +testFail = liftIO $ do + g_test_fail + return () + +-- function g_test_failed +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_test_failed" g_test_failed :: + IO CInt + + +testFailed :: + (MonadIO m) => + m Bool +testFailed = liftIO $ do + result <- g_test_failed + let result' = (/= 0) result + return result' + +-- function g_test_get_dir +-- Args : [Arg {argName = "file_type", argType = TInterface "GLib" "TestFileType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "file_type", argType = TInterface "GLib" "TestFileType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_test_get_dir" g_test_get_dir :: + CUInt -> -- file_type : TInterface "GLib" "TestFileType" + IO CString + + +testGetDir :: + (MonadIO m) => + TestFileType -> -- file_type + m T.Text +testGetDir file_type = liftIO $ do + let file_type' = (fromIntegral . fromEnum) file_type + result <- g_test_get_dir file_type' + checkUnexpectedReturnNULL "g_test_get_dir" result + result' <- cstringToText result + return result' + +-- function g_test_incomplete +-- Args : [Arg {argName = "msg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "msg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_test_incomplete" g_test_incomplete :: + CString -> -- msg : TBasicType TUTF8 + IO () + + +testIncomplete :: + (MonadIO m) => + Maybe (T.Text) -> -- msg + m () +testIncomplete msg = liftIO $ do + maybeMsg <- case msg of + Nothing -> return nullPtr + Just jMsg -> do + jMsg' <- textToCString jMsg + return jMsg' + g_test_incomplete maybeMsg + freeMem maybeMsg + return () + +-- function g_test_log_type_name +-- Args : [Arg {argName = "log_type", argType = TInterface "GLib" "TestLogType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "log_type", argType = TInterface "GLib" "TestLogType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_test_log_type_name" g_test_log_type_name :: + CUInt -> -- log_type : TInterface "GLib" "TestLogType" + IO CString + + +testLogTypeName :: + (MonadIO m) => + TestLogType -> -- log_type + m T.Text +testLogTypeName log_type = liftIO $ do + let log_type' = (fromIntegral . fromEnum) log_type + result <- g_test_log_type_name log_type' + checkUnexpectedReturnNULL "g_test_log_type_name" result + result' <- cstringToText result + return result' + +-- function g_test_queue_destroy +-- Args : [Arg {argName = "destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_data", 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_test_queue_destroy" g_test_queue_destroy :: + FunPtr DestroyNotifyC -> -- destroy_func : TInterface "GLib" "DestroyNotify" + Ptr () -> -- destroy_data : TBasicType TVoid + IO () + + +testQueueDestroy :: + (MonadIO m) => + DestroyNotify -> -- destroy_func + Ptr () -> -- destroy_data + m () +testQueueDestroy destroy_func destroy_data = liftIO $ do + ptrdestroy_func <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC)) + destroy_func' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrdestroy_func) destroy_func) + poke ptrdestroy_func destroy_func' + g_test_queue_destroy destroy_func' destroy_data + return () + +-- function g_test_queue_free +-- Args : [Arg {argName = "gfree_pointer", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "gfree_pointer", 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_test_queue_free" g_test_queue_free :: + Ptr () -> -- gfree_pointer : TBasicType TVoid + IO () + + +testQueueFree :: + (MonadIO m) => + Ptr () -> -- gfree_pointer + m () +testQueueFree gfree_pointer = liftIO $ do + g_test_queue_free gfree_pointer + return () + +-- function g_test_rand_double +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "g_test_rand_double" g_test_rand_double :: + IO CDouble + + +testRandDouble :: + (MonadIO m) => + m Double +testRandDouble = liftIO $ do + result <- g_test_rand_double + let result' = realToFrac result + return result' + +-- function g_test_rand_double_range +-- Args : [Arg {argName = "range_start", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "range_end", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "range_start", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "range_end", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "g_test_rand_double_range" g_test_rand_double_range :: + CDouble -> -- range_start : TBasicType TDouble + CDouble -> -- range_end : TBasicType TDouble + IO CDouble + + +testRandDoubleRange :: + (MonadIO m) => + Double -> -- range_start + Double -> -- range_end + m Double +testRandDoubleRange range_start range_end = liftIO $ do + let range_start' = realToFrac range_start + let range_end' = realToFrac range_end + result <- g_test_rand_double_range range_start' range_end' + let result' = realToFrac result + return result' + +-- function g_test_rand_int +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_test_rand_int" g_test_rand_int :: + IO Int32 + + +testRandInt :: + (MonadIO m) => + m Int32 +testRandInt = liftIO $ do + result <- g_test_rand_int + return result + +-- function g_test_rand_int_range +-- Args : [Arg {argName = "begin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "begin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_test_rand_int_range" g_test_rand_int_range :: + Int32 -> -- begin : TBasicType TInt32 + Int32 -> -- end : TBasicType TInt32 + IO Int32 + + +testRandIntRange :: + (MonadIO m) => + Int32 -> -- begin + Int32 -> -- end + m Int32 +testRandIntRange begin end = liftIO $ do + result <- g_test_rand_int_range begin end + return result + +-- function g_test_run +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_test_run" g_test_run :: + IO Int32 + + +testRun :: + (MonadIO m) => + m Int32 +testRun = liftIO $ do + result <- g_test_run + return result + +-- function g_test_run_suite +-- Args : [Arg {argName = "suite", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "suite", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_test_run_suite" g_test_run_suite :: + Ptr TestSuite -> -- suite : TInterface "GLib" "TestSuite" + IO Int32 + + +testRunSuite :: + (MonadIO m) => + TestSuite -> -- suite + m Int32 +testRunSuite suite = liftIO $ do + let suite' = unsafeManagedPtrGetPtr suite + result <- g_test_run_suite suite' + touchManagedPtr suite + return result + +-- function g_test_set_nonfatal_assertions +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_test_set_nonfatal_assertions" g_test_set_nonfatal_assertions :: + IO () + + +testSetNonfatalAssertions :: + (MonadIO m) => + m () +testSetNonfatalAssertions = liftIO $ do + g_test_set_nonfatal_assertions + return () + +-- function g_test_skip +-- Args : [Arg {argName = "msg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "msg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_test_skip" g_test_skip :: + CString -> -- msg : TBasicType TUTF8 + IO () + + +testSkip :: + (MonadIO m) => + Maybe (T.Text) -> -- msg + m () +testSkip msg = liftIO $ do + maybeMsg <- case msg of + Nothing -> return nullPtr + Just jMsg -> do + jMsg' <- textToCString jMsg + return jMsg' + g_test_skip maybeMsg + freeMem maybeMsg + return () + +-- function g_test_subprocess +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_test_subprocess" g_test_subprocess :: + IO CInt + + +testSubprocess :: + (MonadIO m) => + m Bool +testSubprocess = liftIO $ do + result <- g_test_subprocess + let result' = (/= 0) result + return result' + +-- function g_test_timer_elapsed +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "g_test_timer_elapsed" g_test_timer_elapsed :: + IO CDouble + + +testTimerElapsed :: + (MonadIO m) => + m Double +testTimerElapsed = liftIO $ do + result <- g_test_timer_elapsed + let result' = realToFrac result + return result' + +-- function g_test_timer_last +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TDouble +-- throws : False +-- Skip return : False + +foreign import ccall "g_test_timer_last" g_test_timer_last :: + IO CDouble + + +testTimerLast :: + (MonadIO m) => + m Double +testTimerLast = liftIO $ do + result <- g_test_timer_last + let result' = realToFrac result + return result' + +-- function g_test_timer_start +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_test_timer_start" g_test_timer_start :: + IO () + + +testTimerStart :: + (MonadIO m) => + m () +testTimerStart = liftIO $ do + g_test_timer_start + return () + +-- function g_test_trap_assertions +-- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "assertion_flags", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "assertion_flags", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", 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_test_trap_assertions" g_test_trap_assertions :: + CString -> -- domain : TBasicType TUTF8 + CString -> -- file : TBasicType TUTF8 + Int32 -> -- line : TBasicType TInt32 + CString -> -- func : TBasicType TUTF8 + Word64 -> -- assertion_flags : TBasicType TUInt64 + CString -> -- pattern : TBasicType TUTF8 + IO () + + +testTrapAssertions :: + (MonadIO m) => + T.Text -> -- domain + T.Text -> -- file + Int32 -> -- line + T.Text -> -- func + Word64 -> -- assertion_flags + T.Text -> -- pattern + m () +testTrapAssertions domain file line func assertion_flags pattern = liftIO $ do + domain' <- textToCString domain + file' <- textToCString file + func' <- textToCString func + pattern' <- textToCString pattern + g_test_trap_assertions domain' file' line func' assertion_flags pattern' + freeMem domain' + freeMem file' + freeMem func' + freeMem pattern' + return () + +-- function g_test_trap_fork +-- Args : [Arg {argName = "usec_timeout", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_trap_flags", argType = TInterface "GLib" "TestTrapFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "usec_timeout", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_trap_flags", argType = TInterface "GLib" "TestTrapFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_test_trap_fork" g_test_trap_fork :: + Word64 -> -- usec_timeout : TBasicType TUInt64 + CUInt -> -- test_trap_flags : TInterface "GLib" "TestTrapFlags" + IO CInt + +{-# DEPRECATED testTrapFork ["This function is implemented only on Unix platforms,","and is not always reliable due to problems inherent in","fork-without-exec. Use g_test_trap_subprocess() instead."]#-} +testTrapFork :: + (MonadIO m) => + Word64 -> -- usec_timeout + [TestTrapFlags] -> -- test_trap_flags + m Bool +testTrapFork usec_timeout test_trap_flags = liftIO $ do + let test_trap_flags' = gflagsToWord test_trap_flags + result <- g_test_trap_fork usec_timeout test_trap_flags' + let result' = (/= 0) result + return result' + +-- function g_test_trap_has_passed +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_test_trap_has_passed" g_test_trap_has_passed :: + IO CInt + + +testTrapHasPassed :: + (MonadIO m) => + m Bool +testTrapHasPassed = liftIO $ do + result <- g_test_trap_has_passed + let result' = (/= 0) result + return result' + +-- function g_test_trap_reached_timeout +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_test_trap_reached_timeout" g_test_trap_reached_timeout :: + IO CInt + + +testTrapReachedTimeout :: + (MonadIO m) => + m Bool +testTrapReachedTimeout = liftIO $ do + result <- g_test_trap_reached_timeout + let result' = (/= 0) result + return result' + +-- function g_test_trap_subprocess +-- Args : [Arg {argName = "test_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "usec_timeout", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_flags", argType = TInterface "GLib" "TestSubprocessFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "test_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "usec_timeout", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_flags", argType = TInterface "GLib" "TestSubprocessFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_test_trap_subprocess" g_test_trap_subprocess :: + CString -> -- test_path : TBasicType TUTF8 + Word64 -> -- usec_timeout : TBasicType TUInt64 + CUInt -> -- test_flags : TInterface "GLib" "TestSubprocessFlags" + IO () + + +testTrapSubprocess :: + (MonadIO m) => + Maybe (T.Text) -> -- test_path + Word64 -> -- usec_timeout + [TestSubprocessFlags] -> -- test_flags + m () +testTrapSubprocess test_path usec_timeout test_flags = liftIO $ do + maybeTest_path <- case test_path of + Nothing -> return nullPtr + Just jTest_path -> do + jTest_path' <- textToCString jTest_path + return jTest_path' + let test_flags' = gflagsToWord test_flags + g_test_trap_subprocess maybeTest_path usec_timeout test_flags' + freeMem maybeTest_path + return () + +-- function g_thread_error_quark +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_thread_error_quark" g_thread_error_quark :: + IO Word32 + + +threadErrorQuark :: + (MonadIO m) => + m Word32 +threadErrorQuark = liftIO $ do + result <- g_thread_error_quark + return result + +-- function g_thread_exit +-- Args : [Arg {argName = "retval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "retval", 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_thread_exit" g_thread_exit :: + Ptr () -> -- retval : TBasicType TVoid + IO () + + +threadExit :: + (MonadIO m) => + Ptr () -> -- retval + m () +threadExit retval = liftIO $ do + g_thread_exit retval + return () + +-- function g_thread_pool_get_max_idle_time +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_thread_pool_get_max_idle_time" g_thread_pool_get_max_idle_time :: + IO Word32 + + +threadPoolGetMaxIdleTime :: + (MonadIO m) => + m Word32 +threadPoolGetMaxIdleTime = liftIO $ do + result <- g_thread_pool_get_max_idle_time + return result + +-- function g_thread_pool_get_max_unused_threads +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_thread_pool_get_max_unused_threads" g_thread_pool_get_max_unused_threads :: + IO Int32 + + +threadPoolGetMaxUnusedThreads :: + (MonadIO m) => + m Int32 +threadPoolGetMaxUnusedThreads = liftIO $ do + result <- g_thread_pool_get_max_unused_threads + return result + +-- function g_thread_pool_get_num_unused_threads +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_thread_pool_get_num_unused_threads" g_thread_pool_get_num_unused_threads :: + IO Word32 + + +threadPoolGetNumUnusedThreads :: + (MonadIO m) => + m Word32 +threadPoolGetNumUnusedThreads = liftIO $ do + result <- g_thread_pool_get_num_unused_threads + return result + +-- function g_thread_pool_set_max_idle_time +-- Args : [Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "interval", 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_thread_pool_set_max_idle_time" g_thread_pool_set_max_idle_time :: + Word32 -> -- interval : TBasicType TUInt32 + IO () + + +threadPoolSetMaxIdleTime :: + (MonadIO m) => + Word32 -> -- interval + m () +threadPoolSetMaxIdleTime interval = liftIO $ do + g_thread_pool_set_max_idle_time interval + return () + +-- function g_thread_pool_set_max_unused_threads +-- Args : [Arg {argName = "max_threads", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "max_threads", 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_thread_pool_set_max_unused_threads" g_thread_pool_set_max_unused_threads :: + Int32 -> -- max_threads : TBasicType TInt32 + IO () + + +threadPoolSetMaxUnusedThreads :: + (MonadIO m) => + Int32 -> -- max_threads + m () +threadPoolSetMaxUnusedThreads max_threads = liftIO $ do + g_thread_pool_set_max_unused_threads max_threads + return () + +-- function g_thread_pool_stop_unused_threads +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_thread_pool_stop_unused_threads" g_thread_pool_stop_unused_threads :: + IO () + + +threadPoolStopUnusedThreads :: + (MonadIO m) => + m () +threadPoolStopUnusedThreads = liftIO $ do + g_thread_pool_stop_unused_threads + return () + +-- function g_thread_self +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "GLib" "Thread" +-- throws : False +-- Skip return : False + +foreign import ccall "g_thread_self" g_thread_self :: + IO (Ptr Thread) + + +threadSelf :: + (MonadIO m) => + m Thread +threadSelf = liftIO $ do + result <- g_thread_self + checkUnexpectedReturnNULL "g_thread_self" result + result' <- (wrapBoxed Thread) result + return result' + +-- function g_thread_yield +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_thread_yield" g_thread_yield :: + IO () + + +threadYield :: + (MonadIO m) => + m () +threadYield = liftIO $ do + g_thread_yield + return () + +-- function g_time_val_from_iso8601 +-- Args : [Arg {argName = "iso_date", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TInterface "GLib" "TimeVal", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "iso_date", 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_time_val_from_iso8601" g_time_val_from_iso8601 :: + CString -> -- iso_date : TBasicType TUTF8 + Ptr TimeVal -> -- time_ : TInterface "GLib" "TimeVal" + IO CInt + + +timeValFromIso8601 :: + (MonadIO m) => + T.Text -> -- iso_date + m (Bool,TimeVal) +timeValFromIso8601 iso_date = liftIO $ do + iso_date' <- textToCString iso_date + time_ <- callocBytes 16 :: IO (Ptr TimeVal) + result <- g_time_val_from_iso8601 iso_date' time_ + let result' = (/= 0) result + time_' <- (wrapPtr TimeVal) time_ + freeMem iso_date' + return (result', time_') + +-- function g_timeout_add_full +-- Args : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_timeout_add_full" g_timeout_add_full :: + Int32 -> -- priority : TBasicType TInt32 + Word32 -> -- interval : TBasicType TUInt32 + FunPtr SourceFuncC -> -- function : TInterface "GLib" "SourceFunc" + Ptr () -> -- data : TBasicType TVoid + FunPtr DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" + IO Word32 + + +timeoutAdd :: + (MonadIO m) => + Int32 -> -- priority + Word32 -> -- interval + SourceFunc -> -- function + m Word32 +timeoutAdd priority interval function = liftIO $ do + function' <- mkSourceFunc (sourceFuncWrapper Nothing function) + let data_ = castFunPtrToPtr function' + let notify = safeFreeFunPtrPtr + result <- g_timeout_add_full priority interval function' data_ notify + return result + +-- function g_timeout_add_seconds_full +-- Args : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_timeout_add_seconds_full" g_timeout_add_seconds_full :: + Int32 -> -- priority : TBasicType TInt32 + Word32 -> -- interval : TBasicType TUInt32 + FunPtr SourceFuncC -> -- function : TInterface "GLib" "SourceFunc" + Ptr () -> -- data : TBasicType TVoid + FunPtr DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" + IO Word32 + + +timeoutAddSeconds :: + (MonadIO m) => + Int32 -> -- priority + Word32 -> -- interval + SourceFunc -> -- function + m Word32 +timeoutAddSeconds priority interval function = liftIO $ do + function' <- mkSourceFunc (sourceFuncWrapper Nothing function) + let data_ = castFunPtrToPtr function' + let notify = safeFreeFunPtrPtr + result <- g_timeout_add_seconds_full priority interval function' data_ notify + return result + +-- function g_timeout_source_new +-- Args : [Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "interval", argType = TBasicType TUInt32, 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_timeout_source_new" g_timeout_source_new :: + Word32 -> -- interval : TBasicType TUInt32 + IO (Ptr Source) + + +timeoutSourceNew :: + (MonadIO m) => + Word32 -> -- interval + m Source +timeoutSourceNew interval = liftIO $ do + result <- g_timeout_source_new interval + checkUnexpectedReturnNULL "g_timeout_source_new" result + result' <- (wrapBoxed Source) result + return result' + +-- function g_timeout_source_new_seconds +-- Args : [Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "interval", argType = TBasicType TUInt32, 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_timeout_source_new_seconds" g_timeout_source_new_seconds :: + Word32 -> -- interval : TBasicType TUInt32 + IO (Ptr Source) + + +timeoutSourceNewSeconds :: + (MonadIO m) => + Word32 -> -- interval + m Source +timeoutSourceNewSeconds interval = liftIO $ do + result <- g_timeout_source_new_seconds interval + checkUnexpectedReturnNULL "g_timeout_source_new_seconds" result + result' <- (wrapBoxed Source) result + return result' + +-- function g_trash_stack_height +-- Args : [Arg {argName = "stack_p", argType = TInterface "GLib" "TrashStack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "stack_p", argType = TInterface "GLib" "TrashStack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_trash_stack_height" g_trash_stack_height :: + Ptr TrashStack -> -- stack_p : TInterface "GLib" "TrashStack" + IO Word32 + + +trashStackHeight :: + (MonadIO m) => + TrashStack -> -- stack_p + m Word32 +trashStackHeight stack_p = liftIO $ do + let stack_p' = unsafeManagedPtrGetPtr stack_p + result <- g_trash_stack_height stack_p' + touchManagedPtr stack_p + return result + +-- function g_trash_stack_push +-- Args : [Arg {argName = "stack_p", argType = TInterface "GLib" "TrashStack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data_p", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "stack_p", argType = TInterface "GLib" "TrashStack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data_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_trash_stack_push" g_trash_stack_push :: + Ptr TrashStack -> -- stack_p : TInterface "GLib" "TrashStack" + Ptr () -> -- data_p : TBasicType TVoid + IO () + + +trashStackPush :: + (MonadIO m) => + TrashStack -> -- stack_p + Ptr () -> -- data_p + m () +trashStackPush stack_p data_p = liftIO $ do + let stack_p' = unsafeManagedPtrGetPtr stack_p + g_trash_stack_push stack_p' data_p + touchManagedPtr stack_p + return () + +-- function g_unichar_break_type +-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "UnicodeBreakType" +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_break_type" g_unichar_break_type :: + CInt -> -- c : TBasicType TUniChar + IO CUInt + + +unicharBreakType :: + (MonadIO m) => + Char -> -- c + m UnicodeBreakType +unicharBreakType c = liftIO $ do + let c' = (fromIntegral . ord) c + result <- g_unichar_break_type c' + let result' = (toEnum . fromIntegral) result + return result' + +-- function g_unichar_combining_class +-- Args : [Arg {argName = "uc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "uc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_combining_class" g_unichar_combining_class :: + CInt -> -- uc : TBasicType TUniChar + IO Int32 + + +unicharCombiningClass :: + (MonadIO m) => + Char -> -- uc + m Int32 +unicharCombiningClass uc = liftIO $ do + let uc' = (fromIntegral . ord) uc + result <- g_unichar_combining_class uc' + return result + +-- function g_unichar_compose +-- Args : [Arg {argName = "a", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "a", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_compose" g_unichar_compose :: + CInt -> -- a : TBasicType TUniChar + CInt -> -- b : TBasicType TUniChar + CInt -> -- ch : TBasicType TUniChar + IO CInt + + +unicharCompose :: + (MonadIO m) => + Char -> -- a + Char -> -- b + Char -> -- ch + m Bool +unicharCompose a b ch = liftIO $ do + let a' = (fromIntegral . ord) a + let b' = (fromIntegral . ord) b + let ch' = (fromIntegral . ord) ch + result <- g_unichar_compose a' b' ch' + let result' = (/= 0) result + return result' + +-- function g_unichar_decompose +-- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "a", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "a", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_decompose" g_unichar_decompose :: + CInt -> -- ch : TBasicType TUniChar + CInt -> -- a : TBasicType TUniChar + CInt -> -- b : TBasicType TUniChar + IO CInt + + +unicharDecompose :: + (MonadIO m) => + Char -> -- ch + Char -> -- a + Char -> -- b + m Bool +unicharDecompose ch a b = liftIO $ do + let ch' = (fromIntegral . ord) ch + let a' = (fromIntegral . ord) a + let b' = (fromIntegral . ord) b + result <- g_unichar_decompose ch' a' b' + let result' = (/= 0) result + return result' + +-- function g_unichar_digit_value +-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_digit_value" g_unichar_digit_value :: + CInt -> -- c : TBasicType TUniChar + IO Int32 + + +unicharDigitValue :: + (MonadIO m) => + Char -> -- c + m Int32 +unicharDigitValue c = liftIO $ do + let c' = (fromIntegral . ord) c + result <- g_unichar_digit_value c' + return result + +-- function g_unichar_get_mirror_char +-- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mirrored_ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mirrored_ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_get_mirror_char" g_unichar_get_mirror_char :: + CInt -> -- ch : TBasicType TUniChar + CInt -> -- mirrored_ch : TBasicType TUniChar + IO CInt + + +unicharGetMirrorChar :: + (MonadIO m) => + Char -> -- ch + Char -> -- mirrored_ch + m Bool +unicharGetMirrorChar ch mirrored_ch = liftIO $ do + let ch' = (fromIntegral . ord) ch + let mirrored_ch' = (fromIntegral . ord) mirrored_ch + result <- g_unichar_get_mirror_char ch' mirrored_ch' + let result' = (/= 0) result + return result' + +-- function g_unichar_get_script +-- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "UnicodeScript" +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_get_script" g_unichar_get_script :: + CInt -> -- ch : TBasicType TUniChar + IO CUInt + + +unicharGetScript :: + (MonadIO m) => + Char -> -- ch + m UnicodeScript +unicharGetScript ch = liftIO $ do + let ch' = (fromIntegral . ord) ch + result <- g_unichar_get_script ch' + let result' = (toEnum . fromIntegral) result + return result' + +-- function g_unichar_isalnum +-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_isalnum" g_unichar_isalnum :: + CInt -> -- c : TBasicType TUniChar + IO CInt + + +unicharIsalnum :: + (MonadIO m) => + Char -> -- c + m Bool +unicharIsalnum c = liftIO $ do + let c' = (fromIntegral . ord) c + result <- g_unichar_isalnum c' + let result' = (/= 0) result + return result' + +-- function g_unichar_isalpha +-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_isalpha" g_unichar_isalpha :: + CInt -> -- c : TBasicType TUniChar + IO CInt + + +unicharIsalpha :: + (MonadIO m) => + Char -> -- c + m Bool +unicharIsalpha c = liftIO $ do + let c' = (fromIntegral . ord) c + result <- g_unichar_isalpha c' + let result' = (/= 0) result + return result' + +-- function g_unichar_iscntrl +-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_iscntrl" g_unichar_iscntrl :: + CInt -> -- c : TBasicType TUniChar + IO CInt + + +unicharIscntrl :: + (MonadIO m) => + Char -> -- c + m Bool +unicharIscntrl c = liftIO $ do + let c' = (fromIntegral . ord) c + result <- g_unichar_iscntrl c' + let result' = (/= 0) result + return result' + +-- function g_unichar_isdefined +-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_isdefined" g_unichar_isdefined :: + CInt -> -- c : TBasicType TUniChar + IO CInt + + +unicharIsdefined :: + (MonadIO m) => + Char -> -- c + m Bool +unicharIsdefined c = liftIO $ do + let c' = (fromIntegral . ord) c + result <- g_unichar_isdefined c' + let result' = (/= 0) result + return result' + +-- function g_unichar_isdigit +-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_isdigit" g_unichar_isdigit :: + CInt -> -- c : TBasicType TUniChar + IO CInt + + +unicharIsdigit :: + (MonadIO m) => + Char -> -- c + m Bool +unicharIsdigit c = liftIO $ do + let c' = (fromIntegral . ord) c + result <- g_unichar_isdigit c' + let result' = (/= 0) result + return result' + +-- function g_unichar_isgraph +-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_isgraph" g_unichar_isgraph :: + CInt -> -- c : TBasicType TUniChar + IO CInt + + +unicharIsgraph :: + (MonadIO m) => + Char -> -- c + m Bool +unicharIsgraph c = liftIO $ do + let c' = (fromIntegral . ord) c + result <- g_unichar_isgraph c' + let result' = (/= 0) result + return result' + +-- function g_unichar_islower +-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_islower" g_unichar_islower :: + CInt -> -- c : TBasicType TUniChar + IO CInt + + +unicharIslower :: + (MonadIO m) => + Char -> -- c + m Bool +unicharIslower c = liftIO $ do + let c' = (fromIntegral . ord) c + result <- g_unichar_islower c' + let result' = (/= 0) result + return result' + +-- function g_unichar_ismark +-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_ismark" g_unichar_ismark :: + CInt -> -- c : TBasicType TUniChar + IO CInt + + +unicharIsmark :: + (MonadIO m) => + Char -> -- c + m Bool +unicharIsmark c = liftIO $ do + let c' = (fromIntegral . ord) c + result <- g_unichar_ismark c' + let result' = (/= 0) result + return result' + +-- function g_unichar_isprint +-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_isprint" g_unichar_isprint :: + CInt -> -- c : TBasicType TUniChar + IO CInt + + +unicharIsprint :: + (MonadIO m) => + Char -> -- c + m Bool +unicharIsprint c = liftIO $ do + let c' = (fromIntegral . ord) c + result <- g_unichar_isprint c' + let result' = (/= 0) result + return result' + +-- function g_unichar_ispunct +-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_ispunct" g_unichar_ispunct :: + CInt -> -- c : TBasicType TUniChar + IO CInt + + +unicharIspunct :: + (MonadIO m) => + Char -> -- c + m Bool +unicharIspunct c = liftIO $ do + let c' = (fromIntegral . ord) c + result <- g_unichar_ispunct c' + let result' = (/= 0) result + return result' + +-- function g_unichar_isspace +-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_isspace" g_unichar_isspace :: + CInt -> -- c : TBasicType TUniChar + IO CInt + + +unicharIsspace :: + (MonadIO m) => + Char -> -- c + m Bool +unicharIsspace c = liftIO $ do + let c' = (fromIntegral . ord) c + result <- g_unichar_isspace c' + let result' = (/= 0) result + return result' + +-- function g_unichar_istitle +-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_istitle" g_unichar_istitle :: + CInt -> -- c : TBasicType TUniChar + IO CInt + + +unicharIstitle :: + (MonadIO m) => + Char -> -- c + m Bool +unicharIstitle c = liftIO $ do + let c' = (fromIntegral . ord) c + result <- g_unichar_istitle c' + let result' = (/= 0) result + return result' + +-- function g_unichar_isupper +-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_isupper" g_unichar_isupper :: + CInt -> -- c : TBasicType TUniChar + IO CInt + + +unicharIsupper :: + (MonadIO m) => + Char -> -- c + m Bool +unicharIsupper c = liftIO $ do + let c' = (fromIntegral . ord) c + result <- g_unichar_isupper c' + let result' = (/= 0) result + return result' + +-- function g_unichar_iswide +-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_iswide" g_unichar_iswide :: + CInt -> -- c : TBasicType TUniChar + IO CInt + + +unicharIswide :: + (MonadIO m) => + Char -> -- c + m Bool +unicharIswide c = liftIO $ do + let c' = (fromIntegral . ord) c + result <- g_unichar_iswide c' + let result' = (/= 0) result + return result' + +-- function g_unichar_iswide_cjk +-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_iswide_cjk" g_unichar_iswide_cjk :: + CInt -> -- c : TBasicType TUniChar + IO CInt + + +unicharIswideCjk :: + (MonadIO m) => + Char -> -- c + m Bool +unicharIswideCjk c = liftIO $ do + let c' = (fromIntegral . ord) c + result <- g_unichar_iswide_cjk c' + let result' = (/= 0) result + return result' + +-- function g_unichar_isxdigit +-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_isxdigit" g_unichar_isxdigit :: + CInt -> -- c : TBasicType TUniChar + IO CInt + + +unicharIsxdigit :: + (MonadIO m) => + Char -> -- c + m Bool +unicharIsxdigit c = liftIO $ do + let c' = (fromIntegral . ord) c + result <- g_unichar_isxdigit c' + let result' = (/= 0) result + return result' + +-- function g_unichar_iszerowidth +-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_iszerowidth" g_unichar_iszerowidth :: + CInt -> -- c : TBasicType TUniChar + IO CInt + + +unicharIszerowidth :: + (MonadIO m) => + Char -> -- c + m Bool +unicharIszerowidth c = liftIO $ do + let c' = (fromIntegral . ord) c + result <- g_unichar_iszerowidth c' + let result' = (/= 0) result + return result' + +-- function g_unichar_to_utf8 +-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "outbuf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "outbuf", 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_unichar_to_utf8" g_unichar_to_utf8 :: + CInt -> -- c : TBasicType TUniChar + CString -> -- outbuf : TBasicType TUTF8 + IO Int32 + + +unicharToUtf8 :: + (MonadIO m) => + Char -> -- c + T.Text -> -- outbuf + m Int32 +unicharToUtf8 c outbuf = liftIO $ do + let c' = (fromIntegral . ord) c + outbuf' <- textToCString outbuf + result <- g_unichar_to_utf8 c' outbuf' + freeMem outbuf' + return result + +-- function g_unichar_tolower +-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUniChar +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_tolower" g_unichar_tolower :: + CInt -> -- c : TBasicType TUniChar + IO CInt + + +unicharTolower :: + (MonadIO m) => + Char -> -- c + m Char +unicharTolower c = liftIO $ do + let c' = (fromIntegral . ord) c + result <- g_unichar_tolower c' + let result' = (chr . fromIntegral) result + return result' + +-- function g_unichar_totitle +-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUniChar +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_totitle" g_unichar_totitle :: + CInt -> -- c : TBasicType TUniChar + IO CInt + + +unicharTotitle :: + (MonadIO m) => + Char -> -- c + m Char +unicharTotitle c = liftIO $ do + let c' = (fromIntegral . ord) c + result <- g_unichar_totitle c' + let result' = (chr . fromIntegral) result + return result' + +-- function g_unichar_toupper +-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUniChar +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_toupper" g_unichar_toupper :: + CInt -> -- c : TBasicType TUniChar + IO CInt + + +unicharToupper :: + (MonadIO m) => + Char -> -- c + m Char +unicharToupper c = liftIO $ do + let c' = (fromIntegral . ord) c + result <- g_unichar_toupper c' + let result' = (chr . fromIntegral) result + return result' + +-- function g_unichar_type +-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "UnicodeType" +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_type" g_unichar_type :: + CInt -> -- c : TBasicType TUniChar + IO CUInt + + +unicharType :: + (MonadIO m) => + Char -> -- c + m UnicodeType +unicharType c = liftIO $ do + let c' = (fromIntegral . ord) c + result <- g_unichar_type c' + let result' = (toEnum . fromIntegral) result + return result' + +-- function g_unichar_validate +-- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_validate" g_unichar_validate :: + CInt -> -- ch : TBasicType TUniChar + IO CInt + + +unicharValidate :: + (MonadIO m) => + Char -> -- ch + m Bool +unicharValidate ch = liftIO $ do + let ch' = (fromIntegral . ord) ch + result <- g_unichar_validate ch' + let result' = (/= 0) result + return result' + +-- function g_unichar_xdigit_value +-- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_unichar_xdigit_value" g_unichar_xdigit_value :: + CInt -> -- c : TBasicType TUniChar + IO Int32 + + +unicharXdigitValue :: + (MonadIO m) => + Char -> -- c + m Int32 +unicharXdigitValue c = liftIO $ do + let c' = (fromIntegral . ord) c + result <- g_unichar_xdigit_value c' + return result + +-- function g_unicode_canonical_decomposition +-- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUniChar +-- throws : False +-- Skip return : False + +foreign import ccall "g_unicode_canonical_decomposition" g_unicode_canonical_decomposition :: + CInt -> -- ch : TBasicType TUniChar + Word64 -> -- result_len : TBasicType TUInt64 + IO CInt + +{-# DEPRECATED unicodeCanonicalDecomposition ["(Since version 2.30)","Use the more flexible g_unichar_fully_decompose()"," instead."]#-} +unicodeCanonicalDecomposition :: + (MonadIO m) => + Char -> -- ch + Word64 -> -- result_len + m Char +unicodeCanonicalDecomposition ch result_len = liftIO $ do + let ch' = (fromIntegral . ord) ch + result <- g_unicode_canonical_decomposition ch' result_len + let result' = (chr . fromIntegral) result + return result' + +-- function g_unicode_canonical_ordering +-- Args : [Arg {argName = "string", argType = TBasicType TUniChar, 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "string", argType = TBasicType TUniChar, 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 : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "g_unicode_canonical_ordering" g_unicode_canonical_ordering :: + CInt -> -- string : TBasicType TUniChar + Word64 -> -- len : TBasicType TUInt64 + IO () + + +unicodeCanonicalOrdering :: + (MonadIO m) => + Char -> -- string + Word64 -> -- len + m () +unicodeCanonicalOrdering string len = liftIO $ do + let string' = (fromIntegral . ord) string + g_unicode_canonical_ordering string' len + return () + +-- function g_unicode_script_from_iso15924 +-- Args : [Arg {argName = "iso15924", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "iso15924", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "UnicodeScript" +-- throws : False +-- Skip return : False + +foreign import ccall "g_unicode_script_from_iso15924" g_unicode_script_from_iso15924 :: + Word32 -> -- iso15924 : TBasicType TUInt32 + IO CUInt + + +unicodeScriptFromIso15924 :: + (MonadIO m) => + Word32 -> -- iso15924 + m UnicodeScript +unicodeScriptFromIso15924 iso15924 = liftIO $ do + result <- g_unicode_script_from_iso15924 iso15924 + let result' = (toEnum . fromIntegral) result + return result' + +-- function g_unicode_script_to_iso15924 +-- Args : [Arg {argName = "script", argType = TInterface "GLib" "UnicodeScript", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "script", argType = TInterface "GLib" "UnicodeScript", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_unicode_script_to_iso15924" g_unicode_script_to_iso15924 :: + CUInt -> -- script : TInterface "GLib" "UnicodeScript" + IO Word32 + + +unicodeScriptToIso15924 :: + (MonadIO m) => + UnicodeScript -> -- script + m Word32 +unicodeScriptToIso15924 script = liftIO $ do + let script' = (fromIntegral . fromEnum) script + result <- g_unicode_script_to_iso15924 script' + return result + +-- function g_unix_error_quark +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_unix_error_quark" g_unix_error_quark :: + IO Word32 + + +unixErrorQuark :: + (MonadIO m) => + m Word32 +unixErrorQuark = liftIO $ do + result <- g_unix_error_quark + return result + +-- function g_unix_fd_add_full +-- Args : [Arg {argName = "priority", argType = TBasicType TInt32, 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 = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "UnixFDSourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 4, argDestroy = 5, 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 = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, 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 = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "UnixFDSourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 4, argDestroy = 5, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_unix_fd_add_full" g_unix_fd_add_full :: + Int32 -> -- priority : TBasicType TInt32 + Int32 -> -- fd : TBasicType TInt32 + CUInt -> -- condition : TInterface "GLib" "IOCondition" + FunPtr UnixFDSourceFuncC -> -- function : TInterface "GLib" "UnixFDSourceFunc" + Ptr () -> -- user_data : TBasicType TVoid + FunPtr DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" + IO Word32 + + +unixFdAddFull :: + (MonadIO m) => + Int32 -> -- priority + Int32 -> -- fd + [IOCondition] -> -- condition + UnixFDSourceFunc -> -- function + m Word32 +unixFdAddFull priority fd condition function = liftIO $ do + let condition' = gflagsToWord condition + function' <- mkUnixFDSourceFunc (unixFDSourceFuncWrapper Nothing function) + let user_data = castFunPtrToPtr function' + let notify = safeFreeFunPtrPtr + result <- g_unix_fd_add_full priority fd condition' function' user_data notify + return result + +-- function g_unix_fd_source_new +-- Args : [Arg {argName = "fd", argType = TBasicType TInt32, 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "fd", argType = TBasicType TInt32, 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" "Source" +-- throws : False +-- Skip return : False + +foreign import ccall "g_unix_fd_source_new" g_unix_fd_source_new :: + Int32 -> -- fd : TBasicType TInt32 + CUInt -> -- condition : TInterface "GLib" "IOCondition" + IO (Ptr Source) + + +unixFdSourceNew :: + (MonadIO m) => + Int32 -> -- fd + [IOCondition] -> -- condition + m Source +unixFdSourceNew fd condition = liftIO $ do + let condition' = gflagsToWord condition + result <- g_unix_fd_source_new fd condition' + checkUnexpectedReturnNULL "g_unix_fd_source_new" result + result' <- (wrapBoxed Source) result + return result' + +-- function g_unix_open_pipe +-- Args : [Arg {argName = "fds", 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "fds", 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}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_unix_open_pipe" g_unix_open_pipe :: + Int32 -> -- fds : TBasicType TInt32 + Int32 -> -- flags : TBasicType TInt32 + Ptr (Ptr GError) -> -- error + IO CInt + + +unixOpenPipe :: + (MonadIO m) => + Int32 -> -- fds + Int32 -> -- flags + m () +unixOpenPipe fds flags = liftIO $ do + onException (do + _ <- propagateGError $ g_unix_open_pipe fds flags + return () + ) (do + return () + ) + +-- function g_unix_set_fd_nonblocking +-- Args : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nonblock", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nonblock", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "g_unix_set_fd_nonblocking" g_unix_set_fd_nonblocking :: + Int32 -> -- fd : TBasicType TInt32 + CInt -> -- nonblock : TBasicType TBoolean + Ptr (Ptr GError) -> -- error + IO CInt + + +unixSetFdNonblocking :: + (MonadIO m) => + Int32 -> -- fd + Bool -> -- nonblock + m () +unixSetFdNonblocking fd nonblock = liftIO $ do + let nonblock' = (fromIntegral . fromEnum) nonblock + onException (do + _ <- propagateGError $ g_unix_set_fd_nonblocking fd nonblock' + return () + ) (do + return () + ) + +-- function g_unix_signal_add_full +-- Args : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, 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 = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_unix_signal_add_full" g_unix_signal_add_full :: + Int32 -> -- priority : TBasicType TInt32 + Int32 -> -- signum : TBasicType TInt32 + FunPtr SourceFuncC -> -- handler : TInterface "GLib" "SourceFunc" + Ptr () -> -- user_data : TBasicType TVoid + FunPtr DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" + IO Word32 + + +unixSignalAdd :: + (MonadIO m) => + Int32 -> -- priority + Int32 -> -- signum + SourceFunc -> -- handler + m Word32 +unixSignalAdd priority signum handler = liftIO $ do + handler' <- mkSourceFunc (sourceFuncWrapper Nothing handler) + let user_data = castFunPtrToPtr handler' + let notify = safeFreeFunPtrPtr + result <- g_unix_signal_add_full priority signum handler' user_data notify + return result + +-- function g_unix_signal_source_new +-- Args : [Arg {argName = "signum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "signum", argType = TBasicType TInt32, 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_unix_signal_source_new" g_unix_signal_source_new :: + Int32 -> -- signum : TBasicType TInt32 + IO (Ptr Source) + + +unixSignalSourceNew :: + (MonadIO m) => + Int32 -> -- signum + m Source +unixSignalSourceNew signum = liftIO $ do + result <- g_unix_signal_source_new signum + checkUnexpectedReturnNULL "g_unix_signal_source_new" result + result' <- (wrapBoxed Source) result + return result' + +-- function g_unlink +-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "filename", 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_unlink" g_unlink :: + CString -> -- filename : TBasicType TUTF8 + IO Int32 + + +unlink :: + (MonadIO m) => + T.Text -> -- filename + m Int32 +unlink filename = liftIO $ do + filename' <- textToCString filename + result <- g_unlink filename' + freeMem filename' + return result + +-- function g_unsetenv +-- Args : [Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [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 + +foreign import ccall "g_unsetenv" g_unsetenv :: + CString -> -- variable : TBasicType TUTF8 + IO () + + +unsetenv :: + (MonadIO m) => + T.Text -> -- variable + m () +unsetenv variable = liftIO $ do + variable' <- textToCString variable + g_unsetenv variable' + freeMem variable' + return () + +-- function g_uri_escape_string +-- Args : [Arg {argName = "unescaped", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reserved_chars_allowed", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allow_utf8", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "unescaped", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reserved_chars_allowed", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allow_utf8", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_uri_escape_string" g_uri_escape_string :: + CString -> -- unescaped : TBasicType TUTF8 + CString -> -- reserved_chars_allowed : TBasicType TUTF8 + CInt -> -- allow_utf8 : TBasicType TBoolean + IO CString + + +uriEscapeString :: + (MonadIO m) => + T.Text -> -- unescaped + Maybe (T.Text) -> -- reserved_chars_allowed + Bool -> -- allow_utf8 + m T.Text +uriEscapeString unescaped reserved_chars_allowed allow_utf8 = liftIO $ do + unescaped' <- textToCString unescaped + maybeReserved_chars_allowed <- case reserved_chars_allowed of + Nothing -> return nullPtr + Just jReserved_chars_allowed -> do + jReserved_chars_allowed' <- textToCString jReserved_chars_allowed + return jReserved_chars_allowed' + let allow_utf8' = (fromIntegral . fromEnum) allow_utf8 + result <- g_uri_escape_string unescaped' maybeReserved_chars_allowed allow_utf8' + checkUnexpectedReturnNULL "g_uri_escape_string" result + result' <- cstringToText result + freeMem result + freeMem unescaped' + freeMem maybeReserved_chars_allowed + return result' + +-- function g_uri_list_extract_uris +-- Args : [Arg {argName = "uri_list", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "uri_list", 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_uri_list_extract_uris" g_uri_list_extract_uris :: + CString -> -- uri_list : TBasicType TUTF8 + IO (Ptr CString) + + +uriListExtractUris :: + (MonadIO m) => + T.Text -> -- uri_list + m [T.Text] +uriListExtractUris uri_list = liftIO $ do + uri_list' <- textToCString uri_list + result <- g_uri_list_extract_uris uri_list' + checkUnexpectedReturnNULL "g_uri_list_extract_uris" result + result' <- unpackZeroTerminatedUTF8CArray result + mapZeroTerminatedCArray freeMem result + freeMem result + freeMem uri_list' + return result' + +-- function g_uri_parse_scheme +-- 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 : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_uri_parse_scheme" g_uri_parse_scheme :: + CString -> -- uri : TBasicType TUTF8 + IO CString + + +uriParseScheme :: + (MonadIO m) => + T.Text -> -- uri + m T.Text +uriParseScheme uri = liftIO $ do + uri' <- textToCString uri + result <- g_uri_parse_scheme uri' + checkUnexpectedReturnNULL "g_uri_parse_scheme" result + result' <- cstringToText result + freeMem result + freeMem uri' + return result' + +-- function g_uri_unescape_segment +-- Args : [Arg {argName = "escaped_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "escaped_string_end", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "illegal_characters", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "escaped_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "escaped_string_end", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "illegal_characters", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_uri_unescape_segment" g_uri_unescape_segment :: + CString -> -- escaped_string : TBasicType TUTF8 + CString -> -- escaped_string_end : TBasicType TUTF8 + CString -> -- illegal_characters : TBasicType TUTF8 + IO CString + + +uriUnescapeSegment :: + (MonadIO m) => + Maybe (T.Text) -> -- escaped_string + Maybe (T.Text) -> -- escaped_string_end + Maybe (T.Text) -> -- illegal_characters + m T.Text +uriUnescapeSegment escaped_string escaped_string_end illegal_characters = liftIO $ do + maybeEscaped_string <- case escaped_string of + Nothing -> return nullPtr + Just jEscaped_string -> do + jEscaped_string' <- textToCString jEscaped_string + return jEscaped_string' + maybeEscaped_string_end <- case escaped_string_end of + Nothing -> return nullPtr + Just jEscaped_string_end -> do + jEscaped_string_end' <- textToCString jEscaped_string_end + return jEscaped_string_end' + maybeIllegal_characters <- case illegal_characters of + Nothing -> return nullPtr + Just jIllegal_characters -> do + jIllegal_characters' <- textToCString jIllegal_characters + return jIllegal_characters' + result <- g_uri_unescape_segment maybeEscaped_string maybeEscaped_string_end maybeIllegal_characters + checkUnexpectedReturnNULL "g_uri_unescape_segment" result + result' <- cstringToText result + freeMem result + freeMem maybeEscaped_string + freeMem maybeEscaped_string_end + freeMem maybeIllegal_characters + return result' + +-- function g_uri_unescape_string +-- Args : [Arg {argName = "escaped_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "illegal_characters", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "escaped_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "illegal_characters", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_uri_unescape_string" g_uri_unescape_string :: + CString -> -- escaped_string : TBasicType TUTF8 + CString -> -- illegal_characters : TBasicType TUTF8 + IO CString + + +uriUnescapeString :: + (MonadIO m) => + T.Text -> -- escaped_string + Maybe (T.Text) -> -- illegal_characters + m T.Text +uriUnescapeString escaped_string illegal_characters = liftIO $ do + escaped_string' <- textToCString escaped_string + maybeIllegal_characters <- case illegal_characters of + Nothing -> return nullPtr + Just jIllegal_characters -> do + jIllegal_characters' <- textToCString jIllegal_characters + return jIllegal_characters' + result <- g_uri_unescape_string escaped_string' maybeIllegal_characters + checkUnexpectedReturnNULL "g_uri_unescape_string" result + result' <- cstringToText result + freeMem result + freeMem escaped_string' + freeMem maybeIllegal_characters + return result' + +-- function g_usleep +-- Args : [Arg {argName = "microseconds", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "microseconds", 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_usleep" g_usleep :: + Word64 -> -- microseconds : TBasicType TUInt64 + IO () + + +usleep :: + (MonadIO m) => + Word64 -> -- microseconds + m () +usleep microseconds = liftIO $ do + g_usleep microseconds + return () + +-- function g_utf8_casefold +-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, 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},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_utf8_casefold" g_utf8_casefold :: + CString -> -- str : TBasicType TUTF8 + Int64 -> -- len : TBasicType TInt64 + IO CString + + +utf8Casefold :: + (MonadIO m) => + T.Text -> -- str + Int64 -> -- len + m T.Text +utf8Casefold str len = liftIO $ do + str' <- textToCString str + result <- g_utf8_casefold str' len + checkUnexpectedReturnNULL "g_utf8_casefold" result + result' <- cstringToText result + freeMem result + freeMem str' + return result' + +-- function g_utf8_collate +-- Args : [Arg {argName = "str1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "str1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str2", 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_utf8_collate" g_utf8_collate :: + CString -> -- str1 : TBasicType TUTF8 + CString -> -- str2 : TBasicType TUTF8 + IO Int32 + + +utf8Collate :: + (MonadIO m) => + T.Text -> -- str1 + T.Text -> -- str2 + m Int32 +utf8Collate str1 str2 = liftIO $ do + str1' <- textToCString str1 + str2' <- textToCString str2 + result <- g_utf8_collate str1' str2' + freeMem str1' + freeMem str2' + return result + +-- function g_utf8_collate_key +-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, 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},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_utf8_collate_key" g_utf8_collate_key :: + CString -> -- str : TBasicType TUTF8 + Int64 -> -- len : TBasicType TInt64 + IO CString + + +utf8CollateKey :: + (MonadIO m) => + T.Text -> -- str + Int64 -> -- len + m T.Text +utf8CollateKey str len = liftIO $ do + str' <- textToCString str + result <- g_utf8_collate_key str' len + checkUnexpectedReturnNULL "g_utf8_collate_key" result + result' <- cstringToText result + freeMem result + freeMem str' + return result' + +-- function g_utf8_collate_key_for_filename +-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, 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},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_utf8_collate_key_for_filename" g_utf8_collate_key_for_filename :: + CString -> -- str : TBasicType TUTF8 + Int64 -> -- len : TBasicType TInt64 + IO CString + + +utf8CollateKeyForFilename :: + (MonadIO m) => + T.Text -> -- str + Int64 -> -- len + m T.Text +utf8CollateKeyForFilename str len = liftIO $ do + str' <- textToCString str + result <- g_utf8_collate_key_for_filename str' len + checkUnexpectedReturnNULL "g_utf8_collate_key_for_filename" result + result' <- cstringToText result + freeMem result + freeMem str' + return result' + +-- function g_utf8_find_next_char +-- Args : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", 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_utf8_find_next_char" g_utf8_find_next_char :: + CString -> -- p : TBasicType TUTF8 + CString -> -- end : TBasicType TUTF8 + IO CString + + +utf8FindNextChar :: + (MonadIO m) => + T.Text -> -- p + T.Text -> -- end + m T.Text +utf8FindNextChar p end = liftIO $ do + p' <- textToCString p + end' <- textToCString end + result <- g_utf8_find_next_char p' end' + checkUnexpectedReturnNULL "g_utf8_find_next_char" result + result' <- cstringToText result + freeMem result + freeMem p' + freeMem end' + return result' + +-- function g_utf8_find_prev_char +-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "p", 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},Arg {argName = "p", 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_utf8_find_prev_char" g_utf8_find_prev_char :: + CString -> -- str : TBasicType TUTF8 + CString -> -- p : TBasicType TUTF8 + IO CString + + +utf8FindPrevChar :: + (MonadIO m) => + T.Text -> -- str + T.Text -> -- p + m T.Text +utf8FindPrevChar str p = liftIO $ do + str' <- textToCString str + p' <- textToCString p + result <- g_utf8_find_prev_char str' p' + checkUnexpectedReturnNULL "g_utf8_find_prev_char" result + result' <- cstringToText result + freeMem result + freeMem str' + freeMem p' + return result' + +-- function g_utf8_get_char +-- Args : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUniChar +-- throws : False +-- Skip return : False + +foreign import ccall "g_utf8_get_char" g_utf8_get_char :: + CString -> -- p : TBasicType TUTF8 + IO CInt + + +utf8GetChar :: + (MonadIO m) => + T.Text -> -- p + m Char +utf8GetChar p = liftIO $ do + p' <- textToCString p + result <- g_utf8_get_char p' + let result' = (chr . fromIntegral) result + freeMem p' + return result' + +-- function g_utf8_get_char_validated +-- Args : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUniChar +-- throws : False +-- Skip return : False + +foreign import ccall "g_utf8_get_char_validated" g_utf8_get_char_validated :: + CString -> -- p : TBasicType TUTF8 + Int64 -> -- max_len : TBasicType TInt64 + IO CInt + + +utf8GetCharValidated :: + (MonadIO m) => + T.Text -> -- p + Int64 -> -- max_len + m Char +utf8GetCharValidated p max_len = liftIO $ do + p' <- textToCString p + result <- g_utf8_get_char_validated p' max_len + let result' = (chr . fromIntegral) result + freeMem p' + return result' + +-- function g_utf8_normalize +-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "GLib" "NormalizeMode", 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},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "GLib" "NormalizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_utf8_normalize" g_utf8_normalize :: + CString -> -- str : TBasicType TUTF8 + Int64 -> -- len : TBasicType TInt64 + CUInt -> -- mode : TInterface "GLib" "NormalizeMode" + IO CString + + +utf8Normalize :: + (MonadIO m) => + T.Text -> -- str + Int64 -> -- len + NormalizeMode -> -- mode + m T.Text +utf8Normalize str len mode = liftIO $ do + str' <- textToCString str + let mode' = (fromIntegral . fromEnum) mode + result <- g_utf8_normalize str' len mode' + checkUnexpectedReturnNULL "g_utf8_normalize" result + result' <- cstringToText result + freeMem result + freeMem str' + return result' + +-- function g_utf8_offset_to_pointer +-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, 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}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, 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}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_utf8_offset_to_pointer" g_utf8_offset_to_pointer :: + CString -> -- str : TBasicType TUTF8 + Int64 -> -- offset : TBasicType TInt64 + IO CString + + +utf8OffsetToPointer :: + (MonadIO m) => + T.Text -> -- str + Int64 -> -- offset + m T.Text +utf8OffsetToPointer str offset = liftIO $ do + str' <- textToCString str + result <- g_utf8_offset_to_pointer str' offset + checkUnexpectedReturnNULL "g_utf8_offset_to_pointer" result + result' <- cstringToText result + freeMem result + freeMem str' + return result' + +-- function g_utf8_pointer_to_offset +-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", 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},Arg {argName = "pos", 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_utf8_pointer_to_offset" g_utf8_pointer_to_offset :: + CString -> -- str : TBasicType TUTF8 + CString -> -- pos : TBasicType TUTF8 + IO Int64 + + +utf8PointerToOffset :: + (MonadIO m) => + T.Text -> -- str + T.Text -> -- pos + m Int64 +utf8PointerToOffset str pos = liftIO $ do + str' <- textToCString str + pos' <- textToCString pos + result <- g_utf8_pointer_to_offset str' pos' + freeMem str' + freeMem pos' + return result + +-- function g_utf8_prev_char +-- Args : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "p", 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_utf8_prev_char" g_utf8_prev_char :: + CString -> -- p : TBasicType TUTF8 + IO CString + + +utf8PrevChar :: + (MonadIO m) => + T.Text -> -- p + m T.Text +utf8PrevChar p = liftIO $ do + p' <- textToCString p + result <- g_utf8_prev_char p' + checkUnexpectedReturnNULL "g_utf8_prev_char" result + result' <- cstringToText result + freeMem result + freeMem p' + return result' + +-- function g_utf8_strchr +-- Args : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_utf8_strchr" g_utf8_strchr :: + CString -> -- p : TBasicType TUTF8 + Int64 -> -- len : TBasicType TInt64 + CInt -> -- c : TBasicType TUniChar + IO CString + + +utf8Strchr :: + (MonadIO m) => + T.Text -> -- p + Int64 -> -- len + Char -> -- c + m T.Text +utf8Strchr p len c = liftIO $ do + p' <- textToCString p + let c' = (fromIntegral . ord) c + result <- g_utf8_strchr p' len c' + checkUnexpectedReturnNULL "g_utf8_strchr" result + result' <- cstringToText result + freeMem result + freeMem p' + return result' + +-- function g_utf8_strdown +-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, 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},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_utf8_strdown" g_utf8_strdown :: + CString -> -- str : TBasicType TUTF8 + Int64 -> -- len : TBasicType TInt64 + IO CString + + +utf8Strdown :: + (MonadIO m) => + T.Text -> -- str + Int64 -> -- len + m T.Text +utf8Strdown str len = liftIO $ do + str' <- textToCString str + result <- g_utf8_strdown str' len + checkUnexpectedReturnNULL "g_utf8_strdown" result + result' <- cstringToText result + freeMem result + freeMem str' + return result' + +-- function g_utf8_strlen +-- Args : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "g_utf8_strlen" g_utf8_strlen :: + CString -> -- p : TBasicType TUTF8 + Int64 -> -- max : TBasicType TInt64 + IO Int64 + + +utf8Strlen :: + (MonadIO m) => + T.Text -> -- p + Int64 -> -- max + m Int64 +utf8Strlen p max = liftIO $ do + p' <- textToCString p + result <- g_utf8_strlen p' max + freeMem p' + return result + +-- function g_utf8_strncpy +-- Args : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_utf8_strncpy" g_utf8_strncpy :: + CString -> -- dest : TBasicType TUTF8 + CString -> -- src : TBasicType TUTF8 + Word64 -> -- n : TBasicType TUInt64 + IO CString + + +utf8Strncpy :: + (MonadIO m) => + T.Text -> -- dest + T.Text -> -- src + Word64 -> -- n + m T.Text +utf8Strncpy dest src n = liftIO $ do + dest' <- textToCString dest + src' <- textToCString src + result <- g_utf8_strncpy dest' src' n + checkUnexpectedReturnNULL "g_utf8_strncpy" result + result' <- cstringToText result + freeMem result + freeMem dest' + freeMem src' + return result' + +-- function g_utf8_strrchr +-- Args : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_utf8_strrchr" g_utf8_strrchr :: + CString -> -- p : TBasicType TUTF8 + Int64 -> -- len : TBasicType TInt64 + CInt -> -- c : TBasicType TUniChar + IO CString + + +utf8Strrchr :: + (MonadIO m) => + T.Text -> -- p + Int64 -> -- len + Char -> -- c + m T.Text +utf8Strrchr p len c = liftIO $ do + p' <- textToCString p + let c' = (fromIntegral . ord) c + result <- g_utf8_strrchr p' len c' + checkUnexpectedReturnNULL "g_utf8_strrchr" result + result' <- cstringToText result + freeMem result + freeMem p' + return result' + +-- function g_utf8_strreverse +-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, 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},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_utf8_strreverse" g_utf8_strreverse :: + CString -> -- str : TBasicType TUTF8 + Int64 -> -- len : TBasicType TInt64 + IO CString + + +utf8Strreverse :: + (MonadIO m) => + T.Text -> -- str + Int64 -> -- len + m T.Text +utf8Strreverse str len = liftIO $ do + str' <- textToCString str + result <- g_utf8_strreverse str' len + checkUnexpectedReturnNULL "g_utf8_strreverse" result + result' <- cstringToText result + freeMem result + freeMem str' + return result' + +-- function g_utf8_strup +-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, 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},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_utf8_strup" g_utf8_strup :: + CString -> -- str : TBasicType TUTF8 + Int64 -> -- len : TBasicType TInt64 + IO CString + + +utf8Strup :: + (MonadIO m) => + T.Text -> -- str + Int64 -> -- len + m T.Text +utf8Strup str len = liftIO $ do + str' <- textToCString str + result <- g_utf8_strup str' len + checkUnexpectedReturnNULL "g_utf8_strup" result + result' <- cstringToText result + freeMem result + freeMem str' + return result' + +-- function g_utf8_substring +-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt64, 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},Arg {argName = "start_pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "g_utf8_substring" g_utf8_substring :: + CString -> -- str : TBasicType TUTF8 + Int64 -> -- start_pos : TBasicType TInt64 + Int64 -> -- end_pos : TBasicType TInt64 + IO CString + + +utf8Substring :: + (MonadIO m) => + T.Text -> -- str + Int64 -> -- start_pos + Int64 -> -- end_pos + m T.Text +utf8Substring str start_pos end_pos = liftIO $ do + str' <- textToCString str + result <- g_utf8_substring str' start_pos end_pos + checkUnexpectedReturnNULL "g_utf8_substring" result + result' <- cstringToText result + freeMem result + freeMem str' + return result' + +-- function g_utf8_validate +-- Args : [Arg {argName = "str", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "max_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "str", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_utf8_validate" g_utf8_validate :: + Ptr Word8 -> -- str : TCArray False (-1) 1 (TBasicType TUInt8) + Int64 -> -- max_len : TBasicType TInt64 + Ptr CString -> -- end : TBasicType TUTF8 + IO CInt + + +utf8Validate :: + (MonadIO m) => + ByteString -> -- str + m (Bool,T.Text) +utf8Validate str = liftIO $ do + let max_len = fromIntegral $ B.length str + str' <- packByteString str + end <- allocMem :: IO (Ptr CString) + result <- g_utf8_validate str' max_len end + let result' = (/= 0) result + end' <- peek end + end'' <- cstringToText end' + freeMem str' + freeMem end + return (result', end'') + +-- function g_variant_get_gtype +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TGType +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_get_gtype" g_variant_get_gtype :: + IO CGType + + +variantGetGtype :: + (MonadIO m) => + m GType +variantGetGtype = liftIO $ do + result <- g_variant_get_gtype + let result' = GType result + return result' + +-- function g_variant_is_object_path +-- 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_variant_is_object_path" g_variant_is_object_path :: + CString -> -- string : TBasicType TUTF8 + IO CInt + + +variantIsObjectPath :: + (MonadIO m) => + T.Text -> -- string + m Bool +variantIsObjectPath string = liftIO $ do + string' <- textToCString string + result <- g_variant_is_object_path string' + let result' = (/= 0) result + freeMem string' + return result' + +-- function g_variant_is_signature +-- 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_variant_is_signature" g_variant_is_signature :: + CString -> -- string : TBasicType TUTF8 + IO CInt + + +variantIsSignature :: + (MonadIO m) => + T.Text -> -- string + m Bool +variantIsSignature string = liftIO $ do + string' <- textToCString string + result <- g_variant_is_signature string' + let result' = (/= 0) result + freeMem string' + return result' + +-- function g_variant_parse +-- Args : [Arg {argName = "type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TVariant +-- throws : True +-- Skip return : False + +foreign import ccall "g_variant_parse" g_variant_parse :: + Ptr VariantType -> -- type : TInterface "GLib" "VariantType" + CString -> -- text : TBasicType TUTF8 + CString -> -- limit : TBasicType TUTF8 + CString -> -- endptr : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr GVariant) + + +variantParse :: + (MonadIO m) => + Maybe (VariantType) -> -- type + T.Text -> -- text + Maybe (T.Text) -> -- limit + Maybe (T.Text) -> -- endptr + m GVariant +variantParse type_ text limit endptr = liftIO $ do + maybeType_ <- case type_ of + Nothing -> return nullPtr + Just jType_ -> do + let jType_' = unsafeManagedPtrGetPtr jType_ + return jType_' + text' <- textToCString text + maybeLimit <- case limit of + Nothing -> return nullPtr + Just jLimit -> do + jLimit' <- textToCString jLimit + return jLimit' + maybeEndptr <- case endptr of + Nothing -> return nullPtr + Just jEndptr -> do + jEndptr' <- textToCString jEndptr + return jEndptr' + onException (do + result <- propagateGError $ g_variant_parse maybeType_ text' maybeLimit maybeEndptr + checkUnexpectedReturnNULL "g_variant_parse" result + result' <- wrapGVariantPtr result + whenJust type_ touchManagedPtr + freeMem text' + freeMem maybeLimit + freeMem maybeEndptr + return result' + ) (do + freeMem text' + freeMem maybeLimit + freeMem maybeEndptr + ) + +-- function g_variant_parse_error_print_context +-- Args : [Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_str", argType = TBasicType TUTF8, 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},Arg {argName = "source_str", 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_variant_parse_error_print_context" g_variant_parse_error_print_context :: + Ptr GError -> -- error : TError + CString -> -- source_str : TBasicType TUTF8 + IO CString + + +variantParseErrorPrintContext :: + (MonadIO m) => + GError -> -- error + T.Text -> -- source_str + m T.Text +variantParseErrorPrintContext error_ source_str = liftIO $ do + let error_' = unsafeManagedPtrGetPtr error_ + source_str' <- textToCString source_str + result <- g_variant_parse_error_print_context error_' source_str' + checkUnexpectedReturnNULL "g_variant_parse_error_print_context" result + result' <- cstringToText result + freeMem result + touchManagedPtr error_ + freeMem source_str' + return result' + +-- function g_variant_parse_error_quark +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_parse_error_quark" g_variant_parse_error_quark :: + IO Word32 + + +variantParseErrorQuark :: + (MonadIO m) => + m Word32 +variantParseErrorQuark = liftIO $ do + result <- g_variant_parse_error_quark + return result + +-- function g_variant_parser_get_error_quark +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_parser_get_error_quark" g_variant_parser_get_error_quark :: + IO Word32 + +{-# DEPRECATED variantParserGetErrorQuark ["Use g_variant_parse_error_quark() instead."]#-} +variantParserGetErrorQuark :: + (MonadIO m) => + m Word32 +variantParserGetErrorQuark = liftIO $ do + result <- g_variant_parser_get_error_quark + return result + +-- function g_variant_type_checked_ +-- Args : [Arg {argName = "arg0", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "arg0", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "VariantType" +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_type_checked_" g_variant_type_checked_ :: + CString -> -- arg0 : TBasicType TUTF8 + IO (Ptr VariantType) + + +variantTypeChecked_ :: + (MonadIO m) => + T.Text -> -- arg0 + m VariantType +variantTypeChecked_ arg0 = liftIO $ do + arg0' <- textToCString arg0 + result <- g_variant_type_checked_ arg0' + checkUnexpectedReturnNULL "g_variant_type_checked_" result + result' <- (newBoxed VariantType) result + freeMem arg0' + return result' + +-- function g_variant_type_string_is_valid +-- Args : [Arg {argName = "type_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "type_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_variant_type_string_is_valid" g_variant_type_string_is_valid :: + CString -> -- type_string : TBasicType TUTF8 + IO CInt + + +variantTypeStringIsValid :: + (MonadIO m) => + T.Text -> -- type_string + m Bool +variantTypeStringIsValid type_string = liftIO $ do + type_string' <- textToCString type_string + result <- g_variant_type_string_is_valid type_string' + let result' = (/= 0) result + freeMem type_string' + return result' + +-- function g_variant_type_string_scan +-- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "g_variant_type_string_scan" g_variant_type_string_scan :: + CString -> -- string : TBasicType TUTF8 + CString -> -- limit : TBasicType TUTF8 + Ptr CString -> -- endptr : TBasicType TUTF8 + IO CInt + + +variantTypeStringScan :: + (MonadIO m) => + T.Text -> -- string + Maybe (T.Text) -> -- limit + m (Bool,T.Text) +variantTypeStringScan string limit = liftIO $ do + string' <- textToCString string + maybeLimit <- case limit of + Nothing -> return nullPtr + Just jLimit -> do + jLimit' <- textToCString jLimit + return jLimit' + endptr <- allocMem :: IO (Ptr CString) + result <- g_variant_type_string_scan string' maybeLimit endptr + let result' = (/= 0) result + endptr' <- peek endptr + endptr'' <- cstringToText endptr' + freeMem endptr' + freeMem string' + freeMem maybeLimit + freeMem endptr + return (result', endptr'') + +-- function g_warn_message +-- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warnexpr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warnexpr", 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_warn_message" g_warn_message :: + CString -> -- domain : TBasicType TUTF8 + CString -> -- file : TBasicType TUTF8 + Int32 -> -- line : TBasicType TInt32 + CString -> -- func : TBasicType TUTF8 + CString -> -- warnexpr : TBasicType TUTF8 + IO () + + +warnMessage :: + (MonadIO m) => + T.Text -> -- domain + T.Text -> -- file + Int32 -> -- line + T.Text -> -- func + T.Text -> -- warnexpr + m () +warnMessage domain file line func warnexpr = liftIO $ do + domain' <- textToCString domain + file' <- textToCString file + func' <- textToCString func + warnexpr' <- textToCString warnexpr + g_warn_message domain' file' line func' warnexpr' + freeMem domain' + freeMem file' + freeMem func' + freeMem warnexpr' + return () + +-- callback IOFuncsIoReadFieldCallback +iOFuncsIoReadFieldCallbackClosure :: IOFuncsIoReadFieldCallback -> IO Closure +iOFuncsIoReadFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoReadFieldCallback wrapped + where wrapped = iOFuncsIoReadFieldCallbackWrapper Nothing cb + +type IOFuncsIoReadFieldCallbackC = + Ptr IOChannel -> + CString -> + Word64 -> + Word64 -> + IO CUInt + +foreign import ccall "wrapper" + mkIOFuncsIoReadFieldCallback :: IOFuncsIoReadFieldCallbackC -> IO (FunPtr IOFuncsIoReadFieldCallbackC) + +type IOFuncsIoReadFieldCallback = + IOChannel -> + T.Text -> + Word64 -> + Word64 -> + IO IOStatus + +noIOFuncsIoReadFieldCallback :: Maybe IOFuncsIoReadFieldCallback +noIOFuncsIoReadFieldCallback = Nothing + +iOFuncsIoReadFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (IOFuncsIoReadFieldCallbackC))) -> + IOFuncsIoReadFieldCallback -> + Ptr IOChannel -> + CString -> + Word64 -> + Word64 -> + IO CUInt +iOFuncsIoReadFieldCallbackWrapper funptrptr _cb channel buf count bytes_read = do + channel' <- (newBoxed IOChannel) channel + buf' <- cstringToText buf + result <- _cb channel' buf' count bytes_read + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- callback IOFuncsIoWriteFieldCallback +iOFuncsIoWriteFieldCallbackClosure :: IOFuncsIoWriteFieldCallback -> IO Closure +iOFuncsIoWriteFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoWriteFieldCallback wrapped + where wrapped = iOFuncsIoWriteFieldCallbackWrapper Nothing cb + +type IOFuncsIoWriteFieldCallbackC = + Ptr IOChannel -> + CString -> + Word64 -> + Word64 -> + IO CUInt + +foreign import ccall "wrapper" + mkIOFuncsIoWriteFieldCallback :: IOFuncsIoWriteFieldCallbackC -> IO (FunPtr IOFuncsIoWriteFieldCallbackC) + +type IOFuncsIoWriteFieldCallback = + IOChannel -> + T.Text -> + Word64 -> + Word64 -> + IO IOStatus + +noIOFuncsIoWriteFieldCallback :: Maybe IOFuncsIoWriteFieldCallback +noIOFuncsIoWriteFieldCallback = Nothing + +iOFuncsIoWriteFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (IOFuncsIoWriteFieldCallbackC))) -> + IOFuncsIoWriteFieldCallback -> + Ptr IOChannel -> + CString -> + Word64 -> + Word64 -> + IO CUInt +iOFuncsIoWriteFieldCallbackWrapper funptrptr _cb channel buf count bytes_written = do + channel' <- (newBoxed IOChannel) channel + buf' <- cstringToText buf + result <- _cb channel' buf' count bytes_written + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- callback IOFuncsIoSeekFieldCallback +iOFuncsIoSeekFieldCallbackClosure :: IOFuncsIoSeekFieldCallback -> IO Closure +iOFuncsIoSeekFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoSeekFieldCallback wrapped + where wrapped = iOFuncsIoSeekFieldCallbackWrapper Nothing cb + +type IOFuncsIoSeekFieldCallbackC = + Ptr IOChannel -> + Int64 -> + CUInt -> + IO CUInt + +foreign import ccall "wrapper" + mkIOFuncsIoSeekFieldCallback :: IOFuncsIoSeekFieldCallbackC -> IO (FunPtr IOFuncsIoSeekFieldCallbackC) + +type IOFuncsIoSeekFieldCallback = + IOChannel -> + Int64 -> + SeekType -> + IO IOStatus + +noIOFuncsIoSeekFieldCallback :: Maybe IOFuncsIoSeekFieldCallback +noIOFuncsIoSeekFieldCallback = Nothing + +iOFuncsIoSeekFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (IOFuncsIoSeekFieldCallbackC))) -> + IOFuncsIoSeekFieldCallback -> + Ptr IOChannel -> + Int64 -> + CUInt -> + IO CUInt +iOFuncsIoSeekFieldCallbackWrapper funptrptr _cb channel offset type_ = do + channel' <- (newBoxed IOChannel) channel + let type_' = (toEnum . fromIntegral) type_ + result <- _cb channel' offset type_' + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- callback IOFuncsIoCloseFieldCallback +iOFuncsIoCloseFieldCallbackClosure :: IOFuncsIoCloseFieldCallback -> IO Closure +iOFuncsIoCloseFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoCloseFieldCallback wrapped + where wrapped = iOFuncsIoCloseFieldCallbackWrapper Nothing cb + +type IOFuncsIoCloseFieldCallbackC = + Ptr IOChannel -> + IO CUInt + +foreign import ccall "wrapper" + mkIOFuncsIoCloseFieldCallback :: IOFuncsIoCloseFieldCallbackC -> IO (FunPtr IOFuncsIoCloseFieldCallbackC) + +type IOFuncsIoCloseFieldCallback = + IOChannel -> + IO IOStatus + +noIOFuncsIoCloseFieldCallback :: Maybe IOFuncsIoCloseFieldCallback +noIOFuncsIoCloseFieldCallback = Nothing + +iOFuncsIoCloseFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (IOFuncsIoCloseFieldCallbackC))) -> + IOFuncsIoCloseFieldCallback -> + Ptr IOChannel -> + IO CUInt +iOFuncsIoCloseFieldCallbackWrapper funptrptr _cb channel = do + channel' <- (newBoxed IOChannel) channel + result <- _cb channel' + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- callback IOFuncsIoCreateWatchFieldCallback +iOFuncsIoCreateWatchFieldCallbackClosure :: IOFuncsIoCreateWatchFieldCallback -> IO Closure +iOFuncsIoCreateWatchFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoCreateWatchFieldCallback wrapped + where wrapped = iOFuncsIoCreateWatchFieldCallbackWrapper Nothing cb + +type IOFuncsIoCreateWatchFieldCallbackC = + Ptr IOChannel -> + CUInt -> + IO (Ptr Source) + +foreign import ccall "wrapper" + mkIOFuncsIoCreateWatchFieldCallback :: IOFuncsIoCreateWatchFieldCallbackC -> IO (FunPtr IOFuncsIoCreateWatchFieldCallbackC) + +type IOFuncsIoCreateWatchFieldCallback = + IOChannel -> + [IOCondition] -> + IO Source + +noIOFuncsIoCreateWatchFieldCallback :: Maybe IOFuncsIoCreateWatchFieldCallback +noIOFuncsIoCreateWatchFieldCallback = Nothing + +iOFuncsIoCreateWatchFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (IOFuncsIoCreateWatchFieldCallbackC))) -> + IOFuncsIoCreateWatchFieldCallback -> + Ptr IOChannel -> + CUInt -> + IO (Ptr Source) +iOFuncsIoCreateWatchFieldCallbackWrapper funptrptr _cb channel condition = do + channel' <- (newBoxed IOChannel) channel + let condition' = wordToGFlags condition + result <- _cb channel' condition' + maybeReleaseFunPtr funptrptr + result' <- copyBoxed result + return result' + +-- callback IOFuncsIoFreeFieldCallback +iOFuncsIoFreeFieldCallbackClosure :: IOFuncsIoFreeFieldCallback -> IO Closure +iOFuncsIoFreeFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoFreeFieldCallback wrapped + where wrapped = iOFuncsIoFreeFieldCallbackWrapper Nothing cb + +type IOFuncsIoFreeFieldCallbackC = + Ptr IOChannel -> + IO () + +foreign import ccall "wrapper" + mkIOFuncsIoFreeFieldCallback :: IOFuncsIoFreeFieldCallbackC -> IO (FunPtr IOFuncsIoFreeFieldCallbackC) + +type IOFuncsIoFreeFieldCallback = + IOChannel -> + IO () + +noIOFuncsIoFreeFieldCallback :: Maybe IOFuncsIoFreeFieldCallback +noIOFuncsIoFreeFieldCallback = Nothing + +iOFuncsIoFreeFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (IOFuncsIoFreeFieldCallbackC))) -> + IOFuncsIoFreeFieldCallback -> + Ptr IOChannel -> + IO () +iOFuncsIoFreeFieldCallbackWrapper funptrptr _cb channel = do + channel' <- (newBoxed IOChannel) channel + _cb channel' + maybeReleaseFunPtr funptrptr + +-- callback IOFuncsIoSetFlagsFieldCallback +iOFuncsIoSetFlagsFieldCallbackClosure :: IOFuncsIoSetFlagsFieldCallback -> IO Closure +iOFuncsIoSetFlagsFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoSetFlagsFieldCallback wrapped + where wrapped = iOFuncsIoSetFlagsFieldCallbackWrapper Nothing cb + +type IOFuncsIoSetFlagsFieldCallbackC = + Ptr IOChannel -> + CUInt -> + IO CUInt + +foreign import ccall "wrapper" + mkIOFuncsIoSetFlagsFieldCallback :: IOFuncsIoSetFlagsFieldCallbackC -> IO (FunPtr IOFuncsIoSetFlagsFieldCallbackC) + +type IOFuncsIoSetFlagsFieldCallback = + IOChannel -> + [IOFlags] -> + IO IOStatus + +noIOFuncsIoSetFlagsFieldCallback :: Maybe IOFuncsIoSetFlagsFieldCallback +noIOFuncsIoSetFlagsFieldCallback = Nothing + +iOFuncsIoSetFlagsFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (IOFuncsIoSetFlagsFieldCallbackC))) -> + IOFuncsIoSetFlagsFieldCallback -> + Ptr IOChannel -> + CUInt -> + IO CUInt +iOFuncsIoSetFlagsFieldCallbackWrapper funptrptr _cb channel flags = do + channel' <- (newBoxed IOChannel) channel + let flags' = wordToGFlags flags + result <- _cb channel' flags' + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- callback IOFuncsIoGetFlagsFieldCallback +iOFuncsIoGetFlagsFieldCallbackClosure :: IOFuncsIoGetFlagsFieldCallback -> IO Closure +iOFuncsIoGetFlagsFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoGetFlagsFieldCallback wrapped + where wrapped = iOFuncsIoGetFlagsFieldCallbackWrapper Nothing cb + +type IOFuncsIoGetFlagsFieldCallbackC = + Ptr IOChannel -> + IO CUInt + +foreign import ccall "wrapper" + mkIOFuncsIoGetFlagsFieldCallback :: IOFuncsIoGetFlagsFieldCallbackC -> IO (FunPtr IOFuncsIoGetFlagsFieldCallbackC) + +type IOFuncsIoGetFlagsFieldCallback = + IOChannel -> + IO [IOFlags] + +noIOFuncsIoGetFlagsFieldCallback :: Maybe IOFuncsIoGetFlagsFieldCallback +noIOFuncsIoGetFlagsFieldCallback = Nothing + +iOFuncsIoGetFlagsFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (IOFuncsIoGetFlagsFieldCallbackC))) -> + IOFuncsIoGetFlagsFieldCallback -> + Ptr IOChannel -> + IO CUInt +iOFuncsIoGetFlagsFieldCallbackWrapper funptrptr _cb channel = do + channel' <- (newBoxed IOChannel) channel + result <- _cb channel' + maybeReleaseFunPtr funptrptr + let result' = gflagsToWord result + return result' + +-- callback MarkupParserStartElementFieldCallback +markupParserStartElementFieldCallbackClosure :: MarkupParserStartElementFieldCallback -> IO Closure +markupParserStartElementFieldCallbackClosure cb = newCClosure =<< mkMarkupParserStartElementFieldCallback wrapped + where wrapped = markupParserStartElementFieldCallbackWrapper Nothing cb + +type MarkupParserStartElementFieldCallbackC = + Ptr MarkupParseContext -> + CString -> + CString -> + CString -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkMarkupParserStartElementFieldCallback :: MarkupParserStartElementFieldCallbackC -> IO (FunPtr MarkupParserStartElementFieldCallbackC) + +type MarkupParserStartElementFieldCallback = + MarkupParseContext -> + T.Text -> + T.Text -> + T.Text -> + IO () + +noMarkupParserStartElementFieldCallback :: Maybe MarkupParserStartElementFieldCallback +noMarkupParserStartElementFieldCallback = Nothing + +markupParserStartElementFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (MarkupParserStartElementFieldCallbackC))) -> + MarkupParserStartElementFieldCallback -> + Ptr MarkupParseContext -> + CString -> + CString -> + CString -> + Ptr () -> + IO () +markupParserStartElementFieldCallbackWrapper funptrptr _cb context element_name attribute_names attribute_values _ = do + context' <- (newBoxed MarkupParseContext) context + element_name' <- cstringToText element_name + attribute_names' <- cstringToText attribute_names + attribute_values' <- cstringToText attribute_values + _cb context' element_name' attribute_names' attribute_values' + maybeReleaseFunPtr funptrptr + +-- callback MarkupParserEndElementFieldCallback +markupParserEndElementFieldCallbackClosure :: MarkupParserEndElementFieldCallback -> IO Closure +markupParserEndElementFieldCallbackClosure cb = newCClosure =<< mkMarkupParserEndElementFieldCallback wrapped + where wrapped = markupParserEndElementFieldCallbackWrapper Nothing cb + +type MarkupParserEndElementFieldCallbackC = + Ptr MarkupParseContext -> + CString -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkMarkupParserEndElementFieldCallback :: MarkupParserEndElementFieldCallbackC -> IO (FunPtr MarkupParserEndElementFieldCallbackC) + +type MarkupParserEndElementFieldCallback = + MarkupParseContext -> + T.Text -> + IO () + +noMarkupParserEndElementFieldCallback :: Maybe MarkupParserEndElementFieldCallback +noMarkupParserEndElementFieldCallback = Nothing + +markupParserEndElementFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (MarkupParserEndElementFieldCallbackC))) -> + MarkupParserEndElementFieldCallback -> + Ptr MarkupParseContext -> + CString -> + Ptr () -> + IO () +markupParserEndElementFieldCallbackWrapper funptrptr _cb context element_name _ = do + context' <- (newBoxed MarkupParseContext) context + element_name' <- cstringToText element_name + _cb context' element_name' + maybeReleaseFunPtr funptrptr + +-- callback MarkupParserTextFieldCallback +markupParserTextFieldCallbackClosure :: MarkupParserTextFieldCallback -> IO Closure +markupParserTextFieldCallbackClosure cb = newCClosure =<< mkMarkupParserTextFieldCallback wrapped + where wrapped = markupParserTextFieldCallbackWrapper Nothing cb + +type MarkupParserTextFieldCallbackC = + Ptr MarkupParseContext -> + CString -> + Word64 -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkMarkupParserTextFieldCallback :: MarkupParserTextFieldCallbackC -> IO (FunPtr MarkupParserTextFieldCallbackC) + +type MarkupParserTextFieldCallback = + MarkupParseContext -> + T.Text -> + Word64 -> + IO () + +noMarkupParserTextFieldCallback :: Maybe MarkupParserTextFieldCallback +noMarkupParserTextFieldCallback = Nothing + +markupParserTextFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (MarkupParserTextFieldCallbackC))) -> + MarkupParserTextFieldCallback -> + Ptr MarkupParseContext -> + CString -> + Word64 -> + Ptr () -> + IO () +markupParserTextFieldCallbackWrapper funptrptr _cb context text text_len _ = do + context' <- (newBoxed MarkupParseContext) context + text' <- cstringToText text + _cb context' text' text_len + maybeReleaseFunPtr funptrptr + +-- callback MarkupParserPassthroughFieldCallback +markupParserPassthroughFieldCallbackClosure :: MarkupParserPassthroughFieldCallback -> IO Closure +markupParserPassthroughFieldCallbackClosure cb = newCClosure =<< mkMarkupParserPassthroughFieldCallback wrapped + where wrapped = markupParserPassthroughFieldCallbackWrapper Nothing cb + +type MarkupParserPassthroughFieldCallbackC = + Ptr MarkupParseContext -> + CString -> + Word64 -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkMarkupParserPassthroughFieldCallback :: MarkupParserPassthroughFieldCallbackC -> IO (FunPtr MarkupParserPassthroughFieldCallbackC) + +type MarkupParserPassthroughFieldCallback = + MarkupParseContext -> + T.Text -> + Word64 -> + IO () + +noMarkupParserPassthroughFieldCallback :: Maybe MarkupParserPassthroughFieldCallback +noMarkupParserPassthroughFieldCallback = Nothing + +markupParserPassthroughFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (MarkupParserPassthroughFieldCallbackC))) -> + MarkupParserPassthroughFieldCallback -> + Ptr MarkupParseContext -> + CString -> + Word64 -> + Ptr () -> + IO () +markupParserPassthroughFieldCallbackWrapper funptrptr _cb context passthrough_text text_len _ = do + context' <- (newBoxed MarkupParseContext) context + passthrough_text' <- cstringToText passthrough_text + _cb context' passthrough_text' text_len + maybeReleaseFunPtr funptrptr + +-- callback MarkupParserErrorFieldCallback +markupParserErrorFieldCallbackClosure :: MarkupParserErrorFieldCallback -> IO Closure +markupParserErrorFieldCallbackClosure cb = newCClosure =<< mkMarkupParserErrorFieldCallback wrapped + where wrapped = markupParserErrorFieldCallbackWrapper Nothing cb + +type MarkupParserErrorFieldCallbackC = + Ptr MarkupParseContext -> + Ptr GError -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkMarkupParserErrorFieldCallback :: MarkupParserErrorFieldCallbackC -> IO (FunPtr MarkupParserErrorFieldCallbackC) + +type MarkupParserErrorFieldCallback = + MarkupParseContext -> + GError -> + IO () + +noMarkupParserErrorFieldCallback :: Maybe MarkupParserErrorFieldCallback +noMarkupParserErrorFieldCallback = Nothing + +markupParserErrorFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (MarkupParserErrorFieldCallbackC))) -> + MarkupParserErrorFieldCallback -> + Ptr MarkupParseContext -> + Ptr GError -> + Ptr () -> + IO () +markupParserErrorFieldCallbackWrapper funptrptr _cb context error_ _ = do + context' <- (newBoxed MarkupParseContext) context + error_' <- (newBoxed GError) error_ + _cb context' error_' + maybeReleaseFunPtr funptrptr + +-- callback MemVTableFreeFieldCallback +memVTableFreeFieldCallbackClosure :: MemVTableFreeFieldCallback -> IO Closure +memVTableFreeFieldCallbackClosure cb = newCClosure =<< mkMemVTableFreeFieldCallback wrapped + where wrapped = memVTableFreeFieldCallbackWrapper Nothing cb + +type MemVTableFreeFieldCallbackC = + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkMemVTableFreeFieldCallback :: MemVTableFreeFieldCallbackC -> IO (FunPtr MemVTableFreeFieldCallbackC) + +type MemVTableFreeFieldCallback = + Ptr () -> + IO () + +noMemVTableFreeFieldCallback :: Maybe MemVTableFreeFieldCallback +noMemVTableFreeFieldCallback = Nothing + +memVTableFreeFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (MemVTableFreeFieldCallbackC))) -> + MemVTableFreeFieldCallback -> + Ptr () -> + IO () +memVTableFreeFieldCallbackWrapper funptrptr _cb mem = do + _cb mem + maybeReleaseFunPtr funptrptr + +-- callback SourceCallbackFuncsRefFieldCallback +sourceCallbackFuncsRefFieldCallbackClosure :: SourceCallbackFuncsRefFieldCallback -> IO Closure +sourceCallbackFuncsRefFieldCallbackClosure cb = newCClosure =<< mkSourceCallbackFuncsRefFieldCallback wrapped + where wrapped = sourceCallbackFuncsRefFieldCallbackWrapper Nothing cb + +type SourceCallbackFuncsRefFieldCallbackC = + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkSourceCallbackFuncsRefFieldCallback :: SourceCallbackFuncsRefFieldCallbackC -> IO (FunPtr SourceCallbackFuncsRefFieldCallbackC) + +type SourceCallbackFuncsRefFieldCallback = + Ptr () -> + IO () + +noSourceCallbackFuncsRefFieldCallback :: Maybe SourceCallbackFuncsRefFieldCallback +noSourceCallbackFuncsRefFieldCallback = Nothing + +sourceCallbackFuncsRefFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (SourceCallbackFuncsRefFieldCallbackC))) -> + SourceCallbackFuncsRefFieldCallback -> + Ptr () -> + IO () +sourceCallbackFuncsRefFieldCallbackWrapper funptrptr _cb cb_data = do + _cb cb_data + maybeReleaseFunPtr funptrptr + +-- callback SourceCallbackFuncsUnrefFieldCallback +sourceCallbackFuncsUnrefFieldCallbackClosure :: SourceCallbackFuncsUnrefFieldCallback -> IO Closure +sourceCallbackFuncsUnrefFieldCallbackClosure cb = newCClosure =<< mkSourceCallbackFuncsUnrefFieldCallback wrapped + where wrapped = sourceCallbackFuncsUnrefFieldCallbackWrapper Nothing cb + +type SourceCallbackFuncsUnrefFieldCallbackC = + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkSourceCallbackFuncsUnrefFieldCallback :: SourceCallbackFuncsUnrefFieldCallbackC -> IO (FunPtr SourceCallbackFuncsUnrefFieldCallbackC) + +type SourceCallbackFuncsUnrefFieldCallback = + Ptr () -> + IO () + +noSourceCallbackFuncsUnrefFieldCallback :: Maybe SourceCallbackFuncsUnrefFieldCallback +noSourceCallbackFuncsUnrefFieldCallback = Nothing + +sourceCallbackFuncsUnrefFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (SourceCallbackFuncsUnrefFieldCallbackC))) -> + SourceCallbackFuncsUnrefFieldCallback -> + Ptr () -> + IO () +sourceCallbackFuncsUnrefFieldCallbackWrapper funptrptr _cb cb_data = do + _cb cb_data + maybeReleaseFunPtr funptrptr + +-- callback SourceFuncsPrepareFieldCallback +sourceFuncsPrepareFieldCallbackClosure :: SourceFuncsPrepareFieldCallback -> IO Closure +sourceFuncsPrepareFieldCallbackClosure cb = newCClosure =<< mkSourceFuncsPrepareFieldCallback wrapped + where wrapped = sourceFuncsPrepareFieldCallbackWrapper Nothing cb + +type SourceFuncsPrepareFieldCallbackC = + Ptr Source -> + Int32 -> + IO CInt + +foreign import ccall "wrapper" + mkSourceFuncsPrepareFieldCallback :: SourceFuncsPrepareFieldCallbackC -> IO (FunPtr SourceFuncsPrepareFieldCallbackC) + +type SourceFuncsPrepareFieldCallback = + Source -> + Int32 -> + IO Bool + +noSourceFuncsPrepareFieldCallback :: Maybe SourceFuncsPrepareFieldCallback +noSourceFuncsPrepareFieldCallback = Nothing + +sourceFuncsPrepareFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (SourceFuncsPrepareFieldCallbackC))) -> + SourceFuncsPrepareFieldCallback -> + Ptr Source -> + Int32 -> + IO CInt +sourceFuncsPrepareFieldCallbackWrapper funptrptr _cb source timeout_ = do + source' <- (newBoxed Source) source + result <- _cb source' timeout_ + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- callback SourceFuncsCheckFieldCallback +sourceFuncsCheckFieldCallbackClosure :: SourceFuncsCheckFieldCallback -> IO Closure +sourceFuncsCheckFieldCallbackClosure cb = newCClosure =<< mkSourceFuncsCheckFieldCallback wrapped + where wrapped = sourceFuncsCheckFieldCallbackWrapper Nothing cb + +type SourceFuncsCheckFieldCallbackC = + Ptr Source -> + IO CInt + +foreign import ccall "wrapper" + mkSourceFuncsCheckFieldCallback :: SourceFuncsCheckFieldCallbackC -> IO (FunPtr SourceFuncsCheckFieldCallbackC) + +type SourceFuncsCheckFieldCallback = + Source -> + IO Bool + +noSourceFuncsCheckFieldCallback :: Maybe SourceFuncsCheckFieldCallback +noSourceFuncsCheckFieldCallback = Nothing + +sourceFuncsCheckFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (SourceFuncsCheckFieldCallbackC))) -> + SourceFuncsCheckFieldCallback -> + Ptr Source -> + IO CInt +sourceFuncsCheckFieldCallbackWrapper funptrptr _cb source = do + source' <- (newBoxed Source) source + result <- _cb source' + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- callback SourceFuncsFinalizeFieldCallback +sourceFuncsFinalizeFieldCallbackClosure :: SourceFuncsFinalizeFieldCallback -> IO Closure +sourceFuncsFinalizeFieldCallbackClosure cb = newCClosure =<< mkSourceFuncsFinalizeFieldCallback wrapped + where wrapped = sourceFuncsFinalizeFieldCallbackWrapper Nothing cb + +type SourceFuncsFinalizeFieldCallbackC = + Ptr Source -> + IO () + +foreign import ccall "wrapper" + mkSourceFuncsFinalizeFieldCallback :: SourceFuncsFinalizeFieldCallbackC -> IO (FunPtr SourceFuncsFinalizeFieldCallbackC) + +type SourceFuncsFinalizeFieldCallback = + Source -> + IO () + +noSourceFuncsFinalizeFieldCallback :: Maybe SourceFuncsFinalizeFieldCallback +noSourceFuncsFinalizeFieldCallback = Nothing + +sourceFuncsFinalizeFieldCallbackWrapper :: + Maybe (Ptr (FunPtr (SourceFuncsFinalizeFieldCallbackC))) -> + SourceFuncsFinalizeFieldCallback -> + Ptr Source -> + IO () +sourceFuncsFinalizeFieldCallbackWrapper funptrptr _cb source = do + source' <- (newBoxed Source) source + _cb source' + maybeReleaseFunPtr funptrptr diff --git a/GI/GLib/Callbacks.hs b/GI/GLib/Callbacks.hs deleted file mode 100644 --- a/GI/GLib/Callbacks.hs +++ /dev/null @@ -1,2557 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.GLib.Callbacks - ( - - -- * Signals --- ** ChildWatchFunc - ChildWatchFunc , - ChildWatchFuncC , - childWatchFuncClosure , - childWatchFuncWrapper , - mkChildWatchFunc , - noChildWatchFunc , - - --- ** CompareDataFunc - CompareDataFunc , - CompareDataFuncC , - compareDataFuncClosure , - compareDataFuncWrapper , - mkCompareDataFunc , - noCompareDataFunc , - - --- ** CompareFunc - CompareFunc , - CompareFuncC , - compareFuncClosure , - compareFuncWrapper , - mkCompareFunc , - noCompareFunc , - - --- ** DataForeachFunc - DataForeachFunc , - DataForeachFuncC , - dataForeachFuncClosure , - dataForeachFuncWrapper , - mkDataForeachFunc , - noDataForeachFunc , - - --- ** DestroyNotify - DestroyNotify , - DestroyNotifyC , - destroyNotifyClosure , - destroyNotifyWrapper , - mkDestroyNotify , - noDestroyNotify , - - --- ** EqualFunc - EqualFunc , - EqualFuncC , - equalFuncClosure , - equalFuncWrapper , - mkEqualFunc , - noEqualFunc , - - --- ** FreeFunc - FreeFunc , - FreeFuncC , - freeFuncClosure , - freeFuncWrapper , - mkFreeFunc , - noFreeFunc , - - --- ** Func - Func , - FuncC , - funcClosure , - funcWrapper , - mkFunc , - noFunc , - - --- ** HFunc - HFunc , - HFuncC , - hFuncClosure , - hFuncWrapper , - mkHFunc , - noHFunc , - - --- ** HRFunc - HRFunc , - HRFuncC , - hRFuncClosure , - hRFuncWrapper , - mkHRFunc , - noHRFunc , - - --- ** HashFunc - HashFunc , - HashFuncC , - hashFuncClosure , - hashFuncWrapper , - mkHashFunc , - noHashFunc , - - --- ** HookCheckFunc - HookCheckFunc , - HookCheckFuncC , - hookCheckFuncClosure , - hookCheckFuncWrapper , - mkHookCheckFunc , - noHookCheckFunc , - - --- ** HookCheckMarshaller - HookCheckMarshaller , - HookCheckMarshallerC , - hookCheckMarshallerClosure , - hookCheckMarshallerWrapper , - mkHookCheckMarshaller , - noHookCheckMarshaller , - - --- ** HookCompareFunc - HookCompareFunc , - HookCompareFuncC , - hookCompareFuncClosure , - hookCompareFuncWrapper , - mkHookCompareFunc , - noHookCompareFunc , - - --- ** HookFinalizeFunc - HookFinalizeFunc , - HookFinalizeFuncC , - hookFinalizeFuncClosure , - hookFinalizeFuncWrapper , - mkHookFinalizeFunc , - noHookFinalizeFunc , - - --- ** HookFindFunc - HookFindFunc , - HookFindFuncC , - hookFindFuncClosure , - hookFindFuncWrapper , - mkHookFindFunc , - noHookFindFunc , - - --- ** HookFunc - HookFunc , - HookFuncC , - hookFuncClosure , - hookFuncWrapper , - mkHookFunc , - noHookFunc , - - --- ** HookMarshaller - HookMarshaller , - HookMarshallerC , - hookMarshallerClosure , - hookMarshallerWrapper , - mkHookMarshaller , - noHookMarshaller , - - --- ** IOFunc - IOFunc , - IOFuncC , - iOFuncClosure , - iOFuncWrapper , - mkIOFunc , - noIOFunc , - - --- ** IOFuncsIoCloseFieldCallback - IOFuncsIoCloseFieldCallback , - IOFuncsIoCloseFieldCallbackC , - iOFuncsIoCloseFieldCallbackClosure , - iOFuncsIoCloseFieldCallbackWrapper , - mkIOFuncsIoCloseFieldCallback , - noIOFuncsIoCloseFieldCallback , - - --- ** IOFuncsIoCreateWatchFieldCallback - IOFuncsIoCreateWatchFieldCallback , - IOFuncsIoCreateWatchFieldCallbackC , - iOFuncsIoCreateWatchFieldCallbackClosure, - iOFuncsIoCreateWatchFieldCallbackWrapper, - mkIOFuncsIoCreateWatchFieldCallback , - noIOFuncsIoCreateWatchFieldCallback , - - --- ** IOFuncsIoFreeFieldCallback - IOFuncsIoFreeFieldCallback , - IOFuncsIoFreeFieldCallbackC , - iOFuncsIoFreeFieldCallbackClosure , - iOFuncsIoFreeFieldCallbackWrapper , - mkIOFuncsIoFreeFieldCallback , - noIOFuncsIoFreeFieldCallback , - - --- ** IOFuncsIoGetFlagsFieldCallback - IOFuncsIoGetFlagsFieldCallback , - IOFuncsIoGetFlagsFieldCallbackC , - iOFuncsIoGetFlagsFieldCallbackClosure , - iOFuncsIoGetFlagsFieldCallbackWrapper , - mkIOFuncsIoGetFlagsFieldCallback , - noIOFuncsIoGetFlagsFieldCallback , - - --- ** IOFuncsIoReadFieldCallback - IOFuncsIoReadFieldCallback , - IOFuncsIoReadFieldCallbackC , - iOFuncsIoReadFieldCallbackClosure , - iOFuncsIoReadFieldCallbackWrapper , - mkIOFuncsIoReadFieldCallback , - noIOFuncsIoReadFieldCallback , - - --- ** IOFuncsIoSeekFieldCallback - IOFuncsIoSeekFieldCallback , - IOFuncsIoSeekFieldCallbackC , - iOFuncsIoSeekFieldCallbackClosure , - iOFuncsIoSeekFieldCallbackWrapper , - mkIOFuncsIoSeekFieldCallback , - noIOFuncsIoSeekFieldCallback , - - --- ** IOFuncsIoSetFlagsFieldCallback - IOFuncsIoSetFlagsFieldCallback , - IOFuncsIoSetFlagsFieldCallbackC , - iOFuncsIoSetFlagsFieldCallbackClosure , - iOFuncsIoSetFlagsFieldCallbackWrapper , - mkIOFuncsIoSetFlagsFieldCallback , - noIOFuncsIoSetFlagsFieldCallback , - - --- ** IOFuncsIoWriteFieldCallback - IOFuncsIoWriteFieldCallback , - IOFuncsIoWriteFieldCallbackC , - iOFuncsIoWriteFieldCallbackClosure , - iOFuncsIoWriteFieldCallbackWrapper , - mkIOFuncsIoWriteFieldCallback , - noIOFuncsIoWriteFieldCallback , - - --- ** LogFunc - LogFunc , - LogFuncC , - logFuncClosure , - logFuncWrapper , - mkLogFunc , - noLogFunc , - - --- ** MarkupParserEndElementFieldCallback - MarkupParserEndElementFieldCallback , - MarkupParserEndElementFieldCallbackC , - markupParserEndElementFieldCallbackClosure, - markupParserEndElementFieldCallbackWrapper, - mkMarkupParserEndElementFieldCallback , - noMarkupParserEndElementFieldCallback , - - --- ** MarkupParserErrorFieldCallback - MarkupParserErrorFieldCallback , - MarkupParserErrorFieldCallbackC , - markupParserErrorFieldCallbackClosure , - markupParserErrorFieldCallbackWrapper , - mkMarkupParserErrorFieldCallback , - noMarkupParserErrorFieldCallback , - - --- ** MarkupParserPassthroughFieldCallback - MarkupParserPassthroughFieldCallback , - MarkupParserPassthroughFieldCallbackC , - markupParserPassthroughFieldCallbackClosure, - markupParserPassthroughFieldCallbackWrapper, - mkMarkupParserPassthroughFieldCallback , - noMarkupParserPassthroughFieldCallback , - - --- ** MarkupParserStartElementFieldCallback - MarkupParserStartElementFieldCallback , - MarkupParserStartElementFieldCallbackC , - markupParserStartElementFieldCallbackClosure, - markupParserStartElementFieldCallbackWrapper, - mkMarkupParserStartElementFieldCallback , - noMarkupParserStartElementFieldCallback , - - --- ** MarkupParserTextFieldCallback - MarkupParserTextFieldCallback , - MarkupParserTextFieldCallbackC , - markupParserTextFieldCallbackClosure , - markupParserTextFieldCallbackWrapper , - mkMarkupParserTextFieldCallback , - noMarkupParserTextFieldCallback , - - --- ** MemVTableFreeFieldCallback - MemVTableFreeFieldCallback , - MemVTableFreeFieldCallbackC , - memVTableFreeFieldCallbackClosure , - memVTableFreeFieldCallbackWrapper , - mkMemVTableFreeFieldCallback , - noMemVTableFreeFieldCallback , - - --- ** NodeForeachFunc - NodeForeachFunc , - NodeForeachFuncC , - mkNodeForeachFunc , - noNodeForeachFunc , - nodeForeachFuncClosure , - nodeForeachFuncWrapper , - - --- ** NodeTraverseFunc - NodeTraverseFunc , - NodeTraverseFuncC , - mkNodeTraverseFunc , - noNodeTraverseFunc , - nodeTraverseFuncClosure , - nodeTraverseFuncWrapper , - - --- ** OptionArgFunc - OptionArgFunc , - OptionArgFuncC , - mkOptionArgFunc , - noOptionArgFunc , - optionArgFuncClosure , - optionArgFuncWrapper , - - --- ** OptionErrorFunc - OptionErrorFunc , - OptionErrorFuncC , - mkOptionErrorFunc , - noOptionErrorFunc , - optionErrorFuncClosure , - optionErrorFuncWrapper , - - --- ** OptionParseFunc - OptionParseFunc , - OptionParseFuncC , - mkOptionParseFunc , - noOptionParseFunc , - optionParseFuncClosure , - optionParseFuncWrapper , - - --- ** PollFunc - PollFunc , - PollFuncC , - mkPollFunc , - noPollFunc , - pollFuncClosure , - pollFuncWrapper , - - --- ** PrintFunc - PrintFunc , - PrintFuncC , - mkPrintFunc , - noPrintFunc , - printFuncClosure , - printFuncWrapper , - - --- ** RegexEvalCallback - RegexEvalCallback , - RegexEvalCallbackC , - mkRegexEvalCallback , - noRegexEvalCallback , - regexEvalCallbackClosure , - regexEvalCallbackWrapper , - - --- ** ScannerMsgFunc - ScannerMsgFunc , - ScannerMsgFuncC , - mkScannerMsgFunc , - noScannerMsgFunc , - scannerMsgFuncClosure , - scannerMsgFuncWrapper , - - --- ** SequenceIterCompareFunc - SequenceIterCompareFunc , - SequenceIterCompareFuncC , - mkSequenceIterCompareFunc , - noSequenceIterCompareFunc , - sequenceIterCompareFuncClosure , - sequenceIterCompareFuncWrapper , - - --- ** SourceCallbackFuncsRefFieldCallback - SourceCallbackFuncsRefFieldCallback , - SourceCallbackFuncsRefFieldCallbackC , - mkSourceCallbackFuncsRefFieldCallback , - noSourceCallbackFuncsRefFieldCallback , - sourceCallbackFuncsRefFieldCallbackClosure, - sourceCallbackFuncsRefFieldCallbackWrapper, - - --- ** SourceCallbackFuncsUnrefFieldCallback - SourceCallbackFuncsUnrefFieldCallback , - SourceCallbackFuncsUnrefFieldCallbackC , - mkSourceCallbackFuncsUnrefFieldCallback , - noSourceCallbackFuncsUnrefFieldCallback , - sourceCallbackFuncsUnrefFieldCallbackClosure, - sourceCallbackFuncsUnrefFieldCallbackWrapper, - - --- ** SourceDummyMarshal - SourceDummyMarshal , - SourceDummyMarshalC , - mkSourceDummyMarshal , - noSourceDummyMarshal , - sourceDummyMarshalClosure , - sourceDummyMarshalWrapper , - - --- ** SourceFunc - SourceFunc , - SourceFuncC , - mkSourceFunc , - noSourceFunc , - sourceFuncClosure , - sourceFuncWrapper , - - --- ** SourceFuncsCheckFieldCallback - SourceFuncsCheckFieldCallback , - SourceFuncsCheckFieldCallbackC , - mkSourceFuncsCheckFieldCallback , - noSourceFuncsCheckFieldCallback , - sourceFuncsCheckFieldCallbackClosure , - sourceFuncsCheckFieldCallbackWrapper , - - --- ** SourceFuncsFinalizeFieldCallback - SourceFuncsFinalizeFieldCallback , - SourceFuncsFinalizeFieldCallbackC , - mkSourceFuncsFinalizeFieldCallback , - noSourceFuncsFinalizeFieldCallback , - sourceFuncsFinalizeFieldCallbackClosure , - sourceFuncsFinalizeFieldCallbackWrapper , - - --- ** SourceFuncsPrepareFieldCallback - SourceFuncsPrepareFieldCallback , - SourceFuncsPrepareFieldCallbackC , - mkSourceFuncsPrepareFieldCallback , - noSourceFuncsPrepareFieldCallback , - sourceFuncsPrepareFieldCallbackClosure , - sourceFuncsPrepareFieldCallbackWrapper , - - --- ** SpawnChildSetupFunc - SpawnChildSetupFunc , - SpawnChildSetupFuncC , - mkSpawnChildSetupFunc , - noSpawnChildSetupFunc , - spawnChildSetupFuncClosure , - spawnChildSetupFuncWrapper , - - --- ** TestDataFunc - TestDataFunc , - TestDataFuncC , - mkTestDataFunc , - noTestDataFunc , - testDataFuncClosure , - testDataFuncWrapper , - - --- ** TestFixtureFunc - TestFixtureFunc , - TestFixtureFuncC , - mkTestFixtureFunc , - noTestFixtureFunc , - testFixtureFuncClosure , - testFixtureFuncWrapper , - - --- ** TestFunc - TestFunc , - TestFuncC , - mkTestFunc , - noTestFunc , - testFuncClosure , - testFuncWrapper , - - --- ** TestLogFatalFunc - TestLogFatalFunc , - TestLogFatalFuncC , - mkTestLogFatalFunc , - noTestLogFatalFunc , - testLogFatalFuncClosure , - testLogFatalFuncWrapper , - - --- ** TranslateFunc - TranslateFunc , - TranslateFuncC , - mkTranslateFunc , - noTranslateFunc , - translateFuncClosure , - translateFuncWrapper , - - --- ** TraverseFunc - TraverseFunc , - TraverseFuncC , - mkTraverseFunc , - noTraverseFunc , - traverseFuncClosure , - traverseFuncWrapper , - - --- ** UnixFDSourceFunc - UnixFDSourceFunc , - UnixFDSourceFuncC , - mkUnixFDSourceFunc , - noUnixFDSourceFunc , - unixFDSourceFuncClosure , - unixFDSourceFuncWrapper , - - --- ** VoidFunc - VoidFunc , - VoidFuncC , - mkVoidFunc , - noVoidFunc , - voidFuncClosure , - voidFuncWrapper , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types - - --- callback VoidFunc -voidFuncClosure :: VoidFunc -> IO Closure -voidFuncClosure cb = newCClosure =<< mkVoidFunc wrapped - where wrapped = voidFuncWrapper Nothing cb - -type VoidFuncC = - IO () - -foreign import ccall "wrapper" - mkVoidFunc :: VoidFuncC -> IO (FunPtr VoidFuncC) - -type VoidFunc = - IO () - -noVoidFunc :: Maybe VoidFunc -noVoidFunc = Nothing - -voidFuncWrapper :: - Maybe (Ptr (FunPtr (VoidFuncC))) -> - VoidFunc -> - IO () -voidFuncWrapper funptrptr _cb = do - _cb - maybeReleaseFunPtr funptrptr - --- callback UnixFDSourceFunc -unixFDSourceFuncClosure :: UnixFDSourceFunc -> IO Closure -unixFDSourceFuncClosure cb = newCClosure =<< mkUnixFDSourceFunc wrapped - where wrapped = unixFDSourceFuncWrapper Nothing cb - -type UnixFDSourceFuncC = - Int32 -> - CUInt -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkUnixFDSourceFunc :: UnixFDSourceFuncC -> IO (FunPtr UnixFDSourceFuncC) - -type UnixFDSourceFunc = - Int32 -> - [IOCondition] -> - IO Bool - -noUnixFDSourceFunc :: Maybe UnixFDSourceFunc -noUnixFDSourceFunc = Nothing - -unixFDSourceFuncWrapper :: - Maybe (Ptr (FunPtr (UnixFDSourceFuncC))) -> - UnixFDSourceFunc -> - Int32 -> - CUInt -> - Ptr () -> - IO CInt -unixFDSourceFuncWrapper funptrptr _cb fd condition _ = do - let condition' = wordToGFlags condition - result <- _cb fd condition' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback TraverseFunc -traverseFuncClosure :: TraverseFunc -> IO Closure -traverseFuncClosure cb = newCClosure =<< mkTraverseFunc wrapped - where wrapped = traverseFuncWrapper Nothing cb - -type TraverseFuncC = - Ptr () -> - Ptr () -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkTraverseFunc :: TraverseFuncC -> IO (FunPtr TraverseFuncC) - -type TraverseFunc = - Ptr () -> - Ptr () -> - Ptr () -> - IO Bool - -noTraverseFunc :: Maybe TraverseFunc -noTraverseFunc = Nothing - -traverseFuncWrapper :: - Maybe (Ptr (FunPtr (TraverseFuncC))) -> - TraverseFunc -> - Ptr () -> - Ptr () -> - Ptr () -> - IO CInt -traverseFuncWrapper funptrptr _cb key value data_ = do - result <- _cb key value data_ - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback TranslateFunc -translateFuncClosure :: TranslateFunc -> IO Closure -translateFuncClosure cb = newCClosure =<< mkTranslateFunc wrapped - where wrapped = translateFuncWrapper Nothing cb - -type TranslateFuncC = - CString -> - Ptr () -> - IO CString - -foreign import ccall "wrapper" - mkTranslateFunc :: TranslateFuncC -> IO (FunPtr TranslateFuncC) - -type TranslateFunc = - T.Text -> - Ptr () -> - IO T.Text - -noTranslateFunc :: Maybe TranslateFunc -noTranslateFunc = Nothing - -translateFuncWrapper :: - Maybe (Ptr (FunPtr (TranslateFuncC))) -> - TranslateFunc -> - CString -> - Ptr () -> - IO CString -translateFuncWrapper funptrptr _cb str data_ = do - str' <- cstringToText str - result <- _cb str' data_ - maybeReleaseFunPtr funptrptr - result' <- textToCString result - return result' - --- callback TestLogFatalFunc -testLogFatalFuncClosure :: TestLogFatalFunc -> IO Closure -testLogFatalFuncClosure cb = newCClosure =<< mkTestLogFatalFunc wrapped - where wrapped = testLogFatalFuncWrapper Nothing cb - -type TestLogFatalFuncC = - CString -> - CUInt -> - CString -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkTestLogFatalFunc :: TestLogFatalFuncC -> IO (FunPtr TestLogFatalFuncC) - -type TestLogFatalFunc = - T.Text -> - [LogLevelFlags] -> - T.Text -> - IO Bool - -noTestLogFatalFunc :: Maybe TestLogFatalFunc -noTestLogFatalFunc = Nothing - -testLogFatalFuncWrapper :: - Maybe (Ptr (FunPtr (TestLogFatalFuncC))) -> - TestLogFatalFunc -> - CString -> - CUInt -> - CString -> - Ptr () -> - IO CInt -testLogFatalFuncWrapper funptrptr _cb log_domain log_level message _ = do - log_domain' <- cstringToText log_domain - let log_level' = wordToGFlags log_level - message' <- cstringToText message - result <- _cb log_domain' log_level' message' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback TestFunc -testFuncClosure :: TestFunc -> IO Closure -testFuncClosure cb = newCClosure =<< mkTestFunc wrapped - where wrapped = testFuncWrapper Nothing cb - -type TestFuncC = - IO () - -foreign import ccall "wrapper" - mkTestFunc :: TestFuncC -> IO (FunPtr TestFuncC) - -type TestFunc = - IO () - -noTestFunc :: Maybe TestFunc -noTestFunc = Nothing - -testFuncWrapper :: - Maybe (Ptr (FunPtr (TestFuncC))) -> - TestFunc -> - IO () -testFuncWrapper funptrptr _cb = do - _cb - maybeReleaseFunPtr funptrptr - --- callback TestFixtureFunc -testFixtureFuncClosure :: TestFixtureFunc -> IO Closure -testFixtureFuncClosure cb = newCClosure =<< mkTestFixtureFunc wrapped - where wrapped = testFixtureFuncWrapper Nothing cb - -type TestFixtureFuncC = - Ptr () -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkTestFixtureFunc :: TestFixtureFuncC -> IO (FunPtr TestFixtureFuncC) - -type TestFixtureFunc = - Ptr () -> - IO () - -noTestFixtureFunc :: Maybe TestFixtureFunc -noTestFixtureFunc = Nothing - -testFixtureFuncWrapper :: - Maybe (Ptr (FunPtr (TestFixtureFuncC))) -> - TestFixtureFunc -> - Ptr () -> - Ptr () -> - IO () -testFixtureFuncWrapper funptrptr _cb fixture _ = do - _cb fixture - maybeReleaseFunPtr funptrptr - --- callback TestDataFunc -testDataFuncClosure :: TestDataFunc -> IO Closure -testDataFuncClosure cb = newCClosure =<< mkTestDataFunc wrapped - where wrapped = testDataFuncWrapper Nothing cb - -type TestDataFuncC = - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkTestDataFunc :: TestDataFuncC -> IO (FunPtr TestDataFuncC) - -type TestDataFunc = - IO () - -noTestDataFunc :: Maybe TestDataFunc -noTestDataFunc = Nothing - -testDataFuncWrapper :: - Maybe (Ptr (FunPtr (TestDataFuncC))) -> - TestDataFunc -> - Ptr () -> - IO () -testDataFuncWrapper funptrptr _cb _ = do - _cb - maybeReleaseFunPtr funptrptr - --- callback SpawnChildSetupFunc -spawnChildSetupFuncClosure :: SpawnChildSetupFunc -> IO Closure -spawnChildSetupFuncClosure cb = newCClosure =<< mkSpawnChildSetupFunc wrapped - where wrapped = spawnChildSetupFuncWrapper Nothing cb - -type SpawnChildSetupFuncC = - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkSpawnChildSetupFunc :: SpawnChildSetupFuncC -> IO (FunPtr SpawnChildSetupFuncC) - -type SpawnChildSetupFunc = - IO () - -noSpawnChildSetupFunc :: Maybe SpawnChildSetupFunc -noSpawnChildSetupFunc = Nothing - -spawnChildSetupFuncWrapper :: - Maybe (Ptr (FunPtr (SpawnChildSetupFuncC))) -> - SpawnChildSetupFunc -> - Ptr () -> - IO () -spawnChildSetupFuncWrapper funptrptr _cb _ = do - _cb - maybeReleaseFunPtr funptrptr - --- callback SourceFuncsPrepareFieldCallback -sourceFuncsPrepareFieldCallbackClosure :: SourceFuncsPrepareFieldCallback -> IO Closure -sourceFuncsPrepareFieldCallbackClosure cb = newCClosure =<< mkSourceFuncsPrepareFieldCallback wrapped - where wrapped = sourceFuncsPrepareFieldCallbackWrapper Nothing cb - -type SourceFuncsPrepareFieldCallbackC = - Ptr Source -> - Int32 -> - IO CInt - -foreign import ccall "wrapper" - mkSourceFuncsPrepareFieldCallback :: SourceFuncsPrepareFieldCallbackC -> IO (FunPtr SourceFuncsPrepareFieldCallbackC) - -type SourceFuncsPrepareFieldCallback = - Source -> - Int32 -> - IO Bool - -noSourceFuncsPrepareFieldCallback :: Maybe SourceFuncsPrepareFieldCallback -noSourceFuncsPrepareFieldCallback = Nothing - -sourceFuncsPrepareFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (SourceFuncsPrepareFieldCallbackC))) -> - SourceFuncsPrepareFieldCallback -> - Ptr Source -> - Int32 -> - IO CInt -sourceFuncsPrepareFieldCallbackWrapper funptrptr _cb source timeout_ = do - source' <- (newBoxed Source) source - result <- _cb source' timeout_ - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback SourceFuncsFinalizeFieldCallback -sourceFuncsFinalizeFieldCallbackClosure :: SourceFuncsFinalizeFieldCallback -> IO Closure -sourceFuncsFinalizeFieldCallbackClosure cb = newCClosure =<< mkSourceFuncsFinalizeFieldCallback wrapped - where wrapped = sourceFuncsFinalizeFieldCallbackWrapper Nothing cb - -type SourceFuncsFinalizeFieldCallbackC = - Ptr Source -> - IO () - -foreign import ccall "wrapper" - mkSourceFuncsFinalizeFieldCallback :: SourceFuncsFinalizeFieldCallbackC -> IO (FunPtr SourceFuncsFinalizeFieldCallbackC) - -type SourceFuncsFinalizeFieldCallback = - Source -> - IO () - -noSourceFuncsFinalizeFieldCallback :: Maybe SourceFuncsFinalizeFieldCallback -noSourceFuncsFinalizeFieldCallback = Nothing - -sourceFuncsFinalizeFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (SourceFuncsFinalizeFieldCallbackC))) -> - SourceFuncsFinalizeFieldCallback -> - Ptr Source -> - IO () -sourceFuncsFinalizeFieldCallbackWrapper funptrptr _cb source = do - source' <- (newBoxed Source) source - _cb source' - maybeReleaseFunPtr funptrptr - --- callback SourceFuncsCheckFieldCallback -sourceFuncsCheckFieldCallbackClosure :: SourceFuncsCheckFieldCallback -> IO Closure -sourceFuncsCheckFieldCallbackClosure cb = newCClosure =<< mkSourceFuncsCheckFieldCallback wrapped - where wrapped = sourceFuncsCheckFieldCallbackWrapper Nothing cb - -type SourceFuncsCheckFieldCallbackC = - Ptr Source -> - IO CInt - -foreign import ccall "wrapper" - mkSourceFuncsCheckFieldCallback :: SourceFuncsCheckFieldCallbackC -> IO (FunPtr SourceFuncsCheckFieldCallbackC) - -type SourceFuncsCheckFieldCallback = - Source -> - IO Bool - -noSourceFuncsCheckFieldCallback :: Maybe SourceFuncsCheckFieldCallback -noSourceFuncsCheckFieldCallback = Nothing - -sourceFuncsCheckFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (SourceFuncsCheckFieldCallbackC))) -> - SourceFuncsCheckFieldCallback -> - Ptr Source -> - IO CInt -sourceFuncsCheckFieldCallbackWrapper funptrptr _cb source = do - source' <- (newBoxed Source) source - result <- _cb source' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback SourceFunc -sourceFuncClosure :: SourceFunc -> IO Closure -sourceFuncClosure cb = newCClosure =<< mkSourceFunc wrapped - where wrapped = sourceFuncWrapper Nothing cb - -type SourceFuncC = - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkSourceFunc :: SourceFuncC -> IO (FunPtr SourceFuncC) - -type SourceFunc = - IO Bool - -noSourceFunc :: Maybe SourceFunc -noSourceFunc = Nothing - -sourceFuncWrapper :: - Maybe (Ptr (FunPtr (SourceFuncC))) -> - SourceFunc -> - Ptr () -> - IO CInt -sourceFuncWrapper funptrptr _cb _ = do - result <- _cb - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback SourceDummyMarshal -sourceDummyMarshalClosure :: SourceDummyMarshal -> IO Closure -sourceDummyMarshalClosure cb = newCClosure =<< mkSourceDummyMarshal wrapped - where wrapped = sourceDummyMarshalWrapper Nothing cb - -type SourceDummyMarshalC = - IO () - -foreign import ccall "wrapper" - mkSourceDummyMarshal :: SourceDummyMarshalC -> IO (FunPtr SourceDummyMarshalC) - -type SourceDummyMarshal = - IO () - -noSourceDummyMarshal :: Maybe SourceDummyMarshal -noSourceDummyMarshal = Nothing - -sourceDummyMarshalWrapper :: - Maybe (Ptr (FunPtr (SourceDummyMarshalC))) -> - SourceDummyMarshal -> - IO () -sourceDummyMarshalWrapper funptrptr _cb = do - _cb - maybeReleaseFunPtr funptrptr - --- callback SourceCallbackFuncsUnrefFieldCallback -sourceCallbackFuncsUnrefFieldCallbackClosure :: SourceCallbackFuncsUnrefFieldCallback -> IO Closure -sourceCallbackFuncsUnrefFieldCallbackClosure cb = newCClosure =<< mkSourceCallbackFuncsUnrefFieldCallback wrapped - where wrapped = sourceCallbackFuncsUnrefFieldCallbackWrapper Nothing cb - -type SourceCallbackFuncsUnrefFieldCallbackC = - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkSourceCallbackFuncsUnrefFieldCallback :: SourceCallbackFuncsUnrefFieldCallbackC -> IO (FunPtr SourceCallbackFuncsUnrefFieldCallbackC) - -type SourceCallbackFuncsUnrefFieldCallback = - Ptr () -> - IO () - -noSourceCallbackFuncsUnrefFieldCallback :: Maybe SourceCallbackFuncsUnrefFieldCallback -noSourceCallbackFuncsUnrefFieldCallback = Nothing - -sourceCallbackFuncsUnrefFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (SourceCallbackFuncsUnrefFieldCallbackC))) -> - SourceCallbackFuncsUnrefFieldCallback -> - Ptr () -> - IO () -sourceCallbackFuncsUnrefFieldCallbackWrapper funptrptr _cb cb_data = do - _cb cb_data - maybeReleaseFunPtr funptrptr - --- callback SourceCallbackFuncsRefFieldCallback -sourceCallbackFuncsRefFieldCallbackClosure :: SourceCallbackFuncsRefFieldCallback -> IO Closure -sourceCallbackFuncsRefFieldCallbackClosure cb = newCClosure =<< mkSourceCallbackFuncsRefFieldCallback wrapped - where wrapped = sourceCallbackFuncsRefFieldCallbackWrapper Nothing cb - -type SourceCallbackFuncsRefFieldCallbackC = - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkSourceCallbackFuncsRefFieldCallback :: SourceCallbackFuncsRefFieldCallbackC -> IO (FunPtr SourceCallbackFuncsRefFieldCallbackC) - -type SourceCallbackFuncsRefFieldCallback = - Ptr () -> - IO () - -noSourceCallbackFuncsRefFieldCallback :: Maybe SourceCallbackFuncsRefFieldCallback -noSourceCallbackFuncsRefFieldCallback = Nothing - -sourceCallbackFuncsRefFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (SourceCallbackFuncsRefFieldCallbackC))) -> - SourceCallbackFuncsRefFieldCallback -> - Ptr () -> - IO () -sourceCallbackFuncsRefFieldCallbackWrapper funptrptr _cb cb_data = do - _cb cb_data - maybeReleaseFunPtr funptrptr - --- callback SequenceIterCompareFunc -sequenceIterCompareFuncClosure :: SequenceIterCompareFunc -> IO Closure -sequenceIterCompareFuncClosure cb = newCClosure =<< mkSequenceIterCompareFunc wrapped - where wrapped = sequenceIterCompareFuncWrapper Nothing cb - -type SequenceIterCompareFuncC = - Ptr SequenceIter -> - Ptr SequenceIter -> - Ptr () -> - IO Int32 - -foreign import ccall "wrapper" - mkSequenceIterCompareFunc :: SequenceIterCompareFuncC -> IO (FunPtr SequenceIterCompareFuncC) - -type SequenceIterCompareFunc = - SequenceIter -> - SequenceIter -> - Ptr () -> - IO Int32 - -noSequenceIterCompareFunc :: Maybe SequenceIterCompareFunc -noSequenceIterCompareFunc = Nothing - -sequenceIterCompareFuncWrapper :: - Maybe (Ptr (FunPtr (SequenceIterCompareFuncC))) -> - SequenceIterCompareFunc -> - Ptr SequenceIter -> - Ptr SequenceIter -> - Ptr () -> - IO Int32 -sequenceIterCompareFuncWrapper funptrptr _cb a b data_ = do - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - a' <- (\x -> SequenceIter <$> newForeignPtr_ x) a - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - b' <- (\x -> SequenceIter <$> newForeignPtr_ x) b - result <- _cb a' b' data_ - maybeReleaseFunPtr funptrptr - return result - --- callback ScannerMsgFunc -scannerMsgFuncClosure :: ScannerMsgFunc -> IO Closure -scannerMsgFuncClosure cb = newCClosure =<< mkScannerMsgFunc wrapped - where wrapped = scannerMsgFuncWrapper Nothing cb - -type ScannerMsgFuncC = - Ptr Scanner -> - CString -> - CInt -> - IO () - -foreign import ccall "wrapper" - mkScannerMsgFunc :: ScannerMsgFuncC -> IO (FunPtr ScannerMsgFuncC) - -type ScannerMsgFunc = - Scanner -> - T.Text -> - Bool -> - IO () - -noScannerMsgFunc :: Maybe ScannerMsgFunc -noScannerMsgFunc = Nothing - -scannerMsgFuncWrapper :: - Maybe (Ptr (FunPtr (ScannerMsgFuncC))) -> - ScannerMsgFunc -> - Ptr Scanner -> - CString -> - CInt -> - IO () -scannerMsgFuncWrapper funptrptr _cb scanner message error_ = do - scanner' <- (newPtr 144 Scanner) scanner - message' <- cstringToText message - let error_' = (/= 0) error_ - _cb scanner' message' error_' - maybeReleaseFunPtr funptrptr - --- callback RegexEvalCallback -regexEvalCallbackClosure :: RegexEvalCallback -> IO Closure -regexEvalCallbackClosure cb = newCClosure =<< mkRegexEvalCallback wrapped - where wrapped = regexEvalCallbackWrapper Nothing cb - -type RegexEvalCallbackC = - Ptr MatchInfo -> - Ptr String -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkRegexEvalCallback :: RegexEvalCallbackC -> IO (FunPtr RegexEvalCallbackC) - -type RegexEvalCallback = - MatchInfo -> - String -> - IO Bool - -noRegexEvalCallback :: Maybe RegexEvalCallback -noRegexEvalCallback = Nothing - -regexEvalCallbackWrapper :: - Maybe (Ptr (FunPtr (RegexEvalCallbackC))) -> - RegexEvalCallback -> - Ptr MatchInfo -> - Ptr String -> - Ptr () -> - IO CInt -regexEvalCallbackWrapper funptrptr _cb match_info result_ _ = do - match_info' <- (newBoxed MatchInfo) match_info - result_' <- (newBoxed String) result_ - result <- _cb match_info' result_' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback PrintFunc -printFuncClosure :: PrintFunc -> IO Closure -printFuncClosure cb = newCClosure =<< mkPrintFunc wrapped - where wrapped = printFuncWrapper Nothing cb - -type PrintFuncC = - CString -> - IO () - -foreign import ccall "wrapper" - mkPrintFunc :: PrintFuncC -> IO (FunPtr PrintFuncC) - -type PrintFunc = - T.Text -> - IO () - -noPrintFunc :: Maybe PrintFunc -noPrintFunc = Nothing - -printFuncWrapper :: - Maybe (Ptr (FunPtr (PrintFuncC))) -> - PrintFunc -> - CString -> - IO () -printFuncWrapper funptrptr _cb string = do - string' <- cstringToText string - _cb string' - maybeReleaseFunPtr funptrptr - --- callback PollFunc -pollFuncClosure :: PollFunc -> IO Closure -pollFuncClosure cb = newCClosure =<< mkPollFunc wrapped - where wrapped = pollFuncWrapper Nothing cb - -type PollFuncC = - Ptr PollFD -> - Word32 -> - Int32 -> - IO Int32 - -foreign import ccall "wrapper" - mkPollFunc :: PollFuncC -> IO (FunPtr PollFuncC) - -type PollFunc = - PollFD -> - Word32 -> - Int32 -> - IO Int32 - -noPollFunc :: Maybe PollFunc -noPollFunc = Nothing - -pollFuncWrapper :: - Maybe (Ptr (FunPtr (PollFuncC))) -> - PollFunc -> - Ptr PollFD -> - Word32 -> - Int32 -> - IO Int32 -pollFuncWrapper funptrptr _cb ufds nfsd timeout_ = do - ufds' <- (newBoxed PollFD) ufds - result <- _cb ufds' nfsd timeout_ - maybeReleaseFunPtr funptrptr - return result - --- callback OptionParseFunc -optionParseFuncClosure :: OptionParseFunc -> IO Closure -optionParseFuncClosure cb = newCClosure =<< mkOptionParseFunc wrapped - where wrapped = optionParseFuncWrapper Nothing cb - -type OptionParseFuncC = - Ptr OptionContext -> - Ptr OptionGroup -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkOptionParseFunc :: OptionParseFuncC -> IO (FunPtr OptionParseFuncC) - -type OptionParseFunc = - OptionContext -> - OptionGroup -> - Ptr () -> - IO Bool - -noOptionParseFunc :: Maybe OptionParseFunc -noOptionParseFunc = Nothing - -optionParseFuncWrapper :: - Maybe (Ptr (FunPtr (OptionParseFuncC))) -> - OptionParseFunc -> - Ptr OptionContext -> - Ptr OptionGroup -> - Ptr () -> - IO CInt -optionParseFuncWrapper funptrptr _cb context group data_ = do - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - context' <- (\x -> OptionContext <$> newForeignPtr_ x) context - group' <- (newBoxed OptionGroup) group - result <- _cb context' group' data_ - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback OptionErrorFunc -optionErrorFuncClosure :: OptionErrorFunc -> IO Closure -optionErrorFuncClosure cb = newCClosure =<< mkOptionErrorFunc wrapped - where wrapped = optionErrorFuncWrapper Nothing cb - -type OptionErrorFuncC = - Ptr OptionContext -> - Ptr OptionGroup -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkOptionErrorFunc :: OptionErrorFuncC -> IO (FunPtr OptionErrorFuncC) - -type OptionErrorFunc = - OptionContext -> - OptionGroup -> - Ptr () -> - IO () - -noOptionErrorFunc :: Maybe OptionErrorFunc -noOptionErrorFunc = Nothing - -optionErrorFuncWrapper :: - Maybe (Ptr (FunPtr (OptionErrorFuncC))) -> - OptionErrorFunc -> - Ptr OptionContext -> - Ptr OptionGroup -> - Ptr () -> - IO () -optionErrorFuncWrapper funptrptr _cb context group data_ = do - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - context' <- (\x -> OptionContext <$> newForeignPtr_ x) context - group' <- (newBoxed OptionGroup) group - _cb context' group' data_ - maybeReleaseFunPtr funptrptr - --- callback OptionArgFunc -optionArgFuncClosure :: OptionArgFunc -> IO Closure -optionArgFuncClosure cb = newCClosure =<< mkOptionArgFunc wrapped - where wrapped = optionArgFuncWrapper Nothing cb - -type OptionArgFuncC = - CString -> - CString -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkOptionArgFunc :: OptionArgFuncC -> IO (FunPtr OptionArgFuncC) - -type OptionArgFunc = - T.Text -> - T.Text -> - Ptr () -> - IO Bool - -noOptionArgFunc :: Maybe OptionArgFunc -noOptionArgFunc = Nothing - -optionArgFuncWrapper :: - Maybe (Ptr (FunPtr (OptionArgFuncC))) -> - OptionArgFunc -> - CString -> - CString -> - Ptr () -> - IO CInt -optionArgFuncWrapper funptrptr _cb option_name value data_ = do - option_name' <- cstringToText option_name - value' <- cstringToText value - result <- _cb option_name' value' data_ - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback NodeTraverseFunc -nodeTraverseFuncClosure :: NodeTraverseFunc -> IO Closure -nodeTraverseFuncClosure cb = newCClosure =<< mkNodeTraverseFunc wrapped - where wrapped = nodeTraverseFuncWrapper Nothing cb - -type NodeTraverseFuncC = - Ptr Node -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkNodeTraverseFunc :: NodeTraverseFuncC -> IO (FunPtr NodeTraverseFuncC) - -type NodeTraverseFunc = - Node -> - Ptr () -> - IO Bool - -noNodeTraverseFunc :: Maybe NodeTraverseFunc -noNodeTraverseFunc = Nothing - -nodeTraverseFuncWrapper :: - Maybe (Ptr (FunPtr (NodeTraverseFuncC))) -> - NodeTraverseFunc -> - Ptr Node -> - Ptr () -> - IO CInt -nodeTraverseFuncWrapper funptrptr _cb node data_ = do - node' <- (newPtr 40 Node) node - result <- _cb node' data_ - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback NodeForeachFunc -nodeForeachFuncClosure :: NodeForeachFunc -> IO Closure -nodeForeachFuncClosure cb = newCClosure =<< mkNodeForeachFunc wrapped - where wrapped = nodeForeachFuncWrapper Nothing cb - -type NodeForeachFuncC = - Ptr Node -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkNodeForeachFunc :: NodeForeachFuncC -> IO (FunPtr NodeForeachFuncC) - -type NodeForeachFunc = - Node -> - Ptr () -> - IO () - -noNodeForeachFunc :: Maybe NodeForeachFunc -noNodeForeachFunc = Nothing - -nodeForeachFuncWrapper :: - Maybe (Ptr (FunPtr (NodeForeachFuncC))) -> - NodeForeachFunc -> - Ptr Node -> - Ptr () -> - IO () -nodeForeachFuncWrapper funptrptr _cb node data_ = do - node' <- (newPtr 40 Node) node - _cb node' data_ - maybeReleaseFunPtr funptrptr - --- callback MemVTableFreeFieldCallback -memVTableFreeFieldCallbackClosure :: MemVTableFreeFieldCallback -> IO Closure -memVTableFreeFieldCallbackClosure cb = newCClosure =<< mkMemVTableFreeFieldCallback wrapped - where wrapped = memVTableFreeFieldCallbackWrapper Nothing cb - -type MemVTableFreeFieldCallbackC = - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkMemVTableFreeFieldCallback :: MemVTableFreeFieldCallbackC -> IO (FunPtr MemVTableFreeFieldCallbackC) - -type MemVTableFreeFieldCallback = - Ptr () -> - IO () - -noMemVTableFreeFieldCallback :: Maybe MemVTableFreeFieldCallback -noMemVTableFreeFieldCallback = Nothing - -memVTableFreeFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (MemVTableFreeFieldCallbackC))) -> - MemVTableFreeFieldCallback -> - Ptr () -> - IO () -memVTableFreeFieldCallbackWrapper funptrptr _cb mem = do - _cb mem - maybeReleaseFunPtr funptrptr - --- callback MarkupParserTextFieldCallback -markupParserTextFieldCallbackClosure :: MarkupParserTextFieldCallback -> IO Closure -markupParserTextFieldCallbackClosure cb = newCClosure =<< mkMarkupParserTextFieldCallback wrapped - where wrapped = markupParserTextFieldCallbackWrapper Nothing cb - -type MarkupParserTextFieldCallbackC = - Ptr MarkupParseContext -> - CString -> - Word64 -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkMarkupParserTextFieldCallback :: MarkupParserTextFieldCallbackC -> IO (FunPtr MarkupParserTextFieldCallbackC) - -type MarkupParserTextFieldCallback = - MarkupParseContext -> - T.Text -> - Word64 -> - IO () - -noMarkupParserTextFieldCallback :: Maybe MarkupParserTextFieldCallback -noMarkupParserTextFieldCallback = Nothing - -markupParserTextFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (MarkupParserTextFieldCallbackC))) -> - MarkupParserTextFieldCallback -> - Ptr MarkupParseContext -> - CString -> - Word64 -> - Ptr () -> - IO () -markupParserTextFieldCallbackWrapper funptrptr _cb context text text_len _ = do - context' <- (newBoxed MarkupParseContext) context - text' <- cstringToText text - _cb context' text' text_len - maybeReleaseFunPtr funptrptr - --- callback MarkupParserStartElementFieldCallback -markupParserStartElementFieldCallbackClosure :: MarkupParserStartElementFieldCallback -> IO Closure -markupParserStartElementFieldCallbackClosure cb = newCClosure =<< mkMarkupParserStartElementFieldCallback wrapped - where wrapped = markupParserStartElementFieldCallbackWrapper Nothing cb - -type MarkupParserStartElementFieldCallbackC = - Ptr MarkupParseContext -> - CString -> - CString -> - CString -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkMarkupParserStartElementFieldCallback :: MarkupParserStartElementFieldCallbackC -> IO (FunPtr MarkupParserStartElementFieldCallbackC) - -type MarkupParserStartElementFieldCallback = - MarkupParseContext -> - T.Text -> - T.Text -> - T.Text -> - IO () - -noMarkupParserStartElementFieldCallback :: Maybe MarkupParserStartElementFieldCallback -noMarkupParserStartElementFieldCallback = Nothing - -markupParserStartElementFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (MarkupParserStartElementFieldCallbackC))) -> - MarkupParserStartElementFieldCallback -> - Ptr MarkupParseContext -> - CString -> - CString -> - CString -> - Ptr () -> - IO () -markupParserStartElementFieldCallbackWrapper funptrptr _cb context element_name attribute_names attribute_values _ = do - context' <- (newBoxed MarkupParseContext) context - element_name' <- cstringToText element_name - attribute_names' <- cstringToText attribute_names - attribute_values' <- cstringToText attribute_values - _cb context' element_name' attribute_names' attribute_values' - maybeReleaseFunPtr funptrptr - --- callback MarkupParserPassthroughFieldCallback -markupParserPassthroughFieldCallbackClosure :: MarkupParserPassthroughFieldCallback -> IO Closure -markupParserPassthroughFieldCallbackClosure cb = newCClosure =<< mkMarkupParserPassthroughFieldCallback wrapped - where wrapped = markupParserPassthroughFieldCallbackWrapper Nothing cb - -type MarkupParserPassthroughFieldCallbackC = - Ptr MarkupParseContext -> - CString -> - Word64 -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkMarkupParserPassthroughFieldCallback :: MarkupParserPassthroughFieldCallbackC -> IO (FunPtr MarkupParserPassthroughFieldCallbackC) - -type MarkupParserPassthroughFieldCallback = - MarkupParseContext -> - T.Text -> - Word64 -> - IO () - -noMarkupParserPassthroughFieldCallback :: Maybe MarkupParserPassthroughFieldCallback -noMarkupParserPassthroughFieldCallback = Nothing - -markupParserPassthroughFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (MarkupParserPassthroughFieldCallbackC))) -> - MarkupParserPassthroughFieldCallback -> - Ptr MarkupParseContext -> - CString -> - Word64 -> - Ptr () -> - IO () -markupParserPassthroughFieldCallbackWrapper funptrptr _cb context passthrough_text text_len _ = do - context' <- (newBoxed MarkupParseContext) context - passthrough_text' <- cstringToText passthrough_text - _cb context' passthrough_text' text_len - maybeReleaseFunPtr funptrptr - --- callback MarkupParserErrorFieldCallback -markupParserErrorFieldCallbackClosure :: MarkupParserErrorFieldCallback -> IO Closure -markupParserErrorFieldCallbackClosure cb = newCClosure =<< mkMarkupParserErrorFieldCallback wrapped - where wrapped = markupParserErrorFieldCallbackWrapper Nothing cb - -type MarkupParserErrorFieldCallbackC = - Ptr MarkupParseContext -> - Ptr GError -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkMarkupParserErrorFieldCallback :: MarkupParserErrorFieldCallbackC -> IO (FunPtr MarkupParserErrorFieldCallbackC) - -type MarkupParserErrorFieldCallback = - MarkupParseContext -> - GError -> - IO () - -noMarkupParserErrorFieldCallback :: Maybe MarkupParserErrorFieldCallback -noMarkupParserErrorFieldCallback = Nothing - -markupParserErrorFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (MarkupParserErrorFieldCallbackC))) -> - MarkupParserErrorFieldCallback -> - Ptr MarkupParseContext -> - Ptr GError -> - Ptr () -> - IO () -markupParserErrorFieldCallbackWrapper funptrptr _cb context error_ _ = do - context' <- (newBoxed MarkupParseContext) context - error_' <- (newBoxed GError) error_ - _cb context' error_' - maybeReleaseFunPtr funptrptr - --- callback MarkupParserEndElementFieldCallback -markupParserEndElementFieldCallbackClosure :: MarkupParserEndElementFieldCallback -> IO Closure -markupParserEndElementFieldCallbackClosure cb = newCClosure =<< mkMarkupParserEndElementFieldCallback wrapped - where wrapped = markupParserEndElementFieldCallbackWrapper Nothing cb - -type MarkupParserEndElementFieldCallbackC = - Ptr MarkupParseContext -> - CString -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkMarkupParserEndElementFieldCallback :: MarkupParserEndElementFieldCallbackC -> IO (FunPtr MarkupParserEndElementFieldCallbackC) - -type MarkupParserEndElementFieldCallback = - MarkupParseContext -> - T.Text -> - IO () - -noMarkupParserEndElementFieldCallback :: Maybe MarkupParserEndElementFieldCallback -noMarkupParserEndElementFieldCallback = Nothing - -markupParserEndElementFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (MarkupParserEndElementFieldCallbackC))) -> - MarkupParserEndElementFieldCallback -> - Ptr MarkupParseContext -> - CString -> - Ptr () -> - IO () -markupParserEndElementFieldCallbackWrapper funptrptr _cb context element_name _ = do - context' <- (newBoxed MarkupParseContext) context - element_name' <- cstringToText element_name - _cb context' element_name' - maybeReleaseFunPtr funptrptr - --- callback LogFunc -logFuncClosure :: LogFunc -> IO Closure -logFuncClosure cb = newCClosure =<< mkLogFunc wrapped - where wrapped = logFuncWrapper Nothing cb - -type LogFuncC = - CString -> - CUInt -> - CString -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkLogFunc :: LogFuncC -> IO (FunPtr LogFuncC) - -type LogFunc = - T.Text -> - [LogLevelFlags] -> - T.Text -> - IO () - -noLogFunc :: Maybe LogFunc -noLogFunc = Nothing - -logFuncWrapper :: - Maybe (Ptr (FunPtr (LogFuncC))) -> - LogFunc -> - CString -> - CUInt -> - CString -> - Ptr () -> - IO () -logFuncWrapper funptrptr _cb log_domain log_level message _ = do - log_domain' <- cstringToText log_domain - let log_level' = wordToGFlags log_level - message' <- cstringToText message - _cb log_domain' log_level' message' - maybeReleaseFunPtr funptrptr - --- callback IOFuncsIoWriteFieldCallback -iOFuncsIoWriteFieldCallbackClosure :: IOFuncsIoWriteFieldCallback -> IO Closure -iOFuncsIoWriteFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoWriteFieldCallback wrapped - where wrapped = iOFuncsIoWriteFieldCallbackWrapper Nothing cb - -type IOFuncsIoWriteFieldCallbackC = - Ptr IOChannel -> - CString -> - Word64 -> - Word64 -> - IO CUInt - -foreign import ccall "wrapper" - mkIOFuncsIoWriteFieldCallback :: IOFuncsIoWriteFieldCallbackC -> IO (FunPtr IOFuncsIoWriteFieldCallbackC) - -type IOFuncsIoWriteFieldCallback = - IOChannel -> - T.Text -> - Word64 -> - Word64 -> - IO IOStatus - -noIOFuncsIoWriteFieldCallback :: Maybe IOFuncsIoWriteFieldCallback -noIOFuncsIoWriteFieldCallback = Nothing - -iOFuncsIoWriteFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (IOFuncsIoWriteFieldCallbackC))) -> - IOFuncsIoWriteFieldCallback -> - Ptr IOChannel -> - CString -> - Word64 -> - Word64 -> - IO CUInt -iOFuncsIoWriteFieldCallbackWrapper funptrptr _cb channel buf count bytes_written = do - channel' <- (newBoxed IOChannel) channel - buf' <- cstringToText buf - result <- _cb channel' buf' count bytes_written - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback IOFuncsIoSetFlagsFieldCallback -iOFuncsIoSetFlagsFieldCallbackClosure :: IOFuncsIoSetFlagsFieldCallback -> IO Closure -iOFuncsIoSetFlagsFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoSetFlagsFieldCallback wrapped - where wrapped = iOFuncsIoSetFlagsFieldCallbackWrapper Nothing cb - -type IOFuncsIoSetFlagsFieldCallbackC = - Ptr IOChannel -> - CUInt -> - IO CUInt - -foreign import ccall "wrapper" - mkIOFuncsIoSetFlagsFieldCallback :: IOFuncsIoSetFlagsFieldCallbackC -> IO (FunPtr IOFuncsIoSetFlagsFieldCallbackC) - -type IOFuncsIoSetFlagsFieldCallback = - IOChannel -> - [IOFlags] -> - IO IOStatus - -noIOFuncsIoSetFlagsFieldCallback :: Maybe IOFuncsIoSetFlagsFieldCallback -noIOFuncsIoSetFlagsFieldCallback = Nothing - -iOFuncsIoSetFlagsFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (IOFuncsIoSetFlagsFieldCallbackC))) -> - IOFuncsIoSetFlagsFieldCallback -> - Ptr IOChannel -> - CUInt -> - IO CUInt -iOFuncsIoSetFlagsFieldCallbackWrapper funptrptr _cb channel flags = do - channel' <- (newBoxed IOChannel) channel - let flags' = wordToGFlags flags - result <- _cb channel' flags' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback IOFuncsIoSeekFieldCallback -iOFuncsIoSeekFieldCallbackClosure :: IOFuncsIoSeekFieldCallback -> IO Closure -iOFuncsIoSeekFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoSeekFieldCallback wrapped - where wrapped = iOFuncsIoSeekFieldCallbackWrapper Nothing cb - -type IOFuncsIoSeekFieldCallbackC = - Ptr IOChannel -> - Int64 -> - CUInt -> - IO CUInt - -foreign import ccall "wrapper" - mkIOFuncsIoSeekFieldCallback :: IOFuncsIoSeekFieldCallbackC -> IO (FunPtr IOFuncsIoSeekFieldCallbackC) - -type IOFuncsIoSeekFieldCallback = - IOChannel -> - Int64 -> - SeekType -> - IO IOStatus - -noIOFuncsIoSeekFieldCallback :: Maybe IOFuncsIoSeekFieldCallback -noIOFuncsIoSeekFieldCallback = Nothing - -iOFuncsIoSeekFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (IOFuncsIoSeekFieldCallbackC))) -> - IOFuncsIoSeekFieldCallback -> - Ptr IOChannel -> - Int64 -> - CUInt -> - IO CUInt -iOFuncsIoSeekFieldCallbackWrapper funptrptr _cb channel offset type_ = do - channel' <- (newBoxed IOChannel) channel - let type_' = (toEnum . fromIntegral) type_ - result <- _cb channel' offset type_' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback IOFuncsIoReadFieldCallback -iOFuncsIoReadFieldCallbackClosure :: IOFuncsIoReadFieldCallback -> IO Closure -iOFuncsIoReadFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoReadFieldCallback wrapped - where wrapped = iOFuncsIoReadFieldCallbackWrapper Nothing cb - -type IOFuncsIoReadFieldCallbackC = - Ptr IOChannel -> - CString -> - Word64 -> - Word64 -> - IO CUInt - -foreign import ccall "wrapper" - mkIOFuncsIoReadFieldCallback :: IOFuncsIoReadFieldCallbackC -> IO (FunPtr IOFuncsIoReadFieldCallbackC) - -type IOFuncsIoReadFieldCallback = - IOChannel -> - T.Text -> - Word64 -> - Word64 -> - IO IOStatus - -noIOFuncsIoReadFieldCallback :: Maybe IOFuncsIoReadFieldCallback -noIOFuncsIoReadFieldCallback = Nothing - -iOFuncsIoReadFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (IOFuncsIoReadFieldCallbackC))) -> - IOFuncsIoReadFieldCallback -> - Ptr IOChannel -> - CString -> - Word64 -> - Word64 -> - IO CUInt -iOFuncsIoReadFieldCallbackWrapper funptrptr _cb channel buf count bytes_read = do - channel' <- (newBoxed IOChannel) channel - buf' <- cstringToText buf - result <- _cb channel' buf' count bytes_read - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback IOFuncsIoGetFlagsFieldCallback -iOFuncsIoGetFlagsFieldCallbackClosure :: IOFuncsIoGetFlagsFieldCallback -> IO Closure -iOFuncsIoGetFlagsFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoGetFlagsFieldCallback wrapped - where wrapped = iOFuncsIoGetFlagsFieldCallbackWrapper Nothing cb - -type IOFuncsIoGetFlagsFieldCallbackC = - Ptr IOChannel -> - IO CUInt - -foreign import ccall "wrapper" - mkIOFuncsIoGetFlagsFieldCallback :: IOFuncsIoGetFlagsFieldCallbackC -> IO (FunPtr IOFuncsIoGetFlagsFieldCallbackC) - -type IOFuncsIoGetFlagsFieldCallback = - IOChannel -> - IO [IOFlags] - -noIOFuncsIoGetFlagsFieldCallback :: Maybe IOFuncsIoGetFlagsFieldCallback -noIOFuncsIoGetFlagsFieldCallback = Nothing - -iOFuncsIoGetFlagsFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (IOFuncsIoGetFlagsFieldCallbackC))) -> - IOFuncsIoGetFlagsFieldCallback -> - Ptr IOChannel -> - IO CUInt -iOFuncsIoGetFlagsFieldCallbackWrapper funptrptr _cb channel = do - channel' <- (newBoxed IOChannel) channel - result <- _cb channel' - maybeReleaseFunPtr funptrptr - let result' = gflagsToWord result - return result' - --- callback IOFuncsIoFreeFieldCallback -iOFuncsIoFreeFieldCallbackClosure :: IOFuncsIoFreeFieldCallback -> IO Closure -iOFuncsIoFreeFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoFreeFieldCallback wrapped - where wrapped = iOFuncsIoFreeFieldCallbackWrapper Nothing cb - -type IOFuncsIoFreeFieldCallbackC = - Ptr IOChannel -> - IO () - -foreign import ccall "wrapper" - mkIOFuncsIoFreeFieldCallback :: IOFuncsIoFreeFieldCallbackC -> IO (FunPtr IOFuncsIoFreeFieldCallbackC) - -type IOFuncsIoFreeFieldCallback = - IOChannel -> - IO () - -noIOFuncsIoFreeFieldCallback :: Maybe IOFuncsIoFreeFieldCallback -noIOFuncsIoFreeFieldCallback = Nothing - -iOFuncsIoFreeFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (IOFuncsIoFreeFieldCallbackC))) -> - IOFuncsIoFreeFieldCallback -> - Ptr IOChannel -> - IO () -iOFuncsIoFreeFieldCallbackWrapper funptrptr _cb channel = do - channel' <- (newBoxed IOChannel) channel - _cb channel' - maybeReleaseFunPtr funptrptr - --- callback IOFuncsIoCreateWatchFieldCallback -iOFuncsIoCreateWatchFieldCallbackClosure :: IOFuncsIoCreateWatchFieldCallback -> IO Closure -iOFuncsIoCreateWatchFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoCreateWatchFieldCallback wrapped - where wrapped = iOFuncsIoCreateWatchFieldCallbackWrapper Nothing cb - -type IOFuncsIoCreateWatchFieldCallbackC = - Ptr IOChannel -> - CUInt -> - IO (Ptr Source) - -foreign import ccall "wrapper" - mkIOFuncsIoCreateWatchFieldCallback :: IOFuncsIoCreateWatchFieldCallbackC -> IO (FunPtr IOFuncsIoCreateWatchFieldCallbackC) - -type IOFuncsIoCreateWatchFieldCallback = - IOChannel -> - [IOCondition] -> - IO Source - -noIOFuncsIoCreateWatchFieldCallback :: Maybe IOFuncsIoCreateWatchFieldCallback -noIOFuncsIoCreateWatchFieldCallback = Nothing - -iOFuncsIoCreateWatchFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (IOFuncsIoCreateWatchFieldCallbackC))) -> - IOFuncsIoCreateWatchFieldCallback -> - Ptr IOChannel -> - CUInt -> - IO (Ptr Source) -iOFuncsIoCreateWatchFieldCallbackWrapper funptrptr _cb channel condition = do - channel' <- (newBoxed IOChannel) channel - let condition' = wordToGFlags condition - result <- _cb channel' condition' - maybeReleaseFunPtr funptrptr - result' <- copyBoxed result - return result' - --- callback IOFuncsIoCloseFieldCallback -iOFuncsIoCloseFieldCallbackClosure :: IOFuncsIoCloseFieldCallback -> IO Closure -iOFuncsIoCloseFieldCallbackClosure cb = newCClosure =<< mkIOFuncsIoCloseFieldCallback wrapped - where wrapped = iOFuncsIoCloseFieldCallbackWrapper Nothing cb - -type IOFuncsIoCloseFieldCallbackC = - Ptr IOChannel -> - IO CUInt - -foreign import ccall "wrapper" - mkIOFuncsIoCloseFieldCallback :: IOFuncsIoCloseFieldCallbackC -> IO (FunPtr IOFuncsIoCloseFieldCallbackC) - -type IOFuncsIoCloseFieldCallback = - IOChannel -> - IO IOStatus - -noIOFuncsIoCloseFieldCallback :: Maybe IOFuncsIoCloseFieldCallback -noIOFuncsIoCloseFieldCallback = Nothing - -iOFuncsIoCloseFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (IOFuncsIoCloseFieldCallbackC))) -> - IOFuncsIoCloseFieldCallback -> - Ptr IOChannel -> - IO CUInt -iOFuncsIoCloseFieldCallbackWrapper funptrptr _cb channel = do - channel' <- (newBoxed IOChannel) channel - result <- _cb channel' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback IOFunc -iOFuncClosure :: IOFunc -> IO Closure -iOFuncClosure cb = newCClosure =<< mkIOFunc wrapped - where wrapped = iOFuncWrapper Nothing cb - -type IOFuncC = - Ptr IOChannel -> - CUInt -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkIOFunc :: IOFuncC -> IO (FunPtr IOFuncC) - -type IOFunc = - IOChannel -> - [IOCondition] -> - Ptr () -> - IO Bool - -noIOFunc :: Maybe IOFunc -noIOFunc = Nothing - -iOFuncWrapper :: - Maybe (Ptr (FunPtr (IOFuncC))) -> - IOFunc -> - Ptr IOChannel -> - CUInt -> - Ptr () -> - IO CInt -iOFuncWrapper funptrptr _cb source condition data_ = do - source' <- (newBoxed IOChannel) source - let condition' = wordToGFlags condition - result <- _cb source' condition' data_ - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback HookMarshaller -hookMarshallerClosure :: HookMarshaller -> IO Closure -hookMarshallerClosure cb = newCClosure =<< mkHookMarshaller wrapped - where wrapped = hookMarshallerWrapper Nothing cb - -type HookMarshallerC = - Ptr Hook -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkHookMarshaller :: HookMarshallerC -> IO (FunPtr HookMarshallerC) - -type HookMarshaller = - Hook -> - Ptr () -> - IO () - -noHookMarshaller :: Maybe HookMarshaller -noHookMarshaller = Nothing - -hookMarshallerWrapper :: - Maybe (Ptr (FunPtr (HookMarshallerC))) -> - HookMarshaller -> - Ptr Hook -> - Ptr () -> - IO () -hookMarshallerWrapper funptrptr _cb hook marshal_data = do - hook' <- (newPtr 64 Hook) hook - _cb hook' marshal_data - maybeReleaseFunPtr funptrptr - --- callback HookFunc -hookFuncClosure :: HookFunc -> IO Closure -hookFuncClosure cb = newCClosure =<< mkHookFunc wrapped - where wrapped = hookFuncWrapper Nothing cb - -type HookFuncC = - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkHookFunc :: HookFuncC -> IO (FunPtr HookFuncC) - -type HookFunc = - Ptr () -> - IO () - -noHookFunc :: Maybe HookFunc -noHookFunc = Nothing - -hookFuncWrapper :: - Maybe (Ptr (FunPtr (HookFuncC))) -> - HookFunc -> - Ptr () -> - IO () -hookFuncWrapper funptrptr _cb data_ = do - _cb data_ - maybeReleaseFunPtr funptrptr - --- callback HookFindFunc -hookFindFuncClosure :: HookFindFunc -> IO Closure -hookFindFuncClosure cb = newCClosure =<< mkHookFindFunc wrapped - where wrapped = hookFindFuncWrapper Nothing cb - -type HookFindFuncC = - Ptr Hook -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkHookFindFunc :: HookFindFuncC -> IO (FunPtr HookFindFuncC) - -type HookFindFunc = - Hook -> - Ptr () -> - IO Bool - -noHookFindFunc :: Maybe HookFindFunc -noHookFindFunc = Nothing - -hookFindFuncWrapper :: - Maybe (Ptr (FunPtr (HookFindFuncC))) -> - HookFindFunc -> - Ptr Hook -> - Ptr () -> - IO CInt -hookFindFuncWrapper funptrptr _cb hook data_ = do - hook' <- (newPtr 64 Hook) hook - result <- _cb hook' data_ - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback HookFinalizeFunc -hookFinalizeFuncClosure :: HookFinalizeFunc -> IO Closure -hookFinalizeFuncClosure cb = newCClosure =<< mkHookFinalizeFunc wrapped - where wrapped = hookFinalizeFuncWrapper Nothing cb - -type HookFinalizeFuncC = - Ptr HookList -> - Ptr Hook -> - IO () - -foreign import ccall "wrapper" - mkHookFinalizeFunc :: HookFinalizeFuncC -> IO (FunPtr HookFinalizeFuncC) - -type HookFinalizeFunc = - HookList -> - Hook -> - IO () - -noHookFinalizeFunc :: Maybe HookFinalizeFunc -noHookFinalizeFunc = Nothing - -hookFinalizeFuncWrapper :: - Maybe (Ptr (FunPtr (HookFinalizeFuncC))) -> - HookFinalizeFunc -> - Ptr HookList -> - Ptr Hook -> - IO () -hookFinalizeFuncWrapper funptrptr _cb hook_list hook = do - hook_list' <- (newPtr 56 HookList) hook_list - hook' <- (newPtr 64 Hook) hook - _cb hook_list' hook' - maybeReleaseFunPtr funptrptr - --- callback HookCompareFunc -hookCompareFuncClosure :: HookCompareFunc -> IO Closure -hookCompareFuncClosure cb = newCClosure =<< mkHookCompareFunc wrapped - where wrapped = hookCompareFuncWrapper Nothing cb - -type HookCompareFuncC = - Ptr Hook -> - Ptr Hook -> - IO Int32 - -foreign import ccall "wrapper" - mkHookCompareFunc :: HookCompareFuncC -> IO (FunPtr HookCompareFuncC) - -type HookCompareFunc = - Hook -> - Hook -> - IO Int32 - -noHookCompareFunc :: Maybe HookCompareFunc -noHookCompareFunc = Nothing - -hookCompareFuncWrapper :: - Maybe (Ptr (FunPtr (HookCompareFuncC))) -> - HookCompareFunc -> - Ptr Hook -> - Ptr Hook -> - IO Int32 -hookCompareFuncWrapper funptrptr _cb new_hook sibling = do - new_hook' <- (newPtr 64 Hook) new_hook - sibling' <- (newPtr 64 Hook) sibling - result <- _cb new_hook' sibling' - maybeReleaseFunPtr funptrptr - return result - --- callback HookCheckMarshaller -hookCheckMarshallerClosure :: HookCheckMarshaller -> IO Closure -hookCheckMarshallerClosure cb = newCClosure =<< mkHookCheckMarshaller wrapped - where wrapped = hookCheckMarshallerWrapper Nothing cb - -type HookCheckMarshallerC = - Ptr Hook -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkHookCheckMarshaller :: HookCheckMarshallerC -> IO (FunPtr HookCheckMarshallerC) - -type HookCheckMarshaller = - Hook -> - Ptr () -> - IO Bool - -noHookCheckMarshaller :: Maybe HookCheckMarshaller -noHookCheckMarshaller = Nothing - -hookCheckMarshallerWrapper :: - Maybe (Ptr (FunPtr (HookCheckMarshallerC))) -> - HookCheckMarshaller -> - Ptr Hook -> - Ptr () -> - IO CInt -hookCheckMarshallerWrapper funptrptr _cb hook marshal_data = do - hook' <- (newPtr 64 Hook) hook - result <- _cb hook' marshal_data - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback HookCheckFunc -hookCheckFuncClosure :: HookCheckFunc -> IO Closure -hookCheckFuncClosure cb = newCClosure =<< mkHookCheckFunc wrapped - where wrapped = hookCheckFuncWrapper Nothing cb - -type HookCheckFuncC = - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkHookCheckFunc :: HookCheckFuncC -> IO (FunPtr HookCheckFuncC) - -type HookCheckFunc = - Ptr () -> - IO Bool - -noHookCheckFunc :: Maybe HookCheckFunc -noHookCheckFunc = Nothing - -hookCheckFuncWrapper :: - Maybe (Ptr (FunPtr (HookCheckFuncC))) -> - HookCheckFunc -> - Ptr () -> - IO CInt -hookCheckFuncWrapper funptrptr _cb data_ = do - result <- _cb data_ - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback HashFunc -hashFuncClosure :: HashFunc -> IO Closure -hashFuncClosure cb = newCClosure =<< mkHashFunc wrapped - where wrapped = hashFuncWrapper Nothing cb - -type HashFuncC = - Ptr () -> - IO Word32 - -foreign import ccall "wrapper" - mkHashFunc :: HashFuncC -> IO (FunPtr HashFuncC) - -type HashFunc = - Ptr () -> - IO Word32 - -noHashFunc :: Maybe HashFunc -noHashFunc = Nothing - -hashFuncWrapper :: - Maybe (Ptr (FunPtr (HashFuncC))) -> - HashFunc -> - Ptr () -> - IO Word32 -hashFuncWrapper funptrptr _cb key = do - result <- _cb key - maybeReleaseFunPtr funptrptr - return result - --- callback HRFunc -hRFuncClosure :: HRFunc -> IO Closure -hRFuncClosure cb = newCClosure =<< mkHRFunc wrapped - where wrapped = hRFuncWrapper Nothing cb - -type HRFuncC = - Ptr () -> - Ptr () -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkHRFunc :: HRFuncC -> IO (FunPtr HRFuncC) - -type HRFunc = - Ptr () -> - Ptr () -> - IO Bool - -noHRFunc :: Maybe HRFunc -noHRFunc = Nothing - -hRFuncWrapper :: - Maybe (Ptr (FunPtr (HRFuncC))) -> - HRFunc -> - Ptr () -> - Ptr () -> - Ptr () -> - IO CInt -hRFuncWrapper funptrptr _cb key value _ = do - result <- _cb key value - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback HFunc -hFuncClosure :: HFunc -> IO Closure -hFuncClosure cb = newCClosure =<< mkHFunc wrapped - where wrapped = hFuncWrapper Nothing cb - -type HFuncC = - Ptr () -> - Ptr () -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkHFunc :: HFuncC -> IO (FunPtr HFuncC) - -type HFunc = - Ptr () -> - Ptr () -> - IO () - -noHFunc :: Maybe HFunc -noHFunc = Nothing - -hFuncWrapper :: - Maybe (Ptr (FunPtr (HFuncC))) -> - HFunc -> - Ptr () -> - Ptr () -> - Ptr () -> - IO () -hFuncWrapper funptrptr _cb key value _ = do - _cb key value - maybeReleaseFunPtr funptrptr - --- callback Func -funcClosure :: Func -> IO Closure -funcClosure cb = newCClosure =<< mkFunc wrapped - where wrapped = funcWrapper Nothing cb - -type FuncC = - Ptr () -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkFunc :: FuncC -> IO (FunPtr FuncC) - -type Func = - Ptr () -> - IO () - -noFunc :: Maybe Func -noFunc = Nothing - -funcWrapper :: - Maybe (Ptr (FunPtr (FuncC))) -> - Func -> - Ptr () -> - Ptr () -> - IO () -funcWrapper funptrptr _cb data_ _ = do - _cb data_ - maybeReleaseFunPtr funptrptr - --- callback FreeFunc -freeFuncClosure :: FreeFunc -> IO Closure -freeFuncClosure cb = newCClosure =<< mkFreeFunc wrapped - where wrapped = freeFuncWrapper Nothing cb - -type FreeFuncC = - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkFreeFunc :: FreeFuncC -> IO (FunPtr FreeFuncC) - -type FreeFunc = - Ptr () -> - IO () - -noFreeFunc :: Maybe FreeFunc -noFreeFunc = Nothing - -freeFuncWrapper :: - Maybe (Ptr (FunPtr (FreeFuncC))) -> - FreeFunc -> - Ptr () -> - IO () -freeFuncWrapper funptrptr _cb data_ = do - _cb data_ - maybeReleaseFunPtr funptrptr - --- callback EqualFunc -equalFuncClosure :: EqualFunc -> IO Closure -equalFuncClosure cb = newCClosure =<< mkEqualFunc wrapped - where wrapped = equalFuncWrapper Nothing cb - -type EqualFuncC = - Ptr () -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkEqualFunc :: EqualFuncC -> IO (FunPtr EqualFuncC) - -type EqualFunc = - Ptr () -> - Ptr () -> - IO Bool - -noEqualFunc :: Maybe EqualFunc -noEqualFunc = Nothing - -equalFuncWrapper :: - Maybe (Ptr (FunPtr (EqualFuncC))) -> - EqualFunc -> - Ptr () -> - Ptr () -> - IO CInt -equalFuncWrapper funptrptr _cb a b = do - result <- _cb a b - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback DestroyNotify -destroyNotifyClosure :: DestroyNotify -> IO Closure -destroyNotifyClosure cb = newCClosure =<< mkDestroyNotify wrapped - where wrapped = destroyNotifyWrapper Nothing cb - -type DestroyNotifyC = - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkDestroyNotify :: DestroyNotifyC -> IO (FunPtr DestroyNotifyC) - -type DestroyNotify = - Ptr () -> - IO () - -noDestroyNotify :: Maybe DestroyNotify -noDestroyNotify = Nothing - -destroyNotifyWrapper :: - Maybe (Ptr (FunPtr (DestroyNotifyC))) -> - DestroyNotify -> - Ptr () -> - IO () -destroyNotifyWrapper funptrptr _cb data_ = do - _cb data_ - maybeReleaseFunPtr funptrptr - --- callback DataForeachFunc -dataForeachFuncClosure :: DataForeachFunc -> IO Closure -dataForeachFuncClosure cb = newCClosure =<< mkDataForeachFunc wrapped - where wrapped = dataForeachFuncWrapper Nothing cb - -type DataForeachFuncC = - Word32 -> - Ptr () -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkDataForeachFunc :: DataForeachFuncC -> IO (FunPtr DataForeachFuncC) - -type DataForeachFunc = - Word32 -> - Ptr () -> - IO () - -noDataForeachFunc :: Maybe DataForeachFunc -noDataForeachFunc = Nothing - -dataForeachFuncWrapper :: - Maybe (Ptr (FunPtr (DataForeachFuncC))) -> - DataForeachFunc -> - Word32 -> - Ptr () -> - Ptr () -> - IO () -dataForeachFuncWrapper funptrptr _cb key_id data_ _ = do - _cb key_id data_ - maybeReleaseFunPtr funptrptr - --- callback CompareFunc -compareFuncClosure :: CompareFunc -> IO Closure -compareFuncClosure cb = newCClosure =<< mkCompareFunc wrapped - where wrapped = compareFuncWrapper Nothing cb - -type CompareFuncC = - Ptr () -> - Ptr () -> - IO Int32 - -foreign import ccall "wrapper" - mkCompareFunc :: CompareFuncC -> IO (FunPtr CompareFuncC) - -type CompareFunc = - Ptr () -> - Ptr () -> - IO Int32 - -noCompareFunc :: Maybe CompareFunc -noCompareFunc = Nothing - -compareFuncWrapper :: - Maybe (Ptr (FunPtr (CompareFuncC))) -> - CompareFunc -> - Ptr () -> - Ptr () -> - IO Int32 -compareFuncWrapper funptrptr _cb a b = do - result <- _cb a b - maybeReleaseFunPtr funptrptr - return result - --- callback CompareDataFunc -compareDataFuncClosure :: CompareDataFunc -> IO Closure -compareDataFuncClosure cb = newCClosure =<< mkCompareDataFunc wrapped - where wrapped = compareDataFuncWrapper Nothing cb - -type CompareDataFuncC = - Ptr () -> - Ptr () -> - Ptr () -> - IO Int32 - -foreign import ccall "wrapper" - mkCompareDataFunc :: CompareDataFuncC -> IO (FunPtr CompareDataFuncC) - -type CompareDataFunc = - Ptr () -> - Ptr () -> - IO Int32 - -noCompareDataFunc :: Maybe CompareDataFunc -noCompareDataFunc = Nothing - -compareDataFuncWrapper :: - Maybe (Ptr (FunPtr (CompareDataFuncC))) -> - CompareDataFunc -> - Ptr () -> - Ptr () -> - Ptr () -> - IO Int32 -compareDataFuncWrapper funptrptr _cb a b _ = do - result <- _cb a b - maybeReleaseFunPtr funptrptr - return result - --- callback ChildWatchFunc -childWatchFuncClosure :: ChildWatchFunc -> IO Closure -childWatchFuncClosure cb = newCClosure =<< mkChildWatchFunc wrapped - where wrapped = childWatchFuncWrapper Nothing cb - -type ChildWatchFuncC = - Int32 -> - Int32 -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkChildWatchFunc :: ChildWatchFuncC -> IO (FunPtr ChildWatchFuncC) - -type ChildWatchFunc = - Int32 -> - Int32 -> - IO () - -noChildWatchFunc :: Maybe ChildWatchFunc -noChildWatchFunc = Nothing - -childWatchFuncWrapper :: - Maybe (Ptr (FunPtr (ChildWatchFuncC))) -> - ChildWatchFunc -> - Int32 -> - Int32 -> - Ptr () -> - IO () -childWatchFuncWrapper funptrptr _cb pid status _ = do - _cb pid status - maybeReleaseFunPtr funptrptr - - diff --git a/GI/GLib/Constants.hs b/GI/GLib/Constants.hs deleted file mode 100644 --- a/GI/GLib/Constants.hs +++ /dev/null @@ -1,544 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-} - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.GLib.Constants - ( - pattern WIN32_MSG_HANDLE , - pattern VERSION_MIN_REQUIRED , - pattern VA_COPY_AS_ARRAY , - pattern USEC_PER_SEC , - pattern URI_RESERVED_CHARS_SUBCOMPONENT_DELIMITERS, - pattern URI_RESERVED_CHARS_GENERIC_DELIMITERS, - pattern UNICHAR_MAX_DECOMPOSITION_LENGTH, - pattern TIME_SPAN_SECOND , - pattern TIME_SPAN_MINUTE , - pattern TIME_SPAN_MILLISECOND , - pattern TIME_SPAN_HOUR , - pattern TIME_SPAN_DAY , - pattern SYSDEF_MSG_PEEK , - pattern SYSDEF_MSG_OOB , - pattern SYSDEF_MSG_DONTROUTE , - pattern SYSDEF_AF_UNIX , - pattern SYSDEF_AF_INET6 , - pattern SYSDEF_AF_INET , - pattern STR_DELIMITERS , - pattern SQRT2 , - pattern SOURCE_REMOVE , - pattern SOURCE_CONTINUE , - pattern SIZEOF_VOID_P , - pattern SIZEOF_SSIZE_T , - pattern SIZEOF_SIZE_T , - pattern SIZEOF_LONG , - pattern SEARCHPATH_SEPARATOR_S , - pattern SEARCHPATH_SEPARATOR , - pattern PRIORITY_LOW , - pattern PRIORITY_HIGH_IDLE , - pattern PRIORITY_HIGH , - pattern PRIORITY_DEFAULT_IDLE , - pattern PRIORITY_DEFAULT , - pattern POLLFD_FORMAT , - pattern PI_4 , - pattern PI_2 , - pattern PI , - pattern PDP_ENDIAN , - pattern OPTION_REMAINING , - pattern MODULE_SUFFIX , - pattern MINOR_VERSION , - pattern MININT8 , - pattern MININT64 , - pattern MININT32 , - pattern MININT16 , - pattern MICRO_VERSION , - pattern MAXUINT8 , - pattern MAXUINT64 , - pattern MAXUINT32 , - pattern MAXUINT16 , - pattern MAXINT8 , - pattern MAXINT64 , - pattern MAXINT32 , - pattern MAXINT16 , - pattern MAJOR_VERSION , - pattern LOG_LEVEL_USER_SHIFT , - pattern LOG_FATAL_MASK , - pattern LOG_DOMAIN , - pattern LOG_2_BASE_10 , - pattern LN2 , - pattern LN10 , - pattern LITTLE_ENDIAN , - pattern KEY_FILE_DESKTOP_TYPE_LINK , - pattern KEY_FILE_DESKTOP_TYPE_DIRECTORY , - pattern KEY_FILE_DESKTOP_TYPE_APPLICATION, - pattern KEY_FILE_DESKTOP_KEY_VERSION , - pattern KEY_FILE_DESKTOP_KEY_URL , - pattern KEY_FILE_DESKTOP_KEY_TYPE , - pattern KEY_FILE_DESKTOP_KEY_TRY_EXEC , - pattern KEY_FILE_DESKTOP_KEY_TERMINAL , - pattern KEY_FILE_DESKTOP_KEY_STARTUP_WM_CLASS, - pattern KEY_FILE_DESKTOP_KEY_STARTUP_NOTIFY, - pattern KEY_FILE_DESKTOP_KEY_PATH , - pattern KEY_FILE_DESKTOP_KEY_ONLY_SHOW_IN, - pattern KEY_FILE_DESKTOP_KEY_NO_DISPLAY , - pattern KEY_FILE_DESKTOP_KEY_NOT_SHOW_IN, - pattern KEY_FILE_DESKTOP_KEY_NAME , - pattern KEY_FILE_DESKTOP_KEY_MIME_TYPE , - pattern KEY_FILE_DESKTOP_KEY_ICON , - pattern KEY_FILE_DESKTOP_KEY_HIDDEN , - pattern KEY_FILE_DESKTOP_KEY_GENERIC_NAME, - pattern KEY_FILE_DESKTOP_KEY_EXEC , - pattern KEY_FILE_DESKTOP_KEY_DBUS_ACTIVATABLE, - pattern KEY_FILE_DESKTOP_KEY_COMMENT , - pattern KEY_FILE_DESKTOP_KEY_CATEGORIES , - pattern KEY_FILE_DESKTOP_KEY_ACTIONS , - pattern KEY_FILE_DESKTOP_GROUP , - pattern IEEE754_FLOAT_BIAS , - pattern IEEE754_DOUBLE_BIAS , - pattern HOOK_FLAG_USER_SHIFT , - pattern HAVE___INLINE__ , - pattern HAVE___INLINE , - pattern HAVE_ISO_VARARGS , - pattern HAVE_INLINE , - pattern HAVE_GROWING_STACK , - pattern HAVE_GNUC_VISIBILITY , - pattern HAVE_GNUC_VARARGS , - pattern HAVE_GINT64 , - pattern GUINTPTR_FORMAT , - pattern GUINT64_FORMAT , - pattern GUINT32_FORMAT , - pattern GUINT16_FORMAT , - pattern GSSIZE_MODIFIER , - pattern GSSIZE_FORMAT , - pattern GSIZE_MODIFIER , - pattern GSIZE_FORMAT , - pattern GNUC_PRETTY_FUNCTION , - pattern GNUC_FUNCTION , - pattern GINTPTR_MODIFIER , - pattern GINTPTR_FORMAT , - pattern GINT64_MODIFIER , - pattern GINT64_FORMAT , - pattern GINT32_MODIFIER , - pattern GINT32_FORMAT , - pattern GINT16_MODIFIER , - pattern GINT16_FORMAT , - pattern E , - pattern DIR_SEPARATOR_S , - pattern DIR_SEPARATOR , - pattern DATE_BAD_YEAR , - pattern DATE_BAD_JULIAN , - pattern DATE_BAD_DAY , - pattern DATALIST_FLAGS_MASK , - pattern CSET_a_2_z , - pattern CSET_DIGITS , - pattern CSET_A_2_Z , - pattern CAN_INLINE , - pattern BIG_ENDIAN , - pattern ASCII_DTOSTR_BUF_SIZE , - pattern ANALYZER_ANALYZING , - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - - -pattern WIN32_MSG_HANDLE = 19981206 :: Int32 - - -pattern VERSION_MIN_REQUIRED = 2 :: Int32 - - -pattern VA_COPY_AS_ARRAY = 1 :: Int32 - - -pattern USEC_PER_SEC = 1000000 :: Int32 - - -pattern URI_RESERVED_CHARS_SUBCOMPONENT_DELIMITERS = "!$&'()*+,;=" :: T.Text - - -pattern URI_RESERVED_CHARS_GENERIC_DELIMITERS = ":/?#[]@" :: T.Text - - -pattern UNICHAR_MAX_DECOMPOSITION_LENGTH = 18 :: Int32 - - -pattern TIME_SPAN_SECOND = 1000000 :: Int64 - - -pattern TIME_SPAN_MINUTE = 60000000 :: Int64 - - -pattern TIME_SPAN_MILLISECOND = 1000 :: Int64 - - -pattern TIME_SPAN_HOUR = 3600000000 :: Int64 - - -pattern TIME_SPAN_DAY = 86400000000 :: Int64 - - -pattern SYSDEF_MSG_PEEK = 2 :: Int32 - - -pattern SYSDEF_MSG_OOB = 1 :: Int32 - - -pattern SYSDEF_MSG_DONTROUTE = 4 :: Int32 - - -pattern SYSDEF_AF_UNIX = 1 :: Int32 - - -pattern SYSDEF_AF_INET6 = 10 :: Int32 - - -pattern SYSDEF_AF_INET = 2 :: Int32 - - -pattern STR_DELIMITERS = "_-|> <." :: T.Text - - -pattern SQRT2 = 1.414214 :: Double - - -pattern SOURCE_REMOVE = False :: Bool - - -pattern SOURCE_CONTINUE = True :: Bool - - -pattern SIZEOF_VOID_P = 8 :: Int32 - - -pattern SIZEOF_SSIZE_T = 8 :: Int32 - - -pattern SIZEOF_SIZE_T = 8 :: Int32 - - -pattern SIZEOF_LONG = 8 :: Int32 - - -pattern SEARCHPATH_SEPARATOR_S = ";" :: T.Text - - -pattern SEARCHPATH_SEPARATOR = 59 :: Int32 - - -pattern PRIORITY_LOW = 300 :: Int32 - - -pattern PRIORITY_HIGH_IDLE = 100 :: Int32 - - -pattern PRIORITY_HIGH = -100 :: Int32 - - -pattern PRIORITY_DEFAULT_IDLE = 200 :: Int32 - - -pattern PRIORITY_DEFAULT = 0 :: Int32 - - -pattern POLLFD_FORMAT = "%#I64x" :: T.Text - - -pattern PI_4 = 0.785398 :: Double - - -pattern PI_2 = 1.570796 :: Double - - -pattern PI = 3.141593 :: Double - - -pattern PDP_ENDIAN = 3412 :: Int32 - - -pattern OPTION_REMAINING = "" :: T.Text - - -pattern MODULE_SUFFIX = "so" :: T.Text - - -pattern MINOR_VERSION = 44 :: Int32 - - -pattern MININT8 = 128 :: Int8 - - -pattern MININT64 = -9223372036854775808 :: Int64 - - -pattern MININT32 = 2147483648 :: Int32 - - -pattern MININT16 = 32768 :: Int16 - - -pattern MICRO_VERSION = 1 :: Int32 - - -pattern MAXUINT8 = 255 :: Word8 - - -pattern MAXUINT64 = 18446744073709551615 :: Word64 - - -pattern MAXUINT32 = 4294967295 :: Word32 - - -pattern MAXUINT16 = 65535 :: Word16 - - -pattern MAXINT8 = 127 :: Int8 - - -pattern MAXINT64 = 9223372036854775807 :: Int64 - - -pattern MAXINT32 = 2147483647 :: Int32 - - -pattern MAXINT16 = 32767 :: Int16 - - -pattern MAJOR_VERSION = 2 :: Int32 - - -pattern LOG_LEVEL_USER_SHIFT = 8 :: Int32 - - -pattern LOG_FATAL_MASK = 0 :: Int32 - - -pattern LOG_DOMAIN = 0 :: Int8 - - -pattern LOG_2_BASE_10 = 0.301030 :: Double - - -pattern LN2 = 0.693147 :: Double - - -pattern LN10 = 2.302585 :: Double - - -pattern LITTLE_ENDIAN = 1234 :: Int32 - - -pattern KEY_FILE_DESKTOP_TYPE_LINK = "Link" :: T.Text - - -pattern KEY_FILE_DESKTOP_TYPE_DIRECTORY = "Directory" :: T.Text - - -pattern KEY_FILE_DESKTOP_TYPE_APPLICATION = "Application" :: T.Text - - -pattern KEY_FILE_DESKTOP_KEY_VERSION = "Version" :: T.Text - - -pattern KEY_FILE_DESKTOP_KEY_URL = "URL" :: T.Text - - -pattern KEY_FILE_DESKTOP_KEY_TYPE = "Type" :: T.Text - - -pattern KEY_FILE_DESKTOP_KEY_TRY_EXEC = "TryExec" :: T.Text - - -pattern KEY_FILE_DESKTOP_KEY_TERMINAL = "Terminal" :: T.Text - - -pattern KEY_FILE_DESKTOP_KEY_STARTUP_WM_CLASS = "StartupWMClass" :: T.Text - - -pattern KEY_FILE_DESKTOP_KEY_STARTUP_NOTIFY = "StartupNotify" :: T.Text - - -pattern KEY_FILE_DESKTOP_KEY_PATH = "Path" :: T.Text - - -pattern KEY_FILE_DESKTOP_KEY_ONLY_SHOW_IN = "OnlyShowIn" :: T.Text - - -pattern KEY_FILE_DESKTOP_KEY_NO_DISPLAY = "NoDisplay" :: T.Text - - -pattern KEY_FILE_DESKTOP_KEY_NOT_SHOW_IN = "NotShowIn" :: T.Text - - -pattern KEY_FILE_DESKTOP_KEY_NAME = "Name" :: T.Text - - -pattern KEY_FILE_DESKTOP_KEY_MIME_TYPE = "MimeType" :: T.Text - - -pattern KEY_FILE_DESKTOP_KEY_ICON = "Icon" :: T.Text - - -pattern KEY_FILE_DESKTOP_KEY_HIDDEN = "Hidden" :: T.Text - - -pattern KEY_FILE_DESKTOP_KEY_GENERIC_NAME = "GenericName" :: T.Text - - -pattern KEY_FILE_DESKTOP_KEY_EXEC = "Exec" :: T.Text - - -pattern KEY_FILE_DESKTOP_KEY_DBUS_ACTIVATABLE = "DBusActivatable" :: T.Text - - -pattern KEY_FILE_DESKTOP_KEY_COMMENT = "Comment" :: T.Text - - -pattern KEY_FILE_DESKTOP_KEY_CATEGORIES = "Categories" :: T.Text - - -pattern KEY_FILE_DESKTOP_KEY_ACTIONS = "Actions" :: T.Text - - -pattern KEY_FILE_DESKTOP_GROUP = "Desktop Entry" :: T.Text - - -pattern IEEE754_FLOAT_BIAS = 127 :: Int32 - - -pattern IEEE754_DOUBLE_BIAS = 1023 :: Int32 - - -pattern HOOK_FLAG_USER_SHIFT = 4 :: Int32 - - -pattern HAVE___INLINE__ = 1 :: Int32 - - -pattern HAVE___INLINE = 1 :: Int32 - - -pattern HAVE_ISO_VARARGS = 1 :: Int32 - - -pattern HAVE_INLINE = 1 :: Int32 - - -pattern HAVE_GROWING_STACK = 0 :: Int32 - - -pattern HAVE_GNUC_VISIBILITY = 1 :: Int32 - - -pattern HAVE_GNUC_VARARGS = 1 :: Int32 - - -pattern HAVE_GINT64 = 1 :: Int32 - - -pattern GUINTPTR_FORMAT = "lu" :: T.Text - - -pattern GUINT64_FORMAT = "lu" :: T.Text - - -pattern GUINT32_FORMAT = "u" :: T.Text - - -pattern GUINT16_FORMAT = "hu" :: T.Text - - -pattern GSSIZE_MODIFIER = "l" :: T.Text - - -pattern GSSIZE_FORMAT = "li" :: T.Text - - -pattern GSIZE_MODIFIER = "l" :: T.Text - - -pattern GSIZE_FORMAT = "lu" :: T.Text - -{-# DEPRECATED GNUC_PRETTY_FUNCTION ["(Since version 2.16)","Use G_STRFUNC() instead"]#-} -pattern GNUC_PRETTY_FUNCTION = "" :: T.Text - -{-# DEPRECATED GNUC_FUNCTION ["(Since version 2.16)","Use G_STRFUNC() instead"]#-} -pattern GNUC_FUNCTION = "" :: T.Text - - -pattern GINTPTR_MODIFIER = "l" :: T.Text - - -pattern GINTPTR_FORMAT = "li" :: T.Text - - -pattern GINT64_MODIFIER = "l" :: T.Text - - -pattern GINT64_FORMAT = "li" :: T.Text - - -pattern GINT32_MODIFIER = "" :: T.Text - - -pattern GINT32_FORMAT = "i" :: T.Text - - -pattern GINT16_MODIFIER = "h" :: T.Text - - -pattern GINT16_FORMAT = "hi" :: T.Text - - -pattern E = 2.718282 :: Double - - -pattern DIR_SEPARATOR_S = "\\" :: T.Text - - -pattern DIR_SEPARATOR = 92 :: Int32 - - -pattern DATE_BAD_YEAR = 0 :: Int32 - - -pattern DATE_BAD_JULIAN = 0 :: Int32 - - -pattern DATE_BAD_DAY = 0 :: Int32 - - -pattern DATALIST_FLAGS_MASK = 3 :: Int32 - - -pattern CSET_a_2_z = "abcdefghijklmnopqrstuvwxyz" :: T.Text - - -pattern CSET_DIGITS = "0123456789" :: T.Text - - -pattern CSET_A_2_Z = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" :: T.Text - - -pattern CAN_INLINE = 1 :: Int32 - - -pattern BIG_ENDIAN = 4321 :: Int32 - - -pattern ASCII_DTOSTR_BUF_SIZE = 39 :: Int32 - - -pattern ANALYZER_ANALYZING = 1 :: Int32 - - diff --git a/GI/GLib/Enums.hs b/GI/GLib/Enums.hs deleted file mode 100644 --- a/GI/GLib/Enums.hs +++ /dev/null @@ -1,2151 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.GLib.Enums - ( - catchVariantParseError , - handleVariantParseError , - catchThreadError , - handleThreadError , - catchSpawnError , - handleSpawnError , - catchShellError , - handleShellError , - catchRegexError , - handleRegexError , - catchOptionError , - handleOptionError , - catchMarkupError , - handleMarkupError , - catchKeyFileError , - handleKeyFileError , - catchIOChannelError , - handleIOChannelError , - catchFileError , - handleFileError , - catchConvertError , - handleConvertError , - catchBookmarkFileError , - handleBookmarkFileError , - --- * Exported types - VariantParseError(..) , - VariantClass(..) , - UserDirectory(..) , - UnicodeType(..) , - UnicodeScript(..) , - UnicodeBreakType(..) , - TraverseType(..) , - TokenType(..) , - TimeType(..) , - ThreadError(..) , - TestLogType(..) , - TestFileType(..) , - SpawnError(..) , - SliceConfig(..) , - ShellError(..) , - SeekType(..) , - RegexError(..) , - OptionError(..) , - OptionArg(..) , - OnceStatus(..) , - NormalizeMode(..) , - MarkupError(..) , - KeyFileError(..) , - IOStatus(..) , - IOError(..) , - IOChannelError(..) , - FileError(..) , - ErrorType(..) , - DateWeekday(..) , - DateMonth(..) , - DateDMY(..) , - ConvertError(..) , - ChecksumType(..) , - BookmarkFileError(..) , - - - ) 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 - - - - --- Enum VariantParseError - -data VariantParseError = - VariantParseErrorFailed - | VariantParseErrorBasicTypeExpected - | VariantParseErrorCannotInferType - | VariantParseErrorDefiniteTypeExpected - | VariantParseErrorInputNotAtEnd - | VariantParseErrorInvalidCharacter - | VariantParseErrorInvalidFormatString - | VariantParseErrorInvalidObjectPath - | VariantParseErrorInvalidSignature - | VariantParseErrorInvalidTypeString - | VariantParseErrorNoCommonType - | VariantParseErrorNumberOutOfRange - | VariantParseErrorNumberTooBig - | VariantParseErrorTypeError - | VariantParseErrorUnexpectedToken - | VariantParseErrorUnknownKeyword - | VariantParseErrorUnterminatedStringConstant - | VariantParseErrorValueExpected - | AnotherVariantParseError Int - deriving (Show, Eq) - -instance Enum VariantParseError where - fromEnum VariantParseErrorFailed = 0 - fromEnum VariantParseErrorBasicTypeExpected = 1 - fromEnum VariantParseErrorCannotInferType = 2 - fromEnum VariantParseErrorDefiniteTypeExpected = 3 - fromEnum VariantParseErrorInputNotAtEnd = 4 - fromEnum VariantParseErrorInvalidCharacter = 5 - fromEnum VariantParseErrorInvalidFormatString = 6 - fromEnum VariantParseErrorInvalidObjectPath = 7 - fromEnum VariantParseErrorInvalidSignature = 8 - fromEnum VariantParseErrorInvalidTypeString = 9 - fromEnum VariantParseErrorNoCommonType = 10 - fromEnum VariantParseErrorNumberOutOfRange = 11 - fromEnum VariantParseErrorNumberTooBig = 12 - fromEnum VariantParseErrorTypeError = 13 - fromEnum VariantParseErrorUnexpectedToken = 14 - fromEnum VariantParseErrorUnknownKeyword = 15 - fromEnum VariantParseErrorUnterminatedStringConstant = 16 - fromEnum VariantParseErrorValueExpected = 17 - fromEnum (AnotherVariantParseError k) = k - - toEnum 0 = VariantParseErrorFailed - toEnum 1 = VariantParseErrorBasicTypeExpected - toEnum 2 = VariantParseErrorCannotInferType - toEnum 3 = VariantParseErrorDefiniteTypeExpected - toEnum 4 = VariantParseErrorInputNotAtEnd - toEnum 5 = VariantParseErrorInvalidCharacter - toEnum 6 = VariantParseErrorInvalidFormatString - toEnum 7 = VariantParseErrorInvalidObjectPath - toEnum 8 = VariantParseErrorInvalidSignature - toEnum 9 = VariantParseErrorInvalidTypeString - toEnum 10 = VariantParseErrorNoCommonType - toEnum 11 = VariantParseErrorNumberOutOfRange - toEnum 12 = VariantParseErrorNumberTooBig - toEnum 13 = VariantParseErrorTypeError - toEnum 14 = VariantParseErrorUnexpectedToken - toEnum 15 = VariantParseErrorUnknownKeyword - toEnum 16 = VariantParseErrorUnterminatedStringConstant - toEnum 17 = VariantParseErrorValueExpected - toEnum k = AnotherVariantParseError k - -instance GErrorClass VariantParseError where - gerrorClassDomain _ = "g-variant-parse-error-quark" - -catchVariantParseError :: - IO a -> - (VariantParseError -> GErrorMessage -> IO a) -> - IO a -catchVariantParseError = catchGErrorJustDomain - -handleVariantParseError :: - (VariantParseError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleVariantParseError = handleGErrorJustDomain - --- Enum VariantClass - -data VariantClass = - VariantClassBoolean - | VariantClassByte - | VariantClassInt16 - | VariantClassUint16 - | VariantClassInt32 - | VariantClassUint32 - | VariantClassInt64 - | VariantClassUint64 - | VariantClassHandle - | VariantClassDouble - | VariantClassString - | VariantClassObjectPath - | VariantClassSignature - | VariantClassVariant - | VariantClassMaybe - | VariantClassArray - | VariantClassTuple - | VariantClassDictEntry - | AnotherVariantClass Int - deriving (Show, Eq) - -instance Enum VariantClass where - fromEnum VariantClassBoolean = 98 - fromEnum VariantClassByte = 121 - fromEnum VariantClassInt16 = 110 - fromEnum VariantClassUint16 = 113 - fromEnum VariantClassInt32 = 105 - fromEnum VariantClassUint32 = 117 - fromEnum VariantClassInt64 = 120 - fromEnum VariantClassUint64 = 116 - fromEnum VariantClassHandle = 104 - fromEnum VariantClassDouble = 100 - fromEnum VariantClassString = 115 - fromEnum VariantClassObjectPath = 111 - fromEnum VariantClassSignature = 103 - fromEnum VariantClassVariant = 118 - fromEnum VariantClassMaybe = 109 - fromEnum VariantClassArray = 97 - fromEnum VariantClassTuple = 40 - fromEnum VariantClassDictEntry = 123 - fromEnum (AnotherVariantClass k) = k - - toEnum 40 = VariantClassTuple - toEnum 97 = VariantClassArray - toEnum 98 = VariantClassBoolean - toEnum 100 = VariantClassDouble - toEnum 103 = VariantClassSignature - toEnum 104 = VariantClassHandle - toEnum 105 = VariantClassInt32 - toEnum 109 = VariantClassMaybe - toEnum 110 = VariantClassInt16 - toEnum 111 = VariantClassObjectPath - toEnum 113 = VariantClassUint16 - toEnum 115 = VariantClassString - toEnum 116 = VariantClassUint64 - toEnum 117 = VariantClassUint32 - toEnum 118 = VariantClassVariant - toEnum 120 = VariantClassInt64 - toEnum 121 = VariantClassByte - toEnum 123 = VariantClassDictEntry - toEnum k = AnotherVariantClass k - --- Enum UserDirectory - -data UserDirectory = - UserDirectoryDirectoryDesktop - | UserDirectoryDirectoryDocuments - | UserDirectoryDirectoryDownload - | UserDirectoryDirectoryMusic - | UserDirectoryDirectoryPictures - | UserDirectoryDirectoryPublicShare - | UserDirectoryDirectoryTemplates - | UserDirectoryDirectoryVideos - | UserDirectoryNDirectories - | AnotherUserDirectory Int - deriving (Show, Eq) - -instance Enum UserDirectory where - fromEnum UserDirectoryDirectoryDesktop = 0 - fromEnum UserDirectoryDirectoryDocuments = 1 - fromEnum UserDirectoryDirectoryDownload = 2 - fromEnum UserDirectoryDirectoryMusic = 3 - fromEnum UserDirectoryDirectoryPictures = 4 - fromEnum UserDirectoryDirectoryPublicShare = 5 - fromEnum UserDirectoryDirectoryTemplates = 6 - fromEnum UserDirectoryDirectoryVideos = 7 - fromEnum UserDirectoryNDirectories = 8 - fromEnum (AnotherUserDirectory k) = k - - toEnum 0 = UserDirectoryDirectoryDesktop - toEnum 1 = UserDirectoryDirectoryDocuments - toEnum 2 = UserDirectoryDirectoryDownload - toEnum 3 = UserDirectoryDirectoryMusic - toEnum 4 = UserDirectoryDirectoryPictures - toEnum 5 = UserDirectoryDirectoryPublicShare - toEnum 6 = UserDirectoryDirectoryTemplates - toEnum 7 = UserDirectoryDirectoryVideos - toEnum 8 = UserDirectoryNDirectories - toEnum k = AnotherUserDirectory k - --- Enum UnicodeType - -data UnicodeType = - UnicodeTypeControl - | UnicodeTypeFormat - | UnicodeTypeUnassigned - | UnicodeTypePrivateUse - | UnicodeTypeSurrogate - | UnicodeTypeLowercaseLetter - | UnicodeTypeModifierLetter - | UnicodeTypeOtherLetter - | UnicodeTypeTitlecaseLetter - | UnicodeTypeUppercaseLetter - | UnicodeTypeSpacingMark - | UnicodeTypeEnclosingMark - | UnicodeTypeNonSpacingMark - | UnicodeTypeDecimalNumber - | UnicodeTypeLetterNumber - | UnicodeTypeOtherNumber - | UnicodeTypeConnectPunctuation - | UnicodeTypeDashPunctuation - | UnicodeTypeClosePunctuation - | UnicodeTypeFinalPunctuation - | UnicodeTypeInitialPunctuation - | UnicodeTypeOtherPunctuation - | UnicodeTypeOpenPunctuation - | UnicodeTypeCurrencySymbol - | UnicodeTypeModifierSymbol - | UnicodeTypeMathSymbol - | UnicodeTypeOtherSymbol - | UnicodeTypeLineSeparator - | UnicodeTypeParagraphSeparator - | UnicodeTypeSpaceSeparator - | AnotherUnicodeType Int - deriving (Show, Eq) - -instance Enum UnicodeType where - fromEnum UnicodeTypeControl = 0 - fromEnum UnicodeTypeFormat = 1 - fromEnum UnicodeTypeUnassigned = 2 - fromEnum UnicodeTypePrivateUse = 3 - fromEnum UnicodeTypeSurrogate = 4 - fromEnum UnicodeTypeLowercaseLetter = 5 - fromEnum UnicodeTypeModifierLetter = 6 - fromEnum UnicodeTypeOtherLetter = 7 - fromEnum UnicodeTypeTitlecaseLetter = 8 - fromEnum UnicodeTypeUppercaseLetter = 9 - fromEnum UnicodeTypeSpacingMark = 10 - fromEnum UnicodeTypeEnclosingMark = 11 - fromEnum UnicodeTypeNonSpacingMark = 12 - fromEnum UnicodeTypeDecimalNumber = 13 - fromEnum UnicodeTypeLetterNumber = 14 - fromEnum UnicodeTypeOtherNumber = 15 - fromEnum UnicodeTypeConnectPunctuation = 16 - fromEnum UnicodeTypeDashPunctuation = 17 - fromEnum UnicodeTypeClosePunctuation = 18 - fromEnum UnicodeTypeFinalPunctuation = 19 - fromEnum UnicodeTypeInitialPunctuation = 20 - fromEnum UnicodeTypeOtherPunctuation = 21 - fromEnum UnicodeTypeOpenPunctuation = 22 - fromEnum UnicodeTypeCurrencySymbol = 23 - fromEnum UnicodeTypeModifierSymbol = 24 - fromEnum UnicodeTypeMathSymbol = 25 - fromEnum UnicodeTypeOtherSymbol = 26 - fromEnum UnicodeTypeLineSeparator = 27 - fromEnum UnicodeTypeParagraphSeparator = 28 - fromEnum UnicodeTypeSpaceSeparator = 29 - fromEnum (AnotherUnicodeType k) = k - - toEnum 0 = UnicodeTypeControl - toEnum 1 = UnicodeTypeFormat - toEnum 2 = UnicodeTypeUnassigned - toEnum 3 = UnicodeTypePrivateUse - toEnum 4 = UnicodeTypeSurrogate - toEnum 5 = UnicodeTypeLowercaseLetter - toEnum 6 = UnicodeTypeModifierLetter - toEnum 7 = UnicodeTypeOtherLetter - toEnum 8 = UnicodeTypeTitlecaseLetter - toEnum 9 = UnicodeTypeUppercaseLetter - toEnum 10 = UnicodeTypeSpacingMark - toEnum 11 = UnicodeTypeEnclosingMark - toEnum 12 = UnicodeTypeNonSpacingMark - toEnum 13 = UnicodeTypeDecimalNumber - toEnum 14 = UnicodeTypeLetterNumber - toEnum 15 = UnicodeTypeOtherNumber - toEnum 16 = UnicodeTypeConnectPunctuation - toEnum 17 = UnicodeTypeDashPunctuation - toEnum 18 = UnicodeTypeClosePunctuation - toEnum 19 = UnicodeTypeFinalPunctuation - toEnum 20 = UnicodeTypeInitialPunctuation - toEnum 21 = UnicodeTypeOtherPunctuation - toEnum 22 = UnicodeTypeOpenPunctuation - toEnum 23 = UnicodeTypeCurrencySymbol - toEnum 24 = UnicodeTypeModifierSymbol - toEnum 25 = UnicodeTypeMathSymbol - toEnum 26 = UnicodeTypeOtherSymbol - toEnum 27 = UnicodeTypeLineSeparator - toEnum 28 = UnicodeTypeParagraphSeparator - toEnum 29 = UnicodeTypeSpaceSeparator - toEnum k = AnotherUnicodeType k - --- Enum UnicodeScript - -data UnicodeScript = - UnicodeScriptInvalidCode - | UnicodeScriptCommon - | UnicodeScriptInherited - | UnicodeScriptArabic - | UnicodeScriptArmenian - | UnicodeScriptBengali - | UnicodeScriptBopomofo - | UnicodeScriptCherokee - | UnicodeScriptCoptic - | UnicodeScriptCyrillic - | UnicodeScriptDeseret - | UnicodeScriptDevanagari - | UnicodeScriptEthiopic - | UnicodeScriptGeorgian - | UnicodeScriptGothic - | UnicodeScriptGreek - | UnicodeScriptGujarati - | UnicodeScriptGurmukhi - | UnicodeScriptHan - | UnicodeScriptHangul - | UnicodeScriptHebrew - | UnicodeScriptHiragana - | UnicodeScriptKannada - | UnicodeScriptKatakana - | UnicodeScriptKhmer - | UnicodeScriptLao - | UnicodeScriptLatin - | UnicodeScriptMalayalam - | UnicodeScriptMongolian - | UnicodeScriptMyanmar - | UnicodeScriptOgham - | UnicodeScriptOldItalic - | UnicodeScriptOriya - | UnicodeScriptRunic - | UnicodeScriptSinhala - | UnicodeScriptSyriac - | UnicodeScriptTamil - | UnicodeScriptTelugu - | UnicodeScriptThaana - | UnicodeScriptThai - | UnicodeScriptTibetan - | UnicodeScriptCanadianAboriginal - | UnicodeScriptYi - | UnicodeScriptTagalog - | UnicodeScriptHanunoo - | UnicodeScriptBuhid - | UnicodeScriptTagbanwa - | UnicodeScriptBraille - | UnicodeScriptCypriot - | UnicodeScriptLimbu - | UnicodeScriptOsmanya - | UnicodeScriptShavian - | UnicodeScriptLinearB - | UnicodeScriptTaiLe - | UnicodeScriptUgaritic - | UnicodeScriptNewTaiLue - | UnicodeScriptBuginese - | UnicodeScriptGlagolitic - | UnicodeScriptTifinagh - | UnicodeScriptSylotiNagri - | UnicodeScriptOldPersian - | UnicodeScriptKharoshthi - | UnicodeScriptUnknown - | UnicodeScriptBalinese - | UnicodeScriptCuneiform - | UnicodeScriptPhoenician - | UnicodeScriptPhagsPa - | UnicodeScriptNko - | UnicodeScriptKayahLi - | UnicodeScriptLepcha - | UnicodeScriptRejang - | UnicodeScriptSundanese - | UnicodeScriptSaurashtra - | UnicodeScriptCham - | UnicodeScriptOlChiki - | UnicodeScriptVai - | UnicodeScriptCarian - | UnicodeScriptLycian - | UnicodeScriptLydian - | UnicodeScriptAvestan - | UnicodeScriptBamum - | UnicodeScriptEgyptianHieroglyphs - | UnicodeScriptImperialAramaic - | UnicodeScriptInscriptionalPahlavi - | UnicodeScriptInscriptionalParthian - | UnicodeScriptJavanese - | UnicodeScriptKaithi - | UnicodeScriptLisu - | UnicodeScriptMeeteiMayek - | UnicodeScriptOldSouthArabian - | UnicodeScriptOldTurkic - | UnicodeScriptSamaritan - | UnicodeScriptTaiTham - | UnicodeScriptTaiViet - | UnicodeScriptBatak - | UnicodeScriptBrahmi - | UnicodeScriptMandaic - | UnicodeScriptChakma - | UnicodeScriptMeroiticCursive - | UnicodeScriptMeroiticHieroglyphs - | UnicodeScriptMiao - | UnicodeScriptSharada - | UnicodeScriptSoraSompeng - | UnicodeScriptTakri - | UnicodeScriptBassaVah - | UnicodeScriptCaucasianAlbanian - | UnicodeScriptDuployan - | UnicodeScriptElbasan - | UnicodeScriptGrantha - | UnicodeScriptKhojki - | UnicodeScriptKhudawadi - | UnicodeScriptLinearA - | UnicodeScriptMahajani - | UnicodeScriptManichaean - | UnicodeScriptMendeKikakui - | UnicodeScriptModi - | UnicodeScriptMro - | UnicodeScriptNabataean - | UnicodeScriptOldNorthArabian - | UnicodeScriptOldPermic - | UnicodeScriptPahawhHmong - | UnicodeScriptPalmyrene - | UnicodeScriptPauCinHau - | UnicodeScriptPsalterPahlavi - | UnicodeScriptSiddham - | UnicodeScriptTirhuta - | UnicodeScriptWarangCiti - | AnotherUnicodeScript Int - deriving (Show, Eq) - -instance Enum UnicodeScript where - fromEnum UnicodeScriptInvalidCode = -1 - fromEnum UnicodeScriptCommon = 0 - fromEnum UnicodeScriptInherited = 1 - fromEnum UnicodeScriptArabic = 2 - fromEnum UnicodeScriptArmenian = 3 - fromEnum UnicodeScriptBengali = 4 - fromEnum UnicodeScriptBopomofo = 5 - fromEnum UnicodeScriptCherokee = 6 - fromEnum UnicodeScriptCoptic = 7 - fromEnum UnicodeScriptCyrillic = 8 - fromEnum UnicodeScriptDeseret = 9 - fromEnum UnicodeScriptDevanagari = 10 - fromEnum UnicodeScriptEthiopic = 11 - fromEnum UnicodeScriptGeorgian = 12 - fromEnum UnicodeScriptGothic = 13 - fromEnum UnicodeScriptGreek = 14 - fromEnum UnicodeScriptGujarati = 15 - fromEnum UnicodeScriptGurmukhi = 16 - fromEnum UnicodeScriptHan = 17 - fromEnum UnicodeScriptHangul = 18 - fromEnum UnicodeScriptHebrew = 19 - fromEnum UnicodeScriptHiragana = 20 - fromEnum UnicodeScriptKannada = 21 - fromEnum UnicodeScriptKatakana = 22 - fromEnum UnicodeScriptKhmer = 23 - fromEnum UnicodeScriptLao = 24 - fromEnum UnicodeScriptLatin = 25 - fromEnum UnicodeScriptMalayalam = 26 - fromEnum UnicodeScriptMongolian = 27 - fromEnum UnicodeScriptMyanmar = 28 - fromEnum UnicodeScriptOgham = 29 - fromEnum UnicodeScriptOldItalic = 30 - fromEnum UnicodeScriptOriya = 31 - fromEnum UnicodeScriptRunic = 32 - fromEnum UnicodeScriptSinhala = 33 - fromEnum UnicodeScriptSyriac = 34 - fromEnum UnicodeScriptTamil = 35 - fromEnum UnicodeScriptTelugu = 36 - fromEnum UnicodeScriptThaana = 37 - fromEnum UnicodeScriptThai = 38 - fromEnum UnicodeScriptTibetan = 39 - fromEnum UnicodeScriptCanadianAboriginal = 40 - fromEnum UnicodeScriptYi = 41 - fromEnum UnicodeScriptTagalog = 42 - fromEnum UnicodeScriptHanunoo = 43 - fromEnum UnicodeScriptBuhid = 44 - fromEnum UnicodeScriptTagbanwa = 45 - fromEnum UnicodeScriptBraille = 46 - fromEnum UnicodeScriptCypriot = 47 - fromEnum UnicodeScriptLimbu = 48 - fromEnum UnicodeScriptOsmanya = 49 - fromEnum UnicodeScriptShavian = 50 - fromEnum UnicodeScriptLinearB = 51 - fromEnum UnicodeScriptTaiLe = 52 - fromEnum UnicodeScriptUgaritic = 53 - fromEnum UnicodeScriptNewTaiLue = 54 - fromEnum UnicodeScriptBuginese = 55 - fromEnum UnicodeScriptGlagolitic = 56 - fromEnum UnicodeScriptTifinagh = 57 - fromEnum UnicodeScriptSylotiNagri = 58 - fromEnum UnicodeScriptOldPersian = 59 - fromEnum UnicodeScriptKharoshthi = 60 - fromEnum UnicodeScriptUnknown = 61 - fromEnum UnicodeScriptBalinese = 62 - fromEnum UnicodeScriptCuneiform = 63 - fromEnum UnicodeScriptPhoenician = 64 - fromEnum UnicodeScriptPhagsPa = 65 - fromEnum UnicodeScriptNko = 66 - fromEnum UnicodeScriptKayahLi = 67 - fromEnum UnicodeScriptLepcha = 68 - fromEnum UnicodeScriptRejang = 69 - fromEnum UnicodeScriptSundanese = 70 - fromEnum UnicodeScriptSaurashtra = 71 - fromEnum UnicodeScriptCham = 72 - fromEnum UnicodeScriptOlChiki = 73 - fromEnum UnicodeScriptVai = 74 - fromEnum UnicodeScriptCarian = 75 - fromEnum UnicodeScriptLycian = 76 - fromEnum UnicodeScriptLydian = 77 - fromEnum UnicodeScriptAvestan = 78 - fromEnum UnicodeScriptBamum = 79 - fromEnum UnicodeScriptEgyptianHieroglyphs = 80 - fromEnum UnicodeScriptImperialAramaic = 81 - fromEnum UnicodeScriptInscriptionalPahlavi = 82 - fromEnum UnicodeScriptInscriptionalParthian = 83 - fromEnum UnicodeScriptJavanese = 84 - fromEnum UnicodeScriptKaithi = 85 - fromEnum UnicodeScriptLisu = 86 - fromEnum UnicodeScriptMeeteiMayek = 87 - fromEnum UnicodeScriptOldSouthArabian = 88 - fromEnum UnicodeScriptOldTurkic = 89 - fromEnum UnicodeScriptSamaritan = 90 - fromEnum UnicodeScriptTaiTham = 91 - fromEnum UnicodeScriptTaiViet = 92 - fromEnum UnicodeScriptBatak = 93 - fromEnum UnicodeScriptBrahmi = 94 - fromEnum UnicodeScriptMandaic = 95 - fromEnum UnicodeScriptChakma = 96 - fromEnum UnicodeScriptMeroiticCursive = 97 - fromEnum UnicodeScriptMeroiticHieroglyphs = 98 - fromEnum UnicodeScriptMiao = 99 - fromEnum UnicodeScriptSharada = 100 - fromEnum UnicodeScriptSoraSompeng = 101 - fromEnum UnicodeScriptTakri = 102 - fromEnum UnicodeScriptBassaVah = 103 - fromEnum UnicodeScriptCaucasianAlbanian = 104 - fromEnum UnicodeScriptDuployan = 105 - fromEnum UnicodeScriptElbasan = 106 - fromEnum UnicodeScriptGrantha = 107 - fromEnum UnicodeScriptKhojki = 108 - fromEnum UnicodeScriptKhudawadi = 109 - fromEnum UnicodeScriptLinearA = 110 - fromEnum UnicodeScriptMahajani = 111 - fromEnum UnicodeScriptManichaean = 112 - fromEnum UnicodeScriptMendeKikakui = 113 - fromEnum UnicodeScriptModi = 114 - fromEnum UnicodeScriptMro = 115 - fromEnum UnicodeScriptNabataean = 116 - fromEnum UnicodeScriptOldNorthArabian = 117 - fromEnum UnicodeScriptOldPermic = 118 - fromEnum UnicodeScriptPahawhHmong = 119 - fromEnum UnicodeScriptPalmyrene = 120 - fromEnum UnicodeScriptPauCinHau = 121 - fromEnum UnicodeScriptPsalterPahlavi = 122 - fromEnum UnicodeScriptSiddham = 123 - fromEnum UnicodeScriptTirhuta = 124 - fromEnum UnicodeScriptWarangCiti = 125 - fromEnum (AnotherUnicodeScript k) = k - - toEnum -1 = UnicodeScriptInvalidCode - toEnum 0 = UnicodeScriptCommon - toEnum 1 = UnicodeScriptInherited - toEnum 2 = UnicodeScriptArabic - toEnum 3 = UnicodeScriptArmenian - toEnum 4 = UnicodeScriptBengali - toEnum 5 = UnicodeScriptBopomofo - toEnum 6 = UnicodeScriptCherokee - toEnum 7 = UnicodeScriptCoptic - toEnum 8 = UnicodeScriptCyrillic - toEnum 9 = UnicodeScriptDeseret - toEnum 10 = UnicodeScriptDevanagari - toEnum 11 = UnicodeScriptEthiopic - toEnum 12 = UnicodeScriptGeorgian - toEnum 13 = UnicodeScriptGothic - toEnum 14 = UnicodeScriptGreek - toEnum 15 = UnicodeScriptGujarati - toEnum 16 = UnicodeScriptGurmukhi - toEnum 17 = UnicodeScriptHan - toEnum 18 = UnicodeScriptHangul - toEnum 19 = UnicodeScriptHebrew - toEnum 20 = UnicodeScriptHiragana - toEnum 21 = UnicodeScriptKannada - toEnum 22 = UnicodeScriptKatakana - toEnum 23 = UnicodeScriptKhmer - toEnum 24 = UnicodeScriptLao - toEnum 25 = UnicodeScriptLatin - toEnum 26 = UnicodeScriptMalayalam - toEnum 27 = UnicodeScriptMongolian - toEnum 28 = UnicodeScriptMyanmar - toEnum 29 = UnicodeScriptOgham - toEnum 30 = UnicodeScriptOldItalic - toEnum 31 = UnicodeScriptOriya - toEnum 32 = UnicodeScriptRunic - toEnum 33 = UnicodeScriptSinhala - toEnum 34 = UnicodeScriptSyriac - toEnum 35 = UnicodeScriptTamil - toEnum 36 = UnicodeScriptTelugu - toEnum 37 = UnicodeScriptThaana - toEnum 38 = UnicodeScriptThai - toEnum 39 = UnicodeScriptTibetan - toEnum 40 = UnicodeScriptCanadianAboriginal - toEnum 41 = UnicodeScriptYi - toEnum 42 = UnicodeScriptTagalog - toEnum 43 = UnicodeScriptHanunoo - toEnum 44 = UnicodeScriptBuhid - toEnum 45 = UnicodeScriptTagbanwa - toEnum 46 = UnicodeScriptBraille - toEnum 47 = UnicodeScriptCypriot - toEnum 48 = UnicodeScriptLimbu - toEnum 49 = UnicodeScriptOsmanya - toEnum 50 = UnicodeScriptShavian - toEnum 51 = UnicodeScriptLinearB - toEnum 52 = UnicodeScriptTaiLe - toEnum 53 = UnicodeScriptUgaritic - toEnum 54 = UnicodeScriptNewTaiLue - toEnum 55 = UnicodeScriptBuginese - toEnum 56 = UnicodeScriptGlagolitic - toEnum 57 = UnicodeScriptTifinagh - toEnum 58 = UnicodeScriptSylotiNagri - toEnum 59 = UnicodeScriptOldPersian - toEnum 60 = UnicodeScriptKharoshthi - toEnum 61 = UnicodeScriptUnknown - toEnum 62 = UnicodeScriptBalinese - toEnum 63 = UnicodeScriptCuneiform - toEnum 64 = UnicodeScriptPhoenician - toEnum 65 = UnicodeScriptPhagsPa - toEnum 66 = UnicodeScriptNko - toEnum 67 = UnicodeScriptKayahLi - toEnum 68 = UnicodeScriptLepcha - toEnum 69 = UnicodeScriptRejang - toEnum 70 = UnicodeScriptSundanese - toEnum 71 = UnicodeScriptSaurashtra - toEnum 72 = UnicodeScriptCham - toEnum 73 = UnicodeScriptOlChiki - toEnum 74 = UnicodeScriptVai - toEnum 75 = UnicodeScriptCarian - toEnum 76 = UnicodeScriptLycian - toEnum 77 = UnicodeScriptLydian - toEnum 78 = UnicodeScriptAvestan - toEnum 79 = UnicodeScriptBamum - toEnum 80 = UnicodeScriptEgyptianHieroglyphs - toEnum 81 = UnicodeScriptImperialAramaic - toEnum 82 = UnicodeScriptInscriptionalPahlavi - toEnum 83 = UnicodeScriptInscriptionalParthian - toEnum 84 = UnicodeScriptJavanese - toEnum 85 = UnicodeScriptKaithi - toEnum 86 = UnicodeScriptLisu - toEnum 87 = UnicodeScriptMeeteiMayek - toEnum 88 = UnicodeScriptOldSouthArabian - toEnum 89 = UnicodeScriptOldTurkic - toEnum 90 = UnicodeScriptSamaritan - toEnum 91 = UnicodeScriptTaiTham - toEnum 92 = UnicodeScriptTaiViet - toEnum 93 = UnicodeScriptBatak - toEnum 94 = UnicodeScriptBrahmi - toEnum 95 = UnicodeScriptMandaic - toEnum 96 = UnicodeScriptChakma - toEnum 97 = UnicodeScriptMeroiticCursive - toEnum 98 = UnicodeScriptMeroiticHieroglyphs - toEnum 99 = UnicodeScriptMiao - toEnum 100 = UnicodeScriptSharada - toEnum 101 = UnicodeScriptSoraSompeng - toEnum 102 = UnicodeScriptTakri - toEnum 103 = UnicodeScriptBassaVah - toEnum 104 = UnicodeScriptCaucasianAlbanian - toEnum 105 = UnicodeScriptDuployan - toEnum 106 = UnicodeScriptElbasan - toEnum 107 = UnicodeScriptGrantha - toEnum 108 = UnicodeScriptKhojki - toEnum 109 = UnicodeScriptKhudawadi - toEnum 110 = UnicodeScriptLinearA - toEnum 111 = UnicodeScriptMahajani - toEnum 112 = UnicodeScriptManichaean - toEnum 113 = UnicodeScriptMendeKikakui - toEnum 114 = UnicodeScriptModi - toEnum 115 = UnicodeScriptMro - toEnum 116 = UnicodeScriptNabataean - toEnum 117 = UnicodeScriptOldNorthArabian - toEnum 118 = UnicodeScriptOldPermic - toEnum 119 = UnicodeScriptPahawhHmong - toEnum 120 = UnicodeScriptPalmyrene - toEnum 121 = UnicodeScriptPauCinHau - toEnum 122 = UnicodeScriptPsalterPahlavi - toEnum 123 = UnicodeScriptSiddham - toEnum 124 = UnicodeScriptTirhuta - toEnum 125 = UnicodeScriptWarangCiti - toEnum k = AnotherUnicodeScript k - --- Enum UnicodeBreakType - -data UnicodeBreakType = - UnicodeBreakTypeMandatory - | UnicodeBreakTypeCarriageReturn - | UnicodeBreakTypeLineFeed - | UnicodeBreakTypeCombiningMark - | UnicodeBreakTypeSurrogate - | UnicodeBreakTypeZeroWidthSpace - | UnicodeBreakTypeInseparable - | UnicodeBreakTypeNonBreakingGlue - | UnicodeBreakTypeContingent - | UnicodeBreakTypeSpace - | UnicodeBreakTypeAfter - | UnicodeBreakTypeBefore - | UnicodeBreakTypeBeforeAndAfter - | UnicodeBreakTypeHyphen - | UnicodeBreakTypeNonStarter - | UnicodeBreakTypeOpenPunctuation - | UnicodeBreakTypeClosePunctuation - | UnicodeBreakTypeQuotation - | UnicodeBreakTypeExclamation - | UnicodeBreakTypeIdeographic - | UnicodeBreakTypeNumeric - | UnicodeBreakTypeInfixSeparator - | UnicodeBreakTypeSymbol - | UnicodeBreakTypeAlphabetic - | UnicodeBreakTypePrefix - | UnicodeBreakTypePostfix - | UnicodeBreakTypeComplexContext - | UnicodeBreakTypeAmbiguous - | UnicodeBreakTypeUnknown - | UnicodeBreakTypeNextLine - | UnicodeBreakTypeWordJoiner - | UnicodeBreakTypeHangulLJamo - | UnicodeBreakTypeHangulVJamo - | UnicodeBreakTypeHangulTJamo - | UnicodeBreakTypeHangulLvSyllable - | UnicodeBreakTypeHangulLvtSyllable - | UnicodeBreakTypeCloseParanthesis - | UnicodeBreakTypeConditionalJapaneseStarter - | UnicodeBreakTypeHebrewLetter - | UnicodeBreakTypeRegionalIndicator - | AnotherUnicodeBreakType Int - deriving (Show, Eq) - -instance Enum UnicodeBreakType where - fromEnum UnicodeBreakTypeMandatory = 0 - fromEnum UnicodeBreakTypeCarriageReturn = 1 - fromEnum UnicodeBreakTypeLineFeed = 2 - fromEnum UnicodeBreakTypeCombiningMark = 3 - fromEnum UnicodeBreakTypeSurrogate = 4 - fromEnum UnicodeBreakTypeZeroWidthSpace = 5 - fromEnum UnicodeBreakTypeInseparable = 6 - fromEnum UnicodeBreakTypeNonBreakingGlue = 7 - fromEnum UnicodeBreakTypeContingent = 8 - fromEnum UnicodeBreakTypeSpace = 9 - fromEnum UnicodeBreakTypeAfter = 10 - fromEnum UnicodeBreakTypeBefore = 11 - fromEnum UnicodeBreakTypeBeforeAndAfter = 12 - fromEnum UnicodeBreakTypeHyphen = 13 - fromEnum UnicodeBreakTypeNonStarter = 14 - fromEnum UnicodeBreakTypeOpenPunctuation = 15 - fromEnum UnicodeBreakTypeClosePunctuation = 16 - fromEnum UnicodeBreakTypeQuotation = 17 - fromEnum UnicodeBreakTypeExclamation = 18 - fromEnum UnicodeBreakTypeIdeographic = 19 - fromEnum UnicodeBreakTypeNumeric = 20 - fromEnum UnicodeBreakTypeInfixSeparator = 21 - fromEnum UnicodeBreakTypeSymbol = 22 - fromEnum UnicodeBreakTypeAlphabetic = 23 - fromEnum UnicodeBreakTypePrefix = 24 - fromEnum UnicodeBreakTypePostfix = 25 - fromEnum UnicodeBreakTypeComplexContext = 26 - fromEnum UnicodeBreakTypeAmbiguous = 27 - fromEnum UnicodeBreakTypeUnknown = 28 - fromEnum UnicodeBreakTypeNextLine = 29 - fromEnum UnicodeBreakTypeWordJoiner = 30 - fromEnum UnicodeBreakTypeHangulLJamo = 31 - fromEnum UnicodeBreakTypeHangulVJamo = 32 - fromEnum UnicodeBreakTypeHangulTJamo = 33 - fromEnum UnicodeBreakTypeHangulLvSyllable = 34 - fromEnum UnicodeBreakTypeHangulLvtSyllable = 35 - fromEnum UnicodeBreakTypeCloseParanthesis = 36 - fromEnum UnicodeBreakTypeConditionalJapaneseStarter = 37 - fromEnum UnicodeBreakTypeHebrewLetter = 38 - fromEnum UnicodeBreakTypeRegionalIndicator = 39 - fromEnum (AnotherUnicodeBreakType k) = k - - toEnum 0 = UnicodeBreakTypeMandatory - toEnum 1 = UnicodeBreakTypeCarriageReturn - toEnum 2 = UnicodeBreakTypeLineFeed - toEnum 3 = UnicodeBreakTypeCombiningMark - toEnum 4 = UnicodeBreakTypeSurrogate - toEnum 5 = UnicodeBreakTypeZeroWidthSpace - toEnum 6 = UnicodeBreakTypeInseparable - toEnum 7 = UnicodeBreakTypeNonBreakingGlue - toEnum 8 = UnicodeBreakTypeContingent - toEnum 9 = UnicodeBreakTypeSpace - toEnum 10 = UnicodeBreakTypeAfter - toEnum 11 = UnicodeBreakTypeBefore - toEnum 12 = UnicodeBreakTypeBeforeAndAfter - toEnum 13 = UnicodeBreakTypeHyphen - toEnum 14 = UnicodeBreakTypeNonStarter - toEnum 15 = UnicodeBreakTypeOpenPunctuation - toEnum 16 = UnicodeBreakTypeClosePunctuation - toEnum 17 = UnicodeBreakTypeQuotation - toEnum 18 = UnicodeBreakTypeExclamation - toEnum 19 = UnicodeBreakTypeIdeographic - toEnum 20 = UnicodeBreakTypeNumeric - toEnum 21 = UnicodeBreakTypeInfixSeparator - toEnum 22 = UnicodeBreakTypeSymbol - toEnum 23 = UnicodeBreakTypeAlphabetic - toEnum 24 = UnicodeBreakTypePrefix - toEnum 25 = UnicodeBreakTypePostfix - toEnum 26 = UnicodeBreakTypeComplexContext - toEnum 27 = UnicodeBreakTypeAmbiguous - toEnum 28 = UnicodeBreakTypeUnknown - toEnum 29 = UnicodeBreakTypeNextLine - toEnum 30 = UnicodeBreakTypeWordJoiner - toEnum 31 = UnicodeBreakTypeHangulLJamo - toEnum 32 = UnicodeBreakTypeHangulVJamo - toEnum 33 = UnicodeBreakTypeHangulTJamo - toEnum 34 = UnicodeBreakTypeHangulLvSyllable - toEnum 35 = UnicodeBreakTypeHangulLvtSyllable - toEnum 36 = UnicodeBreakTypeCloseParanthesis - toEnum 37 = UnicodeBreakTypeConditionalJapaneseStarter - toEnum 38 = UnicodeBreakTypeHebrewLetter - toEnum 39 = UnicodeBreakTypeRegionalIndicator - toEnum k = AnotherUnicodeBreakType k - --- Enum TraverseType - -data TraverseType = - TraverseTypeInOrder - | TraverseTypePreOrder - | TraverseTypePostOrder - | TraverseTypeLevelOrder - | AnotherTraverseType Int - deriving (Show, Eq) - -instance Enum TraverseType where - fromEnum TraverseTypeInOrder = 0 - fromEnum TraverseTypePreOrder = 1 - fromEnum TraverseTypePostOrder = 2 - fromEnum TraverseTypeLevelOrder = 3 - fromEnum (AnotherTraverseType k) = k - - toEnum 0 = TraverseTypeInOrder - toEnum 1 = TraverseTypePreOrder - toEnum 2 = TraverseTypePostOrder - toEnum 3 = TraverseTypeLevelOrder - toEnum k = AnotherTraverseType k - --- Enum TokenType - -data TokenType = - TokenTypeEof - | TokenTypeLeftParen - | TokenTypeRightParen - | TokenTypeLeftCurly - | TokenTypeRightCurly - | TokenTypeLeftBrace - | TokenTypeRightBrace - | TokenTypeEqualSign - | TokenTypeComma - | TokenTypeNone - | TokenTypeError - | TokenTypeChar - | TokenTypeBinary - | TokenTypeOctal - | TokenTypeInt - | TokenTypeHex - | TokenTypeFloat - | TokenTypeString - | TokenTypeSymbol - | TokenTypeIdentifier - | TokenTypeIdentifierNull - | TokenTypeCommentSingle - | TokenTypeCommentMulti - | AnotherTokenType Int - deriving (Show, Eq) - -instance Enum TokenType where - fromEnum TokenTypeEof = 0 - fromEnum TokenTypeLeftParen = 40 - fromEnum TokenTypeRightParen = 41 - fromEnum TokenTypeLeftCurly = 123 - fromEnum TokenTypeRightCurly = 125 - fromEnum TokenTypeLeftBrace = 91 - fromEnum TokenTypeRightBrace = 93 - fromEnum TokenTypeEqualSign = 61 - fromEnum TokenTypeComma = 44 - fromEnum TokenTypeNone = 256 - fromEnum TokenTypeError = 257 - fromEnum TokenTypeChar = 258 - fromEnum TokenTypeBinary = 259 - fromEnum TokenTypeOctal = 260 - fromEnum TokenTypeInt = 261 - fromEnum TokenTypeHex = 262 - fromEnum TokenTypeFloat = 263 - fromEnum TokenTypeString = 264 - fromEnum TokenTypeSymbol = 265 - fromEnum TokenTypeIdentifier = 266 - fromEnum TokenTypeIdentifierNull = 267 - fromEnum TokenTypeCommentSingle = 268 - fromEnum TokenTypeCommentMulti = 269 - fromEnum (AnotherTokenType k) = k - - toEnum 0 = TokenTypeEof - toEnum 40 = TokenTypeLeftParen - toEnum 41 = TokenTypeRightParen - toEnum 44 = TokenTypeComma - toEnum 61 = TokenTypeEqualSign - toEnum 91 = TokenTypeLeftBrace - toEnum 93 = TokenTypeRightBrace - toEnum 123 = TokenTypeLeftCurly - toEnum 125 = TokenTypeRightCurly - toEnum 256 = TokenTypeNone - toEnum 257 = TokenTypeError - toEnum 258 = TokenTypeChar - toEnum 259 = TokenTypeBinary - toEnum 260 = TokenTypeOctal - toEnum 261 = TokenTypeInt - toEnum 262 = TokenTypeHex - toEnum 263 = TokenTypeFloat - toEnum 264 = TokenTypeString - toEnum 265 = TokenTypeSymbol - toEnum 266 = TokenTypeIdentifier - toEnum 267 = TokenTypeIdentifierNull - toEnum 268 = TokenTypeCommentSingle - toEnum 269 = TokenTypeCommentMulti - toEnum k = AnotherTokenType k - --- Enum TimeType - -data TimeType = - TimeTypeStandard - | TimeTypeDaylight - | TimeTypeUniversal - | AnotherTimeType Int - deriving (Show, Eq) - -instance Enum TimeType where - fromEnum TimeTypeStandard = 0 - fromEnum TimeTypeDaylight = 1 - fromEnum TimeTypeUniversal = 2 - fromEnum (AnotherTimeType k) = k - - toEnum 0 = TimeTypeStandard - toEnum 1 = TimeTypeDaylight - toEnum 2 = TimeTypeUniversal - toEnum k = AnotherTimeType k - --- Enum ThreadError - -data ThreadError = - ThreadErrorThreadErrorAgain - | AnotherThreadError Int - deriving (Show, Eq) - -instance Enum ThreadError where - fromEnum ThreadErrorThreadErrorAgain = 0 - fromEnum (AnotherThreadError k) = k - - toEnum 0 = ThreadErrorThreadErrorAgain - toEnum k = AnotherThreadError k - -instance GErrorClass ThreadError where - gerrorClassDomain _ = "g_thread_error" - -catchThreadError :: - IO a -> - (ThreadError -> GErrorMessage -> IO a) -> - IO a -catchThreadError = catchGErrorJustDomain - -handleThreadError :: - (ThreadError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleThreadError = handleGErrorJustDomain - --- Enum TestLogType - -data TestLogType = - TestLogTypeNone - | TestLogTypeError - | TestLogTypeStartBinary - | TestLogTypeListCase - | TestLogTypeSkipCase - | TestLogTypeStartCase - | TestLogTypeStopCase - | TestLogTypeMinResult - | TestLogTypeMaxResult - | TestLogTypeMessage - | TestLogTypeStartSuite - | TestLogTypeStopSuite - | AnotherTestLogType Int - deriving (Show, Eq) - -instance Enum TestLogType where - fromEnum TestLogTypeNone = 0 - fromEnum TestLogTypeError = 1 - fromEnum TestLogTypeStartBinary = 2 - fromEnum TestLogTypeListCase = 3 - fromEnum TestLogTypeSkipCase = 4 - fromEnum TestLogTypeStartCase = 5 - fromEnum TestLogTypeStopCase = 6 - fromEnum TestLogTypeMinResult = 7 - fromEnum TestLogTypeMaxResult = 8 - fromEnum TestLogTypeMessage = 9 - fromEnum TestLogTypeStartSuite = 10 - fromEnum TestLogTypeStopSuite = 11 - fromEnum (AnotherTestLogType k) = k - - toEnum 0 = TestLogTypeNone - toEnum 1 = TestLogTypeError - toEnum 2 = TestLogTypeStartBinary - toEnum 3 = TestLogTypeListCase - toEnum 4 = TestLogTypeSkipCase - toEnum 5 = TestLogTypeStartCase - toEnum 6 = TestLogTypeStopCase - toEnum 7 = TestLogTypeMinResult - toEnum 8 = TestLogTypeMaxResult - toEnum 9 = TestLogTypeMessage - toEnum 10 = TestLogTypeStartSuite - toEnum 11 = TestLogTypeStopSuite - toEnum k = AnotherTestLogType k - --- Enum TestFileType - -data TestFileType = - TestFileTypeDist - | TestFileTypeBuilt - | AnotherTestFileType Int - deriving (Show, Eq) - -instance Enum TestFileType where - fromEnum TestFileTypeDist = 0 - fromEnum TestFileTypeBuilt = 1 - fromEnum (AnotherTestFileType k) = k - - toEnum 0 = TestFileTypeDist - toEnum 1 = TestFileTypeBuilt - toEnum k = AnotherTestFileType k - --- Enum SpawnError - -data SpawnError = - SpawnErrorFork - | SpawnErrorRead - | SpawnErrorChdir - | SpawnErrorAcces - | SpawnErrorPerm - | SpawnErrorTooBig - | SpawnError2big - | SpawnErrorNoexec - | SpawnErrorNametoolong - | SpawnErrorNoent - | SpawnErrorNomem - | SpawnErrorNotdir - | SpawnErrorLoop - | SpawnErrorTxtbusy - | SpawnErrorIo - | SpawnErrorNfile - | SpawnErrorMfile - | SpawnErrorInval - | SpawnErrorIsdir - | SpawnErrorLibbad - | SpawnErrorFailed - | AnotherSpawnError Int - deriving (Show, Eq) - -instance Enum SpawnError where - fromEnum SpawnErrorFork = 0 - fromEnum SpawnErrorRead = 1 - fromEnum SpawnErrorChdir = 2 - fromEnum SpawnErrorAcces = 3 - fromEnum SpawnErrorPerm = 4 - fromEnum SpawnErrorTooBig = 5 - fromEnum SpawnError2big = 5 - fromEnum SpawnErrorNoexec = 6 - fromEnum SpawnErrorNametoolong = 7 - fromEnum SpawnErrorNoent = 8 - fromEnum SpawnErrorNomem = 9 - fromEnum SpawnErrorNotdir = 10 - fromEnum SpawnErrorLoop = 11 - fromEnum SpawnErrorTxtbusy = 12 - fromEnum SpawnErrorIo = 13 - fromEnum SpawnErrorNfile = 14 - fromEnum SpawnErrorMfile = 15 - fromEnum SpawnErrorInval = 16 - fromEnum SpawnErrorIsdir = 17 - fromEnum SpawnErrorLibbad = 18 - fromEnum SpawnErrorFailed = 19 - fromEnum (AnotherSpawnError k) = k - - toEnum 0 = SpawnErrorFork - toEnum 1 = SpawnErrorRead - toEnum 2 = SpawnErrorChdir - toEnum 3 = SpawnErrorAcces - toEnum 4 = SpawnErrorPerm - toEnum 5 = SpawnErrorTooBig - toEnum 6 = SpawnErrorNoexec - toEnum 7 = SpawnErrorNametoolong - toEnum 8 = SpawnErrorNoent - toEnum 9 = SpawnErrorNomem - toEnum 10 = SpawnErrorNotdir - toEnum 11 = SpawnErrorLoop - toEnum 12 = SpawnErrorTxtbusy - toEnum 13 = SpawnErrorIo - toEnum 14 = SpawnErrorNfile - toEnum 15 = SpawnErrorMfile - toEnum 16 = SpawnErrorInval - toEnum 17 = SpawnErrorIsdir - toEnum 18 = SpawnErrorLibbad - toEnum 19 = SpawnErrorFailed - toEnum k = AnotherSpawnError k - -instance GErrorClass SpawnError where - gerrorClassDomain _ = "g-exec-error-quark" - -catchSpawnError :: - IO a -> - (SpawnError -> GErrorMessage -> IO a) -> - IO a -catchSpawnError = catchGErrorJustDomain - -handleSpawnError :: - (SpawnError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleSpawnError = handleGErrorJustDomain - --- Enum SliceConfig - -data SliceConfig = - SliceConfigAlwaysMalloc - | SliceConfigBypassMagazines - | SliceConfigWorkingSetMsecs - | SliceConfigColorIncrement - | SliceConfigChunkSizes - | SliceConfigContentionCounter - | AnotherSliceConfig Int - deriving (Show, Eq) - -instance Enum SliceConfig where - fromEnum SliceConfigAlwaysMalloc = 1 - fromEnum SliceConfigBypassMagazines = 2 - fromEnum SliceConfigWorkingSetMsecs = 3 - fromEnum SliceConfigColorIncrement = 4 - fromEnum SliceConfigChunkSizes = 5 - fromEnum SliceConfigContentionCounter = 6 - fromEnum (AnotherSliceConfig k) = k - - toEnum 1 = SliceConfigAlwaysMalloc - toEnum 2 = SliceConfigBypassMagazines - toEnum 3 = SliceConfigWorkingSetMsecs - toEnum 4 = SliceConfigColorIncrement - toEnum 5 = SliceConfigChunkSizes - toEnum 6 = SliceConfigContentionCounter - toEnum k = AnotherSliceConfig k - --- Enum ShellError - -data ShellError = - ShellErrorBadQuoting - | ShellErrorEmptyString - | ShellErrorFailed - | AnotherShellError Int - deriving (Show, Eq) - -instance Enum ShellError where - fromEnum ShellErrorBadQuoting = 0 - fromEnum ShellErrorEmptyString = 1 - fromEnum ShellErrorFailed = 2 - fromEnum (AnotherShellError k) = k - - toEnum 0 = ShellErrorBadQuoting - toEnum 1 = ShellErrorEmptyString - toEnum 2 = ShellErrorFailed - toEnum k = AnotherShellError k - -instance GErrorClass ShellError where - gerrorClassDomain _ = "g-shell-error-quark" - -catchShellError :: - IO a -> - (ShellError -> GErrorMessage -> IO a) -> - IO a -catchShellError = catchGErrorJustDomain - -handleShellError :: - (ShellError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleShellError = handleGErrorJustDomain - --- Enum SeekType - -data SeekType = - SeekTypeCur - | SeekTypeSet - | SeekTypeEnd - | AnotherSeekType Int - deriving (Show, Eq) - -instance Enum SeekType where - fromEnum SeekTypeCur = 0 - fromEnum SeekTypeSet = 1 - fromEnum SeekTypeEnd = 2 - fromEnum (AnotherSeekType k) = k - - toEnum 0 = SeekTypeCur - toEnum 1 = SeekTypeSet - toEnum 2 = SeekTypeEnd - toEnum k = AnotherSeekType k - --- Enum RegexError - -data RegexError = - RegexErrorCompile - | RegexErrorOptimize - | RegexErrorReplace - | RegexErrorMatch - | RegexErrorInternal - | RegexErrorStrayBackslash - | RegexErrorMissingControlChar - | RegexErrorUnrecognizedEscape - | RegexErrorQuantifiersOutOfOrder - | RegexErrorQuantifierTooBig - | RegexErrorUnterminatedCharacterClass - | RegexErrorInvalidEscapeInCharacterClass - | RegexErrorRangeOutOfOrder - | RegexErrorNothingToRepeat - | RegexErrorUnrecognizedCharacter - | RegexErrorPosixNamedClassOutsideClass - | RegexErrorUnmatchedParenthesis - | RegexErrorInexistentSubpatternReference - | RegexErrorUnterminatedComment - | RegexErrorExpressionTooLarge - | RegexErrorMemoryError - | RegexErrorVariableLengthLookbehind - | RegexErrorMalformedCondition - | RegexErrorTooManyConditionalBranches - | RegexErrorAssertionExpected - | RegexErrorUnknownPosixClassName - | RegexErrorPosixCollatingElementsNotSupported - | RegexErrorHexCodeTooLarge - | RegexErrorInvalidCondition - | RegexErrorSingleByteMatchInLookbehind - | RegexErrorInfiniteLoop - | RegexErrorMissingSubpatternNameTerminator - | RegexErrorDuplicateSubpatternName - | RegexErrorMalformedProperty - | RegexErrorUnknownProperty - | RegexErrorSubpatternNameTooLong - | RegexErrorTooManySubpatterns - | RegexErrorInvalidOctalValue - | RegexErrorTooManyBranchesInDefine - | RegexErrorDefineRepetion - | RegexErrorInconsistentNewlineOptions - | RegexErrorMissingBackReference - | RegexErrorInvalidRelativeReference - | RegexErrorBacktrackingControlVerbArgumentForbidden - | RegexErrorUnknownBacktrackingControlVerb - | RegexErrorNumberTooBig - | RegexErrorMissingSubpatternName - | RegexErrorMissingDigit - | RegexErrorInvalidDataCharacter - | RegexErrorExtraSubpatternName - | RegexErrorBacktrackingControlVerbArgumentRequired - | RegexErrorInvalidControlChar - | RegexErrorMissingName - | RegexErrorNotSupportedInClass - | RegexErrorTooManyForwardReferences - | RegexErrorNameTooLong - | RegexErrorCharacterValueTooLarge - | AnotherRegexError Int - deriving (Show, Eq) - -instance Enum RegexError where - fromEnum RegexErrorCompile = 0 - fromEnum RegexErrorOptimize = 1 - fromEnum RegexErrorReplace = 2 - fromEnum RegexErrorMatch = 3 - fromEnum RegexErrorInternal = 4 - fromEnum RegexErrorStrayBackslash = 101 - fromEnum RegexErrorMissingControlChar = 102 - fromEnum RegexErrorUnrecognizedEscape = 103 - fromEnum RegexErrorQuantifiersOutOfOrder = 104 - fromEnum RegexErrorQuantifierTooBig = 105 - fromEnum RegexErrorUnterminatedCharacterClass = 106 - fromEnum RegexErrorInvalidEscapeInCharacterClass = 107 - fromEnum RegexErrorRangeOutOfOrder = 108 - fromEnum RegexErrorNothingToRepeat = 109 - fromEnum RegexErrorUnrecognizedCharacter = 112 - fromEnum RegexErrorPosixNamedClassOutsideClass = 113 - fromEnum RegexErrorUnmatchedParenthesis = 114 - fromEnum RegexErrorInexistentSubpatternReference = 115 - fromEnum RegexErrorUnterminatedComment = 118 - fromEnum RegexErrorExpressionTooLarge = 120 - fromEnum RegexErrorMemoryError = 121 - fromEnum RegexErrorVariableLengthLookbehind = 125 - fromEnum RegexErrorMalformedCondition = 126 - fromEnum RegexErrorTooManyConditionalBranches = 127 - fromEnum RegexErrorAssertionExpected = 128 - fromEnum RegexErrorUnknownPosixClassName = 130 - fromEnum RegexErrorPosixCollatingElementsNotSupported = 131 - fromEnum RegexErrorHexCodeTooLarge = 134 - fromEnum RegexErrorInvalidCondition = 135 - fromEnum RegexErrorSingleByteMatchInLookbehind = 136 - fromEnum RegexErrorInfiniteLoop = 140 - fromEnum RegexErrorMissingSubpatternNameTerminator = 142 - fromEnum RegexErrorDuplicateSubpatternName = 143 - fromEnum RegexErrorMalformedProperty = 146 - fromEnum RegexErrorUnknownProperty = 147 - fromEnum RegexErrorSubpatternNameTooLong = 148 - fromEnum RegexErrorTooManySubpatterns = 149 - fromEnum RegexErrorInvalidOctalValue = 151 - fromEnum RegexErrorTooManyBranchesInDefine = 154 - fromEnum RegexErrorDefineRepetion = 155 - fromEnum RegexErrorInconsistentNewlineOptions = 156 - fromEnum RegexErrorMissingBackReference = 157 - fromEnum RegexErrorInvalidRelativeReference = 158 - fromEnum RegexErrorBacktrackingControlVerbArgumentForbidden = 159 - fromEnum RegexErrorUnknownBacktrackingControlVerb = 160 - fromEnum RegexErrorNumberTooBig = 161 - fromEnum RegexErrorMissingSubpatternName = 162 - fromEnum RegexErrorMissingDigit = 163 - fromEnum RegexErrorInvalidDataCharacter = 164 - fromEnum RegexErrorExtraSubpatternName = 165 - fromEnum RegexErrorBacktrackingControlVerbArgumentRequired = 166 - fromEnum RegexErrorInvalidControlChar = 168 - fromEnum RegexErrorMissingName = 169 - fromEnum RegexErrorNotSupportedInClass = 171 - fromEnum RegexErrorTooManyForwardReferences = 172 - fromEnum RegexErrorNameTooLong = 175 - fromEnum RegexErrorCharacterValueTooLarge = 176 - fromEnum (AnotherRegexError k) = k - - toEnum 0 = RegexErrorCompile - toEnum 1 = RegexErrorOptimize - toEnum 2 = RegexErrorReplace - toEnum 3 = RegexErrorMatch - toEnum 4 = RegexErrorInternal - toEnum 101 = RegexErrorStrayBackslash - toEnum 102 = RegexErrorMissingControlChar - toEnum 103 = RegexErrorUnrecognizedEscape - toEnum 104 = RegexErrorQuantifiersOutOfOrder - toEnum 105 = RegexErrorQuantifierTooBig - toEnum 106 = RegexErrorUnterminatedCharacterClass - toEnum 107 = RegexErrorInvalidEscapeInCharacterClass - toEnum 108 = RegexErrorRangeOutOfOrder - toEnum 109 = RegexErrorNothingToRepeat - toEnum 112 = RegexErrorUnrecognizedCharacter - toEnum 113 = RegexErrorPosixNamedClassOutsideClass - toEnum 114 = RegexErrorUnmatchedParenthesis - toEnum 115 = RegexErrorInexistentSubpatternReference - toEnum 118 = RegexErrorUnterminatedComment - toEnum 120 = RegexErrorExpressionTooLarge - toEnum 121 = RegexErrorMemoryError - toEnum 125 = RegexErrorVariableLengthLookbehind - toEnum 126 = RegexErrorMalformedCondition - toEnum 127 = RegexErrorTooManyConditionalBranches - toEnum 128 = RegexErrorAssertionExpected - toEnum 130 = RegexErrorUnknownPosixClassName - toEnum 131 = RegexErrorPosixCollatingElementsNotSupported - toEnum 134 = RegexErrorHexCodeTooLarge - toEnum 135 = RegexErrorInvalidCondition - toEnum 136 = RegexErrorSingleByteMatchInLookbehind - toEnum 140 = RegexErrorInfiniteLoop - toEnum 142 = RegexErrorMissingSubpatternNameTerminator - toEnum 143 = RegexErrorDuplicateSubpatternName - toEnum 146 = RegexErrorMalformedProperty - toEnum 147 = RegexErrorUnknownProperty - toEnum 148 = RegexErrorSubpatternNameTooLong - toEnum 149 = RegexErrorTooManySubpatterns - toEnum 151 = RegexErrorInvalidOctalValue - toEnum 154 = RegexErrorTooManyBranchesInDefine - toEnum 155 = RegexErrorDefineRepetion - toEnum 156 = RegexErrorInconsistentNewlineOptions - toEnum 157 = RegexErrorMissingBackReference - toEnum 158 = RegexErrorInvalidRelativeReference - toEnum 159 = RegexErrorBacktrackingControlVerbArgumentForbidden - toEnum 160 = RegexErrorUnknownBacktrackingControlVerb - toEnum 161 = RegexErrorNumberTooBig - toEnum 162 = RegexErrorMissingSubpatternName - toEnum 163 = RegexErrorMissingDigit - toEnum 164 = RegexErrorInvalidDataCharacter - toEnum 165 = RegexErrorExtraSubpatternName - toEnum 166 = RegexErrorBacktrackingControlVerbArgumentRequired - toEnum 168 = RegexErrorInvalidControlChar - toEnum 169 = RegexErrorMissingName - toEnum 171 = RegexErrorNotSupportedInClass - toEnum 172 = RegexErrorTooManyForwardReferences - toEnum 175 = RegexErrorNameTooLong - toEnum 176 = RegexErrorCharacterValueTooLarge - toEnum k = AnotherRegexError k - -instance GErrorClass RegexError where - gerrorClassDomain _ = "g-regex-error-quark" - -catchRegexError :: - IO a -> - (RegexError -> GErrorMessage -> IO a) -> - IO a -catchRegexError = catchGErrorJustDomain - -handleRegexError :: - (RegexError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleRegexError = handleGErrorJustDomain - --- Enum OptionError - -data OptionError = - OptionErrorUnknownOption - | OptionErrorBadValue - | OptionErrorFailed - | AnotherOptionError Int - deriving (Show, Eq) - -instance Enum OptionError where - fromEnum OptionErrorUnknownOption = 0 - fromEnum OptionErrorBadValue = 1 - fromEnum OptionErrorFailed = 2 - fromEnum (AnotherOptionError k) = k - - toEnum 0 = OptionErrorUnknownOption - toEnum 1 = OptionErrorBadValue - toEnum 2 = OptionErrorFailed - toEnum k = AnotherOptionError k - -instance GErrorClass OptionError where - gerrorClassDomain _ = "g-option-context-error-quark" - -catchOptionError :: - IO a -> - (OptionError -> GErrorMessage -> IO a) -> - IO a -catchOptionError = catchGErrorJustDomain - -handleOptionError :: - (OptionError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleOptionError = handleGErrorJustDomain - --- Enum OptionArg - -data OptionArg = - OptionArgNone - | OptionArgString - | OptionArgInt - | OptionArgCallback - | OptionArgFilename - | OptionArgStringArray - | OptionArgFilenameArray - | OptionArgDouble - | OptionArgInt64 - | AnotherOptionArg Int - deriving (Show, Eq) - -instance Enum OptionArg where - fromEnum OptionArgNone = 0 - fromEnum OptionArgString = 1 - fromEnum OptionArgInt = 2 - fromEnum OptionArgCallback = 3 - fromEnum OptionArgFilename = 4 - fromEnum OptionArgStringArray = 5 - fromEnum OptionArgFilenameArray = 6 - fromEnum OptionArgDouble = 7 - fromEnum OptionArgInt64 = 8 - fromEnum (AnotherOptionArg k) = k - - toEnum 0 = OptionArgNone - toEnum 1 = OptionArgString - toEnum 2 = OptionArgInt - toEnum 3 = OptionArgCallback - toEnum 4 = OptionArgFilename - toEnum 5 = OptionArgStringArray - toEnum 6 = OptionArgFilenameArray - toEnum 7 = OptionArgDouble - toEnum 8 = OptionArgInt64 - toEnum k = AnotherOptionArg k - --- Enum OnceStatus - -data OnceStatus = - OnceStatusNotcalled - | OnceStatusProgress - | OnceStatusReady - | AnotherOnceStatus Int - deriving (Show, Eq) - -instance Enum OnceStatus where - fromEnum OnceStatusNotcalled = 0 - fromEnum OnceStatusProgress = 1 - fromEnum OnceStatusReady = 2 - fromEnum (AnotherOnceStatus k) = k - - toEnum 0 = OnceStatusNotcalled - toEnum 1 = OnceStatusProgress - toEnum 2 = OnceStatusReady - toEnum k = AnotherOnceStatus k - --- Enum NormalizeMode - -data NormalizeMode = - NormalizeModeDefault - | NormalizeModeNfd - | NormalizeModeDefaultCompose - | NormalizeModeNfc - | NormalizeModeAll - | NormalizeModeNfkd - | NormalizeModeAllCompose - | NormalizeModeNfkc - | AnotherNormalizeMode Int - deriving (Show, Eq) - -instance Enum NormalizeMode where - fromEnum NormalizeModeDefault = 0 - fromEnum NormalizeModeNfd = 0 - fromEnum NormalizeModeDefaultCompose = 1 - fromEnum NormalizeModeNfc = 1 - fromEnum NormalizeModeAll = 2 - fromEnum NormalizeModeNfkd = 2 - fromEnum NormalizeModeAllCompose = 3 - fromEnum NormalizeModeNfkc = 3 - fromEnum (AnotherNormalizeMode k) = k - - toEnum 0 = NormalizeModeDefault - toEnum 1 = NormalizeModeDefaultCompose - toEnum 2 = NormalizeModeAll - toEnum 3 = NormalizeModeAllCompose - toEnum k = AnotherNormalizeMode k - --- Enum MarkupError - -data MarkupError = - MarkupErrorBadUtf8 - | MarkupErrorEmpty - | MarkupErrorParse - | MarkupErrorUnknownElement - | MarkupErrorUnknownAttribute - | MarkupErrorInvalidContent - | MarkupErrorMissingAttribute - | AnotherMarkupError Int - deriving (Show, Eq) - -instance Enum MarkupError where - fromEnum MarkupErrorBadUtf8 = 0 - fromEnum MarkupErrorEmpty = 1 - fromEnum MarkupErrorParse = 2 - fromEnum MarkupErrorUnknownElement = 3 - fromEnum MarkupErrorUnknownAttribute = 4 - fromEnum MarkupErrorInvalidContent = 5 - fromEnum MarkupErrorMissingAttribute = 6 - fromEnum (AnotherMarkupError k) = k - - toEnum 0 = MarkupErrorBadUtf8 - toEnum 1 = MarkupErrorEmpty - toEnum 2 = MarkupErrorParse - toEnum 3 = MarkupErrorUnknownElement - toEnum 4 = MarkupErrorUnknownAttribute - toEnum 5 = MarkupErrorInvalidContent - toEnum 6 = MarkupErrorMissingAttribute - toEnum k = AnotherMarkupError k - -instance GErrorClass MarkupError where - gerrorClassDomain _ = "g-markup-error-quark" - -catchMarkupError :: - IO a -> - (MarkupError -> GErrorMessage -> IO a) -> - IO a -catchMarkupError = catchGErrorJustDomain - -handleMarkupError :: - (MarkupError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleMarkupError = handleGErrorJustDomain - --- Enum KeyFileError - -data KeyFileError = - KeyFileErrorUnknownEncoding - | KeyFileErrorParse - | KeyFileErrorNotFound - | KeyFileErrorKeyNotFound - | KeyFileErrorGroupNotFound - | KeyFileErrorInvalidValue - | AnotherKeyFileError Int - deriving (Show, Eq) - -instance Enum KeyFileError where - fromEnum KeyFileErrorUnknownEncoding = 0 - fromEnum KeyFileErrorParse = 1 - fromEnum KeyFileErrorNotFound = 2 - fromEnum KeyFileErrorKeyNotFound = 3 - fromEnum KeyFileErrorGroupNotFound = 4 - fromEnum KeyFileErrorInvalidValue = 5 - fromEnum (AnotherKeyFileError k) = k - - toEnum 0 = KeyFileErrorUnknownEncoding - toEnum 1 = KeyFileErrorParse - toEnum 2 = KeyFileErrorNotFound - toEnum 3 = KeyFileErrorKeyNotFound - toEnum 4 = KeyFileErrorGroupNotFound - toEnum 5 = KeyFileErrorInvalidValue - toEnum k = AnotherKeyFileError k - -instance GErrorClass KeyFileError where - gerrorClassDomain _ = "g-key-file-error-quark" - -catchKeyFileError :: - IO a -> - (KeyFileError -> GErrorMessage -> IO a) -> - IO a -catchKeyFileError = catchGErrorJustDomain - -handleKeyFileError :: - (KeyFileError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleKeyFileError = handleGErrorJustDomain - --- Enum IOStatus - -data IOStatus = - IOStatusError - | IOStatusNormal - | IOStatusEof - | IOStatusAgain - | AnotherIOStatus Int - deriving (Show, Eq) - -instance Enum IOStatus where - fromEnum IOStatusError = 0 - fromEnum IOStatusNormal = 1 - fromEnum IOStatusEof = 2 - fromEnum IOStatusAgain = 3 - fromEnum (AnotherIOStatus k) = k - - toEnum 0 = IOStatusError - toEnum 1 = IOStatusNormal - toEnum 2 = IOStatusEof - toEnum 3 = IOStatusAgain - toEnum k = AnotherIOStatus k - --- Enum IOError - -data IOError = - IOErrorNone - | IOErrorAgain - | IOErrorInval - | IOErrorUnknown - | AnotherIOError Int - deriving (Show, Eq) - -instance Enum IOError where - fromEnum IOErrorNone = 0 - fromEnum IOErrorAgain = 1 - fromEnum IOErrorInval = 2 - fromEnum IOErrorUnknown = 3 - fromEnum (AnotherIOError k) = k - - toEnum 0 = IOErrorNone - toEnum 1 = IOErrorAgain - toEnum 2 = IOErrorInval - toEnum 3 = IOErrorUnknown - toEnum k = AnotherIOError k - --- Enum IOChannelError - -data IOChannelError = - IOChannelErrorFbig - | IOChannelErrorInval - | IOChannelErrorIo - | IOChannelErrorIsdir - | IOChannelErrorNospc - | IOChannelErrorNxio - | IOChannelErrorOverflow - | IOChannelErrorPipe - | IOChannelErrorFailed - | AnotherIOChannelError Int - deriving (Show, Eq) - -instance Enum IOChannelError where - fromEnum IOChannelErrorFbig = 0 - fromEnum IOChannelErrorInval = 1 - fromEnum IOChannelErrorIo = 2 - fromEnum IOChannelErrorIsdir = 3 - fromEnum IOChannelErrorNospc = 4 - fromEnum IOChannelErrorNxio = 5 - fromEnum IOChannelErrorOverflow = 6 - fromEnum IOChannelErrorPipe = 7 - fromEnum IOChannelErrorFailed = 8 - fromEnum (AnotherIOChannelError k) = k - - toEnum 0 = IOChannelErrorFbig - toEnum 1 = IOChannelErrorInval - toEnum 2 = IOChannelErrorIo - toEnum 3 = IOChannelErrorIsdir - toEnum 4 = IOChannelErrorNospc - toEnum 5 = IOChannelErrorNxio - toEnum 6 = IOChannelErrorOverflow - toEnum 7 = IOChannelErrorPipe - toEnum 8 = IOChannelErrorFailed - toEnum k = AnotherIOChannelError k - -instance GErrorClass IOChannelError where - gerrorClassDomain _ = "g-io-channel-error-quark" - -catchIOChannelError :: - IO a -> - (IOChannelError -> GErrorMessage -> IO a) -> - IO a -catchIOChannelError = catchGErrorJustDomain - -handleIOChannelError :: - (IOChannelError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleIOChannelError = handleGErrorJustDomain - --- Enum FileError - -data FileError = - FileErrorExist - | FileErrorIsdir - | FileErrorAcces - | FileErrorNametoolong - | FileErrorNoent - | FileErrorNotdir - | FileErrorNxio - | FileErrorNodev - | FileErrorRofs - | FileErrorTxtbsy - | FileErrorFault - | FileErrorLoop - | FileErrorNospc - | FileErrorNomem - | FileErrorMfile - | FileErrorNfile - | FileErrorBadf - | FileErrorInval - | FileErrorPipe - | FileErrorAgain - | FileErrorIntr - | FileErrorIo - | FileErrorPerm - | FileErrorNosys - | FileErrorFailed - | AnotherFileError Int - deriving (Show, Eq) - -instance Enum FileError where - fromEnum FileErrorExist = 0 - fromEnum FileErrorIsdir = 1 - fromEnum FileErrorAcces = 2 - fromEnum FileErrorNametoolong = 3 - fromEnum FileErrorNoent = 4 - fromEnum FileErrorNotdir = 5 - fromEnum FileErrorNxio = 6 - fromEnum FileErrorNodev = 7 - fromEnum FileErrorRofs = 8 - fromEnum FileErrorTxtbsy = 9 - fromEnum FileErrorFault = 10 - fromEnum FileErrorLoop = 11 - fromEnum FileErrorNospc = 12 - fromEnum FileErrorNomem = 13 - fromEnum FileErrorMfile = 14 - fromEnum FileErrorNfile = 15 - fromEnum FileErrorBadf = 16 - fromEnum FileErrorInval = 17 - fromEnum FileErrorPipe = 18 - fromEnum FileErrorAgain = 19 - fromEnum FileErrorIntr = 20 - fromEnum FileErrorIo = 21 - fromEnum FileErrorPerm = 22 - fromEnum FileErrorNosys = 23 - fromEnum FileErrorFailed = 24 - fromEnum (AnotherFileError k) = k - - toEnum 0 = FileErrorExist - toEnum 1 = FileErrorIsdir - toEnum 2 = FileErrorAcces - toEnum 3 = FileErrorNametoolong - toEnum 4 = FileErrorNoent - toEnum 5 = FileErrorNotdir - toEnum 6 = FileErrorNxio - toEnum 7 = FileErrorNodev - toEnum 8 = FileErrorRofs - toEnum 9 = FileErrorTxtbsy - toEnum 10 = FileErrorFault - toEnum 11 = FileErrorLoop - toEnum 12 = FileErrorNospc - toEnum 13 = FileErrorNomem - toEnum 14 = FileErrorMfile - toEnum 15 = FileErrorNfile - toEnum 16 = FileErrorBadf - toEnum 17 = FileErrorInval - toEnum 18 = FileErrorPipe - toEnum 19 = FileErrorAgain - toEnum 20 = FileErrorIntr - toEnum 21 = FileErrorIo - toEnum 22 = FileErrorPerm - toEnum 23 = FileErrorNosys - toEnum 24 = FileErrorFailed - toEnum k = AnotherFileError k - -instance GErrorClass FileError where - gerrorClassDomain _ = "g-file-error-quark" - -catchFileError :: - IO a -> - (FileError -> GErrorMessage -> IO a) -> - IO a -catchFileError = catchGErrorJustDomain - -handleFileError :: - (FileError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleFileError = handleGErrorJustDomain - --- Enum ErrorType - -data ErrorType = - ErrorTypeUnknown - | ErrorTypeUnexpEof - | ErrorTypeUnexpEofInString - | ErrorTypeUnexpEofInComment - | ErrorTypeNonDigitInConst - | ErrorTypeDigitRadix - | ErrorTypeFloatRadix - | ErrorTypeFloatMalformed - | AnotherErrorType Int - deriving (Show, Eq) - -instance Enum ErrorType where - fromEnum ErrorTypeUnknown = 0 - fromEnum ErrorTypeUnexpEof = 1 - fromEnum ErrorTypeUnexpEofInString = 2 - fromEnum ErrorTypeUnexpEofInComment = 3 - fromEnum ErrorTypeNonDigitInConst = 4 - fromEnum ErrorTypeDigitRadix = 5 - fromEnum ErrorTypeFloatRadix = 6 - fromEnum ErrorTypeFloatMalformed = 7 - fromEnum (AnotherErrorType k) = k - - toEnum 0 = ErrorTypeUnknown - toEnum 1 = ErrorTypeUnexpEof - toEnum 2 = ErrorTypeUnexpEofInString - toEnum 3 = ErrorTypeUnexpEofInComment - toEnum 4 = ErrorTypeNonDigitInConst - toEnum 5 = ErrorTypeDigitRadix - toEnum 6 = ErrorTypeFloatRadix - toEnum 7 = ErrorTypeFloatMalformed - toEnum k = AnotherErrorType k - --- Enum DateWeekday - -data DateWeekday = - DateWeekdayBadWeekday - | DateWeekdayMonday - | DateWeekdayTuesday - | DateWeekdayWednesday - | DateWeekdayThursday - | DateWeekdayFriday - | DateWeekdaySaturday - | DateWeekdaySunday - | AnotherDateWeekday Int - deriving (Show, Eq) - -instance Enum DateWeekday where - fromEnum DateWeekdayBadWeekday = 0 - fromEnum DateWeekdayMonday = 1 - fromEnum DateWeekdayTuesday = 2 - fromEnum DateWeekdayWednesday = 3 - fromEnum DateWeekdayThursday = 4 - fromEnum DateWeekdayFriday = 5 - fromEnum DateWeekdaySaturday = 6 - fromEnum DateWeekdaySunday = 7 - fromEnum (AnotherDateWeekday k) = k - - toEnum 0 = DateWeekdayBadWeekday - toEnum 1 = DateWeekdayMonday - toEnum 2 = DateWeekdayTuesday - toEnum 3 = DateWeekdayWednesday - toEnum 4 = DateWeekdayThursday - toEnum 5 = DateWeekdayFriday - toEnum 6 = DateWeekdaySaturday - toEnum 7 = DateWeekdaySunday - toEnum k = AnotherDateWeekday k - --- Enum DateMonth - -data DateMonth = - DateMonthBadMonth - | DateMonthJanuary - | DateMonthFebruary - | DateMonthMarch - | DateMonthApril - | DateMonthMay - | DateMonthJune - | DateMonthJuly - | DateMonthAugust - | DateMonthSeptember - | DateMonthOctober - | DateMonthNovember - | DateMonthDecember - | AnotherDateMonth Int - deriving (Show, Eq) - -instance Enum DateMonth where - fromEnum DateMonthBadMonth = 0 - fromEnum DateMonthJanuary = 1 - fromEnum DateMonthFebruary = 2 - fromEnum DateMonthMarch = 3 - fromEnum DateMonthApril = 4 - fromEnum DateMonthMay = 5 - fromEnum DateMonthJune = 6 - fromEnum DateMonthJuly = 7 - fromEnum DateMonthAugust = 8 - fromEnum DateMonthSeptember = 9 - fromEnum DateMonthOctober = 10 - fromEnum DateMonthNovember = 11 - fromEnum DateMonthDecember = 12 - fromEnum (AnotherDateMonth k) = k - - toEnum 0 = DateMonthBadMonth - toEnum 1 = DateMonthJanuary - toEnum 2 = DateMonthFebruary - toEnum 3 = DateMonthMarch - toEnum 4 = DateMonthApril - toEnum 5 = DateMonthMay - toEnum 6 = DateMonthJune - toEnum 7 = DateMonthJuly - toEnum 8 = DateMonthAugust - toEnum 9 = DateMonthSeptember - toEnum 10 = DateMonthOctober - toEnum 11 = DateMonthNovember - toEnum 12 = DateMonthDecember - toEnum k = AnotherDateMonth k - --- Enum DateDMY - -data DateDMY = - DateDMYDay - | DateDMYMonth - | DateDMYYear - | AnotherDateDMY Int - deriving (Show, Eq) - -instance Enum DateDMY where - fromEnum DateDMYDay = 0 - fromEnum DateDMYMonth = 1 - fromEnum DateDMYYear = 2 - fromEnum (AnotherDateDMY k) = k - - toEnum 0 = DateDMYDay - toEnum 1 = DateDMYMonth - toEnum 2 = DateDMYYear - toEnum k = AnotherDateDMY k - --- Enum ConvertError - -data ConvertError = - ConvertErrorNoConversion - | ConvertErrorIllegalSequence - | ConvertErrorFailed - | ConvertErrorPartialInput - | ConvertErrorBadUri - | ConvertErrorNotAbsolutePath - | ConvertErrorNoMemory - | AnotherConvertError Int - deriving (Show, Eq) - -instance Enum ConvertError where - fromEnum ConvertErrorNoConversion = 0 - fromEnum ConvertErrorIllegalSequence = 1 - fromEnum ConvertErrorFailed = 2 - fromEnum ConvertErrorPartialInput = 3 - fromEnum ConvertErrorBadUri = 4 - fromEnum ConvertErrorNotAbsolutePath = 5 - fromEnum ConvertErrorNoMemory = 6 - fromEnum (AnotherConvertError k) = k - - toEnum 0 = ConvertErrorNoConversion - toEnum 1 = ConvertErrorIllegalSequence - toEnum 2 = ConvertErrorFailed - toEnum 3 = ConvertErrorPartialInput - toEnum 4 = ConvertErrorBadUri - toEnum 5 = ConvertErrorNotAbsolutePath - toEnum 6 = ConvertErrorNoMemory - toEnum k = AnotherConvertError k - -instance GErrorClass ConvertError where - gerrorClassDomain _ = "g_convert_error" - -catchConvertError :: - IO a -> - (ConvertError -> GErrorMessage -> IO a) -> - IO a -catchConvertError = catchGErrorJustDomain - -handleConvertError :: - (ConvertError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleConvertError = handleGErrorJustDomain - --- Enum ChecksumType - -data ChecksumType = - ChecksumTypeMd5 - | ChecksumTypeSha1 - | ChecksumTypeSha256 - | ChecksumTypeSha512 - | AnotherChecksumType Int - deriving (Show, Eq) - -instance Enum ChecksumType where - fromEnum ChecksumTypeMd5 = 0 - fromEnum ChecksumTypeSha1 = 1 - fromEnum ChecksumTypeSha256 = 2 - fromEnum ChecksumTypeSha512 = 3 - fromEnum (AnotherChecksumType k) = k - - toEnum 0 = ChecksumTypeMd5 - toEnum 1 = ChecksumTypeSha1 - toEnum 2 = ChecksumTypeSha256 - toEnum 3 = ChecksumTypeSha512 - toEnum k = AnotherChecksumType k - --- Enum BookmarkFileError - -data BookmarkFileError = - BookmarkFileErrorInvalidUri - | BookmarkFileErrorInvalidValue - | BookmarkFileErrorAppNotRegistered - | BookmarkFileErrorUriNotFound - | BookmarkFileErrorRead - | BookmarkFileErrorUnknownEncoding - | BookmarkFileErrorWrite - | BookmarkFileErrorFileNotFound - | AnotherBookmarkFileError Int - deriving (Show, Eq) - -instance Enum BookmarkFileError where - fromEnum BookmarkFileErrorInvalidUri = 0 - fromEnum BookmarkFileErrorInvalidValue = 1 - fromEnum BookmarkFileErrorAppNotRegistered = 2 - fromEnum BookmarkFileErrorUriNotFound = 3 - fromEnum BookmarkFileErrorRead = 4 - fromEnum BookmarkFileErrorUnknownEncoding = 5 - fromEnum BookmarkFileErrorWrite = 6 - fromEnum BookmarkFileErrorFileNotFound = 7 - fromEnum (AnotherBookmarkFileError k) = k - - toEnum 0 = BookmarkFileErrorInvalidUri - toEnum 1 = BookmarkFileErrorInvalidValue - toEnum 2 = BookmarkFileErrorAppNotRegistered - toEnum 3 = BookmarkFileErrorUriNotFound - toEnum 4 = BookmarkFileErrorRead - toEnum 5 = BookmarkFileErrorUnknownEncoding - toEnum 6 = BookmarkFileErrorWrite - toEnum 7 = BookmarkFileErrorFileNotFound - toEnum k = AnotherBookmarkFileError k - -instance GErrorClass BookmarkFileError where - gerrorClassDomain _ = "g-bookmark-file-error-quark" - -catchBookmarkFileError :: - IO a -> - (BookmarkFileError -> GErrorMessage -> IO a) -> - IO a -catchBookmarkFileError = catchGErrorJustDomain - -handleBookmarkFileError :: - (BookmarkFileError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleBookmarkFileError = handleGErrorJustDomain - - diff --git a/GI/GLib/Flags.hs b/GI/GLib/Flags.hs deleted file mode 100644 --- a/GI/GLib/Flags.hs +++ /dev/null @@ -1,630 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.GLib.Flags - ( - --- * Exported types - TraverseFlags(..) , - TestTrapFlags(..) , - TestSubprocessFlags(..) , - SpawnFlags(..) , - RegexMatchFlags(..) , - RegexCompileFlags(..) , - OptionFlags(..) , - MarkupParseFlags(..) , - MarkupCollectType(..) , - LogLevelFlags(..) , - KeyFileFlags(..) , - IOFlags(..) , - IOCondition(..) , - HookFlagMask(..) , - FormatSizeFlags(..) , - FileTest(..) , - AsciiType(..) , - - - ) 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 - - - - --- Flags TraverseFlags - -data TraverseFlags = - TraverseFlagsLeaves - | TraverseFlagsNonLeaves - | TraverseFlagsAll - | TraverseFlagsMask - | TraverseFlagsLeafs - | TraverseFlagsNonLeafs - | AnotherTraverseFlags Int - deriving (Show, Eq) - -instance Enum TraverseFlags where - fromEnum TraverseFlagsLeaves = 1 - fromEnum TraverseFlagsNonLeaves = 2 - fromEnum TraverseFlagsAll = 3 - fromEnum TraverseFlagsMask = 3 - fromEnum TraverseFlagsLeafs = 1 - fromEnum TraverseFlagsNonLeafs = 2 - fromEnum (AnotherTraverseFlags k) = k - - toEnum 1 = TraverseFlagsLeaves - toEnum 2 = TraverseFlagsNonLeaves - toEnum 3 = TraverseFlagsAll - toEnum k = AnotherTraverseFlags k - -instance IsGFlag TraverseFlags - --- Flags TestTrapFlags -{-# DEPRECATED TestTrapFlags ["#GTestTrapFlags is used only with g_test_trap_fork(),","which is deprecated. g_test_trap_subprocess() uses","#GTestTrapSubprocessFlags."]#-} -data TestTrapFlags = - TestTrapFlagsSilenceStdout - | TestTrapFlagsSilenceStderr - | TestTrapFlagsInheritStdin - | AnotherTestTrapFlags Int - deriving (Show, Eq) - -instance Enum TestTrapFlags where - fromEnum TestTrapFlagsSilenceStdout = 128 - fromEnum TestTrapFlagsSilenceStderr = 256 - fromEnum TestTrapFlagsInheritStdin = 512 - fromEnum (AnotherTestTrapFlags k) = k - - toEnum 128 = TestTrapFlagsSilenceStdout - toEnum 256 = TestTrapFlagsSilenceStderr - toEnum 512 = TestTrapFlagsInheritStdin - toEnum k = AnotherTestTrapFlags k - -instance IsGFlag TestTrapFlags - --- Flags TestSubprocessFlags - -data TestSubprocessFlags = - TestSubprocessFlagsStdin - | TestSubprocessFlagsStdout - | TestSubprocessFlagsStderr - | AnotherTestSubprocessFlags Int - deriving (Show, Eq) - -instance Enum TestSubprocessFlags where - fromEnum TestSubprocessFlagsStdin = 1 - fromEnum TestSubprocessFlagsStdout = 2 - fromEnum TestSubprocessFlagsStderr = 4 - fromEnum (AnotherTestSubprocessFlags k) = k - - toEnum 1 = TestSubprocessFlagsStdin - toEnum 2 = TestSubprocessFlagsStdout - toEnum 4 = TestSubprocessFlagsStderr - toEnum k = AnotherTestSubprocessFlags k - -instance IsGFlag TestSubprocessFlags - --- Flags SpawnFlags - -data SpawnFlags = - SpawnFlagsDefault - | SpawnFlagsLeaveDescriptorsOpen - | SpawnFlagsDoNotReapChild - | SpawnFlagsSearchPath - | SpawnFlagsStdoutToDevNull - | SpawnFlagsStderrToDevNull - | SpawnFlagsChildInheritsStdin - | SpawnFlagsFileAndArgvZero - | SpawnFlagsSearchPathFromEnvp - | SpawnFlagsCloexecPipes - | AnotherSpawnFlags Int - deriving (Show, Eq) - -instance Enum SpawnFlags where - fromEnum SpawnFlagsDefault = 0 - fromEnum SpawnFlagsLeaveDescriptorsOpen = 1 - fromEnum SpawnFlagsDoNotReapChild = 2 - fromEnum SpawnFlagsSearchPath = 4 - fromEnum SpawnFlagsStdoutToDevNull = 8 - fromEnum SpawnFlagsStderrToDevNull = 16 - fromEnum SpawnFlagsChildInheritsStdin = 32 - fromEnum SpawnFlagsFileAndArgvZero = 64 - fromEnum SpawnFlagsSearchPathFromEnvp = 128 - fromEnum SpawnFlagsCloexecPipes = 256 - fromEnum (AnotherSpawnFlags k) = k - - toEnum 0 = SpawnFlagsDefault - toEnum 1 = SpawnFlagsLeaveDescriptorsOpen - toEnum 2 = SpawnFlagsDoNotReapChild - toEnum 4 = SpawnFlagsSearchPath - toEnum 8 = SpawnFlagsStdoutToDevNull - toEnum 16 = SpawnFlagsStderrToDevNull - toEnum 32 = SpawnFlagsChildInheritsStdin - toEnum 64 = SpawnFlagsFileAndArgvZero - toEnum 128 = SpawnFlagsSearchPathFromEnvp - toEnum 256 = SpawnFlagsCloexecPipes - toEnum k = AnotherSpawnFlags k - -instance IsGFlag SpawnFlags - --- Flags RegexMatchFlags - -data RegexMatchFlags = - RegexMatchFlagsAnchored - | RegexMatchFlagsNotbol - | RegexMatchFlagsNoteol - | RegexMatchFlagsNotempty - | RegexMatchFlagsPartial - | RegexMatchFlagsNewlineCr - | RegexMatchFlagsNewlineLf - | RegexMatchFlagsNewlineCrlf - | RegexMatchFlagsNewlineAny - | RegexMatchFlagsNewlineAnycrlf - | RegexMatchFlagsBsrAnycrlf - | RegexMatchFlagsBsrAny - | RegexMatchFlagsPartialSoft - | RegexMatchFlagsPartialHard - | RegexMatchFlagsNotemptyAtstart - | AnotherRegexMatchFlags Int - deriving (Show, Eq) - -instance Enum RegexMatchFlags where - fromEnum RegexMatchFlagsAnchored = 16 - fromEnum RegexMatchFlagsNotbol = 128 - fromEnum RegexMatchFlagsNoteol = 256 - fromEnum RegexMatchFlagsNotempty = 1024 - fromEnum RegexMatchFlagsPartial = 32768 - fromEnum RegexMatchFlagsNewlineCr = 1048576 - fromEnum RegexMatchFlagsNewlineLf = 2097152 - fromEnum RegexMatchFlagsNewlineCrlf = 3145728 - fromEnum RegexMatchFlagsNewlineAny = 4194304 - fromEnum RegexMatchFlagsNewlineAnycrlf = 5242880 - fromEnum RegexMatchFlagsBsrAnycrlf = 8388608 - fromEnum RegexMatchFlagsBsrAny = 16777216 - fromEnum RegexMatchFlagsPartialSoft = 32768 - fromEnum RegexMatchFlagsPartialHard = 134217728 - fromEnum RegexMatchFlagsNotemptyAtstart = 268435456 - fromEnum (AnotherRegexMatchFlags k) = k - - toEnum 16 = RegexMatchFlagsAnchored - toEnum 128 = RegexMatchFlagsNotbol - toEnum 256 = RegexMatchFlagsNoteol - toEnum 1024 = RegexMatchFlagsNotempty - toEnum 32768 = RegexMatchFlagsPartial - toEnum 1048576 = RegexMatchFlagsNewlineCr - toEnum 2097152 = RegexMatchFlagsNewlineLf - toEnum 3145728 = RegexMatchFlagsNewlineCrlf - toEnum 4194304 = RegexMatchFlagsNewlineAny - toEnum 5242880 = RegexMatchFlagsNewlineAnycrlf - toEnum 8388608 = RegexMatchFlagsBsrAnycrlf - toEnum 16777216 = RegexMatchFlagsBsrAny - toEnum 134217728 = RegexMatchFlagsPartialHard - toEnum 268435456 = RegexMatchFlagsNotemptyAtstart - toEnum k = AnotherRegexMatchFlags k - -instance IsGFlag RegexMatchFlags - --- Flags RegexCompileFlags - -data RegexCompileFlags = - RegexCompileFlagsCaseless - | RegexCompileFlagsMultiline - | RegexCompileFlagsDotall - | RegexCompileFlagsExtended - | RegexCompileFlagsAnchored - | RegexCompileFlagsDollarEndonly - | RegexCompileFlagsUngreedy - | RegexCompileFlagsRaw - | RegexCompileFlagsNoAutoCapture - | RegexCompileFlagsOptimize - | RegexCompileFlagsFirstline - | RegexCompileFlagsDupnames - | RegexCompileFlagsNewlineCr - | RegexCompileFlagsNewlineLf - | RegexCompileFlagsNewlineCrlf - | RegexCompileFlagsNewlineAnycrlf - | RegexCompileFlagsBsrAnycrlf - | RegexCompileFlagsJavascriptCompat - | AnotherRegexCompileFlags Int - deriving (Show, Eq) - -instance Enum RegexCompileFlags where - fromEnum RegexCompileFlagsCaseless = 1 - fromEnum RegexCompileFlagsMultiline = 2 - fromEnum RegexCompileFlagsDotall = 4 - fromEnum RegexCompileFlagsExtended = 8 - fromEnum RegexCompileFlagsAnchored = 16 - fromEnum RegexCompileFlagsDollarEndonly = 32 - fromEnum RegexCompileFlagsUngreedy = 512 - fromEnum RegexCompileFlagsRaw = 2048 - fromEnum RegexCompileFlagsNoAutoCapture = 4096 - fromEnum RegexCompileFlagsOptimize = 8192 - fromEnum RegexCompileFlagsFirstline = 262144 - fromEnum RegexCompileFlagsDupnames = 524288 - fromEnum RegexCompileFlagsNewlineCr = 1048576 - fromEnum RegexCompileFlagsNewlineLf = 2097152 - fromEnum RegexCompileFlagsNewlineCrlf = 3145728 - fromEnum RegexCompileFlagsNewlineAnycrlf = 5242880 - fromEnum RegexCompileFlagsBsrAnycrlf = 8388608 - fromEnum RegexCompileFlagsJavascriptCompat = 33554432 - fromEnum (AnotherRegexCompileFlags k) = k - - toEnum 1 = RegexCompileFlagsCaseless - toEnum 2 = RegexCompileFlagsMultiline - toEnum 4 = RegexCompileFlagsDotall - toEnum 8 = RegexCompileFlagsExtended - toEnum 16 = RegexCompileFlagsAnchored - toEnum 32 = RegexCompileFlagsDollarEndonly - toEnum 512 = RegexCompileFlagsUngreedy - toEnum 2048 = RegexCompileFlagsRaw - toEnum 4096 = RegexCompileFlagsNoAutoCapture - toEnum 8192 = RegexCompileFlagsOptimize - toEnum 262144 = RegexCompileFlagsFirstline - toEnum 524288 = RegexCompileFlagsDupnames - toEnum 1048576 = RegexCompileFlagsNewlineCr - toEnum 2097152 = RegexCompileFlagsNewlineLf - toEnum 3145728 = RegexCompileFlagsNewlineCrlf - toEnum 5242880 = RegexCompileFlagsNewlineAnycrlf - toEnum 8388608 = RegexCompileFlagsBsrAnycrlf - toEnum 33554432 = RegexCompileFlagsJavascriptCompat - toEnum k = AnotherRegexCompileFlags k - -instance IsGFlag RegexCompileFlags - --- Flags OptionFlags - -data OptionFlags = - OptionFlagsNone - | OptionFlagsHidden - | OptionFlagsInMain - | OptionFlagsReverse - | OptionFlagsNoArg - | OptionFlagsFilename - | OptionFlagsOptionalArg - | OptionFlagsNoalias - | AnotherOptionFlags Int - deriving (Show, Eq) - -instance Enum OptionFlags where - fromEnum OptionFlagsNone = 0 - fromEnum OptionFlagsHidden = 1 - fromEnum OptionFlagsInMain = 2 - fromEnum OptionFlagsReverse = 4 - fromEnum OptionFlagsNoArg = 8 - fromEnum OptionFlagsFilename = 16 - fromEnum OptionFlagsOptionalArg = 32 - fromEnum OptionFlagsNoalias = 64 - fromEnum (AnotherOptionFlags k) = k - - toEnum 0 = OptionFlagsNone - toEnum 1 = OptionFlagsHidden - toEnum 2 = OptionFlagsInMain - toEnum 4 = OptionFlagsReverse - toEnum 8 = OptionFlagsNoArg - toEnum 16 = OptionFlagsFilename - toEnum 32 = OptionFlagsOptionalArg - toEnum 64 = OptionFlagsNoalias - toEnum k = AnotherOptionFlags k - -instance IsGFlag OptionFlags - --- Flags MarkupParseFlags - -data MarkupParseFlags = - MarkupParseFlagsDoNotUseThisUnsupportedFlag - | MarkupParseFlagsTreatCdataAsText - | MarkupParseFlagsPrefixErrorPosition - | MarkupParseFlagsIgnoreQualified - | AnotherMarkupParseFlags Int - deriving (Show, Eq) - -instance Enum MarkupParseFlags where - fromEnum MarkupParseFlagsDoNotUseThisUnsupportedFlag = 1 - fromEnum MarkupParseFlagsTreatCdataAsText = 2 - fromEnum MarkupParseFlagsPrefixErrorPosition = 4 - fromEnum MarkupParseFlagsIgnoreQualified = 8 - fromEnum (AnotherMarkupParseFlags k) = k - - toEnum 1 = MarkupParseFlagsDoNotUseThisUnsupportedFlag - toEnum 2 = MarkupParseFlagsTreatCdataAsText - toEnum 4 = MarkupParseFlagsPrefixErrorPosition - toEnum 8 = MarkupParseFlagsIgnoreQualified - toEnum k = AnotherMarkupParseFlags k - -instance IsGFlag MarkupParseFlags - --- Flags MarkupCollectType - -data MarkupCollectType = - MarkupCollectTypeInvalid - | MarkupCollectTypeString - | MarkupCollectTypeStrdup - | MarkupCollectTypeBoolean - | MarkupCollectTypeTristate - | MarkupCollectTypeOptional - | AnotherMarkupCollectType Int - deriving (Show, Eq) - -instance Enum MarkupCollectType where - fromEnum MarkupCollectTypeInvalid = 0 - fromEnum MarkupCollectTypeString = 1 - fromEnum MarkupCollectTypeStrdup = 2 - fromEnum MarkupCollectTypeBoolean = 3 - fromEnum MarkupCollectTypeTristate = 4 - fromEnum MarkupCollectTypeOptional = 65536 - fromEnum (AnotherMarkupCollectType k) = k - - toEnum 0 = MarkupCollectTypeInvalid - toEnum 1 = MarkupCollectTypeString - toEnum 2 = MarkupCollectTypeStrdup - toEnum 3 = MarkupCollectTypeBoolean - toEnum 4 = MarkupCollectTypeTristate - toEnum 65536 = MarkupCollectTypeOptional - toEnum k = AnotherMarkupCollectType k - -instance IsGFlag MarkupCollectType - --- Flags LogLevelFlags - -data LogLevelFlags = - LogLevelFlagsFlagRecursion - | LogLevelFlagsFlagFatal - | LogLevelFlagsLevelError - | LogLevelFlagsLevelCritical - | LogLevelFlagsLevelWarning - | LogLevelFlagsLevelMessage - | LogLevelFlagsLevelInfo - | LogLevelFlagsLevelDebug - | LogLevelFlagsLevelMask - | AnotherLogLevelFlags Int - deriving (Show, Eq) - -instance Enum LogLevelFlags where - fromEnum LogLevelFlagsFlagRecursion = 1 - fromEnum LogLevelFlagsFlagFatal = 2 - fromEnum LogLevelFlagsLevelError = 4 - fromEnum LogLevelFlagsLevelCritical = 8 - fromEnum LogLevelFlagsLevelWarning = 16 - fromEnum LogLevelFlagsLevelMessage = 32 - fromEnum LogLevelFlagsLevelInfo = 64 - fromEnum LogLevelFlagsLevelDebug = 128 - fromEnum LogLevelFlagsLevelMask = -4 - fromEnum (AnotherLogLevelFlags k) = k - - toEnum -4 = LogLevelFlagsLevelMask - toEnum 1 = LogLevelFlagsFlagRecursion - toEnum 2 = LogLevelFlagsFlagFatal - toEnum 4 = LogLevelFlagsLevelError - toEnum 8 = LogLevelFlagsLevelCritical - toEnum 16 = LogLevelFlagsLevelWarning - toEnum 32 = LogLevelFlagsLevelMessage - toEnum 64 = LogLevelFlagsLevelInfo - toEnum 128 = LogLevelFlagsLevelDebug - toEnum k = AnotherLogLevelFlags k - -instance IsGFlag LogLevelFlags - --- Flags KeyFileFlags - -data KeyFileFlags = - KeyFileFlagsNone - | KeyFileFlagsKeepComments - | KeyFileFlagsKeepTranslations - | AnotherKeyFileFlags Int - deriving (Show, Eq) - -instance Enum KeyFileFlags where - fromEnum KeyFileFlagsNone = 0 - fromEnum KeyFileFlagsKeepComments = 1 - fromEnum KeyFileFlagsKeepTranslations = 2 - fromEnum (AnotherKeyFileFlags k) = k - - toEnum 0 = KeyFileFlagsNone - toEnum 1 = KeyFileFlagsKeepComments - toEnum 2 = KeyFileFlagsKeepTranslations - toEnum k = AnotherKeyFileFlags k - -instance IsGFlag KeyFileFlags - --- Flags IOFlags - -data IOFlags = - IOFlagsAppend - | IOFlagsNonblock - | IOFlagsIsReadable - | IOFlagsIsWritable - | IOFlagsIsWriteable - | IOFlagsIsSeekable - | IOFlagsMask - | IOFlagsGetMask - | IOFlagsSetMask - | AnotherIOFlags Int - deriving (Show, Eq) - -instance Enum IOFlags where - fromEnum IOFlagsAppend = 1 - fromEnum IOFlagsNonblock = 2 - fromEnum IOFlagsIsReadable = 4 - fromEnum IOFlagsIsWritable = 8 - fromEnum IOFlagsIsWriteable = 8 - fromEnum IOFlagsIsSeekable = 16 - fromEnum IOFlagsMask = 31 - fromEnum IOFlagsGetMask = 31 - fromEnum IOFlagsSetMask = 3 - fromEnum (AnotherIOFlags k) = k - - toEnum 1 = IOFlagsAppend - toEnum 2 = IOFlagsNonblock - toEnum 3 = IOFlagsSetMask - toEnum 4 = IOFlagsIsReadable - toEnum 8 = IOFlagsIsWritable - toEnum 16 = IOFlagsIsSeekable - toEnum 31 = IOFlagsMask - toEnum k = AnotherIOFlags k - -instance IsGFlag IOFlags - --- Flags IOCondition - -data IOCondition = - IOConditionIn - | IOConditionOut - | IOConditionPri - | IOConditionErr - | IOConditionHup - | IOConditionNval - | AnotherIOCondition Int - deriving (Show, Eq) - -instance Enum IOCondition where - fromEnum IOConditionIn = 1 - fromEnum IOConditionOut = 4 - fromEnum IOConditionPri = 2 - fromEnum IOConditionErr = 8 - fromEnum IOConditionHup = 16 - fromEnum IOConditionNval = 32 - fromEnum (AnotherIOCondition k) = k - - toEnum 1 = IOConditionIn - toEnum 2 = IOConditionPri - toEnum 4 = IOConditionOut - toEnum 8 = IOConditionErr - toEnum 16 = IOConditionHup - toEnum 32 = IOConditionNval - toEnum k = AnotherIOCondition k - -foreign import ccall "g_io_condition_get_type" c_g_io_condition_get_type :: - IO GType - -instance BoxedEnum IOCondition where - boxedEnumType _ = c_g_io_condition_get_type - -instance IsGFlag IOCondition - --- Flags HookFlagMask - -data HookFlagMask = - HookFlagMaskActive - | HookFlagMaskInCall - | HookFlagMaskMask - | AnotherHookFlagMask Int - deriving (Show, Eq) - -instance Enum HookFlagMask where - fromEnum HookFlagMaskActive = 1 - fromEnum HookFlagMaskInCall = 2 - fromEnum HookFlagMaskMask = 15 - fromEnum (AnotherHookFlagMask k) = k - - toEnum 1 = HookFlagMaskActive - toEnum 2 = HookFlagMaskInCall - toEnum 15 = HookFlagMaskMask - toEnum k = AnotherHookFlagMask k - -instance IsGFlag HookFlagMask - --- Flags FormatSizeFlags - -data FormatSizeFlags = - FormatSizeFlagsDefault - | FormatSizeFlagsLongFormat - | FormatSizeFlagsIecUnits - | AnotherFormatSizeFlags Int - deriving (Show, Eq) - -instance Enum FormatSizeFlags where - fromEnum FormatSizeFlagsDefault = 0 - fromEnum FormatSizeFlagsLongFormat = 1 - fromEnum FormatSizeFlagsIecUnits = 2 - fromEnum (AnotherFormatSizeFlags k) = k - - toEnum 0 = FormatSizeFlagsDefault - toEnum 1 = FormatSizeFlagsLongFormat - toEnum 2 = FormatSizeFlagsIecUnits - toEnum k = AnotherFormatSizeFlags k - -instance IsGFlag FormatSizeFlags - --- Flags FileTest - -data FileTest = - FileTestIsRegular - | FileTestIsSymlink - | FileTestIsDir - | FileTestIsExecutable - | FileTestExists - | AnotherFileTest Int - deriving (Show, Eq) - -instance Enum FileTest where - fromEnum FileTestIsRegular = 1 - fromEnum FileTestIsSymlink = 2 - fromEnum FileTestIsDir = 4 - fromEnum FileTestIsExecutable = 8 - fromEnum FileTestExists = 16 - fromEnum (AnotherFileTest k) = k - - toEnum 1 = FileTestIsRegular - toEnum 2 = FileTestIsSymlink - toEnum 4 = FileTestIsDir - toEnum 8 = FileTestIsExecutable - toEnum 16 = FileTestExists - toEnum k = AnotherFileTest k - -instance IsGFlag FileTest - --- Flags AsciiType - -data AsciiType = - AsciiTypeAlnum - | AsciiTypeAlpha - | AsciiTypeCntrl - | AsciiTypeDigit - | AsciiTypeGraph - | AsciiTypeLower - | AsciiTypePrint - | AsciiTypePunct - | AsciiTypeSpace - | AsciiTypeUpper - | AsciiTypeXdigit - | AnotherAsciiType Int - deriving (Show, Eq) - -instance Enum AsciiType where - fromEnum AsciiTypeAlnum = 1 - fromEnum AsciiTypeAlpha = 2 - fromEnum AsciiTypeCntrl = 4 - fromEnum AsciiTypeDigit = 8 - fromEnum AsciiTypeGraph = 16 - fromEnum AsciiTypeLower = 32 - fromEnum AsciiTypePrint = 64 - fromEnum AsciiTypePunct = 128 - fromEnum AsciiTypeSpace = 256 - fromEnum AsciiTypeUpper = 512 - fromEnum AsciiTypeXdigit = 1024 - fromEnum (AnotherAsciiType k) = k - - toEnum 1 = AsciiTypeAlnum - toEnum 2 = AsciiTypeAlpha - toEnum 4 = AsciiTypeCntrl - toEnum 8 = AsciiTypeDigit - toEnum 16 = AsciiTypeGraph - toEnum 32 = AsciiTypeLower - toEnum 64 = AsciiTypePrint - toEnum 128 = AsciiTypePunct - toEnum 256 = AsciiTypeSpace - toEnum 512 = AsciiTypeUpper - toEnum 1024 = AsciiTypeXdigit - toEnum k = AnotherAsciiType k - -instance IsGFlag AsciiType - - diff --git a/GI/GLib/Functions.hs b/GI/GLib/Functions.hs deleted file mode 100644 --- a/GI/GLib/Functions.hs +++ /dev/null @@ -1,14276 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.GLib.Functions - ( - - -- * Methods --- ** access - access , - - --- ** asciiDigitValue - asciiDigitValue , - - --- ** asciiDtostr - asciiDtostr , - - --- ** asciiFormatd - asciiFormatd , - - --- ** asciiStrcasecmp - asciiStrcasecmp , - - --- ** asciiStrdown - asciiStrdown , - - --- ** asciiStrncasecmp - asciiStrncasecmp , - - --- ** asciiStrtod - asciiStrtod , - - --- ** asciiStrtoll - asciiStrtoll , - - --- ** asciiStrtoull - asciiStrtoull , - - --- ** asciiStrup - asciiStrup , - - --- ** asciiTolower - asciiTolower , - - --- ** asciiToupper - asciiToupper , - - --- ** asciiXdigitValue - asciiXdigitValue , - - --- ** assertWarning - assertWarning , - - --- ** assertionMessage - assertionMessage , - - --- ** assertionMessageCmpstr - assertionMessageCmpstr , - - --- ** assertionMessageError - assertionMessageError , - - --- ** assertionMessageExpr - assertionMessageExpr , - - --- ** atexit - atexit , - - --- ** atomicIntAdd - atomicIntAdd , - - --- ** atomicIntAnd - atomicIntAnd , - - --- ** atomicIntCompareAndExchange - atomicIntCompareAndExchange , - - --- ** atomicIntDecAndTest - atomicIntDecAndTest , - - --- ** atomicIntExchangeAndAdd - atomicIntExchangeAndAdd , - - --- ** atomicIntGet - atomicIntGet , - - --- ** atomicIntInc - atomicIntInc , - - --- ** atomicIntOr - atomicIntOr , - - --- ** atomicIntSet - atomicIntSet , - - --- ** atomicIntXor - atomicIntXor , - - --- ** atomicPointerAdd - atomicPointerAdd , - - --- ** atomicPointerAnd - atomicPointerAnd , - - --- ** atomicPointerCompareAndExchange - atomicPointerCompareAndExchange , - - --- ** atomicPointerOr - atomicPointerOr , - - --- ** atomicPointerSet - atomicPointerSet , - - --- ** atomicPointerXor - atomicPointerXor , - - --- ** base64Decode - base64Decode , - - --- ** base64DecodeInplace - base64DecodeInplace , - - --- ** base64Encode - base64Encode , - - --- ** basename - basename , - - --- ** bitLock - bitLock , - - --- ** bitNthLsf - bitNthLsf , - - --- ** bitNthMsf - bitNthMsf , - - --- ** bitStorage - bitStorage , - - --- ** bitTrylock - bitTrylock , - - --- ** bitUnlock - bitUnlock , - - --- ** bookmarkFileErrorQuark - bookmarkFileErrorQuark , - - --- ** buildFilenamev - buildFilenamev , - - --- ** buildPathv - buildPathv , - - --- ** byteArrayFree - byteArrayFree , - - --- ** byteArrayFreeToBytes - byteArrayFreeToBytes , - - --- ** byteArrayNew - byteArrayNew , - - --- ** byteArrayNewTake - byteArrayNewTake , - - --- ** byteArrayUnref - byteArrayUnref , - - --- ** chdir - chdir , - - --- ** checkVersion - checkVersion , - - --- ** checksumTypeGetLength - checksumTypeGetLength , - - --- ** childWatchAdd - childWatchAdd , - - --- ** childWatchSourceNew - childWatchSourceNew , - - --- ** clearError - clearError , - - --- ** close - close , - - --- ** computeChecksumForBytes - computeChecksumForBytes , - - --- ** computeChecksumForData - computeChecksumForData , - - --- ** computeChecksumForString - computeChecksumForString , - - --- ** computeHmacForData - computeHmacForData , - - --- ** computeHmacForString - computeHmacForString , - - --- ** convert - convert , - - --- ** convertErrorQuark - convertErrorQuark , - - --- ** convertWithFallback - convertWithFallback , - - --- ** convertWithIconv - convertWithIconv , - - --- ** datalistClear - datalistClear , - - --- ** datalistGetFlags - datalistGetFlags , - - --- ** datalistIdReplaceData - datalistIdReplaceData , - - --- ** datalistIdSetDataFull - datalistIdSetDataFull , - - --- ** datalistInit - datalistInit , - - --- ** datalistSetFlags - datalistSetFlags , - - --- ** datalistUnsetFlags - datalistUnsetFlags , - - --- ** datasetDestroy - datasetDestroy , - - --- ** datasetIdSetDataFull - datasetIdSetDataFull , - - --- ** dateGetDaysInMonth - dateGetDaysInMonth , - - --- ** dateGetMondayWeeksInYear - dateGetMondayWeeksInYear , - - --- ** dateGetSundayWeeksInYear - dateGetSundayWeeksInYear , - - --- ** dateIsLeapYear - dateIsLeapYear , - - --- ** dateStrftime - dateStrftime , - - --- ** dateTimeCompare - dateTimeCompare , - - --- ** dateTimeEqual - dateTimeEqual , - - --- ** dateTimeHash - dateTimeHash , - - --- ** dateValidDay - dateValidDay , - - --- ** dateValidDmy - dateValidDmy , - - --- ** dateValidJulian - dateValidJulian , - - --- ** dateValidMonth - dateValidMonth , - - --- ** dateValidWeekday - dateValidWeekday , - - --- ** dateValidYear - dateValidYear , - - --- ** dcgettext - dcgettext , - - --- ** dgettext - dgettext , - - --- ** dirMakeTmp - dirMakeTmp , - - --- ** directEqual - directEqual , - - --- ** directHash - directHash , - - --- ** dngettext - dngettext , - - --- ** doubleEqual - doubleEqual , - - --- ** doubleHash - doubleHash , - - --- ** dpgettext - dpgettext , - - --- ** dpgettext2 - dpgettext2 , - - --- ** environGetenv - environGetenv , - - --- ** environSetenv - environSetenv , - - --- ** environUnsetenv - environUnsetenv , - - --- ** fileErrorFromErrno - fileErrorFromErrno , - - --- ** fileErrorQuark - fileErrorQuark , - - --- ** fileGetContents - fileGetContents , - - --- ** fileOpenTmp - fileOpenTmp , - - --- ** fileReadLink - fileReadLink , - - --- ** fileSetContents - fileSetContents , - - --- ** fileTest - fileTest , - - --- ** filenameDisplayBasename - filenameDisplayBasename , - - --- ** filenameDisplayName - filenameDisplayName , - - --- ** filenameFromUri - filenameFromUri , - - --- ** filenameFromUtf8 - filenameFromUtf8 , - - --- ** filenameToUri - filenameToUri , - - --- ** filenameToUtf8 - filenameToUtf8 , - - --- ** findProgramInPath - findProgramInPath , - - --- ** formatSize - formatSize , - - --- ** formatSizeForDisplay - formatSizeForDisplay , - - --- ** formatSizeFull - formatSizeFull , - - --- ** free - free , - - --- ** getApplicationName - getApplicationName , - - --- ** getCharset - getCharset , - - --- ** getCodeset - getCodeset , - - --- ** getCurrentDir - getCurrentDir , - - --- ** getCurrentTime - getCurrentTime , - - --- ** getEnviron - getEnviron , - - --- ** getFilenameCharsets - getFilenameCharsets , - - --- ** getHomeDir - getHomeDir , - - --- ** getHostName - getHostName , - - --- ** getLanguageNames - getLanguageNames , - - --- ** getLocaleVariants - getLocaleVariants , - - --- ** getMonotonicTime - getMonotonicTime , - - --- ** getNumProcessors - getNumProcessors , - - --- ** getPrgname - getPrgname , - - --- ** getRealName - getRealName , - - --- ** getRealTime - getRealTime , - - --- ** getSystemConfigDirs - getSystemConfigDirs , - - --- ** getSystemDataDirs - getSystemDataDirs , - - --- ** getTmpDir - getTmpDir , - - --- ** getUserCacheDir - getUserCacheDir , - - --- ** getUserConfigDir - getUserConfigDir , - - --- ** getUserDataDir - getUserDataDir , - - --- ** getUserName - getUserName , - - --- ** getUserRuntimeDir - getUserRuntimeDir , - - --- ** getUserSpecialDir - getUserSpecialDir , - - --- ** getenv - getenv , - - --- ** hashTableAdd - hashTableAdd , - - --- ** hashTableContains - hashTableContains , - - --- ** hashTableDestroy - hashTableDestroy , - - --- ** hashTableInsert - hashTableInsert , - - --- ** hashTableLookupExtended - hashTableLookupExtended , - - --- ** hashTableRemove - hashTableRemove , - - --- ** hashTableRemoveAll - hashTableRemoveAll , - - --- ** hashTableReplace - hashTableReplace , - - --- ** hashTableSize - hashTableSize , - - --- ** hashTableSteal - hashTableSteal , - - --- ** hashTableStealAll - hashTableStealAll , - - --- ** hashTableUnref - hashTableUnref , - - --- ** hookDestroy - hookDestroy , - - --- ** hookDestroyLink - hookDestroyLink , - - --- ** hookFree - hookFree , - - --- ** hookInsertBefore - hookInsertBefore , - - --- ** hookPrepend - hookPrepend , - - --- ** hookUnref - hookUnref , - - --- ** hostnameIsAsciiEncoded - hostnameIsAsciiEncoded , - - --- ** hostnameIsIpAddress - hostnameIsIpAddress , - - --- ** hostnameIsNonAscii - hostnameIsNonAscii , - - --- ** hostnameToAscii - hostnameToAscii , - - --- ** hostnameToUnicode - hostnameToUnicode , - - --- ** iconv - iconv , - - --- ** idleAdd - idleAdd , - - --- ** idleRemoveByData - idleRemoveByData , - - --- ** idleSourceNew - idleSourceNew , - - --- ** int64Equal - int64Equal , - - --- ** int64Hash - int64Hash , - - --- ** intEqual - intEqual , - - --- ** intHash - intHash , - - --- ** internStaticString - internStaticString , - - --- ** internString - internString , - - --- ** ioAddWatch - ioAddWatch , - - --- ** ioChannelErrorFromErrno - ioChannelErrorFromErrno , - - --- ** ioChannelErrorQuark - ioChannelErrorQuark , - - --- ** ioCreateWatch - ioCreateWatch , - - --- ** keyFileErrorQuark - keyFileErrorQuark , - - --- ** listenv - listenv , - - --- ** localeFromUtf8 - localeFromUtf8 , - - --- ** localeToUtf8 - localeToUtf8 , - - --- ** logDefaultHandler - logDefaultHandler , - - --- ** logRemoveHandler - logRemoveHandler , - - --- ** logSetAlwaysFatal - logSetAlwaysFatal , - - --- ** logSetFatalMask - logSetFatalMask , - - --- ** mainContextDefault - mainContextDefault , - - --- ** mainContextGetThreadDefault - mainContextGetThreadDefault , - - --- ** mainContextRefThreadDefault - mainContextRefThreadDefault , - - --- ** mainCurrentSource - mainCurrentSource , - - --- ** mainDepth - mainDepth , - - --- ** markupErrorQuark - markupErrorQuark , - - --- ** markupEscapeText - markupEscapeText , - - --- ** memIsSystemMalloc - memIsSystemMalloc , - - --- ** memProfile - memProfile , - - --- ** memSetVtable - memSetVtable , - - --- ** mkdirWithParents - mkdirWithParents , - - --- ** mkdtemp - mkdtemp , - - --- ** mkdtempFull - mkdtempFull , - - --- ** mkstemp - mkstemp , - - --- ** mkstempFull - mkstempFull , - - --- ** nullifyPointer - nullifyPointer , - - --- ** onErrorQuery - onErrorQuery , - - --- ** onErrorStackTrace - onErrorStackTrace , - - --- ** onceInitEnter - onceInitEnter , - - --- ** onceInitLeave - onceInitLeave , - - --- ** optionErrorQuark - optionErrorQuark , - - --- ** parseDebugString - parseDebugString , - - --- ** pathGetBasename - pathGetBasename , - - --- ** pathGetDirname - pathGetDirname , - - --- ** pathIsAbsolute - pathIsAbsolute , - - --- ** pathSkipRoot - pathSkipRoot , - - --- ** patternMatch - patternMatch , - - --- ** patternMatchSimple - patternMatchSimple , - - --- ** patternMatchString - patternMatchString , - - --- ** pointerBitLock - pointerBitLock , - - --- ** pointerBitTrylock - pointerBitTrylock , - - --- ** pointerBitUnlock - pointerBitUnlock , - - --- ** poll - poll , - - --- ** propagateError - propagateError , - - --- ** quarkFromStaticString - quarkFromStaticString , - - --- ** quarkFromString - quarkFromString , - - --- ** quarkToString - quarkToString , - - --- ** quarkTryString - quarkTryString , - - --- ** randomDouble - randomDouble , - - --- ** randomDoubleRange - randomDoubleRange , - - --- ** randomInt - randomInt , - - --- ** randomIntRange - randomIntRange , - - --- ** randomSetSeed - randomSetSeed , - - --- ** regexCheckReplacement - regexCheckReplacement , - - --- ** regexErrorQuark - regexErrorQuark , - - --- ** regexEscapeNul - regexEscapeNul , - - --- ** regexEscapeString - regexEscapeString , - - --- ** regexMatchSimple - regexMatchSimple , - - --- ** regexSplitSimple - regexSplitSimple , - - --- ** reloadUserSpecialDirsCache - reloadUserSpecialDirsCache , - - --- ** returnIfFailWarning - returnIfFailWarning , - - --- ** rmdir - rmdir , - - --- ** sequenceMove - sequenceMove , - - --- ** sequenceMoveRange - sequenceMoveRange , - - --- ** sequenceRemove - sequenceRemove , - - --- ** sequenceRemoveRange - sequenceRemoveRange , - - --- ** sequenceSet - sequenceSet , - - --- ** sequenceSwap - sequenceSwap , - - --- ** setApplicationName - setApplicationName , - - --- ** setErrorLiteral - setErrorLiteral , - - --- ** setPrgname - setPrgname , - - --- ** setenv - setenv , - - --- ** shellErrorQuark - shellErrorQuark , - - --- ** shellParseArgv - shellParseArgv , - - --- ** shellQuote - shellQuote , - - --- ** shellUnquote - shellUnquote , - - --- ** sliceFree1 - sliceFree1 , - - --- ** sliceFreeChainWithOffset - sliceFreeChainWithOffset , - - --- ** sliceGetConfig - sliceGetConfig , - - --- ** sliceGetConfigState - sliceGetConfigState , - - --- ** sliceSetConfig - sliceSetConfig , - - --- ** sourceRemove - sourceRemove , - - --- ** sourceRemoveByFuncsUserData - sourceRemoveByFuncsUserData , - - --- ** sourceRemoveByUserData - sourceRemoveByUserData , - - --- ** sourceSetNameById - sourceSetNameById , - - --- ** spacedPrimesClosest - spacedPrimesClosest , - - --- ** spawnAsync - spawnAsync , - - --- ** spawnAsyncWithPipes - spawnAsyncWithPipes , - - --- ** spawnCheckExitStatus - spawnCheckExitStatus , - - --- ** spawnClosePid - spawnClosePid , - - --- ** spawnCommandLineAsync - spawnCommandLineAsync , - - --- ** spawnCommandLineSync - spawnCommandLineSync , - - --- ** spawnErrorQuark - spawnErrorQuark , - - --- ** spawnExitErrorQuark - spawnExitErrorQuark , - - --- ** spawnSync - spawnSync , - - --- ** stpcpy - stpcpy , - - --- ** strEqual - strEqual , - - --- ** strHasPrefix - strHasPrefix , - - --- ** strHasSuffix - strHasSuffix , - - --- ** strHash - strHash , - - --- ** strIsAscii - strIsAscii , - - --- ** strMatchString - strMatchString , - - --- ** strToAscii - strToAscii , - - --- ** strTokenizeAndFold - strTokenizeAndFold , - - --- ** strcanon - strcanon , - - --- ** strcasecmp - strcasecmp , - - --- ** strchomp - strchomp , - - --- ** strchug - strchug , - - --- ** strcmp0 - strcmp0 , - - --- ** strcompress - strcompress , - - --- ** strdelimit - strdelimit , - - --- ** strdown - strdown , - - --- ** strdup - strdup , - - --- ** strerror - strerror , - - --- ** strescape - strescape , - - --- ** strfreev - strfreev , - - --- ** stringNew - stringNew , - - --- ** stringNewLen - stringNewLen , - - --- ** stringSizedNew - stringSizedNew , - - --- ** stripContext - stripContext , - - --- ** strjoinv - strjoinv , - - --- ** strlcat - strlcat , - - --- ** strlcpy - strlcpy , - - --- ** strncasecmp - strncasecmp , - - --- ** strndup - strndup , - - --- ** strnfill - strnfill , - - --- ** strreverse - strreverse , - - --- ** strrstr - strrstr , - - --- ** strrstrLen - strrstrLen , - - --- ** strsignal - strsignal , - - --- ** strstrLen - strstrLen , - - --- ** strtod - strtod , - - --- ** strup - strup , - - --- ** strvContains - strvContains , - - --- ** strvGetType - strvGetType , - - --- ** strvLength - strvLength , - - --- ** testAddDataFunc - testAddDataFunc , - - --- ** testAddFunc - testAddFunc , - - --- ** testAssertExpectedMessagesInternal - testAssertExpectedMessagesInternal , - - --- ** testBug - testBug , - - --- ** testBugBase - testBugBase , - - --- ** testExpectMessage - testExpectMessage , - - --- ** testFail - testFail , - - --- ** testFailed - testFailed , - - --- ** testGetDir - testGetDir , - - --- ** testIncomplete - testIncomplete , - - --- ** testLogTypeName - testLogTypeName , - - --- ** testQueueDestroy - testQueueDestroy , - - --- ** testQueueFree - testQueueFree , - - --- ** testRandDouble - testRandDouble , - - --- ** testRandDoubleRange - testRandDoubleRange , - - --- ** testRandInt - testRandInt , - - --- ** testRandIntRange - testRandIntRange , - - --- ** testRun - testRun , - - --- ** testRunSuite - testRunSuite , - - --- ** testSetNonfatalAssertions - testSetNonfatalAssertions , - - --- ** testSkip - testSkip , - - --- ** testSubprocess - testSubprocess , - - --- ** testTimerElapsed - testTimerElapsed , - - --- ** testTimerLast - testTimerLast , - - --- ** testTimerStart - testTimerStart , - - --- ** testTrapAssertions - testTrapAssertions , - - --- ** testTrapFork - testTrapFork , - - --- ** testTrapHasPassed - testTrapHasPassed , - - --- ** testTrapReachedTimeout - testTrapReachedTimeout , - - --- ** testTrapSubprocess - testTrapSubprocess , - - --- ** threadErrorQuark - threadErrorQuark , - - --- ** threadExit - threadExit , - - --- ** threadPoolGetMaxIdleTime - threadPoolGetMaxIdleTime , - - --- ** threadPoolGetMaxUnusedThreads - threadPoolGetMaxUnusedThreads , - - --- ** threadPoolGetNumUnusedThreads - threadPoolGetNumUnusedThreads , - - --- ** threadPoolSetMaxIdleTime - threadPoolSetMaxIdleTime , - - --- ** threadPoolSetMaxUnusedThreads - threadPoolSetMaxUnusedThreads , - - --- ** threadPoolStopUnusedThreads - threadPoolStopUnusedThreads , - - --- ** threadSelf - threadSelf , - - --- ** threadYield - threadYield , - - --- ** timeValFromIso8601 - timeValFromIso8601 , - - --- ** timeoutAdd - timeoutAdd , - - --- ** timeoutAddSeconds - timeoutAddSeconds , - - --- ** timeoutSourceNew - timeoutSourceNew , - - --- ** timeoutSourceNewSeconds - timeoutSourceNewSeconds , - - --- ** trashStackHeight - trashStackHeight , - - --- ** trashStackPush - trashStackPush , - - --- ** unicharBreakType - unicharBreakType , - - --- ** unicharCombiningClass - unicharCombiningClass , - - --- ** unicharCompose - unicharCompose , - - --- ** unicharDecompose - unicharDecompose , - - --- ** unicharDigitValue - unicharDigitValue , - - --- ** unicharGetMirrorChar - unicharGetMirrorChar , - - --- ** unicharGetScript - unicharGetScript , - - --- ** unicharIsalnum - unicharIsalnum , - - --- ** unicharIsalpha - unicharIsalpha , - - --- ** unicharIscntrl - unicharIscntrl , - - --- ** unicharIsdefined - unicharIsdefined , - - --- ** unicharIsdigit - unicharIsdigit , - - --- ** unicharIsgraph - unicharIsgraph , - - --- ** unicharIslower - unicharIslower , - - --- ** unicharIsmark - unicharIsmark , - - --- ** unicharIsprint - unicharIsprint , - - --- ** unicharIspunct - unicharIspunct , - - --- ** unicharIsspace - unicharIsspace , - - --- ** unicharIstitle - unicharIstitle , - - --- ** unicharIsupper - unicharIsupper , - - --- ** unicharIswide - unicharIswide , - - --- ** unicharIswideCjk - unicharIswideCjk , - - --- ** unicharIsxdigit - unicharIsxdigit , - - --- ** unicharIszerowidth - unicharIszerowidth , - - --- ** unicharToUtf8 - unicharToUtf8 , - - --- ** unicharTolower - unicharTolower , - - --- ** unicharTotitle - unicharTotitle , - - --- ** unicharToupper - unicharToupper , - - --- ** unicharType - unicharType , - - --- ** unicharValidate - unicharValidate , - - --- ** unicharXdigitValue - unicharXdigitValue , - - --- ** unicodeCanonicalDecomposition - unicodeCanonicalDecomposition , - - --- ** unicodeCanonicalOrdering - unicodeCanonicalOrdering , - - --- ** unicodeScriptFromIso15924 - unicodeScriptFromIso15924 , - - --- ** unicodeScriptToIso15924 - unicodeScriptToIso15924 , - - --- ** unixErrorQuark - unixErrorQuark , - - --- ** unixFdAddFull - unixFdAddFull , - - --- ** unixFdSourceNew - unixFdSourceNew , - - --- ** unixOpenPipe - unixOpenPipe , - - --- ** unixSetFdNonblocking - unixSetFdNonblocking , - - --- ** unixSignalAdd - unixSignalAdd , - - --- ** unixSignalSourceNew - unixSignalSourceNew , - - --- ** unlink - unlink , - - --- ** unsetenv - unsetenv , - - --- ** uriEscapeString - uriEscapeString , - - --- ** uriListExtractUris - uriListExtractUris , - - --- ** uriParseScheme - uriParseScheme , - - --- ** uriUnescapeSegment - uriUnescapeSegment , - - --- ** uriUnescapeString - uriUnescapeString , - - --- ** usleep - usleep , - - --- ** utf8Casefold - utf8Casefold , - - --- ** utf8Collate - utf8Collate , - - --- ** utf8CollateKey - utf8CollateKey , - - --- ** utf8CollateKeyForFilename - utf8CollateKeyForFilename , - - --- ** utf8FindNextChar - utf8FindNextChar , - - --- ** utf8FindPrevChar - utf8FindPrevChar , - - --- ** utf8GetChar - utf8GetChar , - - --- ** utf8GetCharValidated - utf8GetCharValidated , - - --- ** utf8Normalize - utf8Normalize , - - --- ** utf8OffsetToPointer - utf8OffsetToPointer , - - --- ** utf8PointerToOffset - utf8PointerToOffset , - - --- ** utf8PrevChar - utf8PrevChar , - - --- ** utf8Strchr - utf8Strchr , - - --- ** utf8Strdown - utf8Strdown , - - --- ** utf8Strlen - utf8Strlen , - - --- ** utf8Strncpy - utf8Strncpy , - - --- ** utf8Strrchr - utf8Strrchr , - - --- ** utf8Strreverse - utf8Strreverse , - - --- ** utf8Strup - utf8Strup , - - --- ** utf8Substring - utf8Substring , - - --- ** utf8Validate - utf8Validate , - - --- ** variantGetGtype - variantGetGtype , - - --- ** variantIsObjectPath - variantIsObjectPath , - - --- ** variantIsSignature - variantIsSignature , - - --- ** variantParse - variantParse , - - --- ** variantParseErrorPrintContext - variantParseErrorPrintContext , - - --- ** variantParseErrorQuark - variantParseErrorQuark , - - --- ** variantParserGetErrorQuark - variantParserGetErrorQuark , - - --- ** variantTypeChecked_ - variantTypeChecked_ , - - --- ** variantTypeStringIsValid - variantTypeStringIsValid , - - --- ** variantTypeStringScan - variantTypeStringScan , - - --- ** warnMessage - warnMessage , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - --- function g_warn_message --- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warnexpr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "warnexpr", 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_warn_message" g_warn_message :: - CString -> -- domain : TBasicType TUTF8 - CString -> -- file : TBasicType TUTF8 - Int32 -> -- line : TBasicType TInt32 - CString -> -- func : TBasicType TUTF8 - CString -> -- warnexpr : TBasicType TUTF8 - IO () - - -warnMessage :: - (MonadIO m) => - T.Text -> -- domain - T.Text -> -- file - Int32 -> -- line - T.Text -> -- func - T.Text -> -- warnexpr - m () -warnMessage domain file line func warnexpr = liftIO $ do - domain' <- textToCString domain - file' <- textToCString file - func' <- textToCString func - warnexpr' <- textToCString warnexpr - g_warn_message domain' file' line func' warnexpr' - freeMem domain' - freeMem file' - freeMem func' - freeMem warnexpr' - return () - - --- function g_variant_type_string_scan --- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_string_scan" g_variant_type_string_scan :: - CString -> -- string : TBasicType TUTF8 - CString -> -- limit : TBasicType TUTF8 - Ptr CString -> -- endptr : TBasicType TUTF8 - IO CInt - - -variantTypeStringScan :: - (MonadIO m) => - T.Text -> -- string - Maybe (T.Text) -> -- limit - m (Bool,T.Text) -variantTypeStringScan string limit = liftIO $ do - string' <- textToCString string - maybeLimit <- case limit of - Nothing -> return nullPtr - Just jLimit -> do - jLimit' <- textToCString jLimit - return jLimit' - endptr <- allocMem :: IO (Ptr CString) - result <- g_variant_type_string_scan string' maybeLimit endptr - let result' = (/= 0) result - endptr' <- peek endptr - endptr'' <- cstringToText endptr' - freeMem endptr' - freeMem string' - freeMem maybeLimit - freeMem endptr - return (result', endptr'') - - --- function g_variant_type_string_is_valid --- Args : [Arg {argName = "type_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "type_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_variant_type_string_is_valid" g_variant_type_string_is_valid :: - CString -> -- type_string : TBasicType TUTF8 - IO CInt - - -variantTypeStringIsValid :: - (MonadIO m) => - T.Text -> -- type_string - m Bool -variantTypeStringIsValid type_string = liftIO $ do - type_string' <- textToCString type_string - result <- g_variant_type_string_is_valid type_string' - let result' = (/= 0) result - freeMem type_string' - return result' - - --- function g_variant_type_checked_ --- Args : [Arg {argName = "arg0", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "arg0", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "VariantType" --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_checked_" g_variant_type_checked_ :: - CString -> -- arg0 : TBasicType TUTF8 - IO (Ptr VariantType) - - -variantTypeChecked_ :: - (MonadIO m) => - T.Text -> -- arg0 - m VariantType -variantTypeChecked_ arg0 = liftIO $ do - arg0' <- textToCString arg0 - result <- g_variant_type_checked_ arg0' - checkUnexpectedReturnNULL "g_variant_type_checked_" result - result' <- (newBoxed VariantType) result - freeMem arg0' - return result' - - --- function g_variant_parser_get_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_variant_parser_get_error_quark" g_variant_parser_get_error_quark :: - IO Word32 - -{-# DEPRECATED variantParserGetErrorQuark ["Use g_variant_parse_error_quark() instead."]#-} -variantParserGetErrorQuark :: - (MonadIO m) => - m Word32 -variantParserGetErrorQuark = liftIO $ do - result <- g_variant_parser_get_error_quark - return result - - --- function g_variant_parse_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_variant_parse_error_quark" g_variant_parse_error_quark :: - IO Word32 - - -variantParseErrorQuark :: - (MonadIO m) => - m Word32 -variantParseErrorQuark = liftIO $ do - result <- g_variant_parse_error_quark - return result - - --- function g_variant_parse_error_print_context --- Args : [Arg {argName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_str", argType = TBasicType TUTF8, 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},Arg {argName = "source_str", 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_variant_parse_error_print_context" g_variant_parse_error_print_context :: - Ptr GError -> -- error : TError - CString -> -- source_str : TBasicType TUTF8 - IO CString - - -variantParseErrorPrintContext :: - (MonadIO m) => - GError -> -- error - T.Text -> -- source_str - m T.Text -variantParseErrorPrintContext error_ source_str = liftIO $ do - let error_' = unsafeManagedPtrGetPtr error_ - source_str' <- textToCString source_str - result <- g_variant_parse_error_print_context error_' source_str' - checkUnexpectedReturnNULL "g_variant_parse_error_print_context" result - result' <- cstringToText result - freeMem result - touchManagedPtr error_ - freeMem source_str' - return result' - - --- function g_variant_parse --- Args : [Arg {argName = "type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "limit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TVariant --- throws : True --- Skip return : False - -foreign import ccall "g_variant_parse" g_variant_parse :: - Ptr VariantType -> -- type : TInterface "GLib" "VariantType" - CString -> -- text : TBasicType TUTF8 - CString -> -- limit : TBasicType TUTF8 - CString -> -- endptr : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr GVariant) - - -variantParse :: - (MonadIO m) => - Maybe (VariantType) -> -- type - T.Text -> -- text - Maybe (T.Text) -> -- limit - Maybe (T.Text) -> -- endptr - m GVariant -variantParse type_ text limit endptr = liftIO $ do - maybeType_ <- case type_ of - Nothing -> return nullPtr - Just jType_ -> do - let jType_' = unsafeManagedPtrGetPtr jType_ - return jType_' - text' <- textToCString text - maybeLimit <- case limit of - Nothing -> return nullPtr - Just jLimit -> do - jLimit' <- textToCString jLimit - return jLimit' - maybeEndptr <- case endptr of - Nothing -> return nullPtr - Just jEndptr -> do - jEndptr' <- textToCString jEndptr - return jEndptr' - onException (do - result <- propagateGError $ g_variant_parse maybeType_ text' maybeLimit maybeEndptr - checkUnexpectedReturnNULL "g_variant_parse" result - result' <- wrapGVariantPtr result - whenJust type_ touchManagedPtr - freeMem text' - freeMem maybeLimit - freeMem maybeEndptr - return result' - ) (do - freeMem text' - freeMem maybeLimit - freeMem maybeEndptr - ) - - --- function g_variant_is_signature --- 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_variant_is_signature" g_variant_is_signature :: - CString -> -- string : TBasicType TUTF8 - IO CInt - - -variantIsSignature :: - (MonadIO m) => - T.Text -> -- string - m Bool -variantIsSignature string = liftIO $ do - string' <- textToCString string - result <- g_variant_is_signature string' - let result' = (/= 0) result - freeMem string' - return result' - - --- function g_variant_is_object_path --- 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_variant_is_object_path" g_variant_is_object_path :: - CString -> -- string : TBasicType TUTF8 - IO CInt - - -variantIsObjectPath :: - (MonadIO m) => - T.Text -> -- string - m Bool -variantIsObjectPath string = liftIO $ do - string' <- textToCString string - result <- g_variant_is_object_path string' - let result' = (/= 0) result - freeMem string' - return result' - - --- function g_variant_get_gtype --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TGType --- throws : False --- Skip return : False - -foreign import ccall "g_variant_get_gtype" g_variant_get_gtype :: - IO CGType - - -variantGetGtype :: - (MonadIO m) => - m GType -variantGetGtype = liftIO $ do - result <- g_variant_get_gtype - let result' = GType result - return result' - - --- function g_utf8_validate --- Args : [Arg {argName = "str", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "max_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "str", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_utf8_validate" g_utf8_validate :: - Ptr Word8 -> -- str : TCArray False (-1) 1 (TBasicType TUInt8) - Int64 -> -- max_len : TBasicType TInt64 - Ptr CString -> -- end : TBasicType TUTF8 - IO CInt - - -utf8Validate :: - (MonadIO m) => - ByteString -> -- str - m (Bool,T.Text) -utf8Validate str = liftIO $ do - let max_len = fromIntegral $ B.length str - str' <- packByteString str - end <- allocMem :: IO (Ptr CString) - result <- g_utf8_validate str' max_len end - let result' = (/= 0) result - end' <- peek end - end'' <- cstringToText end' - freeMem str' - freeMem end - return (result', end'') - - --- function g_utf8_substring --- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt64, 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},Arg {argName = "start_pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_utf8_substring" g_utf8_substring :: - CString -> -- str : TBasicType TUTF8 - Int64 -> -- start_pos : TBasicType TInt64 - Int64 -> -- end_pos : TBasicType TInt64 - IO CString - - -utf8Substring :: - (MonadIO m) => - T.Text -> -- str - Int64 -> -- start_pos - Int64 -> -- end_pos - m T.Text -utf8Substring str start_pos end_pos = liftIO $ do - str' <- textToCString str - result <- g_utf8_substring str' start_pos end_pos - checkUnexpectedReturnNULL "g_utf8_substring" result - result' <- cstringToText result - freeMem result - freeMem str' - return result' - - --- function g_utf8_strup --- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, 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},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_utf8_strup" g_utf8_strup :: - CString -> -- str : TBasicType TUTF8 - Int64 -> -- len : TBasicType TInt64 - IO CString - - -utf8Strup :: - (MonadIO m) => - T.Text -> -- str - Int64 -> -- len - m T.Text -utf8Strup str len = liftIO $ do - str' <- textToCString str - result <- g_utf8_strup str' len - checkUnexpectedReturnNULL "g_utf8_strup" result - result' <- cstringToText result - freeMem result - freeMem str' - return result' - - --- function g_utf8_strreverse --- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, 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},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_utf8_strreverse" g_utf8_strreverse :: - CString -> -- str : TBasicType TUTF8 - Int64 -> -- len : TBasicType TInt64 - IO CString - - -utf8Strreverse :: - (MonadIO m) => - T.Text -> -- str - Int64 -> -- len - m T.Text -utf8Strreverse str len = liftIO $ do - str' <- textToCString str - result <- g_utf8_strreverse str' len - checkUnexpectedReturnNULL "g_utf8_strreverse" result - result' <- cstringToText result - freeMem result - freeMem str' - return result' - - --- function g_utf8_strrchr --- Args : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_utf8_strrchr" g_utf8_strrchr :: - CString -> -- p : TBasicType TUTF8 - Int64 -> -- len : TBasicType TInt64 - CInt -> -- c : TBasicType TUniChar - IO CString - - -utf8Strrchr :: - (MonadIO m) => - T.Text -> -- p - Int64 -> -- len - Char -> -- c - m T.Text -utf8Strrchr p len c = liftIO $ do - p' <- textToCString p - let c' = (fromIntegral . ord) c - result <- g_utf8_strrchr p' len c' - checkUnexpectedReturnNULL "g_utf8_strrchr" result - result' <- cstringToText result - freeMem result - freeMem p' - return result' - - --- function g_utf8_strncpy --- Args : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_utf8_strncpy" g_utf8_strncpy :: - CString -> -- dest : TBasicType TUTF8 - CString -> -- src : TBasicType TUTF8 - Word64 -> -- n : TBasicType TUInt64 - IO CString - - -utf8Strncpy :: - (MonadIO m) => - T.Text -> -- dest - T.Text -> -- src - Word64 -> -- n - m T.Text -utf8Strncpy dest src n = liftIO $ do - dest' <- textToCString dest - src' <- textToCString src - result <- g_utf8_strncpy dest' src' n - checkUnexpectedReturnNULL "g_utf8_strncpy" result - result' <- cstringToText result - freeMem result - freeMem dest' - freeMem src' - return result' - - --- function g_utf8_strlen --- Args : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt64 --- throws : False --- Skip return : False - -foreign import ccall "g_utf8_strlen" g_utf8_strlen :: - CString -> -- p : TBasicType TUTF8 - Int64 -> -- max : TBasicType TInt64 - IO Int64 - - -utf8Strlen :: - (MonadIO m) => - T.Text -> -- p - Int64 -> -- max - m Int64 -utf8Strlen p max = liftIO $ do - p' <- textToCString p - result <- g_utf8_strlen p' max - freeMem p' - return result - - --- function g_utf8_strdown --- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, 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},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_utf8_strdown" g_utf8_strdown :: - CString -> -- str : TBasicType TUTF8 - Int64 -> -- len : TBasicType TInt64 - IO CString - - -utf8Strdown :: - (MonadIO m) => - T.Text -> -- str - Int64 -> -- len - m T.Text -utf8Strdown str len = liftIO $ do - str' <- textToCString str - result <- g_utf8_strdown str' len - checkUnexpectedReturnNULL "g_utf8_strdown" result - result' <- cstringToText result - freeMem result - freeMem str' - return result' - - --- function g_utf8_strchr --- Args : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_utf8_strchr" g_utf8_strchr :: - CString -> -- p : TBasicType TUTF8 - Int64 -> -- len : TBasicType TInt64 - CInt -> -- c : TBasicType TUniChar - IO CString - - -utf8Strchr :: - (MonadIO m) => - T.Text -> -- p - Int64 -> -- len - Char -> -- c - m T.Text -utf8Strchr p len c = liftIO $ do - p' <- textToCString p - let c' = (fromIntegral . ord) c - result <- g_utf8_strchr p' len c' - checkUnexpectedReturnNULL "g_utf8_strchr" result - result' <- cstringToText result - freeMem result - freeMem p' - return result' - - --- function g_utf8_prev_char --- Args : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "p", 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_utf8_prev_char" g_utf8_prev_char :: - CString -> -- p : TBasicType TUTF8 - IO CString - - -utf8PrevChar :: - (MonadIO m) => - T.Text -> -- p - m T.Text -utf8PrevChar p = liftIO $ do - p' <- textToCString p - result <- g_utf8_prev_char p' - checkUnexpectedReturnNULL "g_utf8_prev_char" result - result' <- cstringToText result - freeMem result - freeMem p' - return result' - - --- function g_utf8_pointer_to_offset --- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", 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},Arg {argName = "pos", 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_utf8_pointer_to_offset" g_utf8_pointer_to_offset :: - CString -> -- str : TBasicType TUTF8 - CString -> -- pos : TBasicType TUTF8 - IO Int64 - - -utf8PointerToOffset :: - (MonadIO m) => - T.Text -> -- str - T.Text -> -- pos - m Int64 -utf8PointerToOffset str pos = liftIO $ do - str' <- textToCString str - pos' <- textToCString pos - result <- g_utf8_pointer_to_offset str' pos' - freeMem str' - freeMem pos' - return result - - --- function g_utf8_offset_to_pointer --- Args : [Arg {argName = "str", argType = TBasicType TUTF8, 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, 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}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_utf8_offset_to_pointer" g_utf8_offset_to_pointer :: - CString -> -- str : TBasicType TUTF8 - Int64 -> -- offset : TBasicType TInt64 - IO CString - - -utf8OffsetToPointer :: - (MonadIO m) => - T.Text -> -- str - Int64 -> -- offset - m T.Text -utf8OffsetToPointer str offset = liftIO $ do - str' <- textToCString str - result <- g_utf8_offset_to_pointer str' offset - checkUnexpectedReturnNULL "g_utf8_offset_to_pointer" result - result' <- cstringToText result - freeMem result - freeMem str' - return result' - - --- function g_utf8_normalize --- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "GLib" "NormalizeMode", 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},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "GLib" "NormalizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_utf8_normalize" g_utf8_normalize :: - CString -> -- str : TBasicType TUTF8 - Int64 -> -- len : TBasicType TInt64 - CUInt -> -- mode : TInterface "GLib" "NormalizeMode" - IO CString - - -utf8Normalize :: - (MonadIO m) => - T.Text -> -- str - Int64 -> -- len - NormalizeMode -> -- mode - m T.Text -utf8Normalize str len mode = liftIO $ do - str' <- textToCString str - let mode' = (fromIntegral . fromEnum) mode - result <- g_utf8_normalize str' len mode' - checkUnexpectedReturnNULL "g_utf8_normalize" result - result' <- cstringToText result - freeMem result - freeMem str' - return result' - - --- function g_utf8_get_char_validated --- Args : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUniChar --- throws : False --- Skip return : False - -foreign import ccall "g_utf8_get_char_validated" g_utf8_get_char_validated :: - CString -> -- p : TBasicType TUTF8 - Int64 -> -- max_len : TBasicType TInt64 - IO CInt - - -utf8GetCharValidated :: - (MonadIO m) => - T.Text -> -- p - Int64 -> -- max_len - m Char -utf8GetCharValidated p max_len = liftIO $ do - p' <- textToCString p - result <- g_utf8_get_char_validated p' max_len - let result' = (chr . fromIntegral) result - freeMem p' - return result' - - --- function g_utf8_get_char --- Args : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUniChar --- throws : False --- Skip return : False - -foreign import ccall "g_utf8_get_char" g_utf8_get_char :: - CString -> -- p : TBasicType TUTF8 - IO CInt - - -utf8GetChar :: - (MonadIO m) => - T.Text -> -- p - m Char -utf8GetChar p = liftIO $ do - p' <- textToCString p - result <- g_utf8_get_char p' - let result' = (chr . fromIntegral) result - freeMem p' - return result' - - --- function g_utf8_find_prev_char --- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "p", 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},Arg {argName = "p", 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_utf8_find_prev_char" g_utf8_find_prev_char :: - CString -> -- str : TBasicType TUTF8 - CString -> -- p : TBasicType TUTF8 - IO CString - - -utf8FindPrevChar :: - (MonadIO m) => - T.Text -> -- str - T.Text -> -- p - m T.Text -utf8FindPrevChar str p = liftIO $ do - str' <- textToCString str - p' <- textToCString p - result <- g_utf8_find_prev_char str' p' - checkUnexpectedReturnNULL "g_utf8_find_prev_char" result - result' <- cstringToText result - freeMem result - freeMem str' - freeMem p' - return result' - - --- function g_utf8_find_next_char --- Args : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", 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_utf8_find_next_char" g_utf8_find_next_char :: - CString -> -- p : TBasicType TUTF8 - CString -> -- end : TBasicType TUTF8 - IO CString - - -utf8FindNextChar :: - (MonadIO m) => - T.Text -> -- p - T.Text -> -- end - m T.Text -utf8FindNextChar p end = liftIO $ do - p' <- textToCString p - end' <- textToCString end - result <- g_utf8_find_next_char p' end' - checkUnexpectedReturnNULL "g_utf8_find_next_char" result - result' <- cstringToText result - freeMem result - freeMem p' - freeMem end' - return result' - - --- function g_utf8_collate_key_for_filename --- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, 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},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_utf8_collate_key_for_filename" g_utf8_collate_key_for_filename :: - CString -> -- str : TBasicType TUTF8 - Int64 -> -- len : TBasicType TInt64 - IO CString - - -utf8CollateKeyForFilename :: - (MonadIO m) => - T.Text -> -- str - Int64 -> -- len - m T.Text -utf8CollateKeyForFilename str len = liftIO $ do - str' <- textToCString str - result <- g_utf8_collate_key_for_filename str' len - checkUnexpectedReturnNULL "g_utf8_collate_key_for_filename" result - result' <- cstringToText result - freeMem result - freeMem str' - return result' - - --- function g_utf8_collate_key --- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, 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},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_utf8_collate_key" g_utf8_collate_key :: - CString -> -- str : TBasicType TUTF8 - Int64 -> -- len : TBasicType TInt64 - IO CString - - -utf8CollateKey :: - (MonadIO m) => - T.Text -> -- str - Int64 -> -- len - m T.Text -utf8CollateKey str len = liftIO $ do - str' <- textToCString str - result <- g_utf8_collate_key str' len - checkUnexpectedReturnNULL "g_utf8_collate_key" result - result' <- cstringToText result - freeMem result - freeMem str' - return result' - - --- function g_utf8_collate --- Args : [Arg {argName = "str1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "str1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str2", 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_utf8_collate" g_utf8_collate :: - CString -> -- str1 : TBasicType TUTF8 - CString -> -- str2 : TBasicType TUTF8 - IO Int32 - - -utf8Collate :: - (MonadIO m) => - T.Text -> -- str1 - T.Text -> -- str2 - m Int32 -utf8Collate str1 str2 = liftIO $ do - str1' <- textToCString str1 - str2' <- textToCString str2 - result <- g_utf8_collate str1' str2' - freeMem str1' - freeMem str2' - return result - - --- function g_utf8_casefold --- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, 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},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_utf8_casefold" g_utf8_casefold :: - CString -> -- str : TBasicType TUTF8 - Int64 -> -- len : TBasicType TInt64 - IO CString - - -utf8Casefold :: - (MonadIO m) => - T.Text -> -- str - Int64 -> -- len - m T.Text -utf8Casefold str len = liftIO $ do - str' <- textToCString str - result <- g_utf8_casefold str' len - checkUnexpectedReturnNULL "g_utf8_casefold" result - result' <- cstringToText result - freeMem result - freeMem str' - return result' - - --- function g_usleep --- Args : [Arg {argName = "microseconds", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "microseconds", 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_usleep" g_usleep :: - Word64 -> -- microseconds : TBasicType TUInt64 - IO () - - -usleep :: - (MonadIO m) => - Word64 -> -- microseconds - m () -usleep microseconds = liftIO $ do - g_usleep microseconds - return () - - --- function g_uri_unescape_string --- Args : [Arg {argName = "escaped_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "illegal_characters", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "escaped_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "illegal_characters", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_uri_unescape_string" g_uri_unescape_string :: - CString -> -- escaped_string : TBasicType TUTF8 - CString -> -- illegal_characters : TBasicType TUTF8 - IO CString - - -uriUnescapeString :: - (MonadIO m) => - T.Text -> -- escaped_string - Maybe (T.Text) -> -- illegal_characters - m T.Text -uriUnescapeString escaped_string illegal_characters = liftIO $ do - escaped_string' <- textToCString escaped_string - maybeIllegal_characters <- case illegal_characters of - Nothing -> return nullPtr - Just jIllegal_characters -> do - jIllegal_characters' <- textToCString jIllegal_characters - return jIllegal_characters' - result <- g_uri_unescape_string escaped_string' maybeIllegal_characters - checkUnexpectedReturnNULL "g_uri_unescape_string" result - result' <- cstringToText result - freeMem result - freeMem escaped_string' - freeMem maybeIllegal_characters - return result' - - --- function g_uri_unescape_segment --- Args : [Arg {argName = "escaped_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "escaped_string_end", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "illegal_characters", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "escaped_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "escaped_string_end", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "illegal_characters", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_uri_unescape_segment" g_uri_unescape_segment :: - CString -> -- escaped_string : TBasicType TUTF8 - CString -> -- escaped_string_end : TBasicType TUTF8 - CString -> -- illegal_characters : TBasicType TUTF8 - IO CString - - -uriUnescapeSegment :: - (MonadIO m) => - Maybe (T.Text) -> -- escaped_string - Maybe (T.Text) -> -- escaped_string_end - Maybe (T.Text) -> -- illegal_characters - m T.Text -uriUnescapeSegment escaped_string escaped_string_end illegal_characters = liftIO $ do - maybeEscaped_string <- case escaped_string of - Nothing -> return nullPtr - Just jEscaped_string -> do - jEscaped_string' <- textToCString jEscaped_string - return jEscaped_string' - maybeEscaped_string_end <- case escaped_string_end of - Nothing -> return nullPtr - Just jEscaped_string_end -> do - jEscaped_string_end' <- textToCString jEscaped_string_end - return jEscaped_string_end' - maybeIllegal_characters <- case illegal_characters of - Nothing -> return nullPtr - Just jIllegal_characters -> do - jIllegal_characters' <- textToCString jIllegal_characters - return jIllegal_characters' - result <- g_uri_unescape_segment maybeEscaped_string maybeEscaped_string_end maybeIllegal_characters - checkUnexpectedReturnNULL "g_uri_unescape_segment" result - result' <- cstringToText result - freeMem result - freeMem maybeEscaped_string - freeMem maybeEscaped_string_end - freeMem maybeIllegal_characters - return result' - - --- function g_uri_parse_scheme --- 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 : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_uri_parse_scheme" g_uri_parse_scheme :: - CString -> -- uri : TBasicType TUTF8 - IO CString - - -uriParseScheme :: - (MonadIO m) => - T.Text -> -- uri - m T.Text -uriParseScheme uri = liftIO $ do - uri' <- textToCString uri - result <- g_uri_parse_scheme uri' - checkUnexpectedReturnNULL "g_uri_parse_scheme" result - result' <- cstringToText result - freeMem result - freeMem uri' - return result' - - --- function g_uri_list_extract_uris --- Args : [Arg {argName = "uri_list", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "uri_list", 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_uri_list_extract_uris" g_uri_list_extract_uris :: - CString -> -- uri_list : TBasicType TUTF8 - IO (Ptr CString) - - -uriListExtractUris :: - (MonadIO m) => - T.Text -> -- uri_list - m [T.Text] -uriListExtractUris uri_list = liftIO $ do - uri_list' <- textToCString uri_list - result <- g_uri_list_extract_uris uri_list' - checkUnexpectedReturnNULL "g_uri_list_extract_uris" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - freeMem uri_list' - return result' - - --- function g_uri_escape_string --- Args : [Arg {argName = "unescaped", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reserved_chars_allowed", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allow_utf8", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "unescaped", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reserved_chars_allowed", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allow_utf8", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_uri_escape_string" g_uri_escape_string :: - CString -> -- unescaped : TBasicType TUTF8 - CString -> -- reserved_chars_allowed : TBasicType TUTF8 - CInt -> -- allow_utf8 : TBasicType TBoolean - IO CString - - -uriEscapeString :: - (MonadIO m) => - T.Text -> -- unescaped - Maybe (T.Text) -> -- reserved_chars_allowed - Bool -> -- allow_utf8 - m T.Text -uriEscapeString unescaped reserved_chars_allowed allow_utf8 = liftIO $ do - unescaped' <- textToCString unescaped - maybeReserved_chars_allowed <- case reserved_chars_allowed of - Nothing -> return nullPtr - Just jReserved_chars_allowed -> do - jReserved_chars_allowed' <- textToCString jReserved_chars_allowed - return jReserved_chars_allowed' - let allow_utf8' = (fromIntegral . fromEnum) allow_utf8 - result <- g_uri_escape_string unescaped' maybeReserved_chars_allowed allow_utf8' - checkUnexpectedReturnNULL "g_uri_escape_string" result - result' <- cstringToText result - freeMem result - freeMem unescaped' - freeMem maybeReserved_chars_allowed - return result' - - --- function g_unsetenv --- Args : [Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [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 - -foreign import ccall "g_unsetenv" g_unsetenv :: - CString -> -- variable : TBasicType TUTF8 - IO () - - -unsetenv :: - (MonadIO m) => - T.Text -> -- variable - m () -unsetenv variable = liftIO $ do - variable' <- textToCString variable - g_unsetenv variable' - freeMem variable' - return () - - --- function g_unlink --- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "filename", 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_unlink" g_unlink :: - CString -> -- filename : TBasicType TUTF8 - IO Int32 - - -unlink :: - (MonadIO m) => - T.Text -> -- filename - m Int32 -unlink filename = liftIO $ do - filename' <- textToCString filename - result <- g_unlink filename' - freeMem filename' - return result - - --- function g_unix_signal_source_new --- Args : [Arg {argName = "signum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "signum", argType = TBasicType TInt32, 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_unix_signal_source_new" g_unix_signal_source_new :: - Int32 -> -- signum : TBasicType TInt32 - IO (Ptr Source) - - -unixSignalSourceNew :: - (MonadIO m) => - Int32 -> -- signum - m Source -unixSignalSourceNew signum = liftIO $ do - result <- g_unix_signal_source_new signum - checkUnexpectedReturnNULL "g_unix_signal_source_new" result - result' <- (wrapBoxed Source) result - return result' - - --- function g_unix_signal_add_full --- Args : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, 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 = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_unix_signal_add_full" g_unix_signal_add_full :: - Int32 -> -- priority : TBasicType TInt32 - Int32 -> -- signum : TBasicType TInt32 - FunPtr SourceFuncC -> -- handler : TInterface "GLib" "SourceFunc" - Ptr () -> -- user_data : TBasicType TVoid - FunPtr DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO Word32 - - -unixSignalAdd :: - (MonadIO m) => - Int32 -> -- priority - Int32 -> -- signum - SourceFunc -> -- handler - m Word32 -unixSignalAdd priority signum handler = liftIO $ do - handler' <- mkSourceFunc (sourceFuncWrapper Nothing handler) - let user_data = castFunPtrToPtr handler' - let notify = safeFreeFunPtrPtr - result <- g_unix_signal_add_full priority signum handler' user_data notify - return result - - --- function g_unix_set_fd_nonblocking --- Args : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nonblock", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nonblock", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_unix_set_fd_nonblocking" g_unix_set_fd_nonblocking :: - Int32 -> -- fd : TBasicType TInt32 - CInt -> -- nonblock : TBasicType TBoolean - Ptr (Ptr GError) -> -- error - IO CInt - - -unixSetFdNonblocking :: - (MonadIO m) => - Int32 -> -- fd - Bool -> -- nonblock - m () -unixSetFdNonblocking fd nonblock = liftIO $ do - let nonblock' = (fromIntegral . fromEnum) nonblock - onException (do - _ <- propagateGError $ g_unix_set_fd_nonblocking fd nonblock' - return () - ) (do - return () - ) - - --- function g_unix_open_pipe --- Args : [Arg {argName = "fds", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "fds", 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}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_unix_open_pipe" g_unix_open_pipe :: - Int32 -> -- fds : TBasicType TInt32 - Int32 -> -- flags : TBasicType TInt32 - Ptr (Ptr GError) -> -- error - IO CInt - - -unixOpenPipe :: - (MonadIO m) => - Int32 -> -- fds - Int32 -> -- flags - m () -unixOpenPipe fds flags = liftIO $ do - onException (do - _ <- propagateGError $ g_unix_open_pipe fds flags - return () - ) (do - return () - ) - - --- function g_unix_fd_source_new --- Args : [Arg {argName = "fd", argType = TBasicType TInt32, 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "fd", argType = TBasicType TInt32, 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" "Source" --- throws : False --- Skip return : False - -foreign import ccall "g_unix_fd_source_new" g_unix_fd_source_new :: - Int32 -> -- fd : TBasicType TInt32 - CUInt -> -- condition : TInterface "GLib" "IOCondition" - IO (Ptr Source) - - -unixFdSourceNew :: - (MonadIO m) => - Int32 -> -- fd - [IOCondition] -> -- condition - m Source -unixFdSourceNew fd condition = liftIO $ do - let condition' = gflagsToWord condition - result <- g_unix_fd_source_new fd condition' - checkUnexpectedReturnNULL "g_unix_fd_source_new" result - result' <- (wrapBoxed Source) result - return result' - - --- function g_unix_fd_add_full --- Args : [Arg {argName = "priority", argType = TBasicType TInt32, 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 = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "UnixFDSourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 4, argDestroy = 5, 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 = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, 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 = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "UnixFDSourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 4, argDestroy = 5, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_unix_fd_add_full" g_unix_fd_add_full :: - Int32 -> -- priority : TBasicType TInt32 - Int32 -> -- fd : TBasicType TInt32 - CUInt -> -- condition : TInterface "GLib" "IOCondition" - FunPtr UnixFDSourceFuncC -> -- function : TInterface "GLib" "UnixFDSourceFunc" - Ptr () -> -- user_data : TBasicType TVoid - FunPtr DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO Word32 - - -unixFdAddFull :: - (MonadIO m) => - Int32 -> -- priority - Int32 -> -- fd - [IOCondition] -> -- condition - UnixFDSourceFunc -> -- function - m Word32 -unixFdAddFull priority fd condition function = liftIO $ do - let condition' = gflagsToWord condition - function' <- mkUnixFDSourceFunc (unixFDSourceFuncWrapper Nothing function) - let user_data = castFunPtrToPtr function' - let notify = safeFreeFunPtrPtr - result <- g_unix_fd_add_full priority fd condition' function' user_data notify - return result - - --- function g_unix_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_unix_error_quark" g_unix_error_quark :: - IO Word32 - - -unixErrorQuark :: - (MonadIO m) => - m Word32 -unixErrorQuark = liftIO $ do - result <- g_unix_error_quark - return result - - --- function g_unicode_script_to_iso15924 --- Args : [Arg {argName = "script", argType = TInterface "GLib" "UnicodeScript", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "script", argType = TInterface "GLib" "UnicodeScript", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_unicode_script_to_iso15924" g_unicode_script_to_iso15924 :: - CUInt -> -- script : TInterface "GLib" "UnicodeScript" - IO Word32 - - -unicodeScriptToIso15924 :: - (MonadIO m) => - UnicodeScript -> -- script - m Word32 -unicodeScriptToIso15924 script = liftIO $ do - let script' = (fromIntegral . fromEnum) script - result <- g_unicode_script_to_iso15924 script' - return result - - --- function g_unicode_script_from_iso15924 --- Args : [Arg {argName = "iso15924", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "iso15924", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "UnicodeScript" --- throws : False --- Skip return : False - -foreign import ccall "g_unicode_script_from_iso15924" g_unicode_script_from_iso15924 :: - Word32 -> -- iso15924 : TBasicType TUInt32 - IO CUInt - - -unicodeScriptFromIso15924 :: - (MonadIO m) => - Word32 -> -- iso15924 - m UnicodeScript -unicodeScriptFromIso15924 iso15924 = liftIO $ do - result <- g_unicode_script_from_iso15924 iso15924 - let result' = (toEnum . fromIntegral) result - return result' - - --- function g_unicode_canonical_ordering --- Args : [Arg {argName = "string", argType = TBasicType TUniChar, 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "string", argType = TBasicType TUniChar, 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 : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_unicode_canonical_ordering" g_unicode_canonical_ordering :: - CInt -> -- string : TBasicType TUniChar - Word64 -> -- len : TBasicType TUInt64 - IO () - - -unicodeCanonicalOrdering :: - (MonadIO m) => - Char -> -- string - Word64 -> -- len - m () -unicodeCanonicalOrdering string len = liftIO $ do - let string' = (fromIntegral . ord) string - g_unicode_canonical_ordering string' len - return () - - --- function g_unicode_canonical_decomposition --- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUniChar --- throws : False --- Skip return : False - -foreign import ccall "g_unicode_canonical_decomposition" g_unicode_canonical_decomposition :: - CInt -> -- ch : TBasicType TUniChar - Word64 -> -- result_len : TBasicType TUInt64 - IO CInt - -{-# DEPRECATED unicodeCanonicalDecomposition ["(Since version 2.30)","Use the more flexible g_unichar_fully_decompose()"," instead."]#-} -unicodeCanonicalDecomposition :: - (MonadIO m) => - Char -> -- ch - Word64 -> -- result_len - m Char -unicodeCanonicalDecomposition ch result_len = liftIO $ do - let ch' = (fromIntegral . ord) ch - result <- g_unicode_canonical_decomposition ch' result_len - let result' = (chr . fromIntegral) result - return result' - - --- function g_unichar_xdigit_value --- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_xdigit_value" g_unichar_xdigit_value :: - CInt -> -- c : TBasicType TUniChar - IO Int32 - - -unicharXdigitValue :: - (MonadIO m) => - Char -> -- c - m Int32 -unicharXdigitValue c = liftIO $ do - let c' = (fromIntegral . ord) c - result <- g_unichar_xdigit_value c' - return result - - --- function g_unichar_validate --- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_validate" g_unichar_validate :: - CInt -> -- ch : TBasicType TUniChar - IO CInt - - -unicharValidate :: - (MonadIO m) => - Char -> -- ch - m Bool -unicharValidate ch = liftIO $ do - let ch' = (fromIntegral . ord) ch - result <- g_unichar_validate ch' - let result' = (/= 0) result - return result' - - --- function g_unichar_type --- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "UnicodeType" --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_type" g_unichar_type :: - CInt -> -- c : TBasicType TUniChar - IO CUInt - - -unicharType :: - (MonadIO m) => - Char -> -- c - m UnicodeType -unicharType c = liftIO $ do - let c' = (fromIntegral . ord) c - result <- g_unichar_type c' - let result' = (toEnum . fromIntegral) result - return result' - - --- function g_unichar_toupper --- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUniChar --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_toupper" g_unichar_toupper :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharToupper :: - (MonadIO m) => - Char -> -- c - m Char -unicharToupper c = liftIO $ do - let c' = (fromIntegral . ord) c - result <- g_unichar_toupper c' - let result' = (chr . fromIntegral) result - return result' - - --- function g_unichar_totitle --- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUniChar --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_totitle" g_unichar_totitle :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharTotitle :: - (MonadIO m) => - Char -> -- c - m Char -unicharTotitle c = liftIO $ do - let c' = (fromIntegral . ord) c - result <- g_unichar_totitle c' - let result' = (chr . fromIntegral) result - return result' - - --- function g_unichar_tolower --- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUniChar --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_tolower" g_unichar_tolower :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharTolower :: - (MonadIO m) => - Char -> -- c - m Char -unicharTolower c = liftIO $ do - let c' = (fromIntegral . ord) c - result <- g_unichar_tolower c' - let result' = (chr . fromIntegral) result - return result' - - --- function g_unichar_to_utf8 --- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "outbuf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "outbuf", 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_unichar_to_utf8" g_unichar_to_utf8 :: - CInt -> -- c : TBasicType TUniChar - CString -> -- outbuf : TBasicType TUTF8 - IO Int32 - - -unicharToUtf8 :: - (MonadIO m) => - Char -> -- c - T.Text -> -- outbuf - m Int32 -unicharToUtf8 c outbuf = liftIO $ do - let c' = (fromIntegral . ord) c - outbuf' <- textToCString outbuf - result <- g_unichar_to_utf8 c' outbuf' - freeMem outbuf' - return result - - --- function g_unichar_iszerowidth --- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_iszerowidth" g_unichar_iszerowidth :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIszerowidth :: - (MonadIO m) => - Char -> -- c - m Bool -unicharIszerowidth c = liftIO $ do - let c' = (fromIntegral . ord) c - result <- g_unichar_iszerowidth c' - let result' = (/= 0) result - return result' - - --- function g_unichar_isxdigit --- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_isxdigit" g_unichar_isxdigit :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIsxdigit :: - (MonadIO m) => - Char -> -- c - m Bool -unicharIsxdigit c = liftIO $ do - let c' = (fromIntegral . ord) c - result <- g_unichar_isxdigit c' - let result' = (/= 0) result - return result' - - --- function g_unichar_iswide_cjk --- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_iswide_cjk" g_unichar_iswide_cjk :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIswideCjk :: - (MonadIO m) => - Char -> -- c - m Bool -unicharIswideCjk c = liftIO $ do - let c' = (fromIntegral . ord) c - result <- g_unichar_iswide_cjk c' - let result' = (/= 0) result - return result' - - --- function g_unichar_iswide --- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_iswide" g_unichar_iswide :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIswide :: - (MonadIO m) => - Char -> -- c - m Bool -unicharIswide c = liftIO $ do - let c' = (fromIntegral . ord) c - result <- g_unichar_iswide c' - let result' = (/= 0) result - return result' - - --- function g_unichar_isupper --- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_isupper" g_unichar_isupper :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIsupper :: - (MonadIO m) => - Char -> -- c - m Bool -unicharIsupper c = liftIO $ do - let c' = (fromIntegral . ord) c - result <- g_unichar_isupper c' - let result' = (/= 0) result - return result' - - --- function g_unichar_istitle --- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_istitle" g_unichar_istitle :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIstitle :: - (MonadIO m) => - Char -> -- c - m Bool -unicharIstitle c = liftIO $ do - let c' = (fromIntegral . ord) c - result <- g_unichar_istitle c' - let result' = (/= 0) result - return result' - - --- function g_unichar_isspace --- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_isspace" g_unichar_isspace :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIsspace :: - (MonadIO m) => - Char -> -- c - m Bool -unicharIsspace c = liftIO $ do - let c' = (fromIntegral . ord) c - result <- g_unichar_isspace c' - let result' = (/= 0) result - return result' - - --- function g_unichar_ispunct --- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_ispunct" g_unichar_ispunct :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIspunct :: - (MonadIO m) => - Char -> -- c - m Bool -unicharIspunct c = liftIO $ do - let c' = (fromIntegral . ord) c - result <- g_unichar_ispunct c' - let result' = (/= 0) result - return result' - - --- function g_unichar_isprint --- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_isprint" g_unichar_isprint :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIsprint :: - (MonadIO m) => - Char -> -- c - m Bool -unicharIsprint c = liftIO $ do - let c' = (fromIntegral . ord) c - result <- g_unichar_isprint c' - let result' = (/= 0) result - return result' - - --- function g_unichar_ismark --- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_ismark" g_unichar_ismark :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIsmark :: - (MonadIO m) => - Char -> -- c - m Bool -unicharIsmark c = liftIO $ do - let c' = (fromIntegral . ord) c - result <- g_unichar_ismark c' - let result' = (/= 0) result - return result' - - --- function g_unichar_islower --- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_islower" g_unichar_islower :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIslower :: - (MonadIO m) => - Char -> -- c - m Bool -unicharIslower c = liftIO $ do - let c' = (fromIntegral . ord) c - result <- g_unichar_islower c' - let result' = (/= 0) result - return result' - - --- function g_unichar_isgraph --- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_isgraph" g_unichar_isgraph :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIsgraph :: - (MonadIO m) => - Char -> -- c - m Bool -unicharIsgraph c = liftIO $ do - let c' = (fromIntegral . ord) c - result <- g_unichar_isgraph c' - let result' = (/= 0) result - return result' - - --- function g_unichar_isdigit --- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_isdigit" g_unichar_isdigit :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIsdigit :: - (MonadIO m) => - Char -> -- c - m Bool -unicharIsdigit c = liftIO $ do - let c' = (fromIntegral . ord) c - result <- g_unichar_isdigit c' - let result' = (/= 0) result - return result' - - --- function g_unichar_isdefined --- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_isdefined" g_unichar_isdefined :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIsdefined :: - (MonadIO m) => - Char -> -- c - m Bool -unicharIsdefined c = liftIO $ do - let c' = (fromIntegral . ord) c - result <- g_unichar_isdefined c' - let result' = (/= 0) result - return result' - - --- function g_unichar_iscntrl --- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_iscntrl" g_unichar_iscntrl :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIscntrl :: - (MonadIO m) => - Char -> -- c - m Bool -unicharIscntrl c = liftIO $ do - let c' = (fromIntegral . ord) c - result <- g_unichar_iscntrl c' - let result' = (/= 0) result - return result' - - --- function g_unichar_isalpha --- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_isalpha" g_unichar_isalpha :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIsalpha :: - (MonadIO m) => - Char -> -- c - m Bool -unicharIsalpha c = liftIO $ do - let c' = (fromIntegral . ord) c - result <- g_unichar_isalpha c' - let result' = (/= 0) result - return result' - - --- function g_unichar_isalnum --- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_isalnum" g_unichar_isalnum :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIsalnum :: - (MonadIO m) => - Char -> -- c - m Bool -unicharIsalnum c = liftIO $ do - let c' = (fromIntegral . ord) c - result <- g_unichar_isalnum c' - let result' = (/= 0) result - return result' - - --- function g_unichar_get_script --- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "UnicodeScript" --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_get_script" g_unichar_get_script :: - CInt -> -- ch : TBasicType TUniChar - IO CUInt - - -unicharGetScript :: - (MonadIO m) => - Char -> -- ch - m UnicodeScript -unicharGetScript ch = liftIO $ do - let ch' = (fromIntegral . ord) ch - result <- g_unichar_get_script ch' - let result' = (toEnum . fromIntegral) result - return result' - - --- function g_unichar_get_mirror_char --- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mirrored_ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mirrored_ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_get_mirror_char" g_unichar_get_mirror_char :: - CInt -> -- ch : TBasicType TUniChar - CInt -> -- mirrored_ch : TBasicType TUniChar - IO CInt - - -unicharGetMirrorChar :: - (MonadIO m) => - Char -> -- ch - Char -> -- mirrored_ch - m Bool -unicharGetMirrorChar ch mirrored_ch = liftIO $ do - let ch' = (fromIntegral . ord) ch - let mirrored_ch' = (fromIntegral . ord) mirrored_ch - result <- g_unichar_get_mirror_char ch' mirrored_ch' - let result' = (/= 0) result - return result' - - --- function g_unichar_digit_value --- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_digit_value" g_unichar_digit_value :: - CInt -> -- c : TBasicType TUniChar - IO Int32 - - -unicharDigitValue :: - (MonadIO m) => - Char -> -- c - m Int32 -unicharDigitValue c = liftIO $ do - let c' = (fromIntegral . ord) c - result <- g_unichar_digit_value c' - return result - - --- function g_unichar_decompose --- Args : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "a", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "a", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_decompose" g_unichar_decompose :: - CInt -> -- ch : TBasicType TUniChar - CInt -> -- a : TBasicType TUniChar - CInt -> -- b : TBasicType TUniChar - IO CInt - - -unicharDecompose :: - (MonadIO m) => - Char -> -- ch - Char -> -- a - Char -> -- b - m Bool -unicharDecompose ch a b = liftIO $ do - let ch' = (fromIntegral . ord) ch - let a' = (fromIntegral . ord) a - let b' = (fromIntegral . ord) b - result <- g_unichar_decompose ch' a' b' - let result' = (/= 0) result - return result' - - --- function g_unichar_compose --- Args : [Arg {argName = "a", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "a", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_compose" g_unichar_compose :: - CInt -> -- a : TBasicType TUniChar - CInt -> -- b : TBasicType TUniChar - CInt -> -- ch : TBasicType TUniChar - IO CInt - - -unicharCompose :: - (MonadIO m) => - Char -> -- a - Char -> -- b - Char -> -- ch - m Bool -unicharCompose a b ch = liftIO $ do - let a' = (fromIntegral . ord) a - let b' = (fromIntegral . ord) b - let ch' = (fromIntegral . ord) ch - result <- g_unichar_compose a' b' ch' - let result' = (/= 0) result - return result' - - --- function g_unichar_combining_class --- Args : [Arg {argName = "uc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "uc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_combining_class" g_unichar_combining_class :: - CInt -> -- uc : TBasicType TUniChar - IO Int32 - - -unicharCombiningClass :: - (MonadIO m) => - Char -> -- uc - m Int32 -unicharCombiningClass uc = liftIO $ do - let uc' = (fromIntegral . ord) uc - result <- g_unichar_combining_class uc' - return result - - --- function g_unichar_break_type --- Args : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "UnicodeBreakType" --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_break_type" g_unichar_break_type :: - CInt -> -- c : TBasicType TUniChar - IO CUInt - - -unicharBreakType :: - (MonadIO m) => - Char -> -- c - m UnicodeBreakType -unicharBreakType c = liftIO $ do - let c' = (fromIntegral . ord) c - result <- g_unichar_break_type c' - let result' = (toEnum . fromIntegral) result - return result' - - --- function g_trash_stack_push --- Args : [Arg {argName = "stack_p", argType = TInterface "GLib" "TrashStack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data_p", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "stack_p", argType = TInterface "GLib" "TrashStack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data_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_trash_stack_push" g_trash_stack_push :: - Ptr TrashStack -> -- stack_p : TInterface "GLib" "TrashStack" - Ptr () -> -- data_p : TBasicType TVoid - IO () - - -trashStackPush :: - (MonadIO m) => - TrashStack -> -- stack_p - Ptr () -> -- data_p - m () -trashStackPush stack_p data_p = liftIO $ do - let stack_p' = unsafeManagedPtrGetPtr stack_p - g_trash_stack_push stack_p' data_p - touchManagedPtr stack_p - return () - - --- function g_trash_stack_height --- Args : [Arg {argName = "stack_p", argType = TInterface "GLib" "TrashStack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "stack_p", argType = TInterface "GLib" "TrashStack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_trash_stack_height" g_trash_stack_height :: - Ptr TrashStack -> -- stack_p : TInterface "GLib" "TrashStack" - IO Word32 - - -trashStackHeight :: - (MonadIO m) => - TrashStack -> -- stack_p - m Word32 -trashStackHeight stack_p = liftIO $ do - let stack_p' = unsafeManagedPtrGetPtr stack_p - result <- g_trash_stack_height stack_p' - touchManagedPtr stack_p - return result - - --- function g_timeout_source_new_seconds --- Args : [Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "interval", argType = TBasicType TUInt32, 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_timeout_source_new_seconds" g_timeout_source_new_seconds :: - Word32 -> -- interval : TBasicType TUInt32 - IO (Ptr Source) - - -timeoutSourceNewSeconds :: - (MonadIO m) => - Word32 -> -- interval - m Source -timeoutSourceNewSeconds interval = liftIO $ do - result <- g_timeout_source_new_seconds interval - checkUnexpectedReturnNULL "g_timeout_source_new_seconds" result - result' <- (wrapBoxed Source) result - return result' - - --- function g_timeout_source_new --- Args : [Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "interval", argType = TBasicType TUInt32, 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_timeout_source_new" g_timeout_source_new :: - Word32 -> -- interval : TBasicType TUInt32 - IO (Ptr Source) - - -timeoutSourceNew :: - (MonadIO m) => - Word32 -> -- interval - m Source -timeoutSourceNew interval = liftIO $ do - result <- g_timeout_source_new interval - checkUnexpectedReturnNULL "g_timeout_source_new" result - result' <- (wrapBoxed Source) result - return result' - - --- function g_timeout_add_seconds_full --- Args : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "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}] --- Lengths : [] --- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_timeout_add_seconds_full" g_timeout_add_seconds_full :: - Int32 -> -- priority : TBasicType TInt32 - Word32 -> -- interval : TBasicType TUInt32 - FunPtr SourceFuncC -> -- function : TInterface "GLib" "SourceFunc" - Ptr () -> -- data : TBasicType TVoid - FunPtr DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO Word32 - - -timeoutAddSeconds :: - (MonadIO m) => - Int32 -> -- priority - Word32 -> -- interval - SourceFunc -> -- function - m Word32 -timeoutAddSeconds priority interval function = liftIO $ do - function' <- mkSourceFunc (sourceFuncWrapper Nothing function) - let data_ = castFunPtrToPtr function' - let notify = safeFreeFunPtrPtr - result <- g_timeout_add_seconds_full priority interval function' data_ notify - return result - - --- function g_timeout_add_full --- Args : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "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}] --- Lengths : [] --- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_timeout_add_full" g_timeout_add_full :: - Int32 -> -- priority : TBasicType TInt32 - Word32 -> -- interval : TBasicType TUInt32 - FunPtr SourceFuncC -> -- function : TInterface "GLib" "SourceFunc" - Ptr () -> -- data : TBasicType TVoid - FunPtr DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO Word32 - - -timeoutAdd :: - (MonadIO m) => - Int32 -> -- priority - Word32 -> -- interval - SourceFunc -> -- function - m Word32 -timeoutAdd priority interval function = liftIO $ do - function' <- mkSourceFunc (sourceFuncWrapper Nothing function) - let data_ = castFunPtrToPtr function' - let notify = safeFreeFunPtrPtr - result <- g_timeout_add_full priority interval function' data_ notify - return result - - --- function g_time_val_from_iso8601 --- Args : [Arg {argName = "iso_date", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TInterface "GLib" "TimeVal", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "iso_date", 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_time_val_from_iso8601" g_time_val_from_iso8601 :: - CString -> -- iso_date : TBasicType TUTF8 - Ptr TimeVal -> -- time_ : TInterface "GLib" "TimeVal" - IO CInt - - -timeValFromIso8601 :: - (MonadIO m) => - T.Text -> -- iso_date - m (Bool,TimeVal) -timeValFromIso8601 iso_date = liftIO $ do - iso_date' <- textToCString iso_date - time_ <- callocBytes 16 :: IO (Ptr TimeVal) - result <- g_time_val_from_iso8601 iso_date' time_ - let result' = (/= 0) result - time_' <- (wrapPtr TimeVal) time_ - freeMem iso_date' - return (result', time_') - - --- function g_thread_yield --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_thread_yield" g_thread_yield :: - IO () - - -threadYield :: - (MonadIO m) => - m () -threadYield = liftIO $ do - g_thread_yield - return () - - --- function g_thread_self --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "GLib" "Thread" --- throws : False --- Skip return : False - -foreign import ccall "g_thread_self" g_thread_self :: - IO (Ptr Thread) - - -threadSelf :: - (MonadIO m) => - m Thread -threadSelf = liftIO $ do - result <- g_thread_self - checkUnexpectedReturnNULL "g_thread_self" result - result' <- (wrapBoxed Thread) result - return result' - - --- function g_thread_pool_stop_unused_threads --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_thread_pool_stop_unused_threads" g_thread_pool_stop_unused_threads :: - IO () - - -threadPoolStopUnusedThreads :: - (MonadIO m) => - m () -threadPoolStopUnusedThreads = liftIO $ do - g_thread_pool_stop_unused_threads - return () - - --- function g_thread_pool_set_max_unused_threads --- Args : [Arg {argName = "max_threads", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "max_threads", 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_thread_pool_set_max_unused_threads" g_thread_pool_set_max_unused_threads :: - Int32 -> -- max_threads : TBasicType TInt32 - IO () - - -threadPoolSetMaxUnusedThreads :: - (MonadIO m) => - Int32 -> -- max_threads - m () -threadPoolSetMaxUnusedThreads max_threads = liftIO $ do - g_thread_pool_set_max_unused_threads max_threads - return () - - --- function g_thread_pool_set_max_idle_time --- Args : [Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "interval", 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_thread_pool_set_max_idle_time" g_thread_pool_set_max_idle_time :: - Word32 -> -- interval : TBasicType TUInt32 - IO () - - -threadPoolSetMaxIdleTime :: - (MonadIO m) => - Word32 -> -- interval - m () -threadPoolSetMaxIdleTime interval = liftIO $ do - g_thread_pool_set_max_idle_time interval - return () - - --- function g_thread_pool_get_num_unused_threads --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_thread_pool_get_num_unused_threads" g_thread_pool_get_num_unused_threads :: - IO Word32 - - -threadPoolGetNumUnusedThreads :: - (MonadIO m) => - m Word32 -threadPoolGetNumUnusedThreads = liftIO $ do - result <- g_thread_pool_get_num_unused_threads - return result - - --- function g_thread_pool_get_max_unused_threads --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_thread_pool_get_max_unused_threads" g_thread_pool_get_max_unused_threads :: - IO Int32 - - -threadPoolGetMaxUnusedThreads :: - (MonadIO m) => - m Int32 -threadPoolGetMaxUnusedThreads = liftIO $ do - result <- g_thread_pool_get_max_unused_threads - return result - - --- function g_thread_pool_get_max_idle_time --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_thread_pool_get_max_idle_time" g_thread_pool_get_max_idle_time :: - IO Word32 - - -threadPoolGetMaxIdleTime :: - (MonadIO m) => - m Word32 -threadPoolGetMaxIdleTime = liftIO $ do - result <- g_thread_pool_get_max_idle_time - return result - - --- function g_thread_exit --- Args : [Arg {argName = "retval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "retval", 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_thread_exit" g_thread_exit :: - Ptr () -> -- retval : TBasicType TVoid - IO () - - -threadExit :: - (MonadIO m) => - Ptr () -> -- retval - m () -threadExit retval = liftIO $ do - g_thread_exit retval - return () - - --- function g_thread_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_thread_error_quark" g_thread_error_quark :: - IO Word32 - - -threadErrorQuark :: - (MonadIO m) => - m Word32 -threadErrorQuark = liftIO $ do - result <- g_thread_error_quark - return result - - --- function g_test_trap_subprocess --- Args : [Arg {argName = "test_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "usec_timeout", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_flags", argType = TInterface "GLib" "TestSubprocessFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "test_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "usec_timeout", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_flags", argType = TInterface "GLib" "TestSubprocessFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_test_trap_subprocess" g_test_trap_subprocess :: - CString -> -- test_path : TBasicType TUTF8 - Word64 -> -- usec_timeout : TBasicType TUInt64 - CUInt -> -- test_flags : TInterface "GLib" "TestSubprocessFlags" - IO () - - -testTrapSubprocess :: - (MonadIO m) => - Maybe (T.Text) -> -- test_path - Word64 -> -- usec_timeout - [TestSubprocessFlags] -> -- test_flags - m () -testTrapSubprocess test_path usec_timeout test_flags = liftIO $ do - maybeTest_path <- case test_path of - Nothing -> return nullPtr - Just jTest_path -> do - jTest_path' <- textToCString jTest_path - return jTest_path' - let test_flags' = gflagsToWord test_flags - g_test_trap_subprocess maybeTest_path usec_timeout test_flags' - freeMem maybeTest_path - return () - - --- function g_test_trap_reached_timeout --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_test_trap_reached_timeout" g_test_trap_reached_timeout :: - IO CInt - - -testTrapReachedTimeout :: - (MonadIO m) => - m Bool -testTrapReachedTimeout = liftIO $ do - result <- g_test_trap_reached_timeout - let result' = (/= 0) result - return result' - - --- function g_test_trap_has_passed --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_test_trap_has_passed" g_test_trap_has_passed :: - IO CInt - - -testTrapHasPassed :: - (MonadIO m) => - m Bool -testTrapHasPassed = liftIO $ do - result <- g_test_trap_has_passed - let result' = (/= 0) result - return result' - - --- function g_test_trap_fork --- Args : [Arg {argName = "usec_timeout", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_trap_flags", argType = TInterface "GLib" "TestTrapFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "usec_timeout", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_trap_flags", argType = TInterface "GLib" "TestTrapFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_test_trap_fork" g_test_trap_fork :: - Word64 -> -- usec_timeout : TBasicType TUInt64 - CUInt -> -- test_trap_flags : TInterface "GLib" "TestTrapFlags" - IO CInt - -{-# DEPRECATED testTrapFork ["This function is implemented only on Unix platforms,","and is not always reliable due to problems inherent in","fork-without-exec. Use g_test_trap_subprocess() instead."]#-} -testTrapFork :: - (MonadIO m) => - Word64 -> -- usec_timeout - [TestTrapFlags] -> -- test_trap_flags - m Bool -testTrapFork usec_timeout test_trap_flags = liftIO $ do - let test_trap_flags' = gflagsToWord test_trap_flags - result <- g_test_trap_fork usec_timeout test_trap_flags' - let result' = (/= 0) result - return result' - - --- function g_test_trap_assertions --- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "assertion_flags", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "assertion_flags", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", 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_test_trap_assertions" g_test_trap_assertions :: - CString -> -- domain : TBasicType TUTF8 - CString -> -- file : TBasicType TUTF8 - Int32 -> -- line : TBasicType TInt32 - CString -> -- func : TBasicType TUTF8 - Word64 -> -- assertion_flags : TBasicType TUInt64 - CString -> -- pattern : TBasicType TUTF8 - IO () - - -testTrapAssertions :: - (MonadIO m) => - T.Text -> -- domain - T.Text -> -- file - Int32 -> -- line - T.Text -> -- func - Word64 -> -- assertion_flags - T.Text -> -- pattern - m () -testTrapAssertions domain file line func assertion_flags pattern = liftIO $ do - domain' <- textToCString domain - file' <- textToCString file - func' <- textToCString func - pattern' <- textToCString pattern - g_test_trap_assertions domain' file' line func' assertion_flags pattern' - freeMem domain' - freeMem file' - freeMem func' - freeMem pattern' - return () - - --- function g_test_timer_start --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_test_timer_start" g_test_timer_start :: - IO () - - -testTimerStart :: - (MonadIO m) => - m () -testTimerStart = liftIO $ do - g_test_timer_start - return () - - --- function g_test_timer_last --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "g_test_timer_last" g_test_timer_last :: - IO CDouble - - -testTimerLast :: - (MonadIO m) => - m Double -testTimerLast = liftIO $ do - result <- g_test_timer_last - let result' = realToFrac result - return result' - - --- function g_test_timer_elapsed --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "g_test_timer_elapsed" g_test_timer_elapsed :: - IO CDouble - - -testTimerElapsed :: - (MonadIO m) => - m Double -testTimerElapsed = liftIO $ do - result <- g_test_timer_elapsed - let result' = realToFrac result - return result' - - --- function g_test_subprocess --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_test_subprocess" g_test_subprocess :: - IO CInt - - -testSubprocess :: - (MonadIO m) => - m Bool -testSubprocess = liftIO $ do - result <- g_test_subprocess - let result' = (/= 0) result - return result' - - --- function g_test_skip --- Args : [Arg {argName = "msg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "msg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_test_skip" g_test_skip :: - CString -> -- msg : TBasicType TUTF8 - IO () - - -testSkip :: - (MonadIO m) => - Maybe (T.Text) -> -- msg - m () -testSkip msg = liftIO $ do - maybeMsg <- case msg of - Nothing -> return nullPtr - Just jMsg -> do - jMsg' <- textToCString jMsg - return jMsg' - g_test_skip maybeMsg - freeMem maybeMsg - return () - - --- function g_test_set_nonfatal_assertions --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_test_set_nonfatal_assertions" g_test_set_nonfatal_assertions :: - IO () - - -testSetNonfatalAssertions :: - (MonadIO m) => - m () -testSetNonfatalAssertions = liftIO $ do - g_test_set_nonfatal_assertions - return () - - --- function g_test_run_suite --- Args : [Arg {argName = "suite", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "suite", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_test_run_suite" g_test_run_suite :: - Ptr TestSuite -> -- suite : TInterface "GLib" "TestSuite" - IO Int32 - - -testRunSuite :: - (MonadIO m) => - TestSuite -> -- suite - m Int32 -testRunSuite suite = liftIO $ do - let suite' = unsafeManagedPtrGetPtr suite - result <- g_test_run_suite suite' - touchManagedPtr suite - return result - - --- function g_test_run --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_test_run" g_test_run :: - IO Int32 - - -testRun :: - (MonadIO m) => - m Int32 -testRun = liftIO $ do - result <- g_test_run - return result - - --- function g_test_rand_int_range --- Args : [Arg {argName = "begin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "begin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_test_rand_int_range" g_test_rand_int_range :: - Int32 -> -- begin : TBasicType TInt32 - Int32 -> -- end : TBasicType TInt32 - IO Int32 - - -testRandIntRange :: - (MonadIO m) => - Int32 -> -- begin - Int32 -> -- end - m Int32 -testRandIntRange begin end = liftIO $ do - result <- g_test_rand_int_range begin end - return result - - --- function g_test_rand_int --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_test_rand_int" g_test_rand_int :: - IO Int32 - - -testRandInt :: - (MonadIO m) => - m Int32 -testRandInt = liftIO $ do - result <- g_test_rand_int - return result - - --- function g_test_rand_double_range --- Args : [Arg {argName = "range_start", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "range_end", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "range_start", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "range_end", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "g_test_rand_double_range" g_test_rand_double_range :: - CDouble -> -- range_start : TBasicType TDouble - CDouble -> -- range_end : TBasicType TDouble - IO CDouble - - -testRandDoubleRange :: - (MonadIO m) => - Double -> -- range_start - Double -> -- range_end - m Double -testRandDoubleRange range_start range_end = liftIO $ do - let range_start' = realToFrac range_start - let range_end' = realToFrac range_end - result <- g_test_rand_double_range range_start' range_end' - let result' = realToFrac result - return result' - - --- function g_test_rand_double --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "g_test_rand_double" g_test_rand_double :: - IO CDouble - - -testRandDouble :: - (MonadIO m) => - m Double -testRandDouble = liftIO $ do - result <- g_test_rand_double - let result' = realToFrac result - return result' - - --- function g_test_queue_free --- Args : [Arg {argName = "gfree_pointer", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "gfree_pointer", 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_test_queue_free" g_test_queue_free :: - Ptr () -> -- gfree_pointer : TBasicType TVoid - IO () - - -testQueueFree :: - (MonadIO m) => - Ptr () -> -- gfree_pointer - m () -testQueueFree gfree_pointer = liftIO $ do - g_test_queue_free gfree_pointer - return () - - --- function g_test_queue_destroy --- Args : [Arg {argName = "destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_data", 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_test_queue_destroy" g_test_queue_destroy :: - FunPtr DestroyNotifyC -> -- destroy_func : TInterface "GLib" "DestroyNotify" - Ptr () -> -- destroy_data : TBasicType TVoid - IO () - - -testQueueDestroy :: - (MonadIO m) => - DestroyNotify -> -- destroy_func - Ptr () -> -- destroy_data - m () -testQueueDestroy destroy_func destroy_data = liftIO $ do - ptrdestroy_func <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC)) - destroy_func' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrdestroy_func) destroy_func) - poke ptrdestroy_func destroy_func' - g_test_queue_destroy destroy_func' destroy_data - return () - - --- function g_test_log_type_name --- Args : [Arg {argName = "log_type", argType = TInterface "GLib" "TestLogType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "log_type", argType = TInterface "GLib" "TestLogType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_test_log_type_name" g_test_log_type_name :: - CUInt -> -- log_type : TInterface "GLib" "TestLogType" - IO CString - - -testLogTypeName :: - (MonadIO m) => - TestLogType -> -- log_type - m T.Text -testLogTypeName log_type = liftIO $ do - let log_type' = (fromIntegral . fromEnum) log_type - result <- g_test_log_type_name log_type' - checkUnexpectedReturnNULL "g_test_log_type_name" result - result' <- cstringToText result - return result' - - --- function g_test_incomplete --- Args : [Arg {argName = "msg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "msg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_test_incomplete" g_test_incomplete :: - CString -> -- msg : TBasicType TUTF8 - IO () - - -testIncomplete :: - (MonadIO m) => - Maybe (T.Text) -> -- msg - m () -testIncomplete msg = liftIO $ do - maybeMsg <- case msg of - Nothing -> return nullPtr - Just jMsg -> do - jMsg' <- textToCString jMsg - return jMsg' - g_test_incomplete maybeMsg - freeMem maybeMsg - return () - - --- function g_test_get_dir --- Args : [Arg {argName = "file_type", argType = TInterface "GLib" "TestFileType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "file_type", argType = TInterface "GLib" "TestFileType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_test_get_dir" g_test_get_dir :: - CUInt -> -- file_type : TInterface "GLib" "TestFileType" - IO CString - - -testGetDir :: - (MonadIO m) => - TestFileType -> -- file_type - m T.Text -testGetDir file_type = liftIO $ do - let file_type' = (fromIntegral . fromEnum) file_type - result <- g_test_get_dir file_type' - checkUnexpectedReturnNULL "g_test_get_dir" result - result' <- cstringToText result - return result' - - --- function g_test_failed --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_test_failed" g_test_failed :: - IO CInt - - -testFailed :: - (MonadIO m) => - m Bool -testFailed = liftIO $ do - result <- g_test_failed - let result' = (/= 0) result - return result' - - --- function g_test_fail --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_test_fail" g_test_fail :: - IO () - - -testFail :: - (MonadIO m) => - m () -testFail = liftIO $ do - g_test_fail - return () - - --- function g_test_expect_message --- Args : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_level", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_level", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", 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_test_expect_message" g_test_expect_message :: - CString -> -- log_domain : TBasicType TUTF8 - CUInt -> -- log_level : TInterface "GLib" "LogLevelFlags" - CString -> -- pattern : TBasicType TUTF8 - IO () - - -testExpectMessage :: - (MonadIO m) => - Maybe (T.Text) -> -- log_domain - [LogLevelFlags] -> -- log_level - T.Text -> -- pattern - m () -testExpectMessage log_domain log_level pattern = liftIO $ do - maybeLog_domain <- case log_domain of - Nothing -> return nullPtr - Just jLog_domain -> do - jLog_domain' <- textToCString jLog_domain - return jLog_domain' - let log_level' = gflagsToWord log_level - pattern' <- textToCString pattern - g_test_expect_message maybeLog_domain log_level' pattern' - freeMem maybeLog_domain - freeMem pattern' - return () - - --- function g_test_bug_base --- Args : [Arg {argName = "uri_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "uri_pattern", 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_test_bug_base" g_test_bug_base :: - CString -> -- uri_pattern : TBasicType TUTF8 - IO () - - -testBugBase :: - (MonadIO m) => - T.Text -> -- uri_pattern - m () -testBugBase uri_pattern = liftIO $ do - uri_pattern' <- textToCString uri_pattern - g_test_bug_base uri_pattern' - freeMem uri_pattern' - return () - - --- function g_test_bug --- Args : [Arg {argName = "bug_uri_snippet", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "bug_uri_snippet", 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_test_bug" g_test_bug :: - CString -> -- bug_uri_snippet : TBasicType TUTF8 - IO () - - -testBug :: - (MonadIO m) => - T.Text -> -- bug_uri_snippet - m () -testBug bug_uri_snippet = liftIO $ do - bug_uri_snippet' <- textToCString bug_uri_snippet - g_test_bug bug_uri_snippet' - freeMem bug_uri_snippet' - return () - - --- function g_test_assert_expected_messages_internal --- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", 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_test_assert_expected_messages_internal" g_test_assert_expected_messages_internal :: - CString -> -- domain : TBasicType TUTF8 - CString -> -- file : TBasicType TUTF8 - Int32 -> -- line : TBasicType TInt32 - CString -> -- func : TBasicType TUTF8 - IO () - - -testAssertExpectedMessagesInternal :: - (MonadIO m) => - T.Text -> -- domain - T.Text -> -- file - Int32 -> -- line - T.Text -> -- func - m () -testAssertExpectedMessagesInternal domain file line func = liftIO $ do - domain' <- textToCString domain - file' <- textToCString file - func' <- textToCString func - g_test_assert_expected_messages_internal domain' file' line func' - freeMem domain' - freeMem file' - freeMem func' - return () - - --- function g_test_add_func --- Args : [Arg {argName = "testpath", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_func", argType = TInterface "GLib" "TestFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "testpath", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_func", argType = TInterface "GLib" "TestFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_test_add_func" g_test_add_func :: - CString -> -- testpath : TBasicType TUTF8 - FunPtr TestFuncC -> -- test_func : TInterface "GLib" "TestFunc" - IO () - - -testAddFunc :: - (MonadIO m) => - T.Text -> -- testpath - TestFunc -> -- test_func - m () -testAddFunc testpath test_func = liftIO $ do - testpath' <- textToCString testpath - ptrtest_func <- callocMem :: IO (Ptr (FunPtr TestFuncC)) - test_func' <- mkTestFunc (testFuncWrapper (Just ptrtest_func) test_func) - poke ptrtest_func test_func' - g_test_add_func testpath' test_func' - freeMem testpath' - return () - - --- function g_test_add_data_func --- Args : [Arg {argName = "testpath", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_func", argType = TInterface "GLib" "TestDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "testpath", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_func", argType = TInterface "GLib" "TestDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_test_add_data_func" g_test_add_data_func :: - CString -> -- testpath : TBasicType TUTF8 - Ptr () -> -- test_data : TBasicType TVoid - FunPtr TestDataFuncC -> -- test_func : TInterface "GLib" "TestDataFunc" - IO () - - -testAddDataFunc :: - (MonadIO m) => - T.Text -> -- testpath - Ptr () -> -- test_data - TestDataFunc -> -- test_func - m () -testAddDataFunc testpath test_data test_func = liftIO $ do - testpath' <- textToCString testpath - ptrtest_func <- callocMem :: IO (Ptr (FunPtr TestDataFuncC)) - test_func' <- mkTestDataFunc (testDataFuncWrapper (Just ptrtest_func) test_func) - poke ptrtest_func test_func' - g_test_add_data_func testpath' test_data test_func' - freeMem testpath' - return () - - --- function g_strv_length --- Args : [Arg {argName = "str_array", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "str_array", 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_strv_length" g_strv_length :: - CString -> -- str_array : TBasicType TUTF8 - IO Word32 - - -strvLength :: - (MonadIO m) => - T.Text -> -- str_array - m Word32 -strvLength str_array = liftIO $ do - str_array' <- textToCString str_array - result <- g_strv_length str_array' - freeMem str_array' - return result - - --- function g_strv_get_type --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TGType --- throws : False --- Skip return : False - -foreign import ccall "g_strv_get_type" g_strv_get_type :: - IO CGType - - -strvGetType :: - (MonadIO m) => - m GType -strvGetType = liftIO $ do - result <- g_strv_get_type - let result' = GType result - return result' - - --- function g_strv_contains --- Args : [Arg {argName = "strv", argType = TBasicType TUTF8, 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "strv", argType = TBasicType TUTF8, 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}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_strv_contains" g_strv_contains :: - CString -> -- strv : TBasicType TUTF8 - CString -> -- str : TBasicType TUTF8 - IO CInt - - -strvContains :: - (MonadIO m) => - T.Text -> -- strv - T.Text -> -- str - m Bool -strvContains strv str = liftIO $ do - strv' <- textToCString strv - str' <- textToCString str - result <- g_strv_contains strv' str' - let result' = (/= 0) result - freeMem strv' - freeMem str' - return result' - - --- function g_strup --- 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_strup" g_strup :: - CString -> -- string : TBasicType TUTF8 - IO CString - -{-# DEPRECATED strup ["(Since version 2.2)","This function is totally broken for the reasons"," discussed in the g_strncasecmp() docs - use g_ascii_strup()"," or g_utf8_strup() instead."]#-} -strup :: - (MonadIO m) => - T.Text -> -- string - m T.Text -strup string = liftIO $ do - string' <- textToCString string - result <- g_strup string' - checkUnexpectedReturnNULL "g_strup" result - result' <- cstringToText result - freeMem result - freeMem string' - return result' - - --- function g_strtod --- Args : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "g_strtod" g_strtod :: - CString -> -- nptr : TBasicType TUTF8 - CString -> -- endptr : TBasicType TUTF8 - IO CDouble - - -strtod :: - (MonadIO m) => - T.Text -> -- nptr - T.Text -> -- endptr - m Double -strtod nptr endptr = liftIO $ do - nptr' <- textToCString nptr - endptr' <- textToCString endptr - result <- g_strtod nptr' endptr' - let result' = realToFrac result - freeMem nptr' - freeMem endptr' - return result' - - --- function g_strstr_len --- Args : [Arg {argName = "haystack", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "haystack_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "haystack", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "haystack_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needle", 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_strstr_len" g_strstr_len :: - CString -> -- haystack : TBasicType TUTF8 - Int64 -> -- haystack_len : TBasicType TInt64 - CString -> -- needle : TBasicType TUTF8 - IO CString - - -strstrLen :: - (MonadIO m) => - T.Text -> -- haystack - Int64 -> -- haystack_len - T.Text -> -- needle - m T.Text -strstrLen haystack haystack_len needle = liftIO $ do - haystack' <- textToCString haystack - needle' <- textToCString needle - result <- g_strstr_len haystack' haystack_len needle' - checkUnexpectedReturnNULL "g_strstr_len" result - result' <- cstringToText result - freeMem result - freeMem haystack' - freeMem needle' - return result' - - --- function g_strsignal --- Args : [Arg {argName = "signum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "signum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_strsignal" g_strsignal :: - Int32 -> -- signum : TBasicType TInt32 - IO CString - - -strsignal :: - (MonadIO m) => - Int32 -> -- signum - m T.Text -strsignal signum = liftIO $ do - result <- g_strsignal signum - checkUnexpectedReturnNULL "g_strsignal" result - result' <- cstringToText result - return result' - - --- function g_strrstr_len --- Args : [Arg {argName = "haystack", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "haystack_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "haystack", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "haystack_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needle", 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_strrstr_len" g_strrstr_len :: - CString -> -- haystack : TBasicType TUTF8 - Int64 -> -- haystack_len : TBasicType TInt64 - CString -> -- needle : TBasicType TUTF8 - IO CString - - -strrstrLen :: - (MonadIO m) => - T.Text -> -- haystack - Int64 -> -- haystack_len - T.Text -> -- needle - m T.Text -strrstrLen haystack haystack_len needle = liftIO $ do - haystack' <- textToCString haystack - needle' <- textToCString needle - result <- g_strrstr_len haystack' haystack_len needle' - checkUnexpectedReturnNULL "g_strrstr_len" result - result' <- cstringToText result - freeMem result - freeMem haystack' - freeMem needle' - return result' - - --- function g_strrstr --- Args : [Arg {argName = "haystack", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "haystack", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "needle", 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_strrstr" g_strrstr :: - CString -> -- haystack : TBasicType TUTF8 - CString -> -- needle : TBasicType TUTF8 - IO CString - - -strrstr :: - (MonadIO m) => - T.Text -> -- haystack - T.Text -> -- needle - m T.Text -strrstr haystack needle = liftIO $ do - haystack' <- textToCString haystack - needle' <- textToCString needle - result <- g_strrstr haystack' needle' - checkUnexpectedReturnNULL "g_strrstr" result - result' <- cstringToText result - freeMem result - freeMem haystack' - freeMem needle' - return result' - - --- function g_strreverse --- 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_strreverse" g_strreverse :: - CString -> -- string : TBasicType TUTF8 - IO CString - - -strreverse :: - (MonadIO m) => - T.Text -> -- string - m T.Text -strreverse string = liftIO $ do - string' <- textToCString string - result <- g_strreverse string' - checkUnexpectedReturnNULL "g_strreverse" result - result' <- cstringToText result - freeMem result - freeMem string' - return result' - - --- function g_strnfill --- Args : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill_char", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fill_char", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_strnfill" g_strnfill :: - Word64 -> -- length : TBasicType TUInt64 - Int8 -> -- fill_char : TBasicType TInt8 - IO CString - - -strnfill :: - (MonadIO m) => - Word64 -> -- length - Int8 -> -- fill_char - m T.Text -strnfill length_ fill_char = liftIO $ do - result <- g_strnfill length_ fill_char - checkUnexpectedReturnNULL "g_strnfill" result - result' <- cstringToText result - freeMem result - return result' - - --- function g_strndup --- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, 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},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_strndup" g_strndup :: - CString -> -- str : TBasicType TUTF8 - Word64 -> -- n : TBasicType TUInt64 - IO CString - - -strndup :: - (MonadIO m) => - T.Text -> -- str - Word64 -> -- n - m T.Text -strndup str n = liftIO $ do - str' <- textToCString str - result <- g_strndup str' n - checkUnexpectedReturnNULL "g_strndup" result - result' <- cstringToText result - freeMem result - freeMem str' - return result' - - --- function g_strncasecmp --- Args : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_strncasecmp" g_strncasecmp :: - CString -> -- s1 : TBasicType TUTF8 - CString -> -- s2 : TBasicType TUTF8 - Word32 -> -- n : TBasicType TUInt32 - IO Int32 - -{-# DEPRECATED strncasecmp ["(Since version 2.2)","The problem with g_strncasecmp() is that it does"," the comparison by calling toupper()/tolower(). These functions"," are locale-specific and operate on single bytes. However, it is"," impossible to handle things correctly from an internationalization"," standpoint by operating on bytes, since characters may be multibyte."," Thus g_strncasecmp() is broken if your string is guaranteed to be"," ASCII, since it is locale-sensitive, and it's broken if your string"," is localized, since it doesn't work on many encodings at all,"," including UTF-8, EUC-JP, etc.",""," There are therefore two replacement techniques: g_ascii_strncasecmp(),"," which only works on ASCII and is not locale-sensitive, and"," g_utf8_casefold() followed by strcmp() on the resulting strings,"," which is good for case-insensitive sorting of UTF-8."]#-} -strncasecmp :: - (MonadIO m) => - T.Text -> -- s1 - T.Text -> -- s2 - Word32 -> -- n - m Int32 -strncasecmp s1 s2 n = liftIO $ do - s1' <- textToCString s1 - s2' <- textToCString s2 - result <- g_strncasecmp s1' s2' n - freeMem s1' - freeMem s2' - return result - - --- function g_strlcpy --- Args : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt64 --- throws : False --- Skip return : False - -foreign import ccall "g_strlcpy" g_strlcpy :: - CString -> -- dest : TBasicType TUTF8 - CString -> -- src : TBasicType TUTF8 - Word64 -> -- dest_size : TBasicType TUInt64 - IO Word64 - - -strlcpy :: - (MonadIO m) => - T.Text -> -- dest - T.Text -> -- src - Word64 -> -- dest_size - m Word64 -strlcpy dest src dest_size = liftIO $ do - dest' <- textToCString dest - src' <- textToCString src - result <- g_strlcpy dest' src' dest_size - freeMem dest' - freeMem src' - return result - - --- function g_strlcat --- Args : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt64 --- throws : False --- Skip return : False - -foreign import ccall "g_strlcat" g_strlcat :: - CString -> -- dest : TBasicType TUTF8 - CString -> -- src : TBasicType TUTF8 - Word64 -> -- dest_size : TBasicType TUInt64 - IO Word64 - - -strlcat :: - (MonadIO m) => - T.Text -> -- dest - T.Text -> -- src - Word64 -> -- dest_size - m Word64 -strlcat dest src dest_size = liftIO $ do - dest' <- textToCString dest - src' <- textToCString src - result <- g_strlcat dest' src' dest_size - freeMem dest' - freeMem src' - return result - - --- function g_strjoinv --- Args : [Arg {argName = "separator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str_array", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "separator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str_array", 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_strjoinv" g_strjoinv :: - CString -> -- separator : TBasicType TUTF8 - CString -> -- str_array : TBasicType TUTF8 - IO CString - - -strjoinv :: - (MonadIO m) => - Maybe (T.Text) -> -- separator - T.Text -> -- str_array - m T.Text -strjoinv separator str_array = liftIO $ do - maybeSeparator <- case separator of - Nothing -> return nullPtr - Just jSeparator -> do - jSeparator' <- textToCString jSeparator - return jSeparator' - str_array' <- textToCString str_array - result <- g_strjoinv maybeSeparator str_array' - checkUnexpectedReturnNULL "g_strjoinv" result - result' <- cstringToText result - freeMem result - freeMem maybeSeparator - freeMem str_array' - return result' - - --- function g_strip_context --- Args : [Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgval", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgval", 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_strip_context" g_strip_context :: - CString -> -- msgid : TBasicType TUTF8 - CString -> -- msgval : TBasicType TUTF8 - IO CString - - -stripContext :: - (MonadIO m) => - T.Text -> -- msgid - T.Text -> -- msgval - m T.Text -stripContext msgid msgval = liftIO $ do - msgid' <- textToCString msgid - msgval' <- textToCString msgval - result <- g_strip_context msgid' msgval' - checkUnexpectedReturnNULL "g_strip_context" result - result' <- cstringToText result - freeMem msgid' - freeMem msgval' - return result' - - --- function g_string_sized_new --- Args : [Arg {argName = "dfl_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "dfl_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "String" --- throws : False --- Skip return : False - -foreign import ccall "g_string_sized_new" g_string_sized_new :: - Word64 -> -- dfl_size : TBasicType TUInt64 - IO (Ptr String) - - -stringSizedNew :: - (MonadIO m) => - Word64 -> -- dfl_size - m String -stringSizedNew dfl_size = liftIO $ do - result <- g_string_sized_new dfl_size - checkUnexpectedReturnNULL "g_string_sized_new" result - result' <- (wrapBoxed String) result - return result' - - --- function g_string_new_len --- Args : [Arg {argName = "init", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "init", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "String" --- throws : False --- Skip return : False - -foreign import ccall "g_string_new_len" g_string_new_len :: - CString -> -- init : TBasicType TUTF8 - Int64 -> -- len : TBasicType TInt64 - IO (Ptr String) - - -stringNewLen :: - (MonadIO m) => - T.Text -> -- init - Int64 -> -- len - m String -stringNewLen init len = liftIO $ do - init' <- textToCString init - result <- g_string_new_len init' len - checkUnexpectedReturnNULL "g_string_new_len" result - result' <- (wrapBoxed String) result - freeMem init' - return result' - - --- function g_string_new --- Args : [Arg {argName = "init", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "init", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "String" --- throws : False --- Skip return : False - -foreign import ccall "g_string_new" g_string_new :: - CString -> -- init : TBasicType TUTF8 - IO (Ptr String) - - -stringNew :: - (MonadIO m) => - Maybe (T.Text) -> -- init - m String -stringNew init = liftIO $ do - maybeInit <- case init of - Nothing -> return nullPtr - Just jInit -> do - jInit' <- textToCString jInit - return jInit' - result <- g_string_new maybeInit - checkUnexpectedReturnNULL "g_string_new" result - result' <- (wrapBoxed String) result - freeMem maybeInit - return result' - - --- function g_strfreev --- Args : [Arg {argName = "str_array", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "str_array", 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_strfreev" g_strfreev :: - CString -> -- str_array : TBasicType TUTF8 - IO () - - -strfreev :: - (MonadIO m) => - T.Text -> -- str_array - m () -strfreev str_array = liftIO $ do - str_array' <- textToCString str_array - g_strfreev str_array' - freeMem str_array' - return () - - --- function g_strescape --- Args : [Arg {argName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exceptions", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exceptions", 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_strescape" g_strescape :: - CString -> -- source : TBasicType TUTF8 - CString -> -- exceptions : TBasicType TUTF8 - IO CString - - -strescape :: - (MonadIO m) => - T.Text -> -- source - T.Text -> -- exceptions - m T.Text -strescape source exceptions = liftIO $ do - source' <- textToCString source - exceptions' <- textToCString exceptions - result <- g_strescape source' exceptions' - checkUnexpectedReturnNULL "g_strescape" result - result' <- cstringToText result - freeMem result - freeMem source' - freeMem exceptions' - return result' - - --- function g_strerror --- Args : [Arg {argName = "errnum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "errnum", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_strerror" g_strerror :: - Int32 -> -- errnum : TBasicType TInt32 - IO CString - - -strerror :: - (MonadIO m) => - Int32 -> -- errnum - m T.Text -strerror errnum = liftIO $ do - result <- g_strerror errnum - checkUnexpectedReturnNULL "g_strerror" result - result' <- cstringToText result - return result' - - --- function g_strdup --- 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 : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_strdup" g_strdup :: - CString -> -- str : TBasicType TUTF8 - IO CString - - -strdup :: - (MonadIO m) => - T.Text -> -- str - m T.Text -strdup str = liftIO $ do - str' <- textToCString str - result <- g_strdup str' - checkUnexpectedReturnNULL "g_strdup" result - result' <- cstringToText result - freeMem result - freeMem str' - return result' - - --- function g_strdown --- 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_strdown" g_strdown :: - CString -> -- string : TBasicType TUTF8 - IO CString - -{-# DEPRECATED strdown ["(Since version 2.2)","This function is totally broken for the reasons discussed","in the g_strncasecmp() docs - use g_ascii_strdown() or g_utf8_strdown()","instead."]#-} -strdown :: - (MonadIO m) => - T.Text -> -- string - m T.Text -strdown string = liftIO $ do - string' <- textToCString string - result <- g_strdown string' - checkUnexpectedReturnNULL "g_strdown" result - result' <- cstringToText result - freeMem result - freeMem string' - return result' - - --- function g_strdelimit --- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "delimiters", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_delimiter", argType = TBasicType TInt8, 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},Arg {argName = "delimiters", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_delimiter", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_strdelimit" g_strdelimit :: - CString -> -- string : TBasicType TUTF8 - CString -> -- delimiters : TBasicType TUTF8 - Int8 -> -- new_delimiter : TBasicType TInt8 - IO CString - - -strdelimit :: - (MonadIO m) => - T.Text -> -- string - Maybe (T.Text) -> -- delimiters - Int8 -> -- new_delimiter - m T.Text -strdelimit string delimiters new_delimiter = liftIO $ do - string' <- textToCString string - maybeDelimiters <- case delimiters of - Nothing -> return nullPtr - Just jDelimiters -> do - jDelimiters' <- textToCString jDelimiters - return jDelimiters' - result <- g_strdelimit string' maybeDelimiters new_delimiter - checkUnexpectedReturnNULL "g_strdelimit" result - result' <- cstringToText result - freeMem result - freeMem string' - freeMem maybeDelimiters - return result' - - --- function g_strcompress --- Args : [Arg {argName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "source", 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_strcompress" g_strcompress :: - CString -> -- source : TBasicType TUTF8 - IO CString - - -strcompress :: - (MonadIO m) => - T.Text -> -- source - m T.Text -strcompress source = liftIO $ do - source' <- textToCString source - result <- g_strcompress source' - checkUnexpectedReturnNULL "g_strcompress" result - result' <- cstringToText result - freeMem result - freeMem source' - return result' - - --- function g_strcmp0 --- Args : [Arg {argName = "str1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "str1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_strcmp0" g_strcmp0 :: - CString -> -- str1 : TBasicType TUTF8 - CString -> -- str2 : TBasicType TUTF8 - IO Int32 - - -strcmp0 :: - (MonadIO m) => - Maybe (T.Text) -> -- str1 - Maybe (T.Text) -> -- str2 - m Int32 -strcmp0 str1 str2 = liftIO $ do - maybeStr1 <- case str1 of - Nothing -> return nullPtr - Just jStr1 -> do - jStr1' <- textToCString jStr1 - return jStr1' - maybeStr2 <- case str2 of - Nothing -> return nullPtr - Just jStr2 -> do - jStr2' <- textToCString jStr2 - return jStr2' - result <- g_strcmp0 maybeStr1 maybeStr2 - freeMem maybeStr1 - freeMem maybeStr2 - return result - - --- function g_strchug --- 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_strchug" g_strchug :: - CString -> -- string : TBasicType TUTF8 - IO CString - - -strchug :: - (MonadIO m) => - T.Text -> -- string - m T.Text -strchug string = liftIO $ do - string' <- textToCString string - result <- g_strchug string' - checkUnexpectedReturnNULL "g_strchug" result - result' <- cstringToText result - freeMem result - freeMem string' - return result' - - --- function g_strchomp --- 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_strchomp" g_strchomp :: - CString -> -- string : TBasicType TUTF8 - IO CString - - -strchomp :: - (MonadIO m) => - T.Text -> -- string - m T.Text -strchomp string = liftIO $ do - string' <- textToCString string - result <- g_strchomp string' - checkUnexpectedReturnNULL "g_strchomp" result - result' <- cstringToText result - freeMem result - freeMem string' - return result' - - --- function g_strcasecmp --- Args : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", 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_strcasecmp" g_strcasecmp :: - CString -> -- s1 : TBasicType TUTF8 - CString -> -- s2 : TBasicType TUTF8 - IO Int32 - -{-# DEPRECATED strcasecmp ["(Since version 2.2)","See g_strncasecmp() for a discussion of why this"," function is deprecated and how to replace it."]#-} -strcasecmp :: - (MonadIO m) => - T.Text -> -- s1 - T.Text -> -- s2 - m Int32 -strcasecmp s1 s2 = liftIO $ do - s1' <- textToCString s1 - s2' <- textToCString s2 - result <- g_strcasecmp s1' s2' - freeMem s1' - freeMem s2' - return result - - --- function g_strcanon --- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "valid_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "substitutor", argType = TBasicType TInt8, 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},Arg {argName = "valid_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "substitutor", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_strcanon" g_strcanon :: - CString -> -- string : TBasicType TUTF8 - CString -> -- valid_chars : TBasicType TUTF8 - Int8 -> -- substitutor : TBasicType TInt8 - IO CString - - -strcanon :: - (MonadIO m) => - T.Text -> -- string - T.Text -> -- valid_chars - Int8 -> -- substitutor - m T.Text -strcanon string valid_chars substitutor = liftIO $ do - string' <- textToCString string - valid_chars' <- textToCString valid_chars - result <- g_strcanon string' valid_chars' substitutor - checkUnexpectedReturnNULL "g_strcanon" result - result' <- cstringToText result - freeMem result - freeMem string' - freeMem valid_chars' - return result' - - --- function g_str_tokenize_and_fold --- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translit_locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ascii_alternates", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translit_locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_str_tokenize_and_fold" g_str_tokenize_and_fold :: - CString -> -- string : TBasicType TUTF8 - CString -> -- translit_locale : TBasicType TUTF8 - Ptr (Ptr CString) -> -- ascii_alternates : TCArray True (-1) (-1) (TBasicType TUTF8) - IO (Ptr CString) - - -strTokenizeAndFold :: - (MonadIO m) => - T.Text -> -- string - Maybe (T.Text) -> -- translit_locale - m ([T.Text],[T.Text]) -strTokenizeAndFold string translit_locale = liftIO $ do - string' <- textToCString string - maybeTranslit_locale <- case translit_locale of - Nothing -> return nullPtr - Just jTranslit_locale -> do - jTranslit_locale' <- textToCString jTranslit_locale - return jTranslit_locale' - ascii_alternates <- allocMem :: IO (Ptr (Ptr CString)) - result <- g_str_tokenize_and_fold string' maybeTranslit_locale ascii_alternates - checkUnexpectedReturnNULL "g_str_tokenize_and_fold" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - ascii_alternates' <- peek ascii_alternates - ascii_alternates'' <- unpackZeroTerminatedUTF8CArray ascii_alternates' - mapZeroTerminatedCArray freeMem ascii_alternates' - freeMem ascii_alternates' - freeMem string' - freeMem maybeTranslit_locale - freeMem ascii_alternates - return (result', ascii_alternates'') - - --- function g_str_to_ascii --- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "from_locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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},Arg {argName = "from_locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_str_to_ascii" g_str_to_ascii :: - CString -> -- str : TBasicType TUTF8 - CString -> -- from_locale : TBasicType TUTF8 - IO CString - - -strToAscii :: - (MonadIO m) => - T.Text -> -- str - Maybe (T.Text) -> -- from_locale - m T.Text -strToAscii str from_locale = liftIO $ do - str' <- textToCString str - maybeFrom_locale <- case from_locale of - Nothing -> return nullPtr - Just jFrom_locale -> do - jFrom_locale' <- textToCString jFrom_locale - return jFrom_locale' - result <- g_str_to_ascii str' maybeFrom_locale - checkUnexpectedReturnNULL "g_str_to_ascii" result - result' <- cstringToText result - freeMem result - freeMem str' - freeMem maybeFrom_locale - return result' - - --- function g_str_match_string --- Args : [Arg {argName = "search_term", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "potential_hit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accept_alternates", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "search_term", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "potential_hit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accept_alternates", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_str_match_string" g_str_match_string :: - CString -> -- search_term : TBasicType TUTF8 - CString -> -- potential_hit : TBasicType TUTF8 - CInt -> -- accept_alternates : TBasicType TBoolean - IO CInt - - -strMatchString :: - (MonadIO m) => - T.Text -> -- search_term - T.Text -> -- potential_hit - Bool -> -- accept_alternates - m Bool -strMatchString search_term potential_hit accept_alternates = liftIO $ do - search_term' <- textToCString search_term - potential_hit' <- textToCString potential_hit - let accept_alternates' = (fromIntegral . fromEnum) accept_alternates - result <- g_str_match_string search_term' potential_hit' accept_alternates' - let result' = (/= 0) result - freeMem search_term' - freeMem potential_hit' - return result' - - --- function g_str_is_ascii --- 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 : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_str_is_ascii" g_str_is_ascii :: - CString -> -- str : TBasicType TUTF8 - IO CInt - - -strIsAscii :: - (MonadIO m) => - T.Text -> -- str - m Bool -strIsAscii str = liftIO $ do - str' <- textToCString str - result <- g_str_is_ascii str' - let result' = (/= 0) result - freeMem str' - return result' - - --- function g_str_hash --- Args : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "v", 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_str_hash" g_str_hash :: - Ptr () -> -- v : TBasicType TVoid - IO Word32 - - -strHash :: - (MonadIO m) => - Ptr () -> -- v - m Word32 -strHash v = liftIO $ do - result <- g_str_hash v - return result - - --- function g_str_has_suffix --- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "suffix", 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},Arg {argName = "suffix", 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_str_has_suffix" g_str_has_suffix :: - CString -> -- str : TBasicType TUTF8 - CString -> -- suffix : TBasicType TUTF8 - IO CInt - - -strHasSuffix :: - (MonadIO m) => - T.Text -> -- str - T.Text -> -- suffix - m Bool -strHasSuffix str suffix = liftIO $ do - str' <- textToCString str - suffix' <- textToCString suffix - result <- g_str_has_suffix str' suffix' - let result' = (/= 0) result - freeMem str' - freeMem suffix' - return result' - - --- function g_str_has_prefix --- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "prefix", 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},Arg {argName = "prefix", 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_str_has_prefix" g_str_has_prefix :: - CString -> -- str : TBasicType TUTF8 - CString -> -- prefix : TBasicType TUTF8 - IO CInt - - -strHasPrefix :: - (MonadIO m) => - T.Text -> -- str - T.Text -> -- prefix - m Bool -strHasPrefix str prefix = liftIO $ do - str' <- textToCString str - prefix' <- textToCString prefix - result <- g_str_has_prefix str' prefix' - let result' = (/= 0) result - freeMem str' - freeMem prefix' - return result' - - --- function g_str_equal --- Args : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_str_equal" g_str_equal :: - Ptr () -> -- v1 : TBasicType TVoid - Ptr () -> -- v2 : TBasicType TVoid - IO CInt - - -strEqual :: - (MonadIO m) => - Ptr () -> -- v1 - Ptr () -> -- v2 - m Bool -strEqual v1 v2 = liftIO $ do - result <- g_str_equal v1 v2 - let result' = (/= 0) result - return result' - - --- function g_stpcpy --- Args : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", 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_stpcpy" g_stpcpy :: - CString -> -- dest : TBasicType TUTF8 - CString -> -- src : TBasicType TUTF8 - IO CString - - -stpcpy :: - (MonadIO m) => - T.Text -> -- dest - T.Text -> -- src - m T.Text -stpcpy dest src = liftIO $ do - dest' <- textToCString dest - src' <- textToCString src - result <- g_stpcpy dest' src' - checkUnexpectedReturnNULL "g_stpcpy" result - result' <- cstringToText result - freeMem result - freeMem dest' - freeMem src' - return result' - - --- function g_spawn_sync --- Args : [Arg {argName = "working_directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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},Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "SpawnFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", 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},Arg {argName = "standard_output", argType = TCArray True (-1) (-1) (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "standard_error", argType = TCArray True (-1) (-1) (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "exit_status", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "working_directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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},Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "SpawnFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_spawn_sync" g_spawn_sync :: - CString -> -- working_directory : TBasicType TUTF8 - Ptr CString -> -- argv : TCArray True (-1) (-1) (TBasicType TUTF8) - Ptr CString -> -- envp : TCArray True (-1) (-1) (TBasicType TUTF8) - CUInt -> -- flags : TInterface "GLib" "SpawnFlags" - FunPtr SpawnChildSetupFuncC -> -- child_setup : TInterface "GLib" "SpawnChildSetupFunc" - Ptr () -> -- user_data : TBasicType TVoid - Ptr (Ptr Word8) -> -- standard_output : TCArray True (-1) (-1) (TBasicType TUInt8) - Ptr (Ptr Word8) -> -- standard_error : TCArray True (-1) (-1) (TBasicType TUInt8) - Ptr Int32 -> -- exit_status : TBasicType TInt32 - Ptr (Ptr GError) -> -- error - IO CInt - - -spawnSync :: - (MonadIO m) => - Maybe (T.Text) -> -- working_directory - [T.Text] -> -- argv - Maybe ([T.Text]) -> -- envp - [SpawnFlags] -> -- flags - Maybe (SpawnChildSetupFunc) -> -- child_setup - m (ByteString,ByteString,Int32) -spawnSync working_directory argv envp flags child_setup = liftIO $ do - maybeWorking_directory <- case working_directory of - Nothing -> return nullPtr - Just jWorking_directory -> do - jWorking_directory' <- textToCString jWorking_directory - return jWorking_directory' - argv' <- packZeroTerminatedUTF8CArray argv - maybeEnvp <- case envp of - Nothing -> return nullPtr - Just jEnvp -> do - jEnvp' <- packZeroTerminatedUTF8CArray jEnvp - return jEnvp' - let flags' = gflagsToWord flags - ptrchild_setup <- callocMem :: IO (Ptr (FunPtr SpawnChildSetupFuncC)) - maybeChild_setup <- case child_setup of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jChild_setup -> do - jChild_setup' <- mkSpawnChildSetupFunc (spawnChildSetupFuncWrapper (Just ptrchild_setup) jChild_setup) - poke ptrchild_setup jChild_setup' - return jChild_setup' - standard_output <- allocMem :: IO (Ptr (Ptr Word8)) - standard_error <- allocMem :: IO (Ptr (Ptr Word8)) - exit_status <- allocMem :: IO (Ptr Int32) - let user_data = nullPtr - onException (do - _ <- propagateGError $ g_spawn_sync maybeWorking_directory argv' maybeEnvp flags' maybeChild_setup user_data standard_output standard_error exit_status - standard_output' <- peek standard_output - standard_output'' <- unpackZeroTerminatedByteString standard_output' - freeMem standard_output' - standard_error' <- peek standard_error - standard_error'' <- unpackZeroTerminatedByteString standard_error' - freeMem standard_error' - exit_status' <- peek exit_status - freeMem maybeWorking_directory - mapZeroTerminatedCArray freeMem argv' - freeMem argv' - mapZeroTerminatedCArray freeMem maybeEnvp - freeMem maybeEnvp - freeMem standard_output - freeMem standard_error - freeMem exit_status - return (standard_output'', standard_error'', exit_status') - ) (do - freeMem maybeWorking_directory - mapZeroTerminatedCArray freeMem argv' - freeMem argv' - mapZeroTerminatedCArray freeMem maybeEnvp - freeMem maybeEnvp - freeMem standard_output - freeMem standard_error - freeMem exit_status - ) - - --- function g_spawn_exit_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_spawn_exit_error_quark" g_spawn_exit_error_quark :: - IO Word32 - - -spawnExitErrorQuark :: - (MonadIO m) => - m Word32 -spawnExitErrorQuark = liftIO $ do - result <- g_spawn_exit_error_quark - return result - - --- function g_spawn_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_spawn_error_quark" g_spawn_error_quark :: - IO Word32 - - -spawnErrorQuark :: - (MonadIO m) => - m Word32 -spawnErrorQuark = liftIO $ do - result <- g_spawn_error_quark - return result - - --- function g_spawn_command_line_sync --- Args : [Arg {argName = "command_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "standard_output", argType = TCArray True (-1) (-1) (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "standard_error", argType = TCArray True (-1) (-1) (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "exit_status", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "command_line", 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_spawn_command_line_sync" g_spawn_command_line_sync :: - CString -> -- command_line : TBasicType TUTF8 - Ptr (Ptr Word8) -> -- standard_output : TCArray True (-1) (-1) (TBasicType TUInt8) - Ptr (Ptr Word8) -> -- standard_error : TCArray True (-1) (-1) (TBasicType TUInt8) - Ptr Int32 -> -- exit_status : TBasicType TInt32 - Ptr (Ptr GError) -> -- error - IO CInt - - -spawnCommandLineSync :: - (MonadIO m) => - T.Text -> -- command_line - m (ByteString,ByteString,Int32) -spawnCommandLineSync command_line = liftIO $ do - command_line' <- textToCString command_line - standard_output <- allocMem :: IO (Ptr (Ptr Word8)) - standard_error <- allocMem :: IO (Ptr (Ptr Word8)) - exit_status <- allocMem :: IO (Ptr Int32) - onException (do - _ <- propagateGError $ g_spawn_command_line_sync command_line' standard_output standard_error exit_status - standard_output' <- peek standard_output - standard_output'' <- unpackZeroTerminatedByteString standard_output' - freeMem standard_output' - standard_error' <- peek standard_error - standard_error'' <- unpackZeroTerminatedByteString standard_error' - freeMem standard_error' - exit_status' <- peek exit_status - freeMem command_line' - freeMem standard_output - freeMem standard_error - freeMem exit_status - return (standard_output'', standard_error'', exit_status') - ) (do - freeMem command_line' - freeMem standard_output - freeMem standard_error - freeMem exit_status - ) - - --- function g_spawn_command_line_async --- Args : [Arg {argName = "command_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "command_line", 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_spawn_command_line_async" g_spawn_command_line_async :: - CString -> -- command_line : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -spawnCommandLineAsync :: - (MonadIO m) => - T.Text -> -- command_line - m () -spawnCommandLineAsync command_line = liftIO $ do - command_line' <- textToCString command_line - onException (do - _ <- propagateGError $ g_spawn_command_line_async command_line' - freeMem command_line' - return () - ) (do - freeMem command_line' - ) - - --- function g_spawn_close_pid --- Args : [Arg {argName = "pid", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "pid", 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_spawn_close_pid" g_spawn_close_pid :: - Int32 -> -- pid : TBasicType TInt32 - IO () - - -spawnClosePid :: - (MonadIO m) => - Int32 -> -- pid - m () -spawnClosePid pid = liftIO $ do - g_spawn_close_pid pid - return () - - --- function g_spawn_check_exit_status --- Args : [Arg {argName = "exit_status", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "exit_status", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_spawn_check_exit_status" g_spawn_check_exit_status :: - Int32 -> -- exit_status : TBasicType TInt32 - Ptr (Ptr GError) -> -- error - IO CInt - - -spawnCheckExitStatus :: - (MonadIO m) => - Int32 -> -- exit_status - m () -spawnCheckExitStatus exit_status = liftIO $ do - onException (do - _ <- propagateGError $ g_spawn_check_exit_status exit_status - return () - ) (do - return () - ) - - --- function g_spawn_async_with_pipes --- Args : [Arg {argName = "working_directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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},Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "SpawnFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", 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},Arg {argName = "child_pid", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "standard_input", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "standard_output", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "standard_error", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "working_directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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},Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "SpawnFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_spawn_async_with_pipes" g_spawn_async_with_pipes :: - CString -> -- working_directory : TBasicType TUTF8 - Ptr CString -> -- argv : TCArray True (-1) (-1) (TBasicType TUTF8) - Ptr CString -> -- envp : TCArray True (-1) (-1) (TBasicType TUTF8) - CUInt -> -- flags : TInterface "GLib" "SpawnFlags" - FunPtr SpawnChildSetupFuncC -> -- child_setup : TInterface "GLib" "SpawnChildSetupFunc" - Ptr () -> -- user_data : TBasicType TVoid - Ptr Int32 -> -- child_pid : TBasicType TInt32 - Ptr Int32 -> -- standard_input : TBasicType TInt32 - Ptr Int32 -> -- standard_output : TBasicType TInt32 - Ptr Int32 -> -- standard_error : TBasicType TInt32 - Ptr (Ptr GError) -> -- error - IO CInt - - -spawnAsyncWithPipes :: - (MonadIO m) => - Maybe (T.Text) -> -- working_directory - [T.Text] -> -- argv - Maybe ([T.Text]) -> -- envp - [SpawnFlags] -> -- flags - Maybe (SpawnChildSetupFunc) -> -- child_setup - m (Int32,Int32,Int32,Int32) -spawnAsyncWithPipes working_directory argv envp flags child_setup = liftIO $ do - maybeWorking_directory <- case working_directory of - Nothing -> return nullPtr - Just jWorking_directory -> do - jWorking_directory' <- textToCString jWorking_directory - return jWorking_directory' - argv' <- packZeroTerminatedUTF8CArray argv - maybeEnvp <- case envp of - Nothing -> return nullPtr - Just jEnvp -> do - jEnvp' <- packZeroTerminatedUTF8CArray jEnvp - return jEnvp' - let flags' = gflagsToWord flags - ptrchild_setup <- callocMem :: IO (Ptr (FunPtr SpawnChildSetupFuncC)) - maybeChild_setup <- case child_setup of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jChild_setup -> do - jChild_setup' <- mkSpawnChildSetupFunc (spawnChildSetupFuncWrapper (Just ptrchild_setup) jChild_setup) - poke ptrchild_setup jChild_setup' - return jChild_setup' - child_pid <- allocMem :: IO (Ptr Int32) - standard_input <- allocMem :: IO (Ptr Int32) - standard_output <- allocMem :: IO (Ptr Int32) - standard_error <- allocMem :: IO (Ptr Int32) - let user_data = nullPtr - onException (do - _ <- propagateGError $ g_spawn_async_with_pipes maybeWorking_directory argv' maybeEnvp flags' maybeChild_setup user_data child_pid standard_input standard_output standard_error - child_pid' <- peek child_pid - standard_input' <- peek standard_input - standard_output' <- peek standard_output - standard_error' <- peek standard_error - freeMem maybeWorking_directory - mapZeroTerminatedCArray freeMem argv' - freeMem argv' - mapZeroTerminatedCArray freeMem maybeEnvp - freeMem maybeEnvp - freeMem child_pid - freeMem standard_input - freeMem standard_output - freeMem standard_error - return (child_pid', standard_input', standard_output', standard_error') - ) (do - freeMem maybeWorking_directory - mapZeroTerminatedCArray freeMem argv' - freeMem argv' - mapZeroTerminatedCArray freeMem maybeEnvp - freeMem maybeEnvp - freeMem child_pid - freeMem standard_input - freeMem standard_output - freeMem standard_error - ) - - --- function g_spawn_async --- Args : [Arg {argName = "working_directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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},Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "SpawnFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", 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},Arg {argName = "child_pid", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "working_directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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},Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "SpawnFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_spawn_async" g_spawn_async :: - CString -> -- working_directory : TBasicType TUTF8 - Ptr CString -> -- argv : TCArray True (-1) (-1) (TBasicType TUTF8) - Ptr CString -> -- envp : TCArray True (-1) (-1) (TBasicType TUTF8) - CUInt -> -- flags : TInterface "GLib" "SpawnFlags" - FunPtr SpawnChildSetupFuncC -> -- child_setup : TInterface "GLib" "SpawnChildSetupFunc" - Ptr () -> -- user_data : TBasicType TVoid - Ptr Int32 -> -- child_pid : TBasicType TInt32 - Ptr (Ptr GError) -> -- error - IO CInt - - -spawnAsync :: - (MonadIO m) => - Maybe (T.Text) -> -- working_directory - [T.Text] -> -- argv - Maybe ([T.Text]) -> -- envp - [SpawnFlags] -> -- flags - Maybe (SpawnChildSetupFunc) -> -- child_setup - m (Int32) -spawnAsync working_directory argv envp flags child_setup = liftIO $ do - maybeWorking_directory <- case working_directory of - Nothing -> return nullPtr - Just jWorking_directory -> do - jWorking_directory' <- textToCString jWorking_directory - return jWorking_directory' - argv' <- packZeroTerminatedUTF8CArray argv - maybeEnvp <- case envp of - Nothing -> return nullPtr - Just jEnvp -> do - jEnvp' <- packZeroTerminatedUTF8CArray jEnvp - return jEnvp' - let flags' = gflagsToWord flags - ptrchild_setup <- callocMem :: IO (Ptr (FunPtr SpawnChildSetupFuncC)) - maybeChild_setup <- case child_setup of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jChild_setup -> do - jChild_setup' <- mkSpawnChildSetupFunc (spawnChildSetupFuncWrapper (Just ptrchild_setup) jChild_setup) - poke ptrchild_setup jChild_setup' - return jChild_setup' - child_pid <- allocMem :: IO (Ptr Int32) - let user_data = nullPtr - onException (do - _ <- propagateGError $ g_spawn_async maybeWorking_directory argv' maybeEnvp flags' maybeChild_setup user_data child_pid - child_pid' <- peek child_pid - freeMem maybeWorking_directory - mapZeroTerminatedCArray freeMem argv' - freeMem argv' - mapZeroTerminatedCArray freeMem maybeEnvp - freeMem maybeEnvp - freeMem child_pid - return child_pid' - ) (do - freeMem maybeWorking_directory - mapZeroTerminatedCArray freeMem argv' - freeMem argv' - mapZeroTerminatedCArray freeMem maybeEnvp - freeMem maybeEnvp - freeMem child_pid - ) - - --- function g_spaced_primes_closest --- Args : [Arg {argName = "num", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "num", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_spaced_primes_closest" g_spaced_primes_closest :: - Word32 -> -- num : TBasicType TUInt32 - IO Word32 - - -spacedPrimesClosest :: - (MonadIO m) => - Word32 -> -- num - m Word32 -spacedPrimesClosest num = liftIO $ do - result <- g_spaced_primes_closest num - return result - - --- function g_source_set_name_by_id --- Args : [Arg {argName = "tag", argType = TBasicType TUInt32, 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 = "tag", argType = TBasicType TUInt32, 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_source_set_name_by_id" g_source_set_name_by_id :: - Word32 -> -- tag : TBasicType TUInt32 - CString -> -- name : TBasicType TUTF8 - IO () - - -sourceSetNameById :: - (MonadIO m) => - Word32 -> -- tag - T.Text -> -- name - m () -sourceSetNameById tag name = liftIO $ do - name' <- textToCString name - g_source_set_name_by_id tag name' - freeMem name' - return () - - --- function g_source_remove_by_user_data --- Args : [Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_source_remove_by_user_data" g_source_remove_by_user_data :: - Ptr () -> -- user_data : TBasicType TVoid - IO CInt - - -sourceRemoveByUserData :: - (MonadIO m) => - Ptr () -> -- user_data - m Bool -sourceRemoveByUserData user_data = liftIO $ do - result <- g_source_remove_by_user_data user_data - let result' = (/= 0) result - return result' - - --- function g_source_remove_by_funcs_user_data --- Args : [Arg {argName = "funcs", argType = TInterface "GLib" "SourceFuncs", 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 : [] --- hInArgs : [Arg {argName = "funcs", argType = TInterface "GLib" "SourceFuncs", 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}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_source_remove_by_funcs_user_data" g_source_remove_by_funcs_user_data :: - Ptr SourceFuncs -> -- funcs : TInterface "GLib" "SourceFuncs" - Ptr () -> -- user_data : TBasicType TVoid - IO CInt - - -sourceRemoveByFuncsUserData :: - (MonadIO m) => - SourceFuncs -> -- funcs - Ptr () -> -- user_data - m Bool -sourceRemoveByFuncsUserData funcs user_data = liftIO $ do - let funcs' = unsafeManagedPtrGetPtr funcs - result <- g_source_remove_by_funcs_user_data funcs' user_data - let result' = (/= 0) result - touchManagedPtr funcs - return result' - - --- function g_source_remove --- Args : [Arg {argName = "tag", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "tag", 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_source_remove" g_source_remove :: - Word32 -> -- tag : TBasicType TUInt32 - IO CInt - - -sourceRemove :: - (MonadIO m) => - Word32 -> -- tag - m Bool -sourceRemove tag = liftIO $ do - result <- g_source_remove tag - let result' = (/= 0) result - return result' - - --- function g_slice_set_config --- Args : [Arg {argName = "ckey", argType = TInterface "GLib" "SliceConfig", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "ckey", argType = TInterface "GLib" "SliceConfig", 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}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_slice_set_config" g_slice_set_config :: - CUInt -> -- ckey : TInterface "GLib" "SliceConfig" - Int64 -> -- value : TBasicType TInt64 - IO () - - -sliceSetConfig :: - (MonadIO m) => - SliceConfig -> -- ckey - Int64 -> -- value - m () -sliceSetConfig ckey value = liftIO $ do - let ckey' = (fromIntegral . fromEnum) ckey - g_slice_set_config ckey' value - return () - - --- function g_slice_get_config_state --- Args : [Arg {argName = "ckey", argType = TInterface "GLib" "SliceConfig", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "ckey", argType = TInterface "GLib" "SliceConfig", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_values", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt64 --- throws : False --- Skip return : False - -foreign import ccall "g_slice_get_config_state" g_slice_get_config_state :: - CUInt -> -- ckey : TInterface "GLib" "SliceConfig" - Int64 -> -- address : TBasicType TInt64 - Word32 -> -- n_values : TBasicType TUInt32 - IO Int64 - - -sliceGetConfigState :: - (MonadIO m) => - SliceConfig -> -- ckey - Int64 -> -- address - Word32 -> -- n_values - m Int64 -sliceGetConfigState ckey address n_values = liftIO $ do - let ckey' = (fromIntegral . fromEnum) ckey - result <- g_slice_get_config_state ckey' address n_values - return result - - --- function g_slice_get_config --- Args : [Arg {argName = "ckey", argType = TInterface "GLib" "SliceConfig", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "ckey", argType = TInterface "GLib" "SliceConfig", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt64 --- throws : False --- Skip return : False - -foreign import ccall "g_slice_get_config" g_slice_get_config :: - CUInt -> -- ckey : TInterface "GLib" "SliceConfig" - IO Int64 - - -sliceGetConfig :: - (MonadIO m) => - SliceConfig -> -- ckey - m Int64 -sliceGetConfig ckey = liftIO $ do - let ckey' = (fromIntegral . fromEnum) ckey - result <- g_slice_get_config ckey' - return result - - --- function g_slice_free_chain_with_offset --- Args : [Arg {argName = "block_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mem_chain", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "next_offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "block_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mem_chain", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "next_offset", 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_slice_free_chain_with_offset" g_slice_free_chain_with_offset :: - Word64 -> -- block_size : TBasicType TUInt64 - Ptr () -> -- mem_chain : TBasicType TVoid - Word64 -> -- next_offset : TBasicType TUInt64 - IO () - - -sliceFreeChainWithOffset :: - (MonadIO m) => - Word64 -> -- block_size - Ptr () -> -- mem_chain - Word64 -> -- next_offset - m () -sliceFreeChainWithOffset block_size mem_chain next_offset = liftIO $ do - g_slice_free_chain_with_offset block_size mem_chain next_offset - return () - - --- function g_slice_free1 --- Args : [Arg {argName = "block_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mem_block", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "block_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mem_block", 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_slice_free1" g_slice_free1 :: - Word64 -> -- block_size : TBasicType TUInt64 - Ptr () -> -- mem_block : TBasicType TVoid - IO () - - -sliceFree1 :: - (MonadIO m) => - Word64 -> -- block_size - Ptr () -> -- mem_block - m () -sliceFree1 block_size mem_block = liftIO $ do - g_slice_free1 block_size mem_block - return () - - --- function g_shell_unquote --- Args : [Arg {argName = "quoted_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "quoted_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : True --- Skip return : False - -foreign import ccall "g_shell_unquote" g_shell_unquote :: - CString -> -- quoted_string : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CString - - -shellUnquote :: - (MonadIO m) => - T.Text -> -- quoted_string - m T.Text -shellUnquote quoted_string = liftIO $ do - quoted_string' <- textToCString quoted_string - onException (do - result <- propagateGError $ g_shell_unquote quoted_string' - checkUnexpectedReturnNULL "g_shell_unquote" result - result' <- cstringToText result - freeMem result - freeMem quoted_string' - return result' - ) (do - freeMem quoted_string' - ) - - --- function g_shell_quote --- Args : [Arg {argName = "unquoted_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "unquoted_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_shell_quote" g_shell_quote :: - CString -> -- unquoted_string : TBasicType TUTF8 - IO CString - - -shellQuote :: - (MonadIO m) => - T.Text -> -- unquoted_string - m T.Text -shellQuote unquoted_string = liftIO $ do - unquoted_string' <- textToCString unquoted_string - result <- g_shell_quote unquoted_string' - checkUnexpectedReturnNULL "g_shell_quote" result - result' <- cstringToText result - freeMem result - freeMem unquoted_string' - return result' - - --- function g_shell_parse_argv --- Args : [Arg {argName = "command_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "argcp", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "argvp", argType = TCArray True (-1) 1 (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "command_line", 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_shell_parse_argv" g_shell_parse_argv :: - CString -> -- command_line : TBasicType TUTF8 - Ptr Int32 -> -- argcp : TBasicType TInt32 - Ptr (Ptr CString) -> -- argvp : TCArray True (-1) 1 (TBasicType TUTF8) - Ptr (Ptr GError) -> -- error - IO CInt - - -shellParseArgv :: - (MonadIO m) => - T.Text -> -- command_line - m (Int32,[T.Text]) -shellParseArgv command_line = liftIO $ do - command_line' <- textToCString command_line - argcp <- allocMem :: IO (Ptr Int32) - argvp <- allocMem :: IO (Ptr (Ptr CString)) - onException (do - _ <- propagateGError $ g_shell_parse_argv command_line' argcp argvp - argcp' <- peek argcp - argvp' <- peek argvp - argvp'' <- unpackZeroTerminatedUTF8CArray argvp' - mapZeroTerminatedCArray freeMem argvp' - freeMem argvp' - freeMem command_line' - freeMem argcp - freeMem argvp - return (argcp', argvp'') - ) (do - freeMem command_line' - freeMem argcp - freeMem argvp - ) - - --- function g_shell_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_shell_error_quark" g_shell_error_quark :: - IO Word32 - - -shellErrorQuark :: - (MonadIO m) => - m Word32 -shellErrorQuark = liftIO $ do - result <- g_shell_error_quark - return result - - --- function g_setenv --- Args : [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}] --- Lengths : [] --- hInArgs : [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 TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_setenv" g_setenv :: - CString -> -- variable : TBasicType TUTF8 - CString -> -- value : TBasicType TUTF8 - CInt -> -- overwrite : TBasicType TBoolean - IO CInt - - -setenv :: - (MonadIO m) => - T.Text -> -- variable - T.Text -> -- value - Bool -> -- overwrite - m Bool -setenv variable value overwrite = liftIO $ do - variable' <- textToCString variable - value' <- textToCString value - let overwrite' = (fromIntegral . fromEnum) overwrite - result <- g_setenv variable' value' overwrite' - let result' = (/= 0) result - freeMem variable' - freeMem value' - return result' - - --- function g_set_prgname --- Args : [Arg {argName = "prgname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "prgname", 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_set_prgname" g_set_prgname :: - CString -> -- prgname : TBasicType TUTF8 - IO () - - -setPrgname :: - (MonadIO m) => - T.Text -> -- prgname - m () -setPrgname prgname = liftIO $ do - prgname' <- textToCString prgname - g_set_prgname prgname' - freeMem prgname' - return () - - --- function g_set_error_literal --- Args : [Arg {argName = "err", argType = TError, direction = DirectionIn, mayBeNull = True, 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "err", argType = TError, direction = DirectionIn, mayBeNull = True, 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 - -foreign import ccall "g_set_error_literal" g_set_error_literal :: - Ptr GError -> -- err : TError - Word32 -> -- domain : TBasicType TUInt32 - Int32 -> -- code : TBasicType TInt32 - CString -> -- message : TBasicType TUTF8 - IO () - - -setErrorLiteral :: - (MonadIO m) => - Maybe (GError) -> -- err - Word32 -> -- domain - Int32 -> -- code - T.Text -> -- message - m () -setErrorLiteral err domain code message = liftIO $ do - maybeErr <- case err of - Nothing -> return nullPtr - Just jErr -> do - let jErr' = unsafeManagedPtrGetPtr jErr - return jErr' - message' <- textToCString message - g_set_error_literal maybeErr domain code message' - whenJust err touchManagedPtr - freeMem message' - return () - - --- function g_set_application_name --- Args : [Arg {argName = "application_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "application_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_set_application_name" g_set_application_name :: - CString -> -- application_name : TBasicType TUTF8 - IO () - - -setApplicationName :: - (MonadIO m) => - T.Text -> -- application_name - m () -setApplicationName application_name = liftIO $ do - application_name' <- textToCString application_name - g_set_application_name application_name' - freeMem application_name' - return () - - --- function g_sequence_swap --- Args : [Arg {argName = "a", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "a", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_sequence_swap" g_sequence_swap :: - Ptr SequenceIter -> -- a : TInterface "GLib" "SequenceIter" - Ptr SequenceIter -> -- b : TInterface "GLib" "SequenceIter" - IO () - - -sequenceSwap :: - (MonadIO m) => - SequenceIter -> -- a - SequenceIter -> -- b - m () -sequenceSwap a b = liftIO $ do - let a' = unsafeManagedPtrGetPtr a - let b' = unsafeManagedPtrGetPtr b - g_sequence_swap a' b' - touchManagedPtr a - touchManagedPtr b - return () - - --- function g_sequence_set --- Args : [Arg {argName = "iter", argType = TInterface "GLib" "SequenceIter", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "iter", argType = TInterface "GLib" "SequenceIter", 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 - -foreign import ccall "g_sequence_set" g_sequence_set :: - Ptr SequenceIter -> -- iter : TInterface "GLib" "SequenceIter" - Ptr () -> -- data : TBasicType TVoid - IO () - - -sequenceSet :: - (MonadIO m) => - SequenceIter -> -- iter - Ptr () -> -- data - m () -sequenceSet iter data_ = liftIO $ do - let iter' = unsafeManagedPtrGetPtr iter - g_sequence_set iter' data_ - touchManagedPtr iter - return () - - --- function g_sequence_remove_range --- Args : [Arg {argName = "begin", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "begin", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_sequence_remove_range" g_sequence_remove_range :: - Ptr SequenceIter -> -- begin : TInterface "GLib" "SequenceIter" - Ptr SequenceIter -> -- end : TInterface "GLib" "SequenceIter" - IO () - - -sequenceRemoveRange :: - (MonadIO m) => - SequenceIter -> -- begin - SequenceIter -> -- end - m () -sequenceRemoveRange begin end = liftIO $ do - let begin' = unsafeManagedPtrGetPtr begin - let end' = unsafeManagedPtrGetPtr end - g_sequence_remove_range begin' end' - touchManagedPtr begin - touchManagedPtr end - return () - - --- function g_sequence_remove --- Args : [Arg {argName = "iter", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "iter", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_sequence_remove" g_sequence_remove :: - Ptr SequenceIter -> -- iter : TInterface "GLib" "SequenceIter" - IO () - - -sequenceRemove :: - (MonadIO m) => - SequenceIter -> -- iter - m () -sequenceRemove iter = liftIO $ do - let iter' = unsafeManagedPtrGetPtr iter - g_sequence_remove iter' - touchManagedPtr iter - return () - - --- function g_sequence_move_range --- Args : [Arg {argName = "dest", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "dest", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_sequence_move_range" g_sequence_move_range :: - Ptr SequenceIter -> -- dest : TInterface "GLib" "SequenceIter" - Ptr SequenceIter -> -- begin : TInterface "GLib" "SequenceIter" - Ptr SequenceIter -> -- end : TInterface "GLib" "SequenceIter" - IO () - - -sequenceMoveRange :: - (MonadIO m) => - SequenceIter -> -- dest - SequenceIter -> -- begin - SequenceIter -> -- end - m () -sequenceMoveRange dest begin end = liftIO $ do - let dest' = unsafeManagedPtrGetPtr dest - let begin' = unsafeManagedPtrGetPtr begin - let end' = unsafeManagedPtrGetPtr end - g_sequence_move_range dest' begin' end' - touchManagedPtr dest - touchManagedPtr begin - touchManagedPtr end - return () - - --- function g_sequence_move --- Args : [Arg {argName = "src", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "src", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_sequence_move" g_sequence_move :: - Ptr SequenceIter -> -- src : TInterface "GLib" "SequenceIter" - Ptr SequenceIter -> -- dest : TInterface "GLib" "SequenceIter" - IO () - - -sequenceMove :: - (MonadIO m) => - SequenceIter -> -- src - SequenceIter -> -- dest - m () -sequenceMove src dest = liftIO $ do - let src' = unsafeManagedPtrGetPtr src - let dest' = unsafeManagedPtrGetPtr dest - g_sequence_move src' dest' - touchManagedPtr src - touchManagedPtr dest - return () - - --- function g_rmdir --- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "filename", 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_rmdir" g_rmdir :: - CString -> -- filename : TBasicType TUTF8 - IO Int32 - - -rmdir :: - (MonadIO m) => - T.Text -> -- filename - m Int32 -rmdir filename = liftIO $ do - filename' <- textToCString filename - result <- g_rmdir filename' - freeMem filename' - return result - - --- function g_return_if_fail_warning --- Args : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pretty_function", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expression", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pretty_function", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expression", 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_return_if_fail_warning" g_return_if_fail_warning :: - CString -> -- log_domain : TBasicType TUTF8 - CString -> -- pretty_function : TBasicType TUTF8 - CString -> -- expression : TBasicType TUTF8 - IO () - - -returnIfFailWarning :: - (MonadIO m) => - T.Text -> -- log_domain - T.Text -> -- pretty_function - T.Text -> -- expression - m () -returnIfFailWarning log_domain pretty_function expression = liftIO $ do - log_domain' <- textToCString log_domain - pretty_function' <- textToCString pretty_function - expression' <- textToCString expression - g_return_if_fail_warning log_domain' pretty_function' expression' - freeMem log_domain' - freeMem pretty_function' - freeMem expression' - return () - - --- function g_reload_user_special_dirs_cache --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_reload_user_special_dirs_cache" g_reload_user_special_dirs_cache :: - IO () - - -reloadUserSpecialDirsCache :: - (MonadIO m) => - m () -reloadUserSpecialDirsCache = liftIO $ do - g_reload_user_special_dirs_cache - return () - - --- function g_regex_split_simple --- Args : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compile_options", argType = TInterface "GLib" "RegexCompileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compile_options", argType = TInterface "GLib" "RegexCompileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", 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_regex_split_simple" g_regex_split_simple :: - CString -> -- pattern : TBasicType TUTF8 - CString -> -- string : TBasicType TUTF8 - CUInt -> -- compile_options : TInterface "GLib" "RegexCompileFlags" - CUInt -> -- match_options : TInterface "GLib" "RegexMatchFlags" - IO (Ptr CString) - - -regexSplitSimple :: - (MonadIO m) => - T.Text -> -- pattern - T.Text -> -- string - [RegexCompileFlags] -> -- compile_options - [RegexMatchFlags] -> -- match_options - m [T.Text] -regexSplitSimple pattern string compile_options match_options = liftIO $ do - pattern' <- textToCString pattern - string' <- textToCString string - let compile_options' = gflagsToWord compile_options - let match_options' = gflagsToWord match_options - result <- g_regex_split_simple pattern' string' compile_options' match_options' - checkUnexpectedReturnNULL "g_regex_split_simple" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - freeMem pattern' - freeMem string' - return result' - - --- function g_regex_match_simple --- Args : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compile_options", argType = TInterface "GLib" "RegexCompileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compile_options", argType = TInterface "GLib" "RegexCompileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_regex_match_simple" g_regex_match_simple :: - CString -> -- pattern : TBasicType TUTF8 - CString -> -- string : TBasicType TUTF8 - CUInt -> -- compile_options : TInterface "GLib" "RegexCompileFlags" - CUInt -> -- match_options : TInterface "GLib" "RegexMatchFlags" - IO CInt - - -regexMatchSimple :: - (MonadIO m) => - T.Text -> -- pattern - T.Text -> -- string - [RegexCompileFlags] -> -- compile_options - [RegexMatchFlags] -> -- match_options - m Bool -regexMatchSimple pattern string compile_options match_options = liftIO $ do - pattern' <- textToCString pattern - string' <- textToCString string - let compile_options' = gflagsToWord compile_options - let match_options' = gflagsToWord match_options - result <- g_regex_match_simple pattern' string' compile_options' match_options' - let result' = (/= 0) result - freeMem pattern' - freeMem string' - return result' - - --- function g_regex_escape_string --- Args : [Arg {argName = "string", argType = TCArray False (-1) 1 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "string", argType = TCArray False (-1) 1 (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_regex_escape_string" g_regex_escape_string :: - Ptr CString -> -- string : TCArray False (-1) 1 (TBasicType TUTF8) - Int32 -> -- length : TBasicType TInt32 - IO CString - - -regexEscapeString :: - (MonadIO m) => - [T.Text] -> -- string - m T.Text -regexEscapeString string = liftIO $ do - let length_ = fromIntegral $ length string - string' <- packUTF8CArray string - result <- g_regex_escape_string string' length_ - checkUnexpectedReturnNULL "g_regex_escape_string" result - result' <- cstringToText result - freeMem result - (mapCArrayWithLength length_) freeMem string' - freeMem string' - return result' - - --- function g_regex_escape_nul --- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, 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},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_regex_escape_nul" g_regex_escape_nul :: - CString -> -- string : TBasicType TUTF8 - Int32 -> -- length : TBasicType TInt32 - IO CString - - -regexEscapeNul :: - (MonadIO m) => - T.Text -> -- string - Int32 -> -- length - m T.Text -regexEscapeNul string length_ = liftIO $ do - string' <- textToCString string - result <- g_regex_escape_nul string' length_ - checkUnexpectedReturnNULL "g_regex_escape_nul" result - result' <- cstringToText result - freeMem result - freeMem string' - return result' - - --- function g_regex_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_regex_error_quark" g_regex_error_quark :: - IO Word32 - - -regexErrorQuark :: - (MonadIO m) => - m Word32 -regexErrorQuark = liftIO $ do - result <- g_regex_error_quark - return result - - --- function g_regex_check_replacement --- Args : [Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "has_references", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "replacement", 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_regex_check_replacement" g_regex_check_replacement :: - CString -> -- replacement : TBasicType TUTF8 - Ptr CInt -> -- has_references : TBasicType TBoolean - Ptr (Ptr GError) -> -- error - IO CInt - - -regexCheckReplacement :: - (MonadIO m) => - T.Text -> -- replacement - m (Bool) -regexCheckReplacement replacement = liftIO $ do - replacement' <- textToCString replacement - has_references <- allocMem :: IO (Ptr CInt) - onException (do - _ <- propagateGError $ g_regex_check_replacement replacement' has_references - has_references' <- peek has_references - let has_references'' = (/= 0) has_references' - freeMem replacement' - freeMem has_references - return has_references'' - ) (do - freeMem replacement' - freeMem has_references - ) - - --- function g_random_set_seed --- Args : [Arg {argName = "seed", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "seed", 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_random_set_seed" g_random_set_seed :: - Word32 -> -- seed : TBasicType TUInt32 - IO () - - -randomSetSeed :: - (MonadIO m) => - Word32 -> -- seed - m () -randomSetSeed seed = liftIO $ do - g_random_set_seed seed - return () - - --- function g_random_int_range --- Args : [Arg {argName = "begin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "begin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_random_int_range" g_random_int_range :: - Int32 -> -- begin : TBasicType TInt32 - Int32 -> -- end : TBasicType TInt32 - IO Int32 - - -randomIntRange :: - (MonadIO m) => - Int32 -> -- begin - Int32 -> -- end - m Int32 -randomIntRange begin end = liftIO $ do - result <- g_random_int_range begin end - return result - - --- function g_random_int --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_random_int" g_random_int :: - IO Word32 - - -randomInt :: - (MonadIO m) => - m Word32 -randomInt = liftIO $ do - result <- g_random_int - return result - - --- function g_random_double_range --- Args : [Arg {argName = "begin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "begin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "g_random_double_range" g_random_double_range :: - CDouble -> -- begin : TBasicType TDouble - CDouble -> -- end : TBasicType TDouble - IO CDouble - - -randomDoubleRange :: - (MonadIO m) => - Double -> -- begin - Double -> -- end - m Double -randomDoubleRange begin end = liftIO $ do - let begin' = realToFrac begin - let end' = realToFrac end - result <- g_random_double_range begin' end' - let result' = realToFrac result - return result' - - --- function g_random_double --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "g_random_double" g_random_double :: - IO CDouble - - -randomDouble :: - (MonadIO m) => - m Double -randomDouble = liftIO $ do - result <- g_random_double - let result' = realToFrac result - return result' - - --- function g_quark_try_string --- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_quark_try_string" g_quark_try_string :: - CString -> -- string : TBasicType TUTF8 - IO Word32 - - -quarkTryString :: - (MonadIO m) => - Maybe (T.Text) -> -- string - m Word32 -quarkTryString string = liftIO $ do - maybeString <- case string of - Nothing -> return nullPtr - Just jString -> do - jString' <- textToCString jString - return jString' - result <- g_quark_try_string maybeString - freeMem maybeString - return result - - --- function g_quark_to_string --- Args : [Arg {argName = "quark", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "quark", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_quark_to_string" g_quark_to_string :: - Word32 -> -- quark : TBasicType TUInt32 - IO CString - - -quarkToString :: - (MonadIO m) => - Word32 -> -- quark - m T.Text -quarkToString quark = liftIO $ do - result <- g_quark_to_string quark - checkUnexpectedReturnNULL "g_quark_to_string" result - result' <- cstringToText result - return result' - - --- function g_quark_from_string --- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_quark_from_string" g_quark_from_string :: - CString -> -- string : TBasicType TUTF8 - IO Word32 - - -quarkFromString :: - (MonadIO m) => - Maybe (T.Text) -> -- string - m Word32 -quarkFromString string = liftIO $ do - maybeString <- case string of - Nothing -> return nullPtr - Just jString -> do - jString' <- textToCString jString - return jString' - result <- g_quark_from_string maybeString - freeMem maybeString - return result - - --- function g_quark_from_static_string --- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_quark_from_static_string" g_quark_from_static_string :: - CString -> -- string : TBasicType TUTF8 - IO Word32 - - -quarkFromStaticString :: - (MonadIO m) => - Maybe (T.Text) -> -- string - m Word32 -quarkFromStaticString string = liftIO $ do - maybeString <- case string of - Nothing -> return nullPtr - Just jString -> do - jString' <- textToCString jString - return jString' - result <- g_quark_from_static_string maybeString - freeMem maybeString - return result - - --- function g_propagate_error --- Args : [Arg {argName = "dest", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "dest", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src", 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_propagate_error" g_propagate_error :: - Ptr GError -> -- dest : TError - Ptr GError -> -- src : TError - IO () - - -propagateError :: - (MonadIO m) => - GError -> -- dest - GError -> -- src - m () -propagateError dest src = liftIO $ do - let dest' = unsafeManagedPtrGetPtr dest - let src' = unsafeManagedPtrGetPtr src - g_propagate_error dest' src' - touchManagedPtr dest - touchManagedPtr src - return () - - --- function g_poll --- Args : [Arg {argName = "fds", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nfds", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "fds", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nfds", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_poll" g_poll :: - Ptr PollFD -> -- fds : TInterface "GLib" "PollFD" - Word32 -> -- nfds : TBasicType TUInt32 - Int32 -> -- timeout : TBasicType TInt32 - IO Int32 - - -poll :: - (MonadIO m) => - PollFD -> -- fds - Word32 -> -- nfds - Int32 -> -- timeout - m Int32 -poll fds nfds timeout = liftIO $ do - let fds' = unsafeManagedPtrGetPtr fds - result <- g_poll fds' nfds timeout - touchManagedPtr fds - return result - - --- function g_pointer_bit_unlock --- Args : [Arg {argName = "address", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "address", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", 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_pointer_bit_unlock" g_pointer_bit_unlock :: - Ptr () -> -- address : TBasicType TVoid - Int32 -> -- lock_bit : TBasicType TInt32 - IO () - - -pointerBitUnlock :: - (MonadIO m) => - Ptr () -> -- address - Int32 -> -- lock_bit - m () -pointerBitUnlock address lock_bit = liftIO $ do - g_pointer_bit_unlock address lock_bit - return () - - --- function g_pointer_bit_trylock --- Args : [Arg {argName = "address", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "address", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_pointer_bit_trylock" g_pointer_bit_trylock :: - Ptr () -> -- address : TBasicType TVoid - Int32 -> -- lock_bit : TBasicType TInt32 - IO CInt - - -pointerBitTrylock :: - (MonadIO m) => - Ptr () -> -- address - Int32 -> -- lock_bit - m Bool -pointerBitTrylock address lock_bit = liftIO $ do - result <- g_pointer_bit_trylock address lock_bit - let result' = (/= 0) result - return result' - - --- function g_pointer_bit_lock --- Args : [Arg {argName = "address", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "address", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", 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_pointer_bit_lock" g_pointer_bit_lock :: - Ptr () -> -- address : TBasicType TVoid - Int32 -> -- lock_bit : TBasicType TInt32 - IO () - - -pointerBitLock :: - (MonadIO m) => - Ptr () -> -- address - Int32 -> -- lock_bit - m () -pointerBitLock address lock_bit = liftIO $ do - g_pointer_bit_lock address lock_bit - return () - - --- function g_pattern_match_string --- Args : [Arg {argName = "pspec", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "pspec", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},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_pattern_match_string" g_pattern_match_string :: - Ptr PatternSpec -> -- pspec : TInterface "GLib" "PatternSpec" - CString -> -- string : TBasicType TUTF8 - IO CInt - - -patternMatchString :: - (MonadIO m) => - PatternSpec -> -- pspec - T.Text -> -- string - m Bool -patternMatchString pspec string = liftIO $ do - let pspec' = unsafeManagedPtrGetPtr pspec - string' <- textToCString string - result <- g_pattern_match_string pspec' string' - let result' = (/= 0) result - touchManagedPtr pspec - freeMem string' - return result' - - --- function g_pattern_match_simple --- Args : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},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_pattern_match_simple" g_pattern_match_simple :: - CString -> -- pattern : TBasicType TUTF8 - CString -> -- string : TBasicType TUTF8 - IO CInt - - -patternMatchSimple :: - (MonadIO m) => - T.Text -> -- pattern - T.Text -> -- string - m Bool -patternMatchSimple pattern string = liftIO $ do - pattern' <- textToCString pattern - string' <- textToCString string - result <- g_pattern_match_simple pattern' string' - let result' = (/= 0) result - freeMem pattern' - freeMem string' - return result' - - --- function g_pattern_match --- Args : [Arg {argName = "pspec", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_length", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_reversed", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "pspec", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_length", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_reversed", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_pattern_match" g_pattern_match :: - Ptr PatternSpec -> -- pspec : TInterface "GLib" "PatternSpec" - Word32 -> -- string_length : TBasicType TUInt32 - CString -> -- string : TBasicType TUTF8 - CString -> -- string_reversed : TBasicType TUTF8 - IO CInt - - -patternMatch :: - (MonadIO m) => - PatternSpec -> -- pspec - Word32 -> -- string_length - T.Text -> -- string - Maybe (T.Text) -> -- string_reversed - m Bool -patternMatch pspec string_length string string_reversed = liftIO $ do - let pspec' = unsafeManagedPtrGetPtr pspec - string' <- textToCString string - maybeString_reversed <- case string_reversed of - Nothing -> return nullPtr - Just jString_reversed -> do - jString_reversed' <- textToCString jString_reversed - return jString_reversed' - result <- g_pattern_match pspec' string_length string' maybeString_reversed - let result' = (/= 0) result - touchManagedPtr pspec - freeMem string' - freeMem maybeString_reversed - return result' - - --- function g_path_skip_root --- Args : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "file_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_path_skip_root" g_path_skip_root :: - CString -> -- file_name : TBasicType TUTF8 - IO CString - - -pathSkipRoot :: - (MonadIO m) => - T.Text -> -- file_name - m T.Text -pathSkipRoot file_name = liftIO $ do - file_name' <- textToCString file_name - result <- g_path_skip_root file_name' - checkUnexpectedReturnNULL "g_path_skip_root" result - result' <- cstringToText result - freeMem file_name' - return result' - - --- function g_path_is_absolute --- Args : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "file_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_path_is_absolute" g_path_is_absolute :: - CString -> -- file_name : TBasicType TUTF8 - IO CInt - - -pathIsAbsolute :: - (MonadIO m) => - T.Text -> -- file_name - m Bool -pathIsAbsolute file_name = liftIO $ do - file_name' <- textToCString file_name - result <- g_path_is_absolute file_name' - let result' = (/= 0) result - freeMem file_name' - return result' - - --- function g_path_get_dirname --- Args : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "file_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_path_get_dirname" g_path_get_dirname :: - CString -> -- file_name : TBasicType TUTF8 - IO CString - - -pathGetDirname :: - (MonadIO m) => - T.Text -> -- file_name - m T.Text -pathGetDirname file_name = liftIO $ do - file_name' <- textToCString file_name - result <- g_path_get_dirname file_name' - checkUnexpectedReturnNULL "g_path_get_dirname" result - result' <- cstringToText result - freeMem result - freeMem file_name' - return result' - - --- function g_path_get_basename --- Args : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "file_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_path_get_basename" g_path_get_basename :: - CString -> -- file_name : TBasicType TUTF8 - IO CString - - -pathGetBasename :: - (MonadIO m) => - T.Text -> -- file_name - m T.Text -pathGetBasename file_name = liftIO $ do - file_name' <- textToCString file_name - result <- g_path_get_basename file_name' - checkUnexpectedReturnNULL "g_path_get_basename" result - result' <- cstringToText result - freeMem result - freeMem file_name' - return result' - - --- function g_parse_debug_string --- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keys", argType = TCArray False (-1) 2 (TInterface "GLib" "DebugKey"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nkeys", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "nkeys", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keys", argType = TCArray False (-1) 2 (TInterface "GLib" "DebugKey"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_parse_debug_string" g_parse_debug_string :: - CString -> -- string : TBasicType TUTF8 - Ptr DebugKey -> -- keys : TCArray False (-1) 2 (TInterface "GLib" "DebugKey") - Word32 -> -- nkeys : TBasicType TUInt32 - IO Word32 - - -parseDebugString :: - (MonadIO m) => - Maybe (T.Text) -> -- string - [DebugKey] -> -- keys - m Word32 -parseDebugString string keys = liftIO $ do - let nkeys = fromIntegral $ length keys - maybeString <- case string of - Nothing -> return nullPtr - Just jString -> do - jString' <- textToCString jString - return jString' - let keys' = map unsafeManagedPtrGetPtr keys - keys'' <- packBlockArray 16 keys' - result <- g_parse_debug_string maybeString keys'' nkeys - mapM_ touchManagedPtr keys - freeMem maybeString - freeMem keys'' - return result - - --- function g_option_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_option_error_quark" g_option_error_quark :: - IO Word32 - - -optionErrorQuark :: - (MonadIO m) => - m Word32 -optionErrorQuark = liftIO $ do - result <- g_option_error_quark - return result - - --- function g_once_init_leave --- Args : [Arg {argName = "location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", 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_once_init_leave" g_once_init_leave :: - Ptr () -> -- location : TBasicType TVoid - Word64 -> -- result : TBasicType TUInt64 - IO () - - -onceInitLeave :: - (MonadIO m) => - Ptr () -> -- location - Word64 -> -- result - m () -onceInitLeave location result_ = liftIO $ do - g_once_init_leave location result_ - return () - - --- function g_once_init_enter --- Args : [Arg {argName = "location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_once_init_enter" g_once_init_enter :: - Ptr () -> -- location : TBasicType TVoid - IO CInt - - -onceInitEnter :: - (MonadIO m) => - Ptr () -> -- location - m Bool -onceInitEnter location = liftIO $ do - result <- g_once_init_enter location - let result' = (/= 0) result - return result' - - --- function g_on_error_stack_trace --- Args : [Arg {argName = "prg_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "prg_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_on_error_stack_trace" g_on_error_stack_trace :: - CString -> -- prg_name : TBasicType TUTF8 - IO () - - -onErrorStackTrace :: - (MonadIO m) => - T.Text -> -- prg_name - m () -onErrorStackTrace prg_name = liftIO $ do - prg_name' <- textToCString prg_name - g_on_error_stack_trace prg_name' - freeMem prg_name' - return () - - --- function g_on_error_query --- Args : [Arg {argName = "prg_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "prg_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_on_error_query" g_on_error_query :: - CString -> -- prg_name : TBasicType TUTF8 - IO () - - -onErrorQuery :: - (MonadIO m) => - T.Text -> -- prg_name - m () -onErrorQuery prg_name = liftIO $ do - prg_name' <- textToCString prg_name - g_on_error_query prg_name' - freeMem prg_name' - return () - - --- function g_nullify_pointer --- Args : [Arg {argName = "nullify_location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "nullify_location", 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_nullify_pointer" g_nullify_pointer :: - Ptr () -> -- nullify_location : TBasicType TVoid - IO () - - -nullifyPointer :: - (MonadIO m) => - Ptr () -> -- nullify_location - m () -nullifyPointer nullify_location = liftIO $ do - g_nullify_pointer nullify_location - return () - - --- function g_mkstemp_full --- Args : [Arg {argName = "tmpl", argType = TBasicType TFileName, 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 = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "tmpl", argType = TBasicType TFileName, 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 = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_mkstemp_full" g_mkstemp_full :: - CString -> -- tmpl : TBasicType TFileName - Int32 -> -- flags : TBasicType TInt32 - Int32 -> -- mode : TBasicType TInt32 - IO Int32 - - -mkstempFull :: - (MonadIO m) => - [Char] -> -- tmpl - Int32 -> -- flags - Int32 -> -- mode - m Int32 -mkstempFull tmpl flags mode = liftIO $ do - tmpl' <- stringToCString tmpl - result <- g_mkstemp_full tmpl' flags mode - freeMem tmpl' - return result - - --- function g_mkstemp --- Args : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_mkstemp" g_mkstemp :: - CString -> -- tmpl : TBasicType TFileName - IO Int32 - - -mkstemp :: - (MonadIO m) => - [Char] -> -- tmpl - m Int32 -mkstemp tmpl = liftIO $ do - tmpl' <- stringToCString tmpl - result <- g_mkstemp tmpl' - freeMem tmpl' - return result - - --- function g_mkdtemp_full --- Args : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_mkdtemp_full" g_mkdtemp_full :: - CString -> -- tmpl : TBasicType TFileName - Int32 -> -- mode : TBasicType TInt32 - IO CString - - -mkdtempFull :: - (MonadIO m) => - [Char] -> -- tmpl - Int32 -> -- mode - m T.Text -mkdtempFull tmpl mode = liftIO $ do - tmpl' <- stringToCString tmpl - result <- g_mkdtemp_full tmpl' mode - checkUnexpectedReturnNULL "g_mkdtemp_full" result - result' <- cstringToText result - freeMem result - freeMem tmpl' - return result' - - --- function g_mkdtemp --- Args : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_mkdtemp" g_mkdtemp :: - CString -> -- tmpl : TBasicType TFileName - IO CString - - -mkdtemp :: - (MonadIO m) => - [Char] -> -- tmpl - m T.Text -mkdtemp tmpl = liftIO $ do - tmpl' <- stringToCString tmpl - result <- g_mkdtemp tmpl' - checkUnexpectedReturnNULL "g_mkdtemp" result - result' <- cstringToText result - freeMem result - freeMem tmpl' - return result' - - --- function g_mkdir_with_parents --- Args : [Arg {argName = "pathname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "pathname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_mkdir_with_parents" g_mkdir_with_parents :: - CString -> -- pathname : TBasicType TUTF8 - Int32 -> -- mode : TBasicType TInt32 - IO Int32 - - -mkdirWithParents :: - (MonadIO m) => - T.Text -> -- pathname - Int32 -> -- mode - m Int32 -mkdirWithParents pathname mode = liftIO $ do - pathname' <- textToCString pathname - result <- g_mkdir_with_parents pathname' mode - freeMem pathname' - return result - - --- function g_mem_set_vtable --- Args : [Arg {argName = "vtable", argType = TInterface "GLib" "MemVTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "vtable", argType = TInterface "GLib" "MemVTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_mem_set_vtable" g_mem_set_vtable :: - Ptr MemVTable -> -- vtable : TInterface "GLib" "MemVTable" - IO () - - -memSetVtable :: - (MonadIO m) => - MemVTable -> -- vtable - m () -memSetVtable vtable = liftIO $ do - let vtable' = unsafeManagedPtrGetPtr vtable - g_mem_set_vtable vtable' - touchManagedPtr vtable - return () - - --- function g_mem_profile --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_mem_profile" g_mem_profile :: - IO () - - -memProfile :: - (MonadIO m) => - m () -memProfile = liftIO $ do - g_mem_profile - return () - - --- function g_mem_is_system_malloc --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_mem_is_system_malloc" g_mem_is_system_malloc :: - IO CInt - - -memIsSystemMalloc :: - (MonadIO m) => - m Bool -memIsSystemMalloc = liftIO $ do - result <- g_mem_is_system_malloc - let result' = (/= 0) result - return result' - - --- function g_markup_escape_text --- Args : [Arg {argName = "text", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "text", 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 : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_markup_escape_text" g_markup_escape_text :: - CString -> -- text : TBasicType TUTF8 - Int64 -> -- length : TBasicType TInt64 - IO CString - - -markupEscapeText :: - (MonadIO m) => - T.Text -> -- text - Int64 -> -- length - m T.Text -markupEscapeText text length_ = liftIO $ do - text' <- textToCString text - result <- g_markup_escape_text text' length_ - checkUnexpectedReturnNULL "g_markup_escape_text" result - result' <- cstringToText result - freeMem result - freeMem text' - return result' - - --- function g_markup_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_markup_error_quark" g_markup_error_quark :: - IO Word32 - - -markupErrorQuark :: - (MonadIO m) => - m Word32 -markupErrorQuark = liftIO $ do - result <- g_markup_error_quark - return result - - --- function g_main_depth --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_main_depth" g_main_depth :: - IO Int32 - - -mainDepth :: - (MonadIO m) => - m Int32 -mainDepth = liftIO $ do - result <- g_main_depth - return result - - --- function g_main_current_source --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "GLib" "Source" --- throws : False --- Skip return : False - -foreign import ccall "g_main_current_source" g_main_current_source :: - IO (Ptr Source) - - -mainCurrentSource :: - (MonadIO m) => - m Source -mainCurrentSource = liftIO $ do - result <- g_main_current_source - checkUnexpectedReturnNULL "g_main_current_source" result - result' <- (newBoxed Source) result - return result' - - --- function g_main_context_ref_thread_default --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "GLib" "MainContext" --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_ref_thread_default" g_main_context_ref_thread_default :: - IO (Ptr MainContext) - - -mainContextRefThreadDefault :: - (MonadIO m) => - m MainContext -mainContextRefThreadDefault = liftIO $ do - result <- g_main_context_ref_thread_default - checkUnexpectedReturnNULL "g_main_context_ref_thread_default" result - result' <- (wrapBoxed MainContext) result - return result' - - --- function g_main_context_get_thread_default --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "GLib" "MainContext" --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_get_thread_default" g_main_context_get_thread_default :: - IO (Ptr MainContext) - - -mainContextGetThreadDefault :: - (MonadIO m) => - m MainContext -mainContextGetThreadDefault = liftIO $ do - result <- g_main_context_get_thread_default - checkUnexpectedReturnNULL "g_main_context_get_thread_default" result - result' <- (newBoxed MainContext) result - return result' - - --- function g_main_context_default --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "GLib" "MainContext" --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_default" g_main_context_default :: - IO (Ptr MainContext) - - -mainContextDefault :: - (MonadIO m) => - m MainContext -mainContextDefault = liftIO $ do - result <- g_main_context_default - checkUnexpectedReturnNULL "g_main_context_default" result - result' <- (newBoxed MainContext) result - return result' - - --- function g_log_set_fatal_mask --- Args : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fatal_mask", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fatal_mask", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "LogLevelFlags" --- throws : False --- Skip return : False - -foreign import ccall "g_log_set_fatal_mask" g_log_set_fatal_mask :: - CString -> -- log_domain : TBasicType TUTF8 - CUInt -> -- fatal_mask : TInterface "GLib" "LogLevelFlags" - IO CUInt - - -logSetFatalMask :: - (MonadIO m) => - T.Text -> -- log_domain - [LogLevelFlags] -> -- fatal_mask - m [LogLevelFlags] -logSetFatalMask log_domain fatal_mask = liftIO $ do - log_domain' <- textToCString log_domain - let fatal_mask' = gflagsToWord fatal_mask - result <- g_log_set_fatal_mask log_domain' fatal_mask' - let result' = wordToGFlags result - freeMem log_domain' - return result' - - --- function g_log_set_always_fatal --- Args : [Arg {argName = "fatal_mask", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "fatal_mask", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "LogLevelFlags" --- throws : False --- Skip return : False - -foreign import ccall "g_log_set_always_fatal" g_log_set_always_fatal :: - CUInt -> -- fatal_mask : TInterface "GLib" "LogLevelFlags" - IO CUInt - - -logSetAlwaysFatal :: - (MonadIO m) => - [LogLevelFlags] -> -- fatal_mask - m [LogLevelFlags] -logSetAlwaysFatal fatal_mask = liftIO $ do - let fatal_mask' = gflagsToWord fatal_mask - result <- g_log_set_always_fatal fatal_mask' - let result' = wordToGFlags result - return result' - - --- function g_log_remove_handler --- Args : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "handler_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_log_remove_handler" g_log_remove_handler :: - CString -> -- log_domain : TBasicType TUTF8 - Word32 -> -- handler_id : TBasicType TUInt32 - IO () - - -logRemoveHandler :: - (MonadIO m) => - T.Text -> -- log_domain - Word32 -> -- handler_id - m () -logRemoveHandler log_domain handler_id = liftIO $ do - log_domain' <- textToCString log_domain - g_log_remove_handler log_domain' handler_id - freeMem log_domain' - return () - - --- function g_log_default_handler --- Args : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_level", argType = TInterface "GLib" "LogLevelFlags", 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},Arg {argName = "unused_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "log_level", argType = TInterface "GLib" "LogLevelFlags", 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},Arg {argName = "unused_data", 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_log_default_handler" g_log_default_handler :: - CString -> -- log_domain : TBasicType TUTF8 - CUInt -> -- log_level : TInterface "GLib" "LogLevelFlags" - CString -> -- message : TBasicType TUTF8 - Ptr () -> -- unused_data : TBasicType TVoid - IO () - - -logDefaultHandler :: - (MonadIO m) => - T.Text -> -- log_domain - [LogLevelFlags] -> -- log_level - T.Text -> -- message - Ptr () -> -- unused_data - m () -logDefaultHandler log_domain log_level message unused_data = liftIO $ do - log_domain' <- textToCString log_domain - let log_level' = gflagsToWord log_level - message' <- textToCString message - g_log_default_handler log_domain' log_level' message' unused_data - freeMem log_domain' - freeMem message' - return () - - --- function g_locale_to_utf8 --- Args : [Arg {argName = "opsysstring", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "opsysstring", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : True --- Skip return : False - -foreign import ccall "g_locale_to_utf8" g_locale_to_utf8 :: - CString -> -- opsysstring : TBasicType TUTF8 - Int64 -> -- len : TBasicType TInt64 - Word64 -> -- bytes_read : TBasicType TUInt64 - Word64 -> -- bytes_written : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO CString - - -localeToUtf8 :: - (MonadIO m) => - T.Text -> -- opsysstring - Int64 -> -- len - Word64 -> -- bytes_read - Word64 -> -- bytes_written - m T.Text -localeToUtf8 opsysstring len bytes_read bytes_written = liftIO $ do - opsysstring' <- textToCString opsysstring - onException (do - result <- propagateGError $ g_locale_to_utf8 opsysstring' len bytes_read bytes_written - checkUnexpectedReturnNULL "g_locale_to_utf8" result - result' <- cstringToText result - freeMem result - freeMem opsysstring' - return result' - ) (do - freeMem opsysstring' - ) - - --- function g_locale_from_utf8 --- Args : [Arg {argName = "utf8string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "utf8string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : True --- Skip return : False - -foreign import ccall "g_locale_from_utf8" g_locale_from_utf8 :: - CString -> -- utf8string : TBasicType TUTF8 - Int64 -> -- len : TBasicType TInt64 - Word64 -> -- bytes_read : TBasicType TUInt64 - Word64 -> -- bytes_written : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO CString - - -localeFromUtf8 :: - (MonadIO m) => - T.Text -> -- utf8string - Int64 -> -- len - Word64 -> -- bytes_read - Word64 -> -- bytes_written - m T.Text -localeFromUtf8 utf8string len bytes_read bytes_written = liftIO $ do - utf8string' <- textToCString utf8string - onException (do - result <- propagateGError $ g_locale_from_utf8 utf8string' len bytes_read bytes_written - checkUnexpectedReturnNULL "g_locale_from_utf8" result - result' <- cstringToText result - freeMem result - freeMem utf8string' - return result' - ) (do - freeMem utf8string' - ) - - --- function g_listenv --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_listenv" g_listenv :: - IO (Ptr CString) - - -listenv :: - (MonadIO m) => - m [T.Text] -listenv = liftIO $ do - result <- g_listenv - checkUnexpectedReturnNULL "g_listenv" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - return result' - - --- function g_key_file_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_key_file_error_quark" g_key_file_error_quark :: - IO Word32 - - -keyFileErrorQuark :: - (MonadIO m) => - m Word32 -keyFileErrorQuark = liftIO $ do - result <- g_key_file_error_quark - return result - - --- function g_io_create_watch --- Args : [Arg {argName = "channel", argType = TInterface "GLib" "IOChannel", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "channel", argType = TInterface "GLib" "IOChannel", 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" "Source" --- throws : False --- Skip return : False - -foreign import ccall "g_io_create_watch" g_io_create_watch :: - Ptr IOChannel -> -- channel : TInterface "GLib" "IOChannel" - CUInt -> -- condition : TInterface "GLib" "IOCondition" - IO (Ptr Source) - - -ioCreateWatch :: - (MonadIO m) => - IOChannel -> -- channel - [IOCondition] -> -- condition - m Source -ioCreateWatch channel condition = liftIO $ do - let channel' = unsafeManagedPtrGetPtr channel - let condition' = gflagsToWord condition - result <- g_io_create_watch channel' condition' - checkUnexpectedReturnNULL "g_io_create_watch" result - result' <- (wrapBoxed Source) result - touchManagedPtr channel - return result' - - --- function g_io_channel_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_io_channel_error_quark" g_io_channel_error_quark :: - IO Word32 - - -ioChannelErrorQuark :: - (MonadIO m) => - m Word32 -ioChannelErrorQuark = liftIO $ do - result <- g_io_channel_error_quark - return result - - --- function g_io_channel_error_from_errno --- Args : [Arg {argName = "en", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "en", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "IOChannelError" --- throws : False --- Skip return : False - -foreign import ccall "g_io_channel_error_from_errno" g_io_channel_error_from_errno :: - Int32 -> -- en : TBasicType TInt32 - IO CUInt - - -ioChannelErrorFromErrno :: - (MonadIO m) => - Int32 -> -- en - m IOChannelError -ioChannelErrorFromErrno en = liftIO $ do - result <- g_io_channel_error_from_errno en - let result' = (toEnum . fromIntegral) result - return result' - - --- function g_io_add_watch_full --- Args : [Arg {argName = "channel", argType = TInterface "GLib" "IOChannel", 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},Arg {argName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "IOFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 4, argDestroy = 5, 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 = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "channel", argType = TInterface "GLib" "IOChannel", 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},Arg {argName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "IOFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 4, argDestroy = 5, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_io_add_watch_full" g_io_add_watch_full :: - Ptr IOChannel -> -- channel : TInterface "GLib" "IOChannel" - Int32 -> -- priority : TBasicType TInt32 - CUInt -> -- condition : TInterface "GLib" "IOCondition" - FunPtr IOFuncC -> -- func : TInterface "GLib" "IOFunc" - Ptr () -> -- user_data : TBasicType TVoid - FunPtr DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO Word32 - - -ioAddWatch :: - (MonadIO m) => - IOChannel -> -- channel - Int32 -> -- priority - [IOCondition] -> -- condition - IOFunc -> -- func - m Word32 -ioAddWatch channel priority condition func = liftIO $ do - let channel' = unsafeManagedPtrGetPtr channel - let condition' = gflagsToWord condition - func' <- mkIOFunc (iOFuncWrapper Nothing func) - let user_data = castFunPtrToPtr func' - let notify = safeFreeFunPtrPtr - result <- g_io_add_watch_full channel' priority condition' func' user_data notify - touchManagedPtr channel - return result - - --- function g_intern_string --- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_intern_string" g_intern_string :: - CString -> -- string : TBasicType TUTF8 - IO CString - - -internString :: - (MonadIO m) => - Maybe (T.Text) -> -- string - m T.Text -internString string = liftIO $ do - maybeString <- case string of - Nothing -> return nullPtr - Just jString -> do - jString' <- textToCString jString - return jString' - result <- g_intern_string maybeString - checkUnexpectedReturnNULL "g_intern_string" result - result' <- cstringToText result - freeMem maybeString - return result' - - --- function g_intern_static_string --- Args : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_intern_static_string" g_intern_static_string :: - CString -> -- string : TBasicType TUTF8 - IO CString - - -internStaticString :: - (MonadIO m) => - Maybe (T.Text) -> -- string - m T.Text -internStaticString string = liftIO $ do - maybeString <- case string of - Nothing -> return nullPtr - Just jString -> do - jString' <- textToCString jString - return jString' - result <- g_intern_static_string maybeString - checkUnexpectedReturnNULL "g_intern_static_string" result - result' <- cstringToText result - freeMem maybeString - return result' - - --- function g_int_hash --- Args : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "v", 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_int_hash" g_int_hash :: - Ptr () -> -- v : TBasicType TVoid - IO Word32 - - -intHash :: - (MonadIO m) => - Ptr () -> -- v - m Word32 -intHash v = liftIO $ do - result <- g_int_hash v - return result - - --- function g_int_equal --- Args : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_int_equal" g_int_equal :: - Ptr () -> -- v1 : TBasicType TVoid - Ptr () -> -- v2 : TBasicType TVoid - IO CInt - - -intEqual :: - (MonadIO m) => - Ptr () -> -- v1 - Ptr () -> -- v2 - m Bool -intEqual v1 v2 = liftIO $ do - result <- g_int_equal v1 v2 - let result' = (/= 0) result - return result' - - --- function g_int64_hash --- Args : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "v", 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_int64_hash" g_int64_hash :: - Ptr () -> -- v : TBasicType TVoid - IO Word32 - - -int64Hash :: - (MonadIO m) => - Ptr () -> -- v - m Word32 -int64Hash v = liftIO $ do - result <- g_int64_hash v - return result - - --- function g_int64_equal --- Args : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_int64_equal" g_int64_equal :: - Ptr () -> -- v1 : TBasicType TVoid - Ptr () -> -- v2 : TBasicType TVoid - IO CInt - - -int64Equal :: - (MonadIO m) => - Ptr () -> -- v1 - Ptr () -> -- v2 - m Bool -int64Equal v1 v2 = liftIO $ do - result <- g_int64_equal v1 v2 - let result' = (/= 0) result - return result' - - --- function g_idle_source_new --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "GLib" "Source" --- throws : False --- Skip return : False - -foreign import ccall "g_idle_source_new" g_idle_source_new :: - IO (Ptr Source) - - -idleSourceNew :: - (MonadIO m) => - m Source -idleSourceNew = liftIO $ do - result <- g_idle_source_new - checkUnexpectedReturnNULL "g_idle_source_new" result - result' <- (wrapBoxed Source) result - return result' - - --- function g_idle_remove_by_data --- Args : [Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_idle_remove_by_data" g_idle_remove_by_data :: - Ptr () -> -- data : TBasicType TVoid - IO CInt - - -idleRemoveByData :: - (MonadIO m) => - Ptr () -> -- data - m Bool -idleRemoveByData data_ = liftIO $ do - result <- g_idle_remove_by_data data_ - let result' = (/= 0) result - return result' - - --- function g_idle_add_full --- Args : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", 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 = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_idle_add_full" g_idle_add_full :: - Int32 -> -- priority : TBasicType TInt32 - FunPtr SourceFuncC -> -- function : TInterface "GLib" "SourceFunc" - Ptr () -> -- data : TBasicType TVoid - FunPtr DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO Word32 - - -idleAdd :: - (MonadIO m) => - Int32 -> -- priority - SourceFunc -> -- function - m Word32 -idleAdd priority function = liftIO $ do - function' <- mkSourceFunc (sourceFuncWrapper Nothing function) - let data_ = castFunPtrToPtr function' - let notify = safeFreeFunPtrPtr - result <- g_idle_add_full priority function' data_ notify - return result - - --- function g_iconv --- Args : [Arg {argName = "converter", argType = TInterface "GLib" "IConv", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inbuf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inbytes_left", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "outbuf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "outbytes_left", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "converter", argType = TInterface "GLib" "IConv", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inbuf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "inbytes_left", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "outbuf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "outbytes_left", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt64 --- throws : False --- Skip return : False - -foreign import ccall "g_iconv" g_iconv :: - Ptr IConv -> -- converter : TInterface "GLib" "IConv" - CString -> -- inbuf : TBasicType TUTF8 - Word64 -> -- inbytes_left : TBasicType TUInt64 - CString -> -- outbuf : TBasicType TUTF8 - Word64 -> -- outbytes_left : TBasicType TUInt64 - IO Word64 - - -iconv :: - (MonadIO m) => - IConv -> -- converter - T.Text -> -- inbuf - Word64 -> -- inbytes_left - T.Text -> -- outbuf - Word64 -> -- outbytes_left - m Word64 -iconv converter inbuf inbytes_left outbuf outbytes_left = liftIO $ do - let converter' = unsafeManagedPtrGetPtr converter - inbuf' <- textToCString inbuf - outbuf' <- textToCString outbuf - result <- g_iconv converter' inbuf' inbytes_left outbuf' outbytes_left - touchManagedPtr converter - freeMem inbuf' - freeMem outbuf' - return result - - --- function g_hostname_to_unicode --- Args : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "hostname", 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_hostname_to_unicode" g_hostname_to_unicode :: - CString -> -- hostname : TBasicType TUTF8 - IO CString - - -hostnameToUnicode :: - (MonadIO m) => - T.Text -> -- hostname - m T.Text -hostnameToUnicode hostname = liftIO $ do - hostname' <- textToCString hostname - result <- g_hostname_to_unicode hostname' - checkUnexpectedReturnNULL "g_hostname_to_unicode" result - result' <- cstringToText result - freeMem result - freeMem hostname' - return result' - - --- function g_hostname_to_ascii --- Args : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "hostname", 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_hostname_to_ascii" g_hostname_to_ascii :: - CString -> -- hostname : TBasicType TUTF8 - IO CString - - -hostnameToAscii :: - (MonadIO m) => - T.Text -> -- hostname - m T.Text -hostnameToAscii hostname = liftIO $ do - hostname' <- textToCString hostname - result <- g_hostname_to_ascii hostname' - checkUnexpectedReturnNULL "g_hostname_to_ascii" result - result' <- cstringToText result - freeMem result - freeMem hostname' - return result' - - --- function g_hostname_is_non_ascii --- Args : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "hostname", 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_hostname_is_non_ascii" g_hostname_is_non_ascii :: - CString -> -- hostname : TBasicType TUTF8 - IO CInt - - -hostnameIsNonAscii :: - (MonadIO m) => - T.Text -> -- hostname - m Bool -hostnameIsNonAscii hostname = liftIO $ do - hostname' <- textToCString hostname - result <- g_hostname_is_non_ascii hostname' - let result' = (/= 0) result - freeMem hostname' - return result' - - --- function g_hostname_is_ip_address --- Args : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "hostname", 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_hostname_is_ip_address" g_hostname_is_ip_address :: - CString -> -- hostname : TBasicType TUTF8 - IO CInt - - -hostnameIsIpAddress :: - (MonadIO m) => - T.Text -> -- hostname - m Bool -hostnameIsIpAddress hostname = liftIO $ do - hostname' <- textToCString hostname - result <- g_hostname_is_ip_address hostname' - let result' = (/= 0) result - freeMem hostname' - return result' - - --- function g_hostname_is_ascii_encoded --- Args : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "hostname", 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_hostname_is_ascii_encoded" g_hostname_is_ascii_encoded :: - CString -> -- hostname : TBasicType TUTF8 - IO CInt - - -hostnameIsAsciiEncoded :: - (MonadIO m) => - T.Text -> -- hostname - m Bool -hostnameIsAsciiEncoded hostname = liftIO $ do - hostname' <- textToCString hostname - result <- g_hostname_is_ascii_encoded hostname' - let result' = (/= 0) result - freeMem hostname' - return result' - - --- function g_hook_unref --- Args : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_hook_unref" g_hook_unref :: - Ptr HookList -> -- hook_list : TInterface "GLib" "HookList" - Ptr Hook -> -- hook : TInterface "GLib" "Hook" - IO () - - -hookUnref :: - (MonadIO m) => - HookList -> -- hook_list - Hook -> -- hook - m () -hookUnref hook_list hook = liftIO $ do - let hook_list' = unsafeManagedPtrGetPtr hook_list - let hook' = unsafeManagedPtrGetPtr hook - g_hook_unref hook_list' hook' - touchManagedPtr hook_list - touchManagedPtr hook - return () - - --- function g_hook_prepend --- Args : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_hook_prepend" g_hook_prepend :: - Ptr HookList -> -- hook_list : TInterface "GLib" "HookList" - Ptr Hook -> -- hook : TInterface "GLib" "Hook" - IO () - - -hookPrepend :: - (MonadIO m) => - HookList -> -- hook_list - Hook -> -- hook - m () -hookPrepend hook_list hook = liftIO $ do - let hook_list' = unsafeManagedPtrGetPtr hook_list - let hook' = unsafeManagedPtrGetPtr hook - g_hook_prepend hook_list' hook' - touchManagedPtr hook_list - touchManagedPtr hook - return () - - --- function g_hook_insert_before --- Args : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_hook_insert_before" g_hook_insert_before :: - Ptr HookList -> -- hook_list : TInterface "GLib" "HookList" - Ptr Hook -> -- sibling : TInterface "GLib" "Hook" - Ptr Hook -> -- hook : TInterface "GLib" "Hook" - IO () - - -hookInsertBefore :: - (MonadIO m) => - HookList -> -- hook_list - Hook -> -- sibling - Hook -> -- hook - m () -hookInsertBefore hook_list sibling hook = liftIO $ do - let hook_list' = unsafeManagedPtrGetPtr hook_list - let sibling' = unsafeManagedPtrGetPtr sibling - let hook' = unsafeManagedPtrGetPtr hook - g_hook_insert_before hook_list' sibling' hook' - touchManagedPtr hook_list - touchManagedPtr sibling - touchManagedPtr hook - return () - - --- function g_hook_free --- Args : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_hook_free" g_hook_free :: - Ptr HookList -> -- hook_list : TInterface "GLib" "HookList" - Ptr Hook -> -- hook : TInterface "GLib" "Hook" - IO () - - -hookFree :: - (MonadIO m) => - HookList -> -- hook_list - Hook -> -- hook - m () -hookFree hook_list hook = liftIO $ do - let hook_list' = unsafeManagedPtrGetPtr hook_list - let hook' = unsafeManagedPtrGetPtr hook - g_hook_free hook_list' hook' - touchManagedPtr hook_list - touchManagedPtr hook - return () - - --- function g_hook_destroy_link --- Args : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_hook_destroy_link" g_hook_destroy_link :: - Ptr HookList -> -- hook_list : TInterface "GLib" "HookList" - Ptr Hook -> -- hook : TInterface "GLib" "Hook" - IO () - - -hookDestroyLink :: - (MonadIO m) => - HookList -> -- hook_list - Hook -> -- hook - m () -hookDestroyLink hook_list hook = liftIO $ do - let hook_list' = unsafeManagedPtrGetPtr hook_list - let hook' = unsafeManagedPtrGetPtr hook - g_hook_destroy_link hook_list' hook' - touchManagedPtr hook_list - touchManagedPtr hook - return () - - --- function g_hook_destroy --- Args : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook_id", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook_id", 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_hook_destroy" g_hook_destroy :: - Ptr HookList -> -- hook_list : TInterface "GLib" "HookList" - Word64 -> -- hook_id : TBasicType TUInt64 - IO CInt - - -hookDestroy :: - (MonadIO m) => - HookList -> -- hook_list - Word64 -> -- hook_id - m Bool -hookDestroy hook_list hook_id = liftIO $ do - let hook_list' = unsafeManagedPtrGetPtr hook_list - result <- g_hook_destroy hook_list' hook_id - let result' = (/= 0) result - touchManagedPtr hook_list - return result' - - --- function g_hash_table_unref --- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (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_hash_table_unref" g_hash_table_unref :: - Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid) - IO () - - -hashTableUnref :: - (MonadIO m) => - Map.Map (Ptr ()) (Ptr ()) -> -- hash_table - m () -hashTableUnref hash_table = liftIO $ do - let hash_table' = Map.toList hash_table - let hash_table'' = mapFirst ptrPackPtr hash_table' - let hash_table''' = mapSecond ptrPackPtr hash_table'' - hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table''' - g_hash_table_unref hash_table'''' - unrefGHashTable hash_table'''' - return () - - --- function g_hash_table_steal_all --- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (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_hash_table_steal_all" g_hash_table_steal_all :: - Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid) - IO () - - -hashTableStealAll :: - (MonadIO m) => - Map.Map (Ptr ()) (Ptr ()) -> -- hash_table - m () -hashTableStealAll hash_table = liftIO $ do - let hash_table' = Map.toList hash_table - let hash_table'' = mapFirst ptrPackPtr hash_table' - let hash_table''' = mapSecond ptrPackPtr hash_table'' - hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table''' - g_hash_table_steal_all hash_table'''' - unrefGHashTable hash_table'''' - return () - - --- function g_hash_table_steal --- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_hash_table_steal" g_hash_table_steal :: - Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid) - Ptr () -> -- key : TBasicType TVoid - IO CInt - - -hashTableSteal :: - (MonadIO m) => - Map.Map (Ptr ()) (Ptr ()) -> -- hash_table - Ptr () -> -- key - m Bool -hashTableSteal hash_table key = liftIO $ do - let hash_table' = Map.toList hash_table - let hash_table'' = mapFirst ptrPackPtr hash_table' - let hash_table''' = mapSecond ptrPackPtr hash_table'' - hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table''' - result <- g_hash_table_steal hash_table'''' key - let result' = (/= 0) result - unrefGHashTable hash_table'''' - return result' - - --- function g_hash_table_size --- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (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_hash_table_size" g_hash_table_size :: - Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid) - IO Word32 - - -hashTableSize :: - (MonadIO m) => - Map.Map (Ptr ()) (Ptr ()) -> -- hash_table - m Word32 -hashTableSize hash_table = liftIO $ do - let hash_table' = Map.toList hash_table - let hash_table'' = mapFirst ptrPackPtr hash_table' - let hash_table''' = mapSecond ptrPackPtr hash_table'' - hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table''' - result <- g_hash_table_size hash_table'''' - unrefGHashTable hash_table'''' - return result - - --- function g_hash_table_replace --- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_hash_table_replace" g_hash_table_replace :: - Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid) - Ptr () -> -- key : TBasicType TVoid - Ptr () -> -- value : TBasicType TVoid - IO CInt - - -hashTableReplace :: - (MonadIO m) => - Map.Map (Ptr ()) (Ptr ()) -> -- hash_table - Ptr () -> -- key - Ptr () -> -- value - m Bool -hashTableReplace hash_table key value = liftIO $ do - let hash_table' = Map.toList hash_table - let hash_table'' = mapFirst ptrPackPtr hash_table' - let hash_table''' = mapSecond ptrPackPtr hash_table'' - hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table''' - result <- g_hash_table_replace hash_table'''' key value - let result' = (/= 0) result - unrefGHashTable hash_table'''' - return result' - - --- function g_hash_table_remove_all --- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (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_hash_table_remove_all" g_hash_table_remove_all :: - Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid) - IO () - - -hashTableRemoveAll :: - (MonadIO m) => - Map.Map (Ptr ()) (Ptr ()) -> -- hash_table - m () -hashTableRemoveAll hash_table = liftIO $ do - let hash_table' = Map.toList hash_table - let hash_table'' = mapFirst ptrPackPtr hash_table' - let hash_table''' = mapSecond ptrPackPtr hash_table'' - hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table''' - g_hash_table_remove_all hash_table'''' - unrefGHashTable hash_table'''' - return () - - --- function g_hash_table_remove --- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_hash_table_remove" g_hash_table_remove :: - Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid) - Ptr () -> -- key : TBasicType TVoid - IO CInt - - -hashTableRemove :: - (MonadIO m) => - Map.Map (Ptr ()) (Ptr ()) -> -- hash_table - Ptr () -> -- key - m Bool -hashTableRemove hash_table key = liftIO $ do - let hash_table' = Map.toList hash_table - let hash_table'' = mapFirst ptrPackPtr hash_table' - let hash_table''' = mapSecond ptrPackPtr hash_table'' - hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table''' - result <- g_hash_table_remove hash_table'''' key - let result' = (/= 0) result - unrefGHashTable hash_table'''' - return result' - - --- function g_hash_table_lookup_extended --- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orig_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orig_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_hash_table_lookup_extended" g_hash_table_lookup_extended :: - Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid) - Ptr () -> -- lookup_key : TBasicType TVoid - Ptr () -> -- orig_key : TBasicType TVoid - Ptr () -> -- value : TBasicType TVoid - IO CInt - - -hashTableLookupExtended :: - (MonadIO m) => - Map.Map (Ptr ()) (Ptr ()) -> -- hash_table - Ptr () -> -- lookup_key - Maybe (Ptr ()) -> -- orig_key - Maybe (Ptr ()) -> -- value - m Bool -hashTableLookupExtended hash_table lookup_key orig_key value = liftIO $ do - let hash_table' = Map.toList hash_table - let hash_table'' = mapFirst ptrPackPtr hash_table' - let hash_table''' = mapSecond ptrPackPtr hash_table'' - hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table''' - maybeOrig_key <- case orig_key of - Nothing -> return nullPtr - Just jOrig_key -> do - return jOrig_key - maybeValue <- case value of - Nothing -> return nullPtr - Just jValue -> do - return jValue - result <- g_hash_table_lookup_extended hash_table'''' lookup_key maybeOrig_key maybeValue - let result' = (/= 0) result - unrefGHashTable hash_table'''' - return result' - - --- function g_hash_table_insert --- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_hash_table_insert" g_hash_table_insert :: - Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid) - Ptr () -> -- key : TBasicType TVoid - Ptr () -> -- value : TBasicType TVoid - IO CInt - - -hashTableInsert :: - (MonadIO m) => - Map.Map (Ptr ()) (Ptr ()) -> -- hash_table - Ptr () -> -- key - Ptr () -> -- value - m Bool -hashTableInsert hash_table key value = liftIO $ do - let hash_table' = Map.toList hash_table - let hash_table'' = mapFirst ptrPackPtr hash_table' - let hash_table''' = mapSecond ptrPackPtr hash_table'' - hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table''' - result <- g_hash_table_insert hash_table'''' key value - let result' = (/= 0) result - unrefGHashTable hash_table'''' - return result' - - --- function g_hash_table_destroy --- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (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_hash_table_destroy" g_hash_table_destroy :: - Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid) - IO () - - -hashTableDestroy :: - (MonadIO m) => - Map.Map (Ptr ()) (Ptr ()) -> -- hash_table - m () -hashTableDestroy hash_table = liftIO $ do - let hash_table' = Map.toList hash_table - let hash_table'' = mapFirst ptrPackPtr hash_table' - let hash_table''' = mapSecond ptrPackPtr hash_table'' - hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table''' - g_hash_table_destroy hash_table'''' - unrefGHashTable hash_table'''' - return () - - --- function g_hash_table_contains --- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_hash_table_contains" g_hash_table_contains :: - Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid) - Ptr () -> -- key : TBasicType TVoid - IO CInt - - -hashTableContains :: - (MonadIO m) => - Map.Map (Ptr ()) (Ptr ()) -> -- hash_table - Ptr () -> -- key - m Bool -hashTableContains hash_table key = liftIO $ do - let hash_table' = Map.toList hash_table - let hash_table'' = mapFirst ptrPackPtr hash_table' - let hash_table''' = mapSecond ptrPackPtr hash_table'' - hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table''' - result <- g_hash_table_contains hash_table'''' key - let result' = (/= 0) result - unrefGHashTable hash_table'''' - return result' - - --- function g_hash_table_add --- Args : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_hash_table_add" g_hash_table_add :: - Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid) - Ptr () -> -- key : TBasicType TVoid - IO CInt - - -hashTableAdd :: - (MonadIO m) => - Map.Map (Ptr ()) (Ptr ()) -> -- hash_table - Ptr () -> -- key - m Bool -hashTableAdd hash_table key = liftIO $ do - let hash_table' = Map.toList hash_table - let hash_table'' = mapFirst ptrPackPtr hash_table' - let hash_table''' = mapSecond ptrPackPtr hash_table'' - hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table''' - result <- g_hash_table_add hash_table'''' key - let result' = (/= 0) result - unrefGHashTable hash_table'''' - return result' - - --- function g_getenv --- Args : [Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [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 - -foreign import ccall "g_getenv" g_getenv :: - CString -> -- variable : TBasicType TUTF8 - IO CString - - -getenv :: - (MonadIO m) => - T.Text -> -- variable - m T.Text -getenv variable = liftIO $ do - variable' <- textToCString variable - result <- g_getenv variable' - checkUnexpectedReturnNULL "g_getenv" result - result' <- cstringToText result - freeMem variable' - return result' - - --- function g_get_user_special_dir --- Args : [Arg {argName = "directory", argType = TInterface "GLib" "UserDirectory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "directory", argType = TInterface "GLib" "UserDirectory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_get_user_special_dir" g_get_user_special_dir :: - CUInt -> -- directory : TInterface "GLib" "UserDirectory" - IO CString - - -getUserSpecialDir :: - (MonadIO m) => - UserDirectory -> -- directory - m T.Text -getUserSpecialDir directory = liftIO $ do - let directory' = (fromIntegral . fromEnum) directory - result <- g_get_user_special_dir directory' - checkUnexpectedReturnNULL "g_get_user_special_dir" result - result' <- cstringToText result - return result' - - --- function g_get_user_runtime_dir --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_get_user_runtime_dir" g_get_user_runtime_dir :: - IO CString - - -getUserRuntimeDir :: - (MonadIO m) => - m T.Text -getUserRuntimeDir = liftIO $ do - result <- g_get_user_runtime_dir - checkUnexpectedReturnNULL "g_get_user_runtime_dir" result - result' <- cstringToText result - return result' - - --- function g_get_user_name --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_get_user_name" g_get_user_name :: - IO CString - - -getUserName :: - (MonadIO m) => - m T.Text -getUserName = liftIO $ do - result <- g_get_user_name - checkUnexpectedReturnNULL "g_get_user_name" result - result' <- cstringToText result - return result' - - --- function g_get_user_data_dir --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_get_user_data_dir" g_get_user_data_dir :: - IO CString - - -getUserDataDir :: - (MonadIO m) => - m T.Text -getUserDataDir = liftIO $ do - result <- g_get_user_data_dir - checkUnexpectedReturnNULL "g_get_user_data_dir" result - result' <- cstringToText result - return result' - - --- function g_get_user_config_dir --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_get_user_config_dir" g_get_user_config_dir :: - IO CString - - -getUserConfigDir :: - (MonadIO m) => - m T.Text -getUserConfigDir = liftIO $ do - result <- g_get_user_config_dir - checkUnexpectedReturnNULL "g_get_user_config_dir" result - result' <- cstringToText result - return result' - - --- function g_get_user_cache_dir --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_get_user_cache_dir" g_get_user_cache_dir :: - IO CString - - -getUserCacheDir :: - (MonadIO m) => - m T.Text -getUserCacheDir = liftIO $ do - result <- g_get_user_cache_dir - checkUnexpectedReturnNULL "g_get_user_cache_dir" result - result' <- cstringToText result - return result' - - --- function g_get_tmp_dir --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_get_tmp_dir" g_get_tmp_dir :: - IO CString - - -getTmpDir :: - (MonadIO m) => - m T.Text -getTmpDir = liftIO $ do - result <- g_get_tmp_dir - checkUnexpectedReturnNULL "g_get_tmp_dir" result - result' <- cstringToText result - return result' - - --- function g_get_system_data_dirs --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_get_system_data_dirs" g_get_system_data_dirs :: - IO (Ptr CString) - - -getSystemDataDirs :: - (MonadIO m) => - m [T.Text] -getSystemDataDirs = liftIO $ do - result <- g_get_system_data_dirs - checkUnexpectedReturnNULL "g_get_system_data_dirs" result - result' <- unpackZeroTerminatedUTF8CArray result - return result' - - --- function g_get_system_config_dirs --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_get_system_config_dirs" g_get_system_config_dirs :: - IO (Ptr CString) - - -getSystemConfigDirs :: - (MonadIO m) => - m [T.Text] -getSystemConfigDirs = liftIO $ do - result <- g_get_system_config_dirs - checkUnexpectedReturnNULL "g_get_system_config_dirs" result - result' <- unpackZeroTerminatedUTF8CArray result - return result' - - --- function g_get_real_time --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TInt64 --- throws : False --- Skip return : False - -foreign import ccall "g_get_real_time" g_get_real_time :: - IO Int64 - - -getRealTime :: - (MonadIO m) => - m Int64 -getRealTime = liftIO $ do - result <- g_get_real_time - return result - - --- function g_get_real_name --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_get_real_name" g_get_real_name :: - IO CString - - -getRealName :: - (MonadIO m) => - m T.Text -getRealName = liftIO $ do - result <- g_get_real_name - checkUnexpectedReturnNULL "g_get_real_name" result - result' <- cstringToText result - return result' - - --- function g_get_prgname --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_get_prgname" g_get_prgname :: - IO CString - - -getPrgname :: - (MonadIO m) => - m T.Text -getPrgname = liftIO $ do - result <- g_get_prgname - checkUnexpectedReturnNULL "g_get_prgname" result - result' <- cstringToText result - return result' - - --- function g_get_num_processors --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_get_num_processors" g_get_num_processors :: - IO Word32 - - -getNumProcessors :: - (MonadIO m) => - m Word32 -getNumProcessors = liftIO $ do - result <- g_get_num_processors - return result - - --- function g_get_monotonic_time --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TInt64 --- throws : False --- Skip return : False - -foreign import ccall "g_get_monotonic_time" g_get_monotonic_time :: - IO Int64 - - -getMonotonicTime :: - (MonadIO m) => - m Int64 -getMonotonicTime = liftIO $ do - result <- g_get_monotonic_time - return result - - --- function g_get_locale_variants --- Args : [Arg {argName = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "locale", 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_get_locale_variants" g_get_locale_variants :: - CString -> -- locale : TBasicType TUTF8 - IO (Ptr CString) - - -getLocaleVariants :: - (MonadIO m) => - T.Text -> -- locale - m [T.Text] -getLocaleVariants locale = liftIO $ do - locale' <- textToCString locale - result <- g_get_locale_variants locale' - checkUnexpectedReturnNULL "g_get_locale_variants" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - freeMem locale' - return result' - - --- function g_get_language_names --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_get_language_names" g_get_language_names :: - IO (Ptr CString) - - -getLanguageNames :: - (MonadIO m) => - m [T.Text] -getLanguageNames = liftIO $ do - result <- g_get_language_names - checkUnexpectedReturnNULL "g_get_language_names" result - result' <- unpackZeroTerminatedUTF8CArray result - return result' - - --- function g_get_host_name --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_get_host_name" g_get_host_name :: - IO CString - - -getHostName :: - (MonadIO m) => - m T.Text -getHostName = liftIO $ do - result <- g_get_host_name - checkUnexpectedReturnNULL "g_get_host_name" result - result' <- cstringToText result - return result' - - --- function g_get_home_dir --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_get_home_dir" g_get_home_dir :: - IO CString - - -getHomeDir :: - (MonadIO m) => - m T.Text -getHomeDir = liftIO $ do - result <- g_get_home_dir - checkUnexpectedReturnNULL "g_get_home_dir" result - result' <- cstringToText result - return result' - - --- function g_get_filename_charsets --- Args : [Arg {argName = "charsets", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "charsets", 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_get_filename_charsets" g_get_filename_charsets :: - CString -> -- charsets : TBasicType TUTF8 - IO CInt - - -getFilenameCharsets :: - (MonadIO m) => - T.Text -> -- charsets - m Bool -getFilenameCharsets charsets = liftIO $ do - charsets' <- textToCString charsets - result <- g_get_filename_charsets charsets' - let result' = (/= 0) result - freeMem charsets' - return result' - - --- function g_get_environ --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TCArray True (-1) (-1) (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_get_environ" g_get_environ :: - IO (Ptr CString) - - -getEnviron :: - (MonadIO m) => - m [T.Text] -getEnviron = liftIO $ do - result <- g_get_environ - checkUnexpectedReturnNULL "g_get_environ" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - return result' - - --- function g_get_current_time --- Args : [Arg {argName = "result", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "result", 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_get_current_time" g_get_current_time :: - Ptr TimeVal -> -- result : TInterface "GLib" "TimeVal" - IO () - - -getCurrentTime :: - (MonadIO m) => - TimeVal -> -- result - m () -getCurrentTime result_ = liftIO $ do - let result_' = unsafeManagedPtrGetPtr result_ - g_get_current_time result_' - touchManagedPtr result_ - return () - - --- function g_get_current_dir --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_get_current_dir" g_get_current_dir :: - IO CString - - -getCurrentDir :: - (MonadIO m) => - m T.Text -getCurrentDir = liftIO $ do - result <- g_get_current_dir - checkUnexpectedReturnNULL "g_get_current_dir" result - result' <- cstringToText result - freeMem result - return result' - - --- function g_get_codeset --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_get_codeset" g_get_codeset :: - IO CString - - -getCodeset :: - (MonadIO m) => - m T.Text -getCodeset = liftIO $ do - result <- g_get_codeset - checkUnexpectedReturnNULL "g_get_codeset" result - result' <- cstringToText result - freeMem result - return result' - - --- function g_get_charset --- Args : [Arg {argName = "charset", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_get_charset" g_get_charset :: - Ptr CString -> -- charset : TBasicType TUTF8 - IO CInt - - -getCharset :: - (MonadIO m) => - m (Bool,T.Text) -getCharset = liftIO $ do - charset <- allocMem :: IO (Ptr CString) - result <- g_get_charset charset - let result' = (/= 0) result - charset' <- peek charset - charset'' <- cstringToText charset' - freeMem charset - return (result', charset'') - - --- function g_get_application_name --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_get_application_name" g_get_application_name :: - IO CString - - -getApplicationName :: - (MonadIO m) => - m T.Text -getApplicationName = liftIO $ do - result <- g_get_application_name - checkUnexpectedReturnNULL "g_get_application_name" result - result' <- cstringToText result - return result' - - --- function g_free --- Args : [Arg {argName = "mem", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "mem", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_free" g_free :: - Ptr () -> -- mem : TBasicType TVoid - IO () - - -free :: - (MonadIO m) => - Maybe (Ptr ()) -> -- mem - m () -free mem = liftIO $ do - maybeMem <- case mem of - Nothing -> return nullPtr - Just jMem -> do - return jMem - g_free maybeMem - return () - - --- function g_format_size_full --- Args : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "FormatSizeFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "FormatSizeFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_format_size_full" g_format_size_full :: - Word64 -> -- size : TBasicType TUInt64 - CUInt -> -- flags : TInterface "GLib" "FormatSizeFlags" - IO CString - - -formatSizeFull :: - (MonadIO m) => - Word64 -> -- size - [FormatSizeFlags] -> -- flags - m T.Text -formatSizeFull size flags = liftIO $ do - let flags' = gflagsToWord flags - result <- g_format_size_full size flags' - checkUnexpectedReturnNULL "g_format_size_full" result - result' <- cstringToText result - freeMem result - return result' - - --- function g_format_size_for_display --- Args : [Arg {argName = "size", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "size", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_format_size_for_display" g_format_size_for_display :: - Int64 -> -- size : TBasicType TInt64 - IO CString - -{-# DEPRECATED formatSizeForDisplay ["(Since version 2.30)","This function is broken due to its use of SI"," suffixes to denote IEC units. Use g_format_size() instead."]#-} -formatSizeForDisplay :: - (MonadIO m) => - Int64 -> -- size - m T.Text -formatSizeForDisplay size = liftIO $ do - result <- g_format_size_for_display size - checkUnexpectedReturnNULL "g_format_size_for_display" result - result' <- cstringToText result - freeMem result - return result' - - --- function g_format_size --- Args : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_format_size" g_format_size :: - Word64 -> -- size : TBasicType TUInt64 - IO CString - - -formatSize :: - (MonadIO m) => - Word64 -> -- size - m T.Text -formatSize size = liftIO $ do - result <- g_format_size size - checkUnexpectedReturnNULL "g_format_size" result - result' <- cstringToText result - freeMem result - return result' - - --- function g_find_program_in_path --- Args : [Arg {argName = "program", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "program", 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_find_program_in_path" g_find_program_in_path :: - CString -> -- program : TBasicType TUTF8 - IO CString - - -findProgramInPath :: - (MonadIO m) => - T.Text -> -- program - m T.Text -findProgramInPath program = liftIO $ do - program' <- textToCString program - result <- g_find_program_in_path program' - checkUnexpectedReturnNULL "g_find_program_in_path" result - result' <- cstringToText result - freeMem result - freeMem program' - return result' - - --- function g_filename_to_utf8 --- Args : [Arg {argName = "opsysstring", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "opsysstring", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : True --- Skip return : False - -foreign import ccall "g_filename_to_utf8" g_filename_to_utf8 :: - CString -> -- opsysstring : TBasicType TUTF8 - Int64 -> -- len : TBasicType TInt64 - Word64 -> -- bytes_read : TBasicType TUInt64 - Word64 -> -- bytes_written : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO CString - - -filenameToUtf8 :: - (MonadIO m) => - T.Text -> -- opsysstring - Int64 -> -- len - Word64 -> -- bytes_read - Word64 -> -- bytes_written - m T.Text -filenameToUtf8 opsysstring len bytes_read bytes_written = liftIO $ do - opsysstring' <- textToCString opsysstring - onException (do - result <- propagateGError $ g_filename_to_utf8 opsysstring' len bytes_read bytes_written - checkUnexpectedReturnNULL "g_filename_to_utf8" result - result' <- cstringToText result - freeMem result - freeMem opsysstring' - return result' - ) (do - freeMem opsysstring' - ) - - --- function g_filename_to_uri --- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : True --- Skip return : False - -foreign import ccall "g_filename_to_uri" g_filename_to_uri :: - CString -> -- filename : TBasicType TUTF8 - CString -> -- hostname : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CString - - -filenameToUri :: - (MonadIO m) => - T.Text -> -- filename - Maybe (T.Text) -> -- hostname - m T.Text -filenameToUri filename hostname = liftIO $ do - filename' <- textToCString filename - maybeHostname <- case hostname of - Nothing -> return nullPtr - Just jHostname -> do - jHostname' <- textToCString jHostname - return jHostname' - onException (do - result <- propagateGError $ g_filename_to_uri filename' maybeHostname - checkUnexpectedReturnNULL "g_filename_to_uri" result - result' <- cstringToText result - freeMem result - freeMem filename' - freeMem maybeHostname - return result' - ) (do - freeMem filename' - freeMem maybeHostname - ) - - --- function g_filename_from_utf8 --- Args : [Arg {argName = "utf8string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, 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 = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "utf8string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TCArray False (-1) 3 (TBasicType TUInt8) --- throws : True --- Skip return : False - -foreign import ccall "g_filename_from_utf8" g_filename_from_utf8 :: - CString -> -- utf8string : TBasicType TUTF8 - Int64 -> -- len : TBasicType TInt64 - Ptr Word64 -> -- bytes_read : TBasicType TUInt64 - Ptr Word64 -> -- bytes_written : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO (Ptr Word8) - - -filenameFromUtf8 :: - (MonadIO m) => - T.Text -> -- utf8string - Int64 -> -- len - m (ByteString,Word64) -filenameFromUtf8 utf8string len = liftIO $ do - utf8string' <- textToCString utf8string - bytes_read <- allocMem :: IO (Ptr Word64) - bytes_written <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_filename_from_utf8 utf8string' len bytes_read bytes_written - bytes_written' <- peek bytes_written - checkUnexpectedReturnNULL "g_filename_from_utf8" result - result' <- (unpackByteStringWithLength bytes_written') result - freeMem result - bytes_read' <- peek bytes_read - freeMem utf8string' - freeMem bytes_read - freeMem bytes_written - return (result', bytes_read') - ) (do - freeMem utf8string' - freeMem bytes_read - freeMem bytes_written - ) - - --- function g_filename_from_uri --- Args : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TFileName --- throws : True --- Skip return : False - -foreign import ccall "g_filename_from_uri" g_filename_from_uri :: - CString -> -- uri : TBasicType TUTF8 - Ptr CString -> -- hostname : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CString - - -filenameFromUri :: - (MonadIO m) => - T.Text -> -- uri - m ([Char],T.Text) -filenameFromUri uri = liftIO $ do - uri' <- textToCString uri - hostname <- allocMem :: IO (Ptr CString) - onException (do - result <- propagateGError $ g_filename_from_uri uri' hostname - checkUnexpectedReturnNULL "g_filename_from_uri" result - result' <- cstringToString result - freeMem result - hostname' <- peek hostname - hostname'' <- cstringToText hostname' - freeMem hostname' - freeMem uri' - freeMem hostname - return (result', hostname'') - ) (do - freeMem uri' - freeMem hostname - ) - - --- function g_filename_display_name --- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "filename", 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_filename_display_name" g_filename_display_name :: - CString -> -- filename : TBasicType TUTF8 - IO CString - - -filenameDisplayName :: - (MonadIO m) => - T.Text -> -- filename - m T.Text -filenameDisplayName filename = liftIO $ do - filename' <- textToCString filename - result <- g_filename_display_name filename' - checkUnexpectedReturnNULL "g_filename_display_name" result - result' <- cstringToText result - freeMem result - freeMem filename' - return result' - - --- function g_filename_display_basename --- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "filename", 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_filename_display_basename" g_filename_display_basename :: - CString -> -- filename : TBasicType TUTF8 - IO CString - - -filenameDisplayBasename :: - (MonadIO m) => - T.Text -> -- filename - m T.Text -filenameDisplayBasename filename = liftIO $ do - filename' <- textToCString filename - result <- g_filename_display_basename filename' - checkUnexpectedReturnNULL "g_filename_display_basename" result - result' <- cstringToText result - freeMem result - freeMem filename' - return result' - - --- function g_file_test --- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test", argType = TInterface "GLib" "FileTest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test", argType = TInterface "GLib" "FileTest", 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_test" g_file_test :: - CString -> -- filename : TBasicType TUTF8 - CUInt -> -- test : TInterface "GLib" "FileTest" - IO CInt - - -fileTest :: - (MonadIO m) => - T.Text -> -- filename - [FileTest] -> -- test - m Bool -fileTest filename test = liftIO $ do - filename' <- textToCString filename - let test' = gflagsToWord test - result <- g_file_test filename' test' - let result' = (/= 0) result - freeMem filename' - return result' - - --- function g_file_set_contents --- Args : [Arg {argName = "filename", argType = TBasicType TFileName, 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 TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "filename", argType = TBasicType TFileName, 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}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_file_set_contents" g_file_set_contents :: - CString -> -- filename : TBasicType TFileName - Ptr Word8 -> -- contents : TCArray False (-1) 2 (TBasicType TUInt8) - Int64 -> -- length : TBasicType TInt64 - Ptr (Ptr GError) -> -- error - IO CInt - - -fileSetContents :: - (MonadIO m) => - [Char] -> -- filename - ByteString -> -- contents - m () -fileSetContents filename contents = liftIO $ do - let length_ = fromIntegral $ B.length contents - filename' <- stringToCString filename - contents' <- packByteString contents - onException (do - _ <- propagateGError $ g_file_set_contents filename' contents' length_ - freeMem filename' - freeMem contents' - return () - ) (do - freeMem filename' - freeMem contents' - ) - - --- function g_file_read_link --- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : True --- Skip return : False - -foreign import ccall "g_file_read_link" g_file_read_link :: - CString -> -- filename : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CString - - -fileReadLink :: - (MonadIO m) => - T.Text -> -- filename - m T.Text -fileReadLink filename = liftIO $ do - filename' <- textToCString filename - onException (do - result <- propagateGError $ g_file_read_link filename' - checkUnexpectedReturnNULL "g_file_read_link" result - result' <- cstringToText result - freeMem result - freeMem filename' - return result' - ) (do - freeMem filename' - ) - - --- function g_file_open_tmp --- Args : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name_used", argType = TBasicType TFileName, 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 : TBasicType TInt32 --- throws : True --- Skip return : False - -foreign import ccall "g_file_open_tmp" g_file_open_tmp :: - CString -> -- tmpl : TBasicType TFileName - Ptr CString -> -- name_used : TBasicType TFileName - Ptr (Ptr GError) -> -- error - IO Int32 - - -fileOpenTmp :: - (MonadIO m) => - Maybe ([Char]) -> -- tmpl - m (Int32,[Char]) -fileOpenTmp tmpl = liftIO $ do - maybeTmpl <- case tmpl of - Nothing -> return nullPtr - Just jTmpl -> do - jTmpl' <- stringToCString jTmpl - return jTmpl' - name_used <- allocMem :: IO (Ptr CString) - onException (do - result <- propagateGError $ g_file_open_tmp maybeTmpl name_used - name_used' <- peek name_used - name_used'' <- cstringToString name_used' - freeMem name_used' - freeMem maybeTmpl - freeMem name_used - return (result, name_used'') - ) (do - freeMem maybeTmpl - freeMem name_used - ) - - --- function g_file_get_contents --- Args : [Arg {argName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "contents", argType = TCArray False (-1) 2 (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}] --- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "filename", argType = TBasicType TFileName, 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_get_contents" g_file_get_contents :: - CString -> -- filename : TBasicType TFileName - Ptr (Ptr Word8) -> -- contents : TCArray False (-1) 2 (TBasicType TUInt8) - Ptr Word64 -> -- length : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO CInt - - -fileGetContents :: - (MonadIO m) => - [Char] -> -- filename - m (ByteString) -fileGetContents filename = liftIO $ do - filename' <- stringToCString filename - contents <- allocMem :: IO (Ptr (Ptr Word8)) - length_ <- allocMem :: IO (Ptr Word64) - onException (do - _ <- propagateGError $ g_file_get_contents filename' contents length_ - length_' <- peek length_ - contents' <- peek contents - contents'' <- (unpackByteStringWithLength length_') contents' - freeMem contents' - freeMem filename' - freeMem contents - freeMem length_ - return contents'' - ) (do - freeMem filename' - freeMem contents - freeMem length_ - ) - - --- function g_file_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_file_error_quark" g_file_error_quark :: - IO Word32 - - -fileErrorQuark :: - (MonadIO m) => - m Word32 -fileErrorQuark = liftIO $ do - result <- g_file_error_quark - return result - - --- function g_file_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 "GLib" "FileError" --- throws : False --- Skip return : False - -foreign import ccall "g_file_error_from_errno" g_file_error_from_errno :: - Int32 -> -- err_no : TBasicType TInt32 - IO CUInt - - -fileErrorFromErrno :: - (MonadIO m) => - Int32 -> -- err_no - m FileError -fileErrorFromErrno err_no = liftIO $ do - result <- g_file_error_from_errno err_no - let result' = (toEnum . fromIntegral) result - return result' - - --- function g_environ_unsetenv --- Args : [Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "variable", 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_environ_unsetenv" g_environ_unsetenv :: - Ptr CString -> -- envp : TCArray True (-1) (-1) (TBasicType TUTF8) - CString -> -- variable : TBasicType TUTF8 - IO (Ptr CString) - - -environUnsetenv :: - (MonadIO m) => - Maybe ([T.Text]) -> -- envp - T.Text -> -- variable - m [T.Text] -environUnsetenv envp variable = liftIO $ do - maybeEnvp <- case envp of - Nothing -> return nullPtr - Just jEnvp -> do - jEnvp' <- packZeroTerminatedUTF8CArray jEnvp - return jEnvp' - variable' <- textToCString variable - result <- g_environ_unsetenv maybeEnvp variable' - checkUnexpectedReturnNULL "g_environ_unsetenv" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - freeMem variable' - return result' - - --- function g_environ_setenv --- Args : [Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},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}] --- Lengths : [] --- hInArgs : [Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},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 : TCArray True (-1) (-1) (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_environ_setenv" g_environ_setenv :: - Ptr CString -> -- envp : TCArray True (-1) (-1) (TBasicType TUTF8) - CString -> -- variable : TBasicType TUTF8 - CString -> -- value : TBasicType TUTF8 - CInt -> -- overwrite : TBasicType TBoolean - IO (Ptr CString) - - -environSetenv :: - (MonadIO m) => - Maybe ([T.Text]) -> -- envp - T.Text -> -- variable - T.Text -> -- value - Bool -> -- overwrite - m [T.Text] -environSetenv envp variable value overwrite = liftIO $ do - maybeEnvp <- case envp of - Nothing -> return nullPtr - Just jEnvp -> do - jEnvp' <- packZeroTerminatedUTF8CArray jEnvp - return jEnvp' - variable' <- textToCString variable - value' <- textToCString value - let overwrite' = (fromIntegral . fromEnum) overwrite - result <- g_environ_setenv maybeEnvp variable' value' overwrite' - checkUnexpectedReturnNULL "g_environ_setenv" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - freeMem variable' - freeMem value' - return result' - - --- function g_environ_getenv --- Args : [Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, 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 - -foreign import ccall "g_environ_getenv" g_environ_getenv :: - Ptr CString -> -- envp : TCArray True (-1) (-1) (TBasicType TUTF8) - CString -> -- variable : TBasicType TUTF8 - IO CString - - -environGetenv :: - (MonadIO m) => - Maybe ([T.Text]) -> -- envp - T.Text -> -- variable - m T.Text -environGetenv envp variable = liftIO $ do - maybeEnvp <- case envp of - Nothing -> return nullPtr - Just jEnvp -> do - jEnvp' <- packZeroTerminatedUTF8CArray jEnvp - return jEnvp' - variable' <- textToCString variable - result <- g_environ_getenv maybeEnvp variable' - checkUnexpectedReturnNULL "g_environ_getenv" result - result' <- cstringToText result - mapZeroTerminatedCArray freeMem maybeEnvp - freeMem maybeEnvp - freeMem variable' - return result' - - --- function g_dpgettext2 --- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", 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_dpgettext2" g_dpgettext2 :: - CString -> -- domain : TBasicType TUTF8 - CString -> -- context : TBasicType TUTF8 - CString -> -- msgid : TBasicType TUTF8 - IO CString - - -dpgettext2 :: - (MonadIO m) => - Maybe (T.Text) -> -- domain - T.Text -> -- context - T.Text -> -- msgid - m T.Text -dpgettext2 domain context msgid = liftIO $ do - maybeDomain <- case domain of - Nothing -> return nullPtr - Just jDomain -> do - jDomain' <- textToCString jDomain - return jDomain' - context' <- textToCString context - msgid' <- textToCString msgid - result <- g_dpgettext2 maybeDomain context' msgid' - checkUnexpectedReturnNULL "g_dpgettext2" result - result' <- cstringToText result - freeMem maybeDomain - freeMem context' - freeMem msgid' - return result' - - --- function g_dpgettext --- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgctxtid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgidoffset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgctxtid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgidoffset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_dpgettext" g_dpgettext :: - CString -> -- domain : TBasicType TUTF8 - CString -> -- msgctxtid : TBasicType TUTF8 - Word64 -> -- msgidoffset : TBasicType TUInt64 - IO CString - - -dpgettext :: - (MonadIO m) => - Maybe (T.Text) -> -- domain - T.Text -> -- msgctxtid - Word64 -> -- msgidoffset - m T.Text -dpgettext domain msgctxtid msgidoffset = liftIO $ do - maybeDomain <- case domain of - Nothing -> return nullPtr - Just jDomain -> do - jDomain' <- textToCString jDomain - return jDomain' - msgctxtid' <- textToCString msgctxtid - result <- g_dpgettext maybeDomain msgctxtid' msgidoffset - checkUnexpectedReturnNULL "g_dpgettext" result - result' <- cstringToText result - freeMem maybeDomain - freeMem msgctxtid' - return result' - - --- function g_double_hash --- Args : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "v", 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_double_hash" g_double_hash :: - Ptr () -> -- v : TBasicType TVoid - IO Word32 - - -doubleHash :: - (MonadIO m) => - Ptr () -> -- v - m Word32 -doubleHash v = liftIO $ do - result <- g_double_hash v - return result - - --- function g_double_equal --- Args : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_double_equal" g_double_equal :: - Ptr () -> -- v1 : TBasicType TVoid - Ptr () -> -- v2 : TBasicType TVoid - IO CInt - - -doubleEqual :: - (MonadIO m) => - Ptr () -> -- v1 - Ptr () -> -- v2 - m Bool -doubleEqual v1 v2 = liftIO $ do - result <- g_double_equal v1 v2 - let result' = (/= 0) result - return result' - - --- function g_dngettext --- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid_plural", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid_plural", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_dngettext" g_dngettext :: - CString -> -- domain : TBasicType TUTF8 - CString -> -- msgid : TBasicType TUTF8 - CString -> -- msgid_plural : TBasicType TUTF8 - Word64 -> -- n : TBasicType TUInt64 - IO CString - - -dngettext :: - (MonadIO m) => - Maybe (T.Text) -> -- domain - T.Text -> -- msgid - T.Text -> -- msgid_plural - Word64 -> -- n - m T.Text -dngettext domain msgid msgid_plural n = liftIO $ do - maybeDomain <- case domain of - Nothing -> return nullPtr - Just jDomain -> do - jDomain' <- textToCString jDomain - return jDomain' - msgid' <- textToCString msgid - msgid_plural' <- textToCString msgid_plural - result <- g_dngettext maybeDomain msgid' msgid_plural' n - checkUnexpectedReturnNULL "g_dngettext" result - result' <- cstringToText result - freeMem maybeDomain - freeMem msgid' - freeMem msgid_plural' - return result' - - --- function g_direct_hash --- Args : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "v", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_direct_hash" g_direct_hash :: - Ptr () -> -- v : TBasicType TVoid - IO Word32 - - -directHash :: - (MonadIO m) => - Maybe (Ptr ()) -> -- v - m Word32 -directHash v = liftIO $ do - maybeV <- case v of - Nothing -> return nullPtr - Just jV -> do - return jV - result <- g_direct_hash maybeV - return result - - --- function g_direct_equal --- Args : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_direct_equal" g_direct_equal :: - Ptr () -> -- v1 : TBasicType TVoid - Ptr () -> -- v2 : TBasicType TVoid - IO CInt - - -directEqual :: - (MonadIO m) => - Maybe (Ptr ()) -> -- v1 - Maybe (Ptr ()) -> -- v2 - m Bool -directEqual v1 v2 = liftIO $ do - maybeV1 <- case v1 of - Nothing -> return nullPtr - Just jV1 -> do - return jV1 - maybeV2 <- case v2 of - Nothing -> return nullPtr - Just jV2 -> do - return jV2 - result <- g_direct_equal maybeV1 maybeV2 - let result' = (/= 0) result - return result' - - --- function g_dir_make_tmp --- Args : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TFileName --- throws : True --- Skip return : False - -foreign import ccall "g_dir_make_tmp" g_dir_make_tmp :: - CString -> -- tmpl : TBasicType TFileName - Ptr (Ptr GError) -> -- error - IO CString - - -dirMakeTmp :: - (MonadIO m) => - Maybe ([Char]) -> -- tmpl - m [Char] -dirMakeTmp tmpl = liftIO $ do - maybeTmpl <- case tmpl of - Nothing -> return nullPtr - Just jTmpl -> do - jTmpl' <- stringToCString jTmpl - return jTmpl' - onException (do - result <- propagateGError $ g_dir_make_tmp maybeTmpl - checkUnexpectedReturnNULL "g_dir_make_tmp" result - result' <- cstringToString result - freeMem result - freeMem maybeTmpl - return result' - ) (do - freeMem maybeTmpl - ) - - --- function g_dgettext --- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", 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_dgettext" g_dgettext :: - CString -> -- domain : TBasicType TUTF8 - CString -> -- msgid : TBasicType TUTF8 - IO CString - - -dgettext :: - (MonadIO m) => - Maybe (T.Text) -> -- domain - T.Text -> -- msgid - m T.Text -dgettext domain msgid = liftIO $ do - maybeDomain <- case domain of - Nothing -> return nullPtr - Just jDomain -> do - jDomain' <- textToCString jDomain - return jDomain' - msgid' <- textToCString msgid - result <- g_dgettext maybeDomain msgid' - checkUnexpectedReturnNULL "g_dgettext" result - result' <- cstringToText result - freeMem maybeDomain - freeMem msgid' - return result' - - --- function g_dcgettext --- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "category", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "category", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_dcgettext" g_dcgettext :: - CString -> -- domain : TBasicType TUTF8 - CString -> -- msgid : TBasicType TUTF8 - Int32 -> -- category : TBasicType TInt32 - IO CString - - -dcgettext :: - (MonadIO m) => - Maybe (T.Text) -> -- domain - T.Text -> -- msgid - Int32 -> -- category - m T.Text -dcgettext domain msgid category = liftIO $ do - maybeDomain <- case domain of - Nothing -> return nullPtr - Just jDomain -> do - jDomain' <- textToCString jDomain - return jDomain' - msgid' <- textToCString msgid - result <- g_dcgettext maybeDomain msgid' category - checkUnexpectedReturnNULL "g_dcgettext" result - result' <- cstringToText result - freeMem maybeDomain - freeMem msgid' - return result' - - --- function g_date_valid_year --- Args : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_date_valid_year" g_date_valid_year :: - Word16 -> -- year : TBasicType TUInt16 - IO CInt - - -dateValidYear :: - (MonadIO m) => - Word16 -> -- year - m Bool -dateValidYear year = liftIO $ do - result <- g_date_valid_year year - let result' = (/= 0) result - return result' - - --- function g_date_valid_weekday --- Args : [Arg {argName = "weekday", argType = TInterface "GLib" "DateWeekday", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "weekday", argType = TInterface "GLib" "DateWeekday", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_date_valid_weekday" g_date_valid_weekday :: - CUInt -> -- weekday : TInterface "GLib" "DateWeekday" - IO CInt - - -dateValidWeekday :: - (MonadIO m) => - DateWeekday -> -- weekday - m Bool -dateValidWeekday weekday = liftIO $ do - let weekday' = (fromIntegral . fromEnum) weekday - result <- g_date_valid_weekday weekday' - let result' = (/= 0) result - return result' - - --- function g_date_valid_month --- Args : [Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_date_valid_month" g_date_valid_month :: - CUInt -> -- month : TInterface "GLib" "DateMonth" - IO CInt - - -dateValidMonth :: - (MonadIO m) => - DateMonth -> -- month - m Bool -dateValidMonth month = liftIO $ do - let month' = (fromIntegral . fromEnum) month - result <- g_date_valid_month month' - let result' = (/= 0) result - return result' - - --- function g_date_valid_julian --- Args : [Arg {argName = "julian_date", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "julian_date", 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_date_valid_julian" g_date_valid_julian :: - Word32 -> -- julian_date : TBasicType TUInt32 - IO CInt - - -dateValidJulian :: - (MonadIO m) => - Word32 -> -- julian_date - m Bool -dateValidJulian julian_date = liftIO $ do - result <- g_date_valid_julian julian_date - let result' = (/= 0) result - return result' - - --- function g_date_valid_dmy --- Args : [Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_date_valid_dmy" g_date_valid_dmy :: - Word8 -> -- day : TBasicType TUInt8 - CUInt -> -- month : TInterface "GLib" "DateMonth" - Word16 -> -- year : TBasicType TUInt16 - IO CInt - - -dateValidDmy :: - (MonadIO m) => - Word8 -> -- day - DateMonth -> -- month - Word16 -> -- year - m Bool -dateValidDmy day month year = liftIO $ do - let month' = (fromIntegral . fromEnum) month - result <- g_date_valid_dmy day month' year - let result' = (/= 0) result - return result' - - --- function g_date_valid_day --- Args : [Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_date_valid_day" g_date_valid_day :: - Word8 -> -- day : TBasicType TUInt8 - IO CInt - - -dateValidDay :: - (MonadIO m) => - Word8 -> -- day - m Bool -dateValidDay day = liftIO $ do - result <- g_date_valid_day day - let result' = (/= 0) result - return result' - - --- function g_date_time_hash --- Args : [Arg {argName = "datetime", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "datetime", 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_date_time_hash" g_date_time_hash :: - Ptr () -> -- datetime : TBasicType TVoid - IO Word32 - - -dateTimeHash :: - (MonadIO m) => - Ptr () -> -- datetime - m Word32 -dateTimeHash datetime = liftIO $ do - result <- g_date_time_hash datetime - return result - - --- function g_date_time_equal --- Args : [Arg {argName = "dt1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dt2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "dt1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dt2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_equal" g_date_time_equal :: - Ptr () -> -- dt1 : TBasicType TVoid - Ptr () -> -- dt2 : TBasicType TVoid - IO CInt - - -dateTimeEqual :: - (MonadIO m) => - Ptr () -> -- dt1 - Ptr () -> -- dt2 - m Bool -dateTimeEqual dt1 dt2 = liftIO $ do - result <- g_date_time_equal dt1 dt2 - let result' = (/= 0) result - return result' - - --- function g_date_time_compare --- Args : [Arg {argName = "dt1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dt2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "dt1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dt2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_compare" g_date_time_compare :: - Ptr () -> -- dt1 : TBasicType TVoid - Ptr () -> -- dt2 : TBasicType TVoid - IO Int32 - - -dateTimeCompare :: - (MonadIO m) => - Ptr () -> -- dt1 - Ptr () -> -- dt2 - m Int32 -dateTimeCompare dt1 dt2 = liftIO $ do - result <- g_date_time_compare dt1 dt2 - return result - - --- function g_date_strftime --- Args : [Arg {argName = "s", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "slen", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "date", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "s", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "slen", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "date", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt64 --- throws : False --- Skip return : False - -foreign import ccall "g_date_strftime" g_date_strftime :: - CString -> -- s : TBasicType TUTF8 - Word64 -> -- slen : TBasicType TUInt64 - CString -> -- format : TBasicType TUTF8 - Ptr Date -> -- date : TInterface "GLib" "Date" - IO Word64 - - -dateStrftime :: - (MonadIO m) => - T.Text -> -- s - Word64 -> -- slen - T.Text -> -- format - Date -> -- date - m Word64 -dateStrftime s slen format date = liftIO $ do - s' <- textToCString s - format' <- textToCString format - let date' = unsafeManagedPtrGetPtr date - result <- g_date_strftime s' slen format' date' - touchManagedPtr date - freeMem s' - freeMem format' - return result - - --- function g_date_is_leap_year --- Args : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_date_is_leap_year" g_date_is_leap_year :: - Word16 -> -- year : TBasicType TUInt16 - IO CInt - - -dateIsLeapYear :: - (MonadIO m) => - Word16 -> -- year - m Bool -dateIsLeapYear year = liftIO $ do - result <- g_date_is_leap_year year - let result' = (/= 0) result - return result' - - --- function g_date_get_sunday_weeks_in_year --- Args : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt8 --- throws : False --- Skip return : False - -foreign import ccall "g_date_get_sunday_weeks_in_year" g_date_get_sunday_weeks_in_year :: - Word16 -> -- year : TBasicType TUInt16 - IO Word8 - - -dateGetSundayWeeksInYear :: - (MonadIO m) => - Word16 -> -- year - m Word8 -dateGetSundayWeeksInYear year = liftIO $ do - result <- g_date_get_sunday_weeks_in_year year - return result - - --- function g_date_get_monday_weeks_in_year --- Args : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt8 --- throws : False --- Skip return : False - -foreign import ccall "g_date_get_monday_weeks_in_year" g_date_get_monday_weeks_in_year :: - Word16 -> -- year : TBasicType TUInt16 - IO Word8 - - -dateGetMondayWeeksInYear :: - (MonadIO m) => - Word16 -> -- year - m Word8 -dateGetMondayWeeksInYear year = liftIO $ do - result <- g_date_get_monday_weeks_in_year year - return result - - --- function g_date_get_days_in_month --- Args : [Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt8 --- throws : False --- Skip return : False - -foreign import ccall "g_date_get_days_in_month" g_date_get_days_in_month :: - CUInt -> -- month : TInterface "GLib" "DateMonth" - Word16 -> -- year : TBasicType TUInt16 - IO Word8 - - -dateGetDaysInMonth :: - (MonadIO m) => - DateMonth -> -- month - Word16 -> -- year - m Word8 -dateGetDaysInMonth month year = liftIO $ do - let month' = (fromIntegral . fromEnum) month - result <- g_date_get_days_in_month month' year - return result - - --- function g_dataset_id_set_data_full --- Args : [Arg {argName = "dataset_location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_id", argType = TBasicType TUInt32, 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},Arg {argName = "destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "dataset_location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_id", argType = TBasicType TUInt32, 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},Arg {argName = "destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_dataset_id_set_data_full" g_dataset_id_set_data_full :: - Ptr () -> -- dataset_location : TBasicType TVoid - Word32 -> -- key_id : TBasicType TUInt32 - Ptr () -> -- data : TBasicType TVoid - FunPtr DestroyNotifyC -> -- destroy_func : TInterface "GLib" "DestroyNotify" - IO () - - -datasetIdSetDataFull :: - (MonadIO m) => - Ptr () -> -- dataset_location - Word32 -> -- key_id - Ptr () -> -- data - DestroyNotify -> -- destroy_func - m () -datasetIdSetDataFull dataset_location key_id data_ destroy_func = liftIO $ do - ptrdestroy_func <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC)) - destroy_func' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrdestroy_func) destroy_func) - poke ptrdestroy_func destroy_func' - g_dataset_id_set_data_full dataset_location key_id data_ destroy_func' - return () - - --- function g_dataset_destroy --- Args : [Arg {argName = "dataset_location", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "dataset_location", 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_dataset_destroy" g_dataset_destroy :: - Ptr () -> -- dataset_location : TBasicType TVoid - IO () - - -datasetDestroy :: - (MonadIO m) => - Ptr () -> -- dataset_location - m () -datasetDestroy dataset_location = liftIO $ do - g_dataset_destroy dataset_location - return () - - --- function g_datalist_unset_flags --- Args : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", 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_datalist_unset_flags" g_datalist_unset_flags :: - Ptr Data -> -- datalist : TInterface "GLib" "Data" - Word32 -> -- flags : TBasicType TUInt32 - IO () - - -datalistUnsetFlags :: - (MonadIO m) => - Data -> -- datalist - Word32 -> -- flags - m () -datalistUnsetFlags datalist flags = liftIO $ do - let datalist' = unsafeManagedPtrGetPtr datalist - g_datalist_unset_flags datalist' flags - touchManagedPtr datalist - return () - - --- function g_datalist_set_flags --- Args : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", 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_datalist_set_flags" g_datalist_set_flags :: - Ptr Data -> -- datalist : TInterface "GLib" "Data" - Word32 -> -- flags : TBasicType TUInt32 - IO () - - -datalistSetFlags :: - (MonadIO m) => - Data -> -- datalist - Word32 -> -- flags - m () -datalistSetFlags datalist flags = liftIO $ do - let datalist' = unsafeManagedPtrGetPtr datalist - g_datalist_set_flags datalist' flags - touchManagedPtr datalist - return () - - --- function g_datalist_init --- Args : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_datalist_init" g_datalist_init :: - Ptr Data -> -- datalist : TInterface "GLib" "Data" - IO () - - -datalistInit :: - (MonadIO m) => - Data -> -- datalist - m () -datalistInit datalist = liftIO $ do - let datalist' = unsafeManagedPtrGetPtr datalist - g_datalist_init datalist' - touchManagedPtr datalist - return () - - --- function g_datalist_id_set_data_full --- Args : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_datalist_id_set_data_full" g_datalist_id_set_data_full :: - Ptr Data -> -- datalist : TInterface "GLib" "Data" - Word32 -> -- key_id : TBasicType TUInt32 - Ptr () -> -- data : TBasicType TVoid - FunPtr DestroyNotifyC -> -- destroy_func : TInterface "GLib" "DestroyNotify" - IO () - - -datalistIdSetDataFull :: - (MonadIO m) => - Data -> -- datalist - Word32 -> -- key_id - Maybe (Ptr ()) -> -- data - DestroyNotify -> -- destroy_func - m () -datalistIdSetDataFull datalist key_id data_ destroy_func = liftIO $ do - let datalist' = unsafeManagedPtrGetPtr datalist - maybeData_ <- case data_ of - Nothing -> return nullPtr - Just jData_ -> do - return jData_ - ptrdestroy_func <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC)) - destroy_func' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrdestroy_func) destroy_func) - poke ptrdestroy_func destroy_func' - g_datalist_id_set_data_full datalist' key_id maybeData_ destroy_func' - touchManagedPtr datalist - return () - - --- function g_datalist_id_replace_data --- Args : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, 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},Arg {argName = "old_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, 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},Arg {argName = "old_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_datalist_id_replace_data" g_datalist_id_replace_data :: - Ptr Data -> -- datalist : TInterface "GLib" "Data" - Word32 -> -- key_id : TBasicType TUInt32 - Ptr () -> -- oldval : TBasicType TVoid - Ptr () -> -- newval : TBasicType TVoid - FunPtr DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - FunPtr DestroyNotifyC -> -- old_destroy : TInterface "GLib" "DestroyNotify" - IO CInt - - -datalistIdReplaceData :: - (MonadIO m) => - Data -> -- datalist - Word32 -> -- key_id - Maybe (Ptr ()) -> -- oldval - Maybe (Ptr ()) -> -- newval - Maybe (DestroyNotify) -> -- destroy - Maybe (DestroyNotify) -> -- old_destroy - m Bool -datalistIdReplaceData datalist key_id oldval newval destroy old_destroy = liftIO $ do - let datalist' = unsafeManagedPtrGetPtr datalist - maybeOldval <- case oldval of - Nothing -> return nullPtr - Just jOldval -> do - return jOldval - maybeNewval <- case newval of - Nothing -> return nullPtr - Just jNewval -> do - return jNewval - ptrdestroy <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC)) - maybeDestroy <- case destroy of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jDestroy -> do - jDestroy' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrdestroy) jDestroy) - poke ptrdestroy jDestroy' - return jDestroy' - ptrold_destroy <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC)) - maybeOld_destroy <- case old_destroy of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jOld_destroy -> do - jOld_destroy' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrold_destroy) jOld_destroy) - poke ptrold_destroy jOld_destroy' - return jOld_destroy' - result <- g_datalist_id_replace_data datalist' key_id maybeOldval maybeNewval maybeDestroy maybeOld_destroy - let result' = (/= 0) result - touchManagedPtr datalist - return result' - - --- function g_datalist_get_flags --- Args : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_datalist_get_flags" g_datalist_get_flags :: - Ptr Data -> -- datalist : TInterface "GLib" "Data" - IO Word32 - - -datalistGetFlags :: - (MonadIO m) => - Data -> -- datalist - m Word32 -datalistGetFlags datalist = liftIO $ do - let datalist' = unsafeManagedPtrGetPtr datalist - result <- g_datalist_get_flags datalist' - touchManagedPtr datalist - return result - - --- function g_datalist_clear --- Args : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_datalist_clear" g_datalist_clear :: - Ptr Data -> -- datalist : TInterface "GLib" "Data" - IO () - - -datalistClear :: - (MonadIO m) => - Data -> -- datalist - m () -datalistClear datalist = liftIO $ do - let datalist' = unsafeManagedPtrGetPtr datalist - g_datalist_clear datalist' - touchManagedPtr datalist - return () - - --- function g_convert_with_iconv --- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "converter", argType = TInterface "GLib" "IConv", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, 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},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "converter", argType = TInterface "GLib" "IConv", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : True --- Skip return : False - -foreign import ccall "g_convert_with_iconv" g_convert_with_iconv :: - CString -> -- str : TBasicType TUTF8 - Int64 -> -- len : TBasicType TInt64 - Ptr IConv -> -- converter : TInterface "GLib" "IConv" - Word64 -> -- bytes_read : TBasicType TUInt64 - Word64 -> -- bytes_written : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO CString - - -convertWithIconv :: - (MonadIO m) => - T.Text -> -- str - Int64 -> -- len - IConv -> -- converter - Word64 -> -- bytes_read - Word64 -> -- bytes_written - m T.Text -convertWithIconv str len converter bytes_read bytes_written = liftIO $ do - str' <- textToCString str - let converter' = unsafeManagedPtrGetPtr converter - onException (do - result <- propagateGError $ g_convert_with_iconv str' len converter' bytes_read bytes_written - checkUnexpectedReturnNULL "g_convert_with_iconv" result - result' <- cstringToText result - freeMem result - touchManagedPtr converter - freeMem str' - return result' - ) (do - freeMem str' - ) - - --- function g_convert_with_fallback --- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "to_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "from_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fallback", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, 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},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "to_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "from_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fallback", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : True --- Skip return : False - -foreign import ccall "g_convert_with_fallback" g_convert_with_fallback :: - CString -> -- str : TBasicType TUTF8 - Int64 -> -- len : TBasicType TInt64 - CString -> -- to_codeset : TBasicType TUTF8 - CString -> -- from_codeset : TBasicType TUTF8 - CString -> -- fallback : TBasicType TUTF8 - Word64 -> -- bytes_read : TBasicType TUInt64 - Word64 -> -- bytes_written : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO CString - - -convertWithFallback :: - (MonadIO m) => - T.Text -> -- str - Int64 -> -- len - T.Text -> -- to_codeset - T.Text -> -- from_codeset - T.Text -> -- fallback - Word64 -> -- bytes_read - Word64 -> -- bytes_written - m T.Text -convertWithFallback str len to_codeset from_codeset fallback bytes_read bytes_written = liftIO $ do - str' <- textToCString str - to_codeset' <- textToCString to_codeset - from_codeset' <- textToCString from_codeset - fallback' <- textToCString fallback - onException (do - result <- propagateGError $ g_convert_with_fallback str' len to_codeset' from_codeset' fallback' bytes_read bytes_written - checkUnexpectedReturnNULL "g_convert_with_fallback" result - result' <- cstringToText result - freeMem result - freeMem str' - freeMem to_codeset' - freeMem from_codeset' - freeMem fallback' - return result' - ) (do - freeMem str' - freeMem to_codeset' - freeMem from_codeset' - freeMem fallback' - ) - - --- function g_convert_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_convert_error_quark" g_convert_error_quark :: - IO Word32 - - -convertErrorQuark :: - (MonadIO m) => - m Word32 -convertErrorQuark = liftIO $ do - result <- g_convert_error_quark - return result - - --- function g_convert --- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "to_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "from_codeset", argType = TBasicType TUTF8, 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 : [] --- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "to_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "from_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : True --- Skip return : False - -foreign import ccall "g_convert" g_convert :: - CString -> -- str : TBasicType TUTF8 - Int64 -> -- len : TBasicType TInt64 - CString -> -- to_codeset : TBasicType TUTF8 - CString -> -- from_codeset : TBasicType TUTF8 - Ptr Word64 -> -- bytes_read : TBasicType TUInt64 - Ptr Word64 -> -- bytes_written : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO CString - - -convert :: - (MonadIO m) => - T.Text -> -- str - Int64 -> -- len - T.Text -> -- to_codeset - T.Text -> -- from_codeset - m (T.Text,Word64,Word64) -convert str len to_codeset from_codeset = liftIO $ do - str' <- textToCString str - to_codeset' <- textToCString to_codeset - from_codeset' <- textToCString from_codeset - bytes_read <- allocMem :: IO (Ptr Word64) - bytes_written <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_convert str' len to_codeset' from_codeset' bytes_read bytes_written - checkUnexpectedReturnNULL "g_convert" result - result' <- cstringToText result - freeMem result - bytes_read' <- peek bytes_read - bytes_written' <- peek bytes_written - freeMem str' - freeMem to_codeset' - freeMem from_codeset' - freeMem bytes_read - freeMem bytes_written - return (result', bytes_read', bytes_written') - ) (do - freeMem str' - freeMem to_codeset' - freeMem from_codeset' - freeMem bytes_read - freeMem bytes_written - ) - - --- function g_compute_hmac_for_string --- Args : [Arg {argName = "digest_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_len", argType = TBasicType TUInt64, 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 = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "key_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "digest_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TCArray False (-1) 2 (TBasicType TUInt8), 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 = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_compute_hmac_for_string" g_compute_hmac_for_string :: - CUInt -> -- digest_type : TInterface "GLib" "ChecksumType" - Ptr Word8 -> -- key : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- key_len : TBasicType TUInt64 - CString -> -- str : TBasicType TUTF8 - Int64 -> -- length : TBasicType TInt64 - IO CString - - -computeHmacForString :: - (MonadIO m) => - ChecksumType -> -- digest_type - ByteString -> -- key - T.Text -> -- str - Int64 -> -- length - m T.Text -computeHmacForString digest_type key str length_ = liftIO $ do - let key_len = fromIntegral $ B.length key - let digest_type' = (fromIntegral . fromEnum) digest_type - key' <- packByteString key - str' <- textToCString str - result <- g_compute_hmac_for_string digest_type' key' key_len str' length_ - checkUnexpectedReturnNULL "g_compute_hmac_for_string" result - result' <- cstringToText result - freeMem result - freeMem key' - freeMem str' - return result' - - --- function g_compute_hmac_for_data --- Args : [Arg {argName = "digest_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_len", argType = TBasicType TUInt64, 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 = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "key_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "digest_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TCArray False (-1) 2 (TBasicType TUInt8), 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 = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_compute_hmac_for_data" g_compute_hmac_for_data :: - CUInt -> -- digest_type : TInterface "GLib" "ChecksumType" - Ptr Word8 -> -- key : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- key_len : TBasicType TUInt64 - Word8 -> -- data : TBasicType TUInt8 - Word64 -> -- length : TBasicType TUInt64 - IO CString - - -computeHmacForData :: - (MonadIO m) => - ChecksumType -> -- digest_type - ByteString -> -- key - Word8 -> -- data - Word64 -> -- length - m T.Text -computeHmacForData digest_type key data_ length_ = liftIO $ do - let key_len = fromIntegral $ B.length key - let digest_type' = (fromIntegral . fromEnum) digest_type - key' <- packByteString key - result <- g_compute_hmac_for_data digest_type' key' key_len data_ length_ - checkUnexpectedReturnNULL "g_compute_hmac_for_data" result - result' <- cstringToText result - freeMem result - freeMem key' - return result' - - --- function g_compute_checksum_for_string --- Args : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", 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 = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", 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 = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_compute_checksum_for_string" g_compute_checksum_for_string :: - CUInt -> -- checksum_type : TInterface "GLib" "ChecksumType" - CString -> -- str : TBasicType TUTF8 - Int64 -> -- length : TBasicType TInt64 - IO CString - - -computeChecksumForString :: - (MonadIO m) => - ChecksumType -> -- checksum_type - T.Text -> -- str - Int64 -> -- length - m T.Text -computeChecksumForString checksum_type str length_ = liftIO $ do - let checksum_type' = (fromIntegral . fromEnum) checksum_type - str' <- textToCString str - result <- g_compute_checksum_for_string checksum_type' str' length_ - checkUnexpectedReturnNULL "g_compute_checksum_for_string" result - result' <- cstringToText result - freeMem result - freeMem str' - return result' - - --- function g_compute_checksum_for_data --- Args : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", 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},Arg {argName = "length", argType = TBasicType TUInt64, 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 = "checksum_type", argType = TInterface "GLib" "ChecksumType", 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}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_compute_checksum_for_data" g_compute_checksum_for_data :: - CUInt -> -- checksum_type : TInterface "GLib" "ChecksumType" - Ptr Word8 -> -- data : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- length : TBasicType TUInt64 - IO CString - - -computeChecksumForData :: - (MonadIO m) => - ChecksumType -> -- checksum_type - ByteString -> -- data - m T.Text -computeChecksumForData checksum_type data_ = liftIO $ do - let length_ = fromIntegral $ B.length data_ - let checksum_type' = (fromIntegral . fromEnum) checksum_type - data_' <- packByteString data_ - result <- g_compute_checksum_for_data checksum_type' data_' length_ - checkUnexpectedReturnNULL "g_compute_checksum_for_data" result - result' <- cstringToText result - freeMem result - freeMem data_' - return result' - - --- function g_compute_checksum_for_bytes --- Args : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_compute_checksum_for_bytes" g_compute_checksum_for_bytes :: - CUInt -> -- checksum_type : TInterface "GLib" "ChecksumType" - Ptr Bytes -> -- data : TInterface "GLib" "Bytes" - IO CString - - -computeChecksumForBytes :: - (MonadIO m) => - ChecksumType -> -- checksum_type - Bytes -> -- data - m T.Text -computeChecksumForBytes checksum_type data_ = liftIO $ do - let checksum_type' = (fromIntegral . fromEnum) checksum_type - let data_' = unsafeManagedPtrGetPtr data_ - result <- g_compute_checksum_for_bytes checksum_type' data_' - checkUnexpectedReturnNULL "g_compute_checksum_for_bytes" result - result' <- cstringToText result - freeMem result - touchManagedPtr data_ - return result' - - --- function g_close --- Args : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [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 - -foreign import ccall "g_close" g_close :: - Int32 -> -- fd : TBasicType TInt32 - Ptr (Ptr GError) -> -- error - IO CInt - - -close :: - (MonadIO m) => - Int32 -> -- fd - m () -close fd = liftIO $ do - onException (do - _ <- propagateGError $ g_close fd - return () - ) (do - return () - ) - - --- function g_clear_error --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TVoid --- throws : True --- Skip return : False - -foreign import ccall "g_clear_error" g_clear_error :: - Ptr (Ptr GError) -> -- error - IO () - - -clearError :: - (MonadIO m) => - m () -clearError = liftIO $ do - onException (do - propagateGError $ g_clear_error - return () - ) (do - return () - ) - - --- function g_child_watch_source_new --- Args : [Arg {argName = "pid", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "pid", argType = TBasicType TInt32, 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_child_watch_source_new" g_child_watch_source_new :: - Int32 -> -- pid : TBasicType TInt32 - IO (Ptr Source) - - -childWatchSourceNew :: - (MonadIO m) => - Int32 -> -- pid - m Source -childWatchSourceNew pid = liftIO $ do - result <- g_child_watch_source_new pid - checkUnexpectedReturnNULL "g_child_watch_source_new" result - result' <- (wrapBoxed Source) result - return result' - - --- function g_child_watch_add_full --- Args : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pid", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "ChildWatchFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "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}] --- Lengths : [] --- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pid", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "ChildWatchFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_child_watch_add_full" g_child_watch_add_full :: - Int32 -> -- priority : TBasicType TInt32 - Int32 -> -- pid : TBasicType TInt32 - FunPtr ChildWatchFuncC -> -- function : TInterface "GLib" "ChildWatchFunc" - Ptr () -> -- data : TBasicType TVoid - FunPtr DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO Word32 - - -childWatchAdd :: - (MonadIO m) => - Int32 -> -- priority - Int32 -> -- pid - ChildWatchFunc -> -- function - m Word32 -childWatchAdd priority pid function = liftIO $ do - function' <- mkChildWatchFunc (childWatchFuncWrapper Nothing function) - let data_ = castFunPtrToPtr function' - let notify = safeFreeFunPtrPtr - result <- g_child_watch_add_full priority pid function' data_ notify - return result - - --- function g_checksum_type_get_length --- Args : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt64 --- throws : False --- Skip return : False - -foreign import ccall "g_checksum_type_get_length" g_checksum_type_get_length :: - CUInt -> -- checksum_type : TInterface "GLib" "ChecksumType" - IO Int64 - - -checksumTypeGetLength :: - (MonadIO m) => - ChecksumType -> -- checksum_type - m Int64 -checksumTypeGetLength checksum_type = liftIO $ do - let checksum_type' = (fromIntegral . fromEnum) checksum_type - result <- g_checksum_type_get_length checksum_type' - return result - - --- function glib_check_version --- Args : [Arg {argName = "required_major", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_minor", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_micro", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "required_major", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_minor", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "required_micro", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "glib_check_version" glib_check_version :: - Word32 -> -- required_major : TBasicType TUInt32 - Word32 -> -- required_minor : TBasicType TUInt32 - Word32 -> -- required_micro : TBasicType TUInt32 - IO CString - - -checkVersion :: - (MonadIO m) => - Word32 -> -- required_major - Word32 -> -- required_minor - Word32 -> -- required_micro - m T.Text -checkVersion required_major required_minor required_micro = liftIO $ do - result <- glib_check_version required_major required_minor required_micro - checkUnexpectedReturnNULL "glib_check_version" result - result' <- cstringToText result - return result' - - --- function g_chdir --- 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 : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_chdir" g_chdir :: - CString -> -- path : TBasicType TUTF8 - IO Int32 - - -chdir :: - (MonadIO m) => - T.Text -> -- path - m Int32 -chdir path = liftIO $ do - path' <- textToCString path - result <- g_chdir path' - freeMem path' - return result - - --- function g_byte_array_unref --- Args : [Arg {argName = "array", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "array", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_byte_array_unref" g_byte_array_unref :: - Ptr GByteArray -> -- array : TByteArray - IO () - - -byteArrayUnref :: - (MonadIO m) => - ByteString -> -- array - m () -byteArrayUnref array = liftIO $ do - array' <- packGByteArray array - g_byte_array_unref array' - unrefGByteArray array' - return () - - --- function g_byte_array_new_take --- 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 TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "len", argType = TBasicType TUInt64, 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}] --- returnType : TByteArray --- throws : False --- Skip return : False - -foreign import ccall "g_byte_array_new_take" g_byte_array_new_take :: - Ptr Word8 -> -- data : TCArray False (-1) 1 (TBasicType TUInt8) - Word64 -> -- len : TBasicType TUInt64 - IO (Ptr GByteArray) - - -byteArrayNewTake :: - (MonadIO m) => - ByteString -> -- data - m ByteString -byteArrayNewTake data_ = liftIO $ do - let len = fromIntegral $ B.length data_ - data_' <- packByteString data_ - result <- g_byte_array_new_take data_' len - checkUnexpectedReturnNULL "g_byte_array_new_take" result - result' <- unpackGByteArray result - unrefGByteArray result - return result' - - --- function g_byte_array_new --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TByteArray --- throws : False --- Skip return : False - -foreign import ccall "g_byte_array_new" g_byte_array_new :: - IO (Ptr GByteArray) - - -byteArrayNew :: - (MonadIO m) => - m ByteString -byteArrayNew = liftIO $ do - result <- g_byte_array_new - checkUnexpectedReturnNULL "g_byte_array_new" result - result' <- unpackGByteArray result - unrefGByteArray result - return result' - - --- function g_byte_array_free_to_bytes --- Args : [Arg {argName = "array", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "array", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- returnType : TInterface "GLib" "Bytes" --- throws : False --- Skip return : False - -foreign import ccall "g_byte_array_free_to_bytes" g_byte_array_free_to_bytes :: - Ptr GByteArray -> -- array : TByteArray - IO (Ptr Bytes) - - -byteArrayFreeToBytes :: - (MonadIO m) => - ByteString -> -- array - m Bytes -byteArrayFreeToBytes array = liftIO $ do - array' <- packGByteArray array - result <- g_byte_array_free_to_bytes array' - checkUnexpectedReturnNULL "g_byte_array_free_to_bytes" result - result' <- (wrapBoxed Bytes) result - return result' - - --- function g_byte_array_free --- Args : [Arg {argName = "array", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "free_segment", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "array", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "free_segment", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt8 --- throws : False --- Skip return : False - -foreign import ccall "g_byte_array_free" g_byte_array_free :: - Ptr GByteArray -> -- array : TByteArray - CInt -> -- free_segment : TBasicType TBoolean - IO Word8 - - -byteArrayFree :: - (MonadIO m) => - ByteString -> -- array - Bool -> -- free_segment - m Word8 -byteArrayFree array free_segment = liftIO $ do - array' <- packGByteArray array - let free_segment' = (fromIntegral . fromEnum) free_segment - result <- g_byte_array_free array' free_segment' - unrefGByteArray array' - return result - - --- function g_build_pathv --- Args : [Arg {argName = "separator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "args", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "separator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "args", argType = TCArray True (-1) (-1) (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_build_pathv" g_build_pathv :: - CString -> -- separator : TBasicType TUTF8 - Ptr CString -> -- args : TCArray True (-1) (-1) (TBasicType TUTF8) - IO CString - - -buildPathv :: - (MonadIO m) => - T.Text -> -- separator - [T.Text] -> -- args - m T.Text -buildPathv separator args = liftIO $ do - separator' <- textToCString separator - args' <- packZeroTerminatedUTF8CArray args - result <- g_build_pathv separator' args' - checkUnexpectedReturnNULL "g_build_pathv" result - result' <- cstringToText result - freeMem result - freeMem separator' - mapZeroTerminatedCArray freeMem args' - freeMem args' - return result' - - --- function g_build_filenamev --- Args : [Arg {argName = "args", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "args", argType = TCArray True (-1) (-1) (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_build_filenamev" g_build_filenamev :: - Ptr CString -> -- args : TCArray True (-1) (-1) (TBasicType TUTF8) - IO CString - - -buildFilenamev :: - (MonadIO m) => - [T.Text] -> -- args - m T.Text -buildFilenamev args = liftIO $ do - args' <- packZeroTerminatedUTF8CArray args - result <- g_build_filenamev args' - checkUnexpectedReturnNULL "g_build_filenamev" result - result' <- cstringToText result - freeMem result - mapZeroTerminatedCArray freeMem args' - freeMem args' - return result' - - --- function g_bookmark_file_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_bookmark_file_error_quark" g_bookmark_file_error_quark :: - IO Word32 - - -bookmarkFileErrorQuark :: - (MonadIO m) => - m Word32 -bookmarkFileErrorQuark = liftIO $ do - result <- g_bookmark_file_error_quark - return result - - --- function g_bit_unlock --- Args : [Arg {argName = "address", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "address", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", 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_bit_unlock" g_bit_unlock :: - Int32 -> -- address : TBasicType TInt32 - Int32 -> -- lock_bit : TBasicType TInt32 - IO () - - -bitUnlock :: - (MonadIO m) => - Int32 -> -- address - Int32 -> -- lock_bit - m () -bitUnlock address lock_bit = liftIO $ do - g_bit_unlock address lock_bit - return () - - --- function g_bit_trylock --- Args : [Arg {argName = "address", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "address", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_bit_trylock" g_bit_trylock :: - Int32 -> -- address : TBasicType TInt32 - Int32 -> -- lock_bit : TBasicType TInt32 - IO CInt - - -bitTrylock :: - (MonadIO m) => - Int32 -> -- address - Int32 -> -- lock_bit - m Bool -bitTrylock address lock_bit = liftIO $ do - result <- g_bit_trylock address lock_bit - let result' = (/= 0) result - return result' - - --- function g_bit_storage --- Args : [Arg {argName = "number", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "number", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_bit_storage" g_bit_storage :: - Word64 -> -- number : TBasicType TUInt64 - IO Word32 - - -bitStorage :: - (MonadIO m) => - Word64 -> -- number - m Word32 -bitStorage number = liftIO $ do - result <- g_bit_storage number - return result - - --- function g_bit_nth_msf --- Args : [Arg {argName = "mask", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nth_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "mask", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nth_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_bit_nth_msf" g_bit_nth_msf :: - Word64 -> -- mask : TBasicType TUInt64 - Int32 -> -- nth_bit : TBasicType TInt32 - IO Int32 - - -bitNthMsf :: - (MonadIO m) => - Word64 -> -- mask - Int32 -> -- nth_bit - m Int32 -bitNthMsf mask nth_bit = liftIO $ do - result <- g_bit_nth_msf mask nth_bit - return result - - --- function g_bit_nth_lsf --- Args : [Arg {argName = "mask", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nth_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "mask", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nth_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_bit_nth_lsf" g_bit_nth_lsf :: - Word64 -> -- mask : TBasicType TUInt64 - Int32 -> -- nth_bit : TBasicType TInt32 - IO Int32 - - -bitNthLsf :: - (MonadIO m) => - Word64 -> -- mask - Int32 -> -- nth_bit - m Int32 -bitNthLsf mask nth_bit = liftIO $ do - result <- g_bit_nth_lsf mask nth_bit - return result - - --- function g_bit_lock --- Args : [Arg {argName = "address", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "address", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lock_bit", 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_bit_lock" g_bit_lock :: - Int32 -> -- address : TBasicType TInt32 - Int32 -> -- lock_bit : TBasicType TInt32 - IO () - - -bitLock :: - (MonadIO m) => - Int32 -> -- address - Int32 -> -- lock_bit - m () -bitLock address lock_bit = liftIO $ do - g_bit_lock address lock_bit - return () - - --- function g_basename --- Args : [Arg {argName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "file_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_basename" g_basename :: - CString -> -- file_name : TBasicType TUTF8 - IO CString - -{-# DEPRECATED basename ["(Since version 2.2)","Use g_path_get_basename() instead, but notice"," that g_path_get_basename() allocates new memory for the"," returned string, unlike this function which returns a pointer"," into the argument."]#-} -basename :: - (MonadIO m) => - T.Text -> -- file_name - m T.Text -basename file_name = liftIO $ do - file_name' <- textToCString file_name - result <- g_basename file_name' - checkUnexpectedReturnNULL "g_basename" result - result' <- cstringToText result - freeMem file_name' - return result' - - --- function g_base64_encode --- Args : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), 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}] --- Lengths : [Arg {argName = "len", argType = TBasicType TUInt64, 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 = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_base64_encode" g_base64_encode :: - Ptr Word8 -> -- data : TCArray False (-1) 1 (TBasicType TUInt8) - Word64 -> -- len : TBasicType TUInt64 - IO CString - - -base64Encode :: - (MonadIO m) => - ByteString -> -- data - m T.Text -base64Encode data_ = liftIO $ do - let len = fromIntegral $ B.length data_ - data_' <- packByteString data_ - result <- g_base64_encode data_' len - checkUnexpectedReturnNULL "g_base64_encode" result - result' <- cstringToText result - freeMem result - freeMem data_' - return result' - - --- function g_base64_decode_inplace --- Args : [Arg {argName = "text", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "out_len", argType = TBasicType TUInt64, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "out_len", argType = TBasicType TUInt64, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "text", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- returnType : TBasicType TUInt8 --- throws : False --- Skip return : False - -foreign import ccall "g_base64_decode_inplace" g_base64_decode_inplace :: - Ptr (Ptr Word8) -> -- text : TCArray False (-1) 1 (TBasicType TUInt8) - Ptr Word64 -> -- out_len : TBasicType TUInt64 - IO Word8 - - -base64DecodeInplace :: - (MonadIO m) => - ByteString -> -- text - m (Word8,ByteString) -base64DecodeInplace text = liftIO $ do - let out_len = fromIntegral $ B.length text - text' <- packByteString text - text'' <- allocMem :: IO (Ptr (Ptr Word8)) - poke text'' text' - out_len' <- allocMem :: IO (Ptr Word64) - poke out_len' out_len - result <- g_base64_decode_inplace text'' out_len' - out_len'' <- peek out_len' - text''' <- peek text'' - text'''' <- (unpackByteStringWithLength out_len'') text''' - freeMem text''' - freeMem text'' - freeMem out_len' - return (result, text'''') - - --- function g_base64_decode --- Args : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "out_len", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "out_len", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TCArray False (-1) 1 (TBasicType TUInt8) --- throws : False --- Skip return : False - -foreign import ccall "g_base64_decode" g_base64_decode :: - CString -> -- text : TBasicType TUTF8 - Ptr Word64 -> -- out_len : TBasicType TUInt64 - IO (Ptr Word8) - - -base64Decode :: - (MonadIO m) => - T.Text -> -- text - m ByteString -base64Decode text = liftIO $ do - text' <- textToCString text - out_len <- allocMem :: IO (Ptr Word64) - result <- g_base64_decode text' out_len - out_len' <- peek out_len - checkUnexpectedReturnNULL "g_base64_decode" result - result' <- (unpackByteStringWithLength out_len') result - freeMem result - freeMem text' - freeMem out_len - return result' - - --- function g_atomic_pointer_xor --- Args : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt64 --- throws : False --- Skip return : False - -foreign import ccall "g_atomic_pointer_xor" g_atomic_pointer_xor :: - Ptr () -> -- atomic : TBasicType TVoid - Word64 -> -- val : TBasicType TUInt64 - IO Word64 - - -atomicPointerXor :: - (MonadIO m) => - Ptr () -> -- atomic - Word64 -> -- val - m Word64 -atomicPointerXor atomic val = liftIO $ do - result <- g_atomic_pointer_xor atomic val - return result - - --- function g_atomic_pointer_set --- Args : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", 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_atomic_pointer_set" g_atomic_pointer_set :: - Ptr () -> -- atomic : TBasicType TVoid - Ptr () -> -- newval : TBasicType TVoid - IO () - - -atomicPointerSet :: - (MonadIO m) => - Ptr () -> -- atomic - Ptr () -> -- newval - m () -atomicPointerSet atomic newval = liftIO $ do - g_atomic_pointer_set atomic newval - return () - - --- function g_atomic_pointer_or --- Args : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt64 --- throws : False --- Skip return : False - -foreign import ccall "g_atomic_pointer_or" g_atomic_pointer_or :: - Ptr () -> -- atomic : TBasicType TVoid - Word64 -> -- val : TBasicType TUInt64 - IO Word64 - - -atomicPointerOr :: - (MonadIO m) => - Ptr () -> -- atomic - Word64 -> -- val - m Word64 -atomicPointerOr atomic val = liftIO $ do - result <- g_atomic_pointer_or atomic val - return result - - --- function g_atomic_pointer_compare_and_exchange --- Args : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_atomic_pointer_compare_and_exchange" g_atomic_pointer_compare_and_exchange :: - Ptr () -> -- atomic : TBasicType TVoid - Ptr () -> -- oldval : TBasicType TVoid - Ptr () -> -- newval : TBasicType TVoid - IO CInt - - -atomicPointerCompareAndExchange :: - (MonadIO m) => - Ptr () -> -- atomic - Ptr () -> -- oldval - Ptr () -> -- newval - m Bool -atomicPointerCompareAndExchange atomic oldval newval = liftIO $ do - result <- g_atomic_pointer_compare_and_exchange atomic oldval newval - let result' = (/= 0) result - return result' - - --- function g_atomic_pointer_and --- Args : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt64 --- throws : False --- Skip return : False - -foreign import ccall "g_atomic_pointer_and" g_atomic_pointer_and :: - Ptr () -> -- atomic : TBasicType TVoid - Word64 -> -- val : TBasicType TUInt64 - IO Word64 - - -atomicPointerAnd :: - (MonadIO m) => - Ptr () -> -- atomic - Word64 -> -- val - m Word64 -atomicPointerAnd atomic val = liftIO $ do - result <- g_atomic_pointer_and atomic val - return result - - --- function g_atomic_pointer_add --- Args : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "atomic", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt64 --- throws : False --- Skip return : False - -foreign import ccall "g_atomic_pointer_add" g_atomic_pointer_add :: - Ptr () -> -- atomic : TBasicType TVoid - Int64 -> -- val : TBasicType TInt64 - IO Int64 - - -atomicPointerAdd :: - (MonadIO m) => - Ptr () -> -- atomic - Int64 -> -- val - m Int64 -atomicPointerAdd atomic val = liftIO $ do - result <- g_atomic_pointer_add atomic val - return result - - --- function g_atomic_int_xor --- Args : [Arg {argName = "atomic", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "atomic", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_atomic_int_xor" g_atomic_int_xor :: - Word32 -> -- atomic : TBasicType TUInt32 - Word32 -> -- val : TBasicType TUInt32 - IO Word32 - - -atomicIntXor :: - (MonadIO m) => - Word32 -> -- atomic - Word32 -> -- val - m Word32 -atomicIntXor atomic val = liftIO $ do - result <- g_atomic_int_xor atomic val - return result - - --- function g_atomic_int_set --- Args : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", 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_atomic_int_set" g_atomic_int_set :: - Int32 -> -- atomic : TBasicType TInt32 - Int32 -> -- newval : TBasicType TInt32 - IO () - - -atomicIntSet :: - (MonadIO m) => - Int32 -> -- atomic - Int32 -> -- newval - m () -atomicIntSet atomic newval = liftIO $ do - g_atomic_int_set atomic newval - return () - - --- function g_atomic_int_or --- Args : [Arg {argName = "atomic", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "atomic", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_atomic_int_or" g_atomic_int_or :: - Word32 -> -- atomic : TBasicType TUInt32 - Word32 -> -- val : TBasicType TUInt32 - IO Word32 - - -atomicIntOr :: - (MonadIO m) => - Word32 -> -- atomic - Word32 -> -- val - m Word32 -atomicIntOr atomic val = liftIO $ do - result <- g_atomic_int_or atomic val - return result - - --- function g_atomic_int_inc --- Args : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "atomic", 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_atomic_int_inc" g_atomic_int_inc :: - Int32 -> -- atomic : TBasicType TInt32 - IO () - - -atomicIntInc :: - (MonadIO m) => - Int32 -> -- atomic - m () -atomicIntInc atomic = liftIO $ do - g_atomic_int_inc atomic - return () - - --- function g_atomic_int_get --- Args : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_atomic_int_get" g_atomic_int_get :: - Int32 -> -- atomic : TBasicType TInt32 - IO Int32 - - -atomicIntGet :: - (MonadIO m) => - Int32 -> -- atomic - m Int32 -atomicIntGet atomic = liftIO $ do - result <- g_atomic_int_get atomic - return result - - --- function g_atomic_int_exchange_and_add --- Args : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_atomic_int_exchange_and_add" g_atomic_int_exchange_and_add :: - Int32 -> -- atomic : TBasicType TInt32 - Int32 -> -- val : TBasicType TInt32 - IO Int32 - -{-# DEPRECATED atomicIntExchangeAndAdd ["(Since version 2.30)","Use g_atomic_int_add() instead."]#-} -atomicIntExchangeAndAdd :: - (MonadIO m) => - Int32 -> -- atomic - Int32 -> -- val - m Int32 -atomicIntExchangeAndAdd atomic val = liftIO $ do - result <- g_atomic_int_exchange_and_add atomic val - return result - - --- function g_atomic_int_dec_and_test --- Args : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_atomic_int_dec_and_test" g_atomic_int_dec_and_test :: - Int32 -> -- atomic : TBasicType TInt32 - IO CInt - - -atomicIntDecAndTest :: - (MonadIO m) => - Int32 -> -- atomic - m Bool -atomicIntDecAndTest atomic = liftIO $ do - result <- g_atomic_int_dec_and_test atomic - let result' = (/= 0) result - return result' - - --- function g_atomic_int_compare_and_exchange --- Args : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "oldval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "newval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_atomic_int_compare_and_exchange" g_atomic_int_compare_and_exchange :: - Int32 -> -- atomic : TBasicType TInt32 - Int32 -> -- oldval : TBasicType TInt32 - Int32 -> -- newval : TBasicType TInt32 - IO CInt - - -atomicIntCompareAndExchange :: - (MonadIO m) => - Int32 -> -- atomic - Int32 -> -- oldval - Int32 -> -- newval - m Bool -atomicIntCompareAndExchange atomic oldval newval = liftIO $ do - result <- g_atomic_int_compare_and_exchange atomic oldval newval - let result' = (/= 0) result - return result' - - --- function g_atomic_int_and --- Args : [Arg {argName = "atomic", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "atomic", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_atomic_int_and" g_atomic_int_and :: - Word32 -> -- atomic : TBasicType TUInt32 - Word32 -> -- val : TBasicType TUInt32 - IO Word32 - - -atomicIntAnd :: - (MonadIO m) => - Word32 -> -- atomic - Word32 -> -- val - m Word32 -atomicIntAnd atomic val = liftIO $ do - result <- g_atomic_int_and atomic val - return result - - --- function g_atomic_int_add --- Args : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "atomic", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_atomic_int_add" g_atomic_int_add :: - Int32 -> -- atomic : TBasicType TInt32 - Int32 -> -- val : TBasicType TInt32 - IO Int32 - - -atomicIntAdd :: - (MonadIO m) => - Int32 -> -- atomic - Int32 -> -- val - m Int32 -atomicIntAdd atomic val = liftIO $ do - result <- g_atomic_int_add atomic val - return result - - --- function g_atexit --- Args : [Arg {argName = "func", argType = TInterface "GLib" "VoidFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "func", argType = TInterface "GLib" "VoidFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_atexit" g_atexit :: - FunPtr VoidFuncC -> -- func : TInterface "GLib" "VoidFunc" - IO () - -{-# DEPRECATED atexit ["(Since version 2.32)","It is best to avoid g_atexit()."]#-} -atexit :: - (MonadIO m) => - VoidFunc -> -- func - m () -atexit func = liftIO $ do - ptrfunc <- callocMem :: IO (Ptr (FunPtr VoidFuncC)) - func' <- mkVoidFunc (voidFuncWrapper (Just ptrfunc) func) - poke ptrfunc func' - g_atexit func' - return () - - --- function g_assertion_message_expr --- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expr", 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_assertion_message_expr" g_assertion_message_expr :: - CString -> -- domain : TBasicType TUTF8 - CString -> -- file : TBasicType TUTF8 - Int32 -> -- line : TBasicType TInt32 - CString -> -- func : TBasicType TUTF8 - CString -> -- expr : TBasicType TUTF8 - IO () - - -assertionMessageExpr :: - (MonadIO m) => - T.Text -> -- domain - T.Text -> -- file - Int32 -> -- line - T.Text -> -- func - T.Text -> -- expr - m () -assertionMessageExpr domain file line func expr = liftIO $ do - domain' <- textToCString domain - file' <- textToCString file - func' <- textToCString func - expr' <- textToCString expr - g_assertion_message_expr domain' file' line func' expr' - freeMem domain' - freeMem file' - freeMem func' - freeMem expr' - return () - - --- function g_assertion_message_error --- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expr", argType = TBasicType TUTF8, 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},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}] --- Lengths : [] --- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expr", argType = TBasicType TUTF8, 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},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}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_assertion_message_error" g_assertion_message_error :: - CString -> -- domain : TBasicType TUTF8 - CString -> -- file : TBasicType TUTF8 - Int32 -> -- line : TBasicType TInt32 - CString -> -- func : TBasicType TUTF8 - CString -> -- expr : TBasicType TUTF8 - Ptr GError -> -- error : TError - Word32 -> -- error_domain : TBasicType TUInt32 - Int32 -> -- error_code : TBasicType TInt32 - IO () - - -assertionMessageError :: - (MonadIO m) => - T.Text -> -- domain - T.Text -> -- file - Int32 -> -- line - T.Text -> -- func - T.Text -> -- expr - GError -> -- error - Word32 -> -- error_domain - Int32 -> -- error_code - m () -assertionMessageError domain file line func expr error_ error_domain error_code = liftIO $ do - domain' <- textToCString domain - file' <- textToCString file - func' <- textToCString func - expr' <- textToCString expr - let error_' = unsafeManagedPtrGetPtr error_ - g_assertion_message_error domain' file' line func' expr' error_' error_domain error_code - touchManagedPtr error_ - freeMem domain' - freeMem file' - freeMem func' - freeMem expr' - return () - - --- function g_assertion_message_cmpstr --- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arg1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cmp", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arg2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arg1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cmp", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arg2", 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_assertion_message_cmpstr" g_assertion_message_cmpstr :: - CString -> -- domain : TBasicType TUTF8 - CString -> -- file : TBasicType TUTF8 - Int32 -> -- line : TBasicType TInt32 - CString -> -- func : TBasicType TUTF8 - CString -> -- expr : TBasicType TUTF8 - CString -> -- arg1 : TBasicType TUTF8 - CString -> -- cmp : TBasicType TUTF8 - CString -> -- arg2 : TBasicType TUTF8 - IO () - - -assertionMessageCmpstr :: - (MonadIO m) => - T.Text -> -- domain - T.Text -> -- file - Int32 -> -- line - T.Text -> -- func - T.Text -> -- expr - T.Text -> -- arg1 - T.Text -> -- cmp - T.Text -> -- arg2 - m () -assertionMessageCmpstr domain file line func expr arg1 cmp arg2 = liftIO $ do - domain' <- textToCString domain - file' <- textToCString file - func' <- textToCString func - expr' <- textToCString expr - arg1' <- textToCString arg1 - cmp' <- textToCString cmp - arg2' <- textToCString arg2 - g_assertion_message_cmpstr domain' file' line func' expr' arg1' cmp' arg2' - freeMem domain' - freeMem file' - freeMem func' - freeMem expr' - freeMem arg1' - freeMem cmp' - freeMem arg2' - return () - - --- function g_assertion_message --- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TBasicType TUTF8, 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 - -foreign import ccall "g_assertion_message" g_assertion_message :: - CString -> -- domain : TBasicType TUTF8 - CString -> -- file : TBasicType TUTF8 - Int32 -> -- line : TBasicType TInt32 - CString -> -- func : TBasicType TUTF8 - CString -> -- message : TBasicType TUTF8 - IO () - - -assertionMessage :: - (MonadIO m) => - T.Text -> -- domain - T.Text -> -- file - Int32 -> -- line - T.Text -> -- func - T.Text -> -- message - m () -assertionMessage domain file line func message = liftIO $ do - domain' <- textToCString domain - file' <- textToCString file - func' <- textToCString func - message' <- textToCString message - g_assertion_message domain' file' line func' message' - freeMem domain' - freeMem file' - freeMem func' - freeMem message' - return () - - --- function g_assert_warning --- Args : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pretty_function", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expression", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pretty_function", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expression", 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_assert_warning" g_assert_warning :: - CString -> -- log_domain : TBasicType TUTF8 - CString -> -- file : TBasicType TUTF8 - Int32 -> -- line : TBasicType TInt32 - CString -> -- pretty_function : TBasicType TUTF8 - CString -> -- expression : TBasicType TUTF8 - IO () - - -assertWarning :: - (MonadIO m) => - T.Text -> -- log_domain - T.Text -> -- file - Int32 -> -- line - T.Text -> -- pretty_function - T.Text -> -- expression - m () -assertWarning log_domain file line pretty_function expression = liftIO $ do - log_domain' <- textToCString log_domain - file' <- textToCString file - pretty_function' <- textToCString pretty_function - expression' <- textToCString expression - g_assert_warning log_domain' file' line pretty_function' expression' - freeMem log_domain' - freeMem file' - freeMem pretty_function' - freeMem expression' - return () - - --- function g_ascii_xdigit_value --- Args : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_ascii_xdigit_value" g_ascii_xdigit_value :: - Int8 -> -- c : TBasicType TInt8 - IO Int32 - - -asciiXdigitValue :: - (MonadIO m) => - Int8 -> -- c - m Int32 -asciiXdigitValue c = liftIO $ do - result <- g_ascii_xdigit_value c - return result - - --- function g_ascii_toupper --- Args : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt8 --- throws : False --- Skip return : False - -foreign import ccall "g_ascii_toupper" g_ascii_toupper :: - Int8 -> -- c : TBasicType TInt8 - IO Int8 - - -asciiToupper :: - (MonadIO m) => - Int8 -> -- c - m Int8 -asciiToupper c = liftIO $ do - result <- g_ascii_toupper c - return result - - --- function g_ascii_tolower --- Args : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt8 --- throws : False --- Skip return : False - -foreign import ccall "g_ascii_tolower" g_ascii_tolower :: - Int8 -> -- c : TBasicType TInt8 - IO Int8 - - -asciiTolower :: - (MonadIO m) => - Int8 -> -- c - m Int8 -asciiTolower c = liftIO $ do - result <- g_ascii_tolower c - return result - - --- function g_ascii_strup --- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, 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},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_ascii_strup" g_ascii_strup :: - CString -> -- str : TBasicType TUTF8 - Int64 -> -- len : TBasicType TInt64 - IO CString - - -asciiStrup :: - (MonadIO m) => - T.Text -> -- str - Int64 -> -- len - m T.Text -asciiStrup str len = liftIO $ do - str' <- textToCString str - result <- g_ascii_strup str' len - checkUnexpectedReturnNULL "g_ascii_strup" result - result' <- cstringToText result - freeMem result - freeMem str' - return result' - - --- function g_ascii_strtoull --- Args : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt64 --- throws : False --- Skip return : False - -foreign import ccall "g_ascii_strtoull" g_ascii_strtoull :: - CString -> -- nptr : TBasicType TUTF8 - CString -> -- endptr : TBasicType TUTF8 - Word32 -> -- base : TBasicType TUInt32 - IO Word64 - - -asciiStrtoull :: - (MonadIO m) => - T.Text -> -- nptr - T.Text -> -- endptr - Word32 -> -- base - m Word64 -asciiStrtoull nptr endptr base = liftIO $ do - nptr' <- textToCString nptr - endptr' <- textToCString endptr - result <- g_ascii_strtoull nptr' endptr' base - freeMem nptr' - freeMem endptr' - return result - - --- function g_ascii_strtoll --- Args : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt64 --- throws : False --- Skip return : False - -foreign import ccall "g_ascii_strtoll" g_ascii_strtoll :: - CString -> -- nptr : TBasicType TUTF8 - CString -> -- endptr : TBasicType TUTF8 - Word32 -> -- base : TBasicType TUInt32 - IO Int64 - - -asciiStrtoll :: - (MonadIO m) => - T.Text -> -- nptr - T.Text -> -- endptr - Word32 -> -- base - m Int64 -asciiStrtoll nptr endptr base = liftIO $ do - nptr' <- textToCString nptr - endptr' <- textToCString endptr - result <- g_ascii_strtoll nptr' endptr' base - freeMem nptr' - freeMem endptr' - return result - - --- function g_ascii_strtod --- Args : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "g_ascii_strtod" g_ascii_strtod :: - CString -> -- nptr : TBasicType TUTF8 - CString -> -- endptr : TBasicType TUTF8 - IO CDouble - - -asciiStrtod :: - (MonadIO m) => - T.Text -> -- nptr - T.Text -> -- endptr - m Double -asciiStrtod nptr endptr = liftIO $ do - nptr' <- textToCString nptr - endptr' <- textToCString endptr - result <- g_ascii_strtod nptr' endptr' - let result' = realToFrac result - freeMem nptr' - freeMem endptr' - return result' - - --- function g_ascii_strncasecmp --- Args : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_ascii_strncasecmp" g_ascii_strncasecmp :: - CString -> -- s1 : TBasicType TUTF8 - CString -> -- s2 : TBasicType TUTF8 - Word64 -> -- n : TBasicType TUInt64 - IO Int32 - - -asciiStrncasecmp :: - (MonadIO m) => - T.Text -> -- s1 - T.Text -> -- s2 - Word64 -> -- n - m Int32 -asciiStrncasecmp s1 s2 n = liftIO $ do - s1' <- textToCString s1 - s2' <- textToCString s2 - result <- g_ascii_strncasecmp s1' s2' n - freeMem s1' - freeMem s2' - return result - - --- function g_ascii_strdown --- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, 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},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_ascii_strdown" g_ascii_strdown :: - CString -> -- str : TBasicType TUTF8 - Int64 -> -- len : TBasicType TInt64 - IO CString - - -asciiStrdown :: - (MonadIO m) => - T.Text -> -- str - Int64 -> -- len - m T.Text -asciiStrdown str len = liftIO $ do - str' <- textToCString str - result <- g_ascii_strdown str' len - checkUnexpectedReturnNULL "g_ascii_strdown" result - result' <- cstringToText result - freeMem result - freeMem str' - return result' - - --- function g_ascii_strcasecmp --- Args : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "s2", 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_ascii_strcasecmp" g_ascii_strcasecmp :: - CString -> -- s1 : TBasicType TUTF8 - CString -> -- s2 : TBasicType TUTF8 - IO Int32 - - -asciiStrcasecmp :: - (MonadIO m) => - T.Text -> -- s1 - T.Text -> -- s2 - m Int32 -asciiStrcasecmp s1 s2 = liftIO $ do - s1' <- textToCString s1 - s2' <- textToCString s2 - result <- g_ascii_strcasecmp s1' s2' - freeMem s1' - freeMem s2' - return result - - --- function g_ascii_formatd --- Args : [Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "d", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "d", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_ascii_formatd" g_ascii_formatd :: - CString -> -- buffer : TBasicType TUTF8 - Int32 -> -- buf_len : TBasicType TInt32 - CString -> -- format : TBasicType TUTF8 - CDouble -> -- d : TBasicType TDouble - IO CString - - -asciiFormatd :: - (MonadIO m) => - T.Text -> -- buffer - Int32 -> -- buf_len - T.Text -> -- format - Double -> -- d - m T.Text -asciiFormatd buffer buf_len format d = liftIO $ do - buffer' <- textToCString buffer - format' <- textToCString format - let d' = realToFrac d - result <- g_ascii_formatd buffer' buf_len format' d' - checkUnexpectedReturnNULL "g_ascii_formatd" result - result' <- cstringToText result - freeMem result - freeMem buffer' - freeMem format' - return result' - - --- function g_ascii_dtostr --- Args : [Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "d", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf_len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "d", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_ascii_dtostr" g_ascii_dtostr :: - CString -> -- buffer : TBasicType TUTF8 - Int32 -> -- buf_len : TBasicType TInt32 - CDouble -> -- d : TBasicType TDouble - IO CString - - -asciiDtostr :: - (MonadIO m) => - T.Text -> -- buffer - Int32 -> -- buf_len - Double -> -- d - m T.Text -asciiDtostr buffer buf_len d = liftIO $ do - buffer' <- textToCString buffer - let d' = realToFrac d - result <- g_ascii_dtostr buffer' buf_len d' - checkUnexpectedReturnNULL "g_ascii_dtostr" result - result' <- cstringToText result - freeMem result - freeMem buffer' - return result' - - --- function g_ascii_digit_value --- Args : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_ascii_digit_value" g_ascii_digit_value :: - Int8 -> -- c : TBasicType TInt8 - IO Int32 - - -asciiDigitValue :: - (MonadIO m) => - Int8 -> -- c - m Int32 -asciiDigitValue c = liftIO $ do - result <- g_ascii_digit_value c - return result - - --- function g_access --- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_access" g_access :: - CString -> -- filename : TBasicType TUTF8 - Int32 -> -- mode : TBasicType TInt32 - IO Int32 - - -access :: - (MonadIO m) => - T.Text -> -- filename - Int32 -> -- mode - m Int32 -access filename mode = liftIO $ do - filename' <- textToCString filename - result <- g_access filename' mode - freeMem filename' - return result - - - diff --git a/GI/GLib/Structs.hs b/GI/GLib/Structs.hs deleted file mode 100644 --- a/GI/GLib/Structs.hs +++ /dev/null @@ -1,152 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.GLib.Structs - ( module GI.GLib.Structs.AsyncQueue , - module GI.GLib.Structs.BookmarkFile , - module GI.GLib.Structs.ByteArray , - module GI.GLib.Structs.Bytes , - module GI.GLib.Structs.Checksum , - module GI.GLib.Structs.Cond , - module GI.GLib.Structs.Data , - module GI.GLib.Structs.Date , - module GI.GLib.Structs.DateTime , - module GI.GLib.Structs.DebugKey , - module GI.GLib.Structs.Dir , - module GI.GLib.Structs.HashTableIter , - module GI.GLib.Structs.Hmac , - module GI.GLib.Structs.Hook , - module GI.GLib.Structs.HookList , - module GI.GLib.Structs.IConv , - module GI.GLib.Structs.IOChannel , - module GI.GLib.Structs.IOFuncs , - module GI.GLib.Structs.KeyFile , - module GI.GLib.Structs.MainContext , - module GI.GLib.Structs.MainLoop , - module GI.GLib.Structs.MappedFile , - module GI.GLib.Structs.MarkupParseContext, - module GI.GLib.Structs.MarkupParser , - module GI.GLib.Structs.MatchInfo , - module GI.GLib.Structs.MemVTable , - module GI.GLib.Structs.Node , - module GI.GLib.Structs.Once , - module GI.GLib.Structs.OptionContext , - module GI.GLib.Structs.OptionEntry , - module GI.GLib.Structs.OptionGroup , - module GI.GLib.Structs.PatternSpec , - module GI.GLib.Structs.PollFD , - module GI.GLib.Structs.PtrArray , - module GI.GLib.Structs.Queue , - module GI.GLib.Structs.RWLock , - module GI.GLib.Structs.Rand , - module GI.GLib.Structs.RecMutex , - module GI.GLib.Structs.Regex , - module GI.GLib.Structs.Scanner , - module GI.GLib.Structs.ScannerConfig , - module GI.GLib.Structs.Sequence , - module GI.GLib.Structs.SequenceIter , - module GI.GLib.Structs.Source , - module GI.GLib.Structs.SourceCallbackFuncs, - module GI.GLib.Structs.SourceFuncs , - module GI.GLib.Structs.StatBuf , - module GI.GLib.Structs.String , - module GI.GLib.Structs.StringChunk , - module GI.GLib.Structs.TestCase , - module GI.GLib.Structs.TestConfig , - module GI.GLib.Structs.TestLogBuffer , - module GI.GLib.Structs.TestLogMsg , - module GI.GLib.Structs.TestSuite , - module GI.GLib.Structs.Thread , - module GI.GLib.Structs.ThreadPool , - module GI.GLib.Structs.TimeVal , - module GI.GLib.Structs.TimeZone , - module GI.GLib.Structs.Timer , - module GI.GLib.Structs.TrashStack , - module GI.GLib.Structs.Tree , - module GI.GLib.Structs.VariantBuilder , - module GI.GLib.Structs.VariantDict , - module GI.GLib.Structs.VariantType , - - - ) where - -import GI.GLib.Structs.AsyncQueue -import GI.GLib.Structs.BookmarkFile -import GI.GLib.Structs.ByteArray -import GI.GLib.Structs.Bytes -import GI.GLib.Structs.Checksum -import GI.GLib.Structs.Cond -import GI.GLib.Structs.Data -import GI.GLib.Structs.Date -import GI.GLib.Structs.DateTime -import GI.GLib.Structs.DebugKey -import GI.GLib.Structs.Dir -import GI.GLib.Structs.HashTableIter -import GI.GLib.Structs.Hmac -import GI.GLib.Structs.Hook -import GI.GLib.Structs.HookList -import GI.GLib.Structs.IConv -import GI.GLib.Structs.IOChannel -import GI.GLib.Structs.IOFuncs -import GI.GLib.Structs.KeyFile -import GI.GLib.Structs.MainContext -import GI.GLib.Structs.MainLoop -import GI.GLib.Structs.MappedFile -import GI.GLib.Structs.MarkupParseContext -import GI.GLib.Structs.MarkupParser -import GI.GLib.Structs.MatchInfo -import GI.GLib.Structs.MemVTable -import GI.GLib.Structs.Node -import GI.GLib.Structs.Once -import GI.GLib.Structs.OptionContext -import GI.GLib.Structs.OptionEntry -import GI.GLib.Structs.OptionGroup -import GI.GLib.Structs.PatternSpec -import GI.GLib.Structs.PollFD -import GI.GLib.Structs.PtrArray -import GI.GLib.Structs.Queue -import GI.GLib.Structs.RWLock -import GI.GLib.Structs.Rand -import GI.GLib.Structs.RecMutex -import GI.GLib.Structs.Regex -import GI.GLib.Structs.Scanner -import GI.GLib.Structs.ScannerConfig -import GI.GLib.Structs.Sequence -import GI.GLib.Structs.SequenceIter -import GI.GLib.Structs.Source -import GI.GLib.Structs.SourceCallbackFuncs -import GI.GLib.Structs.SourceFuncs -import GI.GLib.Structs.StatBuf -import GI.GLib.Structs.String -import GI.GLib.Structs.StringChunk -import GI.GLib.Structs.TestCase -import GI.GLib.Structs.TestConfig -import GI.GLib.Structs.TestLogBuffer -import GI.GLib.Structs.TestLogMsg -import GI.GLib.Structs.TestSuite -import GI.GLib.Structs.Thread -import GI.GLib.Structs.ThreadPool -import GI.GLib.Structs.TimeVal -import GI.GLib.Structs.TimeZone -import GI.GLib.Structs.Timer -import GI.GLib.Structs.TrashStack -import GI.GLib.Structs.Tree -import GI.GLib.Structs.VariantBuilder -import GI.GLib.Structs.VariantDict -import GI.GLib.Structs.VariantType - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - - diff --git a/GI/GLib/Structs/AsyncQueue.hs b/GI/GLib/Structs/AsyncQueue.hs deleted file mode 100644 --- a/GI/GLib/Structs/AsyncQueue.hs +++ /dev/null @@ -1,295 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The GAsyncQueue struct is an opaque data structure which represents -an asynchronous queue. It should only be accessed through the -g_async_queue_* functions. --} - -module GI.GLib.Structs.AsyncQueue - ( - --- * Exported types - AsyncQueue(..) , - noAsyncQueue , - - - -- * Methods --- ** asyncQueueLength - asyncQueueLength , - - --- ** asyncQueueLengthUnlocked - asyncQueueLengthUnlocked , - - --- ** asyncQueueLock - asyncQueueLock , - - --- ** asyncQueuePush - asyncQueuePush , - - --- ** asyncQueuePushUnlocked - asyncQueuePushUnlocked , - - --- ** asyncQueueRefUnlocked - asyncQueueRefUnlocked , - - --- ** asyncQueueUnlock - asyncQueueUnlock , - - --- ** asyncQueueUnref - asyncQueueUnref , - - --- ** asyncQueueUnrefAndUnlock - asyncQueueUnrefAndUnlock , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype AsyncQueue = AsyncQueue (ForeignPtr AsyncQueue) -noAsyncQueue :: Maybe AsyncQueue -noAsyncQueue = Nothing - --- method AsyncQueue::length --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_async_queue_length" g_async_queue_length :: - Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" - IO Int32 - - -asyncQueueLength :: - (MonadIO m) => - AsyncQueue -> -- _obj - m Int32 -asyncQueueLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_async_queue_length _obj' - touchManagedPtr _obj - return result - --- method AsyncQueue::length_unlocked --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_async_queue_length_unlocked" g_async_queue_length_unlocked :: - Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" - IO Int32 - - -asyncQueueLengthUnlocked :: - (MonadIO m) => - AsyncQueue -> -- _obj - m Int32 -asyncQueueLengthUnlocked _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_async_queue_length_unlocked _obj' - touchManagedPtr _obj - return result - --- method AsyncQueue::lock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_async_queue_lock" g_async_queue_lock :: - Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" - IO () - - -asyncQueueLock :: - (MonadIO m) => - AsyncQueue -> -- _obj - m () -asyncQueueLock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_async_queue_lock _obj' - touchManagedPtr _obj - return () - --- method AsyncQueue::push --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", 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 - -foreign import ccall "g_async_queue_push" g_async_queue_push :: - Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" - Ptr () -> -- data : TBasicType TVoid - IO () - - -asyncQueuePush :: - (MonadIO m) => - AsyncQueue -> -- _obj - Ptr () -> -- data - m () -asyncQueuePush _obj data_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_async_queue_push _obj' data_ - touchManagedPtr _obj - return () - --- method AsyncQueue::push_unlocked --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", 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 - -foreign import ccall "g_async_queue_push_unlocked" g_async_queue_push_unlocked :: - Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" - Ptr () -> -- data : TBasicType TVoid - IO () - - -asyncQueuePushUnlocked :: - (MonadIO m) => - AsyncQueue -> -- _obj - Ptr () -> -- data - m () -asyncQueuePushUnlocked _obj data_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_async_queue_push_unlocked _obj' data_ - touchManagedPtr _obj - return () - --- method AsyncQueue::ref_unlocked --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_async_queue_ref_unlocked" g_async_queue_ref_unlocked :: - Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" - IO () - -{-# DEPRECATED asyncQueueRefUnlocked ["(Since version 2.8)","Reference counting is done atomically.","so g_async_queue_ref() can be used regardless of the @queue's","lock."]#-} -asyncQueueRefUnlocked :: - (MonadIO m) => - AsyncQueue -> -- _obj - m () -asyncQueueRefUnlocked _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_async_queue_ref_unlocked _obj' - touchManagedPtr _obj - return () - --- method AsyncQueue::unlock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_async_queue_unlock" g_async_queue_unlock :: - Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" - IO () - - -asyncQueueUnlock :: - (MonadIO m) => - AsyncQueue -> -- _obj - m () -asyncQueueUnlock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_async_queue_unlock _obj' - touchManagedPtr _obj - return () - --- method AsyncQueue::unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_async_queue_unref" g_async_queue_unref :: - Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" - IO () - - -asyncQueueUnref :: - (MonadIO m) => - AsyncQueue -> -- _obj - m () -asyncQueueUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_async_queue_unref _obj' - touchManagedPtr _obj - return () - --- method AsyncQueue::unref_and_unlock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_async_queue_unref_and_unlock" g_async_queue_unref_and_unlock :: - Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" - IO () - -{-# DEPRECATED asyncQueueUnrefAndUnlock ["(Since version 2.8)","Reference counting is done atomically.","so g_async_queue_unref() can be used regardless of the @queue's","lock."]#-} -asyncQueueUnrefAndUnlock :: - (MonadIO m) => - AsyncQueue -> -- _obj - m () -asyncQueueUnrefAndUnlock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_async_queue_unref_and_unlock _obj' - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Structs/AsyncQueue.hs-boot b/GI/GLib/Structs/AsyncQueue.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/AsyncQueue.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.AsyncQueue 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 - -newtype AsyncQueue = AsyncQueue (ForeignPtr AsyncQueue) diff --git a/GI/GLib/Structs/BookmarkFile.hs b/GI/GLib/Structs/BookmarkFile.hs deleted file mode 100644 --- a/GI/GLib/Structs/BookmarkFile.hs +++ /dev/null @@ -1,1561 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The `GBookmarkFile` structure contains only -private data and should not be directly accessed. --} - -module GI.GLib.Structs.BookmarkFile - ( - --- * Exported types - BookmarkFile(..) , - noBookmarkFile , - - - -- * Methods --- ** bookmarkFileAddApplication - bookmarkFileAddApplication , - - --- ** bookmarkFileAddGroup - bookmarkFileAddGroup , - - --- ** bookmarkFileFree - bookmarkFileFree , - - --- ** bookmarkFileGetAdded - bookmarkFileGetAdded , - - --- ** bookmarkFileGetAppInfo - bookmarkFileGetAppInfo , - - --- ** bookmarkFileGetApplications - bookmarkFileGetApplications , - - --- ** bookmarkFileGetDescription - bookmarkFileGetDescription , - - --- ** bookmarkFileGetGroups - bookmarkFileGetGroups , - - --- ** bookmarkFileGetIcon - bookmarkFileGetIcon , - - --- ** bookmarkFileGetIsPrivate - bookmarkFileGetIsPrivate , - - --- ** bookmarkFileGetMimeType - bookmarkFileGetMimeType , - - --- ** bookmarkFileGetModified - bookmarkFileGetModified , - - --- ** bookmarkFileGetSize - bookmarkFileGetSize , - - --- ** bookmarkFileGetTitle - bookmarkFileGetTitle , - - --- ** bookmarkFileGetUris - bookmarkFileGetUris , - - --- ** bookmarkFileGetVisited - bookmarkFileGetVisited , - - --- ** bookmarkFileHasApplication - bookmarkFileHasApplication , - - --- ** bookmarkFileHasGroup - bookmarkFileHasGroup , - - --- ** bookmarkFileHasItem - bookmarkFileHasItem , - - --- ** bookmarkFileLoadFromData - bookmarkFileLoadFromData , - - --- ** bookmarkFileLoadFromDataDirs - bookmarkFileLoadFromDataDirs , - - --- ** bookmarkFileLoadFromFile - bookmarkFileLoadFromFile , - - --- ** bookmarkFileMoveItem - bookmarkFileMoveItem , - - --- ** bookmarkFileRemoveApplication - bookmarkFileRemoveApplication , - - --- ** bookmarkFileRemoveGroup - bookmarkFileRemoveGroup , - - --- ** bookmarkFileRemoveItem - bookmarkFileRemoveItem , - - --- ** bookmarkFileSetAdded - bookmarkFileSetAdded , - - --- ** bookmarkFileSetAppInfo - bookmarkFileSetAppInfo , - - --- ** bookmarkFileSetDescription - bookmarkFileSetDescription , - - --- ** bookmarkFileSetGroups - bookmarkFileSetGroups , - - --- ** bookmarkFileSetIcon - bookmarkFileSetIcon , - - --- ** bookmarkFileSetIsPrivate - bookmarkFileSetIsPrivate , - - --- ** bookmarkFileSetMimeType - bookmarkFileSetMimeType , - - --- ** bookmarkFileSetModified - bookmarkFileSetModified , - - --- ** bookmarkFileSetTitle - bookmarkFileSetTitle , - - --- ** bookmarkFileSetVisited - bookmarkFileSetVisited , - - --- ** bookmarkFileToData - bookmarkFileToData , - - --- ** bookmarkFileToFile - bookmarkFileToFile , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype BookmarkFile = BookmarkFile (ForeignPtr BookmarkFile) -noBookmarkFile :: Maybe BookmarkFile -noBookmarkFile = Nothing - --- method BookmarkFile::add_application --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_bookmark_file_add_application" g_bookmark_file_add_application :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- uri : TBasicType TUTF8 - CString -> -- name : TBasicType TUTF8 - CString -> -- exec : TBasicType TUTF8 - IO () - - -bookmarkFileAddApplication :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- uri - Maybe (T.Text) -> -- name - Maybe (T.Text) -> -- exec - m () -bookmarkFileAddApplication _obj uri name exec = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - maybeName <- case name of - Nothing -> return nullPtr - Just jName -> do - jName' <- textToCString jName - return jName' - maybeExec <- case exec of - Nothing -> return nullPtr - Just jExec -> do - jExec' <- textToCString jExec - return jExec' - g_bookmark_file_add_application _obj' uri' maybeName maybeExec - touchManagedPtr _obj - freeMem uri' - freeMem maybeName - freeMem maybeExec - return () - --- method BookmarkFile::add_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "group", 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_bookmark_file_add_group" g_bookmark_file_add_group :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- uri : TBasicType TUTF8 - CString -> -- group : TBasicType TUTF8 - IO () - - -bookmarkFileAddGroup :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- uri - T.Text -> -- group - m () -bookmarkFileAddGroup _obj uri group = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - group' <- textToCString group - g_bookmark_file_add_group _obj' uri' group' - touchManagedPtr _obj - freeMem uri' - freeMem group' - return () - --- method BookmarkFile::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_bookmark_file_free" g_bookmark_file_free :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - IO () - - -bookmarkFileFree :: - (MonadIO m) => - BookmarkFile -> -- _obj - m () -bookmarkFileFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_bookmark_file_free _obj' - touchManagedPtr _obj - return () - --- method BookmarkFile::get_added --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 : TBasicType TInt64 --- throws : True --- Skip return : False - -foreign import ccall "g_bookmark_file_get_added" g_bookmark_file_get_added :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- uri : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO Int64 - - -bookmarkFileGetAdded :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- uri - m Int64 -bookmarkFileGetAdded _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - onException (do - result <- propagateGError $ g_bookmark_file_get_added _obj' uri' - touchManagedPtr _obj - freeMem uri' - return result - ) (do - freeMem uri' - ) - --- method BookmarkFile::get_app_info --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exec", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "count", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "stamp", argType = TBasicType TInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "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_bookmark_file_get_app_info" g_bookmark_file_get_app_info :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- uri : TBasicType TUTF8 - CString -> -- name : TBasicType TUTF8 - Ptr CString -> -- exec : TBasicType TUTF8 - Ptr Word32 -> -- count : TBasicType TUInt32 - Ptr Int64 -> -- stamp : TBasicType TInt64 - Ptr (Ptr GError) -> -- error - IO CInt - - -bookmarkFileGetAppInfo :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- uri - T.Text -> -- name - m (T.Text,Word32,Int64) -bookmarkFileGetAppInfo _obj uri name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - name' <- textToCString name - exec <- allocMem :: IO (Ptr CString) - count <- allocMem :: IO (Ptr Word32) - stamp <- allocMem :: IO (Ptr Int64) - onException (do - _ <- propagateGError $ g_bookmark_file_get_app_info _obj' uri' name' exec count stamp - exec' <- peek exec - exec'' <- cstringToText exec' - freeMem exec' - count' <- peek count - stamp' <- peek stamp - touchManagedPtr _obj - freeMem uri' - freeMem name' - freeMem exec - freeMem count - freeMem stamp - return (exec'', count', stamp') - ) (do - freeMem uri' - freeMem name' - freeMem exec - freeMem count - freeMem stamp - ) - --- method BookmarkFile::get_applications --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "length", argType = TBasicType TUInt64, 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 "GLib" "BookmarkFile", 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 : TCArray False (-1) 2 (TBasicType TUTF8) --- throws : True --- Skip return : False - -foreign import ccall "g_bookmark_file_get_applications" g_bookmark_file_get_applications :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- uri : TBasicType TUTF8 - Ptr Word64 -> -- length : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO (Ptr CString) - - -bookmarkFileGetApplications :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- uri - m [T.Text] -bookmarkFileGetApplications _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - length_ <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_bookmark_file_get_applications _obj' uri' length_ - length_' <- peek length_ - checkUnexpectedReturnNULL "g_bookmark_file_get_applications" result - result' <- (unpackUTF8CArrayWithLength length_') result - (mapCArrayWithLength length_') freeMem result - freeMem result - touchManagedPtr _obj - freeMem uri' - freeMem length_ - return result' - ) (do - freeMem uri' - freeMem length_ - ) - --- method BookmarkFile::get_description --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 : TBasicType TUTF8 --- throws : True --- Skip return : False - -foreign import ccall "g_bookmark_file_get_description" g_bookmark_file_get_description :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- uri : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CString - - -bookmarkFileGetDescription :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- uri - m T.Text -bookmarkFileGetDescription _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - onException (do - result <- propagateGError $ g_bookmark_file_get_description _obj' uri' - checkUnexpectedReturnNULL "g_bookmark_file_get_description" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - freeMem uri' - return result' - ) (do - freeMem uri' - ) - --- method BookmarkFile::get_groups --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "length", argType = TBasicType TUInt64, 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 "GLib" "BookmarkFile", 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 : TCArray False (-1) 2 (TBasicType TUTF8) --- throws : True --- Skip return : False - -foreign import ccall "g_bookmark_file_get_groups" g_bookmark_file_get_groups :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- uri : TBasicType TUTF8 - Ptr Word64 -> -- length : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO (Ptr CString) - - -bookmarkFileGetGroups :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- uri - m [T.Text] -bookmarkFileGetGroups _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - length_ <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_bookmark_file_get_groups _obj' uri' length_ - length_' <- peek length_ - checkUnexpectedReturnNULL "g_bookmark_file_get_groups" result - result' <- (unpackUTF8CArrayWithLength length_') result - (mapCArrayWithLength length_') freeMem result - freeMem result - touchManagedPtr _obj - freeMem uri' - freeMem length_ - return result' - ) (do - freeMem uri' - freeMem length_ - ) - --- method BookmarkFile::get_icon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "href", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_bookmark_file_get_icon" g_bookmark_file_get_icon :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- uri : TBasicType TUTF8 - Ptr CString -> -- href : TBasicType TUTF8 - Ptr CString -> -- mime_type : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -bookmarkFileGetIcon :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- uri - m (T.Text,T.Text) -bookmarkFileGetIcon _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - href <- allocMem :: IO (Ptr CString) - mime_type <- allocMem :: IO (Ptr CString) - onException (do - _ <- propagateGError $ g_bookmark_file_get_icon _obj' uri' href mime_type - href' <- peek href - href'' <- cstringToText href' - freeMem href' - mime_type' <- peek mime_type - mime_type'' <- cstringToText mime_type' - freeMem mime_type' - touchManagedPtr _obj - freeMem uri' - freeMem href - freeMem mime_type - return (href'', mime_type'') - ) (do - freeMem uri' - freeMem href - freeMem mime_type - ) - --- method BookmarkFile::get_is_private --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_bookmark_file_get_is_private" g_bookmark_file_get_is_private :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- uri : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -bookmarkFileGetIsPrivate :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- uri - m () -bookmarkFileGetIsPrivate _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - onException (do - _ <- propagateGError $ g_bookmark_file_get_is_private _obj' uri' - touchManagedPtr _obj - freeMem uri' - return () - ) (do - freeMem uri' - ) - --- method BookmarkFile::get_mime_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 : TBasicType TUTF8 --- throws : True --- Skip return : False - -foreign import ccall "g_bookmark_file_get_mime_type" g_bookmark_file_get_mime_type :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- uri : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CString - - -bookmarkFileGetMimeType :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- uri - m T.Text -bookmarkFileGetMimeType _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - onException (do - result <- propagateGError $ g_bookmark_file_get_mime_type _obj' uri' - checkUnexpectedReturnNULL "g_bookmark_file_get_mime_type" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - freeMem uri' - return result' - ) (do - freeMem uri' - ) - --- method BookmarkFile::get_modified --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 : TBasicType TInt64 --- throws : True --- Skip return : False - -foreign import ccall "g_bookmark_file_get_modified" g_bookmark_file_get_modified :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- uri : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO Int64 - - -bookmarkFileGetModified :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- uri - m Int64 -bookmarkFileGetModified _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - onException (do - result <- propagateGError $ g_bookmark_file_get_modified _obj' uri' - touchManagedPtr _obj - freeMem uri' - return result - ) (do - freeMem uri' - ) - --- method BookmarkFile::get_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_bookmark_file_get_size" g_bookmark_file_get_size :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - IO Int32 - - -bookmarkFileGetSize :: - (MonadIO m) => - BookmarkFile -> -- _obj - m Int32 -bookmarkFileGetSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_bookmark_file_get_size _obj' - touchManagedPtr _obj - return result - --- method BookmarkFile::get_title --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : True --- Skip return : False - -foreign import ccall "g_bookmark_file_get_title" g_bookmark_file_get_title :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- uri : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CString - - -bookmarkFileGetTitle :: - (MonadIO m) => - BookmarkFile -> -- _obj - Maybe (T.Text) -> -- uri - m T.Text -bookmarkFileGetTitle _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeUri <- case uri of - Nothing -> return nullPtr - Just jUri -> do - jUri' <- textToCString jUri - return jUri' - onException (do - result <- propagateGError $ g_bookmark_file_get_title _obj' maybeUri - checkUnexpectedReturnNULL "g_bookmark_file_get_title" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - freeMem maybeUri - return result' - ) (do - freeMem maybeUri - ) - --- method BookmarkFile::get_uris --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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}] --- 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 "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TCArray False (-1) 1 (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_bookmark_file_get_uris" g_bookmark_file_get_uris :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - Ptr Word64 -> -- length : TBasicType TUInt64 - IO (Ptr CString) - - -bookmarkFileGetUris :: - (MonadIO m) => - BookmarkFile -> -- _obj - m [T.Text] -bookmarkFileGetUris _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - length_ <- allocMem :: IO (Ptr Word64) - result <- g_bookmark_file_get_uris _obj' length_ - length_' <- peek length_ - checkUnexpectedReturnNULL "g_bookmark_file_get_uris" result - result' <- (unpackUTF8CArrayWithLength length_') result - (mapCArrayWithLength length_') freeMem result - freeMem result - touchManagedPtr _obj - freeMem length_ - return result' - --- method BookmarkFile::get_visited --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 : TBasicType TInt64 --- throws : True --- Skip return : False - -foreign import ccall "g_bookmark_file_get_visited" g_bookmark_file_get_visited :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- uri : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO Int64 - - -bookmarkFileGetVisited :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- uri - m Int64 -bookmarkFileGetVisited _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - onException (do - result <- propagateGError $ g_bookmark_file_get_visited _obj' uri' - touchManagedPtr _obj - freeMem uri' - return result - ) (do - freeMem uri' - ) - --- method BookmarkFile::has_application --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "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_bookmark_file_has_application" g_bookmark_file_has_application :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- uri : TBasicType TUTF8 - CString -> -- name : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -bookmarkFileHasApplication :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- uri - T.Text -> -- name - m () -bookmarkFileHasApplication _obj uri name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - name' <- textToCString name - onException (do - _ <- propagateGError $ g_bookmark_file_has_application _obj' uri' name' - touchManagedPtr _obj - freeMem uri' - freeMem name' - return () - ) (do - freeMem uri' - freeMem name' - ) - --- method BookmarkFile::has_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "group", 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_bookmark_file_has_group" g_bookmark_file_has_group :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- uri : TBasicType TUTF8 - CString -> -- group : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -bookmarkFileHasGroup :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- uri - T.Text -> -- group - m () -bookmarkFileHasGroup _obj uri group = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - group' <- textToCString group - onException (do - _ <- propagateGError $ g_bookmark_file_has_group _obj' uri' group' - touchManagedPtr _obj - freeMem uri' - freeMem group' - return () - ) (do - freeMem uri' - freeMem group' - ) - --- method BookmarkFile::has_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_bookmark_file_has_item" g_bookmark_file_has_item :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- uri : TBasicType TUTF8 - IO CInt - - -bookmarkFileHasItem :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- uri - m Bool -bookmarkFileHasItem _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - result <- g_bookmark_file_has_item _obj' uri' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem uri' - return result' - --- method BookmarkFile::load_from_data --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, 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}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_bookmark_file_load_from_data" g_bookmark_file_load_from_data :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- data : TBasicType TUTF8 - Word64 -> -- length : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO CInt - - -bookmarkFileLoadFromData :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- data - Word64 -> -- length - m () -bookmarkFileLoadFromData _obj data_ length_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - data_' <- textToCString data_ - onException (do - _ <- propagateGError $ g_bookmark_file_load_from_data _obj' data_' length_ - touchManagedPtr _obj - freeMem data_' - return () - ) (do - freeMem data_' - ) - --- method BookmarkFile::load_from_data_dirs --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "full_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "full_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_bookmark_file_load_from_data_dirs" g_bookmark_file_load_from_data_dirs :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- file : TBasicType TUTF8 - CString -> -- full_path : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -bookmarkFileLoadFromDataDirs :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- file - Maybe (T.Text) -> -- full_path - m () -bookmarkFileLoadFromDataDirs _obj file full_path = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - file' <- textToCString file - maybeFull_path <- case full_path of - Nothing -> return nullPtr - Just jFull_path -> do - jFull_path' <- textToCString jFull_path - return jFull_path' - onException (do - _ <- propagateGError $ g_bookmark_file_load_from_data_dirs _obj' file' maybeFull_path - touchManagedPtr _obj - freeMem file' - freeMem maybeFull_path - return () - ) (do - freeMem file' - freeMem maybeFull_path - ) - --- method BookmarkFile::load_from_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", 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_bookmark_file_load_from_file" g_bookmark_file_load_from_file :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- filename : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -bookmarkFileLoadFromFile :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- filename - m () -bookmarkFileLoadFromFile _obj filename = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - filename' <- textToCString filename - onException (do - _ <- propagateGError $ g_bookmark_file_load_from_file _obj' filename' - touchManagedPtr _obj - freeMem filename' - return () - ) (do - freeMem filename' - ) - --- method BookmarkFile::move_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_bookmark_file_move_item" g_bookmark_file_move_item :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- old_uri : TBasicType TUTF8 - CString -> -- new_uri : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -bookmarkFileMoveItem :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- old_uri - Maybe (T.Text) -> -- new_uri - m () -bookmarkFileMoveItem _obj old_uri new_uri = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - old_uri' <- textToCString old_uri - maybeNew_uri <- case new_uri of - Nothing -> return nullPtr - Just jNew_uri -> do - jNew_uri' <- textToCString jNew_uri - return jNew_uri' - onException (do - _ <- propagateGError $ g_bookmark_file_move_item _obj' old_uri' maybeNew_uri - touchManagedPtr _obj - freeMem old_uri' - freeMem maybeNew_uri - return () - ) (do - freeMem old_uri' - freeMem maybeNew_uri - ) - --- method BookmarkFile::remove_application --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "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_bookmark_file_remove_application" g_bookmark_file_remove_application :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- uri : TBasicType TUTF8 - CString -> -- name : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -bookmarkFileRemoveApplication :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- uri - T.Text -> -- name - m () -bookmarkFileRemoveApplication _obj uri name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - name' <- textToCString name - onException (do - _ <- propagateGError $ g_bookmark_file_remove_application _obj' uri' name' - touchManagedPtr _obj - freeMem uri' - freeMem name' - return () - ) (do - freeMem uri' - freeMem name' - ) - --- method BookmarkFile::remove_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "group", 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_bookmark_file_remove_group" g_bookmark_file_remove_group :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- uri : TBasicType TUTF8 - CString -> -- group : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -bookmarkFileRemoveGroup :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- uri - T.Text -> -- group - m () -bookmarkFileRemoveGroup _obj uri group = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - group' <- textToCString group - onException (do - _ <- propagateGError $ g_bookmark_file_remove_group _obj' uri' group' - touchManagedPtr _obj - freeMem uri' - freeMem group' - return () - ) (do - freeMem uri' - freeMem group' - ) - --- method BookmarkFile::remove_item --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_bookmark_file_remove_item" g_bookmark_file_remove_item :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- uri : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -bookmarkFileRemoveItem :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- uri - m () -bookmarkFileRemoveItem _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - onException (do - _ <- propagateGError $ g_bookmark_file_remove_item _obj' uri' - touchManagedPtr _obj - freeMem uri' - return () - ) (do - freeMem uri' - ) - --- method BookmarkFile::set_added --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "added", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "added", 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_bookmark_file_set_added" g_bookmark_file_set_added :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- uri : TBasicType TUTF8 - Int64 -> -- added : TBasicType TInt64 - IO () - - -bookmarkFileSetAdded :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- uri - Int64 -> -- added - m () -bookmarkFileSetAdded _obj uri added = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - g_bookmark_file_set_added _obj' uri' added - touchManagedPtr _obj - freeMem uri' - return () - --- method BookmarkFile::set_app_info --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stamp", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "exec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stamp", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_bookmark_file_set_app_info" g_bookmark_file_set_app_info :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- uri : TBasicType TUTF8 - CString -> -- name : TBasicType TUTF8 - CString -> -- exec : TBasicType TUTF8 - Int32 -> -- count : TBasicType TInt32 - Int64 -> -- stamp : TBasicType TInt64 - Ptr (Ptr GError) -> -- error - IO CInt - - -bookmarkFileSetAppInfo :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- uri - T.Text -> -- name - T.Text -> -- exec - Int32 -> -- count - Int64 -> -- stamp - m () -bookmarkFileSetAppInfo _obj uri name exec count stamp = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - name' <- textToCString name - exec' <- textToCString exec - onException (do - _ <- propagateGError $ g_bookmark_file_set_app_info _obj' uri' name' exec' count stamp - touchManagedPtr _obj - freeMem uri' - freeMem name' - freeMem exec' - return () - ) (do - freeMem uri' - freeMem name' - freeMem exec' - ) - --- method BookmarkFile::set_description --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 - -foreign import ccall "g_bookmark_file_set_description" g_bookmark_file_set_description :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- uri : TBasicType TUTF8 - CString -> -- description : TBasicType TUTF8 - IO () - - -bookmarkFileSetDescription :: - (MonadIO m) => - BookmarkFile -> -- _obj - Maybe (T.Text) -> -- uri - T.Text -> -- description - m () -bookmarkFileSetDescription _obj uri description = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeUri <- case uri of - Nothing -> return nullPtr - Just jUri -> do - jUri' <- textToCString jUri - return jUri' - description' <- textToCString description - g_bookmark_file_set_description _obj' maybeUri description' - touchManagedPtr _obj - freeMem maybeUri - freeMem description' - return () - --- method BookmarkFile::set_groups --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "groups", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "groups", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_bookmark_file_set_groups" g_bookmark_file_set_groups :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- uri : TBasicType TUTF8 - CString -> -- groups : TBasicType TUTF8 - Word64 -> -- length : TBasicType TUInt64 - IO () - - -bookmarkFileSetGroups :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- uri - Maybe (T.Text) -> -- groups - Word64 -> -- length - m () -bookmarkFileSetGroups _obj uri groups length_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - maybeGroups <- case groups of - Nothing -> return nullPtr - Just jGroups -> do - jGroups' <- textToCString jGroups - return jGroups' - g_bookmark_file_set_groups _obj' uri' maybeGroups length_ - touchManagedPtr _obj - freeMem uri' - freeMem maybeGroups - return () - --- method BookmarkFile::set_icon --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "href", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "href", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mime_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_bookmark_file_set_icon" g_bookmark_file_set_icon :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- uri : TBasicType TUTF8 - CString -> -- href : TBasicType TUTF8 - CString -> -- mime_type : TBasicType TUTF8 - IO () - - -bookmarkFileSetIcon :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- uri - Maybe (T.Text) -> -- href - T.Text -> -- mime_type - m () -bookmarkFileSetIcon _obj uri href mime_type = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - maybeHref <- case href of - Nothing -> return nullPtr - Just jHref -> do - jHref' <- textToCString jHref - return jHref' - mime_type' <- textToCString mime_type - g_bookmark_file_set_icon _obj' uri' maybeHref mime_type' - touchManagedPtr _obj - freeMem uri' - freeMem maybeHref - freeMem mime_type' - return () - --- method BookmarkFile::set_is_private --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "is_private", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "is_private", 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_bookmark_file_set_is_private" g_bookmark_file_set_is_private :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- uri : TBasicType TUTF8 - CInt -> -- is_private : TBasicType TBoolean - IO () - - -bookmarkFileSetIsPrivate :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- uri - Bool -> -- is_private - m () -bookmarkFileSetIsPrivate _obj uri is_private = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - let is_private' = (fromIntegral . fromEnum) is_private - g_bookmark_file_set_is_private _obj' uri' is_private' - touchManagedPtr _obj - freeMem uri' - return () - --- method BookmarkFile::set_mime_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "mime_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_bookmark_file_set_mime_type" g_bookmark_file_set_mime_type :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- uri : TBasicType TUTF8 - CString -> -- mime_type : TBasicType TUTF8 - IO () - - -bookmarkFileSetMimeType :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- uri - T.Text -> -- mime_type - m () -bookmarkFileSetMimeType _obj uri mime_type = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - mime_type' <- textToCString mime_type - g_bookmark_file_set_mime_type _obj' uri' mime_type' - touchManagedPtr _obj - freeMem uri' - freeMem mime_type' - return () - --- method BookmarkFile::set_modified --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "modified", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "modified", 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_bookmark_file_set_modified" g_bookmark_file_set_modified :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- uri : TBasicType TUTF8 - Int64 -> -- modified : TBasicType TInt64 - IO () - - -bookmarkFileSetModified :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- uri - Int64 -> -- modified - m () -bookmarkFileSetModified _obj uri modified = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - g_bookmark_file_set_modified _obj' uri' modified - touchManagedPtr _obj - freeMem uri' - return () - --- method BookmarkFile::set_title --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 - -foreign import ccall "g_bookmark_file_set_title" g_bookmark_file_set_title :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- uri : TBasicType TUTF8 - CString -> -- title : TBasicType TUTF8 - IO () - - -bookmarkFileSetTitle :: - (MonadIO m) => - BookmarkFile -> -- _obj - Maybe (T.Text) -> -- uri - T.Text -> -- title - m () -bookmarkFileSetTitle _obj uri title = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeUri <- case uri of - Nothing -> return nullPtr - Just jUri -> do - jUri' <- textToCString jUri - return jUri' - title' <- textToCString title - g_bookmark_file_set_title _obj' maybeUri title' - touchManagedPtr _obj - freeMem maybeUri - freeMem title' - return () - --- method BookmarkFile::set_visited --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "visited", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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 = "visited", 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_bookmark_file_set_visited" g_bookmark_file_set_visited :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- uri : TBasicType TUTF8 - Int64 -> -- visited : TBasicType TInt64 - IO () - - -bookmarkFileSetVisited :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- uri - Int64 -> -- visited - m () -bookmarkFileSetVisited _obj uri visited = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - g_bookmark_file_set_visited _obj' uri' visited - touchManagedPtr _obj - freeMem uri' - return () - --- method BookmarkFile::to_data --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : True --- Skip return : False - -foreign import ccall "g_bookmark_file_to_data" g_bookmark_file_to_data :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - Ptr Word64 -> -- length : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO CString - - -bookmarkFileToData :: - (MonadIO m) => - BookmarkFile -> -- _obj - m (T.Text,Word64) -bookmarkFileToData _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - length_ <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_bookmark_file_to_data _obj' length_ - checkUnexpectedReturnNULL "g_bookmark_file_to_data" result - result' <- cstringToText result - freeMem result - length_' <- peek length_ - touchManagedPtr _obj - freeMem length_ - return (result', length_') - ) (do - freeMem length_ - ) - --- method BookmarkFile::to_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", 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_bookmark_file_to_file" g_bookmark_file_to_file :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - CString -> -- filename : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -bookmarkFileToFile :: - (MonadIO m) => - BookmarkFile -> -- _obj - T.Text -> -- filename - m () -bookmarkFileToFile _obj filename = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - filename' <- textToCString filename - onException (do - _ <- propagateGError $ g_bookmark_file_to_file _obj' filename' - touchManagedPtr _obj - freeMem filename' - return () - ) (do - freeMem filename' - ) - - diff --git a/GI/GLib/Structs/BookmarkFile.hs-boot b/GI/GLib/Structs/BookmarkFile.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/BookmarkFile.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.BookmarkFile 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 - -newtype BookmarkFile = BookmarkFile (ForeignPtr BookmarkFile) diff --git a/GI/GLib/Structs/ByteArray.hs b/GI/GLib/Structs/ByteArray.hs deleted file mode 100644 --- a/GI/GLib/Structs/ByteArray.hs +++ /dev/null @@ -1,61 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Contains the public fields of a GByteArray. --} - -module GI.GLib.Structs.ByteArray - ( - --- * Exported types - ByteArray(..) , - noByteArray , - - - -- * Properties --- ** Data - byteArrayReadData , - - --- ** Len - byteArrayReadLen , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype ByteArray = ByteArray (ForeignPtr ByteArray) -foreign import ccall "g_byte_array_get_type" c_g_byte_array_get_type :: - IO GType - -instance BoxedObject ByteArray where - boxedType _ = c_g_byte_array_get_type - -noByteArray :: Maybe ByteArray -noByteArray = Nothing - -byteArrayReadData :: ByteArray -> IO Word8 -byteArrayReadData s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word8 - return val - -byteArrayReadLen :: ByteArray -> IO Word32 -byteArrayReadLen s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word32 - return val - - diff --git a/GI/GLib/Structs/ByteArray.hs-boot b/GI/GLib/Structs/ByteArray.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/ByteArray.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.GLib.Structs.ByteArray 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 - -newtype ByteArray = ByteArray (ForeignPtr ByteArray) -instance BoxedObject ByteArray where diff --git a/GI/GLib/Structs/Bytes.hs b/GI/GLib/Structs/Bytes.hs deleted file mode 100644 --- a/GI/GLib/Structs/Bytes.hs +++ /dev/null @@ -1,449 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A simple refcounted data type representing an immutable sequence of zero or -more bytes from an unspecified origin. - -The purpose of a #GBytes is to keep the memory region that it holds -alive for as long as anyone holds a reference to the bytes. When -the last reference count is dropped, the memory is released. Multiple -unrelated callers can use byte data in the #GBytes without coordinating -their activities, resting assured that the byte data will not change or -move while they hold a reference. - -A #GBytes can come from many different origins that may have -different procedures for freeing the memory region. Examples are -memory from g_malloc(), from memory slices, from a #GMappedFile or -memory from other allocators. - -#GBytes work well as keys in #GHashTable. Use g_bytes_equal() and -g_bytes_hash() as parameters to g_hash_table_new() or g_hash_table_new_full(). -#GBytes can also be used as keys in a #GTree by passing the g_bytes_compare() -function to g_tree_new(). - -The data pointed to by this bytes must not be modified. For a mutable -array of bytes see #GByteArray. Use g_bytes_unref_to_array() to create a -mutable array for a #GBytes sequence. To create an immutable #GBytes from -a mutable #GByteArray, use the g_byte_array_free_to_bytes() function. --} - -module GI.GLib.Structs.Bytes - ( - --- * Exported types - Bytes(..) , - noBytes , - - - -- * Methods --- ** bytesCompare - bytesCompare , - - --- ** bytesEqual - bytesEqual , - - --- ** bytesGetData - bytesGetData , - - --- ** bytesGetSize - bytesGetSize , - - --- ** bytesHash - bytesHash , - - --- ** bytesNew - bytesNew , - - --- ** bytesNewFromBytes - bytesNewFromBytes , - - --- ** bytesNewTake - bytesNewTake , - - --- ** bytesRef - bytesRef , - - --- ** bytesUnref - bytesUnref , - - --- ** bytesUnrefToArray - bytesUnrefToArray , - - --- ** bytesUnrefToData - bytesUnrefToData , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Bytes = Bytes (ForeignPtr Bytes) -foreign import ccall "g_bytes_get_type" c_g_bytes_get_type :: - IO GType - -instance BoxedObject Bytes where - boxedType _ = c_g_bytes_get_type - -noBytes :: Maybe Bytes -noBytes = Nothing - --- method Bytes::new --- method type : Constructor --- Args : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, 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}] --- Lengths : [Arg {argName = "size", argType = TBasicType TUInt64, 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 = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "Bytes" --- throws : False --- Skip return : False - -foreign import ccall "g_bytes_new" g_bytes_new :: - Ptr Word8 -> -- data : TCArray False (-1) 1 (TBasicType TUInt8) - Word64 -> -- size : TBasicType TUInt64 - IO (Ptr Bytes) - - -bytesNew :: - (MonadIO m) => - Maybe (ByteString) -> -- data - m Bytes -bytesNew data_ = liftIO $ do - let size = case data_ of - Nothing -> 0 - Just jData_ -> fromIntegral $ B.length jData_ - maybeData_ <- case data_ of - Nothing -> return nullPtr - Just jData_ -> do - jData_' <- packByteString jData_ - return jData_' - result <- g_bytes_new maybeData_ size - checkUnexpectedReturnNULL "g_bytes_new" result - result' <- (wrapBoxed Bytes) result - freeMem maybeData_ - return result' - --- method Bytes::new_take --- method type : Constructor --- Args : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "size", argType = TBasicType TUInt64, 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 = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- returnType : TInterface "GLib" "Bytes" --- throws : False --- Skip return : False - -foreign import ccall "g_bytes_new_take" g_bytes_new_take :: - Ptr Word8 -> -- data : TCArray False (-1) 1 (TBasicType TUInt8) - Word64 -> -- size : TBasicType TUInt64 - IO (Ptr Bytes) - - -bytesNewTake :: - (MonadIO m) => - Maybe (ByteString) -> -- data - m Bytes -bytesNewTake data_ = liftIO $ do - let size = case data_ of - Nothing -> 0 - Just jData_ -> fromIntegral $ B.length jData_ - maybeData_ <- case data_ of - Nothing -> return nullPtr - Just jData_ -> do - jData_' <- packByteString jData_ - return jData_' - result <- g_bytes_new_take maybeData_ size - checkUnexpectedReturnNULL "g_bytes_new_take" result - result' <- (wrapBoxed Bytes) result - return result' - --- method Bytes::compare --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes2", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes2", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_bytes_compare" g_bytes_compare :: - Ptr Bytes -> -- _obj : TInterface "GLib" "Bytes" - Ptr Bytes -> -- bytes2 : TInterface "GLib" "Bytes" - IO Int32 - - -bytesCompare :: - (MonadIO m) => - Bytes -> -- _obj - Bytes -> -- bytes2 - m Int32 -bytesCompare _obj bytes2 = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let bytes2' = unsafeManagedPtrGetPtr bytes2 - result <- g_bytes_compare _obj' bytes2' - touchManagedPtr _obj - touchManagedPtr bytes2 - return result - --- method Bytes::equal --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes2", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes2", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_bytes_equal" g_bytes_equal :: - Ptr Bytes -> -- _obj : TInterface "GLib" "Bytes" - Ptr Bytes -> -- bytes2 : TInterface "GLib" "Bytes" - IO CInt - - -bytesEqual :: - (MonadIO m) => - Bytes -> -- _obj - Bytes -> -- bytes2 - m Bool -bytesEqual _obj bytes2 = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let bytes2' = unsafeManagedPtrGetPtr bytes2 - result <- g_bytes_equal _obj' bytes2' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr bytes2 - return result' - --- method Bytes::get_data --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", 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}] --- Lengths : [Arg {argName = "size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TCArray False (-1) 1 (TBasicType TUInt8) --- throws : False --- Skip return : False - -foreign import ccall "g_bytes_get_data" g_bytes_get_data :: - Ptr Bytes -> -- _obj : TInterface "GLib" "Bytes" - Ptr Word64 -> -- size : TBasicType TUInt64 - IO (Ptr Word8) - - -bytesGetData :: - (MonadIO m) => - Bytes -> -- _obj - m ByteString -bytesGetData _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - size <- allocMem :: IO (Ptr Word64) - result <- g_bytes_get_data _obj' size - size' <- peek size - checkUnexpectedReturnNULL "g_bytes_get_data" result - result' <- (unpackByteStringWithLength size') result - touchManagedPtr _obj - freeMem size - return result' - --- method Bytes::get_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt64 --- throws : False --- Skip return : False - -foreign import ccall "g_bytes_get_size" g_bytes_get_size :: - Ptr Bytes -> -- _obj : TInterface "GLib" "Bytes" - IO Word64 - - -bytesGetSize :: - (MonadIO m) => - Bytes -> -- _obj - m Word64 -bytesGetSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_bytes_get_size _obj' - touchManagedPtr _obj - return result - --- method Bytes::hash --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_bytes_hash" g_bytes_hash :: - Ptr Bytes -> -- _obj : TInterface "GLib" "Bytes" - IO Word32 - - -bytesHash :: - (MonadIO m) => - Bytes -> -- _obj - m Word32 -bytesHash _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_bytes_hash _obj' - touchManagedPtr _obj - return result - --- method Bytes::new_from_bytes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", 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 = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", 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 = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "Bytes" --- throws : False --- Skip return : False - -foreign import ccall "g_bytes_new_from_bytes" g_bytes_new_from_bytes :: - Ptr Bytes -> -- _obj : TInterface "GLib" "Bytes" - Word64 -> -- offset : TBasicType TUInt64 - Word64 -> -- length : TBasicType TUInt64 - IO (Ptr Bytes) - - -bytesNewFromBytes :: - (MonadIO m) => - Bytes -> -- _obj - Word64 -> -- offset - Word64 -> -- length - m Bytes -bytesNewFromBytes _obj offset length_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_bytes_new_from_bytes _obj' offset length_ - checkUnexpectedReturnNULL "g_bytes_new_from_bytes" result - result' <- (wrapBoxed Bytes) result - touchManagedPtr _obj - return result' - --- method Bytes::ref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "Bytes" --- throws : False --- Skip return : False - -foreign import ccall "g_bytes_ref" g_bytes_ref :: - Ptr Bytes -> -- _obj : TInterface "GLib" "Bytes" - IO (Ptr Bytes) - - -bytesRef :: - (MonadIO m) => - Bytes -> -- _obj - m Bytes -bytesRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_bytes_ref _obj' - checkUnexpectedReturnNULL "g_bytes_ref" result - result' <- (wrapBoxed Bytes) result - touchManagedPtr _obj - return result' - --- method Bytes::unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_bytes_unref" g_bytes_unref :: - Ptr Bytes -> -- _obj : TInterface "GLib" "Bytes" - IO () - - -bytesUnref :: - (MonadIO m) => - Bytes -> -- _obj - m () -bytesUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_bytes_unref _obj' - touchManagedPtr _obj - return () - --- method Bytes::unref_to_array --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TByteArray --- throws : False --- Skip return : False - -foreign import ccall "g_bytes_unref_to_array" g_bytes_unref_to_array :: - Ptr Bytes -> -- _obj : TInterface "GLib" "Bytes" - IO (Ptr GByteArray) - - -bytesUnrefToArray :: - (MonadIO m) => - Bytes -> -- _obj - m ByteString -bytesUnrefToArray _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_bytes_unref_to_array _obj' - checkUnexpectedReturnNULL "g_bytes_unref_to_array" result - result' <- unpackGByteArray result - unrefGByteArray result - touchManagedPtr _obj - return result' - --- method Bytes::unref_to_data --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Bytes", 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 - -foreign import ccall "g_bytes_unref_to_data" g_bytes_unref_to_data :: - Ptr Bytes -> -- _obj : TInterface "GLib" "Bytes" - Word64 -> -- size : TBasicType TUInt64 - IO () - - -bytesUnrefToData :: - (MonadIO m) => - Bytes -> -- _obj - Word64 -> -- size - m () -bytesUnrefToData _obj size = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_bytes_unref_to_data _obj' size - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Structs/Bytes.hs-boot b/GI/GLib/Structs/Bytes.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/Bytes.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.GLib.Structs.Bytes 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 - -newtype Bytes = Bytes (ForeignPtr Bytes) -instance BoxedObject Bytes where diff --git a/GI/GLib/Structs/Checksum.hs b/GI/GLib/Structs/Checksum.hs deleted file mode 100644 --- a/GI/GLib/Structs/Checksum.hs +++ /dev/null @@ -1,224 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -An opaque structure representing a checksumming operation. -To create a new GChecksum, use g_checksum_new(). To free -a GChecksum, use g_checksum_free(). --} - -module GI.GLib.Structs.Checksum - ( - --- * Exported types - Checksum(..) , - noChecksum , - - - -- * Methods --- ** checksumCopy - checksumCopy , - - --- ** checksumFree - checksumFree , - - --- ** checksumGetString - checksumGetString , - - --- ** checksumNew - checksumNew , - - --- ** checksumReset - checksumReset , - - --- ** checksumUpdate - checksumUpdate , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Checksum = Checksum (ForeignPtr Checksum) -foreign import ccall "g_checksum_get_type" c_g_checksum_get_type :: - IO GType - -instance BoxedObject Checksum where - boxedType _ = c_g_checksum_get_type - -noChecksum :: Maybe Checksum -noChecksum = Nothing - --- method Checksum::new --- method type : Constructor --- Args : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "Checksum" --- throws : False --- Skip return : False - -foreign import ccall "g_checksum_new" g_checksum_new :: - CUInt -> -- checksum_type : TInterface "GLib" "ChecksumType" - IO (Ptr Checksum) - - -checksumNew :: - (MonadIO m) => - ChecksumType -> -- checksum_type - m Checksum -checksumNew checksum_type = liftIO $ do - let checksum_type' = (fromIntegral . fromEnum) checksum_type - result <- g_checksum_new checksum_type' - checkUnexpectedReturnNULL "g_checksum_new" result - result' <- (wrapBoxed Checksum) result - return result' - --- method Checksum::copy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "Checksum" --- throws : False --- Skip return : False - -foreign import ccall "g_checksum_copy" g_checksum_copy :: - Ptr Checksum -> -- _obj : TInterface "GLib" "Checksum" - IO (Ptr Checksum) - - -checksumCopy :: - (MonadIO m) => - Checksum -> -- _obj - m Checksum -checksumCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_checksum_copy _obj' - checkUnexpectedReturnNULL "g_checksum_copy" result - result' <- (wrapBoxed Checksum) result - touchManagedPtr _obj - return result' - --- method Checksum::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_checksum_free" g_checksum_free :: - Ptr Checksum -> -- _obj : TInterface "GLib" "Checksum" - IO () - - -checksumFree :: - (MonadIO m) => - Checksum -> -- _obj - m () -checksumFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_checksum_free _obj' - touchManagedPtr _obj - return () - --- method Checksum::get_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_checksum_get_string" g_checksum_get_string :: - Ptr Checksum -> -- _obj : TInterface "GLib" "Checksum" - IO CString - - -checksumGetString :: - (MonadIO m) => - Checksum -> -- _obj - m T.Text -checksumGetString _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_checksum_get_string _obj' - checkUnexpectedReturnNULL "g_checksum_get_string" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Checksum::reset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_checksum_reset" g_checksum_reset :: - Ptr Checksum -> -- _obj : TInterface "GLib" "Checksum" - IO () - - -checksumReset :: - (MonadIO m) => - Checksum -> -- _obj - m () -checksumReset _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_checksum_reset _obj' - touchManagedPtr _obj - return () - --- method Checksum::update --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", 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},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Checksum", 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}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_checksum_update" g_checksum_update :: - Ptr Checksum -> -- _obj : TInterface "GLib" "Checksum" - Ptr Word8 -> -- data : TCArray False (-1) 2 (TBasicType TUInt8) - Int64 -> -- length : TBasicType TInt64 - IO () - - -checksumUpdate :: - (MonadIO m) => - Checksum -> -- _obj - ByteString -> -- data - m () -checksumUpdate _obj data_ = liftIO $ do - let length_ = fromIntegral $ B.length data_ - let _obj' = unsafeManagedPtrGetPtr _obj - data_' <- packByteString data_ - g_checksum_update _obj' data_' length_ - touchManagedPtr _obj - freeMem data_' - return () - - diff --git a/GI/GLib/Structs/Checksum.hs-boot b/GI/GLib/Structs/Checksum.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/Checksum.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.GLib.Structs.Checksum 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 - -newtype Checksum = Checksum (ForeignPtr Checksum) -instance BoxedObject Checksum where diff --git a/GI/GLib/Structs/Cond.hs b/GI/GLib/Structs/Cond.hs deleted file mode 100644 --- a/GI/GLib/Structs/Cond.hs +++ /dev/null @@ -1,280 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The #GCond struct is an opaque data structure that represents a -condition. Threads can block on a #GCond if they find a certain -condition to be false. If other threads change the state of this -condition they signal the #GCond, and that causes the waiting -threads to be woken up. - -Consider the following example of a shared variable. One or more -threads can wait for data to be published to the variable and when -another thread publishes the data, it can signal one of the waiting -threads to wake up to collect the data. - -Here is an example for using GCond to block a thread until a condition -is satisfied: -|[ - gpointer current_data = NULL; - GMutex data_mutex; - GCond data_cond; - - void - push_data (gpointer data) - { - g_mutex_lock (&data_mutex); - current_data = data; - g_cond_signal (&data_cond); - g_mutex_unlock (&data_mutex); - } - - gpointer - pop_data (void) - { - gpointer data; - - g_mutex_lock (&data_mutex); - while (!current_data) - g_cond_wait (&data_cond, &data_mutex); - data = current_data; - current_data = NULL; - g_mutex_unlock (&data_mutex); - - return data; - } -]| -Whenever a thread calls pop_data() now, it will wait until -current_data is non-%NULL, i.e. until some other thread -has called push_data(). - -The example shows that use of a condition variable must always be -paired with a mutex. Without the use of a mutex, there would be a -race between the check of @current_data by the while loop in -pop_data() and waiting. Specifically, another thread could set -@current_data after the check, and signal the cond (with nobody -waiting on it) before the first thread goes to sleep. #GCond is -specifically useful for its ability to release the mutex and go -to sleep atomically. - -It is also important to use the g_cond_wait() and g_cond_wait_until() -functions only inside a loop which checks for the condition to be -true. See g_cond_wait() for an explanation of why the condition may -not be true even after it returns. - -If a #GCond is allocated in static storage then it can be used -without initialisation. Otherwise, you should call g_cond_init() -on it and g_cond_clear() when done. - -A #GCond should only be accessed via the g_cond_ functions. --} - -module GI.GLib.Structs.Cond - ( - --- * Exported types - Cond(..) , - noCond , - - - -- * Methods --- ** condBroadcast - condBroadcast , - - --- ** condClear - condClear , - - --- ** condInit - condInit , - - --- ** condSignal - condSignal , - - --- ** condWait - condWait , - - --- ** condWaitUntil - condWaitUntil , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Cond = Cond (ForeignPtr Cond) -noCond :: Maybe Cond -noCond = Nothing - --- method Cond::broadcast --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_cond_broadcast" g_cond_broadcast :: - Ptr Cond -> -- _obj : TInterface "GLib" "Cond" - IO () - - -condBroadcast :: - (MonadIO m) => - Cond -> -- _obj - m () -condBroadcast _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_cond_broadcast _obj' - touchManagedPtr _obj - return () - --- method Cond::clear --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_cond_clear" g_cond_clear :: - Ptr Cond -> -- _obj : TInterface "GLib" "Cond" - IO () - - -condClear :: - (MonadIO m) => - Cond -> -- _obj - m () -condClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_cond_clear _obj' - touchManagedPtr _obj - return () - --- method Cond::init --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_cond_init" g_cond_init :: - Ptr Cond -> -- _obj : TInterface "GLib" "Cond" - IO () - - -condInit :: - (MonadIO m) => - Cond -> -- _obj - m () -condInit _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_cond_init _obj' - touchManagedPtr _obj - return () - --- method Cond::signal --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_cond_signal" g_cond_signal :: - Ptr Cond -> -- _obj : TInterface "GLib" "Cond" - IO () - - -condSignal :: - (MonadIO m) => - Cond -> -- _obj - m () -condSignal _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_cond_signal _obj' - touchManagedPtr _obj - return () - --- method Cond::wait --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mutex", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mutex", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_cond_wait" g_cond_wait :: - Ptr Cond -> -- _obj : TInterface "GLib" "Cond" - Ptr Mutex -> -- mutex : TInterface "GLib" "Mutex" - IO () - - -condWait :: - (MonadIO m) => - Cond -> -- _obj - Mutex -> -- mutex - m () -condWait _obj mutex = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let mutex' = unsafeManagedPtrGetPtr mutex - g_cond_wait _obj' mutex' - touchManagedPtr _obj - touchManagedPtr mutex - return () - --- method Cond::wait_until --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mutex", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_time", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mutex", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end_time", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_cond_wait_until" g_cond_wait_until :: - Ptr Cond -> -- _obj : TInterface "GLib" "Cond" - Ptr Mutex -> -- mutex : TInterface "GLib" "Mutex" - Int64 -> -- end_time : TBasicType TInt64 - IO CInt - - -condWaitUntil :: - (MonadIO m) => - Cond -> -- _obj - Mutex -> -- mutex - Int64 -> -- end_time - m Bool -condWaitUntil _obj mutex end_time = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let mutex' = unsafeManagedPtrGetPtr mutex - result <- g_cond_wait_until _obj' mutex' end_time - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr mutex - return result' - - diff --git a/GI/GLib/Structs/Cond.hs-boot b/GI/GLib/Structs/Cond.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/Cond.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.Cond 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 - -newtype Cond = Cond (ForeignPtr Cond) diff --git a/GI/GLib/Structs/Data.hs b/GI/GLib/Structs/Data.hs deleted file mode 100644 --- a/GI/GLib/Structs/Data.hs +++ /dev/null @@ -1,36 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The #GData struct is an opaque data structure to represent a -[Keyed Data List][glib-Keyed-Data-Lists]. It should only be -accessed via the following functions. --} - -module GI.GLib.Structs.Data - ( - --- * Exported types - Data(..) , - noData , - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Data = Data (ForeignPtr Data) -noData :: Maybe Data -noData = Nothing - - diff --git a/GI/GLib/Structs/Data.hs-boot b/GI/GLib/Structs/Data.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/Data.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.Data 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 - -newtype Data = Data (ForeignPtr Data) diff --git a/GI/GLib/Structs/Date.hs b/GI/GLib/Structs/Date.hs deleted file mode 100644 --- a/GI/GLib/Structs/Date.hs +++ /dev/null @@ -1,1218 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Represents a day between January 1, Year 1 and a few thousand years in -the future. None of its members should be accessed directly. - -If the #GDate-struct is obtained from g_date_new(), it will be safe -to mutate but invalid and thus not safe for calendrical computations. - -If it's declared on the stack, it will contain garbage so must be -initialized with g_date_clear(). g_date_clear() makes the date invalid -but sane. An invalid date doesn't represent a day, it's "empty." A date -becomes valid after you set it to a Julian day or you set a day, month, -and year. --} - -module GI.GLib.Structs.Date - ( - --- * Exported types - Date(..) , - noDate , - - - -- * Methods --- ** dateAddDays - dateAddDays , - - --- ** dateAddMonths - dateAddMonths , - - --- ** dateAddYears - dateAddYears , - - --- ** dateClamp - dateClamp , - - --- ** dateClear - dateClear , - - --- ** dateCompare - dateCompare , - - --- ** dateDaysBetween - dateDaysBetween , - - --- ** dateFree - dateFree , - - --- ** dateGetDay - dateGetDay , - - --- ** dateGetDayOfYear - dateGetDayOfYear , - - --- ** dateGetIso8601WeekOfYear - dateGetIso8601WeekOfYear , - - --- ** dateGetJulian - dateGetJulian , - - --- ** dateGetMondayWeekOfYear - dateGetMondayWeekOfYear , - - --- ** dateGetMonth - dateGetMonth , - - --- ** dateGetSundayWeekOfYear - dateGetSundayWeekOfYear , - - --- ** dateGetWeekday - dateGetWeekday , - - --- ** dateGetYear - dateGetYear , - - --- ** dateIsFirstOfMonth - dateIsFirstOfMonth , - - --- ** dateIsLastOfMonth - dateIsLastOfMonth , - - --- ** dateNew - dateNew , - - --- ** dateNewDmy - dateNewDmy , - - --- ** dateNewJulian - dateNewJulian , - - --- ** dateOrder - dateOrder , - - --- ** dateSetDay - dateSetDay , - - --- ** dateSetDmy - dateSetDmy , - - --- ** dateSetJulian - dateSetJulian , - - --- ** dateSetMonth - dateSetMonth , - - --- ** dateSetParse - dateSetParse , - - --- ** dateSetTime - dateSetTime , - - --- ** dateSetTimeT - dateSetTimeT , - - --- ** dateSetTimeVal - dateSetTimeVal , - - --- ** dateSetYear - dateSetYear , - - --- ** dateSubtractDays - dateSubtractDays , - - --- ** dateSubtractMonths - dateSubtractMonths , - - --- ** dateSubtractYears - dateSubtractYears , - - --- ** dateToStructTm - dateToStructTm , - - --- ** dateValid - dateValid , - - - - - -- * Properties --- ** Day - dateReadDay , - - --- ** Dmy - dateReadDmy , - - --- ** Julian - dateReadJulian , - - --- ** JulianDays - dateReadJulianDays , - - --- ** Month - dateReadMonth , - - --- ** Year - dateReadYear , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Date = Date (ForeignPtr Date) -foreign import ccall "g_date_get_type" c_g_date_get_type :: - IO GType - -instance BoxedObject Date where - boxedType _ = c_g_date_get_type - -noDate :: Maybe Date -noDate = Nothing - -dateReadJulianDays :: Date -> IO Word32 -dateReadJulianDays s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word32 - return val - -dateReadJulian :: Date -> IO Word32 -dateReadJulian s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Word32 - return val - -dateReadDmy :: Date -> IO Word32 -dateReadDmy s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word32 - return val - -dateReadDay :: Date -> IO Word32 -dateReadDay s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Word32 - return val - -dateReadMonth :: Date -> IO Word32 -dateReadMonth s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Word32 - return val - -dateReadYear :: Date -> IO Word32 -dateReadYear s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO Word32 - return val - --- method Date::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "GLib" "Date" --- throws : False --- Skip return : False - -foreign import ccall "g_date_new" g_date_new :: - IO (Ptr Date) - - -dateNew :: - (MonadIO m) => - m Date -dateNew = liftIO $ do - result <- g_date_new - checkUnexpectedReturnNULL "g_date_new" result - result' <- (wrapBoxed Date) result - return result' - --- method Date::new_dmy --- method type : Constructor --- Args : [Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "Date" --- throws : False --- Skip return : False - -foreign import ccall "g_date_new_dmy" g_date_new_dmy :: - Word8 -> -- day : TBasicType TUInt8 - CUInt -> -- month : TInterface "GLib" "DateMonth" - Word16 -> -- year : TBasicType TUInt16 - IO (Ptr Date) - - -dateNewDmy :: - (MonadIO m) => - Word8 -> -- day - DateMonth -> -- month - Word16 -> -- year - m Date -dateNewDmy day month year = liftIO $ do - let month' = (fromIntegral . fromEnum) month - result <- g_date_new_dmy day month' year - checkUnexpectedReturnNULL "g_date_new_dmy" result - result' <- (wrapBoxed Date) result - return result' - --- method Date::new_julian --- method type : Constructor --- Args : [Arg {argName = "julian_day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "julian_day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "Date" --- throws : False --- Skip return : False - -foreign import ccall "g_date_new_julian" g_date_new_julian :: - Word32 -> -- julian_day : TBasicType TUInt32 - IO (Ptr Date) - - -dateNewJulian :: - (MonadIO m) => - Word32 -> -- julian_day - m Date -dateNewJulian julian_day = liftIO $ do - result <- g_date_new_julian julian_day - checkUnexpectedReturnNULL "g_date_new_julian" result - result' <- (wrapBoxed Date) result - return result' - --- method Date::add_days --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_days", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_days", 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_date_add_days" g_date_add_days :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - Word32 -> -- n_days : TBasicType TUInt32 - IO () - - -dateAddDays :: - (MonadIO m) => - Date -> -- _obj - Word32 -> -- n_days - m () -dateAddDays _obj n_days = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_add_days _obj' n_days - touchManagedPtr _obj - return () - --- method Date::add_months --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_months", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_months", 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_date_add_months" g_date_add_months :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - Word32 -> -- n_months : TBasicType TUInt32 - IO () - - -dateAddMonths :: - (MonadIO m) => - Date -> -- _obj - Word32 -> -- n_months - m () -dateAddMonths _obj n_months = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_add_months _obj' n_months - touchManagedPtr _obj - return () - --- method Date::add_years --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_years", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_years", 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_date_add_years" g_date_add_years :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - Word32 -> -- n_years : TBasicType TUInt32 - IO () - - -dateAddYears :: - (MonadIO m) => - Date -> -- _obj - Word32 -> -- n_years - m () -dateAddYears _obj n_years = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_add_years _obj' n_years - touchManagedPtr _obj - return () - --- method Date::clamp --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min_date", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_date", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "min_date", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_date", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_date_clamp" g_date_clamp :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - Ptr Date -> -- min_date : TInterface "GLib" "Date" - Ptr Date -> -- max_date : TInterface "GLib" "Date" - IO () - - -dateClamp :: - (MonadIO m) => - Date -> -- _obj - Date -> -- min_date - Date -> -- max_date - m () -dateClamp _obj min_date max_date = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let min_date' = unsafeManagedPtrGetPtr min_date - let max_date' = unsafeManagedPtrGetPtr max_date - g_date_clamp _obj' min_date' max_date' - touchManagedPtr _obj - touchManagedPtr min_date - touchManagedPtr max_date - return () - --- method Date::clear --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_dates", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_dates", 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_date_clear" g_date_clear :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - Word32 -> -- n_dates : TBasicType TUInt32 - IO () - - -dateClear :: - (MonadIO m) => - Date -> -- _obj - Word32 -> -- n_dates - m () -dateClear _obj n_dates = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_clear _obj' n_dates - touchManagedPtr _obj - return () - --- method Date::compare --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rhs", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rhs", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_date_compare" g_date_compare :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - Ptr Date -> -- rhs : TInterface "GLib" "Date" - IO Int32 - - -dateCompare :: - (MonadIO m) => - Date -> -- _obj - Date -> -- rhs - m Int32 -dateCompare _obj rhs = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let rhs' = unsafeManagedPtrGetPtr rhs - result <- g_date_compare _obj' rhs' - touchManagedPtr _obj - touchManagedPtr rhs - return result - --- method Date::days_between --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "date2", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "date2", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_date_days_between" g_date_days_between :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - Ptr Date -> -- date2 : TInterface "GLib" "Date" - IO Int32 - - -dateDaysBetween :: - (MonadIO m) => - Date -> -- _obj - Date -> -- date2 - m Int32 -dateDaysBetween _obj date2 = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let date2' = unsafeManagedPtrGetPtr date2 - result <- g_date_days_between _obj' date2' - touchManagedPtr _obj - touchManagedPtr date2 - return result - --- method Date::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_date_free" g_date_free :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - IO () - - -dateFree :: - (MonadIO m) => - Date -> -- _obj - m () -dateFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_free _obj' - touchManagedPtr _obj - return () - --- method Date::get_day --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt8 --- throws : False --- Skip return : False - -foreign import ccall "g_date_get_day" g_date_get_day :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - IO Word8 - - -dateGetDay :: - (MonadIO m) => - Date -> -- _obj - m Word8 -dateGetDay _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_get_day _obj' - touchManagedPtr _obj - return result - --- method Date::get_day_of_year --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_date_get_day_of_year" g_date_get_day_of_year :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - IO Word32 - - -dateGetDayOfYear :: - (MonadIO m) => - Date -> -- _obj - m Word32 -dateGetDayOfYear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_get_day_of_year _obj' - touchManagedPtr _obj - return result - --- method Date::get_iso8601_week_of_year --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_date_get_iso8601_week_of_year" g_date_get_iso8601_week_of_year :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - IO Word32 - - -dateGetIso8601WeekOfYear :: - (MonadIO m) => - Date -> -- _obj - m Word32 -dateGetIso8601WeekOfYear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_get_iso8601_week_of_year _obj' - touchManagedPtr _obj - return result - --- method Date::get_julian --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_date_get_julian" g_date_get_julian :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - IO Word32 - - -dateGetJulian :: - (MonadIO m) => - Date -> -- _obj - m Word32 -dateGetJulian _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_get_julian _obj' - touchManagedPtr _obj - return result - --- method Date::get_monday_week_of_year --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_date_get_monday_week_of_year" g_date_get_monday_week_of_year :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - IO Word32 - - -dateGetMondayWeekOfYear :: - (MonadIO m) => - Date -> -- _obj - m Word32 -dateGetMondayWeekOfYear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_get_monday_week_of_year _obj' - touchManagedPtr _obj - return result - --- method Date::get_month --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "DateMonth" --- throws : False --- Skip return : False - -foreign import ccall "g_date_get_month" g_date_get_month :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - IO CUInt - - -dateGetMonth :: - (MonadIO m) => - Date -> -- _obj - m DateMonth -dateGetMonth _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_get_month _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Date::get_sunday_week_of_year --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_date_get_sunday_week_of_year" g_date_get_sunday_week_of_year :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - IO Word32 - - -dateGetSundayWeekOfYear :: - (MonadIO m) => - Date -> -- _obj - m Word32 -dateGetSundayWeekOfYear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_get_sunday_week_of_year _obj' - touchManagedPtr _obj - return result - --- method Date::get_weekday --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "DateWeekday" --- throws : False --- Skip return : False - -foreign import ccall "g_date_get_weekday" g_date_get_weekday :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - IO CUInt - - -dateGetWeekday :: - (MonadIO m) => - Date -> -- _obj - m DateWeekday -dateGetWeekday _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_get_weekday _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Date::get_year --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt16 --- throws : False --- Skip return : False - -foreign import ccall "g_date_get_year" g_date_get_year :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - IO Word16 - - -dateGetYear :: - (MonadIO m) => - Date -> -- _obj - m Word16 -dateGetYear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_get_year _obj' - touchManagedPtr _obj - return result - --- method Date::is_first_of_month --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_date_is_first_of_month" g_date_is_first_of_month :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - IO CInt - - -dateIsFirstOfMonth :: - (MonadIO m) => - Date -> -- _obj - m Bool -dateIsFirstOfMonth _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_is_first_of_month _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Date::is_last_of_month --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_date_is_last_of_month" g_date_is_last_of_month :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - IO CInt - - -dateIsLastOfMonth :: - (MonadIO m) => - Date -> -- _obj - m Bool -dateIsLastOfMonth _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_is_last_of_month _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Date::order --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "date2", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "date2", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_date_order" g_date_order :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - Ptr Date -> -- date2 : TInterface "GLib" "Date" - IO () - - -dateOrder :: - (MonadIO m) => - Date -> -- _obj - Date -> -- date2 - m () -dateOrder _obj date2 = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let date2' = unsafeManagedPtrGetPtr date2 - g_date_order _obj' date2' - touchManagedPtr _obj - touchManagedPtr date2 - return () - --- method Date::set_day --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_date_set_day" g_date_set_day :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - Word8 -> -- day : TBasicType TUInt8 - IO () - - -dateSetDay :: - (MonadIO m) => - Date -> -- _obj - Word8 -> -- day - m () -dateSetDay _obj day = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_set_day _obj' day - touchManagedPtr _obj - return () - --- method Date::set_dmy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_date_set_dmy" g_date_set_dmy :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - Word8 -> -- day : TBasicType TUInt8 - CUInt -> -- month : TInterface "GLib" "DateMonth" - Word16 -> -- y : TBasicType TUInt16 - IO () - - -dateSetDmy :: - (MonadIO m) => - Date -> -- _obj - Word8 -> -- day - DateMonth -> -- month - Word16 -> -- y - m () -dateSetDmy _obj day month y = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let month' = (fromIntegral . fromEnum) month - g_date_set_dmy _obj' day month' y - touchManagedPtr _obj - return () - --- method Date::set_julian --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "julian_date", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "julian_date", 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_date_set_julian" g_date_set_julian :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - Word32 -> -- julian_date : TBasicType TUInt32 - IO () - - -dateSetJulian :: - (MonadIO m) => - Date -> -- _obj - Word32 -> -- julian_date - m () -dateSetJulian _obj julian_date = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_set_julian _obj' julian_date - touchManagedPtr _obj - return () - --- method Date::set_month --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_date_set_month" g_date_set_month :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - CUInt -> -- month : TInterface "GLib" "DateMonth" - IO () - - -dateSetMonth :: - (MonadIO m) => - Date -> -- _obj - DateMonth -> -- month - m () -dateSetMonth _obj month = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let month' = (fromIntegral . fromEnum) month - g_date_set_month _obj' month' - touchManagedPtr _obj - return () - --- method Date::set_parse --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", 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}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_date_set_parse" g_date_set_parse :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - CString -> -- str : TBasicType TUTF8 - IO () - - -dateSetParse :: - (MonadIO m) => - Date -> -- _obj - T.Text -> -- str - m () -dateSetParse _obj str = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - str' <- textToCString str - g_date_set_parse _obj' str' - touchManagedPtr _obj - freeMem str' - return () - --- method Date::set_time --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", 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_date_set_time" g_date_set_time :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - Int32 -> -- time_ : TBasicType TInt32 - IO () - -{-# DEPRECATED dateSetTime ["(Since version 2.10)","Use g_date_set_time_t() instead."]#-} -dateSetTime :: - (MonadIO m) => - Date -> -- _obj - Int32 -> -- time_ - m () -dateSetTime _obj time_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_set_time _obj' time_ - touchManagedPtr _obj - return () - --- method Date::set_time_t --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timet", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timet", 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_date_set_time_t" g_date_set_time_t :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - Int64 -> -- timet : TBasicType TInt64 - IO () - - -dateSetTimeT :: - (MonadIO m) => - Date -> -- _obj - Int64 -> -- timet - m () -dateSetTimeT _obj timet = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_set_time_t _obj' timet - touchManagedPtr _obj - return () - --- method Date::set_time_val --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeval", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeval", 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_date_set_time_val" g_date_set_time_val :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - Ptr TimeVal -> -- timeval : TInterface "GLib" "TimeVal" - IO () - - -dateSetTimeVal :: - (MonadIO m) => - Date -> -- _obj - TimeVal -> -- timeval - m () -dateSetTimeVal _obj timeval = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let timeval' = unsafeManagedPtrGetPtr timeval - g_date_set_time_val _obj' timeval' - touchManagedPtr _obj - touchManagedPtr timeval - return () - --- method Date::set_year --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_date_set_year" g_date_set_year :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - Word16 -> -- year : TBasicType TUInt16 - IO () - - -dateSetYear :: - (MonadIO m) => - Date -> -- _obj - Word16 -> -- year - m () -dateSetYear _obj year = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_set_year _obj' year - touchManagedPtr _obj - return () - --- method Date::subtract_days --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_days", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_days", 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_date_subtract_days" g_date_subtract_days :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - Word32 -> -- n_days : TBasicType TUInt32 - IO () - - -dateSubtractDays :: - (MonadIO m) => - Date -> -- _obj - Word32 -> -- n_days - m () -dateSubtractDays _obj n_days = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_subtract_days _obj' n_days - touchManagedPtr _obj - return () - --- method Date::subtract_months --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_months", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_months", 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_date_subtract_months" g_date_subtract_months :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - Word32 -> -- n_months : TBasicType TUInt32 - IO () - - -dateSubtractMonths :: - (MonadIO m) => - Date -> -- _obj - Word32 -> -- n_months - m () -dateSubtractMonths _obj n_months = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_subtract_months _obj' n_months - touchManagedPtr _obj - return () - --- method Date::subtract_years --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_years", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_years", 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_date_subtract_years" g_date_subtract_years :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - Word32 -> -- n_years : TBasicType TUInt32 - IO () - - -dateSubtractYears :: - (MonadIO m) => - Date -> -- _obj - Word32 -> -- n_years - m () -dateSubtractYears _obj n_years = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_subtract_years _obj' n_years - touchManagedPtr _obj - return () - --- method Date::to_struct_tm --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tm", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tm", 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_date_to_struct_tm" g_date_to_struct_tm :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - Ptr () -> -- tm : TBasicType TVoid - IO () - - -dateToStructTm :: - (MonadIO m) => - Date -> -- _obj - Ptr () -> -- tm - m () -dateToStructTm _obj tm = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_to_struct_tm _obj' tm - touchManagedPtr _obj - return () - --- method Date::valid --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_date_valid" g_date_valid :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - IO CInt - - -dateValid :: - (MonadIO m) => - Date -> -- _obj - m Bool -dateValid _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_valid _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - - diff --git a/GI/GLib/Structs/Date.hs-boot b/GI/GLib/Structs/Date.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/Date.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.GLib.Structs.Date 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 - -newtype Date = Date (ForeignPtr Date) -instance BoxedObject Date where diff --git a/GI/GLib/Structs/DateTime.hs b/GI/GLib/Structs/DateTime.hs deleted file mode 100644 --- a/GI/GLib/Structs/DateTime.hs +++ /dev/null @@ -1,1407 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -`GDateTime` is an opaque structure whose members -cannot be accessed directly. --} - -module GI.GLib.Structs.DateTime - ( - --- * Exported types - DateTime(..) , - noDateTime , - - - -- * Methods --- ** dateTimeAdd - dateTimeAdd , - - --- ** dateTimeAddDays - dateTimeAddDays , - - --- ** dateTimeAddFull - dateTimeAddFull , - - --- ** dateTimeAddHours - dateTimeAddHours , - - --- ** dateTimeAddMinutes - dateTimeAddMinutes , - - --- ** dateTimeAddMonths - dateTimeAddMonths , - - --- ** dateTimeAddSeconds - dateTimeAddSeconds , - - --- ** dateTimeAddWeeks - dateTimeAddWeeks , - - --- ** dateTimeAddYears - dateTimeAddYears , - - --- ** dateTimeDifference - dateTimeDifference , - - --- ** dateTimeFormat - dateTimeFormat , - - --- ** dateTimeGetDayOfMonth - dateTimeGetDayOfMonth , - - --- ** dateTimeGetDayOfWeek - dateTimeGetDayOfWeek , - - --- ** dateTimeGetDayOfYear - dateTimeGetDayOfYear , - - --- ** dateTimeGetHour - dateTimeGetHour , - - --- ** dateTimeGetMicrosecond - dateTimeGetMicrosecond , - - --- ** dateTimeGetMinute - dateTimeGetMinute , - - --- ** dateTimeGetMonth - dateTimeGetMonth , - - --- ** dateTimeGetSecond - dateTimeGetSecond , - - --- ** dateTimeGetSeconds - dateTimeGetSeconds , - - --- ** dateTimeGetTimezoneAbbreviation - dateTimeGetTimezoneAbbreviation , - - --- ** dateTimeGetUtcOffset - dateTimeGetUtcOffset , - - --- ** dateTimeGetWeekNumberingYear - dateTimeGetWeekNumberingYear , - - --- ** dateTimeGetWeekOfYear - dateTimeGetWeekOfYear , - - --- ** dateTimeGetYear - dateTimeGetYear , - - --- ** dateTimeGetYmd - dateTimeGetYmd , - - --- ** dateTimeIsDaylightSavings - dateTimeIsDaylightSavings , - - --- ** dateTimeNew - dateTimeNew , - - --- ** dateTimeNewFromTimevalLocal - dateTimeNewFromTimevalLocal , - - --- ** dateTimeNewFromTimevalUtc - dateTimeNewFromTimevalUtc , - - --- ** dateTimeNewFromUnixLocal - dateTimeNewFromUnixLocal , - - --- ** dateTimeNewFromUnixUtc - dateTimeNewFromUnixUtc , - - --- ** dateTimeNewLocal - dateTimeNewLocal , - - --- ** dateTimeNewNow - dateTimeNewNow , - - --- ** dateTimeNewNowLocal - dateTimeNewNowLocal , - - --- ** dateTimeNewNowUtc - dateTimeNewNowUtc , - - --- ** dateTimeNewUtc - dateTimeNewUtc , - - --- ** dateTimeRef - dateTimeRef , - - --- ** dateTimeToLocal - dateTimeToLocal , - - --- ** dateTimeToTimeval - dateTimeToTimeval , - - --- ** dateTimeToTimezone - dateTimeToTimezone , - - --- ** dateTimeToUnix - dateTimeToUnix , - - --- ** dateTimeToUtc - dateTimeToUtc , - - --- ** dateTimeUnref - dateTimeUnref , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype DateTime = DateTime (ForeignPtr DateTime) -foreign import ccall "g_date_time_get_type" c_g_date_time_get_type :: - IO GType - -instance BoxedObject DateTime where - boxedType _ = c_g_date_time_get_type - -noDateTime :: Maybe DateTime -noDateTime = Nothing - --- method DateTime::new --- method type : Constructor --- Args : [Arg {argName = "tz", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "tz", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, 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_date_time_new" g_date_time_new :: - Ptr TimeZone -> -- tz : TInterface "GLib" "TimeZone" - Int32 -> -- year : TBasicType TInt32 - Int32 -> -- month : TBasicType TInt32 - Int32 -> -- day : TBasicType TInt32 - Int32 -> -- hour : TBasicType TInt32 - Int32 -> -- minute : TBasicType TInt32 - CDouble -> -- seconds : TBasicType TDouble - IO (Ptr DateTime) - - -dateTimeNew :: - (MonadIO m) => - TimeZone -> -- tz - Int32 -> -- year - Int32 -> -- month - Int32 -> -- day - Int32 -> -- hour - Int32 -> -- minute - Double -> -- seconds - m DateTime -dateTimeNew tz year month day hour minute seconds = liftIO $ do - let tz' = unsafeManagedPtrGetPtr tz - let seconds' = realToFrac seconds - result <- g_date_time_new tz' year month day hour minute seconds' - checkUnexpectedReturnNULL "g_date_time_new" result - result' <- (wrapBoxed DateTime) result - touchManagedPtr tz - return result' - --- method DateTime::new_from_timeval_local --- method type : Constructor --- Args : [Arg {argName = "tv", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "tv", argType = TInterface "GLib" "TimeVal", 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_date_time_new_from_timeval_local" g_date_time_new_from_timeval_local :: - Ptr TimeVal -> -- tv : TInterface "GLib" "TimeVal" - IO (Ptr DateTime) - - -dateTimeNewFromTimevalLocal :: - (MonadIO m) => - TimeVal -> -- tv - m DateTime -dateTimeNewFromTimevalLocal tv = liftIO $ do - let tv' = unsafeManagedPtrGetPtr tv - result <- g_date_time_new_from_timeval_local tv' - checkUnexpectedReturnNULL "g_date_time_new_from_timeval_local" result - result' <- (wrapBoxed DateTime) result - touchManagedPtr tv - return result' - --- method DateTime::new_from_timeval_utc --- method type : Constructor --- Args : [Arg {argName = "tv", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "tv", argType = TInterface "GLib" "TimeVal", 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_date_time_new_from_timeval_utc" g_date_time_new_from_timeval_utc :: - Ptr TimeVal -> -- tv : TInterface "GLib" "TimeVal" - IO (Ptr DateTime) - - -dateTimeNewFromTimevalUtc :: - (MonadIO m) => - TimeVal -> -- tv - m DateTime -dateTimeNewFromTimevalUtc tv = liftIO $ do - let tv' = unsafeManagedPtrGetPtr tv - result <- g_date_time_new_from_timeval_utc tv' - checkUnexpectedReturnNULL "g_date_time_new_from_timeval_utc" result - result' <- (wrapBoxed DateTime) result - touchManagedPtr tv - return result' - --- method DateTime::new_from_unix_local --- method type : Constructor --- Args : [Arg {argName = "t", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "t", argType = TBasicType TInt64, 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_date_time_new_from_unix_local" g_date_time_new_from_unix_local :: - Int64 -> -- t : TBasicType TInt64 - IO (Ptr DateTime) - - -dateTimeNewFromUnixLocal :: - (MonadIO m) => - Int64 -> -- t - m DateTime -dateTimeNewFromUnixLocal t = liftIO $ do - result <- g_date_time_new_from_unix_local t - checkUnexpectedReturnNULL "g_date_time_new_from_unix_local" result - result' <- (wrapBoxed DateTime) result - return result' - --- method DateTime::new_from_unix_utc --- method type : Constructor --- Args : [Arg {argName = "t", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "t", argType = TBasicType TInt64, 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_date_time_new_from_unix_utc" g_date_time_new_from_unix_utc :: - Int64 -> -- t : TBasicType TInt64 - IO (Ptr DateTime) - - -dateTimeNewFromUnixUtc :: - (MonadIO m) => - Int64 -> -- t - m DateTime -dateTimeNewFromUnixUtc t = liftIO $ do - result <- g_date_time_new_from_unix_utc t - checkUnexpectedReturnNULL "g_date_time_new_from_unix_utc" result - result' <- (wrapBoxed DateTime) result - return result' - --- method DateTime::new_local --- method type : Constructor --- Args : [Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, 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_date_time_new_local" g_date_time_new_local :: - Int32 -> -- year : TBasicType TInt32 - Int32 -> -- month : TBasicType TInt32 - Int32 -> -- day : TBasicType TInt32 - Int32 -> -- hour : TBasicType TInt32 - Int32 -> -- minute : TBasicType TInt32 - CDouble -> -- seconds : TBasicType TDouble - IO (Ptr DateTime) - - -dateTimeNewLocal :: - (MonadIO m) => - Int32 -> -- year - Int32 -> -- month - Int32 -> -- day - Int32 -> -- hour - Int32 -> -- minute - Double -> -- seconds - m DateTime -dateTimeNewLocal year month day hour minute seconds = liftIO $ do - let seconds' = realToFrac seconds - result <- g_date_time_new_local year month day hour minute seconds' - checkUnexpectedReturnNULL "g_date_time_new_local" result - result' <- (wrapBoxed DateTime) result - return result' - --- method DateTime::new_now --- method type : Constructor --- Args : [Arg {argName = "tz", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "tz", argType = TInterface "GLib" "TimeZone", 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_date_time_new_now" g_date_time_new_now :: - Ptr TimeZone -> -- tz : TInterface "GLib" "TimeZone" - IO (Ptr DateTime) - - -dateTimeNewNow :: - (MonadIO m) => - TimeZone -> -- tz - m DateTime -dateTimeNewNow tz = liftIO $ do - let tz' = unsafeManagedPtrGetPtr tz - result <- g_date_time_new_now tz' - checkUnexpectedReturnNULL "g_date_time_new_now" result - result' <- (wrapBoxed DateTime) result - touchManagedPtr tz - return result' - --- method DateTime::new_now_local --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "GLib" "DateTime" --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_new_now_local" g_date_time_new_now_local :: - IO (Ptr DateTime) - - -dateTimeNewNowLocal :: - (MonadIO m) => - m DateTime -dateTimeNewNowLocal = liftIO $ do - result <- g_date_time_new_now_local - checkUnexpectedReturnNULL "g_date_time_new_now_local" result - result' <- (wrapBoxed DateTime) result - return result' - --- method DateTime::new_now_utc --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "GLib" "DateTime" --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_new_now_utc" g_date_time_new_now_utc :: - IO (Ptr DateTime) - - -dateTimeNewNowUtc :: - (MonadIO m) => - m DateTime -dateTimeNewNowUtc = liftIO $ do - result <- g_date_time_new_now_utc - checkUnexpectedReturnNULL "g_date_time_new_now_utc" result - result' <- (wrapBoxed DateTime) result - return result' - --- method DateTime::new_utc --- method type : Constructor --- Args : [Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, 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_date_time_new_utc" g_date_time_new_utc :: - Int32 -> -- year : TBasicType TInt32 - Int32 -> -- month : TBasicType TInt32 - Int32 -> -- day : TBasicType TInt32 - Int32 -> -- hour : TBasicType TInt32 - Int32 -> -- minute : TBasicType TInt32 - CDouble -> -- seconds : TBasicType TDouble - IO (Ptr DateTime) - - -dateTimeNewUtc :: - (MonadIO m) => - Int32 -> -- year - Int32 -> -- month - Int32 -> -- day - Int32 -> -- hour - Int32 -> -- minute - Double -> -- seconds - m DateTime -dateTimeNewUtc year month day hour minute seconds = liftIO $ do - let seconds' = realToFrac seconds - result <- g_date_time_new_utc year month day hour minute seconds' - checkUnexpectedReturnNULL "g_date_time_new_utc" result - result' <- (wrapBoxed DateTime) result - return result' - --- method DateTime::add --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timespan", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timespan", argType = TBasicType TInt64, 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_date_time_add" g_date_time_add :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - Int64 -> -- timespan : TBasicType TInt64 - IO (Ptr DateTime) - - -dateTimeAdd :: - (MonadIO m) => - DateTime -> -- _obj - Int64 -> -- timespan - m DateTime -dateTimeAdd _obj timespan = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_add _obj' timespan - checkUnexpectedReturnNULL "g_date_time_add" result - result' <- (wrapBoxed DateTime) result - touchManagedPtr _obj - return result' - --- method DateTime::add_days --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "days", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "days", argType = TBasicType TInt32, 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_date_time_add_days" g_date_time_add_days :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - Int32 -> -- days : TBasicType TInt32 - IO (Ptr DateTime) - - -dateTimeAddDays :: - (MonadIO m) => - DateTime -> -- _obj - Int32 -> -- days - m DateTime -dateTimeAddDays _obj days = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_add_days _obj' days - checkUnexpectedReturnNULL "g_date_time_add_days" result - result' <- (wrapBoxed DateTime) result - touchManagedPtr _obj - return result' - --- method DateTime::add_full --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "years", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "months", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "days", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hours", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minutes", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "years", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "months", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "days", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hours", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minutes", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, 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_date_time_add_full" g_date_time_add_full :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - Int32 -> -- years : TBasicType TInt32 - Int32 -> -- months : TBasicType TInt32 - Int32 -> -- days : TBasicType TInt32 - Int32 -> -- hours : TBasicType TInt32 - Int32 -> -- minutes : TBasicType TInt32 - CDouble -> -- seconds : TBasicType TDouble - IO (Ptr DateTime) - - -dateTimeAddFull :: - (MonadIO m) => - DateTime -> -- _obj - Int32 -> -- years - Int32 -> -- months - Int32 -> -- days - Int32 -> -- hours - Int32 -> -- minutes - Double -> -- seconds - m DateTime -dateTimeAddFull _obj years months days hours minutes seconds = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let seconds' = realToFrac seconds - result <- g_date_time_add_full _obj' years months days hours minutes seconds' - checkUnexpectedReturnNULL "g_date_time_add_full" result - result' <- (wrapBoxed DateTime) result - touchManagedPtr _obj - return result' - --- method DateTime::add_hours --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hours", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hours", argType = TBasicType TInt32, 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_date_time_add_hours" g_date_time_add_hours :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - Int32 -> -- hours : TBasicType TInt32 - IO (Ptr DateTime) - - -dateTimeAddHours :: - (MonadIO m) => - DateTime -> -- _obj - Int32 -> -- hours - m DateTime -dateTimeAddHours _obj hours = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_add_hours _obj' hours - checkUnexpectedReturnNULL "g_date_time_add_hours" result - result' <- (wrapBoxed DateTime) result - touchManagedPtr _obj - return result' - --- method DateTime::add_minutes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minutes", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minutes", argType = TBasicType TInt32, 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_date_time_add_minutes" g_date_time_add_minutes :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - Int32 -> -- minutes : TBasicType TInt32 - IO (Ptr DateTime) - - -dateTimeAddMinutes :: - (MonadIO m) => - DateTime -> -- _obj - Int32 -> -- minutes - m DateTime -dateTimeAddMinutes _obj minutes = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_add_minutes _obj' minutes - checkUnexpectedReturnNULL "g_date_time_add_minutes" result - result' <- (wrapBoxed DateTime) result - touchManagedPtr _obj - return result' - --- method DateTime::add_months --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "months", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "months", argType = TBasicType TInt32, 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_date_time_add_months" g_date_time_add_months :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - Int32 -> -- months : TBasicType TInt32 - IO (Ptr DateTime) - - -dateTimeAddMonths :: - (MonadIO m) => - DateTime -> -- _obj - Int32 -> -- months - m DateTime -dateTimeAddMonths _obj months = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_add_months _obj' months - checkUnexpectedReturnNULL "g_date_time_add_months" result - result' <- (wrapBoxed DateTime) result - touchManagedPtr _obj - return result' - --- method DateTime::add_seconds --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seconds", argType = TBasicType TDouble, 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_date_time_add_seconds" g_date_time_add_seconds :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - CDouble -> -- seconds : TBasicType TDouble - IO (Ptr DateTime) - - -dateTimeAddSeconds :: - (MonadIO m) => - DateTime -> -- _obj - Double -> -- seconds - m DateTime -dateTimeAddSeconds _obj seconds = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let seconds' = realToFrac seconds - result <- g_date_time_add_seconds _obj' seconds' - checkUnexpectedReturnNULL "g_date_time_add_seconds" result - result' <- (wrapBoxed DateTime) result - touchManagedPtr _obj - return result' - --- method DateTime::add_weeks --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "weeks", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "weeks", argType = TBasicType TInt32, 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_date_time_add_weeks" g_date_time_add_weeks :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - Int32 -> -- weeks : TBasicType TInt32 - IO (Ptr DateTime) - - -dateTimeAddWeeks :: - (MonadIO m) => - DateTime -> -- _obj - Int32 -> -- weeks - m DateTime -dateTimeAddWeeks _obj weeks = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_add_weeks _obj' weeks - checkUnexpectedReturnNULL "g_date_time_add_weeks" result - result' <- (wrapBoxed DateTime) result - touchManagedPtr _obj - return result' - --- method DateTime::add_years --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "years", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "years", argType = TBasicType TInt32, 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_date_time_add_years" g_date_time_add_years :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - Int32 -> -- years : TBasicType TInt32 - IO (Ptr DateTime) - - -dateTimeAddYears :: - (MonadIO m) => - DateTime -> -- _obj - Int32 -> -- years - m DateTime -dateTimeAddYears _obj years = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_add_years _obj' years - checkUnexpectedReturnNULL "g_date_time_add_years" result - result' <- (wrapBoxed DateTime) result - touchManagedPtr _obj - return result' - --- method DateTime::difference --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt64 --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_difference" g_date_time_difference :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - Ptr DateTime -> -- begin : TInterface "GLib" "DateTime" - IO Int64 - - -dateTimeDifference :: - (MonadIO m) => - DateTime -> -- _obj - DateTime -> -- begin - m Int64 -dateTimeDifference _obj begin = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let begin' = unsafeManagedPtrGetPtr begin - result <- g_date_time_difference _obj' begin' - touchManagedPtr _obj - touchManagedPtr begin - return result - --- method DateTime::format --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", 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_date_time_format" g_date_time_format :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - CString -> -- format : TBasicType TUTF8 - IO CString - - -dateTimeFormat :: - (MonadIO m) => - DateTime -> -- _obj - T.Text -> -- format - m T.Text -dateTimeFormat _obj format = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - format' <- textToCString format - result <- g_date_time_format _obj' format' - checkUnexpectedReturnNULL "g_date_time_format" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - freeMem format' - return result' - --- method DateTime::get_day_of_month --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_get_day_of_month" g_date_time_get_day_of_month :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - IO Int32 - - -dateTimeGetDayOfMonth :: - (MonadIO m) => - DateTime -> -- _obj - m Int32 -dateTimeGetDayOfMonth _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_get_day_of_month _obj' - touchManagedPtr _obj - return result - --- method DateTime::get_day_of_week --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_get_day_of_week" g_date_time_get_day_of_week :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - IO Int32 - - -dateTimeGetDayOfWeek :: - (MonadIO m) => - DateTime -> -- _obj - m Int32 -dateTimeGetDayOfWeek _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_get_day_of_week _obj' - touchManagedPtr _obj - return result - --- method DateTime::get_day_of_year --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_get_day_of_year" g_date_time_get_day_of_year :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - IO Int32 - - -dateTimeGetDayOfYear :: - (MonadIO m) => - DateTime -> -- _obj - m Int32 -dateTimeGetDayOfYear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_get_day_of_year _obj' - touchManagedPtr _obj - return result - --- method DateTime::get_hour --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_get_hour" g_date_time_get_hour :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - IO Int32 - - -dateTimeGetHour :: - (MonadIO m) => - DateTime -> -- _obj - m Int32 -dateTimeGetHour _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_get_hour _obj' - touchManagedPtr _obj - return result - --- method DateTime::get_microsecond --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_get_microsecond" g_date_time_get_microsecond :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - IO Int32 - - -dateTimeGetMicrosecond :: - (MonadIO m) => - DateTime -> -- _obj - m Int32 -dateTimeGetMicrosecond _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_get_microsecond _obj' - touchManagedPtr _obj - return result - --- method DateTime::get_minute --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_get_minute" g_date_time_get_minute :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - IO Int32 - - -dateTimeGetMinute :: - (MonadIO m) => - DateTime -> -- _obj - m Int32 -dateTimeGetMinute _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_get_minute _obj' - touchManagedPtr _obj - return result - --- method DateTime::get_month --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_get_month" g_date_time_get_month :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - IO Int32 - - -dateTimeGetMonth :: - (MonadIO m) => - DateTime -> -- _obj - m Int32 -dateTimeGetMonth _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_get_month _obj' - touchManagedPtr _obj - return result - --- method DateTime::get_second --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_get_second" g_date_time_get_second :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - IO Int32 - - -dateTimeGetSecond :: - (MonadIO m) => - DateTime -> -- _obj - m Int32 -dateTimeGetSecond _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_get_second _obj' - touchManagedPtr _obj - return result - --- method DateTime::get_seconds --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_get_seconds" g_date_time_get_seconds :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - IO CDouble - - -dateTimeGetSeconds :: - (MonadIO m) => - DateTime -> -- _obj - m Double -dateTimeGetSeconds _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_get_seconds _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method DateTime::get_timezone_abbreviation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_get_timezone_abbreviation" g_date_time_get_timezone_abbreviation :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - IO CString - - -dateTimeGetTimezoneAbbreviation :: - (MonadIO m) => - DateTime -> -- _obj - m T.Text -dateTimeGetTimezoneAbbreviation _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_get_timezone_abbreviation _obj' - checkUnexpectedReturnNULL "g_date_time_get_timezone_abbreviation" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method DateTime::get_utc_offset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt64 --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_get_utc_offset" g_date_time_get_utc_offset :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - IO Int64 - - -dateTimeGetUtcOffset :: - (MonadIO m) => - DateTime -> -- _obj - m Int64 -dateTimeGetUtcOffset _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_get_utc_offset _obj' - touchManagedPtr _obj - return result - --- method DateTime::get_week_numbering_year --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_get_week_numbering_year" g_date_time_get_week_numbering_year :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - IO Int32 - - -dateTimeGetWeekNumberingYear :: - (MonadIO m) => - DateTime -> -- _obj - m Int32 -dateTimeGetWeekNumberingYear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_get_week_numbering_year _obj' - touchManagedPtr _obj - return result - --- method DateTime::get_week_of_year --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_get_week_of_year" g_date_time_get_week_of_year :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - IO Int32 - - -dateTimeGetWeekOfYear :: - (MonadIO m) => - DateTime -> -- _obj - m Int32 -dateTimeGetWeekOfYear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_get_week_of_year _obj' - touchManagedPtr _obj - return result - --- method DateTime::get_year --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_get_year" g_date_time_get_year :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - IO Int32 - - -dateTimeGetYear :: - (MonadIO m) => - DateTime -> -- _obj - m Int32 -dateTimeGetYear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_get_year _obj' - touchManagedPtr _obj - return result - --- method DateTime::get_ymd --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_get_ymd" g_date_time_get_ymd :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - Ptr Int32 -> -- year : TBasicType TInt32 - Ptr Int32 -> -- month : TBasicType TInt32 - Ptr Int32 -> -- day : TBasicType TInt32 - IO () - - -dateTimeGetYmd :: - (MonadIO m) => - DateTime -> -- _obj - m (Int32,Int32,Int32) -dateTimeGetYmd _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - year <- allocMem :: IO (Ptr Int32) - month <- allocMem :: IO (Ptr Int32) - day <- allocMem :: IO (Ptr Int32) - g_date_time_get_ymd _obj' year month day - year' <- peek year - month' <- peek month - day' <- peek day - touchManagedPtr _obj - freeMem year - freeMem month - freeMem day - return (year', month', day') - --- method DateTime::is_daylight_savings --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_is_daylight_savings" g_date_time_is_daylight_savings :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - IO CInt - - -dateTimeIsDaylightSavings :: - (MonadIO m) => - DateTime -> -- _obj - m Bool -dateTimeIsDaylightSavings _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_is_daylight_savings _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method DateTime::ref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", 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_date_time_ref" g_date_time_ref :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - IO (Ptr DateTime) - - -dateTimeRef :: - (MonadIO m) => - DateTime -> -- _obj - m DateTime -dateTimeRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_ref _obj' - checkUnexpectedReturnNULL "g_date_time_ref" result - result' <- (wrapBoxed DateTime) result - touchManagedPtr _obj - return result' - --- method DateTime::to_local --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", 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_date_time_to_local" g_date_time_to_local :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - IO (Ptr DateTime) - - -dateTimeToLocal :: - (MonadIO m) => - DateTime -> -- _obj - m DateTime -dateTimeToLocal _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_to_local _obj' - checkUnexpectedReturnNULL "g_date_time_to_local" result - result' <- (wrapBoxed DateTime) result - touchManagedPtr _obj - return result' - --- method DateTime::to_timeval --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tv", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tv", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_to_timeval" g_date_time_to_timeval :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - Ptr TimeVal -> -- tv : TInterface "GLib" "TimeVal" - IO CInt - - -dateTimeToTimeval :: - (MonadIO m) => - DateTime -> -- _obj - TimeVal -> -- tv - m Bool -dateTimeToTimeval _obj tv = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let tv' = unsafeManagedPtrGetPtr tv - result <- g_date_time_to_timeval _obj' tv' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr tv - return result' - --- method DateTime::to_timezone --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tz", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tz", argType = TInterface "GLib" "TimeZone", 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_date_time_to_timezone" g_date_time_to_timezone :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - Ptr TimeZone -> -- tz : TInterface "GLib" "TimeZone" - IO (Ptr DateTime) - - -dateTimeToTimezone :: - (MonadIO m) => - DateTime -> -- _obj - TimeZone -> -- tz - m DateTime -dateTimeToTimezone _obj tz = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let tz' = unsafeManagedPtrGetPtr tz - result <- g_date_time_to_timezone _obj' tz' - checkUnexpectedReturnNULL "g_date_time_to_timezone" result - result' <- (wrapBoxed DateTime) result - touchManagedPtr _obj - touchManagedPtr tz - return result' - --- method DateTime::to_unix --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt64 --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_to_unix" g_date_time_to_unix :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - IO Int64 - - -dateTimeToUnix :: - (MonadIO m) => - DateTime -> -- _obj - m Int64 -dateTimeToUnix _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_to_unix _obj' - touchManagedPtr _obj - return result - --- method DateTime::to_utc --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", 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_date_time_to_utc" g_date_time_to_utc :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - IO (Ptr DateTime) - - -dateTimeToUtc :: - (MonadIO m) => - DateTime -> -- _obj - m DateTime -dateTimeToUtc _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_to_utc _obj' - checkUnexpectedReturnNULL "g_date_time_to_utc" result - result' <- (wrapBoxed DateTime) result - touchManagedPtr _obj - return result' - --- method DateTime::unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_unref" g_date_time_unref :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - IO () - - -dateTimeUnref :: - (MonadIO m) => - DateTime -> -- _obj - m () -dateTimeUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_time_unref _obj' - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Structs/DateTime.hs-boot b/GI/GLib/Structs/DateTime.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/DateTime.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.GLib.Structs.DateTime 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 - -newtype DateTime = DateTime (ForeignPtr DateTime) -instance BoxedObject DateTime where diff --git a/GI/GLib/Structs/DebugKey.hs b/GI/GLib/Structs/DebugKey.hs deleted file mode 100644 --- a/GI/GLib/Structs/DebugKey.hs +++ /dev/null @@ -1,57 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Associates a string with a bit flag. -Used in g_parse_debug_string(). --} - -module GI.GLib.Structs.DebugKey - ( - --- * Exported types - DebugKey(..) , - noDebugKey , - - - -- * Properties --- ** Key - debugKeyReadKey , - - --- ** Value - debugKeyReadValue , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype DebugKey = DebugKey (ForeignPtr DebugKey) -noDebugKey :: Maybe DebugKey -noDebugKey = Nothing - -debugKeyReadKey :: DebugKey -> IO T.Text -debugKeyReadKey s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' - -debugKeyReadValue :: DebugKey -> IO Word32 -debugKeyReadValue s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word32 - return val - - diff --git a/GI/GLib/Structs/DebugKey.hs-boot b/GI/GLib/Structs/DebugKey.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/DebugKey.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.DebugKey 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 - -newtype DebugKey = DebugKey (ForeignPtr DebugKey) diff --git a/GI/GLib/Structs/Dir.hs b/GI/GLib/Structs/Dir.hs deleted file mode 100644 --- a/GI/GLib/Structs/Dir.hs +++ /dev/null @@ -1,123 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -An opaque structure representing an opened directory. --} - -module GI.GLib.Structs.Dir - ( - --- * Exported types - Dir(..) , - noDir , - - - -- * Methods --- ** dirClose - dirClose , - - --- ** dirReadName - dirReadName , - - --- ** dirRewind - dirRewind , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Dir = Dir (ForeignPtr Dir) -noDir :: Maybe Dir -noDir = Nothing - --- method Dir::close --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Dir", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Dir", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_dir_close" g_dir_close :: - Ptr Dir -> -- _obj : TInterface "GLib" "Dir" - IO () - - -dirClose :: - (MonadIO m) => - Dir -> -- _obj - m () -dirClose _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_dir_close _obj' - touchManagedPtr _obj - return () - --- method Dir::read_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Dir", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Dir", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_dir_read_name" g_dir_read_name :: - Ptr Dir -> -- _obj : TInterface "GLib" "Dir" - IO CString - - -dirReadName :: - (MonadIO m) => - Dir -> -- _obj - m T.Text -dirReadName _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_dir_read_name _obj' - checkUnexpectedReturnNULL "g_dir_read_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Dir::rewind --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Dir", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Dir", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_dir_rewind" g_dir_rewind :: - Ptr Dir -> -- _obj : TInterface "GLib" "Dir" - IO () - - -dirRewind :: - (MonadIO m) => - Dir -> -- _obj - m () -dirRewind _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_dir_rewind _obj' - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Structs/Dir.hs-boot b/GI/GLib/Structs/Dir.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/Dir.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.Dir 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 - -newtype Dir = Dir (ForeignPtr Dir) diff --git a/GI/GLib/Structs/HashTableIter.hs b/GI/GLib/Structs/HashTableIter.hs deleted file mode 100644 --- a/GI/GLib/Structs/HashTableIter.hs +++ /dev/null @@ -1,202 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A GHashTableIter structure represents an iterator that can be used -to iterate over the elements of a #GHashTable. GHashTableIter -structures are typically allocated on the stack and then initialized -with g_hash_table_iter_init(). --} - -module GI.GLib.Structs.HashTableIter - ( - --- * Exported types - HashTableIter(..) , - noHashTableIter , - - - -- * Methods --- ** hashTableIterInit - hashTableIterInit , - - --- ** hashTableIterNext - hashTableIterNext , - - --- ** hashTableIterRemove - hashTableIterRemove , - - --- ** hashTableIterReplace - hashTableIterReplace , - - --- ** hashTableIterSteal - hashTableIterSteal , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype HashTableIter = HashTableIter (ForeignPtr HashTableIter) -noHashTableIter :: Maybe HashTableIter -noHashTableIter = Nothing - --- method HashTableIter::init --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hash_table", argType = TGHash (TBasicType TVoid) (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_hash_table_iter_init" g_hash_table_iter_init :: - Ptr HashTableIter -> -- _obj : TInterface "GLib" "HashTableIter" - Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- hash_table : TGHash (TBasicType TVoid) (TBasicType TVoid) - IO () - - -hashTableIterInit :: - (MonadIO m) => - HashTableIter -> -- _obj - Map.Map (Ptr ()) (Ptr ()) -> -- hash_table - m () -hashTableIterInit _obj hash_table = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let hash_table' = Map.toList hash_table - let hash_table'' = mapFirst ptrPackPtr hash_table' - let hash_table''' = mapSecond ptrPackPtr hash_table'' - hash_table'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hash_table''' - g_hash_table_iter_init _obj' hash_table'''' - touchManagedPtr _obj - unrefGHashTable hash_table'''' - return () - --- method HashTableIter::next --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_hash_table_iter_next" g_hash_table_iter_next :: - Ptr HashTableIter -> -- _obj : TInterface "GLib" "HashTableIter" - Ptr () -> -- key : TBasicType TVoid - Ptr () -> -- value : TBasicType TVoid - IO CInt - - -hashTableIterNext :: - (MonadIO m) => - HashTableIter -> -- _obj - Maybe (Ptr ()) -> -- key - Maybe (Ptr ()) -> -- value - m Bool -hashTableIterNext _obj key value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeKey <- case key of - Nothing -> return nullPtr - Just jKey -> do - return jKey - maybeValue <- case value of - Nothing -> return nullPtr - Just jValue -> do - return jValue - result <- g_hash_table_iter_next _obj' maybeKey maybeValue - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method HashTableIter::remove --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_hash_table_iter_remove" g_hash_table_iter_remove :: - Ptr HashTableIter -> -- _obj : TInterface "GLib" "HashTableIter" - IO () - - -hashTableIterRemove :: - (MonadIO m) => - HashTableIter -> -- _obj - m () -hashTableIterRemove _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_hash_table_iter_remove _obj' - touchManagedPtr _obj - return () - --- method HashTableIter::replace --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_hash_table_iter_replace" g_hash_table_iter_replace :: - Ptr HashTableIter -> -- _obj : TInterface "GLib" "HashTableIter" - Ptr () -> -- value : TBasicType TVoid - IO () - - -hashTableIterReplace :: - (MonadIO m) => - HashTableIter -> -- _obj - Ptr () -> -- value - m () -hashTableIterReplace _obj value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_hash_table_iter_replace _obj' value - touchManagedPtr _obj - return () - --- method HashTableIter::steal --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_hash_table_iter_steal" g_hash_table_iter_steal :: - Ptr HashTableIter -> -- _obj : TInterface "GLib" "HashTableIter" - IO () - - -hashTableIterSteal :: - (MonadIO m) => - HashTableIter -> -- _obj - m () -hashTableIterSteal _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_hash_table_iter_steal _obj' - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Structs/HashTableIter.hs-boot b/GI/GLib/Structs/HashTableIter.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/HashTableIter.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.HashTableIter 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 - -newtype HashTableIter = HashTableIter (ForeignPtr HashTableIter) diff --git a/GI/GLib/Structs/Hmac.hs b/GI/GLib/Structs/Hmac.hs deleted file mode 100644 --- a/GI/GLib/Structs/Hmac.hs +++ /dev/null @@ -1,163 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -An opaque structure representing a HMAC operation. -To create a new GHmac, use g_hmac_new(). To free -a GHmac, use g_hmac_unref(). --} - -module GI.GLib.Structs.Hmac - ( - --- * Exported types - Hmac(..) , - noHmac , - - - -- * Methods --- ** hmacGetDigest - hmacGetDigest , - - --- ** hmacGetString - hmacGetString , - - --- ** hmacUnref - hmacUnref , - - --- ** hmacUpdate - hmacUpdate , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Hmac = Hmac (ForeignPtr Hmac) -noHmac :: Maybe Hmac -noHmac = Nothing - --- method Hmac::get_digest --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digest_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "digest_len", 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_hmac_get_digest" g_hmac_get_digest :: - Ptr Hmac -> -- _obj : TInterface "GLib" "Hmac" - Word8 -> -- buffer : TBasicType TUInt8 - Word64 -> -- digest_len : TBasicType TUInt64 - IO () - - -hmacGetDigest :: - (MonadIO m) => - Hmac -> -- _obj - Word8 -> -- buffer - Word64 -> -- digest_len - m () -hmacGetDigest _obj buffer digest_len = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_hmac_get_digest _obj' buffer digest_len - touchManagedPtr _obj - return () - --- method Hmac::get_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_hmac_get_string" g_hmac_get_string :: - Ptr Hmac -> -- _obj : TInterface "GLib" "Hmac" - IO CString - - -hmacGetString :: - (MonadIO m) => - Hmac -> -- _obj - m T.Text -hmacGetString _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_hmac_get_string _obj' - checkUnexpectedReturnNULL "g_hmac_get_string" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Hmac::unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_hmac_unref" g_hmac_unref :: - Ptr Hmac -> -- _obj : TInterface "GLib" "Hmac" - IO () - - -hmacUnref :: - (MonadIO m) => - Hmac -> -- _obj - m () -hmacUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_hmac_unref _obj' - touchManagedPtr _obj - return () - --- method Hmac::update --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", 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},Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Hmac", 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}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_hmac_update" g_hmac_update :: - Ptr Hmac -> -- _obj : TInterface "GLib" "Hmac" - Ptr Word8 -> -- data : TCArray False (-1) 2 (TBasicType TUInt8) - Int64 -> -- length : TBasicType TInt64 - IO () - - -hmacUpdate :: - (MonadIO m) => - Hmac -> -- _obj - ByteString -> -- data - m () -hmacUpdate _obj data_ = liftIO $ do - let length_ = fromIntegral $ B.length data_ - let _obj' = unsafeManagedPtrGetPtr _obj - data_' <- packByteString data_ - g_hmac_update _obj' data_' length_ - touchManagedPtr _obj - freeMem data_' - return () - - diff --git a/GI/GLib/Structs/Hmac.hs-boot b/GI/GLib/Structs/Hmac.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/Hmac.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.Hmac 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 - -newtype Hmac = Hmac (ForeignPtr Hmac) diff --git a/GI/GLib/Structs/Hook.hs b/GI/GLib/Structs/Hook.hs deleted file mode 100644 --- a/GI/GLib/Structs/Hook.hs +++ /dev/null @@ -1,139 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The #GHook struct represents a single hook function in a #GHookList. --} - -module GI.GLib.Structs.Hook - ( - --- * Exported types - Hook(..) , - noHook , - - - -- * Methods --- ** hookCompareIds - hookCompareIds , - - - - - -- * Properties --- ** Data - hookReadData , - - --- ** Flags - hookReadFlags , - - --- ** Func - hookReadFunc , - - --- ** HookId - hookReadHookId , - - --- ** Next - hookReadNext , - - --- ** Prev - hookReadPrev , - - --- ** RefCount - hookReadRefCount , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Hook = Hook (ForeignPtr Hook) -noHook :: Maybe Hook -noHook = Nothing - -hookReadData :: Hook -> IO (Ptr ()) -hookReadData s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr ()) - return val - -hookReadNext :: Hook -> IO Hook -hookReadNext s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr Hook) - val' <- (newPtr 64 Hook) val - return val' - -hookReadPrev :: Hook -> IO Hook -hookReadPrev s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO (Ptr Hook) - val' <- (newPtr 64 Hook) val - return val' - -hookReadRefCount :: Hook -> IO Word32 -hookReadRefCount s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO Word32 - return val - -hookReadHookId :: Hook -> IO Word64 -hookReadHookId s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO Word64 - return val - -hookReadFlags :: Hook -> IO Word32 -hookReadFlags s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO Word32 - return val - -hookReadFunc :: Hook -> IO (Ptr ()) -hookReadFunc s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO (Ptr ()) - return val - --- XXX Skipped getter for "Hook:destroy" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- method Hook::compare_ids --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_hook_compare_ids" g_hook_compare_ids :: - Ptr Hook -> -- _obj : TInterface "GLib" "Hook" - Ptr Hook -> -- sibling : TInterface "GLib" "Hook" - IO Int32 - - -hookCompareIds :: - (MonadIO m) => - Hook -> -- _obj - Hook -> -- sibling - m Int32 -hookCompareIds _obj sibling = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let sibling' = unsafeManagedPtrGetPtr sibling - result <- g_hook_compare_ids _obj' sibling' - touchManagedPtr _obj - touchManagedPtr sibling - return result - - diff --git a/GI/GLib/Structs/Hook.hs-boot b/GI/GLib/Structs/Hook.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/Hook.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.Hook 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 - -newtype Hook = Hook (ForeignPtr Hook) diff --git a/GI/GLib/Structs/HookList.hs b/GI/GLib/Structs/HookList.hs deleted file mode 100644 --- a/GI/GLib/Structs/HookList.hs +++ /dev/null @@ -1,210 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The #GHookList struct represents a list of hook functions. --} - -module GI.GLib.Structs.HookList - ( - --- * Exported types - HookList(..) , - noHookList , - - - -- * Methods --- ** hookListClear - hookListClear , - - --- ** hookListInit - hookListInit , - - --- ** hookListInvoke - hookListInvoke , - - --- ** hookListInvokeCheck - hookListInvokeCheck , - - - - - -- * Properties --- ** Dummy3 - hookListReadDummy3 , - - --- ** HookSize - hookListReadHookSize , - - --- ** Hooks - hookListReadHooks , - - --- ** IsSetup - hookListReadIsSetup , - - --- ** SeqId - hookListReadSeqId , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype HookList = HookList (ForeignPtr HookList) -noHookList :: Maybe HookList -noHookList = Nothing - -hookListReadSeqId :: HookList -> IO Word64 -hookListReadSeqId s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word64 - return val - -hookListReadHookSize :: HookList -> IO Word32 -hookListReadHookSize s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word32 - return val - -hookListReadIsSetup :: HookList -> IO Word32 -hookListReadIsSetup s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Word32 - return val - -hookListReadHooks :: HookList -> IO Hook -hookListReadHooks s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO (Ptr Hook) - val' <- (newPtr 64 Hook) val - return val' - -hookListReadDummy3 :: HookList -> IO (Ptr ()) -hookListReadDummy3 s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO (Ptr ()) - return val - --- XXX Skipped getter for "HookList:finalize_hook" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- XXX Skipped getter for "HookList:dummy" :: Not implemented: "Don't know how to unpack C array of type TCArray False 2 (-1) (TBasicType TVoid)" - --- method HookList::clear --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_hook_list_clear" g_hook_list_clear :: - Ptr HookList -> -- _obj : TInterface "GLib" "HookList" - IO () - - -hookListClear :: - (MonadIO m) => - HookList -> -- _obj - m () -hookListClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_hook_list_clear _obj' - touchManagedPtr _obj - return () - --- method HookList::init --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hook_size", 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_hook_list_init" g_hook_list_init :: - Ptr HookList -> -- _obj : TInterface "GLib" "HookList" - Word32 -> -- hook_size : TBasicType TUInt32 - IO () - - -hookListInit :: - (MonadIO m) => - HookList -> -- _obj - Word32 -> -- hook_size - m () -hookListInit _obj hook_size = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_hook_list_init _obj' hook_size - touchManagedPtr _obj - return () - --- method HookList::invoke --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "may_recurse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "may_recurse", 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_hook_list_invoke" g_hook_list_invoke :: - Ptr HookList -> -- _obj : TInterface "GLib" "HookList" - CInt -> -- may_recurse : TBasicType TBoolean - IO () - - -hookListInvoke :: - (MonadIO m) => - HookList -> -- _obj - Bool -> -- may_recurse - m () -hookListInvoke _obj may_recurse = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let may_recurse' = (fromIntegral . fromEnum) may_recurse - g_hook_list_invoke _obj' may_recurse' - touchManagedPtr _obj - return () - --- method HookList::invoke_check --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "may_recurse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "may_recurse", 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_hook_list_invoke_check" g_hook_list_invoke_check :: - Ptr HookList -> -- _obj : TInterface "GLib" "HookList" - CInt -> -- may_recurse : TBasicType TBoolean - IO () - - -hookListInvokeCheck :: - (MonadIO m) => - HookList -> -- _obj - Bool -> -- may_recurse - m () -hookListInvokeCheck _obj may_recurse = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let may_recurse' = (fromIntegral . fromEnum) may_recurse - g_hook_list_invoke_check _obj' may_recurse' - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Structs/HookList.hs-boot b/GI/GLib/Structs/HookList.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/HookList.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.HookList 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 - -newtype HookList = HookList (ForeignPtr HookList) diff --git a/GI/GLib/Structs/IConv.hs b/GI/GLib/Structs/IConv.hs deleted file mode 100644 --- a/GI/GLib/Structs/IConv.hs +++ /dev/null @@ -1,66 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The GIConv struct wraps an iconv() conversion descriptor. It contains -private data and should only be accessed using the following functions. --} - -module GI.GLib.Structs.IConv - ( - --- * Exported types - IConv(..) , - noIConv , - - - -- * Methods --- ** iConvClose - iConvClose , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype IConv = IConv (ForeignPtr IConv) -noIConv :: Maybe IConv -noIConv = Nothing - --- method IConv::close --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IConv", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IConv", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_iconv_close" g_iconv_close :: - Ptr IConv -> -- _obj : TInterface "GLib" "IConv" - IO Int32 - - -iConvClose :: - (MonadIO m) => - IConv -> -- _obj - m Int32 -iConvClose _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_iconv_close _obj' - touchManagedPtr _obj - return result - - diff --git a/GI/GLib/Structs/IConv.hs-boot b/GI/GLib/Structs/IConv.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/IConv.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.IConv 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 - -newtype IConv = IConv (ForeignPtr IConv) diff --git a/GI/GLib/Structs/IOChannel.hs b/GI/GLib/Structs/IOChannel.hs deleted file mode 100644 --- a/GI/GLib/Structs/IOChannel.hs +++ /dev/null @@ -1,1101 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A data structure representing an IO Channel. The fields should be -considered private and should only be accessed with the following -functions. --} - -module GI.GLib.Structs.IOChannel - ( - --- * Exported types - IOChannel(..) , - noIOChannel , - - - -- * Methods --- ** iOChannelClose - iOChannelClose , - - --- ** iOChannelFlush - iOChannelFlush , - - --- ** iOChannelGetBufferCondition - iOChannelGetBufferCondition , - - --- ** iOChannelGetBufferSize - iOChannelGetBufferSize , - - --- ** iOChannelGetBuffered - iOChannelGetBuffered , - - --- ** iOChannelGetCloseOnUnref - iOChannelGetCloseOnUnref , - - --- ** iOChannelGetEncoding - iOChannelGetEncoding , - - --- ** iOChannelGetFlags - iOChannelGetFlags , - - --- ** iOChannelGetLineTerm - iOChannelGetLineTerm , - - --- ** iOChannelInit - iOChannelInit , - - --- ** iOChannelNewFile - iOChannelNewFile , - - --- ** iOChannelRead - iOChannelRead , - - --- ** iOChannelReadLine - iOChannelReadLine , - - --- ** iOChannelReadToEnd - iOChannelReadToEnd , - - --- ** iOChannelReadUnichar - iOChannelReadUnichar , - - --- ** iOChannelRef - iOChannelRef , - - --- ** iOChannelSeek - iOChannelSeek , - - --- ** iOChannelSeekPosition - iOChannelSeekPosition , - - --- ** iOChannelSetBufferSize - iOChannelSetBufferSize , - - --- ** iOChannelSetBuffered - iOChannelSetBuffered , - - --- ** iOChannelSetCloseOnUnref - iOChannelSetCloseOnUnref , - - --- ** iOChannelSetEncoding - iOChannelSetEncoding , - - --- ** iOChannelSetFlags - iOChannelSetFlags , - - --- ** iOChannelSetLineTerm - iOChannelSetLineTerm , - - --- ** iOChannelShutdown - iOChannelShutdown , - - --- ** iOChannelUnixGetFd - iOChannelUnixGetFd , - - --- ** iOChannelUnixNew - iOChannelUnixNew , - - --- ** iOChannelUnref - iOChannelUnref , - - --- ** iOChannelWrite - iOChannelWrite , - - --- ** iOChannelWriteChars - iOChannelWriteChars , - - --- ** iOChannelWriteUnichar - iOChannelWriteUnichar , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype IOChannel = IOChannel (ForeignPtr IOChannel) -foreign import ccall "g_io_channel_get_type" c_g_io_channel_get_type :: - IO GType - -instance BoxedObject IOChannel where - boxedType _ = c_g_io_channel_get_type - -noIOChannel :: Maybe IOChannel -noIOChannel = Nothing - --- method IOChannel::new_file --- method type : Constructor --- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "IOChannel" --- throws : True --- Skip return : False - -foreign import ccall "g_io_channel_new_file" g_io_channel_new_file :: - CString -> -- filename : TBasicType TUTF8 - CString -> -- mode : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr IOChannel) - - -iOChannelNewFile :: - (MonadIO m) => - T.Text -> -- filename - T.Text -> -- mode - m IOChannel -iOChannelNewFile filename mode = liftIO $ do - filename' <- textToCString filename - mode' <- textToCString mode - onException (do - result <- propagateGError $ g_io_channel_new_file filename' mode' - checkUnexpectedReturnNULL "g_io_channel_new_file" result - result' <- (wrapBoxed IOChannel) result - freeMem filename' - freeMem mode' - return result' - ) (do - freeMem filename' - freeMem mode' - ) - --- method IOChannel::unix_new --- method type : Constructor --- Args : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "IOChannel" --- throws : False --- Skip return : False - -foreign import ccall "g_io_channel_unix_new" g_io_channel_unix_new :: - Int32 -> -- fd : TBasicType TInt32 - IO (Ptr IOChannel) - - -iOChannelUnixNew :: - (MonadIO m) => - Int32 -> -- fd - m IOChannel -iOChannelUnixNew fd = liftIO $ do - result <- g_io_channel_unix_new fd - checkUnexpectedReturnNULL "g_io_channel_unix_new" result - result' <- (wrapBoxed IOChannel) result - return result' - --- method IOChannel::close --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", 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_channel_close" g_io_channel_close :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - IO () - -{-# DEPRECATED iOChannelClose ["(Since version 2.2)","Use g_io_channel_shutdown() instead."]#-} -iOChannelClose :: - (MonadIO m) => - IOChannel -> -- _obj - m () -iOChannelClose _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_io_channel_close _obj' - touchManagedPtr _obj - return () - --- method IOChannel::flush --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "IOStatus" --- throws : True --- Skip return : False - -foreign import ccall "g_io_channel_flush" g_io_channel_flush :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - Ptr (Ptr GError) -> -- error - IO CUInt - - -iOChannelFlush :: - (MonadIO m) => - IOChannel -> -- _obj - m IOStatus -iOChannelFlush _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - onException (do - result <- propagateGError $ g_io_channel_flush _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - ) (do - return () - ) - --- method IOChannel::get_buffer_condition --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "IOCondition" --- throws : False --- Skip return : False - -foreign import ccall "g_io_channel_get_buffer_condition" g_io_channel_get_buffer_condition :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - IO CUInt - - -iOChannelGetBufferCondition :: - (MonadIO m) => - IOChannel -> -- _obj - m [IOCondition] -iOChannelGetBufferCondition _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_io_channel_get_buffer_condition _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - --- method IOChannel::get_buffer_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt64 --- throws : False --- Skip return : False - -foreign import ccall "g_io_channel_get_buffer_size" g_io_channel_get_buffer_size :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - IO Word64 - - -iOChannelGetBufferSize :: - (MonadIO m) => - IOChannel -> -- _obj - m Word64 -iOChannelGetBufferSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_io_channel_get_buffer_size _obj' - touchManagedPtr _obj - return result - --- method IOChannel::get_buffered --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_io_channel_get_buffered" g_io_channel_get_buffered :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - IO CInt - - -iOChannelGetBuffered :: - (MonadIO m) => - IOChannel -> -- _obj - m Bool -iOChannelGetBuffered _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_io_channel_get_buffered _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method IOChannel::get_close_on_unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_io_channel_get_close_on_unref" g_io_channel_get_close_on_unref :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - IO CInt - - -iOChannelGetCloseOnUnref :: - (MonadIO m) => - IOChannel -> -- _obj - m Bool -iOChannelGetCloseOnUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_io_channel_get_close_on_unref _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method IOChannel::get_encoding --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_io_channel_get_encoding" g_io_channel_get_encoding :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - IO CString - - -iOChannelGetEncoding :: - (MonadIO m) => - IOChannel -> -- _obj - m T.Text -iOChannelGetEncoding _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_io_channel_get_encoding _obj' - checkUnexpectedReturnNULL "g_io_channel_get_encoding" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method IOChannel::get_flags --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "IOFlags" --- throws : False --- Skip return : False - -foreign import ccall "g_io_channel_get_flags" g_io_channel_get_flags :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - IO CUInt - - -iOChannelGetFlags :: - (MonadIO m) => - IOChannel -> -- _obj - m [IOFlags] -iOChannelGetFlags _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_io_channel_get_flags _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - --- method IOChannel::get_line_term --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_io_channel_get_line_term" g_io_channel_get_line_term :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - Int32 -> -- length : TBasicType TInt32 - IO CString - - -iOChannelGetLineTerm :: - (MonadIO m) => - IOChannel -> -- _obj - Int32 -> -- length - m T.Text -iOChannelGetLineTerm _obj length_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_io_channel_get_line_term _obj' length_ - checkUnexpectedReturnNULL "g_io_channel_get_line_term" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method IOChannel::init --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", 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_channel_init" g_io_channel_init :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - IO () - - -iOChannelInit :: - (MonadIO m) => - IOChannel -> -- _obj - m () -iOChannelInit _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_io_channel_init _obj' - touchManagedPtr _obj - return () - --- method IOChannel::read --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf", argType = TBasicType TUTF8, 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 = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf", argType = TBasicType TUTF8, 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 = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "IOError" --- throws : False --- Skip return : False - -foreign import ccall "g_io_channel_read" g_io_channel_read :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - CString -> -- buf : TBasicType TUTF8 - Word64 -> -- count : TBasicType TUInt64 - Word64 -> -- bytes_read : TBasicType TUInt64 - IO CUInt - -{-# DEPRECATED iOChannelRead ["(Since version 2.2)","Use g_io_channel_read_chars() instead."]#-} -iOChannelRead :: - (MonadIO m) => - IOChannel -> -- _obj - T.Text -> -- buf - Word64 -> -- count - Word64 -> -- bytes_read - m IOError -iOChannelRead _obj buf count bytes_read = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - buf' <- textToCString buf - result <- g_io_channel_read _obj' buf' count bytes_read - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - freeMem buf' - return result' - --- method IOChannel::read_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str_return", argType = TBasicType TUTF8, 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 = "terminator_pos", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "IOStatus" --- throws : True --- Skip return : False - -foreign import ccall "g_io_channel_read_line" g_io_channel_read_line :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - Ptr CString -> -- str_return : TBasicType TUTF8 - Ptr Word64 -> -- length : TBasicType TUInt64 - Ptr Word64 -> -- terminator_pos : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO CUInt - - -iOChannelReadLine :: - (MonadIO m) => - IOChannel -> -- _obj - m (IOStatus,T.Text,Word64,Word64) -iOChannelReadLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - str_return <- allocMem :: IO (Ptr CString) - length_ <- allocMem :: IO (Ptr Word64) - terminator_pos <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_io_channel_read_line _obj' str_return length_ terminator_pos - let result' = (toEnum . fromIntegral) result - str_return' <- peek str_return - str_return'' <- cstringToText str_return' - freeMem str_return' - length_' <- peek length_ - terminator_pos' <- peek terminator_pos - touchManagedPtr _obj - freeMem str_return - freeMem length_ - freeMem terminator_pos - return (result', str_return'', length_', terminator_pos') - ) (do - freeMem str_return - freeMem length_ - freeMem terminator_pos - ) - --- method IOChannel::read_to_end --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "str_return", argType = TCArray False (-1) 2 (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}] --- 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 "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "IOStatus" --- throws : True --- Skip return : False - -foreign import ccall "g_io_channel_read_to_end" g_io_channel_read_to_end :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - Ptr (Ptr Word8) -> -- str_return : TCArray False (-1) 2 (TBasicType TUInt8) - Ptr Word64 -> -- length : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO CUInt - - -iOChannelReadToEnd :: - (MonadIO m) => - IOChannel -> -- _obj - m (IOStatus,ByteString) -iOChannelReadToEnd _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - str_return <- allocMem :: IO (Ptr (Ptr Word8)) - length_ <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_io_channel_read_to_end _obj' str_return length_ - length_' <- peek length_ - let result' = (toEnum . fromIntegral) result - str_return' <- peek str_return - str_return'' <- (unpackByteStringWithLength length_') str_return' - freeMem str_return' - touchManagedPtr _obj - freeMem str_return - freeMem length_ - return (result', str_return'') - ) (do - freeMem str_return - freeMem length_ - ) - --- method IOChannel::read_unichar --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "thechar", argType = TBasicType TUniChar, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "IOStatus" --- throws : True --- Skip return : False - -foreign import ccall "g_io_channel_read_unichar" g_io_channel_read_unichar :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - Ptr CInt -> -- thechar : TBasicType TUniChar - Ptr (Ptr GError) -> -- error - IO CUInt - - -iOChannelReadUnichar :: - (MonadIO m) => - IOChannel -> -- _obj - m (IOStatus,Char) -iOChannelReadUnichar _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - thechar <- allocMem :: IO (Ptr CInt) - onException (do - result <- propagateGError $ g_io_channel_read_unichar _obj' thechar - let result' = (toEnum . fromIntegral) result - thechar' <- peek thechar - let thechar'' = (chr . fromIntegral) thechar' - touchManagedPtr _obj - freeMem thechar - return (result', thechar'') - ) (do - freeMem thechar - ) - --- method IOChannel::ref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "IOChannel" --- throws : False --- Skip return : False - -foreign import ccall "g_io_channel_ref" g_io_channel_ref :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - IO (Ptr IOChannel) - - -iOChannelRef :: - (MonadIO m) => - IOChannel -> -- _obj - m IOChannel -iOChannelRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_io_channel_ref _obj' - checkUnexpectedReturnNULL "g_io_channel_ref" result - result' <- (wrapBoxed IOChannel) result - touchManagedPtr _obj - return result' - --- method IOChannel::seek --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", 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}] --- returnType : TInterface "GLib" "IOError" --- throws : False --- Skip return : False - -foreign import ccall "g_io_channel_seek" g_io_channel_seek :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - Int64 -> -- offset : TBasicType TInt64 - CUInt -> -- type : TInterface "GLib" "SeekType" - IO CUInt - -{-# DEPRECATED iOChannelSeek ["(Since version 2.2)","Use g_io_channel_seek_position() instead."]#-} -iOChannelSeek :: - (MonadIO m) => - IOChannel -> -- _obj - Int64 -> -- offset - SeekType -> -- type - m IOError -iOChannelSeek _obj offset type_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let type_' = (fromIntegral . fromEnum) type_ - result <- g_io_channel_seek _obj' offset type_' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method IOChannel::seek_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", 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}] --- returnType : TInterface "GLib" "IOStatus" --- throws : True --- Skip return : False - -foreign import ccall "g_io_channel_seek_position" g_io_channel_seek_position :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - Int64 -> -- offset : TBasicType TInt64 - CUInt -> -- type : TInterface "GLib" "SeekType" - Ptr (Ptr GError) -> -- error - IO CUInt - - -iOChannelSeekPosition :: - (MonadIO m) => - IOChannel -> -- _obj - Int64 -> -- offset - SeekType -> -- type - m IOStatus -iOChannelSeekPosition _obj offset type_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let type_' = (fromIntegral . fromEnum) type_ - onException (do - result <- propagateGError $ g_io_channel_seek_position _obj' offset type_' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - ) (do - return () - ) - --- method IOChannel::set_buffer_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", 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 - -foreign import ccall "g_io_channel_set_buffer_size" g_io_channel_set_buffer_size :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - Word64 -> -- size : TBasicType TUInt64 - IO () - - -iOChannelSetBufferSize :: - (MonadIO m) => - IOChannel -> -- _obj - Word64 -> -- size - m () -iOChannelSetBufferSize _obj size = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_io_channel_set_buffer_size _obj' size - touchManagedPtr _obj - return () - --- method IOChannel::set_buffered --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffered", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffered", 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_io_channel_set_buffered" g_io_channel_set_buffered :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - CInt -> -- buffered : TBasicType TBoolean - IO () - - -iOChannelSetBuffered :: - (MonadIO m) => - IOChannel -> -- _obj - Bool -> -- buffered - m () -iOChannelSetBuffered _obj buffered = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let buffered' = (fromIntegral . fromEnum) buffered - g_io_channel_set_buffered _obj' buffered' - touchManagedPtr _obj - return () - --- method IOChannel::set_close_on_unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "do_close", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "do_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_io_channel_set_close_on_unref" g_io_channel_set_close_on_unref :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - CInt -> -- do_close : TBasicType TBoolean - IO () - - -iOChannelSetCloseOnUnref :: - (MonadIO m) => - IOChannel -> -- _obj - Bool -> -- do_close - m () -iOChannelSetCloseOnUnref _obj do_close = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let do_close' = (fromIntegral . fromEnum) do_close - g_io_channel_set_close_on_unref _obj' do_close' - touchManagedPtr _obj - return () - --- method IOChannel::set_encoding --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "IOStatus" --- throws : True --- Skip return : False - -foreign import ccall "g_io_channel_set_encoding" g_io_channel_set_encoding :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - CString -> -- encoding : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CUInt - - -iOChannelSetEncoding :: - (MonadIO m) => - IOChannel -> -- _obj - Maybe (T.Text) -> -- encoding - m IOStatus -iOChannelSetEncoding _obj encoding = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeEncoding <- case encoding of - Nothing -> return nullPtr - Just jEncoding -> do - jEncoding' <- textToCString jEncoding - return jEncoding' - onException (do - result <- propagateGError $ g_io_channel_set_encoding _obj' maybeEncoding - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - freeMem maybeEncoding - return result' - ) (do - freeMem maybeEncoding - ) - --- method IOChannel::set_flags --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "IOFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "IOFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "IOStatus" --- throws : True --- Skip return : False - -foreign import ccall "g_io_channel_set_flags" g_io_channel_set_flags :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - CUInt -> -- flags : TInterface "GLib" "IOFlags" - Ptr (Ptr GError) -> -- error - IO CUInt - - -iOChannelSetFlags :: - (MonadIO m) => - IOChannel -> -- _obj - [IOFlags] -> -- flags - m IOStatus -iOChannelSetFlags _obj flags = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let flags' = gflagsToWord flags - onException (do - result <- propagateGError $ g_io_channel_set_flags _obj' flags' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - ) (do - return () - ) - --- method IOChannel::set_line_term --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_term", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "line_term", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", 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_io_channel_set_line_term" g_io_channel_set_line_term :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - CString -> -- line_term : TBasicType TUTF8 - Int32 -> -- length : TBasicType TInt32 - IO () - - -iOChannelSetLineTerm :: - (MonadIO m) => - IOChannel -> -- _obj - Maybe (T.Text) -> -- line_term - Int32 -> -- length - m () -iOChannelSetLineTerm _obj line_term length_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeLine_term <- case line_term of - Nothing -> return nullPtr - Just jLine_term -> do - jLine_term' <- textToCString jLine_term - return jLine_term' - g_io_channel_set_line_term _obj' maybeLine_term length_ - touchManagedPtr _obj - freeMem maybeLine_term - return () - --- method IOChannel::shutdown --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flush", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flush", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "IOStatus" --- throws : True --- Skip return : False - -foreign import ccall "g_io_channel_shutdown" g_io_channel_shutdown :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - CInt -> -- flush : TBasicType TBoolean - Ptr (Ptr GError) -> -- error - IO CUInt - - -iOChannelShutdown :: - (MonadIO m) => - IOChannel -> -- _obj - Bool -> -- flush - m IOStatus -iOChannelShutdown _obj flush = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let flush' = (fromIntegral . fromEnum) flush - onException (do - result <- propagateGError $ g_io_channel_shutdown _obj' flush' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - ) (do - return () - ) - --- method IOChannel::unix_get_fd --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_io_channel_unix_get_fd" g_io_channel_unix_get_fd :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - IO Int32 - - -iOChannelUnixGetFd :: - (MonadIO m) => - IOChannel -> -- _obj - m Int32 -iOChannelUnixGetFd _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_io_channel_unix_get_fd _obj' - touchManagedPtr _obj - return result - --- method IOChannel::unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", 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_channel_unref" g_io_channel_unref :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - IO () - - -iOChannelUnref :: - (MonadIO m) => - IOChannel -> -- _obj - m () -iOChannelUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_io_channel_unref _obj' - touchManagedPtr _obj - return () - --- method IOChannel::write --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf", argType = TBasicType TUTF8, 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 = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf", argType = TBasicType TUTF8, 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 = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "IOError" --- throws : False --- Skip return : False - -foreign import ccall "g_io_channel_write" g_io_channel_write :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - CString -> -- buf : TBasicType TUTF8 - Word64 -> -- count : TBasicType TUInt64 - Word64 -> -- bytes_written : TBasicType TUInt64 - IO CUInt - -{-# DEPRECATED iOChannelWrite ["(Since version 2.2)","Use g_io_channel_write_chars() instead."]#-} -iOChannelWrite :: - (MonadIO m) => - IOChannel -> -- _obj - T.Text -> -- buf - Word64 -> -- count - Word64 -> -- bytes_written - m IOError -iOChannelWrite _obj buf count bytes_written = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - buf' <- textToCString buf - result <- g_io_channel_write _obj' buf' count bytes_written - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - freeMem buf' - return result' - --- method IOChannel::write_chars --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf", argType = TCArray False (-1) (-1) (TBasicType TUInt8), 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 = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buf", argType = TCArray False (-1) (-1) (TBasicType TUInt8), 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}] --- returnType : TInterface "GLib" "IOStatus" --- throws : True --- Skip return : False - -foreign import ccall "g_io_channel_write_chars" g_io_channel_write_chars :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - Ptr Word8 -> -- buf : TCArray False (-1) (-1) (TBasicType TUInt8) - Int64 -> -- count : TBasicType TInt64 - Ptr Word64 -> -- bytes_written : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO CUInt - - -iOChannelWriteChars :: - (MonadIO m) => - IOChannel -> -- _obj - Ptr Word8 -> -- buf - Int64 -> -- count - m (IOStatus,Word64) -iOChannelWriteChars _obj buf count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - bytes_written <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_io_channel_write_chars _obj' buf count bytes_written - let result' = (toEnum . fromIntegral) result - bytes_written' <- peek bytes_written - touchManagedPtr _obj - freeMem bytes_written - return (result', bytes_written') - ) (do - freeMem bytes_written - ) - --- method IOChannel::write_unichar --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "thechar", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "thechar", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "IOStatus" --- throws : True --- Skip return : False - -foreign import ccall "g_io_channel_write_unichar" g_io_channel_write_unichar :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - CInt -> -- thechar : TBasicType TUniChar - Ptr (Ptr GError) -> -- error - IO CUInt - - -iOChannelWriteUnichar :: - (MonadIO m) => - IOChannel -> -- _obj - Char -> -- thechar - m IOStatus -iOChannelWriteUnichar _obj thechar = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let thechar' = (fromIntegral . ord) thechar - onException (do - result <- propagateGError $ g_io_channel_write_unichar _obj' thechar' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - ) (do - return () - ) - - diff --git a/GI/GLib/Structs/IOChannel.hs-boot b/GI/GLib/Structs/IOChannel.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/IOChannel.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.GLib.Structs.IOChannel 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 - -newtype IOChannel = IOChannel (ForeignPtr IOChannel) -instance BoxedObject IOChannel where diff --git a/GI/GLib/Structs/IOFuncs.hs b/GI/GLib/Structs/IOFuncs.hs deleted file mode 100644 --- a/GI/GLib/Structs/IOFuncs.hs +++ /dev/null @@ -1,51 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A table of functions used to handle different types of #GIOChannel -in a generic way. --} - -module GI.GLib.Structs.IOFuncs - ( - --- * Exported types - IOFuncs(..) , - noIOFuncs , - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype IOFuncs = IOFuncs (ForeignPtr IOFuncs) -noIOFuncs :: Maybe IOFuncs -noIOFuncs = Nothing - --- XXX Skipped getter for "IOFuncs:io_read" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- XXX Skipped getter for "IOFuncs:io_write" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- XXX Skipped getter for "IOFuncs:io_seek" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- XXX Skipped getter for "IOFuncs:io_close" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- XXX Skipped getter for "IOFuncs:io_create_watch" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- XXX Skipped getter for "IOFuncs:io_free" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- XXX Skipped getter for "IOFuncs:io_set_flags" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- XXX Skipped getter for "IOFuncs:io_get_flags" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - - diff --git a/GI/GLib/Structs/IOFuncs.hs-boot b/GI/GLib/Structs/IOFuncs.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/IOFuncs.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.IOFuncs 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 - -newtype IOFuncs = IOFuncs (ForeignPtr IOFuncs) diff --git a/GI/GLib/Structs/KeyFile.hs b/GI/GLib/Structs/KeyFile.hs deleted file mode 100644 --- a/GI/GLib/Structs/KeyFile.hs +++ /dev/null @@ -1,1915 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The GKeyFile struct contains only private data -and should not be accessed directly. --} - -module GI.GLib.Structs.KeyFile - ( - --- * Exported types - KeyFile(..) , - noKeyFile , - - - -- * Methods --- ** keyFileGetBoolean - keyFileGetBoolean , - - --- ** keyFileGetBooleanList - keyFileGetBooleanList , - - --- ** keyFileGetComment - keyFileGetComment , - - --- ** keyFileGetDouble - keyFileGetDouble , - - --- ** keyFileGetDoubleList - keyFileGetDoubleList , - - --- ** keyFileGetGroups - keyFileGetGroups , - - --- ** keyFileGetInt64 - keyFileGetInt64 , - - --- ** keyFileGetInteger - keyFileGetInteger , - - --- ** keyFileGetIntegerList - keyFileGetIntegerList , - - --- ** keyFileGetKeys - keyFileGetKeys , - - --- ** keyFileGetLocaleString - keyFileGetLocaleString , - - --- ** keyFileGetLocaleStringList - keyFileGetLocaleStringList , - - --- ** keyFileGetStartGroup - keyFileGetStartGroup , - - --- ** keyFileGetString - keyFileGetString , - - --- ** keyFileGetStringList - keyFileGetStringList , - - --- ** keyFileGetUint64 - keyFileGetUint64 , - - --- ** keyFileGetValue - keyFileGetValue , - - --- ** keyFileHasGroup - keyFileHasGroup , - - --- ** keyFileLoadFromData - keyFileLoadFromData , - - --- ** keyFileLoadFromDataDirs - keyFileLoadFromDataDirs , - - --- ** keyFileLoadFromDirs - keyFileLoadFromDirs , - - --- ** keyFileLoadFromFile - keyFileLoadFromFile , - - --- ** keyFileNew - keyFileNew , - - --- ** keyFileRemoveComment - keyFileRemoveComment , - - --- ** keyFileRemoveGroup - keyFileRemoveGroup , - - --- ** keyFileRemoveKey - keyFileRemoveKey , - - --- ** keyFileSaveToFile - keyFileSaveToFile , - - --- ** keyFileSetBoolean - keyFileSetBoolean , - - --- ** keyFileSetBooleanList - keyFileSetBooleanList , - - --- ** keyFileSetComment - keyFileSetComment , - - --- ** keyFileSetDouble - keyFileSetDouble , - - --- ** keyFileSetDoubleList - keyFileSetDoubleList , - - --- ** keyFileSetInt64 - keyFileSetInt64 , - - --- ** keyFileSetInteger - keyFileSetInteger , - - --- ** keyFileSetIntegerList - keyFileSetIntegerList , - - --- ** keyFileSetListSeparator - keyFileSetListSeparator , - - --- ** keyFileSetLocaleString - keyFileSetLocaleString , - - --- ** keyFileSetLocaleStringList - keyFileSetLocaleStringList , - - --- ** keyFileSetString - keyFileSetString , - - --- ** keyFileSetStringList - keyFileSetStringList , - - --- ** keyFileSetUint64 - keyFileSetUint64 , - - --- ** keyFileSetValue - keyFileSetValue , - - --- ** keyFileToData - keyFileToData , - - --- ** keyFileUnref - keyFileUnref , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype KeyFile = KeyFile (ForeignPtr KeyFile) -foreign import ccall "g_key_file_get_type" c_g_key_file_get_type :: - IO GType - -instance BoxedObject KeyFile where - boxedType _ = c_g_key_file_get_type - -noKeyFile :: Maybe KeyFile -noKeyFile = Nothing - --- method KeyFile::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "GLib" "KeyFile" --- throws : False --- Skip return : False - -foreign import ccall "g_key_file_new" g_key_file_new :: - IO (Ptr KeyFile) - - -keyFileNew :: - (MonadIO m) => - m KeyFile -keyFileNew = liftIO $ do - result <- g_key_file_new - checkUnexpectedReturnNULL "g_key_file_new" result - result' <- (wrapBoxed KeyFile) result - return result' - --- method KeyFile::get_boolean --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 : True --- Skip return : False - -foreign import ccall "g_key_file_get_boolean" g_key_file_get_boolean :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -keyFileGetBoolean :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - T.Text -> -- key - m () -keyFileGetBoolean _obj group_name key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - key' <- textToCString key - onException (do - _ <- propagateGError $ g_key_file_get_boolean _obj' group_name' key' - touchManagedPtr _obj - freeMem group_name' - freeMem key' - return () - ) (do - freeMem group_name' - freeMem key' - ) - --- method KeyFile::get_boolean_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "length", argType = TBasicType TUInt64, 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 "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 False (-1) 3 (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_key_file_get_boolean_list" g_key_file_get_boolean_list :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - Ptr Word64 -> -- length : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO (Ptr CInt) - - -keyFileGetBooleanList :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - T.Text -> -- key - m [Bool] -keyFileGetBooleanList _obj group_name key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - key' <- textToCString key - length_ <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_key_file_get_boolean_list _obj' group_name' key' length_ - length_' <- peek length_ - checkUnexpectedReturnNULL "g_key_file_get_boolean_list" result - result' <- (unpackMapStorableArrayWithLength (/= 0) length_') result - freeMem result - touchManagedPtr _obj - freeMem group_name' - freeMem key' - freeMem length_ - return result' - ) (do - freeMem group_name' - freeMem key' - freeMem length_ - ) - --- method KeyFile::get_comment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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 : True --- Skip return : False - -foreign import ccall "g_key_file_get_comment" g_key_file_get_comment :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CString - - -keyFileGetComment :: - (MonadIO m) => - KeyFile -> -- _obj - Maybe (T.Text) -> -- group_name - T.Text -> -- key - m T.Text -keyFileGetComment _obj group_name key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeGroup_name <- case group_name of - Nothing -> return nullPtr - Just jGroup_name -> do - jGroup_name' <- textToCString jGroup_name - return jGroup_name' - key' <- textToCString key - onException (do - result <- propagateGError $ g_key_file_get_comment _obj' maybeGroup_name key' - checkUnexpectedReturnNULL "g_key_file_get_comment" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - freeMem maybeGroup_name - freeMem key' - return result' - ) (do - freeMem maybeGroup_name - freeMem key' - ) - --- method KeyFile::get_double --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 : True --- Skip return : False - -foreign import ccall "g_key_file_get_double" g_key_file_get_double :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CDouble - - -keyFileGetDouble :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - T.Text -> -- key - m Double -keyFileGetDouble _obj group_name key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - key' <- textToCString key - onException (do - result <- propagateGError $ g_key_file_get_double _obj' group_name' key' - let result' = realToFrac result - touchManagedPtr _obj - freeMem group_name' - freeMem key' - return result' - ) (do - freeMem group_name' - freeMem key' - ) - --- method KeyFile::get_double_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "length", argType = TBasicType TUInt64, 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 "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 False (-1) 3 (TBasicType TDouble) --- throws : True --- Skip return : False - -foreign import ccall "g_key_file_get_double_list" g_key_file_get_double_list :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - Ptr Word64 -> -- length : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO (Ptr CDouble) - - -keyFileGetDoubleList :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - T.Text -> -- key - m [Double] -keyFileGetDoubleList _obj group_name key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - key' <- textToCString key - length_ <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_key_file_get_double_list _obj' group_name' key' length_ - length_' <- peek length_ - checkUnexpectedReturnNULL "g_key_file_get_double_list" result - result' <- (unpackMapStorableArrayWithLength realToFrac length_') result - freeMem result - touchManagedPtr _obj - freeMem group_name' - freeMem key' - freeMem length_ - return result' - ) (do - freeMem group_name' - freeMem key' - freeMem length_ - ) - --- method KeyFile::get_groups --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", 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_key_file_get_groups" g_key_file_get_groups :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - Ptr Word64 -> -- length : TBasicType TUInt64 - IO (Ptr CString) - - -keyFileGetGroups :: - (MonadIO m) => - KeyFile -> -- _obj - m ([T.Text],Word64) -keyFileGetGroups _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - length_ <- allocMem :: IO (Ptr Word64) - result <- g_key_file_get_groups _obj' length_ - checkUnexpectedReturnNULL "g_key_file_get_groups" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - length_' <- peek length_ - touchManagedPtr _obj - freeMem length_ - return (result', length_') - --- method KeyFile::get_int64 --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 TInt64 --- throws : True --- Skip return : False - -foreign import ccall "g_key_file_get_int64" g_key_file_get_int64 :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO Int64 - - -keyFileGetInt64 :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - T.Text -> -- key - m Int64 -keyFileGetInt64 _obj group_name key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - key' <- textToCString key - onException (do - result <- propagateGError $ g_key_file_get_int64 _obj' group_name' key' - touchManagedPtr _obj - freeMem group_name' - freeMem key' - return result - ) (do - freeMem group_name' - freeMem key' - ) - --- method KeyFile::get_integer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 : True --- Skip return : False - -foreign import ccall "g_key_file_get_integer" g_key_file_get_integer :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO Int32 - - -keyFileGetInteger :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - T.Text -> -- key - m Int32 -keyFileGetInteger _obj group_name key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - key' <- textToCString key - onException (do - result <- propagateGError $ g_key_file_get_integer _obj' group_name' key' - touchManagedPtr _obj - freeMem group_name' - freeMem key' - return result - ) (do - freeMem group_name' - freeMem key' - ) - --- method KeyFile::get_integer_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "length", argType = TBasicType TUInt64, 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 "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 False (-1) 3 (TBasicType TInt32) --- throws : True --- Skip return : False - -foreign import ccall "g_key_file_get_integer_list" g_key_file_get_integer_list :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - Ptr Word64 -> -- length : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO (Ptr Int32) - - -keyFileGetIntegerList :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - T.Text -> -- key - m [Int32] -keyFileGetIntegerList _obj group_name key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - key' <- textToCString key - length_ <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_key_file_get_integer_list _obj' group_name' key' length_ - length_' <- peek length_ - checkUnexpectedReturnNULL "g_key_file_get_integer_list" result - result' <- (unpackStorableArrayWithLength length_') result - freeMem result - touchManagedPtr _obj - freeMem group_name' - freeMem key' - freeMem length_ - return result' - ) (do - freeMem group_name' - freeMem key' - freeMem length_ - ) - --- method KeyFile::get_keys --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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_key_file_get_keys" g_key_file_get_keys :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - Ptr Word64 -> -- length : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO (Ptr CString) - - -keyFileGetKeys :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - m ([T.Text],Word64) -keyFileGetKeys _obj group_name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - length_ <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_key_file_get_keys _obj' group_name' length_ - checkUnexpectedReturnNULL "g_key_file_get_keys" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - length_' <- peek length_ - touchManagedPtr _obj - freeMem group_name' - freeMem length_ - return (result', length_') - ) (do - freeMem group_name' - freeMem length_ - ) - --- method KeyFile::get_locale_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : True --- Skip return : False - -foreign import ccall "g_key_file_get_locale_string" g_key_file_get_locale_string :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - CString -> -- locale : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CString - - -keyFileGetLocaleString :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - T.Text -> -- key - Maybe (T.Text) -> -- locale - m T.Text -keyFileGetLocaleString _obj group_name key locale = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - key' <- textToCString key - maybeLocale <- case locale of - Nothing -> return nullPtr - Just jLocale -> do - jLocale' <- textToCString jLocale - return jLocale' - onException (do - result <- propagateGError $ g_key_file_get_locale_string _obj' group_name' key' maybeLocale - checkUnexpectedReturnNULL "g_key_file_get_locale_string" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - freeMem group_name' - freeMem key' - freeMem maybeLocale - return result' - ) (do - freeMem group_name' - freeMem key' - freeMem maybeLocale - ) - --- method KeyFile::get_locale_string_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TCArray True (-1) 4 (TBasicType TUTF8) --- throws : True --- Skip return : False - -foreign import ccall "g_key_file_get_locale_string_list" g_key_file_get_locale_string_list :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - CString -> -- locale : TBasicType TUTF8 - Ptr Word64 -> -- length : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO (Ptr CString) - - -keyFileGetLocaleStringList :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - T.Text -> -- key - Maybe (T.Text) -> -- locale - m ([T.Text],Word64) -keyFileGetLocaleStringList _obj group_name key locale = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - key' <- textToCString key - maybeLocale <- case locale of - Nothing -> return nullPtr - Just jLocale -> do - jLocale' <- textToCString jLocale - return jLocale' - length_ <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_key_file_get_locale_string_list _obj' group_name' key' maybeLocale length_ - checkUnexpectedReturnNULL "g_key_file_get_locale_string_list" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - length_' <- peek length_ - touchManagedPtr _obj - freeMem group_name' - freeMem key' - freeMem maybeLocale - freeMem length_ - return (result', length_') - ) (do - freeMem group_name' - freeMem key' - freeMem maybeLocale - freeMem length_ - ) - --- method KeyFile::get_start_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_key_file_get_start_group" g_key_file_get_start_group :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - IO CString - - -keyFileGetStartGroup :: - (MonadIO m) => - KeyFile -> -- _obj - m T.Text -keyFileGetStartGroup _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_key_file_get_start_group _obj' - checkUnexpectedReturnNULL "g_key_file_get_start_group" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method KeyFile::get_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 : True --- Skip return : False - -foreign import ccall "g_key_file_get_string" g_key_file_get_string :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CString - - -keyFileGetString :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - T.Text -> -- key - m T.Text -keyFileGetString _obj group_name key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - key' <- textToCString key - onException (do - result <- propagateGError $ g_key_file_get_string _obj' group_name' key' - checkUnexpectedReturnNULL "g_key_file_get_string" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - freeMem group_name' - freeMem key' - return result' - ) (do - freeMem group_name' - freeMem key' - ) - --- method KeyFile::get_string_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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) 3 (TBasicType TUTF8) --- throws : True --- Skip return : False - -foreign import ccall "g_key_file_get_string_list" g_key_file_get_string_list :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - Ptr Word64 -> -- length : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO (Ptr CString) - - -keyFileGetStringList :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - T.Text -> -- key - m ([T.Text],Word64) -keyFileGetStringList _obj group_name key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - key' <- textToCString key - length_ <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_key_file_get_string_list _obj' group_name' key' length_ - checkUnexpectedReturnNULL "g_key_file_get_string_list" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - length_' <- peek length_ - touchManagedPtr _obj - freeMem group_name' - freeMem key' - freeMem length_ - return (result', length_') - ) (do - freeMem group_name' - freeMem key' - freeMem length_ - ) - --- method KeyFile::get_uint64 --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 TUInt64 --- throws : True --- Skip return : False - -foreign import ccall "g_key_file_get_uint64" g_key_file_get_uint64 :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO Word64 - - -keyFileGetUint64 :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - T.Text -> -- key - m Word64 -keyFileGetUint64 _obj group_name key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - key' <- textToCString key - onException (do - result <- propagateGError $ g_key_file_get_uint64 _obj' group_name' key' - touchManagedPtr _obj - freeMem group_name' - freeMem key' - return result - ) (do - freeMem group_name' - freeMem key' - ) - --- method KeyFile::get_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 : True --- Skip return : False - -foreign import ccall "g_key_file_get_value" g_key_file_get_value :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CString - - -keyFileGetValue :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - T.Text -> -- key - m T.Text -keyFileGetValue _obj group_name key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - key' <- textToCString key - onException (do - result <- propagateGError $ g_key_file_get_value _obj' group_name' key' - checkUnexpectedReturnNULL "g_key_file_get_value" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - freeMem group_name' - freeMem key' - return result' - ) (do - freeMem group_name' - freeMem key' - ) - --- method KeyFile::has_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_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_key_file_has_group" g_key_file_has_group :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - IO CInt - - -keyFileHasGroup :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - m Bool -keyFileHasGroup _obj group_name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - result <- g_key_file_has_group _obj' group_name' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem group_name' - return result' - --- method KeyFile::load_from_data --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, 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 = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, 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 = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_key_file_load_from_data" g_key_file_load_from_data :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- data : TBasicType TUTF8 - Word64 -> -- length : TBasicType TUInt64 - CUInt -> -- flags : TInterface "GLib" "KeyFileFlags" - Ptr (Ptr GError) -> -- error - IO CInt - - -keyFileLoadFromData :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- data - Word64 -> -- length - [KeyFileFlags] -> -- flags - m () -keyFileLoadFromData _obj data_ length_ flags = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - data_' <- textToCString data_ - let flags' = gflagsToWord flags - onException (do - _ <- propagateGError $ g_key_file_load_from_data _obj' data_' length_ flags' - touchManagedPtr _obj - freeMem data_' - return () - ) (do - freeMem data_' - ) - --- method KeyFile::load_from_data_dirs --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "full_path", argType = TBasicType TFileName, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_key_file_load_from_data_dirs" g_key_file_load_from_data_dirs :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- file : TBasicType TFileName - Ptr CString -> -- full_path : TBasicType TFileName - CUInt -> -- flags : TInterface "GLib" "KeyFileFlags" - Ptr (Ptr GError) -> -- error - IO CInt - - -keyFileLoadFromDataDirs :: - (MonadIO m) => - KeyFile -> -- _obj - [Char] -> -- file - [KeyFileFlags] -> -- flags - m ([Char]) -keyFileLoadFromDataDirs _obj file flags = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - file' <- stringToCString file - full_path <- allocMem :: IO (Ptr CString) - let flags' = gflagsToWord flags - onException (do - _ <- propagateGError $ g_key_file_load_from_data_dirs _obj' file' full_path flags' - full_path' <- peek full_path - full_path'' <- cstringToString full_path' - freeMem full_path' - touchManagedPtr _obj - freeMem file' - freeMem full_path - return full_path'' - ) (do - freeMem file' - freeMem full_path - ) - --- method KeyFile::load_from_dirs --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_dirs", argType = TCArray True (-1) (-1) (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "full_path", argType = TBasicType TFileName, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "search_dirs", argType = TCArray True (-1) (-1) (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_key_file_load_from_dirs" g_key_file_load_from_dirs :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- file : TBasicType TFileName - Ptr CString -> -- search_dirs : TCArray True (-1) (-1) (TBasicType TFileName) - Ptr CString -> -- full_path : TBasicType TFileName - CUInt -> -- flags : TInterface "GLib" "KeyFileFlags" - Ptr (Ptr GError) -> -- error - IO CInt - - -keyFileLoadFromDirs :: - (MonadIO m) => - KeyFile -> -- _obj - [Char] -> -- file - [[Char]] -> -- search_dirs - [KeyFileFlags] -> -- flags - m ([Char]) -keyFileLoadFromDirs _obj file search_dirs flags = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - file' <- stringToCString file - search_dirs' <- packZeroTerminatedFileNameArray search_dirs - full_path <- allocMem :: IO (Ptr CString) - let flags' = gflagsToWord flags - onException (do - _ <- propagateGError $ g_key_file_load_from_dirs _obj' file' search_dirs' full_path flags' - full_path' <- peek full_path - full_path'' <- cstringToString full_path' - freeMem full_path' - touchManagedPtr _obj - freeMem file' - mapZeroTerminatedCArray freeMem search_dirs' - freeMem search_dirs' - freeMem full_path - return full_path'' - ) (do - freeMem file' - mapZeroTerminatedCArray freeMem search_dirs' - freeMem search_dirs' - freeMem full_path - ) - --- method KeyFile::load_from_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_key_file_load_from_file" g_key_file_load_from_file :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- file : TBasicType TFileName - CUInt -> -- flags : TInterface "GLib" "KeyFileFlags" - Ptr (Ptr GError) -> -- error - IO CInt - - -keyFileLoadFromFile :: - (MonadIO m) => - KeyFile -> -- _obj - [Char] -> -- file - [KeyFileFlags] -> -- flags - m () -keyFileLoadFromFile _obj file flags = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - file' <- stringToCString file - let flags' = gflagsToWord flags - onException (do - _ <- propagateGError $ g_key_file_load_from_file _obj' file' flags' - touchManagedPtr _obj - freeMem file' - return () - ) (do - freeMem file' - ) - --- method KeyFile::remove_comment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_key_file_remove_comment" g_key_file_remove_comment :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -keyFileRemoveComment :: - (MonadIO m) => - KeyFile -> -- _obj - Maybe (T.Text) -> -- group_name - Maybe (T.Text) -> -- key - m () -keyFileRemoveComment _obj group_name key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeGroup_name <- case group_name of - Nothing -> return nullPtr - Just jGroup_name -> do - jGroup_name' <- textToCString jGroup_name - return jGroup_name' - maybeKey <- case key of - Nothing -> return nullPtr - Just jKey -> do - jKey' <- textToCString jKey - return jKey' - onException (do - _ <- propagateGError $ g_key_file_remove_comment _obj' maybeGroup_name maybeKey - touchManagedPtr _obj - freeMem maybeGroup_name - freeMem maybeKey - return () - ) (do - freeMem maybeGroup_name - freeMem maybeKey - ) - --- method KeyFile::remove_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_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_key_file_remove_group" g_key_file_remove_group :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -keyFileRemoveGroup :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - m () -keyFileRemoveGroup _obj group_name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - onException (do - _ <- propagateGError $ g_key_file_remove_group _obj' group_name' - touchManagedPtr _obj - freeMem group_name' - return () - ) (do - freeMem group_name' - ) - --- method KeyFile::remove_key --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 : True --- Skip return : False - -foreign import ccall "g_key_file_remove_key" g_key_file_remove_key :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -keyFileRemoveKey :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - T.Text -> -- key - m () -keyFileRemoveKey _obj group_name key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - key' <- textToCString key - onException (do - _ <- propagateGError $ g_key_file_remove_key _obj' group_name' key' - touchManagedPtr _obj - freeMem group_name' - freeMem key' - return () - ) (do - freeMem group_name' - freeMem key' - ) - --- method KeyFile::save_to_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", 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_key_file_save_to_file" g_key_file_save_to_file :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- filename : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -keyFileSaveToFile :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- filename - m () -keyFileSaveToFile _obj filename = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - filename' <- textToCString filename - onException (do - _ <- propagateGError $ g_key_file_save_to_file _obj' filename' - touchManagedPtr _obj - freeMem filename' - return () - ) (do - freeMem filename' - ) - --- method KeyFile::set_boolean --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_key_file_set_boolean" g_key_file_set_boolean :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - CInt -> -- value : TBasicType TBoolean - IO () - - -keyFileSetBoolean :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - T.Text -> -- key - Bool -> -- value - m () -keyFileSetBoolean _obj group_name key value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - key' <- textToCString key - let value' = (fromIntegral . fromEnum) value - g_key_file_set_boolean _obj' group_name' key' value' - touchManagedPtr _obj - freeMem group_name' - freeMem key' - return () - --- method KeyFile::set_boolean_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "list", argType = TCArray False (-1) 4 (TBasicType TBoolean), 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}] --- 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 "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "list", argType = TCArray False (-1) 4 (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_key_file_set_boolean_list" g_key_file_set_boolean_list :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - Ptr CInt -> -- list : TCArray False (-1) 4 (TBasicType TBoolean) - Word64 -> -- length : TBasicType TUInt64 - IO () - - -keyFileSetBooleanList :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - T.Text -> -- key - [Bool] -> -- list - m () -keyFileSetBooleanList _obj group_name key list = liftIO $ do - let length_ = fromIntegral $ length list - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - key' <- textToCString key - list' <- (packMapStorableArray (fromIntegral . fromEnum)) list - g_key_file_set_boolean_list _obj' group_name' key' list' length_ - touchManagedPtr _obj - freeMem group_name' - freeMem key' - freeMem list' - return () - --- method KeyFile::set_comment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "comment", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "comment", 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_key_file_set_comment" g_key_file_set_comment :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - CString -> -- comment : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -keyFileSetComment :: - (MonadIO m) => - KeyFile -> -- _obj - Maybe (T.Text) -> -- group_name - Maybe (T.Text) -> -- key - T.Text -> -- comment - m () -keyFileSetComment _obj group_name key comment = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeGroup_name <- case group_name of - Nothing -> return nullPtr - Just jGroup_name -> do - jGroup_name' <- textToCString jGroup_name - return jGroup_name' - maybeKey <- case key of - Nothing -> return nullPtr - Just jKey -> do - jKey' <- textToCString jKey - return jKey' - comment' <- textToCString comment - onException (do - _ <- propagateGError $ g_key_file_set_comment _obj' maybeGroup_name maybeKey comment' - touchManagedPtr _obj - freeMem maybeGroup_name - freeMem maybeKey - freeMem comment' - return () - ) (do - freeMem maybeGroup_name - freeMem maybeKey - freeMem comment' - ) - --- method KeyFile::set_double --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_key_file_set_double" g_key_file_set_double :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - CDouble -> -- value : TBasicType TDouble - IO () - - -keyFileSetDouble :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - T.Text -> -- key - Double -> -- value - m () -keyFileSetDouble _obj group_name key value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - key' <- textToCString key - let value' = realToFrac value - g_key_file_set_double _obj' group_name' key' value' - touchManagedPtr _obj - freeMem group_name' - freeMem key' - return () - --- method KeyFile::set_double_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "list", argType = TCArray False (-1) 4 (TBasicType TDouble), 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}] --- 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 "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "list", argType = TCArray False (-1) 4 (TBasicType TDouble), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_key_file_set_double_list" g_key_file_set_double_list :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - Ptr CDouble -> -- list : TCArray False (-1) 4 (TBasicType TDouble) - Word64 -> -- length : TBasicType TUInt64 - IO () - - -keyFileSetDoubleList :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - T.Text -> -- key - [Double] -> -- list - m () -keyFileSetDoubleList _obj group_name key list = liftIO $ do - let length_ = fromIntegral $ length list - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - key' <- textToCString key - list' <- (packMapStorableArray realToFrac) list - g_key_file_set_double_list _obj' group_name' key' list' length_ - touchManagedPtr _obj - freeMem group_name' - freeMem key' - freeMem list' - return () - --- method KeyFile::set_int64 --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 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_key_file_set_int64" g_key_file_set_int64 :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - Int64 -> -- value : TBasicType TInt64 - IO () - - -keyFileSetInt64 :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - T.Text -> -- key - Int64 -> -- value - m () -keyFileSetInt64 _obj group_name key value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - key' <- textToCString key - g_key_file_set_int64 _obj' group_name' key' value - touchManagedPtr _obj - freeMem group_name' - freeMem key' - return () - --- method KeyFile::set_integer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_key_file_set_integer" g_key_file_set_integer :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - Int32 -> -- value : TBasicType TInt32 - IO () - - -keyFileSetInteger :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - T.Text -> -- key - Int32 -> -- value - m () -keyFileSetInteger _obj group_name key value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - key' <- textToCString key - g_key_file_set_integer _obj' group_name' key' value - touchManagedPtr _obj - freeMem group_name' - freeMem key' - return () - --- method KeyFile::set_integer_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "list", argType = TCArray False (-1) 4 (TBasicType TInt32), 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}] --- 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 "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "list", argType = TCArray False (-1) 4 (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_key_file_set_integer_list" g_key_file_set_integer_list :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - Ptr Int32 -> -- list : TCArray False (-1) 4 (TBasicType TInt32) - Word64 -> -- length : TBasicType TUInt64 - IO () - - -keyFileSetIntegerList :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - T.Text -> -- key - [Int32] -> -- list - m () -keyFileSetIntegerList _obj group_name key list = liftIO $ do - let length_ = fromIntegral $ length list - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - key' <- textToCString key - list' <- packStorableArray list - g_key_file_set_integer_list _obj' group_name' key' list' length_ - touchManagedPtr _obj - freeMem group_name' - freeMem key' - freeMem list' - return () - --- method KeyFile::set_list_separator --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "separator", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "separator", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_key_file_set_list_separator" g_key_file_set_list_separator :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - Int8 -> -- separator : TBasicType TInt8 - IO () - - -keyFileSetListSeparator :: - (MonadIO m) => - KeyFile -> -- _obj - Int8 -> -- separator - m () -keyFileSetListSeparator _obj separator = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_key_file_set_list_separator _obj' separator - touchManagedPtr _obj - return () - --- method KeyFile::set_locale_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", 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_key_file_set_locale_string" g_key_file_set_locale_string :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - CString -> -- locale : TBasicType TUTF8 - CString -> -- string : TBasicType TUTF8 - IO () - - -keyFileSetLocaleString :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - T.Text -> -- key - T.Text -> -- locale - T.Text -> -- string - m () -keyFileSetLocaleString _obj group_name key locale string = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - key' <- textToCString key - locale' <- textToCString locale - string' <- textToCString string - g_key_file_set_locale_string _obj' group_name' key' locale' string' - touchManagedPtr _obj - freeMem group_name' - freeMem key' - freeMem locale' - freeMem string' - return () - --- method KeyFile::set_locale_string_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TCArray True (-1) 5 (TBasicType TUTF8), 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TCArray True (-1) 5 (TBasicType TUTF8), 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}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_key_file_set_locale_string_list" g_key_file_set_locale_string_list :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - CString -> -- locale : TBasicType TUTF8 - Ptr CString -> -- list : TCArray True (-1) 5 (TBasicType TUTF8) - Word64 -> -- length : TBasicType TUInt64 - IO () - - -keyFileSetLocaleStringList :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - T.Text -> -- key - T.Text -> -- locale - [T.Text] -> -- list - Word64 -> -- length - m () -keyFileSetLocaleStringList _obj group_name key locale list length_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - key' <- textToCString key - locale' <- textToCString locale - list' <- packZeroTerminatedUTF8CArray list - g_key_file_set_locale_string_list _obj' group_name' key' locale' list' length_ - touchManagedPtr _obj - freeMem group_name' - freeMem key' - freeMem locale' - mapZeroTerminatedCArray freeMem list' - freeMem list' - return () - --- method KeyFile::set_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "string", 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_key_file_set_string" g_key_file_set_string :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - CString -> -- string : TBasicType TUTF8 - IO () - - -keyFileSetString :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - T.Text -> -- key - T.Text -> -- string - m () -keyFileSetString _obj group_name key string = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - key' <- textToCString key - string' <- textToCString string - g_key_file_set_string _obj' group_name' key' string' - touchManagedPtr _obj - freeMem group_name' - freeMem key' - freeMem string' - return () - --- method KeyFile::set_string_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "list", argType = TCArray True (-1) 4 (TBasicType TUTF8), 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 = "list", argType = TCArray True (-1) 4 (TBasicType TUTF8), 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}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_key_file_set_string_list" g_key_file_set_string_list :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - Ptr CString -> -- list : TCArray True (-1) 4 (TBasicType TUTF8) - Word64 -> -- length : TBasicType TUInt64 - IO () - - -keyFileSetStringList :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - T.Text -> -- key - [T.Text] -> -- list - Word64 -> -- length - m () -keyFileSetStringList _obj group_name key list length_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - key' <- textToCString key - list' <- packZeroTerminatedUTF8CArray list - g_key_file_set_string_list _obj' group_name' key' list' length_ - touchManagedPtr _obj - freeMem group_name' - freeMem key' - mapZeroTerminatedCArray freeMem list' - freeMem list' - return () - --- method KeyFile::set_uint64 --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 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_key_file_set_uint64" g_key_file_set_uint64 :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - Word64 -> -- value : TBasicType TUInt64 - IO () - - -keyFileSetUint64 :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - T.Text -> -- key - Word64 -> -- value - m () -keyFileSetUint64 _obj group_name key value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - key' <- textToCString key - g_key_file_set_uint64 _obj' group_name' key' value - touchManagedPtr _obj - freeMem group_name' - freeMem key' - return () - --- method KeyFile::set_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group_name", argType = TBasicType TUTF8, 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 TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_key_file_set_value" g_key_file_set_value :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - CString -> -- group_name : TBasicType TUTF8 - CString -> -- key : TBasicType TUTF8 - CString -> -- value : TBasicType TUTF8 - IO () - - -keyFileSetValue :: - (MonadIO m) => - KeyFile -> -- _obj - T.Text -> -- group_name - T.Text -> -- key - T.Text -> -- value - m () -keyFileSetValue _obj group_name key value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group_name' <- textToCString group_name - key' <- textToCString key - value' <- textToCString value - g_key_file_set_value _obj' group_name' key' value' - touchManagedPtr _obj - freeMem group_name' - freeMem key' - freeMem value' - return () - --- method KeyFile::to_data --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : True --- Skip return : False - -foreign import ccall "g_key_file_to_data" g_key_file_to_data :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - Ptr Word64 -> -- length : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO CString - - -keyFileToData :: - (MonadIO m) => - KeyFile -> -- _obj - m (T.Text,Word64) -keyFileToData _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - length_ <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_key_file_to_data _obj' length_ - checkUnexpectedReturnNULL "g_key_file_to_data" result - result' <- cstringToText result - freeMem result - length_' <- peek length_ - touchManagedPtr _obj - freeMem length_ - return (result', length_') - ) (do - freeMem length_ - ) - --- method KeyFile::unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_key_file_unref" g_key_file_unref :: - Ptr KeyFile -> -- _obj : TInterface "GLib" "KeyFile" - IO () - - -keyFileUnref :: - (MonadIO m) => - KeyFile -> -- _obj - m () -keyFileUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_key_file_unref _obj' - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Structs/KeyFile.hs-boot b/GI/GLib/Structs/KeyFile.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/KeyFile.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.GLib.Structs.KeyFile 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 - -newtype KeyFile = KeyFile (ForeignPtr KeyFile) -instance BoxedObject KeyFile where diff --git a/GI/GLib/Structs/MainContext.hs b/GI/GLib/Structs/MainContext.hs deleted file mode 100644 --- a/GI/GLib/Structs/MainContext.hs +++ /dev/null @@ -1,740 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The `GMainContext` struct is an opaque data -type representing a set of sources to be handled in a main loop. --} - -module GI.GLib.Structs.MainContext - ( - --- * Exported types - MainContext(..) , - noMainContext , - - - -- * Methods --- ** mainContextAcquire - mainContextAcquire , - - --- ** mainContextAddPoll - mainContextAddPoll , - - --- ** mainContextCheck - mainContextCheck , - - --- ** mainContextDispatch - mainContextDispatch , - - --- ** mainContextFindSourceByFuncsUserData - mainContextFindSourceByFuncsUserData , - - --- ** mainContextFindSourceById - mainContextFindSourceById , - - --- ** mainContextFindSourceByUserData - mainContextFindSourceByUserData , - - --- ** mainContextInvokeFull - mainContextInvokeFull , - - --- ** mainContextIsOwner - mainContextIsOwner , - - --- ** mainContextIteration - mainContextIteration , - - --- ** mainContextNew - mainContextNew , - - --- ** mainContextPending - mainContextPending , - - --- ** mainContextPopThreadDefault - mainContextPopThreadDefault , - - --- ** mainContextPrepare - mainContextPrepare , - - --- ** mainContextPushThreadDefault - mainContextPushThreadDefault , - - --- ** mainContextQuery - mainContextQuery , - - --- ** mainContextRef - mainContextRef , - - --- ** mainContextRelease - mainContextRelease , - - --- ** mainContextRemovePoll - mainContextRemovePoll , - - --- ** mainContextUnref - mainContextUnref , - - --- ** mainContextWait - mainContextWait , - - --- ** mainContextWakeup - mainContextWakeup , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype MainContext = MainContext (ForeignPtr MainContext) -foreign import ccall "g_main_context_get_type" c_g_main_context_get_type :: - IO GType - -instance BoxedObject MainContext where - boxedType _ = c_g_main_context_get_type - -noMainContext :: Maybe MainContext -noMainContext = Nothing - --- method MainContext::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "GLib" "MainContext" --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_new" g_main_context_new :: - IO (Ptr MainContext) - - -mainContextNew :: - (MonadIO m) => - m MainContext -mainContextNew = liftIO $ do - result <- g_main_context_new - checkUnexpectedReturnNULL "g_main_context_new" result - result' <- (wrapBoxed MainContext) result - return result' - --- method MainContext::acquire --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_acquire" g_main_context_acquire :: - Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" - IO CInt - - -mainContextAcquire :: - (MonadIO m) => - MainContext -> -- _obj - m Bool -mainContextAcquire _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_main_context_acquire _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method MainContext::add_poll --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", 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 = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", 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 - -foreign import ccall "g_main_context_add_poll" g_main_context_add_poll :: - Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" - Ptr PollFD -> -- fd : TInterface "GLib" "PollFD" - Int32 -> -- priority : TBasicType TInt32 - IO () - - -mainContextAddPoll :: - (MonadIO m) => - MainContext -> -- _obj - PollFD -> -- fd - Int32 -> -- priority - m () -mainContextAddPoll _obj fd priority = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let fd' = unsafeManagedPtrGetPtr fd - g_main_context_add_poll _obj' fd' priority - touchManagedPtr _obj - touchManagedPtr fd - return () - --- method MainContext::check --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fds", argType = TCArray False (-1) 3 (TInterface "GLib" "PollFD"), 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 = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fds", argType = TCArray False (-1) 3 (TInterface "GLib" "PollFD"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_check" g_main_context_check :: - Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" - Int32 -> -- max_priority : TBasicType TInt32 - Ptr PollFD -> -- fds : TCArray False (-1) 3 (TInterface "GLib" "PollFD") - Int32 -> -- n_fds : TBasicType TInt32 - IO Int32 - - -mainContextCheck :: - (MonadIO m) => - MainContext -> -- _obj - Int32 -> -- max_priority - [PollFD] -> -- fds - m Int32 -mainContextCheck _obj max_priority fds = liftIO $ do - let n_fds = fromIntegral $ length fds - let _obj' = unsafeManagedPtrGetPtr _obj - let fds' = map unsafeManagedPtrGetPtr fds - fds'' <- packBlockArray 8 fds' - result <- g_main_context_check _obj' max_priority fds'' n_fds - touchManagedPtr _obj - mapM_ touchManagedPtr fds - freeMem fds'' - return result - --- method MainContext::dispatch --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_dispatch" g_main_context_dispatch :: - Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" - IO () - - -mainContextDispatch :: - (MonadIO m) => - MainContext -> -- _obj - m () -mainContextDispatch _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_main_context_dispatch _obj' - touchManagedPtr _obj - return () - --- method MainContext::find_source_by_funcs_user_data --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "funcs", argType = TInterface "GLib" "SourceFuncs", 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "funcs", argType = TInterface "GLib" "SourceFuncs", 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}] --- returnType : TInterface "GLib" "Source" --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_find_source_by_funcs_user_data" g_main_context_find_source_by_funcs_user_data :: - Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" - Ptr SourceFuncs -> -- funcs : TInterface "GLib" "SourceFuncs" - Ptr () -> -- user_data : TBasicType TVoid - IO (Ptr Source) - - -mainContextFindSourceByFuncsUserData :: - (MonadIO m) => - MainContext -> -- _obj - SourceFuncs -> -- funcs - Ptr () -> -- user_data - m Source -mainContextFindSourceByFuncsUserData _obj funcs user_data = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let funcs' = unsafeManagedPtrGetPtr funcs - result <- g_main_context_find_source_by_funcs_user_data _obj' funcs' user_data - checkUnexpectedReturnNULL "g_main_context_find_source_by_funcs_user_data" result - result' <- (newBoxed Source) result - touchManagedPtr _obj - touchManagedPtr funcs - return result' - --- method MainContext::find_source_by_id --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_id", argType = TBasicType TUInt32, 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_main_context_find_source_by_id" g_main_context_find_source_by_id :: - Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" - Word32 -> -- source_id : TBasicType TUInt32 - IO (Ptr Source) - - -mainContextFindSourceById :: - (MonadIO m) => - MainContext -> -- _obj - Word32 -> -- source_id - m Source -mainContextFindSourceById _obj source_id = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_main_context_find_source_by_id _obj' source_id - checkUnexpectedReturnNULL "g_main_context_find_source_by_id" result - result' <- (newBoxed Source) result - touchManagedPtr _obj - return result' - --- method MainContext::find_source_by_user_data --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", 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}] --- returnType : TInterface "GLib" "Source" --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_find_source_by_user_data" g_main_context_find_source_by_user_data :: - Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" - Ptr () -> -- user_data : TBasicType TVoid - IO (Ptr Source) - - -mainContextFindSourceByUserData :: - (MonadIO m) => - MainContext -> -- _obj - Ptr () -> -- user_data - m Source -mainContextFindSourceByUserData _obj user_data = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_main_context_find_source_by_user_data _obj' user_data - checkUnexpectedReturnNULL "g_main_context_find_source_by_user_data" result - result' <- (newBoxed Source) result - touchManagedPtr _obj - return result' - --- method MainContext::invoke_full --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", 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},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", 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},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_invoke_full" g_main_context_invoke_full :: - Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" - Int32 -> -- priority : TBasicType TInt32 - FunPtr SourceFuncC -> -- function : TInterface "GLib" "SourceFunc" - Ptr () -> -- data : TBasicType TVoid - FunPtr DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO () - - -mainContextInvokeFull :: - (MonadIO m) => - MainContext -> -- _obj - Int32 -> -- priority - SourceFunc -> -- function - m () -mainContextInvokeFull _obj priority function = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - function' <- mkSourceFunc (sourceFuncWrapper Nothing function) - let data_ = castFunPtrToPtr function' - let notify = safeFreeFunPtrPtr - g_main_context_invoke_full _obj' priority function' data_ notify - touchManagedPtr _obj - return () - --- method MainContext::is_owner --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_is_owner" g_main_context_is_owner :: - Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" - IO CInt - - -mainContextIsOwner :: - (MonadIO m) => - MainContext -> -- _obj - m Bool -mainContextIsOwner _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_main_context_is_owner _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method MainContext::iteration --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "may_block", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "may_block", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_iteration" g_main_context_iteration :: - Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" - CInt -> -- may_block : TBasicType TBoolean - IO CInt - - -mainContextIteration :: - (MonadIO m) => - MainContext -> -- _obj - Bool -> -- may_block - m Bool -mainContextIteration _obj may_block = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let may_block' = (fromIntegral . fromEnum) may_block - result <- g_main_context_iteration _obj' may_block' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method MainContext::pending --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_pending" g_main_context_pending :: - Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" - IO CInt - - -mainContextPending :: - (MonadIO m) => - MainContext -> -- _obj - m Bool -mainContextPending _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_main_context_pending _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method MainContext::pop_thread_default --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_pop_thread_default" g_main_context_pop_thread_default :: - Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" - IO () - - -mainContextPopThreadDefault :: - (MonadIO m) => - MainContext -> -- _obj - m () -mainContextPopThreadDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_main_context_pop_thread_default _obj' - touchManagedPtr _obj - return () - --- method MainContext::prepare --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", 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 = "_obj", argType = TInterface "GLib" "MainContext", 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 TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_prepare" g_main_context_prepare :: - Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" - Int32 -> -- priority : TBasicType TInt32 - IO CInt - - -mainContextPrepare :: - (MonadIO m) => - MainContext -> -- _obj - Int32 -> -- priority - m Bool -mainContextPrepare _obj priority = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_main_context_prepare _obj' priority - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method MainContext::push_thread_default --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_push_thread_default" g_main_context_push_thread_default :: - Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" - IO () - - -mainContextPushThreadDefault :: - (MonadIO m) => - MainContext -> -- _obj - m () -mainContextPushThreadDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_main_context_push_thread_default _obj' - touchManagedPtr _obj - return () - --- method MainContext::query --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeout_", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "fds", argType = TCArray False (-1) 4 (TInterface "GLib" "PollFD"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_fds", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "n_fds", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_query" g_main_context_query :: - Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" - Int32 -> -- max_priority : TBasicType TInt32 - Ptr Int32 -> -- timeout_ : TBasicType TInt32 - Ptr (Ptr PollFD) -> -- fds : TCArray False (-1) 4 (TInterface "GLib" "PollFD") - Ptr Int32 -> -- n_fds : TBasicType TInt32 - IO Int32 - - -mainContextQuery :: - (MonadIO m) => - MainContext -> -- _obj - Int32 -> -- max_priority - m (Int32,Int32,[PollFD]) -mainContextQuery _obj max_priority = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - timeout_ <- allocMem :: IO (Ptr Int32) - fds <- allocMem :: IO (Ptr (Ptr PollFD)) - n_fds <- allocMem :: IO (Ptr Int32) - result <- g_main_context_query _obj' max_priority timeout_ fds n_fds - n_fds' <- peek n_fds - timeout_' <- peek timeout_ - fds' <- peek fds - fds'' <- (unpackBoxedArrayWithLength 8 n_fds') fds' - fds''' <- mapM (newBoxed PollFD) fds'' - touchManagedPtr _obj - freeMem timeout_ - freeMem fds - freeMem n_fds - return (result, timeout_', fds''') - --- method MainContext::ref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "MainContext" --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_ref" g_main_context_ref :: - Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" - IO (Ptr MainContext) - - -mainContextRef :: - (MonadIO m) => - MainContext -> -- _obj - m MainContext -mainContextRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_main_context_ref _obj' - checkUnexpectedReturnNULL "g_main_context_ref" result - result' <- (wrapBoxed MainContext) result - touchManagedPtr _obj - return result' - --- method MainContext::release --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_release" g_main_context_release :: - Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" - IO () - - -mainContextRelease :: - (MonadIO m) => - MainContext -> -- _obj - m () -mainContextRelease _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_main_context_release _obj' - touchManagedPtr _obj - return () - --- method MainContext::remove_poll --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_remove_poll" g_main_context_remove_poll :: - Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" - Ptr PollFD -> -- fd : TInterface "GLib" "PollFD" - IO () - - -mainContextRemovePoll :: - (MonadIO m) => - MainContext -> -- _obj - PollFD -> -- fd - m () -mainContextRemovePoll _obj fd = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let fd' = unsafeManagedPtrGetPtr fd - g_main_context_remove_poll _obj' fd' - touchManagedPtr _obj - touchManagedPtr fd - return () - --- method MainContext::unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_unref" g_main_context_unref :: - Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" - IO () - - -mainContextUnref :: - (MonadIO m) => - MainContext -> -- _obj - m () -mainContextUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_main_context_unref _obj' - touchManagedPtr _obj - return () - --- method MainContext::wait --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cond", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mutex", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cond", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mutex", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_wait" g_main_context_wait :: - Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" - Ptr Cond -> -- cond : TInterface "GLib" "Cond" - Ptr Mutex -> -- mutex : TInterface "GLib" "Mutex" - IO CInt - - -mainContextWait :: - (MonadIO m) => - MainContext -> -- _obj - Cond -> -- cond - Mutex -> -- mutex - m Bool -mainContextWait _obj cond mutex = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let cond' = unsafeManagedPtrGetPtr cond - let mutex' = unsafeManagedPtrGetPtr mutex - result <- g_main_context_wait _obj' cond' mutex' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr cond - touchManagedPtr mutex - return result' - --- method MainContext::wakeup --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_wakeup" g_main_context_wakeup :: - Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" - IO () - - -mainContextWakeup :: - (MonadIO m) => - MainContext -> -- _obj - m () -mainContextWakeup _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_main_context_wakeup _obj' - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Structs/MainContext.hs-boot b/GI/GLib/Structs/MainContext.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/MainContext.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.GLib.Structs.MainContext 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 - -newtype MainContext = MainContext (ForeignPtr MainContext) -instance BoxedObject MainContext where diff --git a/GI/GLib/Structs/MainLoop.hs b/GI/GLib/Structs/MainLoop.hs deleted file mode 100644 --- a/GI/GLib/Structs/MainLoop.hs +++ /dev/null @@ -1,254 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The `GMainLoop` struct is an opaque data type -representing the main event loop of a GLib or GTK+ application. --} - -module GI.GLib.Structs.MainLoop - ( - --- * Exported types - MainLoop(..) , - noMainLoop , - - - -- * Methods --- ** mainLoopGetContext - mainLoopGetContext , - - --- ** mainLoopIsRunning - mainLoopIsRunning , - - --- ** mainLoopNew - mainLoopNew , - - --- ** mainLoopQuit - mainLoopQuit , - - --- ** mainLoopRef - mainLoopRef , - - --- ** mainLoopRun - mainLoopRun , - - --- ** mainLoopUnref - mainLoopUnref , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype MainLoop = MainLoop (ForeignPtr MainLoop) -foreign import ccall "g_main_loop_get_type" c_g_main_loop_get_type :: - IO GType - -instance BoxedObject MainLoop where - boxedType _ = c_g_main_loop_get_type - -noMainLoop :: Maybe MainLoop -noMainLoop = Nothing - --- method MainLoop::new --- method type : Constructor --- Args : [Arg {argName = "context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_running", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_running", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "MainLoop" --- throws : False --- Skip return : False - -foreign import ccall "g_main_loop_new" g_main_loop_new :: - Ptr MainContext -> -- context : TInterface "GLib" "MainContext" - CInt -> -- is_running : TBasicType TBoolean - IO (Ptr MainLoop) - - -mainLoopNew :: - (MonadIO m) => - Maybe (MainContext) -> -- context - Bool -> -- is_running - m MainLoop -mainLoopNew context is_running = liftIO $ do - maybeContext <- case context of - Nothing -> return nullPtr - Just jContext -> do - let jContext' = unsafeManagedPtrGetPtr jContext - return jContext' - let is_running' = (fromIntegral . fromEnum) is_running - result <- g_main_loop_new maybeContext is_running' - checkUnexpectedReturnNULL "g_main_loop_new" result - result' <- (wrapBoxed MainLoop) result - whenJust context touchManagedPtr - return result' - --- method MainLoop::get_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "MainContext" --- throws : False --- Skip return : False - -foreign import ccall "g_main_loop_get_context" g_main_loop_get_context :: - Ptr MainLoop -> -- _obj : TInterface "GLib" "MainLoop" - IO (Ptr MainContext) - - -mainLoopGetContext :: - (MonadIO m) => - MainLoop -> -- _obj - m MainContext -mainLoopGetContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_main_loop_get_context _obj' - checkUnexpectedReturnNULL "g_main_loop_get_context" result - result' <- (newBoxed MainContext) result - touchManagedPtr _obj - return result' - --- method MainLoop::is_running --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_main_loop_is_running" g_main_loop_is_running :: - Ptr MainLoop -> -- _obj : TInterface "GLib" "MainLoop" - IO CInt - - -mainLoopIsRunning :: - (MonadIO m) => - MainLoop -> -- _obj - m Bool -mainLoopIsRunning _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_main_loop_is_running _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method MainLoop::quit --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_main_loop_quit" g_main_loop_quit :: - Ptr MainLoop -> -- _obj : TInterface "GLib" "MainLoop" - IO () - - -mainLoopQuit :: - (MonadIO m) => - MainLoop -> -- _obj - m () -mainLoopQuit _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_main_loop_quit _obj' - touchManagedPtr _obj - return () - --- method MainLoop::ref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "MainLoop" --- throws : False --- Skip return : False - -foreign import ccall "g_main_loop_ref" g_main_loop_ref :: - Ptr MainLoop -> -- _obj : TInterface "GLib" "MainLoop" - IO (Ptr MainLoop) - - -mainLoopRef :: - (MonadIO m) => - MainLoop -> -- _obj - m MainLoop -mainLoopRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_main_loop_ref _obj' - checkUnexpectedReturnNULL "g_main_loop_ref" result - result' <- (wrapBoxed MainLoop) result - touchManagedPtr _obj - return result' - --- method MainLoop::run --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_main_loop_run" g_main_loop_run :: - Ptr MainLoop -> -- _obj : TInterface "GLib" "MainLoop" - IO () - - -mainLoopRun :: - (MonadIO m) => - MainLoop -> -- _obj - m () -mainLoopRun _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_main_loop_run _obj' - touchManagedPtr _obj - return () - --- method MainLoop::unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_main_loop_unref" g_main_loop_unref :: - Ptr MainLoop -> -- _obj : TInterface "GLib" "MainLoop" - IO () - - -mainLoopUnref :: - (MonadIO m) => - MainLoop -> -- _obj - m () -mainLoopUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_main_loop_unref _obj' - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Structs/MainLoop.hs-boot b/GI/GLib/Structs/MainLoop.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/MainLoop.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.GLib.Structs.MainLoop 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 - -newtype MainLoop = MainLoop (ForeignPtr MainLoop) -instance BoxedObject MainLoop where diff --git a/GI/GLib/Structs/MappedFile.hs b/GI/GLib/Structs/MappedFile.hs deleted file mode 100644 --- a/GI/GLib/Structs/MappedFile.hs +++ /dev/null @@ -1,294 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The #GMappedFile represents a file mapping created with -g_mapped_file_new(). It has only private members and should -not be accessed directly. --} - -module GI.GLib.Structs.MappedFile - ( - --- * Exported types - MappedFile(..) , - noMappedFile , - - - -- * Methods --- ** mappedFileFree - mappedFileFree , - - --- ** mappedFileGetBytes - mappedFileGetBytes , - - --- ** mappedFileGetContents - mappedFileGetContents , - - --- ** mappedFileGetLength - mappedFileGetLength , - - --- ** mappedFileNew - mappedFileNew , - - --- ** mappedFileNewFromFd - mappedFileNewFromFd , - - --- ** mappedFileRef - mappedFileRef , - - --- ** mappedFileUnref - mappedFileUnref , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype MappedFile = MappedFile (ForeignPtr MappedFile) -foreign import ccall "g_mapped_file_get_type" c_g_mapped_file_get_type :: - IO GType - -instance BoxedObject MappedFile where - boxedType _ = c_g_mapped_file_get_type - -noMappedFile :: Maybe MappedFile -noMappedFile = Nothing - --- method MappedFile::new --- method type : Constructor --- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "MappedFile" --- throws : True --- Skip return : False - -foreign import ccall "g_mapped_file_new" g_mapped_file_new :: - CString -> -- filename : TBasicType TUTF8 - CInt -> -- writable : TBasicType TBoolean - Ptr (Ptr GError) -> -- error - IO (Ptr MappedFile) - - -mappedFileNew :: - (MonadIO m) => - T.Text -> -- filename - Bool -> -- writable - m MappedFile -mappedFileNew filename writable = liftIO $ do - filename' <- textToCString filename - let writable' = (fromIntegral . fromEnum) writable - onException (do - result <- propagateGError $ g_mapped_file_new filename' writable' - checkUnexpectedReturnNULL "g_mapped_file_new" result - result' <- (wrapBoxed MappedFile) result - freeMem filename' - return result' - ) (do - freeMem filename' - ) - --- method MappedFile::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},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "MappedFile" --- throws : True --- Skip return : False - -foreign import ccall "g_mapped_file_new_from_fd" g_mapped_file_new_from_fd :: - Int32 -> -- fd : TBasicType TInt32 - CInt -> -- writable : TBasicType TBoolean - Ptr (Ptr GError) -> -- error - IO (Ptr MappedFile) - - -mappedFileNewFromFd :: - (MonadIO m) => - Int32 -> -- fd - Bool -> -- writable - m MappedFile -mappedFileNewFromFd fd writable = liftIO $ do - let writable' = (fromIntegral . fromEnum) writable - onException (do - result <- propagateGError $ g_mapped_file_new_from_fd fd writable' - checkUnexpectedReturnNULL "g_mapped_file_new_from_fd" result - result' <- (wrapBoxed MappedFile) result - return result' - ) (do - return () - ) - --- method MappedFile::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_mapped_file_free" g_mapped_file_free :: - Ptr MappedFile -> -- _obj : TInterface "GLib" "MappedFile" - IO () - -{-# DEPRECATED mappedFileFree ["(Since version 2.22)","Use g_mapped_file_unref() instead."]#-} -mappedFileFree :: - (MonadIO m) => - MappedFile -> -- _obj - m () -mappedFileFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_mapped_file_free _obj' - touchManagedPtr _obj - return () - --- method MappedFile::get_bytes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "Bytes" --- throws : False --- Skip return : False - -foreign import ccall "g_mapped_file_get_bytes" g_mapped_file_get_bytes :: - Ptr MappedFile -> -- _obj : TInterface "GLib" "MappedFile" - IO (Ptr Bytes) - - -mappedFileGetBytes :: - (MonadIO m) => - MappedFile -> -- _obj - m Bytes -mappedFileGetBytes _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_mapped_file_get_bytes _obj' - checkUnexpectedReturnNULL "g_mapped_file_get_bytes" result - result' <- (wrapBoxed Bytes) result - touchManagedPtr _obj - return result' - --- method MappedFile::get_contents --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_mapped_file_get_contents" g_mapped_file_get_contents :: - Ptr MappedFile -> -- _obj : TInterface "GLib" "MappedFile" - IO CString - - -mappedFileGetContents :: - (MonadIO m) => - MappedFile -> -- _obj - m T.Text -mappedFileGetContents _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_mapped_file_get_contents _obj' - checkUnexpectedReturnNULL "g_mapped_file_get_contents" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method MappedFile::get_length --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt64 --- throws : False --- Skip return : False - -foreign import ccall "g_mapped_file_get_length" g_mapped_file_get_length :: - Ptr MappedFile -> -- _obj : TInterface "GLib" "MappedFile" - IO Word64 - - -mappedFileGetLength :: - (MonadIO m) => - MappedFile -> -- _obj - m Word64 -mappedFileGetLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_mapped_file_get_length _obj' - touchManagedPtr _obj - return result - --- method MappedFile::ref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "MappedFile" --- throws : False --- Skip return : False - -foreign import ccall "g_mapped_file_ref" g_mapped_file_ref :: - Ptr MappedFile -> -- _obj : TInterface "GLib" "MappedFile" - IO (Ptr MappedFile) - - -mappedFileRef :: - (MonadIO m) => - MappedFile -> -- _obj - m MappedFile -mappedFileRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_mapped_file_ref _obj' - checkUnexpectedReturnNULL "g_mapped_file_ref" result - result' <- (wrapBoxed MappedFile) result - touchManagedPtr _obj - return result' - --- method MappedFile::unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_mapped_file_unref" g_mapped_file_unref :: - Ptr MappedFile -> -- _obj : TInterface "GLib" "MappedFile" - IO () - - -mappedFileUnref :: - (MonadIO m) => - MappedFile -> -- _obj - m () -mappedFileUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_mapped_file_unref _obj' - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Structs/MappedFile.hs-boot b/GI/GLib/Structs/MappedFile.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/MappedFile.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.GLib.Structs.MappedFile 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 - -newtype MappedFile = MappedFile (ForeignPtr MappedFile) -instance BoxedObject MappedFile where diff --git a/GI/GLib/Structs/MarkupParseContext.hs b/GI/GLib/Structs/MarkupParseContext.hs deleted file mode 100644 --- a/GI/GLib/Structs/MarkupParseContext.hs +++ /dev/null @@ -1,309 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A parse context is used to parse a stream of bytes that -you expect to contain marked-up text. - -See g_markup_parse_context_new(), #GMarkupParser, and so -on for more details. --} - -module GI.GLib.Structs.MarkupParseContext - ( - --- * Exported types - MarkupParseContext(..) , - noMarkupParseContext , - - - -- * Methods --- ** markupParseContextEndParse - markupParseContextEndParse , - - --- ** markupParseContextFree - markupParseContextFree , - - --- ** markupParseContextGetElement - markupParseContextGetElement , - - --- ** markupParseContextNew - markupParseContextNew , - - --- ** markupParseContextParse - markupParseContextParse , - - --- ** markupParseContextPush - markupParseContextPush , - - --- ** markupParseContextRef - markupParseContextRef , - - --- ** markupParseContextUnref - markupParseContextUnref , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype MarkupParseContext = MarkupParseContext (ForeignPtr MarkupParseContext) -foreign import ccall "g_markup_parse_context_get_type" c_g_markup_parse_context_get_type :: - IO GType - -instance BoxedObject MarkupParseContext where - boxedType _ = c_g_markup_parse_context_get_type - -noMarkupParseContext :: Maybe MarkupParseContext -noMarkupParseContext = Nothing - --- method MarkupParseContext::new --- method type : Constructor --- Args : [Arg {argName = "parser", argType = TInterface "GLib" "MarkupParser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "MarkupParseFlags", 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_dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "parser", argType = TInterface "GLib" "MarkupParser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "MarkupParseFlags", 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_dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "MarkupParseContext" --- throws : False --- Skip return : False - -foreign import ccall "g_markup_parse_context_new" g_markup_parse_context_new :: - Ptr MarkupParser -> -- parser : TInterface "GLib" "MarkupParser" - CUInt -> -- flags : TInterface "GLib" "MarkupParseFlags" - Ptr () -> -- user_data : TBasicType TVoid - FunPtr DestroyNotifyC -> -- user_data_dnotify : TInterface "GLib" "DestroyNotify" - IO (Ptr MarkupParseContext) - - -markupParseContextNew :: - (MonadIO m) => - MarkupParser -> -- parser - [MarkupParseFlags] -> -- flags - Ptr () -> -- user_data - DestroyNotify -> -- user_data_dnotify - m MarkupParseContext -markupParseContextNew parser flags user_data user_data_dnotify = liftIO $ do - let parser' = unsafeManagedPtrGetPtr parser - let flags' = gflagsToWord flags - ptruser_data_dnotify <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC)) - user_data_dnotify' <- mkDestroyNotify (destroyNotifyWrapper (Just ptruser_data_dnotify) user_data_dnotify) - poke ptruser_data_dnotify user_data_dnotify' - result <- g_markup_parse_context_new parser' flags' user_data user_data_dnotify' - checkUnexpectedReturnNULL "g_markup_parse_context_new" result - result' <- (wrapBoxed MarkupParseContext) result - touchManagedPtr parser - return result' - --- method MarkupParseContext::end_parse --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_markup_parse_context_end_parse" g_markup_parse_context_end_parse :: - Ptr MarkupParseContext -> -- _obj : TInterface "GLib" "MarkupParseContext" - Ptr (Ptr GError) -> -- error - IO CInt - - -markupParseContextEndParse :: - (MonadIO m) => - MarkupParseContext -> -- _obj - m () -markupParseContextEndParse _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - onException (do - _ <- propagateGError $ g_markup_parse_context_end_parse _obj' - touchManagedPtr _obj - return () - ) (do - return () - ) - --- method MarkupParseContext::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_markup_parse_context_free" g_markup_parse_context_free :: - Ptr MarkupParseContext -> -- _obj : TInterface "GLib" "MarkupParseContext" - IO () - - -markupParseContextFree :: - (MonadIO m) => - MarkupParseContext -> -- _obj - m () -markupParseContextFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_markup_parse_context_free _obj' - touchManagedPtr _obj - return () - --- method MarkupParseContext::get_element --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_markup_parse_context_get_element" g_markup_parse_context_get_element :: - Ptr MarkupParseContext -> -- _obj : TInterface "GLib" "MarkupParseContext" - IO CString - - -markupParseContextGetElement :: - (MonadIO m) => - MarkupParseContext -> -- _obj - m T.Text -markupParseContextGetElement _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_markup_parse_context_get_element _obj' - checkUnexpectedReturnNULL "g_markup_parse_context_get_element" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method MarkupParseContext::parse --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_markup_parse_context_parse" g_markup_parse_context_parse :: - Ptr MarkupParseContext -> -- _obj : TInterface "GLib" "MarkupParseContext" - CString -> -- text : TBasicType TUTF8 - Int64 -> -- text_len : TBasicType TInt64 - Ptr (Ptr GError) -> -- error - IO CInt - - -markupParseContextParse :: - (MonadIO m) => - MarkupParseContext -> -- _obj - T.Text -> -- text - Int64 -> -- text_len - m () -markupParseContextParse _obj text text_len = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - text' <- textToCString text - onException (do - _ <- propagateGError $ g_markup_parse_context_parse _obj' text' text_len - touchManagedPtr _obj - freeMem text' - return () - ) (do - freeMem text' - ) - --- method MarkupParseContext::push --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parser", argType = TInterface "GLib" "MarkupParser", 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 : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parser", argType = TInterface "GLib" "MarkupParser", 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}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_markup_parse_context_push" g_markup_parse_context_push :: - Ptr MarkupParseContext -> -- _obj : TInterface "GLib" "MarkupParseContext" - Ptr MarkupParser -> -- parser : TInterface "GLib" "MarkupParser" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -markupParseContextPush :: - (MonadIO m) => - MarkupParseContext -> -- _obj - MarkupParser -> -- parser - Ptr () -> -- user_data - m () -markupParseContextPush _obj parser user_data = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let parser' = unsafeManagedPtrGetPtr parser - g_markup_parse_context_push _obj' parser' user_data - touchManagedPtr _obj - touchManagedPtr parser - return () - --- method MarkupParseContext::ref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "MarkupParseContext" --- throws : False --- Skip return : False - -foreign import ccall "g_markup_parse_context_ref" g_markup_parse_context_ref :: - Ptr MarkupParseContext -> -- _obj : TInterface "GLib" "MarkupParseContext" - IO (Ptr MarkupParseContext) - - -markupParseContextRef :: - (MonadIO m) => - MarkupParseContext -> -- _obj - m MarkupParseContext -markupParseContextRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_markup_parse_context_ref _obj' - checkUnexpectedReturnNULL "g_markup_parse_context_ref" result - result' <- (wrapBoxed MarkupParseContext) result - touchManagedPtr _obj - return result' - --- method MarkupParseContext::unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_markup_parse_context_unref" g_markup_parse_context_unref :: - Ptr MarkupParseContext -> -- _obj : TInterface "GLib" "MarkupParseContext" - IO () - - -markupParseContextUnref :: - (MonadIO m) => - MarkupParseContext -> -- _obj - m () -markupParseContextUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_markup_parse_context_unref _obj' - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Structs/MarkupParseContext.hs-boot b/GI/GLib/Structs/MarkupParseContext.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/MarkupParseContext.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.GLib.Structs.MarkupParseContext 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 - -newtype MarkupParseContext = MarkupParseContext (ForeignPtr MarkupParseContext) -instance BoxedObject MarkupParseContext where diff --git a/GI/GLib/Structs/MarkupParser.hs b/GI/GLib/Structs/MarkupParser.hs deleted file mode 100644 --- a/GI/GLib/Structs/MarkupParser.hs +++ /dev/null @@ -1,50 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Any of the fields in #GMarkupParser can be %NULL, in which case they -will be ignored. Except for the @error function, any of these callbacks -can set an error; in particular the %G_MARKUP_ERROR_UNKNOWN_ELEMENT, -%G_MARKUP_ERROR_UNKNOWN_ATTRIBUTE, and %G_MARKUP_ERROR_INVALID_CONTENT -errors are intended to be set from these callbacks. If you set an error -from a callback, g_markup_parse_context_parse() will report that error -back to its caller. --} - -module GI.GLib.Structs.MarkupParser - ( - --- * Exported types - MarkupParser(..) , - noMarkupParser , - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype MarkupParser = MarkupParser (ForeignPtr MarkupParser) -noMarkupParser :: Maybe MarkupParser -noMarkupParser = Nothing - --- XXX Skipped getter for "MarkupParser:start_element" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- XXX Skipped getter for "MarkupParser:end_element" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- XXX Skipped getter for "MarkupParser:text" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- XXX Skipped getter for "MarkupParser:passthrough" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- XXX Skipped getter for "MarkupParser:error" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - - diff --git a/GI/GLib/Structs/MarkupParser.hs-boot b/GI/GLib/Structs/MarkupParser.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/MarkupParser.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.MarkupParser 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 - -newtype MarkupParser = MarkupParser (ForeignPtr MarkupParser) diff --git a/GI/GLib/Structs/MatchInfo.hs b/GI/GLib/Structs/MatchInfo.hs deleted file mode 100644 --- a/GI/GLib/Structs/MatchInfo.hs +++ /dev/null @@ -1,529 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A GMatchInfo is an opaque struct used to return information about -matches. --} - -module GI.GLib.Structs.MatchInfo - ( - --- * Exported types - MatchInfo(..) , - noMatchInfo , - - - -- * Methods --- ** matchInfoExpandReferences - matchInfoExpandReferences , - - --- ** matchInfoFetch - matchInfoFetch , - - --- ** matchInfoFetchAll - matchInfoFetchAll , - - --- ** matchInfoFetchNamed - matchInfoFetchNamed , - - --- ** matchInfoFetchNamedPos - matchInfoFetchNamedPos , - - --- ** matchInfoFetchPos - matchInfoFetchPos , - - --- ** matchInfoFree - matchInfoFree , - - --- ** matchInfoGetMatchCount - matchInfoGetMatchCount , - - --- ** matchInfoGetRegex - matchInfoGetRegex , - - --- ** matchInfoGetString - matchInfoGetString , - - --- ** matchInfoIsPartialMatch - matchInfoIsPartialMatch , - - --- ** matchInfoMatches - matchInfoMatches , - - --- ** matchInfoNext - matchInfoNext , - - --- ** matchInfoRef - matchInfoRef , - - --- ** matchInfoUnref - matchInfoUnref , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype MatchInfo = MatchInfo (ForeignPtr MatchInfo) -foreign import ccall "g_match_info_get_type" c_g_match_info_get_type :: - IO GType - -instance BoxedObject MatchInfo where - boxedType _ = c_g_match_info_get_type - -noMatchInfo :: Maybe MatchInfo -noMatchInfo = Nothing - --- method MatchInfo::expand_references --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_to_expand", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_to_expand", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : True --- Skip return : False - -foreign import ccall "g_match_info_expand_references" g_match_info_expand_references :: - Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" - CString -> -- string_to_expand : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CString - - -matchInfoExpandReferences :: - (MonadIO m) => - MatchInfo -> -- _obj - T.Text -> -- string_to_expand - m T.Text -matchInfoExpandReferences _obj string_to_expand = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - string_to_expand' <- textToCString string_to_expand - onException (do - result <- propagateGError $ g_match_info_expand_references _obj' string_to_expand' - checkUnexpectedReturnNULL "g_match_info_expand_references" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - freeMem string_to_expand' - return result' - ) (do - freeMem string_to_expand' - ) - --- method MatchInfo::fetch --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_match_info_fetch" g_match_info_fetch :: - Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" - Int32 -> -- match_num : TBasicType TInt32 - IO CString - - -matchInfoFetch :: - (MonadIO m) => - MatchInfo -> -- _obj - Int32 -> -- match_num - m T.Text -matchInfoFetch _obj match_num = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_match_info_fetch _obj' match_num - checkUnexpectedReturnNULL "g_match_info_fetch" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method MatchInfo::fetch_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", 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_match_info_fetch_all" g_match_info_fetch_all :: - Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" - IO (Ptr CString) - - -matchInfoFetchAll :: - (MonadIO m) => - MatchInfo -> -- _obj - m [T.Text] -matchInfoFetchAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_match_info_fetch_all _obj' - checkUnexpectedReturnNULL "g_match_info_fetch_all" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - touchManagedPtr _obj - return result' - --- method MatchInfo::fetch_named --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", 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 "GLib" "MatchInfo", 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 - -foreign import ccall "g_match_info_fetch_named" g_match_info_fetch_named :: - Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" - CString -> -- name : TBasicType TUTF8 - IO CString - - -matchInfoFetchNamed :: - (MonadIO m) => - MatchInfo -> -- _obj - T.Text -> -- name - m T.Text -matchInfoFetchNamed _obj name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - result <- g_match_info_fetch_named _obj' name' - checkUnexpectedReturnNULL "g_match_info_fetch_named" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - freeMem name' - return result' - --- method MatchInfo::fetch_named_pos --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", 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 = "start_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", 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 - -foreign import ccall "g_match_info_fetch_named_pos" g_match_info_fetch_named_pos :: - Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" - CString -> -- name : TBasicType TUTF8 - Ptr Int32 -> -- start_pos : TBasicType TInt32 - Ptr Int32 -> -- end_pos : TBasicType TInt32 - IO CInt - - -matchInfoFetchNamedPos :: - (MonadIO m) => - MatchInfo -> -- _obj - T.Text -> -- name - m (Bool,Int32,Int32) -matchInfoFetchNamedPos _obj name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - start_pos <- allocMem :: IO (Ptr Int32) - end_pos <- allocMem :: IO (Ptr Int32) - result <- g_match_info_fetch_named_pos _obj' name' start_pos end_pos - let result' = (/= 0) result - start_pos' <- peek start_pos - end_pos' <- peek end_pos - touchManagedPtr _obj - freeMem name' - freeMem start_pos - freeMem end_pos - return (result', start_pos', end_pos') - --- method MatchInfo::fetch_pos --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "end_pos", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_match_info_fetch_pos" g_match_info_fetch_pos :: - Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" - Int32 -> -- match_num : TBasicType TInt32 - Ptr Int32 -> -- start_pos : TBasicType TInt32 - Ptr Int32 -> -- end_pos : TBasicType TInt32 - IO CInt - - -matchInfoFetchPos :: - (MonadIO m) => - MatchInfo -> -- _obj - Int32 -> -- match_num - m (Bool,Int32,Int32) -matchInfoFetchPos _obj match_num = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - start_pos <- allocMem :: IO (Ptr Int32) - end_pos <- allocMem :: IO (Ptr Int32) - result <- g_match_info_fetch_pos _obj' match_num start_pos end_pos - let result' = (/= 0) result - start_pos' <- peek start_pos - end_pos' <- peek end_pos - touchManagedPtr _obj - freeMem start_pos - freeMem end_pos - return (result', start_pos', end_pos') - --- method MatchInfo::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_match_info_free" g_match_info_free :: - Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" - IO () - - -matchInfoFree :: - (MonadIO m) => - MatchInfo -> -- _obj - m () -matchInfoFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_match_info_free _obj' - touchManagedPtr _obj - return () - --- method MatchInfo::get_match_count --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_match_info_get_match_count" g_match_info_get_match_count :: - Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" - IO Int32 - - -matchInfoGetMatchCount :: - (MonadIO m) => - MatchInfo -> -- _obj - m Int32 -matchInfoGetMatchCount _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_match_info_get_match_count _obj' - touchManagedPtr _obj - return result - --- method MatchInfo::get_regex --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "Regex" --- throws : False --- Skip return : False - -foreign import ccall "g_match_info_get_regex" g_match_info_get_regex :: - Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" - IO (Ptr Regex) - - -matchInfoGetRegex :: - (MonadIO m) => - MatchInfo -> -- _obj - m Regex -matchInfoGetRegex _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_match_info_get_regex _obj' - checkUnexpectedReturnNULL "g_match_info_get_regex" result - result' <- (wrapBoxed Regex) result - touchManagedPtr _obj - return result' - --- method MatchInfo::get_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_match_info_get_string" g_match_info_get_string :: - Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" - IO CString - - -matchInfoGetString :: - (MonadIO m) => - MatchInfo -> -- _obj - m T.Text -matchInfoGetString _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_match_info_get_string _obj' - checkUnexpectedReturnNULL "g_match_info_get_string" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method MatchInfo::is_partial_match --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_match_info_is_partial_match" g_match_info_is_partial_match :: - Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" - IO CInt - - -matchInfoIsPartialMatch :: - (MonadIO m) => - MatchInfo -> -- _obj - m Bool -matchInfoIsPartialMatch _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_match_info_is_partial_match _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method MatchInfo::matches --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_match_info_matches" g_match_info_matches :: - Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" - IO CInt - - -matchInfoMatches :: - (MonadIO m) => - MatchInfo -> -- _obj - m Bool -matchInfoMatches _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_match_info_matches _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method MatchInfo::next --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_match_info_next" g_match_info_next :: - Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" - Ptr (Ptr GError) -> -- error - IO CInt - - -matchInfoNext :: - (MonadIO m) => - MatchInfo -> -- _obj - m () -matchInfoNext _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - onException (do - _ <- propagateGError $ g_match_info_next _obj' - touchManagedPtr _obj - return () - ) (do - return () - ) - --- method MatchInfo::ref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "MatchInfo" --- throws : False --- Skip return : False - -foreign import ccall "g_match_info_ref" g_match_info_ref :: - Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" - IO (Ptr MatchInfo) - - -matchInfoRef :: - (MonadIO m) => - MatchInfo -> -- _obj - m MatchInfo -matchInfoRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_match_info_ref _obj' - checkUnexpectedReturnNULL "g_match_info_ref" result - result' <- (wrapBoxed MatchInfo) result - touchManagedPtr _obj - return result' - --- method MatchInfo::unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_match_info_unref" g_match_info_unref :: - Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" - IO () - - -matchInfoUnref :: - (MonadIO m) => - MatchInfo -> -- _obj - m () -matchInfoUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_match_info_unref _obj' - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Structs/MatchInfo.hs-boot b/GI/GLib/Structs/MatchInfo.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/MatchInfo.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.GLib.Structs.MatchInfo 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 - -newtype MatchInfo = MatchInfo (ForeignPtr MatchInfo) -instance BoxedObject MatchInfo where diff --git a/GI/GLib/Structs/MemVTable.hs b/GI/GLib/Structs/MemVTable.hs deleted file mode 100644 --- a/GI/GLib/Structs/MemVTable.hs +++ /dev/null @@ -1,38 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A set of functions used to perform memory allocation. The same #GMemVTable must -be used for all allocations in the same program; a call to g_mem_set_vtable(), -if it exists, should be prior to any use of GLib. --} - -module GI.GLib.Structs.MemVTable - ( - --- * Exported types - MemVTable(..) , - noMemVTable , - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype MemVTable = MemVTable (ForeignPtr MemVTable) -noMemVTable :: Maybe MemVTable -noMemVTable = Nothing - --- XXX Skipped getter for "MemVTable:free" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - - diff --git a/GI/GLib/Structs/MemVTable.hs-boot b/GI/GLib/Structs/MemVTable.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/MemVTable.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.MemVTable 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 - -newtype MemVTable = MemVTable (ForeignPtr MemVTable) diff --git a/GI/GLib/Structs/Node.hs b/GI/GLib/Structs/Node.hs deleted file mode 100644 --- a/GI/GLib/Structs/Node.hs +++ /dev/null @@ -1,383 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The #GNode struct represents one node in a [n-ary tree][glib-N-ary-Trees]. --} - -module GI.GLib.Structs.Node - ( - --- * Exported types - Node(..) , - noNode , - - - -- * Methods --- ** nodeChildIndex - nodeChildIndex , - - --- ** nodeChildPosition - nodeChildPosition , - - --- ** nodeDepth - nodeDepth , - - --- ** nodeDestroy - nodeDestroy , - - --- ** nodeIsAncestor - nodeIsAncestor , - - --- ** nodeMaxHeight - nodeMaxHeight , - - --- ** nodeNChildren - nodeNChildren , - - --- ** nodeNNodes - nodeNNodes , - - --- ** nodeReverseChildren - nodeReverseChildren , - - --- ** nodeUnlink - nodeUnlink , - - - - - -- * Properties --- ** Children - nodeReadChildren , - - --- ** Data - nodeReadData , - - --- ** Next - nodeReadNext , - - --- ** Parent - nodeReadParent , - - --- ** Prev - nodeReadPrev , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Node = Node (ForeignPtr Node) -noNode :: Maybe Node -noNode = Nothing - -nodeReadData :: Node -> IO (Ptr ()) -nodeReadData s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr ()) - return val - -nodeReadNext :: Node -> IO Node -nodeReadNext s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr Node) - val' <- (newPtr 40 Node) val - return val' - -nodeReadPrev :: Node -> IO Node -nodeReadPrev s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO (Ptr Node) - val' <- (newPtr 40 Node) val - return val' - -nodeReadParent :: Node -> IO Node -nodeReadParent s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO (Ptr Node) - val' <- (newPtr 40 Node) val - return val' - -nodeReadChildren :: Node -> IO Node -nodeReadChildren s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO (Ptr Node) - val' <- (newPtr 40 Node) val - return val' - --- method Node::child_index --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", 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 TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_node_child_index" g_node_child_index :: - Ptr Node -> -- _obj : TInterface "GLib" "Node" - Ptr () -> -- data : TBasicType TVoid - IO Int32 - - -nodeChildIndex :: - (MonadIO m) => - Node -> -- _obj - Ptr () -> -- data - m Int32 -nodeChildIndex _obj data_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_node_child_index _obj' data_ - touchManagedPtr _obj - return result - --- method Node::child_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_node_child_position" g_node_child_position :: - Ptr Node -> -- _obj : TInterface "GLib" "Node" - Ptr Node -> -- child : TInterface "GLib" "Node" - IO Int32 - - -nodeChildPosition :: - (MonadIO m) => - Node -> -- _obj - Node -> -- child - m Int32 -nodeChildPosition _obj child = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let child' = unsafeManagedPtrGetPtr child - result <- g_node_child_position _obj' child' - touchManagedPtr _obj - touchManagedPtr child - return result - --- method Node::depth --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_node_depth" g_node_depth :: - Ptr Node -> -- _obj : TInterface "GLib" "Node" - IO Word32 - - -nodeDepth :: - (MonadIO m) => - Node -> -- _obj - m Word32 -nodeDepth _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_node_depth _obj' - touchManagedPtr _obj - return result - --- method Node::destroy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_node_destroy" g_node_destroy :: - Ptr Node -> -- _obj : TInterface "GLib" "Node" - IO () - - -nodeDestroy :: - (MonadIO m) => - Node -> -- _obj - m () -nodeDestroy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_node_destroy _obj' - touchManagedPtr _obj - return () - --- method Node::is_ancestor --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "descendant", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "descendant", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_node_is_ancestor" g_node_is_ancestor :: - Ptr Node -> -- _obj : TInterface "GLib" "Node" - Ptr Node -> -- descendant : TInterface "GLib" "Node" - IO CInt - - -nodeIsAncestor :: - (MonadIO m) => - Node -> -- _obj - Node -> -- descendant - m Bool -nodeIsAncestor _obj descendant = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let descendant' = unsafeManagedPtrGetPtr descendant - result <- g_node_is_ancestor _obj' descendant' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr descendant - return result' - --- method Node::max_height --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_node_max_height" g_node_max_height :: - Ptr Node -> -- _obj : TInterface "GLib" "Node" - IO Word32 - - -nodeMaxHeight :: - (MonadIO m) => - Node -> -- _obj - m Word32 -nodeMaxHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_node_max_height _obj' - touchManagedPtr _obj - return result - --- method Node::n_children --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_node_n_children" g_node_n_children :: - Ptr Node -> -- _obj : TInterface "GLib" "Node" - IO Word32 - - -nodeNChildren :: - (MonadIO m) => - Node -> -- _obj - m Word32 -nodeNChildren _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_node_n_children _obj' - touchManagedPtr _obj - return result - --- method Node::n_nodes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "TraverseFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "GLib" "TraverseFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_node_n_nodes" g_node_n_nodes :: - Ptr Node -> -- _obj : TInterface "GLib" "Node" - CUInt -> -- flags : TInterface "GLib" "TraverseFlags" - IO Word32 - - -nodeNNodes :: - (MonadIO m) => - Node -> -- _obj - [TraverseFlags] -> -- flags - m Word32 -nodeNNodes _obj flags = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let flags' = gflagsToWord flags - result <- g_node_n_nodes _obj' flags' - touchManagedPtr _obj - return result - --- method Node::reverse_children --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_node_reverse_children" g_node_reverse_children :: - Ptr Node -> -- _obj : TInterface "GLib" "Node" - IO () - - -nodeReverseChildren :: - (MonadIO m) => - Node -> -- _obj - m () -nodeReverseChildren _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_node_reverse_children _obj' - touchManagedPtr _obj - return () - --- method Node::unlink --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_node_unlink" g_node_unlink :: - Ptr Node -> -- _obj : TInterface "GLib" "Node" - IO () - - -nodeUnlink :: - (MonadIO m) => - Node -> -- _obj - m () -nodeUnlink _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_node_unlink _obj' - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Structs/Node.hs-boot b/GI/GLib/Structs/Node.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/Node.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.Node 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 - -newtype Node = Node (ForeignPtr Node) diff --git a/GI/GLib/Structs/Once.hs b/GI/GLib/Structs/Once.hs deleted file mode 100644 --- a/GI/GLib/Structs/Once.hs +++ /dev/null @@ -1,58 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A #GOnce struct controls a one-time initialization function. Any -one-time initialization function must have its own unique #GOnce -struct. --} - -module GI.GLib.Structs.Once - ( - --- * Exported types - Once(..) , - noOnce , - - - -- * Properties --- ** Retval - onceReadRetval , - - --- ** Status - onceReadStatus , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Once = Once (ForeignPtr Once) -noOnce :: Maybe Once -noOnce = Nothing - -onceReadStatus :: Once -> IO OnceStatus -onceReadStatus s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -onceReadRetval :: Once -> IO (Ptr ()) -onceReadRetval s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr ()) - return val - - diff --git a/GI/GLib/Structs/Once.hs-boot b/GI/GLib/Structs/Once.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/Once.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.Once 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 - -newtype Once = Once (ForeignPtr Once) diff --git a/GI/GLib/Structs/OptionContext.hs b/GI/GLib/Structs/OptionContext.hs deleted file mode 100644 --- a/GI/GLib/Structs/OptionContext.hs +++ /dev/null @@ -1,667 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A `GOptionContext` struct defines which options -are accepted by the commandline option parser. The struct has only private -fields and should not be directly accessed. --} - -module GI.GLib.Structs.OptionContext - ( - --- * Exported types - OptionContext(..) , - noOptionContext , - - - -- * Methods --- ** optionContextAddGroup - optionContextAddGroup , - - --- ** optionContextAddMainEntries - optionContextAddMainEntries , - - --- ** optionContextFree - optionContextFree , - - --- ** optionContextGetDescription - optionContextGetDescription , - - --- ** optionContextGetHelp - optionContextGetHelp , - - --- ** optionContextGetHelpEnabled - optionContextGetHelpEnabled , - - --- ** optionContextGetIgnoreUnknownOptions - optionContextGetIgnoreUnknownOptions , - - --- ** optionContextGetMainGroup - optionContextGetMainGroup , - - --- ** optionContextGetStrictPosix - optionContextGetStrictPosix , - - --- ** optionContextGetSummary - optionContextGetSummary , - - --- ** optionContextParseStrv - optionContextParseStrv , - - --- ** optionContextSetDescription - optionContextSetDescription , - - --- ** optionContextSetHelpEnabled - optionContextSetHelpEnabled , - - --- ** optionContextSetIgnoreUnknownOptions - optionContextSetIgnoreUnknownOptions , - - --- ** optionContextSetMainGroup - optionContextSetMainGroup , - - --- ** optionContextSetStrictPosix - optionContextSetStrictPosix , - - --- ** optionContextSetSummary - optionContextSetSummary , - - --- ** optionContextSetTranslateFunc - optionContextSetTranslateFunc , - - --- ** optionContextSetTranslationDomain - optionContextSetTranslationDomain , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype OptionContext = OptionContext (ForeignPtr OptionContext) -noOptionContext :: Maybe OptionContext -noOptionContext = Nothing - --- method OptionContext::add_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_option_context_add_group" g_option_context_add_group :: - Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" - Ptr OptionGroup -> -- group : TInterface "GLib" "OptionGroup" - IO () - - -optionContextAddGroup :: - (MonadIO m) => - OptionContext -> -- _obj - OptionGroup -> -- group - m () -optionContextAddGroup _obj group = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group' <- copyBoxed group - g_option_context_add_group _obj' group' - touchManagedPtr _obj - touchManagedPtr group - return () - --- method OptionContext::add_main_entries --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TInterface "GLib" "OptionEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translation_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TInterface "GLib" "OptionEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translation_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_option_context_add_main_entries" g_option_context_add_main_entries :: - Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" - Ptr OptionEntry -> -- entries : TInterface "GLib" "OptionEntry" - CString -> -- translation_domain : TBasicType TUTF8 - IO () - - -optionContextAddMainEntries :: - (MonadIO m) => - OptionContext -> -- _obj - OptionEntry -> -- entries - Maybe (T.Text) -> -- translation_domain - m () -optionContextAddMainEntries _obj entries translation_domain = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let entries' = unsafeManagedPtrGetPtr entries - maybeTranslation_domain <- case translation_domain of - Nothing -> return nullPtr - Just jTranslation_domain -> do - jTranslation_domain' <- textToCString jTranslation_domain - return jTranslation_domain' - g_option_context_add_main_entries _obj' entries' maybeTranslation_domain - touchManagedPtr _obj - touchManagedPtr entries - freeMem maybeTranslation_domain - return () - --- method OptionContext::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_option_context_free" g_option_context_free :: - Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" - IO () - - -optionContextFree :: - (MonadIO m) => - OptionContext -> -- _obj - m () -optionContextFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_option_context_free _obj' - touchManagedPtr _obj - return () - --- method OptionContext::get_description --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_option_context_get_description" g_option_context_get_description :: - Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" - IO CString - - -optionContextGetDescription :: - (MonadIO m) => - OptionContext -> -- _obj - m T.Text -optionContextGetDescription _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_option_context_get_description _obj' - checkUnexpectedReturnNULL "g_option_context_get_description" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method OptionContext::get_help --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "main_help", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "main_help", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_option_context_get_help" g_option_context_get_help :: - Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" - CInt -> -- main_help : TBasicType TBoolean - Ptr OptionGroup -> -- group : TInterface "GLib" "OptionGroup" - IO CString - - -optionContextGetHelp :: - (MonadIO m) => - OptionContext -> -- _obj - Bool -> -- main_help - Maybe (OptionGroup) -> -- group - m T.Text -optionContextGetHelp _obj main_help group = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let main_help' = (fromIntegral . fromEnum) main_help - maybeGroup <- case group of - Nothing -> return nullPtr - Just jGroup -> do - let jGroup' = unsafeManagedPtrGetPtr jGroup - return jGroup' - result <- g_option_context_get_help _obj' main_help' maybeGroup - checkUnexpectedReturnNULL "g_option_context_get_help" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - whenJust group touchManagedPtr - return result' - --- method OptionContext::get_help_enabled --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_option_context_get_help_enabled" g_option_context_get_help_enabled :: - Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" - IO CInt - - -optionContextGetHelpEnabled :: - (MonadIO m) => - OptionContext -> -- _obj - m Bool -optionContextGetHelpEnabled _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_option_context_get_help_enabled _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method OptionContext::get_ignore_unknown_options --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_option_context_get_ignore_unknown_options" g_option_context_get_ignore_unknown_options :: - Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" - IO CInt - - -optionContextGetIgnoreUnknownOptions :: - (MonadIO m) => - OptionContext -> -- _obj - m Bool -optionContextGetIgnoreUnknownOptions _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_option_context_get_ignore_unknown_options _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method OptionContext::get_main_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "OptionGroup" --- throws : False --- Skip return : False - -foreign import ccall "g_option_context_get_main_group" g_option_context_get_main_group :: - Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" - IO (Ptr OptionGroup) - - -optionContextGetMainGroup :: - (MonadIO m) => - OptionContext -> -- _obj - m OptionGroup -optionContextGetMainGroup _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_option_context_get_main_group _obj' - checkUnexpectedReturnNULL "g_option_context_get_main_group" result - result' <- (newBoxed OptionGroup) result - touchManagedPtr _obj - return result' - --- method OptionContext::get_strict_posix --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_option_context_get_strict_posix" g_option_context_get_strict_posix :: - Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" - IO CInt - - -optionContextGetStrictPosix :: - (MonadIO m) => - OptionContext -> -- _obj - m Bool -optionContextGetStrictPosix _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_option_context_get_strict_posix _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method OptionContext::get_summary --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_option_context_get_summary" g_option_context_get_summary :: - Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" - IO CString - - -optionContextGetSummary :: - (MonadIO m) => - OptionContext -> -- _obj - m T.Text -optionContextGetSummary _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_option_context_get_summary _obj' - checkUnexpectedReturnNULL "g_option_context_get_summary" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- XXX Could not generate method OptionContext::parse --- Error was : Bad introspection data: "argument \"argc\" is not of nullable type (TBasicType TInt32), but it is marked as such." --- method OptionContext::parse_strv --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arguments", argType = TCArray False (-1) (-1) (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arguments", argType = TCArray False (-1) (-1) (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_option_context_parse_strv" g_option_context_parse_strv :: - Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" - Ptr (Ptr CString) -> -- arguments : TCArray False (-1) (-1) (TBasicType TUTF8) - Ptr (Ptr GError) -> -- error - IO CInt - - -optionContextParseStrv :: - (MonadIO m) => - OptionContext -> -- _obj - Ptr CString -> -- arguments - m ((Ptr CString)) -optionContextParseStrv _obj arguments = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - arguments' <- allocMem :: IO (Ptr (Ptr CString)) - poke arguments' arguments - onException (do - _ <- propagateGError $ g_option_context_parse_strv _obj' arguments' - arguments'' <- peek arguments' - touchManagedPtr _obj - freeMem arguments' - return arguments'' - ) (do - freeMem arguments' - ) - --- method OptionContext::set_description --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_option_context_set_description" g_option_context_set_description :: - Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" - CString -> -- description : TBasicType TUTF8 - IO () - - -optionContextSetDescription :: - (MonadIO m) => - OptionContext -> -- _obj - Maybe (T.Text) -> -- description - m () -optionContextSetDescription _obj description = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeDescription <- case description of - Nothing -> return nullPtr - Just jDescription -> do - jDescription' <- textToCString jDescription - return jDescription' - g_option_context_set_description _obj' maybeDescription - touchManagedPtr _obj - freeMem maybeDescription - return () - --- method OptionContext::set_help_enabled --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "help_enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "help_enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_option_context_set_help_enabled" g_option_context_set_help_enabled :: - Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" - CInt -> -- help_enabled : TBasicType TBoolean - IO () - - -optionContextSetHelpEnabled :: - (MonadIO m) => - OptionContext -> -- _obj - Bool -> -- help_enabled - m () -optionContextSetHelpEnabled _obj help_enabled = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let help_enabled' = (fromIntegral . fromEnum) help_enabled - g_option_context_set_help_enabled _obj' help_enabled' - touchManagedPtr _obj - return () - --- method OptionContext::set_ignore_unknown_options --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ignore_unknown", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ignore_unknown", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_option_context_set_ignore_unknown_options" g_option_context_set_ignore_unknown_options :: - Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" - CInt -> -- ignore_unknown : TBasicType TBoolean - IO () - - -optionContextSetIgnoreUnknownOptions :: - (MonadIO m) => - OptionContext -> -- _obj - Bool -> -- ignore_unknown - m () -optionContextSetIgnoreUnknownOptions _obj ignore_unknown = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let ignore_unknown' = (fromIntegral . fromEnum) ignore_unknown - g_option_context_set_ignore_unknown_options _obj' ignore_unknown' - touchManagedPtr _obj - return () - --- method OptionContext::set_main_group --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_option_context_set_main_group" g_option_context_set_main_group :: - Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" - Ptr OptionGroup -> -- group : TInterface "GLib" "OptionGroup" - IO () - - -optionContextSetMainGroup :: - (MonadIO m) => - OptionContext -> -- _obj - OptionGroup -> -- group - m () -optionContextSetMainGroup _obj group = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group' <- copyBoxed group - g_option_context_set_main_group _obj' group' - touchManagedPtr _obj - touchManagedPtr group - return () - --- method OptionContext::set_strict_posix --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "strict_posix", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "strict_posix", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_option_context_set_strict_posix" g_option_context_set_strict_posix :: - Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" - CInt -> -- strict_posix : TBasicType TBoolean - IO () - - -optionContextSetStrictPosix :: - (MonadIO m) => - OptionContext -> -- _obj - Bool -> -- strict_posix - m () -optionContextSetStrictPosix _obj strict_posix = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let strict_posix' = (fromIntegral . fromEnum) strict_posix - g_option_context_set_strict_posix _obj' strict_posix' - touchManagedPtr _obj - return () - --- method OptionContext::set_summary --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "summary", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "summary", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_option_context_set_summary" g_option_context_set_summary :: - Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" - CString -> -- summary : TBasicType TUTF8 - IO () - - -optionContextSetSummary :: - (MonadIO m) => - OptionContext -> -- _obj - Maybe (T.Text) -> -- summary - m () -optionContextSetSummary _obj summary = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeSummary <- case summary of - Nothing -> return nullPtr - Just jSummary -> do - jSummary' <- textToCString jSummary - return jSummary' - g_option_context_set_summary _obj' maybeSummary - touchManagedPtr _obj - freeMem maybeSummary - return () - --- method OptionContext::set_translate_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "TranslateFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "TranslateFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_option_context_set_translate_func" g_option_context_set_translate_func :: - Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" - FunPtr TranslateFuncC -> -- func : TInterface "GLib" "TranslateFunc" - Ptr () -> -- data : TBasicType TVoid - FunPtr DestroyNotifyC -> -- destroy_notify : TInterface "GLib" "DestroyNotify" - IO () - - -optionContextSetTranslateFunc :: - (MonadIO m) => - OptionContext -> -- _obj - Maybe (TranslateFunc) -> -- func - m () -optionContextSetTranslateFunc _obj func = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeFunc <- case func of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jFunc -> do - jFunc' <- mkTranslateFunc (translateFuncWrapper Nothing jFunc) - return jFunc' - let data_ = castFunPtrToPtr maybeFunc - let destroy_notify = safeFreeFunPtrPtr - g_option_context_set_translate_func _obj' maybeFunc data_ destroy_notify - touchManagedPtr _obj - return () - --- method OptionContext::set_translation_domain --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_option_context_set_translation_domain" g_option_context_set_translation_domain :: - Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" - CString -> -- domain : TBasicType TUTF8 - IO () - - -optionContextSetTranslationDomain :: - (MonadIO m) => - OptionContext -> -- _obj - T.Text -> -- domain - m () -optionContextSetTranslationDomain _obj domain = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - domain' <- textToCString domain - g_option_context_set_translation_domain _obj' domain' - touchManagedPtr _obj - freeMem domain' - return () - - diff --git a/GI/GLib/Structs/OptionContext.hs-boot b/GI/GLib/Structs/OptionContext.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/OptionContext.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.OptionContext 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 - -newtype OptionContext = OptionContext (ForeignPtr OptionContext) diff --git a/GI/GLib/Structs/OptionEntry.hs b/GI/GLib/Structs/OptionEntry.hs deleted file mode 100644 --- a/GI/GLib/Structs/OptionEntry.hs +++ /dev/null @@ -1,106 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A GOptionEntry struct defines a single option. To have an effect, they -must be added to a #GOptionGroup with g_option_context_add_main_entries() -or g_option_group_add_entries(). --} - -module GI.GLib.Structs.OptionEntry - ( - --- * Exported types - OptionEntry(..) , - noOptionEntry , - - - -- * Properties --- ** Arg - optionEntryReadArg , - - --- ** ArgData - optionEntryReadArgData , - - --- ** ArgDescription - optionEntryReadArgDescription , - - --- ** Description - optionEntryReadDescription , - - --- ** Flags - optionEntryReadFlags , - - --- ** LongName - optionEntryReadLongName , - - --- ** ShortName - optionEntryReadShortName , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype OptionEntry = OptionEntry (ForeignPtr OptionEntry) -noOptionEntry :: Maybe OptionEntry -noOptionEntry = Nothing - -optionEntryReadLongName :: OptionEntry -> IO T.Text -optionEntryReadLongName s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' - -optionEntryReadShortName :: OptionEntry -> IO Int8 -optionEntryReadShortName s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Int8 - return val - -optionEntryReadFlags :: OptionEntry -> IO Int32 -optionEntryReadFlags s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Int32 - return val - -optionEntryReadArg :: OptionEntry -> IO OptionArg -optionEntryReadArg s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -optionEntryReadArgData :: OptionEntry -> IO (Ptr ()) -optionEntryReadArgData s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO (Ptr ()) - return val - -optionEntryReadDescription :: OptionEntry -> IO T.Text -optionEntryReadDescription s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CString - val' <- cstringToText val - return val' - -optionEntryReadArgDescription :: OptionEntry -> IO T.Text -optionEntryReadArgDescription s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO CString - val' <- cstringToText val - return val' - - diff --git a/GI/GLib/Structs/OptionEntry.hs-boot b/GI/GLib/Structs/OptionEntry.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/OptionEntry.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.OptionEntry 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 - -newtype OptionEntry = OptionEntry (ForeignPtr OptionEntry) diff --git a/GI/GLib/Structs/OptionGroup.hs b/GI/GLib/Structs/OptionGroup.hs deleted file mode 100644 --- a/GI/GLib/Structs/OptionGroup.hs +++ /dev/null @@ -1,291 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A `GOptionGroup` struct defines the options in a single -group. The struct has only private fields and should not be directly accessed. - -All options in a group share the same translation function. Libraries which -need to parse commandline options are expected to provide a function for -getting a `GOptionGroup` holding their options, which -the application can then add to its #GOptionContext. --} - -module GI.GLib.Structs.OptionGroup - ( - --- * Exported types - OptionGroup(..) , - noOptionGroup , - - - -- * Methods --- ** optionGroupAddEntries - optionGroupAddEntries , - - --- ** optionGroupFree - optionGroupFree , - - --- ** optionGroupNew - optionGroupNew , - - --- ** optionGroupRef - optionGroupRef , - - --- ** optionGroupSetTranslateFunc - optionGroupSetTranslateFunc , - - --- ** optionGroupSetTranslationDomain - optionGroupSetTranslationDomain , - - --- ** optionGroupUnref - optionGroupUnref , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype OptionGroup = OptionGroup (ForeignPtr OptionGroup) -foreign import ccall "g_option_group_get_type" c_g_option_group_get_type :: - IO GType - -instance BoxedObject OptionGroup where - boxedType _ = c_g_option_group_get_type - -noOptionGroup :: Maybe OptionGroup -noOptionGroup = Nothing - --- method OptionGroup::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 = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "help_description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, 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 : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, 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 = "help_description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, 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 : TInterface "GLib" "OptionGroup" --- throws : False --- Skip return : False - -foreign import ccall "g_option_group_new" g_option_group_new :: - CString -> -- name : TBasicType TUTF8 - CString -> -- description : TBasicType TUTF8 - CString -> -- help_description : TBasicType TUTF8 - Ptr () -> -- user_data : TBasicType TVoid - FunPtr DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO (Ptr OptionGroup) - - -optionGroupNew :: - (MonadIO m) => - T.Text -> -- name - T.Text -> -- description - T.Text -> -- help_description - Maybe (Ptr ()) -> -- user_data - Maybe (DestroyNotify) -> -- destroy - m OptionGroup -optionGroupNew name description help_description user_data destroy = liftIO $ do - name' <- textToCString name - description' <- textToCString description - help_description' <- textToCString help_description - maybeUser_data <- case user_data of - Nothing -> return nullPtr - Just jUser_data -> do - return jUser_data - ptrdestroy <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC)) - maybeDestroy <- case destroy of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jDestroy -> do - jDestroy' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrdestroy) jDestroy) - poke ptrdestroy jDestroy' - return jDestroy' - result <- g_option_group_new name' description' help_description' maybeUser_data maybeDestroy - checkUnexpectedReturnNULL "g_option_group_new" result - result' <- (wrapBoxed OptionGroup) result - freeMem name' - freeMem description' - freeMem help_description' - return result' - --- method OptionGroup::add_entries --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TInterface "GLib" "OptionEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TInterface "GLib" "OptionEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_option_group_add_entries" g_option_group_add_entries :: - Ptr OptionGroup -> -- _obj : TInterface "GLib" "OptionGroup" - Ptr OptionEntry -> -- entries : TInterface "GLib" "OptionEntry" - IO () - - -optionGroupAddEntries :: - (MonadIO m) => - OptionGroup -> -- _obj - OptionEntry -> -- entries - m () -optionGroupAddEntries _obj entries = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let entries' = unsafeManagedPtrGetPtr entries - g_option_group_add_entries _obj' entries' - touchManagedPtr _obj - touchManagedPtr entries - return () - --- method OptionGroup::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_option_group_free" g_option_group_free :: - Ptr OptionGroup -> -- _obj : TInterface "GLib" "OptionGroup" - IO () - -{-# DEPRECATED optionGroupFree ["(Since version 2.44)","Use g_option_group_unref() instead."]#-} -optionGroupFree :: - (MonadIO m) => - OptionGroup -> -- _obj - m () -optionGroupFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_option_group_free _obj' - touchManagedPtr _obj - return () - --- method OptionGroup::ref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "OptionGroup" --- throws : False --- Skip return : False - -foreign import ccall "g_option_group_ref" g_option_group_ref :: - Ptr OptionGroup -> -- _obj : TInterface "GLib" "OptionGroup" - IO (Ptr OptionGroup) - - -optionGroupRef :: - (MonadIO m) => - OptionGroup -> -- _obj - m OptionGroup -optionGroupRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_option_group_ref _obj' - checkUnexpectedReturnNULL "g_option_group_ref" result - result' <- (wrapBoxed OptionGroup) result - touchManagedPtr _obj - return result' - --- method OptionGroup::set_translate_func --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "TranslateFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "TranslateFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_option_group_set_translate_func" g_option_group_set_translate_func :: - Ptr OptionGroup -> -- _obj : TInterface "GLib" "OptionGroup" - FunPtr TranslateFuncC -> -- func : TInterface "GLib" "TranslateFunc" - Ptr () -> -- data : TBasicType TVoid - FunPtr DestroyNotifyC -> -- destroy_notify : TInterface "GLib" "DestroyNotify" - IO () - - -optionGroupSetTranslateFunc :: - (MonadIO m) => - OptionGroup -> -- _obj - Maybe (TranslateFunc) -> -- func - m () -optionGroupSetTranslateFunc _obj func = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeFunc <- case func of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jFunc -> do - jFunc' <- mkTranslateFunc (translateFuncWrapper Nothing jFunc) - return jFunc' - let data_ = castFunPtrToPtr maybeFunc - let destroy_notify = safeFreeFunPtrPtr - g_option_group_set_translate_func _obj' maybeFunc data_ destroy_notify - touchManagedPtr _obj - return () - --- method OptionGroup::set_translation_domain --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_option_group_set_translation_domain" g_option_group_set_translation_domain :: - Ptr OptionGroup -> -- _obj : TInterface "GLib" "OptionGroup" - CString -> -- domain : TBasicType TUTF8 - IO () - - -optionGroupSetTranslationDomain :: - (MonadIO m) => - OptionGroup -> -- _obj - T.Text -> -- domain - m () -optionGroupSetTranslationDomain _obj domain = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - domain' <- textToCString domain - g_option_group_set_translation_domain _obj' domain' - touchManagedPtr _obj - freeMem domain' - return () - --- method OptionGroup::unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_option_group_unref" g_option_group_unref :: - Ptr OptionGroup -> -- _obj : TInterface "GLib" "OptionGroup" - IO () - - -optionGroupUnref :: - (MonadIO m) => - OptionGroup -> -- _obj - m () -optionGroupUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_option_group_unref _obj' - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Structs/OptionGroup.hs-boot b/GI/GLib/Structs/OptionGroup.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/OptionGroup.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.GLib.Structs.OptionGroup 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 - -newtype OptionGroup = OptionGroup (ForeignPtr OptionGroup) -instance BoxedObject OptionGroup where diff --git a/GI/GLib/Structs/PatternSpec.hs b/GI/GLib/Structs/PatternSpec.hs deleted file mode 100644 --- a/GI/GLib/Structs/PatternSpec.hs +++ /dev/null @@ -1,99 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A GPatternSpec struct is the 'compiled' form of a pattern. This -structure is opaque and its fields cannot be accessed directly. --} - -module GI.GLib.Structs.PatternSpec - ( - --- * Exported types - PatternSpec(..) , - noPatternSpec , - - - -- * Methods --- ** patternSpecEqual - patternSpecEqual , - - --- ** patternSpecFree - patternSpecFree , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype PatternSpec = PatternSpec (ForeignPtr PatternSpec) -noPatternSpec :: Maybe PatternSpec -noPatternSpec = Nothing - --- method PatternSpec::equal --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec2", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pspec2", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_pattern_spec_equal" g_pattern_spec_equal :: - Ptr PatternSpec -> -- _obj : TInterface "GLib" "PatternSpec" - Ptr PatternSpec -> -- pspec2 : TInterface "GLib" "PatternSpec" - IO CInt - - -patternSpecEqual :: - (MonadIO m) => - PatternSpec -> -- _obj - PatternSpec -> -- pspec2 - m Bool -patternSpecEqual _obj pspec2 = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let pspec2' = unsafeManagedPtrGetPtr pspec2 - result <- g_pattern_spec_equal _obj' pspec2' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr pspec2 - return result' - --- method PatternSpec::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_pattern_spec_free" g_pattern_spec_free :: - Ptr PatternSpec -> -- _obj : TInterface "GLib" "PatternSpec" - IO () - - -patternSpecFree :: - (MonadIO m) => - PatternSpec -> -- _obj - m () -patternSpecFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_pattern_spec_free _obj' - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Structs/PatternSpec.hs-boot b/GI/GLib/Structs/PatternSpec.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/PatternSpec.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.PatternSpec 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 - -newtype PatternSpec = PatternSpec (ForeignPtr PatternSpec) diff --git a/GI/GLib/Structs/PollFD.hs b/GI/GLib/Structs/PollFD.hs deleted file mode 100644 --- a/GI/GLib/Structs/PollFD.hs +++ /dev/null @@ -1,71 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Represents a file descriptor, which events to poll for, and which events -occurred. --} - -module GI.GLib.Structs.PollFD - ( - --- * Exported types - PollFD(..) , - noPollFD , - - - -- * Properties --- ** Events - pollFDReadEvents , - - --- ** Fd - pollFDReadFd , - - --- ** Revents - pollFDReadRevents , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype PollFD = PollFD (ForeignPtr PollFD) -foreign import ccall "g_pollfd_get_type" c_g_pollfd_get_type :: - IO GType - -instance BoxedObject PollFD where - boxedType _ = c_g_pollfd_get_type - -noPollFD :: Maybe PollFD -noPollFD = Nothing - -pollFDReadFd :: PollFD -> IO Int32 -pollFDReadFd s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int32 - return val - -pollFDReadEvents :: PollFD -> IO Word16 -pollFDReadEvents s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Word16 - return val - -pollFDReadRevents :: PollFD -> IO Word16 -pollFDReadRevents s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 6) :: IO Word16 - return val - - diff --git a/GI/GLib/Structs/PollFD.hs-boot b/GI/GLib/Structs/PollFD.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/PollFD.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.GLib.Structs.PollFD 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 - -newtype PollFD = PollFD (ForeignPtr PollFD) -instance BoxedObject PollFD where diff --git a/GI/GLib/Structs/PtrArray.hs b/GI/GLib/Structs/PtrArray.hs deleted file mode 100644 --- a/GI/GLib/Structs/PtrArray.hs +++ /dev/null @@ -1,61 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Contains the public fields of a pointer array. --} - -module GI.GLib.Structs.PtrArray - ( - --- * Exported types - PtrArray(..) , - noPtrArray , - - - -- * Properties --- ** Len - ptrArrayReadLen , - - --- ** Pdata - ptrArrayReadPdata , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype PtrArray = PtrArray (ForeignPtr PtrArray) -foreign import ccall "g_ptr_array_get_type" c_g_ptr_array_get_type :: - IO GType - -instance BoxedObject PtrArray where - boxedType _ = c_g_ptr_array_get_type - -noPtrArray :: Maybe PtrArray -noPtrArray = Nothing - -ptrArrayReadPdata :: PtrArray -> IO (Ptr ()) -ptrArrayReadPdata s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr ()) - return val - -ptrArrayReadLen :: PtrArray -> IO Word32 -ptrArrayReadLen s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word32 - return val - - diff --git a/GI/GLib/Structs/PtrArray.hs-boot b/GI/GLib/Structs/PtrArray.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/PtrArray.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.GLib.Structs.PtrArray 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 - -newtype PtrArray = PtrArray (ForeignPtr PtrArray) -instance BoxedObject PtrArray where diff --git a/GI/GLib/Structs/Queue.hs b/GI/GLib/Structs/Queue.hs deleted file mode 100644 --- a/GI/GLib/Structs/Queue.hs +++ /dev/null @@ -1,455 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Contains the public fields of a -[Queue][glib-Double-ended-Queues]. --} - -module GI.GLib.Structs.Queue - ( - --- * Exported types - Queue(..) , - noQueue , - - - -- * Methods --- ** queueClear - queueClear , - - --- ** queueFree - queueFree , - - --- ** queueFreeFull - queueFreeFull , - - --- ** queueGetLength - queueGetLength , - - --- ** queueIndex - queueIndex , - - --- ** queueInit - queueInit , - - --- ** queueIsEmpty - queueIsEmpty , - - --- ** queuePushHead - queuePushHead , - - --- ** queuePushNth - queuePushNth , - - --- ** queuePushTail - queuePushTail , - - --- ** queueRemove - queueRemove , - - --- ** queueRemoveAll - queueRemoveAll , - - --- ** queueReverse - queueReverse , - - - - - -- * Properties --- ** Head - queueReadHead , - - --- ** Length - queueReadLength , - - --- ** Tail - queueReadTail , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Queue = Queue (ForeignPtr Queue) -noQueue :: Maybe Queue -noQueue = Nothing - -queueReadHead :: Queue -> IO ([Ptr ()]) -queueReadHead s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr (GList (Ptr ()))) - val' <- unpackGList val - return val' - -queueReadTail :: Queue -> IO ([Ptr ()]) -queueReadTail s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr (GList (Ptr ()))) - val' <- unpackGList val - return val' - -queueReadLength :: Queue -> IO Word32 -queueReadLength s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Word32 - return val - --- method Queue::clear --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_queue_clear" g_queue_clear :: - Ptr Queue -> -- _obj : TInterface "GLib" "Queue" - IO () - - -queueClear :: - (MonadIO m) => - Queue -> -- _obj - m () -queueClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_queue_clear _obj' - touchManagedPtr _obj - return () - --- method Queue::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_queue_free" g_queue_free :: - Ptr Queue -> -- _obj : TInterface "GLib" "Queue" - IO () - - -queueFree :: - (MonadIO m) => - Queue -> -- _obj - m () -queueFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_queue_free _obj' - touchManagedPtr _obj - return () - --- method Queue::free_full --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "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 "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "free_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_queue_free_full" g_queue_free_full :: - Ptr Queue -> -- _obj : TInterface "GLib" "Queue" - FunPtr DestroyNotifyC -> -- free_func : TInterface "GLib" "DestroyNotify" - IO () - - -queueFreeFull :: - (MonadIO m) => - Queue -> -- _obj - DestroyNotify -> -- free_func - m () -queueFreeFull _obj free_func = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - ptrfree_func <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC)) - free_func' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrfree_func) free_func) - poke ptrfree_func free_func' - g_queue_free_full _obj' free_func' - touchManagedPtr _obj - return () - --- method Queue::get_length --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_queue_get_length" g_queue_get_length :: - Ptr Queue -> -- _obj : TInterface "GLib" "Queue" - IO Word32 - - -queueGetLength :: - (MonadIO m) => - Queue -> -- _obj - m Word32 -queueGetLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_queue_get_length _obj' - touchManagedPtr _obj - return result - --- method Queue::index --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", 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 TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_queue_index" g_queue_index :: - Ptr Queue -> -- _obj : TInterface "GLib" "Queue" - Ptr () -> -- data : TBasicType TVoid - IO Int32 - - -queueIndex :: - (MonadIO m) => - Queue -> -- _obj - Ptr () -> -- data - m Int32 -queueIndex _obj data_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_queue_index _obj' data_ - touchManagedPtr _obj - return result - --- method Queue::init --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_queue_init" g_queue_init :: - Ptr Queue -> -- _obj : TInterface "GLib" "Queue" - IO () - - -queueInit :: - (MonadIO m) => - Queue -> -- _obj - m () -queueInit _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_queue_init _obj' - touchManagedPtr _obj - return () - --- method Queue::is_empty --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_queue_is_empty" g_queue_is_empty :: - Ptr Queue -> -- _obj : TInterface "GLib" "Queue" - IO CInt - - -queueIsEmpty :: - (MonadIO m) => - Queue -> -- _obj - m Bool -queueIsEmpty _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_queue_is_empty _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Queue::push_head --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", 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 - -foreign import ccall "g_queue_push_head" g_queue_push_head :: - Ptr Queue -> -- _obj : TInterface "GLib" "Queue" - Ptr () -> -- data : TBasicType TVoid - IO () - - -queuePushHead :: - (MonadIO m) => - Queue -> -- _obj - Ptr () -> -- data - m () -queuePushHead _obj data_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_queue_push_head _obj' data_ - touchManagedPtr _obj - return () - --- method Queue::push_nth --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", 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},Arg {argName = "n", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", 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},Arg {argName = "n", 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_queue_push_nth" g_queue_push_nth :: - Ptr Queue -> -- _obj : TInterface "GLib" "Queue" - Ptr () -> -- data : TBasicType TVoid - Int32 -> -- n : TBasicType TInt32 - IO () - - -queuePushNth :: - (MonadIO m) => - Queue -> -- _obj - Ptr () -> -- data - Int32 -> -- n - m () -queuePushNth _obj data_ n = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_queue_push_nth _obj' data_ n - touchManagedPtr _obj - return () - --- method Queue::push_tail --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", 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 - -foreign import ccall "g_queue_push_tail" g_queue_push_tail :: - Ptr Queue -> -- _obj : TInterface "GLib" "Queue" - Ptr () -> -- data : TBasicType TVoid - IO () - - -queuePushTail :: - (MonadIO m) => - Queue -> -- _obj - Ptr () -> -- data - m () -queuePushTail _obj data_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_queue_push_tail _obj' data_ - touchManagedPtr _obj - return () - --- method Queue::remove --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", 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 TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_queue_remove" g_queue_remove :: - Ptr Queue -> -- _obj : TInterface "GLib" "Queue" - Ptr () -> -- data : TBasicType TVoid - IO CInt - - -queueRemove :: - (MonadIO m) => - Queue -> -- _obj - Ptr () -> -- data - m Bool -queueRemove _obj data_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_queue_remove _obj' data_ - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Queue::remove_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", 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 TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_queue_remove_all" g_queue_remove_all :: - Ptr Queue -> -- _obj : TInterface "GLib" "Queue" - Ptr () -> -- data : TBasicType TVoid - IO Word32 - - -queueRemoveAll :: - (MonadIO m) => - Queue -> -- _obj - Ptr () -> -- data - m Word32 -queueRemoveAll _obj data_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_queue_remove_all _obj' data_ - touchManagedPtr _obj - return result - --- method Queue::reverse --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_queue_reverse" g_queue_reverse :: - Ptr Queue -> -- _obj : TInterface "GLib" "Queue" - IO () - - -queueReverse :: - (MonadIO m) => - Queue -> -- _obj - m () -queueReverse _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_queue_reverse _obj' - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Structs/Queue.hs-boot b/GI/GLib/Structs/Queue.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/Queue.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.Queue 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 - -newtype Queue = Queue (ForeignPtr Queue) diff --git a/GI/GLib/Structs/RWLock.hs b/GI/GLib/Structs/RWLock.hs deleted file mode 100644 --- a/GI/GLib/Structs/RWLock.hs +++ /dev/null @@ -1,321 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The GRWLock struct is an opaque data structure to represent a -reader-writer lock. It is similar to a #GMutex in that it allows -multiple threads to coordinate access to a shared resource. - -The difference to a mutex is that a reader-writer lock discriminates -between read-only ('reader') and full ('writer') access. While only -one thread at a time is allowed write access (by holding the 'writer' -lock via g_rw_lock_writer_lock()), multiple threads can gain -simultaneous read-only access (by holding the 'reader' lock via -g_rw_lock_reader_lock()). - -Here is an example for an array with access functions: -|[ - GRWLock lock; - GPtrArray *array; - - gpointer - my_array_get (guint index) - { - gpointer retval = NULL; - - if (!array) - return NULL; - - g_rw_lock_reader_lock (&lock); - if (index < array->len) - retval = g_ptr_array_index (array, index); - g_rw_lock_reader_unlock (&lock); - - return retval; - } - - void - my_array_set (guint index, gpointer data) - { - g_rw_lock_writer_lock (&lock); - - if (!array) - array = g_ptr_array_new (); - - if (index >= array->len) - g_ptr_array_set_size (array, index+1); - g_ptr_array_index (array, index) = data; - - g_rw_lock_writer_unlock (&lock); - } - ]| -This example shows an array which can be accessed by many readers -(the my_array_get() function) simultaneously, whereas the writers -(the my_array_set() function) will only be allowed one at a time -and only if no readers currently access the array. This is because -of the potentially dangerous resizing of the array. Using these -functions is fully multi-thread safe now. - -If a #GRWLock is allocated in static storage then it can be used -without initialisation. Otherwise, you should call -g_rw_lock_init() on it and g_rw_lock_clear() when done. - -A GRWLock should only be accessed with the g_rw_lock_ functions. --} - -module GI.GLib.Structs.RWLock - ( - --- * Exported types - RWLock(..) , - noRWLock , - - - -- * Methods --- ** rWLockClear - rWLockClear , - - --- ** rWLockInit - rWLockInit , - - --- ** rWLockReaderLock - rWLockReaderLock , - - --- ** rWLockReaderTrylock - rWLockReaderTrylock , - - --- ** rWLockReaderUnlock - rWLockReaderUnlock , - - --- ** rWLockWriterLock - rWLockWriterLock , - - --- ** rWLockWriterTrylock - rWLockWriterTrylock , - - --- ** rWLockWriterUnlock - rWLockWriterUnlock , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype RWLock = RWLock (ForeignPtr RWLock) -noRWLock :: Maybe RWLock -noRWLock = Nothing - --- method RWLock::clear --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_rw_lock_clear" g_rw_lock_clear :: - Ptr RWLock -> -- _obj : TInterface "GLib" "RWLock" - IO () - - -rWLockClear :: - (MonadIO m) => - RWLock -> -- _obj - m () -rWLockClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_rw_lock_clear _obj' - touchManagedPtr _obj - return () - --- method RWLock::init --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_rw_lock_init" g_rw_lock_init :: - Ptr RWLock -> -- _obj : TInterface "GLib" "RWLock" - IO () - - -rWLockInit :: - (MonadIO m) => - RWLock -> -- _obj - m () -rWLockInit _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_rw_lock_init _obj' - touchManagedPtr _obj - return () - --- method RWLock::reader_lock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_rw_lock_reader_lock" g_rw_lock_reader_lock :: - Ptr RWLock -> -- _obj : TInterface "GLib" "RWLock" - IO () - - -rWLockReaderLock :: - (MonadIO m) => - RWLock -> -- _obj - m () -rWLockReaderLock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_rw_lock_reader_lock _obj' - touchManagedPtr _obj - return () - --- method RWLock::reader_trylock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_rw_lock_reader_trylock" g_rw_lock_reader_trylock :: - Ptr RWLock -> -- _obj : TInterface "GLib" "RWLock" - IO CInt - - -rWLockReaderTrylock :: - (MonadIO m) => - RWLock -> -- _obj - m Bool -rWLockReaderTrylock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_rw_lock_reader_trylock _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method RWLock::reader_unlock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_rw_lock_reader_unlock" g_rw_lock_reader_unlock :: - Ptr RWLock -> -- _obj : TInterface "GLib" "RWLock" - IO () - - -rWLockReaderUnlock :: - (MonadIO m) => - RWLock -> -- _obj - m () -rWLockReaderUnlock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_rw_lock_reader_unlock _obj' - touchManagedPtr _obj - return () - --- method RWLock::writer_lock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_rw_lock_writer_lock" g_rw_lock_writer_lock :: - Ptr RWLock -> -- _obj : TInterface "GLib" "RWLock" - IO () - - -rWLockWriterLock :: - (MonadIO m) => - RWLock -> -- _obj - m () -rWLockWriterLock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_rw_lock_writer_lock _obj' - touchManagedPtr _obj - return () - --- method RWLock::writer_trylock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_rw_lock_writer_trylock" g_rw_lock_writer_trylock :: - Ptr RWLock -> -- _obj : TInterface "GLib" "RWLock" - IO CInt - - -rWLockWriterTrylock :: - (MonadIO m) => - RWLock -> -- _obj - m Bool -rWLockWriterTrylock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_rw_lock_writer_trylock _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method RWLock::writer_unlock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_rw_lock_writer_unlock" g_rw_lock_writer_unlock :: - Ptr RWLock -> -- _obj : TInterface "GLib" "RWLock" - IO () - - -rWLockWriterUnlock :: - (MonadIO m) => - RWLock -> -- _obj - m () -rWLockWriterUnlock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_rw_lock_writer_unlock _obj' - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Structs/RWLock.hs-boot b/GI/GLib/Structs/RWLock.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/RWLock.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.RWLock 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 - -newtype RWLock = RWLock (ForeignPtr RWLock) diff --git a/GI/GLib/Structs/Rand.hs b/GI/GLib/Structs/Rand.hs deleted file mode 100644 --- a/GI/GLib/Structs/Rand.hs +++ /dev/null @@ -1,252 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The GRand struct is an opaque data structure. It should only be -accessed through the g_rand_* functions. --} - -module GI.GLib.Structs.Rand - ( - --- * Exported types - Rand(..) , - noRand , - - - -- * Methods --- ** randDouble - randDouble , - - --- ** randDoubleRange - randDoubleRange , - - --- ** randFree - randFree , - - --- ** randInt - randInt , - - --- ** randIntRange - randIntRange , - - --- ** randSetSeed - randSetSeed , - - --- ** randSetSeedArray - randSetSeedArray , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Rand = Rand (ForeignPtr Rand) -noRand :: Maybe Rand -noRand = Nothing - --- method Rand::double --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "g_rand_double" g_rand_double :: - Ptr Rand -> -- _obj : TInterface "GLib" "Rand" - IO CDouble - - -randDouble :: - (MonadIO m) => - Rand -> -- _obj - m Double -randDouble _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_rand_double _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Rand::double_range --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "g_rand_double_range" g_rand_double_range :: - Ptr Rand -> -- _obj : TInterface "GLib" "Rand" - CDouble -> -- begin : TBasicType TDouble - CDouble -> -- end : TBasicType TDouble - IO CDouble - - -randDoubleRange :: - (MonadIO m) => - Rand -> -- _obj - Double -> -- begin - Double -> -- end - m Double -randDoubleRange _obj begin end = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let begin' = realToFrac begin - let end' = realToFrac end - result <- g_rand_double_range _obj' begin' end' - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Rand::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_rand_free" g_rand_free :: - Ptr Rand -> -- _obj : TInterface "GLib" "Rand" - IO () - - -randFree :: - (MonadIO m) => - Rand -> -- _obj - m () -randFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_rand_free _obj' - touchManagedPtr _obj - return () - --- method Rand::int --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_rand_int" g_rand_int :: - Ptr Rand -> -- _obj : TInterface "GLib" "Rand" - IO Word32 - - -randInt :: - (MonadIO m) => - Rand -> -- _obj - m Word32 -randInt _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_rand_int _obj' - touchManagedPtr _obj - return result - --- method Rand::int_range --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "begin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_rand_int_range" g_rand_int_range :: - Ptr Rand -> -- _obj : TInterface "GLib" "Rand" - Int32 -> -- begin : TBasicType TInt32 - Int32 -> -- end : TBasicType TInt32 - IO Int32 - - -randIntRange :: - (MonadIO m) => - Rand -> -- _obj - Int32 -> -- begin - Int32 -> -- end - m Int32 -randIntRange _obj begin end = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_rand_int_range _obj' begin end - touchManagedPtr _obj - return result - --- method Rand::set_seed --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seed", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seed", 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_rand_set_seed" g_rand_set_seed :: - Ptr Rand -> -- _obj : TInterface "GLib" "Rand" - Word32 -> -- seed : TBasicType TUInt32 - IO () - - -randSetSeed :: - (MonadIO m) => - Rand -> -- _obj - Word32 -> -- seed - m () -randSetSeed _obj seed = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_rand_set_seed _obj' seed - touchManagedPtr _obj - return () - --- method Rand::set_seed_array --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seed", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seed_length", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seed", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "seed_length", 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_rand_set_seed_array" g_rand_set_seed_array :: - Ptr Rand -> -- _obj : TInterface "GLib" "Rand" - Word32 -> -- seed : TBasicType TUInt32 - Word32 -> -- seed_length : TBasicType TUInt32 - IO () - - -randSetSeedArray :: - (MonadIO m) => - Rand -> -- _obj - Word32 -> -- seed - Word32 -> -- seed_length - m () -randSetSeedArray _obj seed seed_length = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_rand_set_seed_array _obj' seed seed_length - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Structs/Rand.hs-boot b/GI/GLib/Structs/Rand.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/Rand.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.Rand 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 - -newtype Rand = Rand (ForeignPtr Rand) diff --git a/GI/GLib/Structs/RecMutex.hs b/GI/GLib/Structs/RecMutex.hs deleted file mode 100644 --- a/GI/GLib/Structs/RecMutex.hs +++ /dev/null @@ -1,189 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The GRecMutex struct is an opaque data structure to represent a -recursive mutex. It is similar to a #GMutex with the difference -that it is possible to lock a GRecMutex multiple times in the same -thread without deadlock. When doing so, care has to be taken to -unlock the recursive mutex as often as it has been locked. - -If a #GRecMutex is allocated in static storage then it can be used -without initialisation. Otherwise, you should call -g_rec_mutex_init() on it and g_rec_mutex_clear() when done. - -A GRecMutex should only be accessed with the -g_rec_mutex_ functions. --} - -module GI.GLib.Structs.RecMutex - ( - --- * Exported types - RecMutex(..) , - noRecMutex , - - - -- * Methods --- ** recMutexClear - recMutexClear , - - --- ** recMutexInit - recMutexInit , - - --- ** recMutexLock - recMutexLock , - - --- ** recMutexTrylock - recMutexTrylock , - - --- ** recMutexUnlock - recMutexUnlock , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype RecMutex = RecMutex (ForeignPtr RecMutex) -noRecMutex :: Maybe RecMutex -noRecMutex = Nothing - --- method RecMutex::clear --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_rec_mutex_clear" g_rec_mutex_clear :: - Ptr RecMutex -> -- _obj : TInterface "GLib" "RecMutex" - IO () - - -recMutexClear :: - (MonadIO m) => - RecMutex -> -- _obj - m () -recMutexClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_rec_mutex_clear _obj' - touchManagedPtr _obj - return () - --- method RecMutex::init --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_rec_mutex_init" g_rec_mutex_init :: - Ptr RecMutex -> -- _obj : TInterface "GLib" "RecMutex" - IO () - - -recMutexInit :: - (MonadIO m) => - RecMutex -> -- _obj - m () -recMutexInit _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_rec_mutex_init _obj' - touchManagedPtr _obj - return () - --- method RecMutex::lock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_rec_mutex_lock" g_rec_mutex_lock :: - Ptr RecMutex -> -- _obj : TInterface "GLib" "RecMutex" - IO () - - -recMutexLock :: - (MonadIO m) => - RecMutex -> -- _obj - m () -recMutexLock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_rec_mutex_lock _obj' - touchManagedPtr _obj - return () - --- method RecMutex::trylock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_rec_mutex_trylock" g_rec_mutex_trylock :: - Ptr RecMutex -> -- _obj : TInterface "GLib" "RecMutex" - IO CInt - - -recMutexTrylock :: - (MonadIO m) => - RecMutex -> -- _obj - m Bool -recMutexTrylock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_rec_mutex_trylock _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method RecMutex::unlock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_rec_mutex_unlock" g_rec_mutex_unlock :: - Ptr RecMutex -> -- _obj : TInterface "GLib" "RecMutex" - IO () - - -recMutexUnlock :: - (MonadIO m) => - RecMutex -> -- _obj - m () -recMutexUnlock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_rec_mutex_unlock _obj' - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Structs/RecMutex.hs-boot b/GI/GLib/Structs/RecMutex.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/RecMutex.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.RecMutex 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 - -newtype RecMutex = RecMutex (ForeignPtr RecMutex) diff --git a/GI/GLib/Structs/Regex.hs b/GI/GLib/Structs/Regex.hs deleted file mode 100644 --- a/GI/GLib/Structs/Regex.hs +++ /dev/null @@ -1,824 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The g_regex_*() functions implement regular -expression pattern matching using syntax and semantics similar to -Perl regular expression. - -Some functions accept a @start_position argument, setting it differs -from just passing over a shortened string and setting #G_REGEX_MATCH_NOTBOL -in the case of a pattern that begins with any kind of lookbehind assertion. -For example, consider the pattern "\Biss\B" which finds occurrences of "iss" -in the middle of words. ("\B" matches only if the current position in the -subject is not a word boundary.) When applied to the string "Mississipi" -from the fourth byte, namely "issipi", it does not match, because "\B" is -always false at the start of the subject, which is deemed to be a word -boundary. However, if the entire string is passed , but with -@start_position set to 4, it finds the second occurrence of "iss" because -it is able to look behind the starting point to discover that it is -preceded by a letter. - -Note that, unless you set the #G_REGEX_RAW flag, all the strings passed -to these functions must be encoded in UTF-8. The lengths and the positions -inside the strings are in bytes and not in characters, so, for instance, -"\xc3\xa0" (i.e. "à") is two bytes long but it is treated as a -single character. If you set #G_REGEX_RAW the strings can be non-valid -UTF-8 strings and a byte is treated as a character, so "\xc3\xa0" is two -bytes and two characters long. - -When matching a pattern, "\n" matches only against a "\n" character in -the string, and "\r" matches only a "\r" character. To match any newline -sequence use "\R". This particular group matches either the two-character -sequence CR + LF ("\r\n"), or one of the single characters LF (linefeed, -U+000A, "\n"), VT vertical tab, U+000B, "\v"), FF (formfeed, U+000C, "\f"), -CR (carriage return, U+000D, "\r"), NEL (next line, U+0085), LS (line -separator, U+2028), or PS (paragraph separator, U+2029). - -The behaviour of the dot, circumflex, and dollar metacharacters are -affected by newline characters, the default is to recognize any newline -character (the same characters recognized by "\R"). This can be changed -with #G_REGEX_NEWLINE_CR, #G_REGEX_NEWLINE_LF and #G_REGEX_NEWLINE_CRLF -compile options, and with #G_REGEX_MATCH_NEWLINE_ANY, -#G_REGEX_MATCH_NEWLINE_CR, #G_REGEX_MATCH_NEWLINE_LF and -#G_REGEX_MATCH_NEWLINE_CRLF match options. These settings are also -relevant when compiling a pattern if #G_REGEX_EXTENDED is set, and an -unescaped "#" outside a character class is encountered. This indicates -a comment that lasts until after the next newline. - -When setting the %G_REGEX_JAVASCRIPT_COMPAT flag, pattern syntax and pattern -matching is changed to be compatible with the way that regular expressions -work in JavaScript. More precisely, a lonely ']' character in the pattern -is a syntax error; the '\x' escape only allows 0 to 2 hexadecimal digits, and -you must use the '\u' escape sequence with 4 hex digits to specify a unicode -codepoint instead of '\x' or 'x{....}'. If '\x' or '\u' are not followed by -the specified number of hex digits, they match 'x' and 'u' literally; also -'\U' always matches 'U' instead of being an error in the pattern. Finally, -pattern matching is modified so that back references to an unset subpattern -group produces a match with the empty string instead of an error. See -pcreapi(3) for more information. - -Creating and manipulating the same #GRegex structure from different -threads is not a problem as #GRegex does not modify its internal -state between creation and destruction, on the other hand #GMatchInfo -is not threadsafe. - -The regular expressions low-level functionalities are obtained through -the excellent -[PCRE](http://www.pcre.org/) -library written by Philip Hazel. --} - -module GI.GLib.Structs.Regex - ( - --- * Exported types - Regex(..) , - noRegex , - - - -- * Methods --- ** regexGetCaptureCount - regexGetCaptureCount , - - --- ** regexGetCompileFlags - regexGetCompileFlags , - - --- ** regexGetHasCrOrLf - regexGetHasCrOrLf , - - --- ** regexGetMatchFlags - regexGetMatchFlags , - - --- ** regexGetMaxBackref - regexGetMaxBackref , - - --- ** regexGetMaxLookbehind - regexGetMaxLookbehind , - - --- ** regexGetPattern - regexGetPattern , - - --- ** regexGetStringNumber - regexGetStringNumber , - - --- ** regexMatch - regexMatch , - - --- ** regexMatchAll - regexMatchAll , - - --- ** regexMatchAllFull - regexMatchAllFull , - - --- ** regexMatchFull - regexMatchFull , - - --- ** regexNew - regexNew , - - --- ** regexRef - regexRef , - - --- ** regexReplace - regexReplace , - - --- ** regexReplaceLiteral - regexReplaceLiteral , - - --- ** regexSplit - regexSplit , - - --- ** regexSplitFull - regexSplitFull , - - --- ** regexUnref - regexUnref , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Regex = Regex (ForeignPtr Regex) -foreign import ccall "g_regex_get_type" c_g_regex_get_type :: - IO GType - -instance BoxedObject Regex where - boxedType _ = c_g_regex_get_type - -noRegex :: Maybe Regex -noRegex = Nothing - --- method Regex::new --- method type : Constructor --- Args : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compile_options", argType = TInterface "GLib" "RegexCompileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compile_options", argType = TInterface "GLib" "RegexCompileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "Regex" --- throws : True --- Skip return : False - -foreign import ccall "g_regex_new" g_regex_new :: - CString -> -- pattern : TBasicType TUTF8 - CUInt -> -- compile_options : TInterface "GLib" "RegexCompileFlags" - CUInt -> -- match_options : TInterface "GLib" "RegexMatchFlags" - Ptr (Ptr GError) -> -- error - IO (Ptr Regex) - - -regexNew :: - (MonadIO m) => - T.Text -> -- pattern - [RegexCompileFlags] -> -- compile_options - [RegexMatchFlags] -> -- match_options - m Regex -regexNew pattern compile_options match_options = liftIO $ do - pattern' <- textToCString pattern - let compile_options' = gflagsToWord compile_options - let match_options' = gflagsToWord match_options - onException (do - result <- propagateGError $ g_regex_new pattern' compile_options' match_options' - checkUnexpectedReturnNULL "g_regex_new" result - result' <- (wrapBoxed Regex) result - freeMem pattern' - return result' - ) (do - freeMem pattern' - ) - --- method Regex::get_capture_count --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_regex_get_capture_count" g_regex_get_capture_count :: - Ptr Regex -> -- _obj : TInterface "GLib" "Regex" - IO Int32 - - -regexGetCaptureCount :: - (MonadIO m) => - Regex -> -- _obj - m Int32 -regexGetCaptureCount _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_regex_get_capture_count _obj' - touchManagedPtr _obj - return result - --- method Regex::get_compile_flags --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "RegexCompileFlags" --- throws : False --- Skip return : False - -foreign import ccall "g_regex_get_compile_flags" g_regex_get_compile_flags :: - Ptr Regex -> -- _obj : TInterface "GLib" "Regex" - IO CUInt - - -regexGetCompileFlags :: - (MonadIO m) => - Regex -> -- _obj - m [RegexCompileFlags] -regexGetCompileFlags _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_regex_get_compile_flags _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - --- method Regex::get_has_cr_or_lf --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_regex_get_has_cr_or_lf" g_regex_get_has_cr_or_lf :: - Ptr Regex -> -- _obj : TInterface "GLib" "Regex" - IO CInt - - -regexGetHasCrOrLf :: - (MonadIO m) => - Regex -> -- _obj - m Bool -regexGetHasCrOrLf _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_regex_get_has_cr_or_lf _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Regex::get_match_flags --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "RegexMatchFlags" --- throws : False --- Skip return : False - -foreign import ccall "g_regex_get_match_flags" g_regex_get_match_flags :: - Ptr Regex -> -- _obj : TInterface "GLib" "Regex" - IO CUInt - - -regexGetMatchFlags :: - (MonadIO m) => - Regex -> -- _obj - m [RegexMatchFlags] -regexGetMatchFlags _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_regex_get_match_flags _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - --- method Regex::get_max_backref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_regex_get_max_backref" g_regex_get_max_backref :: - Ptr Regex -> -- _obj : TInterface "GLib" "Regex" - IO Int32 - - -regexGetMaxBackref :: - (MonadIO m) => - Regex -> -- _obj - m Int32 -regexGetMaxBackref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_regex_get_max_backref _obj' - touchManagedPtr _obj - return result - --- method Regex::get_max_lookbehind --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_regex_get_max_lookbehind" g_regex_get_max_lookbehind :: - Ptr Regex -> -- _obj : TInterface "GLib" "Regex" - IO Int32 - - -regexGetMaxLookbehind :: - (MonadIO m) => - Regex -> -- _obj - m Int32 -regexGetMaxLookbehind _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_regex_get_max_lookbehind _obj' - touchManagedPtr _obj - return result - --- method Regex::get_pattern --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_regex_get_pattern" g_regex_get_pattern :: - Ptr Regex -> -- _obj : TInterface "GLib" "Regex" - IO CString - - -regexGetPattern :: - (MonadIO m) => - Regex -> -- _obj - m T.Text -regexGetPattern _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_regex_get_pattern _obj' - checkUnexpectedReturnNULL "g_regex_get_pattern" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Regex::get_string_number --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", 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 "GLib" "Regex", 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 TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_regex_get_string_number" g_regex_get_string_number :: - Ptr Regex -> -- _obj : TInterface "GLib" "Regex" - CString -> -- name : TBasicType TUTF8 - IO Int32 - - -regexGetStringNumber :: - (MonadIO m) => - Regex -> -- _obj - T.Text -> -- name - m Int32 -regexGetStringNumber _obj name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - result <- g_regex_get_string_number _obj' name' - touchManagedPtr _obj - freeMem name' - return result - --- method Regex::match --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_info", argType = TInterface "GLib" "MatchInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_regex_match" g_regex_match :: - Ptr Regex -> -- _obj : TInterface "GLib" "Regex" - CString -> -- string : TBasicType TUTF8 - CUInt -> -- match_options : TInterface "GLib" "RegexMatchFlags" - Ptr (Ptr MatchInfo) -> -- match_info : TInterface "GLib" "MatchInfo" - IO CInt - - -regexMatch :: - (MonadIO m) => - Regex -> -- _obj - T.Text -> -- string - [RegexMatchFlags] -> -- match_options - m (Bool,MatchInfo) -regexMatch _obj string match_options = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - string' <- textToCString string - let match_options' = gflagsToWord match_options - match_info <- allocMem :: IO (Ptr (Ptr MatchInfo)) - result <- g_regex_match _obj' string' match_options' match_info - let result' = (/= 0) result - match_info' <- peek match_info - match_info'' <- (wrapBoxed MatchInfo) match_info' - touchManagedPtr _obj - freeMem string' - freeMem match_info - return (result', match_info'') - --- method Regex::match_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_info", argType = TInterface "GLib" "MatchInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_regex_match_all" g_regex_match_all :: - Ptr Regex -> -- _obj : TInterface "GLib" "Regex" - CString -> -- string : TBasicType TUTF8 - CUInt -> -- match_options : TInterface "GLib" "RegexMatchFlags" - Ptr (Ptr MatchInfo) -> -- match_info : TInterface "GLib" "MatchInfo" - IO CInt - - -regexMatchAll :: - (MonadIO m) => - Regex -> -- _obj - T.Text -> -- string - [RegexMatchFlags] -> -- match_options - m (Bool,MatchInfo) -regexMatchAll _obj string match_options = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - string' <- textToCString string - let match_options' = gflagsToWord match_options - match_info <- allocMem :: IO (Ptr (Ptr MatchInfo)) - result <- g_regex_match_all _obj' string' match_options' match_info - let result' = (/= 0) result - match_info' <- peek match_info - match_info'' <- (wrapBoxed MatchInfo) match_info' - touchManagedPtr _obj - freeMem string' - freeMem match_info - return (result', match_info'') - --- method Regex::match_all_full --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_info", argType = TInterface "GLib" "MatchInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_regex_match_all_full" g_regex_match_all_full :: - Ptr Regex -> -- _obj : TInterface "GLib" "Regex" - Ptr CString -> -- string : TCArray False (-1) 2 (TBasicType TUTF8) - Int64 -> -- string_len : TBasicType TInt64 - Int32 -> -- start_position : TBasicType TInt32 - CUInt -> -- match_options : TInterface "GLib" "RegexMatchFlags" - Ptr (Ptr MatchInfo) -> -- match_info : TInterface "GLib" "MatchInfo" - Ptr (Ptr GError) -> -- error - IO CInt - - -regexMatchAllFull :: - (MonadIO m) => - Regex -> -- _obj - [T.Text] -> -- string - Int32 -> -- start_position - [RegexMatchFlags] -> -- match_options - m (MatchInfo) -regexMatchAllFull _obj string start_position match_options = liftIO $ do - let string_len = fromIntegral $ length string - let _obj' = unsafeManagedPtrGetPtr _obj - string' <- packUTF8CArray string - let match_options' = gflagsToWord match_options - match_info <- allocMem :: IO (Ptr (Ptr MatchInfo)) - onException (do - _ <- propagateGError $ g_regex_match_all_full _obj' string' string_len start_position match_options' match_info - match_info' <- peek match_info - match_info'' <- (wrapBoxed MatchInfo) match_info' - touchManagedPtr _obj - (mapCArrayWithLength string_len) freeMem string' - freeMem string' - freeMem match_info - return match_info'' - ) (do - (mapCArrayWithLength string_len) freeMem string' - freeMem string' - freeMem match_info - ) - --- method Regex::match_full --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_info", argType = TInterface "GLib" "MatchInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_regex_match_full" g_regex_match_full :: - Ptr Regex -> -- _obj : TInterface "GLib" "Regex" - Ptr CString -> -- string : TCArray False (-1) 2 (TBasicType TUTF8) - Int64 -> -- string_len : TBasicType TInt64 - Int32 -> -- start_position : TBasicType TInt32 - CUInt -> -- match_options : TInterface "GLib" "RegexMatchFlags" - Ptr (Ptr MatchInfo) -> -- match_info : TInterface "GLib" "MatchInfo" - Ptr (Ptr GError) -> -- error - IO CInt - - -regexMatchFull :: - (MonadIO m) => - Regex -> -- _obj - [T.Text] -> -- string - Int32 -> -- start_position - [RegexMatchFlags] -> -- match_options - m (MatchInfo) -regexMatchFull _obj string start_position match_options = liftIO $ do - let string_len = fromIntegral $ length string - let _obj' = unsafeManagedPtrGetPtr _obj - string' <- packUTF8CArray string - let match_options' = gflagsToWord match_options - match_info <- allocMem :: IO (Ptr (Ptr MatchInfo)) - onException (do - _ <- propagateGError $ g_regex_match_full _obj' string' string_len start_position match_options' match_info - match_info' <- peek match_info - match_info'' <- (wrapBoxed MatchInfo) match_info' - touchManagedPtr _obj - (mapCArrayWithLength string_len) freeMem string' - freeMem string' - freeMem match_info - return match_info'' - ) (do - (mapCArrayWithLength string_len) freeMem string' - freeMem string' - freeMem match_info - ) - --- method Regex::ref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "Regex" --- throws : False --- Skip return : False - -foreign import ccall "g_regex_ref" g_regex_ref :: - Ptr Regex -> -- _obj : TInterface "GLib" "Regex" - IO (Ptr Regex) - - -regexRef :: - (MonadIO m) => - Regex -> -- _obj - m Regex -regexRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_regex_ref _obj' - checkUnexpectedReturnNULL "g_regex_ref" result - result' <- (wrapBoxed Regex) result - touchManagedPtr _obj - return result' - --- method Regex::replace --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : True --- Skip return : False - -foreign import ccall "g_regex_replace" g_regex_replace :: - Ptr Regex -> -- _obj : TInterface "GLib" "Regex" - Ptr CString -> -- string : TCArray False (-1) 2 (TBasicType TUTF8) - Int64 -> -- string_len : TBasicType TInt64 - Int32 -> -- start_position : TBasicType TInt32 - CString -> -- replacement : TBasicType TUTF8 - CUInt -> -- match_options : TInterface "GLib" "RegexMatchFlags" - Ptr (Ptr GError) -> -- error - IO CString - - -regexReplace :: - (MonadIO m) => - Regex -> -- _obj - [T.Text] -> -- string - Int32 -> -- start_position - T.Text -> -- replacement - [RegexMatchFlags] -> -- match_options - m T.Text -regexReplace _obj string start_position replacement match_options = liftIO $ do - let string_len = fromIntegral $ length string - let _obj' = unsafeManagedPtrGetPtr _obj - string' <- packUTF8CArray string - replacement' <- textToCString replacement - let match_options' = gflagsToWord match_options - onException (do - result <- propagateGError $ g_regex_replace _obj' string' string_len start_position replacement' match_options' - checkUnexpectedReturnNULL "g_regex_replace" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - (mapCArrayWithLength string_len) freeMem string' - freeMem string' - freeMem replacement' - return result' - ) (do - (mapCArrayWithLength string_len) freeMem string' - freeMem string' - freeMem replacement' - ) - --- method Regex::replace_literal --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : True --- Skip return : False - -foreign import ccall "g_regex_replace_literal" g_regex_replace_literal :: - Ptr Regex -> -- _obj : TInterface "GLib" "Regex" - Ptr CString -> -- string : TCArray False (-1) 2 (TBasicType TUTF8) - Int64 -> -- string_len : TBasicType TInt64 - Int32 -> -- start_position : TBasicType TInt32 - CString -> -- replacement : TBasicType TUTF8 - CUInt -> -- match_options : TInterface "GLib" "RegexMatchFlags" - Ptr (Ptr GError) -> -- error - IO CString - - -regexReplaceLiteral :: - (MonadIO m) => - Regex -> -- _obj - [T.Text] -> -- string - Int32 -> -- start_position - T.Text -> -- replacement - [RegexMatchFlags] -> -- match_options - m T.Text -regexReplaceLiteral _obj string start_position replacement match_options = liftIO $ do - let string_len = fromIntegral $ length string - let _obj' = unsafeManagedPtrGetPtr _obj - string' <- packUTF8CArray string - replacement' <- textToCString replacement - let match_options' = gflagsToWord match_options - onException (do - result <- propagateGError $ g_regex_replace_literal _obj' string' string_len start_position replacement' match_options' - checkUnexpectedReturnNULL "g_regex_replace_literal" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - (mapCArrayWithLength string_len) freeMem string' - freeMem string' - freeMem replacement' - return result' - ) (do - (mapCArrayWithLength string_len) freeMem string' - freeMem string' - freeMem replacement' - ) - --- method Regex::split --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", 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_regex_split" g_regex_split :: - Ptr Regex -> -- _obj : TInterface "GLib" "Regex" - CString -> -- string : TBasicType TUTF8 - CUInt -> -- match_options : TInterface "GLib" "RegexMatchFlags" - IO (Ptr CString) - - -regexSplit :: - (MonadIO m) => - Regex -> -- _obj - T.Text -> -- string - [RegexMatchFlags] -> -- match_options - m [T.Text] -regexSplit _obj string match_options = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - string' <- textToCString string - let match_options' = gflagsToWord match_options - result <- g_regex_split _obj' string' match_options' - checkUnexpectedReturnNULL "g_regex_split" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - touchManagedPtr _obj - freeMem string' - return result' - --- method Regex::split_full --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_tokens", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start_position", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_tokens", argType = TBasicType TInt32, 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_regex_split_full" g_regex_split_full :: - Ptr Regex -> -- _obj : TInterface "GLib" "Regex" - Ptr CString -> -- string : TCArray False (-1) 2 (TBasicType TUTF8) - Int64 -> -- string_len : TBasicType TInt64 - Int32 -> -- start_position : TBasicType TInt32 - CUInt -> -- match_options : TInterface "GLib" "RegexMatchFlags" - Int32 -> -- max_tokens : TBasicType TInt32 - Ptr (Ptr GError) -> -- error - IO (Ptr CString) - - -regexSplitFull :: - (MonadIO m) => - Regex -> -- _obj - [T.Text] -> -- string - Int32 -> -- start_position - [RegexMatchFlags] -> -- match_options - Int32 -> -- max_tokens - m [T.Text] -regexSplitFull _obj string start_position match_options max_tokens = liftIO $ do - let string_len = fromIntegral $ length string - let _obj' = unsafeManagedPtrGetPtr _obj - string' <- packUTF8CArray string - let match_options' = gflagsToWord match_options - onException (do - result <- propagateGError $ g_regex_split_full _obj' string' string_len start_position match_options' max_tokens - checkUnexpectedReturnNULL "g_regex_split_full" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - touchManagedPtr _obj - (mapCArrayWithLength string_len) freeMem string' - freeMem string' - return result' - ) (do - (mapCArrayWithLength string_len) freeMem string' - freeMem string' - ) - --- method Regex::unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_regex_unref" g_regex_unref :: - Ptr Regex -> -- _obj : TInterface "GLib" "Regex" - IO () - - -regexUnref :: - (MonadIO m) => - Regex -> -- _obj - m () -regexUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_regex_unref _obj' - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Structs/Regex.hs-boot b/GI/GLib/Structs/Regex.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/Regex.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.GLib.Structs.Regex 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 - -newtype Regex = Regex (ForeignPtr Regex) -instance BoxedObject Regex where diff --git a/GI/GLib/Structs/Scanner.hs b/GI/GLib/Structs/Scanner.hs deleted file mode 100644 --- a/GI/GLib/Structs/Scanner.hs +++ /dev/null @@ -1,630 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The data structure representing a lexical scanner. - -You should set @input_name after creating the scanner, since -it is used by the default message handler when displaying -warnings and errors. If you are scanning a file, the filename -would be a good choice. - -The @user_data and @max_parse_errors fields are not used. -If you need to associate extra data with the scanner you -can place them here. - -If you want to use your own message handler you can set the -@msg_handler field. The type of the message handler function -is declared by #GScannerMsgFunc. --} - -module GI.GLib.Structs.Scanner - ( - --- * Exported types - Scanner(..) , - noScanner , - - - -- * Methods --- ** scannerCurLine - scannerCurLine , - - --- ** scannerCurPosition - scannerCurPosition , - - --- ** scannerCurToken - scannerCurToken , - - --- ** scannerDestroy - scannerDestroy , - - --- ** scannerEof - scannerEof , - - --- ** scannerGetNextToken - scannerGetNextToken , - - --- ** scannerInputFile - scannerInputFile , - - --- ** scannerInputText - scannerInputText , - - --- ** scannerPeekNextToken - scannerPeekNextToken , - - --- ** scannerScopeAddSymbol - scannerScopeAddSymbol , - - --- ** scannerScopeRemoveSymbol - scannerScopeRemoveSymbol , - - --- ** scannerSetScope - scannerSetScope , - - --- ** scannerSyncFileOffset - scannerSyncFileOffset , - - --- ** scannerUnexpToken - scannerUnexpToken , - - - - - -- * Properties --- ** Config - scannerReadConfig , - - --- ** InputName - scannerReadInputName , - - --- ** Line - scannerReadLine , - - --- ** MaxParseErrors - scannerReadMaxParseErrors , - - --- ** NextLine - scannerReadNextLine , - - --- ** NextPosition - scannerReadNextPosition , - - --- ** NextToken - scannerReadNextToken , - - --- ** NextValue - scannerReadNextValue , - - --- ** ParseErrors - scannerReadParseErrors , - - --- ** Position - scannerReadPosition , - - --- ** Qdata - scannerReadQdata , - - --- ** Token - scannerReadToken , - - --- ** UserData - scannerReadUserData , - - --- ** Value - scannerReadValue , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Scanner = Scanner (ForeignPtr Scanner) -noScanner :: Maybe Scanner -noScanner = Nothing - -scannerReadUserData :: Scanner -> IO (Ptr ()) -scannerReadUserData s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr ()) - return val - -scannerReadMaxParseErrors :: Scanner -> IO Word32 -scannerReadMaxParseErrors s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word32 - return val - -scannerReadParseErrors :: Scanner -> IO Word32 -scannerReadParseErrors s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Word32 - return val - -scannerReadInputName :: Scanner -> IO T.Text -scannerReadInputName s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CString - val' <- cstringToText val - return val' - -scannerReadQdata :: Scanner -> IO Data -scannerReadQdata s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO (Ptr Data) - -- XXX Wrapping a foreign struct/union with no known destructor, leak? - val' <- (\x -> Data <$> newForeignPtr_ x) val - return val' - -scannerReadConfig :: Scanner -> IO ScannerConfig -scannerReadConfig s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO (Ptr ScannerConfig) - val' <- (newPtr 128 ScannerConfig) val - return val' - -scannerReadToken :: Scanner -> IO TokenType -scannerReadToken s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -scannerReadValue :: Scanner -> IO TokenValue -scannerReadValue s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO (Ptr TokenValue) - val' <- (newPtr 8 TokenValue) val - return val' - -scannerReadLine :: Scanner -> IO Word32 -scannerReadLine s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 56) :: IO Word32 - return val - -scannerReadPosition :: Scanner -> IO Word32 -scannerReadPosition s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 60) :: IO Word32 - return val - -scannerReadNextToken :: Scanner -> IO TokenType -scannerReadNextToken s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 64) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -scannerReadNextValue :: Scanner -> IO TokenValue -scannerReadNextValue s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 72) :: IO (Ptr TokenValue) - val' <- (newPtr 8 TokenValue) val - return val' - -scannerReadNextLine :: Scanner -> IO Word32 -scannerReadNextLine s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 80) :: IO Word32 - return val - -scannerReadNextPosition :: Scanner -> IO Word32 -scannerReadNextPosition s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 84) :: IO Word32 - return val - --- XXX Skipped getter for "Scanner:msg_handler" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- method Scanner::cur_line --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_scanner_cur_line" g_scanner_cur_line :: - Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" - IO Word32 - - -scannerCurLine :: - (MonadIO m) => - Scanner -> -- _obj - m Word32 -scannerCurLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_scanner_cur_line _obj' - touchManagedPtr _obj - return result - --- method Scanner::cur_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_scanner_cur_position" g_scanner_cur_position :: - Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" - IO Word32 - - -scannerCurPosition :: - (MonadIO m) => - Scanner -> -- _obj - m Word32 -scannerCurPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_scanner_cur_position _obj' - touchManagedPtr _obj - return result - --- method Scanner::cur_token --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "TokenType" --- throws : False --- Skip return : False - -foreign import ccall "g_scanner_cur_token" g_scanner_cur_token :: - Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" - IO CUInt - - -scannerCurToken :: - (MonadIO m) => - Scanner -> -- _obj - m TokenType -scannerCurToken _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_scanner_cur_token _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Scanner::destroy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_scanner_destroy" g_scanner_destroy :: - Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" - IO () - - -scannerDestroy :: - (MonadIO m) => - Scanner -> -- _obj - m () -scannerDestroy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_scanner_destroy _obj' - touchManagedPtr _obj - return () - --- method Scanner::eof --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_scanner_eof" g_scanner_eof :: - Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" - IO CInt - - -scannerEof :: - (MonadIO m) => - Scanner -> -- _obj - m Bool -scannerEof _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_scanner_eof _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Scanner::get_next_token --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "TokenType" --- throws : False --- Skip return : False - -foreign import ccall "g_scanner_get_next_token" g_scanner_get_next_token :: - Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" - IO CUInt - - -scannerGetNextToken :: - (MonadIO m) => - Scanner -> -- _obj - m TokenType -scannerGetNextToken _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_scanner_get_next_token _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Scanner::input_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "input_fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "input_fd", 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_scanner_input_file" g_scanner_input_file :: - Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" - Int32 -> -- input_fd : TBasicType TInt32 - IO () - - -scannerInputFile :: - (MonadIO m) => - Scanner -> -- _obj - Int32 -> -- input_fd - m () -scannerInputFile _obj input_fd = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_scanner_input_file _obj' input_fd - touchManagedPtr _obj - return () - --- method Scanner::input_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_len", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text_len", 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_scanner_input_text" g_scanner_input_text :: - Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" - CString -> -- text : TBasicType TUTF8 - Word32 -> -- text_len : TBasicType TUInt32 - IO () - - -scannerInputText :: - (MonadIO m) => - Scanner -> -- _obj - T.Text -> -- text - Word32 -> -- text_len - m () -scannerInputText _obj text text_len = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - text' <- textToCString text - g_scanner_input_text _obj' text' text_len - touchManagedPtr _obj - freeMem text' - return () - --- method Scanner::peek_next_token --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "TokenType" --- throws : False --- Skip return : False - -foreign import ccall "g_scanner_peek_next_token" g_scanner_peek_next_token :: - Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" - IO CUInt - - -scannerPeekNextToken :: - (MonadIO m) => - Scanner -> -- _obj - m TokenType -scannerPeekNextToken _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_scanner_peek_next_token _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Scanner::scope_add_symbol --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scope_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scope_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_scanner_scope_add_symbol" g_scanner_scope_add_symbol :: - Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" - Word32 -> -- scope_id : TBasicType TUInt32 - CString -> -- symbol : TBasicType TUTF8 - Ptr () -> -- value : TBasicType TVoid - IO () - - -scannerScopeAddSymbol :: - (MonadIO m) => - Scanner -> -- _obj - Word32 -> -- scope_id - T.Text -> -- symbol - Ptr () -> -- value - m () -scannerScopeAddSymbol _obj scope_id symbol value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - symbol' <- textToCString symbol - g_scanner_scope_add_symbol _obj' scope_id symbol' value - touchManagedPtr _obj - freeMem symbol' - return () - --- method Scanner::scope_remove_symbol --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scope_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scope_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol", 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_scanner_scope_remove_symbol" g_scanner_scope_remove_symbol :: - Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" - Word32 -> -- scope_id : TBasicType TUInt32 - CString -> -- symbol : TBasicType TUTF8 - IO () - - -scannerScopeRemoveSymbol :: - (MonadIO m) => - Scanner -> -- _obj - Word32 -> -- scope_id - T.Text -> -- symbol - m () -scannerScopeRemoveSymbol _obj scope_id symbol = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - symbol' <- textToCString symbol - g_scanner_scope_remove_symbol _obj' scope_id symbol' - touchManagedPtr _obj - freeMem symbol' - return () - --- method Scanner::set_scope --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scope_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scope_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_scanner_set_scope" g_scanner_set_scope :: - Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" - Word32 -> -- scope_id : TBasicType TUInt32 - IO Word32 - - -scannerSetScope :: - (MonadIO m) => - Scanner -> -- _obj - Word32 -> -- scope_id - m Word32 -scannerSetScope _obj scope_id = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_scanner_set_scope _obj' scope_id - touchManagedPtr _obj - return result - --- method Scanner::sync_file_offset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_scanner_sync_file_offset" g_scanner_sync_file_offset :: - Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" - IO () - - -scannerSyncFileOffset :: - (MonadIO m) => - Scanner -> -- _obj - m () -scannerSyncFileOffset _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_scanner_sync_file_offset _obj' - touchManagedPtr _obj - return () - --- method Scanner::unexp_token --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expected_token", argType = TInterface "GLib" "TokenType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "identifier_spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol_spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol_name", argType = TBasicType TUTF8, 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},Arg {argName = "is_error", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expected_token", argType = TInterface "GLib" "TokenType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "identifier_spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol_spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symbol_name", argType = TBasicType TUTF8, 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},Arg {argName = "is_error", 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_scanner_unexp_token" g_scanner_unexp_token :: - Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" - CUInt -> -- expected_token : TInterface "GLib" "TokenType" - CString -> -- identifier_spec : TBasicType TUTF8 - CString -> -- symbol_spec : TBasicType TUTF8 - CString -> -- symbol_name : TBasicType TUTF8 - CString -> -- message : TBasicType TUTF8 - Int32 -> -- is_error : TBasicType TInt32 - IO () - - -scannerUnexpToken :: - (MonadIO m) => - Scanner -> -- _obj - TokenType -> -- expected_token - T.Text -> -- identifier_spec - T.Text -> -- symbol_spec - T.Text -> -- symbol_name - T.Text -> -- message - Int32 -> -- is_error - m () -scannerUnexpToken _obj expected_token identifier_spec symbol_spec symbol_name message is_error = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let expected_token' = (fromIntegral . fromEnum) expected_token - identifier_spec' <- textToCString identifier_spec - symbol_spec' <- textToCString symbol_spec - symbol_name' <- textToCString symbol_name - message' <- textToCString message - g_scanner_unexp_token _obj' expected_token' identifier_spec' symbol_spec' symbol_name' message' is_error - touchManagedPtr _obj - freeMem identifier_spec' - freeMem symbol_spec' - freeMem symbol_name' - freeMem message' - return () - - diff --git a/GI/GLib/Structs/Scanner.hs-boot b/GI/GLib/Structs/Scanner.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/Scanner.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.Scanner 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 - -newtype Scanner = Scanner (ForeignPtr Scanner) diff --git a/GI/GLib/Structs/ScannerConfig.hs b/GI/GLib/Structs/ScannerConfig.hs deleted file mode 100644 --- a/GI/GLib/Structs/ScannerConfig.hs +++ /dev/null @@ -1,277 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Specifies the #GScanner parser configuration. Most settings can -be changed during the parsing phase and will affect the lexical -parsing of the next unpeeked token. --} - -module GI.GLib.Structs.ScannerConfig - ( - --- * Exported types - ScannerConfig(..) , - noScannerConfig , - - - -- * Properties --- ** CaseSensitive - scannerConfigReadCaseSensitive , - - --- ** Char2Token - scannerConfigReadChar2Token , - - --- ** CpairCommentSingle - scannerConfigReadCpairCommentSingle , - - --- ** CsetIdentifierFirst - scannerConfigReadCsetIdentifierFirst , - - --- ** CsetIdentifierNth - scannerConfigReadCsetIdentifierNth , - - --- ** CsetSkipCharacters - scannerConfigReadCsetSkipCharacters , - - --- ** Identifier2String - scannerConfigReadIdentifier2String , - - --- ** Int2Float - scannerConfigReadInt2Float , - - --- ** Numbers2Int - scannerConfigReadNumbers2Int , - - --- ** ScanBinary - scannerConfigReadScanBinary , - - --- ** ScanCommentMulti - scannerConfigReadScanCommentMulti , - - --- ** ScanFloat - scannerConfigReadScanFloat , - - --- ** ScanHex - scannerConfigReadScanHex , - - --- ** ScanHexDollar - scannerConfigReadScanHexDollar , - - --- ** ScanIdentifier - scannerConfigReadScanIdentifier , - - --- ** ScanIdentifier1char - scannerConfigReadScanIdentifier1char , - - --- ** ScanIdentifierNULL - scannerConfigReadScanIdentifierNULL , - - --- ** ScanOctal - scannerConfigReadScanOctal , - - --- ** ScanStringDq - scannerConfigReadScanStringDq , - - --- ** ScanStringSq - scannerConfigReadScanStringSq , - - --- ** ScanSymbols - scannerConfigReadScanSymbols , - - --- ** Scope0Fallback - scannerConfigReadScope0Fallback , - - --- ** SkipCommentMulti - scannerConfigReadSkipCommentMulti , - - --- ** SkipCommentSingle - scannerConfigReadSkipCommentSingle , - - --- ** StoreInt64 - scannerConfigReadStoreInt64 , - - --- ** Symbol2Token - scannerConfigReadSymbol2Token , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype ScannerConfig = ScannerConfig (ForeignPtr ScannerConfig) -noScannerConfig :: Maybe ScannerConfig -noScannerConfig = Nothing - -scannerConfigReadCsetSkipCharacters :: ScannerConfig -> IO T.Text -scannerConfigReadCsetSkipCharacters s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' - -scannerConfigReadCsetIdentifierFirst :: ScannerConfig -> IO T.Text -scannerConfigReadCsetIdentifierFirst s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' - -scannerConfigReadCsetIdentifierNth :: ScannerConfig -> IO T.Text -scannerConfigReadCsetIdentifierNth s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CString - val' <- cstringToText val - return val' - -scannerConfigReadCpairCommentSingle :: ScannerConfig -> IO T.Text -scannerConfigReadCpairCommentSingle s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CString - val' <- cstringToText val - return val' - -scannerConfigReadCaseSensitive :: ScannerConfig -> IO Word32 -scannerConfigReadCaseSensitive s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO Word32 - return val - -scannerConfigReadSkipCommentMulti :: ScannerConfig -> IO Word32 -scannerConfigReadSkipCommentMulti s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 36) :: IO Word32 - return val - -scannerConfigReadSkipCommentSingle :: ScannerConfig -> IO Word32 -scannerConfigReadSkipCommentSingle s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO Word32 - return val - -scannerConfigReadScanCommentMulti :: ScannerConfig -> IO Word32 -scannerConfigReadScanCommentMulti s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 44) :: IO Word32 - return val - -scannerConfigReadScanIdentifier :: ScannerConfig -> IO Word32 -scannerConfigReadScanIdentifier s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO Word32 - return val - -scannerConfigReadScanIdentifier1char :: ScannerConfig -> IO Word32 -scannerConfigReadScanIdentifier1char s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 52) :: IO Word32 - return val - -scannerConfigReadScanIdentifierNULL :: ScannerConfig -> IO Word32 -scannerConfigReadScanIdentifierNULL s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 56) :: IO Word32 - return val - -scannerConfigReadScanSymbols :: ScannerConfig -> IO Word32 -scannerConfigReadScanSymbols s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 60) :: IO Word32 - return val - -scannerConfigReadScanBinary :: ScannerConfig -> IO Word32 -scannerConfigReadScanBinary s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 64) :: IO Word32 - return val - -scannerConfigReadScanOctal :: ScannerConfig -> IO Word32 -scannerConfigReadScanOctal s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 68) :: IO Word32 - return val - -scannerConfigReadScanFloat :: ScannerConfig -> IO Word32 -scannerConfigReadScanFloat s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 72) :: IO Word32 - return val - -scannerConfigReadScanHex :: ScannerConfig -> IO Word32 -scannerConfigReadScanHex s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 76) :: IO Word32 - return val - -scannerConfigReadScanHexDollar :: ScannerConfig -> IO Word32 -scannerConfigReadScanHexDollar s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 80) :: IO Word32 - return val - -scannerConfigReadScanStringSq :: ScannerConfig -> IO Word32 -scannerConfigReadScanStringSq s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 84) :: IO Word32 - return val - -scannerConfigReadScanStringDq :: ScannerConfig -> IO Word32 -scannerConfigReadScanStringDq s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 88) :: IO Word32 - return val - -scannerConfigReadNumbers2Int :: ScannerConfig -> IO Word32 -scannerConfigReadNumbers2Int s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 92) :: IO Word32 - return val - -scannerConfigReadInt2Float :: ScannerConfig -> IO Word32 -scannerConfigReadInt2Float s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 96) :: IO Word32 - return val - -scannerConfigReadIdentifier2String :: ScannerConfig -> IO Word32 -scannerConfigReadIdentifier2String s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 100) :: IO Word32 - return val - -scannerConfigReadChar2Token :: ScannerConfig -> IO Word32 -scannerConfigReadChar2Token s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 104) :: IO Word32 - return val - -scannerConfigReadSymbol2Token :: ScannerConfig -> IO Word32 -scannerConfigReadSymbol2Token s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 108) :: IO Word32 - return val - -scannerConfigReadScope0Fallback :: ScannerConfig -> IO Word32 -scannerConfigReadScope0Fallback s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 112) :: IO Word32 - return val - -scannerConfigReadStoreInt64 :: ScannerConfig -> IO Word32 -scannerConfigReadStoreInt64 s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 116) :: IO Word32 - return val - - diff --git a/GI/GLib/Structs/ScannerConfig.hs-boot b/GI/GLib/Structs/ScannerConfig.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/ScannerConfig.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.ScannerConfig 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 - -newtype ScannerConfig = ScannerConfig (ForeignPtr ScannerConfig) diff --git a/GI/GLib/Structs/Sequence.hs b/GI/GLib/Structs/Sequence.hs deleted file mode 100644 --- a/GI/GLib/Structs/Sequence.hs +++ /dev/null @@ -1,94 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The #GSequence struct is an opaque data type representing a -[sequence][glib-Sequences] data type. --} - -module GI.GLib.Structs.Sequence - ( - --- * Exported types - Sequence(..) , - noSequence , - - - -- * Methods --- ** sequenceFree - sequenceFree , - - --- ** sequenceGetLength - sequenceGetLength , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Sequence = Sequence (ForeignPtr Sequence) -noSequence :: Maybe Sequence -noSequence = Nothing - --- method Sequence::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Sequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Sequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_sequence_free" g_sequence_free :: - Ptr Sequence -> -- _obj : TInterface "GLib" "Sequence" - IO () - - -sequenceFree :: - (MonadIO m) => - Sequence -> -- _obj - m () -sequenceFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_sequence_free _obj' - touchManagedPtr _obj - return () - --- method Sequence::get_length --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Sequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Sequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_sequence_get_length" g_sequence_get_length :: - Ptr Sequence -> -- _obj : TInterface "GLib" "Sequence" - IO Int32 - - -sequenceGetLength :: - (MonadIO m) => - Sequence -> -- _obj - m Int32 -sequenceGetLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_sequence_get_length _obj' - touchManagedPtr _obj - return result - - diff --git a/GI/GLib/Structs/Sequence.hs-boot b/GI/GLib/Structs/Sequence.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/Sequence.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.Sequence 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 - -newtype Sequence = Sequence (ForeignPtr Sequence) diff --git a/GI/GLib/Structs/SequenceIter.hs b/GI/GLib/Structs/SequenceIter.hs deleted file mode 100644 --- a/GI/GLib/Structs/SequenceIter.hs +++ /dev/null @@ -1,156 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The #GSequenceIter struct is an opaque data type representing an -iterator pointing into a #GSequence. --} - -module GI.GLib.Structs.SequenceIter - ( - --- * Exported types - SequenceIter(..) , - noSequenceIter , - - - -- * Methods --- ** sequenceIterCompare - sequenceIterCompare , - - --- ** sequenceIterGetPosition - sequenceIterGetPosition , - - --- ** sequenceIterIsBegin - sequenceIterIsBegin , - - --- ** sequenceIterIsEnd - sequenceIterIsEnd , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype SequenceIter = SequenceIter (ForeignPtr SequenceIter) -noSequenceIter :: Maybe SequenceIter -noSequenceIter = Nothing - --- method SequenceIter::compare --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "b", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_sequence_iter_compare" g_sequence_iter_compare :: - Ptr SequenceIter -> -- _obj : TInterface "GLib" "SequenceIter" - Ptr SequenceIter -> -- b : TInterface "GLib" "SequenceIter" - IO Int32 - - -sequenceIterCompare :: - (MonadIO m) => - SequenceIter -> -- _obj - SequenceIter -> -- b - m Int32 -sequenceIterCompare _obj b = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let b' = unsafeManagedPtrGetPtr b - result <- g_sequence_iter_compare _obj' b' - touchManagedPtr _obj - touchManagedPtr b - return result - --- method SequenceIter::get_position --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_sequence_iter_get_position" g_sequence_iter_get_position :: - Ptr SequenceIter -> -- _obj : TInterface "GLib" "SequenceIter" - IO Int32 - - -sequenceIterGetPosition :: - (MonadIO m) => - SequenceIter -> -- _obj - m Int32 -sequenceIterGetPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_sequence_iter_get_position _obj' - touchManagedPtr _obj - return result - --- method SequenceIter::is_begin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_sequence_iter_is_begin" g_sequence_iter_is_begin :: - Ptr SequenceIter -> -- _obj : TInterface "GLib" "SequenceIter" - IO CInt - - -sequenceIterIsBegin :: - (MonadIO m) => - SequenceIter -> -- _obj - m Bool -sequenceIterIsBegin _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_sequence_iter_is_begin _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method SequenceIter::is_end --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_sequence_iter_is_end" g_sequence_iter_is_end :: - Ptr SequenceIter -> -- _obj : TInterface "GLib" "SequenceIter" - IO CInt - - -sequenceIterIsEnd :: - (MonadIO m) => - SequenceIter -> -- _obj - m Bool -sequenceIterIsEnd _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_sequence_iter_is_end _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - - diff --git a/GI/GLib/Structs/SequenceIter.hs-boot b/GI/GLib/Structs/SequenceIter.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/SequenceIter.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.SequenceIter 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 - -newtype SequenceIter = SequenceIter (ForeignPtr SequenceIter) diff --git a/GI/GLib/Structs/Source.hs b/GI/GLib/Structs/Source.hs deleted file mode 100644 --- a/GI/GLib/Structs/Source.hs +++ /dev/null @@ -1,906 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The `GSource` struct is an opaque data type -representing an event source. --} - -module GI.GLib.Structs.Source - ( - --- * Exported types - Source(..) , - noSource , - - - -- * Methods --- ** sourceAddChildSource - sourceAddChildSource , - - --- ** sourceAddPoll - sourceAddPoll , - - --- ** sourceAttach - sourceAttach , - - --- ** sourceDestroy - sourceDestroy , - - --- ** sourceGetCanRecurse - sourceGetCanRecurse , - - --- ** sourceGetContext - sourceGetContext , - - --- ** sourceGetCurrentTime - sourceGetCurrentTime , - - --- ** sourceGetId - sourceGetId , - - --- ** sourceGetName - sourceGetName , - - --- ** sourceGetPriority - sourceGetPriority , - - --- ** sourceGetReadyTime - sourceGetReadyTime , - - --- ** sourceGetTime - sourceGetTime , - - --- ** sourceIsDestroyed - sourceIsDestroyed , - - --- ** sourceModifyUnixFd - sourceModifyUnixFd , - - --- ** sourceNew - sourceNew , - - --- ** sourceQueryUnixFd - sourceQueryUnixFd , - - --- ** sourceRef - sourceRef , - - --- ** sourceRemoveChildSource - sourceRemoveChildSource , - - --- ** sourceRemovePoll - sourceRemovePoll , - - --- ** sourceRemoveUnixFd - sourceRemoveUnixFd , - - --- ** sourceSetCallback - sourceSetCallback , - - --- ** sourceSetCallbackIndirect - sourceSetCallbackIndirect , - - --- ** sourceSetCanRecurse - sourceSetCanRecurse , - - --- ** sourceSetFuncs - sourceSetFuncs , - - --- ** sourceSetName - sourceSetName , - - --- ** sourceSetPriority - sourceSetPriority , - - --- ** sourceSetReadyTime - sourceSetReadyTime , - - --- ** sourceUnref - sourceUnref , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Source = Source (ForeignPtr Source) -foreign import ccall "g_source_get_type" c_g_source_get_type :: - IO GType - -instance BoxedObject Source where - boxedType _ = c_g_source_get_type - -noSource :: Maybe Source -noSource = Nothing - --- method Source::new --- method type : Constructor --- Args : [Arg {argName = "source_funcs", argType = TInterface "GLib" "SourceFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "struct_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "source_funcs", argType = TInterface "GLib" "SourceFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "struct_size", argType = TBasicType TUInt32, 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_source_new" g_source_new :: - Ptr SourceFuncs -> -- source_funcs : TInterface "GLib" "SourceFuncs" - Word32 -> -- struct_size : TBasicType TUInt32 - IO (Ptr Source) - - -sourceNew :: - (MonadIO m) => - SourceFuncs -> -- source_funcs - Word32 -> -- struct_size - m Source -sourceNew source_funcs struct_size = liftIO $ do - let source_funcs' = unsafeManagedPtrGetPtr source_funcs - result <- g_source_new source_funcs' struct_size - checkUnexpectedReturnNULL "g_source_new" result - result' <- (wrapBoxed Source) result - touchManagedPtr source_funcs - return result' - --- method Source::add_child_source --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_source", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_source", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_source_add_child_source" g_source_add_child_source :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - Ptr Source -> -- child_source : TInterface "GLib" "Source" - IO () - - -sourceAddChildSource :: - (MonadIO m) => - Source -> -- _obj - Source -> -- child_source - m () -sourceAddChildSource _obj child_source = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let child_source' = unsafeManagedPtrGetPtr child_source - g_source_add_child_source _obj' child_source' - touchManagedPtr _obj - touchManagedPtr child_source - return () - --- method Source::add_poll --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_source_add_poll" g_source_add_poll :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - Ptr PollFD -> -- fd : TInterface "GLib" "PollFD" - IO () - - -sourceAddPoll :: - (MonadIO m) => - Source -> -- _obj - PollFD -> -- fd - m () -sourceAddPoll _obj fd = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let fd' = unsafeManagedPtrGetPtr fd - g_source_add_poll _obj' fd' - touchManagedPtr _obj - touchManagedPtr fd - return () - --- method Source::attach --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_source_attach" g_source_attach :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - Ptr MainContext -> -- context : TInterface "GLib" "MainContext" - IO Word32 - - -sourceAttach :: - (MonadIO m) => - Source -> -- _obj - Maybe (MainContext) -> -- context - m Word32 -sourceAttach _obj context = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeContext <- case context of - Nothing -> return nullPtr - Just jContext -> do - let jContext' = unsafeManagedPtrGetPtr jContext - return jContext' - result <- g_source_attach _obj' maybeContext - touchManagedPtr _obj - whenJust context touchManagedPtr - return result - --- method Source::destroy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_source_destroy" g_source_destroy :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - IO () - - -sourceDestroy :: - (MonadIO m) => - Source -> -- _obj - m () -sourceDestroy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_source_destroy _obj' - touchManagedPtr _obj - return () - --- method Source::get_can_recurse --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_source_get_can_recurse" g_source_get_can_recurse :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - IO CInt - - -sourceGetCanRecurse :: - (MonadIO m) => - Source -> -- _obj - m Bool -sourceGetCanRecurse _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_source_get_can_recurse _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Source::get_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "MainContext" --- throws : False --- Skip return : False - -foreign import ccall "g_source_get_context" g_source_get_context :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - IO (Ptr MainContext) - - -sourceGetContext :: - (MonadIO m) => - Source -> -- _obj - m MainContext -sourceGetContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_source_get_context _obj' - checkUnexpectedReturnNULL "g_source_get_context" result - result' <- (newBoxed MainContext) result - touchManagedPtr _obj - return result' - --- method Source::get_current_time --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeval", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timeval", 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_source_get_current_time" g_source_get_current_time :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - Ptr TimeVal -> -- timeval : TInterface "GLib" "TimeVal" - IO () - -{-# DEPRECATED sourceGetCurrentTime ["(Since version 2.28)","use g_source_get_time() instead"]#-} -sourceGetCurrentTime :: - (MonadIO m) => - Source -> -- _obj - TimeVal -> -- timeval - m () -sourceGetCurrentTime _obj timeval = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let timeval' = unsafeManagedPtrGetPtr timeval - g_source_get_current_time _obj' timeval' - touchManagedPtr _obj - touchManagedPtr timeval - return () - --- method Source::get_id --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_source_get_id" g_source_get_id :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - IO Word32 - - -sourceGetId :: - (MonadIO m) => - Source -> -- _obj - m Word32 -sourceGetId _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_source_get_id _obj' - touchManagedPtr _obj - return result - --- method Source::get_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_source_get_name" g_source_get_name :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - IO CString - - -sourceGetName :: - (MonadIO m) => - Source -> -- _obj - m T.Text -sourceGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_source_get_name _obj' - checkUnexpectedReturnNULL "g_source_get_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Source::get_priority --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_source_get_priority" g_source_get_priority :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - IO Int32 - - -sourceGetPriority :: - (MonadIO m) => - Source -> -- _obj - m Int32 -sourceGetPriority _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_source_get_priority _obj' - touchManagedPtr _obj - return result - --- method Source::get_ready_time --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt64 --- throws : False --- Skip return : False - -foreign import ccall "g_source_get_ready_time" g_source_get_ready_time :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - IO Int64 - - -sourceGetReadyTime :: - (MonadIO m) => - Source -> -- _obj - m Int64 -sourceGetReadyTime _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_source_get_ready_time _obj' - touchManagedPtr _obj - return result - --- method Source::get_time --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt64 --- throws : False --- Skip return : False - -foreign import ccall "g_source_get_time" g_source_get_time :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - IO Int64 - - -sourceGetTime :: - (MonadIO m) => - Source -> -- _obj - m Int64 -sourceGetTime _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_source_get_time _obj' - touchManagedPtr _obj - return result - --- method Source::is_destroyed --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_source_is_destroyed" g_source_is_destroyed :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - IO CInt - - -sourceIsDestroyed :: - (MonadIO m) => - Source -> -- _obj - m Bool -sourceIsDestroyed _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_source_is_destroyed _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Source::modify_unix_fd --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_events", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_events", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_source_modify_unix_fd" g_source_modify_unix_fd :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - Ptr () -> -- tag : TBasicType TVoid - CUInt -> -- new_events : TInterface "GLib" "IOCondition" - IO () - - -sourceModifyUnixFd :: - (MonadIO m) => - Source -> -- _obj - Ptr () -> -- tag - [IOCondition] -> -- new_events - m () -sourceModifyUnixFd _obj tag new_events = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let new_events' = gflagsToWord new_events - g_source_modify_unix_fd _obj' tag new_events' - touchManagedPtr _obj - return () - --- method Source::query_unix_fd --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "IOCondition" --- throws : False --- Skip return : False - -foreign import ccall "g_source_query_unix_fd" g_source_query_unix_fd :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - Ptr () -> -- tag : TBasicType TVoid - IO CUInt - - -sourceQueryUnixFd :: - (MonadIO m) => - Source -> -- _obj - Ptr () -> -- tag - m [IOCondition] -sourceQueryUnixFd _obj tag = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_source_query_unix_fd _obj' tag - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - --- method Source::ref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", 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_source_ref" g_source_ref :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - IO (Ptr Source) - - -sourceRef :: - (MonadIO m) => - Source -> -- _obj - m Source -sourceRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_source_ref _obj' - checkUnexpectedReturnNULL "g_source_ref" result - result' <- (wrapBoxed Source) result - touchManagedPtr _obj - return result' - --- method Source::remove_child_source --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_source", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_source", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_source_remove_child_source" g_source_remove_child_source :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - Ptr Source -> -- child_source : TInterface "GLib" "Source" - IO () - - -sourceRemoveChildSource :: - (MonadIO m) => - Source -> -- _obj - Source -> -- child_source - m () -sourceRemoveChildSource _obj child_source = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let child_source' = unsafeManagedPtrGetPtr child_source - g_source_remove_child_source _obj' child_source' - touchManagedPtr _obj - touchManagedPtr child_source - return () - --- method Source::remove_poll --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_source_remove_poll" g_source_remove_poll :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - Ptr PollFD -> -- fd : TInterface "GLib" "PollFD" - IO () - - -sourceRemovePoll :: - (MonadIO m) => - Source -> -- _obj - PollFD -> -- fd - m () -sourceRemovePoll _obj fd = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let fd' = unsafeManagedPtrGetPtr fd - g_source_remove_poll _obj' fd' - touchManagedPtr _obj - touchManagedPtr fd - return () - --- method Source::remove_unix_fd --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "tag", 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_source_remove_unix_fd" g_source_remove_unix_fd :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - Ptr () -> -- tag : TBasicType TVoid - IO () - - -sourceRemoveUnixFd :: - (MonadIO m) => - Source -> -- _obj - Ptr () -> -- tag - m () -sourceRemoveUnixFd _obj tag = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_source_remove_unix_fd _obj' tag - touchManagedPtr _obj - return () - --- method Source::set_callback --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", 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 = "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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", 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 - -foreign import ccall "g_source_set_callback" g_source_set_callback :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - FunPtr SourceFuncC -> -- func : TInterface "GLib" "SourceFunc" - Ptr () -> -- data : TBasicType TVoid - FunPtr DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO () - - -sourceSetCallback :: - (MonadIO m) => - Source -> -- _obj - SourceFunc -> -- func - m () -sourceSetCallback _obj func = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - func' <- mkSourceFunc (sourceFuncWrapper Nothing func) - let data_ = castFunPtrToPtr func' - let notify = safeFreeFunPtrPtr - g_source_set_callback _obj' func' data_ notify - touchManagedPtr _obj - return () - --- method Source::set_callback_indirect --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, 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 = "callback_funcs", argType = TInterface "GLib" "SourceCallbackFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, 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 = "callback_funcs", argType = TInterface "GLib" "SourceCallbackFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_source_set_callback_indirect" g_source_set_callback_indirect :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - Ptr () -> -- callback_data : TBasicType TVoid - Ptr SourceCallbackFuncs -> -- callback_funcs : TInterface "GLib" "SourceCallbackFuncs" - IO () - - -sourceSetCallbackIndirect :: - (MonadIO m) => - Source -> -- _obj - Ptr () -> -- callback_data - SourceCallbackFuncs -> -- callback_funcs - m () -sourceSetCallbackIndirect _obj callback_data callback_funcs = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let callback_funcs' = unsafeManagedPtrGetPtr callback_funcs - g_source_set_callback_indirect _obj' callback_data callback_funcs' - touchManagedPtr _obj - touchManagedPtr callback_funcs - return () - --- method Source::set_can_recurse --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_recurse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "can_recurse", 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_source_set_can_recurse" g_source_set_can_recurse :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - CInt -> -- can_recurse : TBasicType TBoolean - IO () - - -sourceSetCanRecurse :: - (MonadIO m) => - Source -> -- _obj - Bool -> -- can_recurse - m () -sourceSetCanRecurse _obj can_recurse = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let can_recurse' = (fromIntegral . fromEnum) can_recurse - g_source_set_can_recurse _obj' can_recurse' - touchManagedPtr _obj - return () - --- method Source::set_funcs --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "funcs", argType = TInterface "GLib" "SourceFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "funcs", argType = TInterface "GLib" "SourceFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_source_set_funcs" g_source_set_funcs :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - Ptr SourceFuncs -> -- funcs : TInterface "GLib" "SourceFuncs" - IO () - - -sourceSetFuncs :: - (MonadIO m) => - Source -> -- _obj - SourceFuncs -> -- funcs - m () -sourceSetFuncs _obj funcs = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let funcs' = unsafeManagedPtrGetPtr funcs - g_source_set_funcs _obj' funcs' - touchManagedPtr _obj - touchManagedPtr funcs - return () - --- method Source::set_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", 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 "GLib" "Source", 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_source_set_name" g_source_set_name :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - CString -> -- name : TBasicType TUTF8 - IO () - - -sourceSetName :: - (MonadIO m) => - Source -> -- _obj - T.Text -> -- name - m () -sourceSetName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - g_source_set_name _obj' name' - touchManagedPtr _obj - freeMem name' - return () - --- method Source::set_priority --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", 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 = "_obj", argType = TInterface "GLib" "Source", 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 - -foreign import ccall "g_source_set_priority" g_source_set_priority :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - Int32 -> -- priority : TBasicType TInt32 - IO () - - -sourceSetPriority :: - (MonadIO m) => - Source -> -- _obj - Int32 -> -- priority - m () -sourceSetPriority _obj priority = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_source_set_priority _obj' priority - touchManagedPtr _obj - return () - --- method Source::set_ready_time --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ready_time", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ready_time", 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_source_set_ready_time" g_source_set_ready_time :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - Int64 -> -- ready_time : TBasicType TInt64 - IO () - - -sourceSetReadyTime :: - (MonadIO m) => - Source -> -- _obj - Int64 -> -- ready_time - m () -sourceSetReadyTime _obj ready_time = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_source_set_ready_time _obj' ready_time - touchManagedPtr _obj - return () - --- method Source::unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_source_unref" g_source_unref :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - IO () - - -sourceUnref :: - (MonadIO m) => - Source -> -- _obj - m () -sourceUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_source_unref _obj' - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Structs/Source.hs-boot b/GI/GLib/Structs/Source.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/Source.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.GLib.Structs.Source 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 - -newtype Source = Source (ForeignPtr Source) -instance BoxedObject Source where diff --git a/GI/GLib/Structs/SourceCallbackFuncs.hs b/GI/GLib/Structs/SourceCallbackFuncs.hs deleted file mode 100644 --- a/GI/GLib/Structs/SourceCallbackFuncs.hs +++ /dev/null @@ -1,39 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The `GSourceCallbackFuncs` struct contains -functions for managing callback objects. --} - -module GI.GLib.Structs.SourceCallbackFuncs - ( - --- * Exported types - SourceCallbackFuncs(..) , - noSourceCallbackFuncs , - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype SourceCallbackFuncs = SourceCallbackFuncs (ForeignPtr SourceCallbackFuncs) -noSourceCallbackFuncs :: Maybe SourceCallbackFuncs -noSourceCallbackFuncs = Nothing - --- XXX Skipped getter for "SourceCallbackFuncs:ref" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- XXX Skipped getter for "SourceCallbackFuncs:unref" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - - diff --git a/GI/GLib/Structs/SourceCallbackFuncs.hs-boot b/GI/GLib/Structs/SourceCallbackFuncs.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/SourceCallbackFuncs.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.SourceCallbackFuncs 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 - -newtype SourceCallbackFuncs = SourceCallbackFuncs (ForeignPtr SourceCallbackFuncs) diff --git a/GI/GLib/Structs/SourceFuncs.hs b/GI/GLib/Structs/SourceFuncs.hs deleted file mode 100644 --- a/GI/GLib/Structs/SourceFuncs.hs +++ /dev/null @@ -1,59 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The `GSourceFuncs` struct contains a table of -functions used to handle event sources in a generic manner. - -For idle sources, the prepare and check functions always return %TRUE -to indicate that the source is always ready to be processed. The prepare -function also returns a timeout value of 0 to ensure that the poll() call -doesn't block (since that would be time wasted which could have been spent -running the idle function). - -For timeout sources, the prepare and check functions both return %TRUE -if the timeout interval has expired. The prepare function also returns -a timeout value to ensure that the poll() call doesn't block too long -and miss the next timeout. - -For file descriptor sources, the prepare function typically returns %FALSE, -since it must wait until poll() has been called before it knows whether -any events need to be processed. It sets the returned timeout to -1 to -indicate that it doesn't mind how long the poll() call blocks. In the -check function, it tests the results of the poll() call to see if the -required condition has been met, and returns %TRUE if so. --} - -module GI.GLib.Structs.SourceFuncs - ( - --- * Exported types - SourceFuncs(..) , - noSourceFuncs , - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype SourceFuncs = SourceFuncs (ForeignPtr SourceFuncs) -noSourceFuncs :: Maybe SourceFuncs -noSourceFuncs = Nothing - --- XXX Skipped getter for "SourceFuncs:prepare" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- XXX Skipped getter for "SourceFuncs:check" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - --- XXX Skipped getter for "SourceFuncs:finalize" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - - diff --git a/GI/GLib/Structs/SourceFuncs.hs-boot b/GI/GLib/Structs/SourceFuncs.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/SourceFuncs.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.SourceFuncs 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 - -newtype SourceFuncs = SourceFuncs (ForeignPtr SourceFuncs) diff --git a/GI/GLib/Structs/StatBuf.hs b/GI/GLib/Structs/StatBuf.hs deleted file mode 100644 --- a/GI/GLib/Structs/StatBuf.hs +++ /dev/null @@ -1,37 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A type corresponding to the appropriate struct type for the stat() -system call, depending on the platform and/or compiler being used. - -See g_stat() for more information. --} - -module GI.GLib.Structs.StatBuf - ( - --- * Exported types - StatBuf(..) , - noStatBuf , - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype StatBuf = StatBuf (ForeignPtr StatBuf) -noStatBuf :: Maybe StatBuf -noStatBuf = Nothing - - diff --git a/GI/GLib/Structs/StatBuf.hs-boot b/GI/GLib/Structs/StatBuf.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/StatBuf.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.StatBuf 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 - -newtype StatBuf = StatBuf (ForeignPtr StatBuf) diff --git a/GI/GLib/Structs/String.hs b/GI/GLib/Structs/String.hs deleted file mode 100644 --- a/GI/GLib/Structs/String.hs +++ /dev/null @@ -1,979 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The GString struct contains the public fields of a GString. --} - -module GI.GLib.Structs.String - ( - --- * Exported types - String(..) , - noString , - - - -- * Methods --- ** stringAppend - stringAppend , - - --- ** stringAppendC - stringAppendC , - - --- ** stringAppendLen - stringAppendLen , - - --- ** stringAppendUnichar - stringAppendUnichar , - - --- ** stringAppendUriEscaped - stringAppendUriEscaped , - - --- ** stringAsciiDown - stringAsciiDown , - - --- ** stringAsciiUp - stringAsciiUp , - - --- ** stringAssign - stringAssign , - - --- ** stringDown - stringDown , - - --- ** stringEqual - stringEqual , - - --- ** stringErase - stringErase , - - --- ** stringFree - stringFree , - - --- ** stringFreeToBytes - stringFreeToBytes , - - --- ** stringHash - stringHash , - - --- ** stringInsert - stringInsert , - - --- ** stringInsertC - stringInsertC , - - --- ** stringInsertLen - stringInsertLen , - - --- ** stringInsertUnichar - stringInsertUnichar , - - --- ** stringOverwrite - stringOverwrite , - - --- ** stringOverwriteLen - stringOverwriteLen , - - --- ** stringPrepend - stringPrepend , - - --- ** stringPrependC - stringPrependC , - - --- ** stringPrependLen - stringPrependLen , - - --- ** stringPrependUnichar - stringPrependUnichar , - - --- ** stringSetSize - stringSetSize , - - --- ** stringTruncate - stringTruncate , - - --- ** stringUp - stringUp , - - - - - -- * Properties --- ** AllocatedLen - stringReadAllocatedLen , - - --- ** Len - stringReadLen , - - --- ** Str - stringReadStr , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype String = String (ForeignPtr String) -foreign import ccall "g_gstring_get_type" c_g_gstring_get_type :: - IO GType - -instance BoxedObject String where - boxedType _ = c_g_gstring_get_type - -noString :: Maybe String -noString = Nothing - -stringReadStr :: String -> IO T.Text -stringReadStr s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' - -stringReadLen :: String -> IO Word64 -stringReadLen s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word64 - return val - -stringReadAllocatedLen :: String -> IO Word64 -stringReadAllocatedLen s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Word64 - return val - --- method String::append --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "String" --- throws : False --- Skip return : False - -foreign import ccall "g_string_append" g_string_append :: - Ptr String -> -- _obj : TInterface "GLib" "String" - CString -> -- val : TBasicType TUTF8 - IO (Ptr String) - - -stringAppend :: - (MonadIO m) => - String -> -- _obj - T.Text -> -- val - m String -stringAppend _obj val = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - val' <- textToCString val - result <- g_string_append _obj' val' - checkUnexpectedReturnNULL "g_string_append" result - result' <- (wrapBoxed String) result - touchManagedPtr _obj - freeMem val' - return result' - --- method String::append_c --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "String" --- throws : False --- Skip return : False - -foreign import ccall "g_string_append_c" g_string_append_c :: - Ptr String -> -- _obj : TInterface "GLib" "String" - Int8 -> -- c : TBasicType TInt8 - IO (Ptr String) - - -stringAppendC :: - (MonadIO m) => - String -> -- _obj - Int8 -> -- c - m String -stringAppendC _obj c = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_string_append_c _obj' c - checkUnexpectedReturnNULL "g_string_append_c" result - result' <- (wrapBoxed String) result - touchManagedPtr _obj - return result' - --- method String::append_len --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "String" --- throws : False --- Skip return : False - -foreign import ccall "g_string_append_len" g_string_append_len :: - Ptr String -> -- _obj : TInterface "GLib" "String" - CString -> -- val : TBasicType TUTF8 - Int64 -> -- len : TBasicType TInt64 - IO (Ptr String) - - -stringAppendLen :: - (MonadIO m) => - String -> -- _obj - T.Text -> -- val - Int64 -> -- len - m String -stringAppendLen _obj val len = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - val' <- textToCString val - result <- g_string_append_len _obj' val' len - checkUnexpectedReturnNULL "g_string_append_len" result - result' <- (wrapBoxed String) result - touchManagedPtr _obj - freeMem val' - return result' - --- method String::append_unichar --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "String" --- throws : False --- Skip return : False - -foreign import ccall "g_string_append_unichar" g_string_append_unichar :: - Ptr String -> -- _obj : TInterface "GLib" "String" - CInt -> -- wc : TBasicType TUniChar - IO (Ptr String) - - -stringAppendUnichar :: - (MonadIO m) => - String -> -- _obj - Char -> -- wc - m String -stringAppendUnichar _obj wc = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let wc' = (fromIntegral . ord) wc - result <- g_string_append_unichar _obj' wc' - checkUnexpectedReturnNULL "g_string_append_unichar" result - result' <- (wrapBoxed String) result - touchManagedPtr _obj - return result' - --- method String::append_uri_escaped --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unescaped", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reserved_chars_allowed", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allow_utf8", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unescaped", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reserved_chars_allowed", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allow_utf8", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "String" --- throws : False --- Skip return : False - -foreign import ccall "g_string_append_uri_escaped" g_string_append_uri_escaped :: - Ptr String -> -- _obj : TInterface "GLib" "String" - CString -> -- unescaped : TBasicType TUTF8 - CString -> -- reserved_chars_allowed : TBasicType TUTF8 - CInt -> -- allow_utf8 : TBasicType TBoolean - IO (Ptr String) - - -stringAppendUriEscaped :: - (MonadIO m) => - String -> -- _obj - T.Text -> -- unescaped - T.Text -> -- reserved_chars_allowed - Bool -> -- allow_utf8 - m String -stringAppendUriEscaped _obj unescaped reserved_chars_allowed allow_utf8 = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - unescaped' <- textToCString unescaped - reserved_chars_allowed' <- textToCString reserved_chars_allowed - let allow_utf8' = (fromIntegral . fromEnum) allow_utf8 - result <- g_string_append_uri_escaped _obj' unescaped' reserved_chars_allowed' allow_utf8' - checkUnexpectedReturnNULL "g_string_append_uri_escaped" result - result' <- (wrapBoxed String) result - touchManagedPtr _obj - freeMem unescaped' - freeMem reserved_chars_allowed' - return result' - --- method String::ascii_down --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "String" --- throws : False --- Skip return : False - -foreign import ccall "g_string_ascii_down" g_string_ascii_down :: - Ptr String -> -- _obj : TInterface "GLib" "String" - IO (Ptr String) - - -stringAsciiDown :: - (MonadIO m) => - String -> -- _obj - m String -stringAsciiDown _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_string_ascii_down _obj' - checkUnexpectedReturnNULL "g_string_ascii_down" result - result' <- (wrapBoxed String) result - touchManagedPtr _obj - return result' - --- method String::ascii_up --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "String" --- throws : False --- Skip return : False - -foreign import ccall "g_string_ascii_up" g_string_ascii_up :: - Ptr String -> -- _obj : TInterface "GLib" "String" - IO (Ptr String) - - -stringAsciiUp :: - (MonadIO m) => - String -> -- _obj - m String -stringAsciiUp _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_string_ascii_up _obj' - checkUnexpectedReturnNULL "g_string_ascii_up" result - result' <- (wrapBoxed String) result - touchManagedPtr _obj - return result' - --- method String::assign --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rval", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rval", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "String" --- throws : False --- Skip return : False - -foreign import ccall "g_string_assign" g_string_assign :: - Ptr String -> -- _obj : TInterface "GLib" "String" - CString -> -- rval : TBasicType TUTF8 - IO (Ptr String) - - -stringAssign :: - (MonadIO m) => - String -> -- _obj - T.Text -> -- rval - m String -stringAssign _obj rval = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - rval' <- textToCString rval - result <- g_string_assign _obj' rval' - checkUnexpectedReturnNULL "g_string_assign" result - result' <- (wrapBoxed String) result - touchManagedPtr _obj - freeMem rval' - return result' - --- method String::down --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "String" --- throws : False --- Skip return : False - -foreign import ccall "g_string_down" g_string_down :: - Ptr String -> -- _obj : TInterface "GLib" "String" - IO (Ptr String) - -{-# DEPRECATED stringDown ["(Since version 2.2)","This function uses the locale-specific"," tolower() function, which is almost never the right thing."," Use g_string_ascii_down() or g_utf8_strdown() instead."]#-} -stringDown :: - (MonadIO m) => - String -> -- _obj - m String -stringDown _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_string_down _obj' - checkUnexpectedReturnNULL "g_string_down" result - result' <- (wrapBoxed String) result - touchManagedPtr _obj - return result' - --- method String::equal --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_string_equal" g_string_equal :: - Ptr String -> -- _obj : TInterface "GLib" "String" - Ptr String -> -- v2 : TInterface "GLib" "String" - IO CInt - - -stringEqual :: - (MonadIO m) => - String -> -- _obj - String -> -- v2 - m Bool -stringEqual _obj v2 = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let v2' = unsafeManagedPtrGetPtr v2 - result <- g_string_equal _obj' v2' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr v2 - return result' - --- method String::erase --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "String" --- throws : False --- Skip return : False - -foreign import ccall "g_string_erase" g_string_erase :: - Ptr String -> -- _obj : TInterface "GLib" "String" - Int64 -> -- pos : TBasicType TInt64 - Int64 -> -- len : TBasicType TInt64 - IO (Ptr String) - - -stringErase :: - (MonadIO m) => - String -> -- _obj - Int64 -> -- pos - Int64 -> -- len - m String -stringErase _obj pos len = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_string_erase _obj' pos len - checkUnexpectedReturnNULL "g_string_erase" result - result' <- (wrapBoxed String) result - touchManagedPtr _obj - return result' - --- method String::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "free_segment", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "free_segment", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_string_free" g_string_free :: - Ptr String -> -- _obj : TInterface "GLib" "String" - CInt -> -- free_segment : TBasicType TBoolean - IO CString - - -stringFree :: - (MonadIO m) => - String -> -- _obj - Bool -> -- free_segment - m T.Text -stringFree _obj free_segment = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let free_segment' = (fromIntegral . fromEnum) free_segment - result <- g_string_free _obj' free_segment' - checkUnexpectedReturnNULL "g_string_free" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method String::free_to_bytes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "Bytes" --- throws : False --- Skip return : False - -foreign import ccall "g_string_free_to_bytes" g_string_free_to_bytes :: - Ptr String -> -- _obj : TInterface "GLib" "String" - IO (Ptr Bytes) - - -stringFreeToBytes :: - (MonadIO m) => - String -> -- _obj - m Bytes -stringFreeToBytes _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_string_free_to_bytes _obj' - checkUnexpectedReturnNULL "g_string_free_to_bytes" result - result' <- (wrapBoxed Bytes) result - touchManagedPtr _obj - return result' - --- method String::hash --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_string_hash" g_string_hash :: - Ptr String -> -- _obj : TInterface "GLib" "String" - IO Word32 - - -stringHash :: - (MonadIO m) => - String -> -- _obj - m Word32 -stringHash _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_string_hash _obj' - touchManagedPtr _obj - return result - --- method String::insert --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "String" --- throws : False --- Skip return : False - -foreign import ccall "g_string_insert" g_string_insert :: - Ptr String -> -- _obj : TInterface "GLib" "String" - Int64 -> -- pos : TBasicType TInt64 - CString -> -- val : TBasicType TUTF8 - IO (Ptr String) - - -stringInsert :: - (MonadIO m) => - String -> -- _obj - Int64 -> -- pos - T.Text -> -- val - m String -stringInsert _obj pos val = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - val' <- textToCString val - result <- g_string_insert _obj' pos val' - checkUnexpectedReturnNULL "g_string_insert" result - result' <- (wrapBoxed String) result - touchManagedPtr _obj - freeMem val' - return result' - --- method String::insert_c --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "String" --- throws : False --- Skip return : False - -foreign import ccall "g_string_insert_c" g_string_insert_c :: - Ptr String -> -- _obj : TInterface "GLib" "String" - Int64 -> -- pos : TBasicType TInt64 - Int8 -> -- c : TBasicType TInt8 - IO (Ptr String) - - -stringInsertC :: - (MonadIO m) => - String -> -- _obj - Int64 -> -- pos - Int8 -> -- c - m String -stringInsertC _obj pos c = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_string_insert_c _obj' pos c - checkUnexpectedReturnNULL "g_string_insert_c" result - result' <- (wrapBoxed String) result - touchManagedPtr _obj - return result' - --- method String::insert_len --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "String" --- throws : False --- Skip return : False - -foreign import ccall "g_string_insert_len" g_string_insert_len :: - Ptr String -> -- _obj : TInterface "GLib" "String" - Int64 -> -- pos : TBasicType TInt64 - CString -> -- val : TBasicType TUTF8 - Int64 -> -- len : TBasicType TInt64 - IO (Ptr String) - - -stringInsertLen :: - (MonadIO m) => - String -> -- _obj - Int64 -> -- pos - T.Text -> -- val - Int64 -> -- len - m String -stringInsertLen _obj pos val len = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - val' <- textToCString val - result <- g_string_insert_len _obj' pos val' len - checkUnexpectedReturnNULL "g_string_insert_len" result - result' <- (wrapBoxed String) result - touchManagedPtr _obj - freeMem val' - return result' - --- method String::insert_unichar --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "String" --- throws : False --- Skip return : False - -foreign import ccall "g_string_insert_unichar" g_string_insert_unichar :: - Ptr String -> -- _obj : TInterface "GLib" "String" - Int64 -> -- pos : TBasicType TInt64 - CInt -> -- wc : TBasicType TUniChar - IO (Ptr String) - - -stringInsertUnichar :: - (MonadIO m) => - String -> -- _obj - Int64 -> -- pos - Char -> -- wc - m String -stringInsertUnichar _obj pos wc = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let wc' = (fromIntegral . ord) wc - result <- g_string_insert_unichar _obj' pos wc' - checkUnexpectedReturnNULL "g_string_insert_unichar" result - result' <- (wrapBoxed String) result - touchManagedPtr _obj - return result' - --- method String::overwrite --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "String" --- throws : False --- Skip return : False - -foreign import ccall "g_string_overwrite" g_string_overwrite :: - Ptr String -> -- _obj : TInterface "GLib" "String" - Word64 -> -- pos : TBasicType TUInt64 - CString -> -- val : TBasicType TUTF8 - IO (Ptr String) - - -stringOverwrite :: - (MonadIO m) => - String -> -- _obj - Word64 -> -- pos - T.Text -> -- val - m String -stringOverwrite _obj pos val = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - val' <- textToCString val - result <- g_string_overwrite _obj' pos val' - checkUnexpectedReturnNULL "g_string_overwrite" result - result' <- (wrapBoxed String) result - touchManagedPtr _obj - freeMem val' - return result' - --- method String::overwrite_len --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pos", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "String" --- throws : False --- Skip return : False - -foreign import ccall "g_string_overwrite_len" g_string_overwrite_len :: - Ptr String -> -- _obj : TInterface "GLib" "String" - Word64 -> -- pos : TBasicType TUInt64 - CString -> -- val : TBasicType TUTF8 - Int64 -> -- len : TBasicType TInt64 - IO (Ptr String) - - -stringOverwriteLen :: - (MonadIO m) => - String -> -- _obj - Word64 -> -- pos - T.Text -> -- val - Int64 -> -- len - m String -stringOverwriteLen _obj pos val len = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - val' <- textToCString val - result <- g_string_overwrite_len _obj' pos val' len - checkUnexpectedReturnNULL "g_string_overwrite_len" result - result' <- (wrapBoxed String) result - touchManagedPtr _obj - freeMem val' - return result' - --- method String::prepend --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "String" --- throws : False --- Skip return : False - -foreign import ccall "g_string_prepend" g_string_prepend :: - Ptr String -> -- _obj : TInterface "GLib" "String" - CString -> -- val : TBasicType TUTF8 - IO (Ptr String) - - -stringPrepend :: - (MonadIO m) => - String -> -- _obj - T.Text -> -- val - m String -stringPrepend _obj val = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - val' <- textToCString val - result <- g_string_prepend _obj' val' - checkUnexpectedReturnNULL "g_string_prepend" result - result' <- (wrapBoxed String) result - touchManagedPtr _obj - freeMem val' - return result' - --- method String::prepend_c --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "String" --- throws : False --- Skip return : False - -foreign import ccall "g_string_prepend_c" g_string_prepend_c :: - Ptr String -> -- _obj : TInterface "GLib" "String" - Int8 -> -- c : TBasicType TInt8 - IO (Ptr String) - - -stringPrependC :: - (MonadIO m) => - String -> -- _obj - Int8 -> -- c - m String -stringPrependC _obj c = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_string_prepend_c _obj' c - checkUnexpectedReturnNULL "g_string_prepend_c" result - result' <- (wrapBoxed String) result - touchManagedPtr _obj - return result' - --- method String::prepend_len --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "String" --- throws : False --- Skip return : False - -foreign import ccall "g_string_prepend_len" g_string_prepend_len :: - Ptr String -> -- _obj : TInterface "GLib" "String" - CString -> -- val : TBasicType TUTF8 - Int64 -> -- len : TBasicType TInt64 - IO (Ptr String) - - -stringPrependLen :: - (MonadIO m) => - String -> -- _obj - T.Text -> -- val - Int64 -> -- len - m String -stringPrependLen _obj val len = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - val' <- textToCString val - result <- g_string_prepend_len _obj' val' len - checkUnexpectedReturnNULL "g_string_prepend_len" result - result' <- (wrapBoxed String) result - touchManagedPtr _obj - freeMem val' - return result' - --- method String::prepend_unichar --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "String" --- throws : False --- Skip return : False - -foreign import ccall "g_string_prepend_unichar" g_string_prepend_unichar :: - Ptr String -> -- _obj : TInterface "GLib" "String" - CInt -> -- wc : TBasicType TUniChar - IO (Ptr String) - - -stringPrependUnichar :: - (MonadIO m) => - String -> -- _obj - Char -> -- wc - m String -stringPrependUnichar _obj wc = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let wc' = (fromIntegral . ord) wc - result <- g_string_prepend_unichar _obj' wc' - checkUnexpectedReturnNULL "g_string_prepend_unichar" result - result' <- (wrapBoxed String) result - touchManagedPtr _obj - return result' - --- method String::set_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", 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 "GLib" "String" --- throws : False --- Skip return : False - -foreign import ccall "g_string_set_size" g_string_set_size :: - Ptr String -> -- _obj : TInterface "GLib" "String" - Word64 -> -- len : TBasicType TUInt64 - IO (Ptr String) - - -stringSetSize :: - (MonadIO m) => - String -> -- _obj - Word64 -> -- len - m String -stringSetSize _obj len = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_string_set_size _obj' len - checkUnexpectedReturnNULL "g_string_set_size" result - result' <- (wrapBoxed String) result - touchManagedPtr _obj - return result' - --- method String::truncate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", 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 "GLib" "String" --- throws : False --- Skip return : False - -foreign import ccall "g_string_truncate" g_string_truncate :: - Ptr String -> -- _obj : TInterface "GLib" "String" - Word64 -> -- len : TBasicType TUInt64 - IO (Ptr String) - - -stringTruncate :: - (MonadIO m) => - String -> -- _obj - Word64 -> -- len - m String -stringTruncate _obj len = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_string_truncate _obj' len - checkUnexpectedReturnNULL "g_string_truncate" result - result' <- (wrapBoxed String) result - touchManagedPtr _obj - return result' - --- method String::up --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "String" --- throws : False --- Skip return : False - -foreign import ccall "g_string_up" g_string_up :: - Ptr String -> -- _obj : TInterface "GLib" "String" - IO (Ptr String) - -{-# DEPRECATED stringUp ["(Since version 2.2)","This function uses the locale-specific"," toupper() function, which is almost never the right thing."," Use g_string_ascii_up() or g_utf8_strup() instead."]#-} -stringUp :: - (MonadIO m) => - String -> -- _obj - m String -stringUp _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_string_up _obj' - checkUnexpectedReturnNULL "g_string_up" result - result' <- (wrapBoxed String) result - touchManagedPtr _obj - return result' - - diff --git a/GI/GLib/Structs/String.hs-boot b/GI/GLib/Structs/String.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/String.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.GLib.Structs.String 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 - -newtype String = String (ForeignPtr String) -instance BoxedObject String where diff --git a/GI/GLib/Structs/StringChunk.hs b/GI/GLib/Structs/StringChunk.hs deleted file mode 100644 --- a/GI/GLib/Structs/StringChunk.hs +++ /dev/null @@ -1,201 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -An opaque data structure representing String Chunks. -It should only be accessed by using the following functions. --} - -module GI.GLib.Structs.StringChunk - ( - --- * Exported types - StringChunk(..) , - noStringChunk , - - - -- * Methods --- ** stringChunkClear - stringChunkClear , - - --- ** stringChunkFree - stringChunkFree , - - --- ** stringChunkInsert - stringChunkInsert , - - --- ** stringChunkInsertConst - stringChunkInsertConst , - - --- ** stringChunkInsertLen - stringChunkInsertLen , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype StringChunk = StringChunk (ForeignPtr StringChunk) -noStringChunk :: Maybe StringChunk -noStringChunk = Nothing - --- method StringChunk::clear --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_string_chunk_clear" g_string_chunk_clear :: - Ptr StringChunk -> -- _obj : TInterface "GLib" "StringChunk" - IO () - - -stringChunkClear :: - (MonadIO m) => - StringChunk -> -- _obj - m () -stringChunkClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_string_chunk_clear _obj' - touchManagedPtr _obj - return () - --- method StringChunk::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_string_chunk_free" g_string_chunk_free :: - Ptr StringChunk -> -- _obj : TInterface "GLib" "StringChunk" - IO () - - -stringChunkFree :: - (MonadIO m) => - StringChunk -> -- _obj - m () -stringChunkFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_string_chunk_free _obj' - touchManagedPtr _obj - return () - --- method StringChunk::insert --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},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_string_chunk_insert" g_string_chunk_insert :: - Ptr StringChunk -> -- _obj : TInterface "GLib" "StringChunk" - CString -> -- string : TBasicType TUTF8 - IO CString - - -stringChunkInsert :: - (MonadIO m) => - StringChunk -> -- _obj - T.Text -> -- string - m T.Text -stringChunkInsert _obj string = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - string' <- textToCString string - result <- g_string_chunk_insert _obj' string' - checkUnexpectedReturnNULL "g_string_chunk_insert" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - freeMem string' - return result' - --- method StringChunk::insert_const --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},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_string_chunk_insert_const" g_string_chunk_insert_const :: - Ptr StringChunk -> -- _obj : TInterface "GLib" "StringChunk" - CString -> -- string : TBasicType TUTF8 - IO CString - - -stringChunkInsertConst :: - (MonadIO m) => - StringChunk -> -- _obj - T.Text -> -- string - m T.Text -stringChunkInsertConst _obj string = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - string' <- textToCString string - result <- g_string_chunk_insert_const _obj' string' - checkUnexpectedReturnNULL "g_string_chunk_insert_const" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - freeMem string' - return result' - --- method StringChunk::insert_len --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_string_chunk_insert_len" g_string_chunk_insert_len :: - Ptr StringChunk -> -- _obj : TInterface "GLib" "StringChunk" - CString -> -- string : TBasicType TUTF8 - Int64 -> -- len : TBasicType TInt64 - IO CString - - -stringChunkInsertLen :: - (MonadIO m) => - StringChunk -> -- _obj - T.Text -> -- string - Int64 -> -- len - m T.Text -stringChunkInsertLen _obj string len = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - string' <- textToCString string - result <- g_string_chunk_insert_len _obj' string' len - checkUnexpectedReturnNULL "g_string_chunk_insert_len" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - freeMem string' - return result' - - diff --git a/GI/GLib/Structs/StringChunk.hs-boot b/GI/GLib/Structs/StringChunk.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/StringChunk.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.StringChunk 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 - -newtype StringChunk = StringChunk (ForeignPtr StringChunk) diff --git a/GI/GLib/Structs/TestCase.hs b/GI/GLib/Structs/TestCase.hs deleted file mode 100644 --- a/GI/GLib/Structs/TestCase.hs +++ /dev/null @@ -1,34 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -An opaque structure representing a test case. --} - -module GI.GLib.Structs.TestCase - ( - --- * Exported types - TestCase(..) , - noTestCase , - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype TestCase = TestCase (ForeignPtr TestCase) -noTestCase :: Maybe TestCase -noTestCase = Nothing - - diff --git a/GI/GLib/Structs/TestCase.hs-boot b/GI/GLib/Structs/TestCase.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/TestCase.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.TestCase 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 - -newtype TestCase = TestCase (ForeignPtr TestCase) diff --git a/GI/GLib/Structs/TestConfig.hs b/GI/GLib/Structs/TestConfig.hs deleted file mode 100644 --- a/GI/GLib/Structs/TestConfig.hs +++ /dev/null @@ -1,95 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.GLib.Structs.TestConfig - ( - --- * Exported types - TestConfig(..) , - noTestConfig , - - - -- * Properties --- ** TestInitialized - testConfigReadTestInitialized , - - --- ** TestPerf - testConfigReadTestPerf , - - --- ** TestQuick - testConfigReadTestQuick , - - --- ** TestQuiet - testConfigReadTestQuiet , - - --- ** TestUndefined - testConfigReadTestUndefined , - - --- ** TestVerbose - testConfigReadTestVerbose , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype TestConfig = TestConfig (ForeignPtr TestConfig) -noTestConfig :: Maybe TestConfig -noTestConfig = Nothing - -testConfigReadTestInitialized :: TestConfig -> IO Bool -testConfigReadTestInitialized s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CInt - let val' = (/= 0) val - return val' - -testConfigReadTestQuick :: TestConfig -> IO Bool -testConfigReadTestQuick s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO CInt - let val' = (/= 0) val - return val' - -testConfigReadTestPerf :: TestConfig -> IO Bool -testConfigReadTestPerf s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CInt - let val' = (/= 0) val - return val' - -testConfigReadTestVerbose :: TestConfig -> IO Bool -testConfigReadTestVerbose s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO CInt - let val' = (/= 0) val - return val' - -testConfigReadTestQuiet :: TestConfig -> IO Bool -testConfigReadTestQuiet s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CInt - let val' = (/= 0) val - return val' - -testConfigReadTestUndefined :: TestConfig -> IO Bool -testConfigReadTestUndefined s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO CInt - let val' = (/= 0) val - return val' - - diff --git a/GI/GLib/Structs/TestConfig.hs-boot b/GI/GLib/Structs/TestConfig.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/TestConfig.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.TestConfig 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 - -newtype TestConfig = TestConfig (ForeignPtr TestConfig) diff --git a/GI/GLib/Structs/TestLogBuffer.hs b/GI/GLib/Structs/TestLogBuffer.hs deleted file mode 100644 --- a/GI/GLib/Structs/TestLogBuffer.hs +++ /dev/null @@ -1,95 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.GLib.Structs.TestLogBuffer - ( - --- * Exported types - TestLogBuffer(..) , - noTestLogBuffer , - - - -- * Methods --- ** testLogBufferFree - testLogBufferFree , - - --- ** testLogBufferPush - testLogBufferPush , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype TestLogBuffer = TestLogBuffer (ForeignPtr TestLogBuffer) -noTestLogBuffer :: Maybe TestLogBuffer -noTestLogBuffer = Nothing - --- method TestLogBuffer::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TestLogBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TestLogBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_test_log_buffer_free" g_test_log_buffer_free :: - Ptr TestLogBuffer -> -- _obj : TInterface "GLib" "TestLogBuffer" - IO () - - -testLogBufferFree :: - (MonadIO m) => - TestLogBuffer -> -- _obj - m () -testLogBufferFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_test_log_buffer_free _obj' - touchManagedPtr _obj - return () - --- method TestLogBuffer::push --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TestLogBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_bytes", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TestLogBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_bytes", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bytes", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_test_log_buffer_push" g_test_log_buffer_push :: - Ptr TestLogBuffer -> -- _obj : TInterface "GLib" "TestLogBuffer" - Word32 -> -- n_bytes : TBasicType TUInt32 - Word8 -> -- bytes : TBasicType TUInt8 - IO () - - -testLogBufferPush :: - (MonadIO m) => - TestLogBuffer -> -- _obj - Word32 -> -- n_bytes - Word8 -> -- bytes - m () -testLogBufferPush _obj n_bytes bytes = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_test_log_buffer_push _obj' n_bytes bytes - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Structs/TestLogBuffer.hs-boot b/GI/GLib/Structs/TestLogBuffer.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/TestLogBuffer.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.TestLogBuffer 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 - -newtype TestLogBuffer = TestLogBuffer (ForeignPtr TestLogBuffer) diff --git a/GI/GLib/Structs/TestLogMsg.hs b/GI/GLib/Structs/TestLogMsg.hs deleted file mode 100644 --- a/GI/GLib/Structs/TestLogMsg.hs +++ /dev/null @@ -1,113 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.GLib.Structs.TestLogMsg - ( - --- * Exported types - TestLogMsg(..) , - noTestLogMsg , - - - -- * Methods --- ** testLogMsgFree - testLogMsgFree , - - - - - -- * Properties --- ** LogType - testLogMsgReadLogType , - - --- ** NNums - testLogMsgReadNNums , - - --- ** NStrings - testLogMsgReadNStrings , - - --- ** Nums - testLogMsgReadNums , - - --- ** Strings - testLogMsgReadStrings , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype TestLogMsg = TestLogMsg (ForeignPtr TestLogMsg) -noTestLogMsg :: Maybe TestLogMsg -noTestLogMsg = Nothing - -testLogMsgReadLogType :: TestLogMsg -> IO TestLogType -testLogMsgReadLogType s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -testLogMsgReadNStrings :: TestLogMsg -> IO Word32 -testLogMsgReadNStrings s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Word32 - return val - -testLogMsgReadStrings :: TestLogMsg -> IO T.Text -testLogMsgReadStrings s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' - -testLogMsgReadNNums :: TestLogMsg -> IO Word32 -testLogMsgReadNNums s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Word32 - return val - -testLogMsgReadNums :: TestLogMsg -> IO Int64 -testLogMsgReadNums s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO Int64 - return val - --- method TestLogMsg::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TestLogMsg", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TestLogMsg", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_test_log_msg_free" g_test_log_msg_free :: - Ptr TestLogMsg -> -- _obj : TInterface "GLib" "TestLogMsg" - IO () - - -testLogMsgFree :: - (MonadIO m) => - TestLogMsg -> -- _obj - m () -testLogMsgFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_test_log_msg_free _obj' - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Structs/TestLogMsg.hs-boot b/GI/GLib/Structs/TestLogMsg.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/TestLogMsg.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.TestLogMsg 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 - -newtype TestLogMsg = TestLogMsg (ForeignPtr TestLogMsg) diff --git a/GI/GLib/Structs/TestSuite.hs b/GI/GLib/Structs/TestSuite.hs deleted file mode 100644 --- a/GI/GLib/Structs/TestSuite.hs +++ /dev/null @@ -1,101 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -An opaque structure representing a test suite. --} - -module GI.GLib.Structs.TestSuite - ( - --- * Exported types - TestSuite(..) , - noTestSuite , - - - -- * Methods --- ** testSuiteAdd - testSuiteAdd , - - --- ** testSuiteAddSuite - testSuiteAddSuite , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype TestSuite = TestSuite (ForeignPtr TestSuite) -noTestSuite :: Maybe TestSuite -noTestSuite = Nothing - --- method TestSuite::add --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_case", argType = TInterface "GLib" "TestCase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "test_case", argType = TInterface "GLib" "TestCase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_test_suite_add" g_test_suite_add :: - Ptr TestSuite -> -- _obj : TInterface "GLib" "TestSuite" - Ptr TestCase -> -- test_case : TInterface "GLib" "TestCase" - IO () - - -testSuiteAdd :: - (MonadIO m) => - TestSuite -> -- _obj - TestCase -> -- test_case - m () -testSuiteAdd _obj test_case = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let test_case' = unsafeManagedPtrGetPtr test_case - g_test_suite_add _obj' test_case' - touchManagedPtr _obj - touchManagedPtr test_case - return () - --- method TestSuite::add_suite --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nestedsuite", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nestedsuite", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_test_suite_add_suite" g_test_suite_add_suite :: - Ptr TestSuite -> -- _obj : TInterface "GLib" "TestSuite" - Ptr TestSuite -> -- nestedsuite : TInterface "GLib" "TestSuite" - IO () - - -testSuiteAddSuite :: - (MonadIO m) => - TestSuite -> -- _obj - TestSuite -> -- nestedsuite - m () -testSuiteAddSuite _obj nestedsuite = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let nestedsuite' = unsafeManagedPtrGetPtr nestedsuite - g_test_suite_add_suite _obj' nestedsuite' - touchManagedPtr _obj - touchManagedPtr nestedsuite - return () - - diff --git a/GI/GLib/Structs/TestSuite.hs-boot b/GI/GLib/Structs/TestSuite.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/TestSuite.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.TestSuite 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 - -newtype TestSuite = TestSuite (ForeignPtr TestSuite) diff --git a/GI/GLib/Structs/Thread.hs b/GI/GLib/Structs/Thread.hs deleted file mode 100644 --- a/GI/GLib/Structs/Thread.hs +++ /dev/null @@ -1,113 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The #GThread struct represents a running thread. This struct -is returned by g_thread_new() or g_thread_try_new(). You can -obtain the #GThread struct representing the current thread by -calling g_thread_self(). - -GThread is refcounted, see g_thread_ref() and g_thread_unref(). -The thread represented by it holds a reference while it is running, -and g_thread_join() consumes the reference that it is given, so -it is normally not necessary to manage GThread references -explicitly. - -The structure is opaque -- none of its fields may be directly -accessed. --} - -module GI.GLib.Structs.Thread - ( - --- * Exported types - Thread(..) , - noThread , - - - -- * Methods --- ** threadRef - threadRef , - - --- ** threadUnref - threadUnref , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Thread = Thread (ForeignPtr Thread) -foreign import ccall "g_thread_get_type" c_g_thread_get_type :: - IO GType - -instance BoxedObject Thread where - boxedType _ = c_g_thread_get_type - -noThread :: Maybe Thread -noThread = Nothing - --- method Thread::ref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Thread", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Thread", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "Thread" --- throws : False --- Skip return : False - -foreign import ccall "g_thread_ref" g_thread_ref :: - Ptr Thread -> -- _obj : TInterface "GLib" "Thread" - IO (Ptr Thread) - - -threadRef :: - (MonadIO m) => - Thread -> -- _obj - m Thread -threadRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_thread_ref _obj' - checkUnexpectedReturnNULL "g_thread_ref" result - result' <- (wrapBoxed Thread) result - touchManagedPtr _obj - return result' - --- method Thread::unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Thread", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Thread", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_thread_unref" g_thread_unref :: - Ptr Thread -> -- _obj : TInterface "GLib" "Thread" - IO () - - -threadUnref :: - (MonadIO m) => - Thread -> -- _obj - m () -threadUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_thread_unref _obj' - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Structs/Thread.hs-boot b/GI/GLib/Structs/Thread.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/Thread.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.GLib.Structs.Thread 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 - -newtype Thread = Thread (ForeignPtr Thread) -instance BoxedObject Thread where diff --git a/GI/GLib/Structs/ThreadPool.hs b/GI/GLib/Structs/ThreadPool.hs deleted file mode 100644 --- a/GI/GLib/Structs/ThreadPool.hs +++ /dev/null @@ -1,251 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The #GThreadPool struct represents a thread pool. It has three -public read-only members, but the underlying struct is bigger, -so you must not copy this struct. --} - -module GI.GLib.Structs.ThreadPool - ( - --- * Exported types - ThreadPool(..) , - noThreadPool , - - - -- * Methods --- ** threadPoolFree - threadPoolFree , - - --- ** threadPoolGetMaxThreads - threadPoolGetMaxThreads , - - --- ** threadPoolGetNumThreads - threadPoolGetNumThreads , - - --- ** threadPoolPush - threadPoolPush , - - --- ** threadPoolSetMaxThreads - threadPoolSetMaxThreads , - - --- ** threadPoolUnprocessed - threadPoolUnprocessed , - - - - - -- * Properties --- ** Exclusive - threadPoolReadExclusive , - - --- ** UserData - threadPoolReadUserData , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype ThreadPool = ThreadPool (ForeignPtr ThreadPool) -noThreadPool :: Maybe ThreadPool -noThreadPool = Nothing - --- XXX Skipped getter for "ThreadPool:func" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - -threadPoolReadUserData :: ThreadPool -> IO (Ptr ()) -threadPoolReadUserData s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr ()) - return val - -threadPoolReadExclusive :: ThreadPool -> IO Bool -threadPoolReadExclusive s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CInt - let val' = (/= 0) val - return val' - --- method ThreadPool::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "immediate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wait_", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "immediate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "wait_", 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_thread_pool_free" g_thread_pool_free :: - Ptr ThreadPool -> -- _obj : TInterface "GLib" "ThreadPool" - CInt -> -- immediate : TBasicType TBoolean - CInt -> -- wait_ : TBasicType TBoolean - IO () - - -threadPoolFree :: - (MonadIO m) => - ThreadPool -> -- _obj - Bool -> -- immediate - Bool -> -- wait_ - m () -threadPoolFree _obj immediate wait_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let immediate' = (fromIntegral . fromEnum) immediate - let wait_' = (fromIntegral . fromEnum) wait_ - g_thread_pool_free _obj' immediate' wait_' - touchManagedPtr _obj - return () - --- method ThreadPool::get_max_threads --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_thread_pool_get_max_threads" g_thread_pool_get_max_threads :: - Ptr ThreadPool -> -- _obj : TInterface "GLib" "ThreadPool" - IO Int32 - - -threadPoolGetMaxThreads :: - (MonadIO m) => - ThreadPool -> -- _obj - m Int32 -threadPoolGetMaxThreads _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_thread_pool_get_max_threads _obj' - touchManagedPtr _obj - return result - --- method ThreadPool::get_num_threads --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_thread_pool_get_num_threads" g_thread_pool_get_num_threads :: - Ptr ThreadPool -> -- _obj : TInterface "GLib" "ThreadPool" - IO Word32 - - -threadPoolGetNumThreads :: - (MonadIO m) => - ThreadPool -> -- _obj - m Word32 -threadPoolGetNumThreads _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_thread_pool_get_num_threads _obj' - touchManagedPtr _obj - return result - --- method ThreadPool::push --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", 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 TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_thread_pool_push" g_thread_pool_push :: - Ptr ThreadPool -> -- _obj : TInterface "GLib" "ThreadPool" - Ptr () -> -- data : TBasicType TVoid - Ptr (Ptr GError) -> -- error - IO CInt - - -threadPoolPush :: - (MonadIO m) => - ThreadPool -> -- _obj - Ptr () -> -- data - m () -threadPoolPush _obj data_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - onException (do - _ <- propagateGError $ g_thread_pool_push _obj' data_ - touchManagedPtr _obj - return () - ) (do - return () - ) - --- method ThreadPool::set_max_threads --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_threads", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_threads", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "g_thread_pool_set_max_threads" g_thread_pool_set_max_threads :: - Ptr ThreadPool -> -- _obj : TInterface "GLib" "ThreadPool" - Int32 -> -- max_threads : TBasicType TInt32 - Ptr (Ptr GError) -> -- error - IO CInt - - -threadPoolSetMaxThreads :: - (MonadIO m) => - ThreadPool -> -- _obj - Int32 -> -- max_threads - m () -threadPoolSetMaxThreads _obj max_threads = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - onException (do - _ <- propagateGError $ g_thread_pool_set_max_threads _obj' max_threads - touchManagedPtr _obj - return () - ) (do - return () - ) - --- method ThreadPool::unprocessed --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_thread_pool_unprocessed" g_thread_pool_unprocessed :: - Ptr ThreadPool -> -- _obj : TInterface "GLib" "ThreadPool" - IO Word32 - - -threadPoolUnprocessed :: - (MonadIO m) => - ThreadPool -> -- _obj - m Word32 -threadPoolUnprocessed _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_thread_pool_unprocessed _obj' - touchManagedPtr _obj - return result - - diff --git a/GI/GLib/Structs/ThreadPool.hs-boot b/GI/GLib/Structs/ThreadPool.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/ThreadPool.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.ThreadPool 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 - -newtype ThreadPool = ThreadPool (ForeignPtr ThreadPool) diff --git a/GI/GLib/Structs/TimeVal.hs b/GI/GLib/Structs/TimeVal.hs deleted file mode 100644 --- a/GI/GLib/Structs/TimeVal.hs +++ /dev/null @@ -1,125 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Represents a precise time, with seconds and microseconds. -Similar to the struct timeval returned by the gettimeofday() -UNIX system call. - -GLib is attempting to unify around the use of 64bit integers to -represent microsecond-precision time. As such, this type will be -removed from a future version of GLib. --} - -module GI.GLib.Structs.TimeVal - ( - --- * Exported types - TimeVal(..) , - noTimeVal , - - - -- * Methods --- ** timeValAdd - timeValAdd , - - --- ** timeValToIso8601 - timeValToIso8601 , - - - - - -- * Properties --- ** TvSec - timeValReadTvSec , - - --- ** TvUsec - timeValReadTvUsec , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype TimeVal = TimeVal (ForeignPtr TimeVal) -noTimeVal :: Maybe TimeVal -noTimeVal = Nothing - -timeValReadTvSec :: TimeVal -> IO Int64 -timeValReadTvSec s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int64 - return val - -timeValReadTvUsec :: TimeVal -> IO Int64 -timeValReadTvUsec s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Int64 - return val - --- method TimeVal::add --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "microseconds", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "microseconds", 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_time_val_add" g_time_val_add :: - Ptr TimeVal -> -- _obj : TInterface "GLib" "TimeVal" - Int64 -> -- microseconds : TBasicType TInt64 - IO () - - -timeValAdd :: - (MonadIO m) => - TimeVal -> -- _obj - Int64 -> -- microseconds - m () -timeValAdd _obj microseconds = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_time_val_add _obj' microseconds - touchManagedPtr _obj - return () - --- method TimeVal::to_iso8601 --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_time_val_to_iso8601" g_time_val_to_iso8601 :: - Ptr TimeVal -> -- _obj : TInterface "GLib" "TimeVal" - IO CString - - -timeValToIso8601 :: - (MonadIO m) => - TimeVal -> -- _obj - m T.Text -timeValToIso8601 _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_time_val_to_iso8601 _obj' - checkUnexpectedReturnNULL "g_time_val_to_iso8601" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - - diff --git a/GI/GLib/Structs/TimeVal.hs-boot b/GI/GLib/Structs/TimeVal.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/TimeVal.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.TimeVal 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 - -newtype TimeVal = TimeVal (ForeignPtr TimeVal) diff --git a/GI/GLib/Structs/TimeZone.hs b/GI/GLib/Structs/TimeZone.hs deleted file mode 100644 --- a/GI/GLib/Structs/TimeZone.hs +++ /dev/null @@ -1,347 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -#GTimeZone is an opaque structure whose members cannot be accessed -directly. --} - -module GI.GLib.Structs.TimeZone - ( - --- * Exported types - TimeZone(..) , - noTimeZone , - - - -- * Methods --- ** timeZoneAdjustTime - timeZoneAdjustTime , - - --- ** timeZoneFindInterval - timeZoneFindInterval , - - --- ** timeZoneGetAbbreviation - timeZoneGetAbbreviation , - - --- ** timeZoneGetOffset - timeZoneGetOffset , - - --- ** timeZoneIsDst - timeZoneIsDst , - - --- ** timeZoneNew - timeZoneNew , - - --- ** timeZoneNewLocal - timeZoneNewLocal , - - --- ** timeZoneNewUtc - timeZoneNewUtc , - - --- ** timeZoneRef - timeZoneRef , - - --- ** timeZoneUnref - timeZoneUnref , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype TimeZone = TimeZone (ForeignPtr TimeZone) -foreign import ccall "g_time_zone_get_type" c_g_time_zone_get_type :: - IO GType - -instance BoxedObject TimeZone where - boxedType _ = c_g_time_zone_get_type - -noTimeZone :: Maybe TimeZone -noTimeZone = Nothing - --- method TimeZone::new --- method type : Constructor --- Args : [Arg {argName = "identifier", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "identifier", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "TimeZone" --- throws : False --- Skip return : False - -foreign import ccall "g_time_zone_new" g_time_zone_new :: - CString -> -- identifier : TBasicType TUTF8 - IO (Ptr TimeZone) - - -timeZoneNew :: - (MonadIO m) => - Maybe (T.Text) -> -- identifier - m TimeZone -timeZoneNew identifier = liftIO $ do - maybeIdentifier <- case identifier of - Nothing -> return nullPtr - Just jIdentifier -> do - jIdentifier' <- textToCString jIdentifier - return jIdentifier' - result <- g_time_zone_new maybeIdentifier - checkUnexpectedReturnNULL "g_time_zone_new" result - result' <- (wrapBoxed TimeZone) result - freeMem maybeIdentifier - return result' - --- method TimeZone::new_local --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "GLib" "TimeZone" --- throws : False --- Skip return : False - -foreign import ccall "g_time_zone_new_local" g_time_zone_new_local :: - IO (Ptr TimeZone) - - -timeZoneNewLocal :: - (MonadIO m) => - m TimeZone -timeZoneNewLocal = liftIO $ do - result <- g_time_zone_new_local - checkUnexpectedReturnNULL "g_time_zone_new_local" result - result' <- (wrapBoxed TimeZone) result - return result' - --- method TimeZone::new_utc --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "GLib" "TimeZone" --- throws : False --- Skip return : False - -foreign import ccall "g_time_zone_new_utc" g_time_zone_new_utc :: - IO (Ptr TimeZone) - - -timeZoneNewUtc :: - (MonadIO m) => - m TimeZone -timeZoneNewUtc = liftIO $ do - result <- g_time_zone_new_utc - checkUnexpectedReturnNULL "g_time_zone_new_utc" result - result' <- (wrapBoxed TimeZone) result - return result' - --- method TimeZone::adjust_time --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "TimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "TimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_time_zone_adjust_time" g_time_zone_adjust_time :: - Ptr TimeZone -> -- _obj : TInterface "GLib" "TimeZone" - CUInt -> -- type : TInterface "GLib" "TimeType" - Int64 -> -- time_ : TBasicType TInt64 - IO Int32 - - -timeZoneAdjustTime :: - (MonadIO m) => - TimeZone -> -- _obj - TimeType -> -- type - Int64 -> -- time_ - m Int32 -timeZoneAdjustTime _obj type_ time_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let type_' = (fromIntegral . fromEnum) type_ - result <- g_time_zone_adjust_time _obj' type_' time_ - touchManagedPtr _obj - return result - --- method TimeZone::find_interval --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "TimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "GLib" "TimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_time_zone_find_interval" g_time_zone_find_interval :: - Ptr TimeZone -> -- _obj : TInterface "GLib" "TimeZone" - CUInt -> -- type : TInterface "GLib" "TimeType" - Int64 -> -- time_ : TBasicType TInt64 - IO Int32 - - -timeZoneFindInterval :: - (MonadIO m) => - TimeZone -> -- _obj - TimeType -> -- type - Int64 -> -- time_ - m Int32 -timeZoneFindInterval _obj type_ time_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let type_' = (fromIntegral . fromEnum) type_ - result <- g_time_zone_find_interval _obj' type_' time_ - touchManagedPtr _obj - return result - --- method TimeZone::get_abbreviation --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_time_zone_get_abbreviation" g_time_zone_get_abbreviation :: - Ptr TimeZone -> -- _obj : TInterface "GLib" "TimeZone" - Int32 -> -- interval : TBasicType TInt32 - IO CString - - -timeZoneGetAbbreviation :: - (MonadIO m) => - TimeZone -> -- _obj - Int32 -> -- interval - m T.Text -timeZoneGetAbbreviation _obj interval = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_time_zone_get_abbreviation _obj' interval - checkUnexpectedReturnNULL "g_time_zone_get_abbreviation" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method TimeZone::get_offset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_time_zone_get_offset" g_time_zone_get_offset :: - Ptr TimeZone -> -- _obj : TInterface "GLib" "TimeZone" - Int32 -> -- interval : TBasicType TInt32 - IO Int32 - - -timeZoneGetOffset :: - (MonadIO m) => - TimeZone -> -- _obj - Int32 -> -- interval - m Int32 -timeZoneGetOffset _obj interval = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_time_zone_get_offset _obj' interval - touchManagedPtr _obj - return result - --- method TimeZone::is_dst --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_time_zone_is_dst" g_time_zone_is_dst :: - Ptr TimeZone -> -- _obj : TInterface "GLib" "TimeZone" - Int32 -> -- interval : TBasicType TInt32 - IO CInt - - -timeZoneIsDst :: - (MonadIO m) => - TimeZone -> -- _obj - Int32 -> -- interval - m Bool -timeZoneIsDst _obj interval = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_time_zone_is_dst _obj' interval - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method TimeZone::ref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "TimeZone" --- throws : False --- Skip return : False - -foreign import ccall "g_time_zone_ref" g_time_zone_ref :: - Ptr TimeZone -> -- _obj : TInterface "GLib" "TimeZone" - IO (Ptr TimeZone) - - -timeZoneRef :: - (MonadIO m) => - TimeZone -> -- _obj - m TimeZone -timeZoneRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_time_zone_ref _obj' - checkUnexpectedReturnNULL "g_time_zone_ref" result - result' <- (wrapBoxed TimeZone) result - touchManagedPtr _obj - return result' - --- method TimeZone::unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_time_zone_unref" g_time_zone_unref :: - Ptr TimeZone -> -- _obj : TInterface "GLib" "TimeZone" - IO () - - -timeZoneUnref :: - (MonadIO m) => - TimeZone -> -- _obj - m () -timeZoneUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_time_zone_unref _obj' - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Structs/TimeZone.hs-boot b/GI/GLib/Structs/TimeZone.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/TimeZone.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.GLib.Structs.TimeZone 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 - -newtype TimeZone = TimeZone (ForeignPtr TimeZone) -instance BoxedObject TimeZone where diff --git a/GI/GLib/Structs/Timer.hs b/GI/GLib/Structs/Timer.hs deleted file mode 100644 --- a/GI/GLib/Structs/Timer.hs +++ /dev/null @@ -1,208 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Opaque datatype that records a start time. --} - -module GI.GLib.Structs.Timer - ( - --- * Exported types - Timer(..) , - noTimer , - - - -- * Methods --- ** timerContinue - timerContinue , - - --- ** timerDestroy - timerDestroy , - - --- ** timerElapsed - timerElapsed , - - --- ** timerReset - timerReset , - - --- ** timerStart - timerStart , - - --- ** timerStop - timerStop , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Timer = Timer (ForeignPtr Timer) -noTimer :: Maybe Timer -noTimer = Nothing - --- method Timer::continue --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_timer_continue" g_timer_continue :: - Ptr Timer -> -- _obj : TInterface "GLib" "Timer" - IO () - - -timerContinue :: - (MonadIO m) => - Timer -> -- _obj - m () -timerContinue _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_timer_continue _obj' - touchManagedPtr _obj - return () - --- method Timer::destroy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_timer_destroy" g_timer_destroy :: - Ptr Timer -> -- _obj : TInterface "GLib" "Timer" - IO () - - -timerDestroy :: - (MonadIO m) => - Timer -> -- _obj - m () -timerDestroy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_timer_destroy _obj' - touchManagedPtr _obj - return () - --- method Timer::elapsed --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "microseconds", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "microseconds", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TDouble --- throws : False --- Skip return : False - -foreign import ccall "g_timer_elapsed" g_timer_elapsed :: - Ptr Timer -> -- _obj : TInterface "GLib" "Timer" - Word64 -> -- microseconds : TBasicType TUInt64 - IO CDouble - - -timerElapsed :: - (MonadIO m) => - Timer -> -- _obj - Word64 -> -- microseconds - m Double -timerElapsed _obj microseconds = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_timer_elapsed _obj' microseconds - let result' = realToFrac result - touchManagedPtr _obj - return result' - --- method Timer::reset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_timer_reset" g_timer_reset :: - Ptr Timer -> -- _obj : TInterface "GLib" "Timer" - IO () - - -timerReset :: - (MonadIO m) => - Timer -> -- _obj - m () -timerReset _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_timer_reset _obj' - touchManagedPtr _obj - return () - --- method Timer::start --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_timer_start" g_timer_start :: - Ptr Timer -> -- _obj : TInterface "GLib" "Timer" - IO () - - -timerStart :: - (MonadIO m) => - Timer -> -- _obj - m () -timerStart _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_timer_start _obj' - touchManagedPtr _obj - return () - --- method Timer::stop --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_timer_stop" g_timer_stop :: - Ptr Timer -> -- _obj : TInterface "GLib" "Timer" - IO () - - -timerStop :: - (MonadIO m) => - Timer -> -- _obj - m () -timerStop _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_timer_stop _obj' - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Structs/Timer.hs-boot b/GI/GLib/Structs/Timer.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/Timer.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.Timer 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 - -newtype Timer = Timer (ForeignPtr Timer) diff --git a/GI/GLib/Structs/TrashStack.hs b/GI/GLib/Structs/TrashStack.hs deleted file mode 100644 --- a/GI/GLib/Structs/TrashStack.hs +++ /dev/null @@ -1,48 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Each piece of memory that is pushed onto the stack -is cast to a GTrashStack*. --} - -module GI.GLib.Structs.TrashStack - ( - --- * Exported types - TrashStack(..) , - noTrashStack , - - - -- * Properties --- ** Next - trashStackReadNext , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype TrashStack = TrashStack (ForeignPtr TrashStack) -noTrashStack :: Maybe TrashStack -noTrashStack = Nothing - -trashStackReadNext :: TrashStack -> IO TrashStack -trashStackReadNext s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr TrashStack) - val' <- (newPtr 8 TrashStack) val - return val' - - diff --git a/GI/GLib/Structs/TrashStack.hs-boot b/GI/GLib/Structs/TrashStack.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/TrashStack.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.TrashStack 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 - -newtype TrashStack = TrashStack (ForeignPtr TrashStack) diff --git a/GI/GLib/Structs/Tree.hs b/GI/GLib/Structs/Tree.hs deleted file mode 100644 --- a/GI/GLib/Structs/Tree.hs +++ /dev/null @@ -1,312 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The GTree struct is an opaque data structure representing a -[balanced binary tree][glib-Balanced-Binary-Trees]. It should be -accessed only by using the following functions. --} - -module GI.GLib.Structs.Tree - ( - --- * Exported types - Tree(..) , - noTree , - - - -- * Methods --- ** treeDestroy - treeDestroy , - - --- ** treeHeight - treeHeight , - - --- ** treeInsert - treeInsert , - - --- ** treeLookupExtended - treeLookupExtended , - - --- ** treeNnodes - treeNnodes , - - --- ** treeRemove - treeRemove , - - --- ** treeReplace - treeReplace , - - --- ** treeSteal - treeSteal , - - --- ** treeUnref - treeUnref , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Tree = Tree (ForeignPtr Tree) -noTree :: Maybe Tree -noTree = Nothing - --- method Tree::destroy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_tree_destroy" g_tree_destroy :: - Ptr Tree -> -- _obj : TInterface "GLib" "Tree" - IO () - - -treeDestroy :: - (MonadIO m) => - Tree -> -- _obj - m () -treeDestroy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_tree_destroy _obj' - touchManagedPtr _obj - return () - --- method Tree::height --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_tree_height" g_tree_height :: - Ptr Tree -> -- _obj : TInterface "GLib" "Tree" - IO Int32 - - -treeHeight :: - (MonadIO m) => - Tree -> -- _obj - m Int32 -treeHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_tree_height _obj' - touchManagedPtr _obj - return result - --- method Tree::insert --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_tree_insert" g_tree_insert :: - Ptr Tree -> -- _obj : TInterface "GLib" "Tree" - Ptr () -> -- key : TBasicType TVoid - Ptr () -> -- value : TBasicType TVoid - IO () - - -treeInsert :: - (MonadIO m) => - Tree -> -- _obj - Ptr () -> -- key - Ptr () -> -- value - m () -treeInsert _obj key value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_tree_insert _obj' key value - touchManagedPtr _obj - return () - --- method Tree::lookup_extended --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orig_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lookup_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "orig_key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_tree_lookup_extended" g_tree_lookup_extended :: - Ptr Tree -> -- _obj : TInterface "GLib" "Tree" - Ptr () -> -- lookup_key : TBasicType TVoid - Ptr () -> -- orig_key : TBasicType TVoid - Ptr () -> -- value : TBasicType TVoid - IO CInt - - -treeLookupExtended :: - (MonadIO m) => - Tree -> -- _obj - Ptr () -> -- lookup_key - Ptr () -> -- orig_key - Ptr () -> -- value - m Bool -treeLookupExtended _obj lookup_key orig_key value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_tree_lookup_extended _obj' lookup_key orig_key value - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Tree::nnodes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_tree_nnodes" g_tree_nnodes :: - Ptr Tree -> -- _obj : TInterface "GLib" "Tree" - IO Int32 - - -treeNnodes :: - (MonadIO m) => - Tree -> -- _obj - m Int32 -treeNnodes _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_tree_nnodes _obj' - touchManagedPtr _obj - return result - --- method Tree::remove --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_tree_remove" g_tree_remove :: - Ptr Tree -> -- _obj : TInterface "GLib" "Tree" - Ptr () -> -- key : TBasicType TVoid - IO CInt - - -treeRemove :: - (MonadIO m) => - Tree -> -- _obj - Ptr () -> -- key - m Bool -treeRemove _obj key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_tree_remove _obj' key - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Tree::replace --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", 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_tree_replace" g_tree_replace :: - Ptr Tree -> -- _obj : TInterface "GLib" "Tree" - Ptr () -> -- key : TBasicType TVoid - Ptr () -> -- value : TBasicType TVoid - IO () - - -treeReplace :: - (MonadIO m) => - Tree -> -- _obj - Ptr () -> -- key - Ptr () -> -- value - m () -treeReplace _obj key value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_tree_replace _obj' key value - touchManagedPtr _obj - return () - --- method Tree::steal --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_tree_steal" g_tree_steal :: - Ptr Tree -> -- _obj : TInterface "GLib" "Tree" - Ptr () -> -- key : TBasicType TVoid - IO CInt - - -treeSteal :: - (MonadIO m) => - Tree -> -- _obj - Ptr () -> -- key - m Bool -treeSteal _obj key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_tree_steal _obj' key - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Tree::unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_tree_unref" g_tree_unref :: - Ptr Tree -> -- _obj : TInterface "GLib" "Tree" - IO () - - -treeUnref :: - (MonadIO m) => - Tree -> -- _obj - m () -treeUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_tree_unref _obj' - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Structs/Tree.hs-boot b/GI/GLib/Structs/Tree.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/Tree.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Structs.Tree 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 - -newtype Tree = Tree (ForeignPtr Tree) diff --git a/GI/GLib/Structs/VariantBuilder.hs b/GI/GLib/Structs/VariantBuilder.hs deleted file mode 100644 --- a/GI/GLib/Structs/VariantBuilder.hs +++ /dev/null @@ -1,258 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A utility type for constructing container-type #GVariant instances. - -This is an opaque structure and may only be accessed using the -following functions. - -#GVariantBuilder is not threadsafe in any way. Do not attempt to -access it from more than one thread. --} - -module GI.GLib.Structs.VariantBuilder - ( - --- * Exported types - VariantBuilder(..) , - noVariantBuilder , - - - -- * Methods --- ** variantBuilderAddValue - variantBuilderAddValue , - - --- ** variantBuilderClose - variantBuilderClose , - - --- ** variantBuilderEnd - variantBuilderEnd , - - --- ** variantBuilderNew - variantBuilderNew , - - --- ** variantBuilderOpen - variantBuilderOpen , - - --- ** variantBuilderRef - variantBuilderRef , - - --- ** variantBuilderUnref - variantBuilderUnref , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype VariantBuilder = VariantBuilder (ForeignPtr VariantBuilder) -foreign import ccall "g_variant_builder_get_type" c_g_variant_builder_get_type :: - IO GType - -instance BoxedObject VariantBuilder where - boxedType _ = c_g_variant_builder_get_type - -noVariantBuilder :: Maybe VariantBuilder -noVariantBuilder = Nothing - --- method VariantBuilder::new --- method type : Constructor --- Args : [Arg {argName = "type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "VariantBuilder" --- throws : False --- Skip return : False - -foreign import ccall "g_variant_builder_new" g_variant_builder_new :: - Ptr VariantType -> -- type : TInterface "GLib" "VariantType" - IO (Ptr VariantBuilder) - - -variantBuilderNew :: - (MonadIO m) => - VariantType -> -- type - m VariantBuilder -variantBuilderNew type_ = liftIO $ do - let type_' = unsafeManagedPtrGetPtr type_ - result <- g_variant_builder_new type_' - checkUnexpectedReturnNULL "g_variant_builder_new" result - result' <- (wrapBoxed VariantBuilder) result - touchManagedPtr type_ - return result' - --- method VariantBuilder::add_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", 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 - -foreign import ccall "g_variant_builder_add_value" g_variant_builder_add_value :: - Ptr VariantBuilder -> -- _obj : TInterface "GLib" "VariantBuilder" - Ptr GVariant -> -- value : TVariant - IO () - - -variantBuilderAddValue :: - (MonadIO m) => - VariantBuilder -> -- _obj - GVariant -> -- value - m () -variantBuilderAddValue _obj value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let value' = unsafeManagedPtrGetPtr value - g_variant_builder_add_value _obj' value' - touchManagedPtr _obj - return () - --- method VariantBuilder::close --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_variant_builder_close" g_variant_builder_close :: - Ptr VariantBuilder -> -- _obj : TInterface "GLib" "VariantBuilder" - IO () - - -variantBuilderClose :: - (MonadIO m) => - VariantBuilder -> -- _obj - m () -variantBuilderClose _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_variant_builder_close _obj' - touchManagedPtr _obj - return () - --- method VariantBuilder::end --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TVariant --- throws : False --- Skip return : False - -foreign import ccall "g_variant_builder_end" g_variant_builder_end :: - Ptr VariantBuilder -> -- _obj : TInterface "GLib" "VariantBuilder" - IO (Ptr GVariant) - - -variantBuilderEnd :: - (MonadIO m) => - VariantBuilder -> -- _obj - m GVariant -variantBuilderEnd _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_builder_end _obj' - checkUnexpectedReturnNULL "g_variant_builder_end" result - result' <- newGVariantFromPtr result - touchManagedPtr _obj - return result' - --- method VariantBuilder::open --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", 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 = "_obj", argType = TInterface "GLib" "VariantBuilder", 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 : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_variant_builder_open" g_variant_builder_open :: - Ptr VariantBuilder -> -- _obj : TInterface "GLib" "VariantBuilder" - Ptr VariantType -> -- type : TInterface "GLib" "VariantType" - IO () - - -variantBuilderOpen :: - (MonadIO m) => - VariantBuilder -> -- _obj - VariantType -> -- type - m () -variantBuilderOpen _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let type_' = unsafeManagedPtrGetPtr type_ - g_variant_builder_open _obj' type_' - touchManagedPtr _obj - touchManagedPtr type_ - return () - --- method VariantBuilder::ref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "VariantBuilder" --- throws : False --- Skip return : False - -foreign import ccall "g_variant_builder_ref" g_variant_builder_ref :: - Ptr VariantBuilder -> -- _obj : TInterface "GLib" "VariantBuilder" - IO (Ptr VariantBuilder) - - -variantBuilderRef :: - (MonadIO m) => - VariantBuilder -> -- _obj - m VariantBuilder -variantBuilderRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_builder_ref _obj' - checkUnexpectedReturnNULL "g_variant_builder_ref" result - result' <- (wrapBoxed VariantBuilder) result - touchManagedPtr _obj - return result' - --- method VariantBuilder::unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_variant_builder_unref" g_variant_builder_unref :: - Ptr VariantBuilder -> -- _obj : TInterface "GLib" "VariantBuilder" - IO () - - -variantBuilderUnref :: - (MonadIO m) => - VariantBuilder -> -- _obj - m () -variantBuilderUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_variant_builder_unref _obj' - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Structs/VariantBuilder.hs-boot b/GI/GLib/Structs/VariantBuilder.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/VariantBuilder.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.GLib.Structs.VariantBuilder 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 - -newtype VariantBuilder = VariantBuilder (ForeignPtr VariantBuilder) -instance BoxedObject VariantBuilder where diff --git a/GI/GLib/Structs/VariantDict.hs b/GI/GLib/Structs/VariantDict.hs deleted file mode 100644 --- a/GI/GLib/Structs/VariantDict.hs +++ /dev/null @@ -1,423 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -#GVariantDict is a mutable interface to #GVariant dictionaries. - -It can be used for doing a sequence of dictionary lookups in an -efficient way on an existing #GVariant dictionary or it can be used -to construct new dictionaries with a hashtable-like interface. It -can also be used for taking existing dictionaries and modifying them -in order to create new ones. - -#GVariantDict can only be used with %G_VARIANT_TYPE_VARDICT -dictionaries. - -It is possible to use #GVariantDict allocated on the stack or on the -heap. When using a stack-allocated #GVariantDict, you begin with a -call to g_variant_dict_init() and free the resources with a call to -g_variant_dict_clear(). - -Heap-allocated #GVariantDict follows normal refcounting rules: you -allocate it with g_variant_dict_new() and use g_variant_dict_ref() -and g_variant_dict_unref(). - -g_variant_dict_end() is used to convert the #GVariantDict back into a -dictionary-type #GVariant. When used with stack-allocated instances, -this also implicitly frees all associated memory, but for -heap-allocated instances, you must still call g_variant_dict_unref() -afterwards. - -You will typically want to use a heap-allocated #GVariantDict when -you expose it as part of an API. For most other uses, the -stack-allocated form will be more convenient. - -Consider the following two examples that do the same thing in each -style: take an existing dictionary and look up the "count" uint32 -key, adding 1 to it if it is found, or returning an error if the -key is not found. Each returns the new dictionary as a floating -#GVariant. - -## Using a stack-allocated GVariantDict - -|[ - GVariant * - add_to_count (GVariant *orig, - GError **error) - { - GVariantDict dict; - guint32 count; - - g_variant_dict_init (&dict, orig); - if (!g_variant_dict_lookup (&dict, "count", "u", &count)) - { - g_set_error (...); - g_variant_dict_clear (&dict); - return NULL; - } - - g_variant_dict_insert (&dict, "count", "u", count + 1); - - return g_variant_dict_end (&dict); - } -]| - -## Using heap-allocated GVariantDict - -|[ - GVariant * - add_to_count (GVariant *orig, - GError **error) - { - GVariantDict *dict; - GVariant *result; - guint32 count; - - dict = g_variant_dict_new (orig); - - if (g_variant_dict_lookup (dict, "count", "u", &count)) - { - g_variant_dict_insert (dict, "count", "u", count + 1); - result = g_variant_dict_end (dict); - } - else - { - g_set_error (...); - result = NULL; - } - - g_variant_dict_unref (dict); - - return result; - } -]| --} - -module GI.GLib.Structs.VariantDict - ( - --- * Exported types - VariantDict(..) , - noVariantDict , - - - -- * Methods --- ** variantDictClear - variantDictClear , - - --- ** variantDictContains - variantDictContains , - - --- ** variantDictEnd - variantDictEnd , - - --- ** variantDictInsertValue - variantDictInsertValue , - - --- ** variantDictLookupValue - variantDictLookupValue , - - --- ** variantDictNew - variantDictNew , - - --- ** variantDictRef - variantDictRef , - - --- ** variantDictRemove - variantDictRemove , - - --- ** variantDictUnref - variantDictUnref , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype VariantDict = VariantDict (ForeignPtr VariantDict) -foreign import ccall "g_variant_dict_get_type" c_g_variant_dict_get_type :: - IO GType - -instance BoxedObject VariantDict where - boxedType _ = c_g_variant_dict_get_type - -noVariantDict :: Maybe VariantDict -noVariantDict = Nothing - --- method VariantDict::new --- method type : Constructor --- Args : [Arg {argName = "from_asv", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "from_asv", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "VariantDict" --- throws : False --- Skip return : False - -foreign import ccall "g_variant_dict_new" g_variant_dict_new :: - Ptr GVariant -> -- from_asv : TVariant - IO (Ptr VariantDict) - - -variantDictNew :: - (MonadIO m) => - Maybe (GVariant) -> -- from_asv - m VariantDict -variantDictNew from_asv = liftIO $ do - maybeFrom_asv <- case from_asv of - Nothing -> return nullPtr - Just jFrom_asv -> do - let jFrom_asv' = unsafeManagedPtrGetPtr jFrom_asv - return jFrom_asv' - result <- g_variant_dict_new maybeFrom_asv - checkUnexpectedReturnNULL "g_variant_dict_new" result - result' <- (wrapBoxed VariantDict) result - return result' - --- method VariantDict::clear --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_variant_dict_clear" g_variant_dict_clear :: - Ptr VariantDict -> -- _obj : TInterface "GLib" "VariantDict" - IO () - - -variantDictClear :: - (MonadIO m) => - VariantDict -> -- _obj - m () -variantDictClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_variant_dict_clear _obj' - touchManagedPtr _obj - return () - --- method VariantDict::contains --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", 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 - -foreign import ccall "g_variant_dict_contains" g_variant_dict_contains :: - Ptr VariantDict -> -- _obj : TInterface "GLib" "VariantDict" - CString -> -- key : TBasicType TUTF8 - IO CInt - - -variantDictContains :: - (MonadIO m) => - VariantDict -> -- _obj - T.Text -> -- key - m Bool -variantDictContains _obj key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - key' <- textToCString key - result <- g_variant_dict_contains _obj' key' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem key' - return result' - --- method VariantDict::end --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TVariant --- throws : False --- Skip return : False - -foreign import ccall "g_variant_dict_end" g_variant_dict_end :: - Ptr VariantDict -> -- _obj : TInterface "GLib" "VariantDict" - IO (Ptr GVariant) - - -variantDictEnd :: - (MonadIO m) => - VariantDict -> -- _obj - m GVariant -variantDictEnd _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_dict_end _obj' - checkUnexpectedReturnNULL "g_variant_dict_end" result - result' <- newGVariantFromPtr result - touchManagedPtr _obj - return result' - --- method VariantDict::insert_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", 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 TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_variant_dict_insert_value" g_variant_dict_insert_value :: - Ptr VariantDict -> -- _obj : TInterface "GLib" "VariantDict" - CString -> -- key : TBasicType TUTF8 - Ptr GVariant -> -- value : TVariant - IO () - - -variantDictInsertValue :: - (MonadIO m) => - VariantDict -> -- _obj - T.Text -> -- key - GVariant -> -- value - m () -variantDictInsertValue _obj key value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - key' <- textToCString key - let value' = unsafeManagedPtrGetPtr value - g_variant_dict_insert_value _obj' key' value' - touchManagedPtr _obj - freeMem key' - return () - --- method VariantDict::lookup_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", 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 = "expected_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", 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 = "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 - -foreign import ccall "g_variant_dict_lookup_value" g_variant_dict_lookup_value :: - Ptr VariantDict -> -- _obj : TInterface "GLib" "VariantDict" - CString -> -- key : TBasicType TUTF8 - Ptr VariantType -> -- expected_type : TInterface "GLib" "VariantType" - IO (Ptr GVariant) - - -variantDictLookupValue :: - (MonadIO m) => - VariantDict -> -- _obj - T.Text -> -- key - Maybe (VariantType) -> -- expected_type - m GVariant -variantDictLookupValue _obj key expected_type = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - key' <- textToCString key - maybeExpected_type <- case expected_type of - Nothing -> return nullPtr - Just jExpected_type -> do - let jExpected_type' = unsafeManagedPtrGetPtr jExpected_type - return jExpected_type' - result <- g_variant_dict_lookup_value _obj' key' maybeExpected_type - checkUnexpectedReturnNULL "g_variant_dict_lookup_value" result - result' <- wrapGVariantPtr result - touchManagedPtr _obj - whenJust expected_type touchManagedPtr - freeMem key' - return result' - --- method VariantDict::ref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "VariantDict" --- throws : False --- Skip return : False - -foreign import ccall "g_variant_dict_ref" g_variant_dict_ref :: - Ptr VariantDict -> -- _obj : TInterface "GLib" "VariantDict" - IO (Ptr VariantDict) - - -variantDictRef :: - (MonadIO m) => - VariantDict -> -- _obj - m VariantDict -variantDictRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_dict_ref _obj' - checkUnexpectedReturnNULL "g_variant_dict_ref" result - result' <- (wrapBoxed VariantDict) result - touchManagedPtr _obj - return result' - --- method VariantDict::remove --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", 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}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", 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 - -foreign import ccall "g_variant_dict_remove" g_variant_dict_remove :: - Ptr VariantDict -> -- _obj : TInterface "GLib" "VariantDict" - CString -> -- key : TBasicType TUTF8 - IO CInt - - -variantDictRemove :: - (MonadIO m) => - VariantDict -> -- _obj - T.Text -> -- key - m Bool -variantDictRemove _obj key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - key' <- textToCString key - result <- g_variant_dict_remove _obj' key' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem key' - return result' - --- method VariantDict::unref --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_variant_dict_unref" g_variant_dict_unref :: - Ptr VariantDict -> -- _obj : TInterface "GLib" "VariantDict" - IO () - - -variantDictUnref :: - (MonadIO m) => - VariantDict -> -- _obj - m () -variantDictUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_variant_dict_unref _obj' - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Structs/VariantDict.hs-boot b/GI/GLib/Structs/VariantDict.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/VariantDict.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.GLib.Structs.VariantDict 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 - -newtype VariantDict = VariantDict (ForeignPtr VariantDict) -instance BoxedObject VariantDict where diff --git a/GI/GLib/Structs/VariantType.hs b/GI/GLib/Structs/VariantType.hs deleted file mode 100644 --- a/GI/GLib/Structs/VariantType.hs +++ /dev/null @@ -1,965 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -This section introduces the GVariant type system. It is based, in -large part, on the D-Bus type system, with two major changes and -some minor lifting of restrictions. The -[D-Bus specification](http://dbus.freedesktop.org/doc/dbus-specification.html), -therefore, provides a significant amount of -information that is useful when working with GVariant. - -The first major change with respect to the D-Bus type system is the -introduction of maybe (or "nullable") types. Any type in GVariant can be -converted to a maybe type, in which case, "nothing" (or "null") becomes a -valid value. Maybe types have been added by introducing the -character "m" to type strings. - -The second major change is that the GVariant type system supports the -concept of "indefinite types" -- types that are less specific than -the normal types found in D-Bus. For example, it is possible to speak -of "an array of any type" in GVariant, where the D-Bus type system -would require you to speak of "an array of integers" or "an array of -strings". Indefinite types have been added by introducing the -characters "*", "?" and "r" to type strings. - -Finally, all arbitrary restrictions relating to the complexity of -types are lifted along with the restriction that dictionary entries -may only appear nested inside of arrays. - -Just as in D-Bus, GVariant types are described with strings ("type -strings"). Subject to the differences mentioned above, these strings -are of the same form as those found in DBus. Note, however: D-Bus -always works in terms of messages and therefore individual type -strings appear nowhere in its interface. Instead, "signatures" -are a concatenation of the strings of the type of each argument in a -message. GVariant deals with single values directly so GVariant type -strings always describe the type of exactly one value. This means -that a D-Bus signature string is generally not a valid GVariant type -string -- except in the case that it is the signature of a message -containing exactly one argument. - -An indefinite type is similar in spirit to what may be called an -abstract type in other type systems. No value can exist that has an -indefinite type as its type, but values can exist that have types -that are subtypes of indefinite types. That is to say, -g_variant_get_type() will never return an indefinite type, but -calling g_variant_is_of_type() with an indefinite type may return -%TRUE. For example, you cannot have a value that represents "an -array of no particular type", but you can have an "array of integers" -which certainly matches the type of "an array of no particular type", -since "array of integers" is a subtype of "array of no particular -type". - -This is similar to how instances of abstract classes may not -directly exist in other type systems, but instances of their -non-abstract subtypes may. For example, in GTK, no object that has -the type of #GtkBin can exist (since #GtkBin is an abstract class), -but a #GtkWindow can certainly be instantiated, and you would say -that the #GtkWindow is a #GtkBin (since #GtkWindow is a subclass of -#GtkBin). - -## GVariant Type Strings - -A GVariant type string can be any of the following: - -- any basic type string (listed below) - -- "v", "r" or "*" - -- one of the characters 'a' or 'm', followed by another type string - -- the character '(', followed by a concatenation of zero or more other - type strings, followed by the character ')' - -- the character '{', followed by a basic type string (see below), - followed by another type string, followed by the character '}' - -A basic type string describes a basic type (as per -g_variant_type_is_basic()) and is always a single character in length. -The valid basic type strings are "b", "y", "n", "q", "i", "u", "x", "t", -"h", "d", "s", "o", "g" and "?". - -The above definition is recursive to arbitrary depth. "aaaaai" and -"(ui(nq((y)))s)" are both valid type strings, as is -"a(aa(ui)(qna{ya(yd)}))". - -The meaning of each of the characters is as follows: -- `b`: the type string of %G_VARIANT_TYPE_BOOLEAN; a boolean value. -- `y`: the type string of %G_VARIANT_TYPE_BYTE; a byte. -- `n`: the type string of %G_VARIANT_TYPE_INT16; a signed 16 bit integer. -- `q`: the type string of %G_VARIANT_TYPE_UINT16; an unsigned 16 bit integer. -- `i`: the type string of %G_VARIANT_TYPE_INT32; a signed 32 bit integer. -- `u`: the type string of %G_VARIANT_TYPE_UINT32; an unsigned 32 bit integer. -- `x`: the type string of %G_VARIANT_TYPE_INT64; a signed 64 bit integer. -- `t`: the type string of %G_VARIANT_TYPE_UINT64; an unsigned 64 bit integer. -- `h`: the type string of %G_VARIANT_TYPE_HANDLE; a signed 32 bit value - that, by convention, is used as an index into an array of file - descriptors that are sent alongside a D-Bus message. -- `d`: the type string of %G_VARIANT_TYPE_DOUBLE; a double precision - floating point value. -- `s`: the type string of %G_VARIANT_TYPE_STRING; a string. -- `o`: the type string of %G_VARIANT_TYPE_OBJECT_PATH; a string in the form - of a D-Bus object path. -- `g`: the type string of %G_VARIANT_TYPE_STRING; a string in the form of - a D-Bus type signature. -- `?`: the type string of %G_VARIANT_TYPE_BASIC; an indefinite type that - is a supertype of any of the basic types. -- `v`: the type string of %G_VARIANT_TYPE_VARIANT; a container type that - contain any other type of value. -- `a`: used as a prefix on another type string to mean an array of that - type; the type string "ai", for example, is the type of an array of - signed 32-bit integers. -- `m`: used as a prefix on another type string to mean a "maybe", or - "nullable", version of that type; the type string "ms", for example, - is the type of a value that maybe contains a string, or maybe contains - nothing. -- `()`: used to enclose zero or more other concatenated type strings to - create a tuple type; the type string "(is)", for example, is the type of - a pair of an integer and a string. -- `r`: the type string of %G_VARIANT_TYPE_TUPLE; an indefinite type that is - a supertype of any tuple type, regardless of the number of items. -- `{}`: used to enclose a basic type string concatenated with another type - string to create a dictionary entry type, which usually appears inside of - an array to form a dictionary; the type string "a{sd}", for example, is - the type of a dictionary that maps strings to double precision floating - point values. - - The first type (the basic type) is the key type and the second type is - the value type. The reason that the first type is restricted to being a - basic type is so that it can easily be hashed. -- `*`: the type string of %G_VARIANT_TYPE_ANY; the indefinite type that is - a supertype of all types. Note that, as with all type strings, this - character represents exactly one type. It cannot be used inside of tuples - to mean "any number of items". - -Any type string of a container that contains an indefinite type is, -itself, an indefinite type. For example, the type string "a*" -(corresponding to %G_VARIANT_TYPE_ARRAY) is an indefinite type -that is a supertype of every array type. "(*s)" is a supertype -of all tuples that contain exactly two items where the second -item is a string. - -"a{?*}" is an indefinite type that is a supertype of all arrays -containing dictionary entries where the key is any basic type and -the value is any type at all. This is, by definition, a dictionary, -so this type string corresponds to %G_VARIANT_TYPE_DICTIONARY. Note -that, due to the restriction that the key of a dictionary entry must -be a basic type, "{**}" is not a valid type string. --} - -module GI.GLib.Structs.VariantType - ( - --- * Exported types - VariantType(..) , - noVariantType , - - - -- * Methods --- ** variantTypeCopy - variantTypeCopy , - - --- ** variantTypeDupString - variantTypeDupString , - - --- ** variantTypeElement - variantTypeElement , - - --- ** variantTypeEqual - variantTypeEqual , - - --- ** variantTypeFirst - variantTypeFirst , - - --- ** variantTypeFree - variantTypeFree , - - --- ** variantTypeGetStringLength - variantTypeGetStringLength , - - --- ** variantTypeHash - variantTypeHash , - - --- ** variantTypeIsArray - variantTypeIsArray , - - --- ** variantTypeIsBasic - variantTypeIsBasic , - - --- ** variantTypeIsContainer - variantTypeIsContainer , - - --- ** variantTypeIsDefinite - variantTypeIsDefinite , - - --- ** variantTypeIsDictEntry - variantTypeIsDictEntry , - - --- ** variantTypeIsMaybe - variantTypeIsMaybe , - - --- ** variantTypeIsSubtypeOf - variantTypeIsSubtypeOf , - - --- ** variantTypeIsTuple - variantTypeIsTuple , - - --- ** variantTypeIsVariant - variantTypeIsVariant , - - --- ** variantTypeKey - variantTypeKey , - - --- ** variantTypeNItems - variantTypeNItems , - - --- ** variantTypeNew - variantTypeNew , - - --- ** variantTypeNewArray - variantTypeNewArray , - - --- ** variantTypeNewDictEntry - variantTypeNewDictEntry , - - --- ** variantTypeNewMaybe - variantTypeNewMaybe , - - --- ** variantTypeNewTuple - variantTypeNewTuple , - - --- ** variantTypeNext - variantTypeNext , - - --- ** variantTypeValue - variantTypeValue , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype VariantType = VariantType (ForeignPtr VariantType) -foreign import ccall "g_variant_type_get_gtype" c_g_variant_type_get_gtype :: - IO GType - -instance BoxedObject VariantType where - boxedType _ = c_g_variant_type_get_gtype - -noVariantType :: Maybe VariantType -noVariantType = Nothing - --- method VariantType::new --- method type : Constructor --- Args : [Arg {argName = "type_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "type_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "VariantType" --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_new" g_variant_type_new :: - CString -> -- type_string : TBasicType TUTF8 - IO (Ptr VariantType) - - -variantTypeNew :: - (MonadIO m) => - T.Text -> -- type_string - m VariantType -variantTypeNew type_string = liftIO $ do - type_string' <- textToCString type_string - result <- g_variant_type_new type_string' - checkUnexpectedReturnNULL "g_variant_type_new" result - result' <- (wrapBoxed VariantType) result - freeMem type_string' - return result' - --- method VariantType::new_array --- method type : Constructor --- Args : [Arg {argName = "element", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "element", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "VariantType" --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_new_array" g_variant_type_new_array :: - Ptr VariantType -> -- element : TInterface "GLib" "VariantType" - IO (Ptr VariantType) - - -variantTypeNewArray :: - (MonadIO m) => - VariantType -> -- element - m VariantType -variantTypeNewArray element = liftIO $ do - let element' = unsafeManagedPtrGetPtr element - result <- g_variant_type_new_array element' - checkUnexpectedReturnNULL "g_variant_type_new_array" result - result' <- (wrapBoxed VariantType) result - touchManagedPtr element - return result' - --- method VariantType::new_dict_entry --- method type : Constructor --- Args : [Arg {argName = "key", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "key", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "VariantType" --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_new_dict_entry" g_variant_type_new_dict_entry :: - Ptr VariantType -> -- key : TInterface "GLib" "VariantType" - Ptr VariantType -> -- value : TInterface "GLib" "VariantType" - IO (Ptr VariantType) - - -variantTypeNewDictEntry :: - (MonadIO m) => - VariantType -> -- key - VariantType -> -- value - m VariantType -variantTypeNewDictEntry key value = liftIO $ do - let key' = unsafeManagedPtrGetPtr key - let value' = unsafeManagedPtrGetPtr value - result <- g_variant_type_new_dict_entry key' value' - checkUnexpectedReturnNULL "g_variant_type_new_dict_entry" result - result' <- (wrapBoxed VariantType) result - touchManagedPtr key - touchManagedPtr value - return result' - --- method VariantType::new_maybe --- method type : Constructor --- Args : [Arg {argName = "element", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "element", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "VariantType" --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_new_maybe" g_variant_type_new_maybe :: - Ptr VariantType -> -- element : TInterface "GLib" "VariantType" - IO (Ptr VariantType) - - -variantTypeNewMaybe :: - (MonadIO m) => - VariantType -> -- element - m VariantType -variantTypeNewMaybe element = liftIO $ do - let element' = unsafeManagedPtrGetPtr element - result <- g_variant_type_new_maybe element' - checkUnexpectedReturnNULL "g_variant_type_new_maybe" result - result' <- (wrapBoxed VariantType) result - touchManagedPtr element - return result' - --- method VariantType::new_tuple --- method type : Constructor --- Args : [Arg {argName = "items", argType = TCArray False (-1) 1 (TInterface "GLib" "VariantType"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "items", argType = TCArray False (-1) 1 (TInterface "GLib" "VariantType"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "VariantType" --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_new_tuple" g_variant_type_new_tuple :: - Ptr (Ptr VariantType) -> -- items : TCArray False (-1) 1 (TInterface "GLib" "VariantType") - Int32 -> -- length : TBasicType TInt32 - IO (Ptr VariantType) - - -variantTypeNewTuple :: - (MonadIO m) => - [VariantType] -> -- items - m VariantType -variantTypeNewTuple items = liftIO $ do - let length_ = fromIntegral $ length items - let items' = map unsafeManagedPtrGetPtr items - items'' <- packPtrArray items' - result <- g_variant_type_new_tuple items'' length_ - checkUnexpectedReturnNULL "g_variant_type_new_tuple" result - result' <- (wrapBoxed VariantType) result - mapM_ touchManagedPtr items - freeMem items'' - return result' - --- method VariantType::copy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "VariantType" --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_copy" g_variant_type_copy :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO (Ptr VariantType) - - -variantTypeCopy :: - (MonadIO m) => - VariantType -> -- _obj - m VariantType -variantTypeCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_type_copy _obj' - checkUnexpectedReturnNULL "g_variant_type_copy" result - result' <- (wrapBoxed VariantType) result - touchManagedPtr _obj - return result' - --- method VariantType::dup_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_dup_string" g_variant_type_dup_string :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO CString - - -variantTypeDupString :: - (MonadIO m) => - VariantType -> -- _obj - m T.Text -variantTypeDupString _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_type_dup_string _obj' - checkUnexpectedReturnNULL "g_variant_type_dup_string" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method VariantType::element --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "VariantType" --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_element" g_variant_type_element :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO (Ptr VariantType) - - -variantTypeElement :: - (MonadIO m) => - VariantType -> -- _obj - m VariantType -variantTypeElement _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_type_element _obj' - checkUnexpectedReturnNULL "g_variant_type_element" result - result' <- (newBoxed VariantType) result - touchManagedPtr _obj - return result' - --- method VariantType::equal --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type2", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type2", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_equal" g_variant_type_equal :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - Ptr VariantType -> -- type2 : TInterface "GLib" "VariantType" - IO CInt - - -variantTypeEqual :: - (MonadIO m) => - VariantType -> -- _obj - VariantType -> -- type2 - m Bool -variantTypeEqual _obj type2 = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let type2' = unsafeManagedPtrGetPtr type2 - result <- g_variant_type_equal _obj' type2' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr type2 - return result' - --- method VariantType::first --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "VariantType" --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_first" g_variant_type_first :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO (Ptr VariantType) - - -variantTypeFirst :: - (MonadIO m) => - VariantType -> -- _obj - m VariantType -variantTypeFirst _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_type_first _obj' - checkUnexpectedReturnNULL "g_variant_type_first" result - result' <- (newBoxed VariantType) result - touchManagedPtr _obj - return result' - --- method VariantType::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_free" g_variant_type_free :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO () - - -variantTypeFree :: - (MonadIO m) => - VariantType -> -- _obj - m () -variantTypeFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_variant_type_free _obj' - touchManagedPtr _obj - return () - --- method VariantType::get_string_length --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt64 --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_get_string_length" g_variant_type_get_string_length :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO Word64 - - -variantTypeGetStringLength :: - (MonadIO m) => - VariantType -> -- _obj - m Word64 -variantTypeGetStringLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_type_get_string_length _obj' - touchManagedPtr _obj - return result - --- method VariantType::hash --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_hash" g_variant_type_hash :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO Word32 - - -variantTypeHash :: - (MonadIO m) => - VariantType -> -- _obj - m Word32 -variantTypeHash _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_type_hash _obj' - touchManagedPtr _obj - return result - --- method VariantType::is_array --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_is_array" g_variant_type_is_array :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO CInt - - -variantTypeIsArray :: - (MonadIO m) => - VariantType -> -- _obj - m Bool -variantTypeIsArray _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_type_is_array _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method VariantType::is_basic --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_is_basic" g_variant_type_is_basic :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO CInt - - -variantTypeIsBasic :: - (MonadIO m) => - VariantType -> -- _obj - m Bool -variantTypeIsBasic _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_type_is_basic _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method VariantType::is_container --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_is_container" g_variant_type_is_container :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO CInt - - -variantTypeIsContainer :: - (MonadIO m) => - VariantType -> -- _obj - m Bool -variantTypeIsContainer _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_type_is_container _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method VariantType::is_definite --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_is_definite" g_variant_type_is_definite :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO CInt - - -variantTypeIsDefinite :: - (MonadIO m) => - VariantType -> -- _obj - m Bool -variantTypeIsDefinite _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_type_is_definite _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method VariantType::is_dict_entry --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_is_dict_entry" g_variant_type_is_dict_entry :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO CInt - - -variantTypeIsDictEntry :: - (MonadIO m) => - VariantType -> -- _obj - m Bool -variantTypeIsDictEntry _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_type_is_dict_entry _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method VariantType::is_maybe --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_is_maybe" g_variant_type_is_maybe :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO CInt - - -variantTypeIsMaybe :: - (MonadIO m) => - VariantType -> -- _obj - m Bool -variantTypeIsMaybe _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_type_is_maybe _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method VariantType::is_subtype_of --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "supertype", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "supertype", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_is_subtype_of" g_variant_type_is_subtype_of :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - Ptr VariantType -> -- supertype : TInterface "GLib" "VariantType" - IO CInt - - -variantTypeIsSubtypeOf :: - (MonadIO m) => - VariantType -> -- _obj - VariantType -> -- supertype - m Bool -variantTypeIsSubtypeOf _obj supertype = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let supertype' = unsafeManagedPtrGetPtr supertype - result <- g_variant_type_is_subtype_of _obj' supertype' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr supertype - return result' - --- method VariantType::is_tuple --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_is_tuple" g_variant_type_is_tuple :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO CInt - - -variantTypeIsTuple :: - (MonadIO m) => - VariantType -> -- _obj - m Bool -variantTypeIsTuple _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_type_is_tuple _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method VariantType::is_variant --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_is_variant" g_variant_type_is_variant :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO CInt - - -variantTypeIsVariant :: - (MonadIO m) => - VariantType -> -- _obj - m Bool -variantTypeIsVariant _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_type_is_variant _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method VariantType::key --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "VariantType" --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_key" g_variant_type_key :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO (Ptr VariantType) - - -variantTypeKey :: - (MonadIO m) => - VariantType -> -- _obj - m VariantType -variantTypeKey _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_type_key _obj' - checkUnexpectedReturnNULL "g_variant_type_key" result - result' <- (newBoxed VariantType) result - touchManagedPtr _obj - return result' - --- method VariantType::n_items --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt64 --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_n_items" g_variant_type_n_items :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO Word64 - - -variantTypeNItems :: - (MonadIO m) => - VariantType -> -- _obj - m Word64 -variantTypeNItems _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_type_n_items _obj' - touchManagedPtr _obj - return result - --- method VariantType::next --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "VariantType" --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_next" g_variant_type_next :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO (Ptr VariantType) - - -variantTypeNext :: - (MonadIO m) => - VariantType -> -- _obj - m VariantType -variantTypeNext _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_type_next _obj' - checkUnexpectedReturnNULL "g_variant_type_next" result - result' <- (newBoxed VariantType) result - touchManagedPtr _obj - return result' - --- method VariantType::value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "VariantType" --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_value" g_variant_type_value :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO (Ptr VariantType) - - -variantTypeValue :: - (MonadIO m) => - VariantType -> -- _obj - m VariantType -variantTypeValue _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_type_value _obj' - checkUnexpectedReturnNULL "g_variant_type_value" result - result' <- (newBoxed VariantType) result - touchManagedPtr _obj - return result' - - diff --git a/GI/GLib/Structs/VariantType.hs-boot b/GI/GLib/Structs/VariantType.hs-boot deleted file mode 100644 --- a/GI/GLib/Structs/VariantType.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.GLib.Structs.VariantType 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 - -newtype VariantType = VariantType (ForeignPtr VariantType) -instance BoxedObject VariantType where diff --git a/GI/GLib/Types.hs b/GI/GLib/Types.hs deleted file mode 100644 --- a/GI/GLib/Types.hs +++ /dev/null @@ -1,148 +0,0 @@ -module GI.GLib.Types - ( module GI.GLib.Structs.AsyncQueue , - module GI.GLib.Structs.BookmarkFile , - module GI.GLib.Structs.ByteArray , - module GI.GLib.Structs.Bytes , - module GI.GLib.Structs.Checksum , - module GI.GLib.Structs.Cond , - module GI.GLib.Structs.Data , - module GI.GLib.Structs.Date , - module GI.GLib.Structs.DateTime , - module GI.GLib.Structs.DebugKey , - module GI.GLib.Structs.Dir , - module GI.GLib.Structs.HashTableIter , - module GI.GLib.Structs.Hmac , - module GI.GLib.Structs.Hook , - module GI.GLib.Structs.HookList , - module GI.GLib.Structs.IConv , - module GI.GLib.Structs.IOChannel , - module GI.GLib.Structs.IOFuncs , - module GI.GLib.Structs.KeyFile , - module GI.GLib.Structs.MainContext , - module GI.GLib.Structs.MainLoop , - module GI.GLib.Structs.MappedFile , - module GI.GLib.Structs.MarkupParseContext, - module GI.GLib.Structs.MarkupParser , - module GI.GLib.Structs.MatchInfo , - module GI.GLib.Structs.MemVTable , - module GI.GLib.Structs.Node , - module GI.GLib.Structs.Once , - module GI.GLib.Structs.OptionContext , - module GI.GLib.Structs.OptionEntry , - module GI.GLib.Structs.OptionGroup , - module GI.GLib.Structs.PatternSpec , - module GI.GLib.Structs.PollFD , - module GI.GLib.Structs.PtrArray , - module GI.GLib.Structs.Queue , - module GI.GLib.Structs.RWLock , - module GI.GLib.Structs.Rand , - module GI.GLib.Structs.RecMutex , - module GI.GLib.Structs.Regex , - module GI.GLib.Structs.Scanner , - module GI.GLib.Structs.ScannerConfig , - module GI.GLib.Structs.Sequence , - module GI.GLib.Structs.SequenceIter , - module GI.GLib.Structs.Source , - module GI.GLib.Structs.SourceCallbackFuncs, - module GI.GLib.Structs.SourceFuncs , - module GI.GLib.Structs.StatBuf , - module GI.GLib.Structs.String , - module GI.GLib.Structs.StringChunk , - module GI.GLib.Structs.TestCase , - module GI.GLib.Structs.TestConfig , - module GI.GLib.Structs.TestLogBuffer , - module GI.GLib.Structs.TestLogMsg , - module GI.GLib.Structs.TestSuite , - module GI.GLib.Structs.Thread , - module GI.GLib.Structs.ThreadPool , - module GI.GLib.Structs.TimeVal , - module GI.GLib.Structs.TimeZone , - module GI.GLib.Structs.Timer , - module GI.GLib.Structs.TrashStack , - module GI.GLib.Structs.Tree , - module GI.GLib.Structs.VariantBuilder , - module GI.GLib.Structs.VariantDict , - module GI.GLib.Structs.VariantType , - module GI.GLib.Unions.DoubleIEEE754 , - module GI.GLib.Unions.FloatIEEE754 , - module GI.GLib.Unions.Mutex , - module GI.GLib.Unions.TokenValue , - module GI.GLib.Enums , - module GI.GLib.Flags , - - - ) where - - -import {-# SOURCE #-} GI.GLib.Structs.AsyncQueue -import {-# SOURCE #-} GI.GLib.Structs.BookmarkFile -import {-# SOURCE #-} GI.GLib.Structs.ByteArray -import {-# SOURCE #-} GI.GLib.Structs.Bytes -import {-# SOURCE #-} GI.GLib.Structs.Checksum -import {-# SOURCE #-} GI.GLib.Structs.Cond -import {-# SOURCE #-} GI.GLib.Structs.Data -import {-# SOURCE #-} GI.GLib.Structs.Date -import {-# SOURCE #-} GI.GLib.Structs.DateTime -import {-# SOURCE #-} GI.GLib.Structs.DebugKey -import {-# SOURCE #-} GI.GLib.Structs.Dir -import {-# SOURCE #-} GI.GLib.Structs.HashTableIter -import {-# SOURCE #-} GI.GLib.Structs.Hmac -import {-# SOURCE #-} GI.GLib.Structs.Hook -import {-# SOURCE #-} GI.GLib.Structs.HookList -import {-# SOURCE #-} GI.GLib.Structs.IConv -import {-# SOURCE #-} GI.GLib.Structs.IOChannel -import {-# SOURCE #-} GI.GLib.Structs.IOFuncs -import {-# SOURCE #-} GI.GLib.Structs.KeyFile -import {-# SOURCE #-} GI.GLib.Structs.MainContext -import {-# SOURCE #-} GI.GLib.Structs.MainLoop -import {-# SOURCE #-} GI.GLib.Structs.MappedFile -import {-# SOURCE #-} GI.GLib.Structs.MarkupParseContext -import {-# SOURCE #-} GI.GLib.Structs.MarkupParser -import {-# SOURCE #-} GI.GLib.Structs.MatchInfo -import {-# SOURCE #-} GI.GLib.Structs.MemVTable -import {-# SOURCE #-} GI.GLib.Structs.Node -import {-# SOURCE #-} GI.GLib.Structs.Once -import {-# SOURCE #-} GI.GLib.Structs.OptionContext -import {-# SOURCE #-} GI.GLib.Structs.OptionEntry -import {-# SOURCE #-} GI.GLib.Structs.OptionGroup -import {-# SOURCE #-} GI.GLib.Structs.PatternSpec -import {-# SOURCE #-} GI.GLib.Structs.PollFD -import {-# SOURCE #-} GI.GLib.Structs.PtrArray -import {-# SOURCE #-} GI.GLib.Structs.Queue -import {-# SOURCE #-} GI.GLib.Structs.RWLock -import {-# SOURCE #-} GI.GLib.Structs.Rand -import {-# SOURCE #-} GI.GLib.Structs.RecMutex -import {-# SOURCE #-} GI.GLib.Structs.Regex -import {-# SOURCE #-} GI.GLib.Structs.Scanner -import {-# SOURCE #-} GI.GLib.Structs.ScannerConfig -import {-# SOURCE #-} GI.GLib.Structs.Sequence -import {-# SOURCE #-} GI.GLib.Structs.SequenceIter -import {-# SOURCE #-} GI.GLib.Structs.Source -import {-# SOURCE #-} GI.GLib.Structs.SourceCallbackFuncs -import {-# SOURCE #-} GI.GLib.Structs.SourceFuncs -import {-# SOURCE #-} GI.GLib.Structs.StatBuf -import {-# SOURCE #-} GI.GLib.Structs.String -import {-# SOURCE #-} GI.GLib.Structs.StringChunk -import {-# SOURCE #-} GI.GLib.Structs.TestCase -import {-# SOURCE #-} GI.GLib.Structs.TestConfig -import {-# SOURCE #-} GI.GLib.Structs.TestLogBuffer -import {-# SOURCE #-} GI.GLib.Structs.TestLogMsg -import {-# SOURCE #-} GI.GLib.Structs.TestSuite -import {-# SOURCE #-} GI.GLib.Structs.Thread -import {-# SOURCE #-} GI.GLib.Structs.ThreadPool -import {-# SOURCE #-} GI.GLib.Structs.TimeVal -import {-# SOURCE #-} GI.GLib.Structs.TimeZone -import {-# SOURCE #-} GI.GLib.Structs.Timer -import {-# SOURCE #-} GI.GLib.Structs.TrashStack -import {-# SOURCE #-} GI.GLib.Structs.Tree -import {-# SOURCE #-} GI.GLib.Structs.VariantBuilder -import {-# SOURCE #-} GI.GLib.Structs.VariantDict -import {-# SOURCE #-} GI.GLib.Structs.VariantType -import {-# SOURCE #-} GI.GLib.Unions.DoubleIEEE754 -import {-# SOURCE #-} GI.GLib.Unions.FloatIEEE754 -import {-# SOURCE #-} GI.GLib.Unions.Mutex -import {-# SOURCE #-} GI.GLib.Unions.TokenValue - -import GI.GLib.Enums -import GI.GLib.Flags - diff --git a/GI/GLib/Unions.hs b/GI/GLib/Unions.hs deleted file mode 100644 --- a/GI/GLib/Unions.hs +++ /dev/null @@ -1,32 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.GLib.Unions - ( module GI.GLib.Unions.DoubleIEEE754 , - module GI.GLib.Unions.FloatIEEE754 , - module GI.GLib.Unions.Mutex , - module GI.GLib.Unions.TokenValue , - - - ) where - -import GI.GLib.Unions.DoubleIEEE754 -import GI.GLib.Unions.FloatIEEE754 -import GI.GLib.Unions.Mutex -import GI.GLib.Unions.TokenValue - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - - diff --git a/GI/GLib/Unions/DoubleIEEE754.hs b/GI/GLib/Unions/DoubleIEEE754.hs deleted file mode 100644 --- a/GI/GLib/Unions/DoubleIEEE754.hs +++ /dev/null @@ -1,45 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.GLib.Unions.DoubleIEEE754 - ( - --- * Exported types - DoubleIEEE754(..) , - noDoubleIEEE754 , - - - -- * Properties --- ** VDouble - doubleIEEE754ReadVDouble , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype DoubleIEEE754 = DoubleIEEE754 (ForeignPtr DoubleIEEE754) -noDoubleIEEE754 :: Maybe DoubleIEEE754 -noDoubleIEEE754 = Nothing - -doubleIEEE754ReadVDouble :: DoubleIEEE754 -> IO Double -doubleIEEE754ReadVDouble s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CDouble - let val' = realToFrac val - return val' - - diff --git a/GI/GLib/Unions/DoubleIEEE754.hs-boot b/GI/GLib/Unions/DoubleIEEE754.hs-boot deleted file mode 100644 --- a/GI/GLib/Unions/DoubleIEEE754.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Unions.DoubleIEEE754 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 - -newtype DoubleIEEE754 = DoubleIEEE754 (ForeignPtr DoubleIEEE754) diff --git a/GI/GLib/Unions/FloatIEEE754.hs b/GI/GLib/Unions/FloatIEEE754.hs deleted file mode 100644 --- a/GI/GLib/Unions/FloatIEEE754.hs +++ /dev/null @@ -1,45 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.GLib.Unions.FloatIEEE754 - ( - --- * Exported types - FloatIEEE754(..) , - noFloatIEEE754 , - - - -- * Properties --- ** VFloat - floatIEEE754ReadVFloat , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype FloatIEEE754 = FloatIEEE754 (ForeignPtr FloatIEEE754) -noFloatIEEE754 :: Maybe FloatIEEE754 -noFloatIEEE754 = Nothing - -floatIEEE754ReadVFloat :: FloatIEEE754 -> IO Float -floatIEEE754ReadVFloat s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CFloat - let val' = realToFrac val - return val' - - diff --git a/GI/GLib/Unions/FloatIEEE754.hs-boot b/GI/GLib/Unions/FloatIEEE754.hs-boot deleted file mode 100644 --- a/GI/GLib/Unions/FloatIEEE754.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Unions.FloatIEEE754 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 - -newtype FloatIEEE754 = FloatIEEE754 (ForeignPtr FloatIEEE754) diff --git a/GI/GLib/Unions/Mutex.hs b/GI/GLib/Unions/Mutex.hs deleted file mode 100644 --- a/GI/GLib/Unions/Mutex.hs +++ /dev/null @@ -1,176 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.GLib.Unions.Mutex - ( - --- * Exported types - Mutex(..) , - noMutex , - - - -- * Methods --- ** mutexClear - mutexClear , - - --- ** mutexInit - mutexInit , - - --- ** mutexLock - mutexLock , - - --- ** mutexTrylock - mutexTrylock , - - --- ** mutexUnlock - mutexUnlock , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Mutex = Mutex (ForeignPtr Mutex) -noMutex :: Maybe Mutex -noMutex = Nothing - --- method Mutex::clear --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_mutex_clear" g_mutex_clear :: - Ptr Mutex -> -- _obj : TInterface "GLib" "Mutex" - IO () - - -mutexClear :: - (MonadIO m) => - Mutex -> -- _obj - m () -mutexClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_mutex_clear _obj' - touchManagedPtr _obj - return () - --- method Mutex::init --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_mutex_init" g_mutex_init :: - Ptr Mutex -> -- _obj : TInterface "GLib" "Mutex" - IO () - - -mutexInit :: - (MonadIO m) => - Mutex -> -- _obj - m () -mutexInit _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_mutex_init _obj' - touchManagedPtr _obj - return () - --- method Mutex::lock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_mutex_lock" g_mutex_lock :: - Ptr Mutex -> -- _obj : TInterface "GLib" "Mutex" - IO () - - -mutexLock :: - (MonadIO m) => - Mutex -> -- _obj - m () -mutexLock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_mutex_lock _obj' - touchManagedPtr _obj - return () - --- method Mutex::trylock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "g_mutex_trylock" g_mutex_trylock :: - Ptr Mutex -> -- _obj : TInterface "GLib" "Mutex" - IO CInt - - -mutexTrylock :: - (MonadIO m) => - Mutex -> -- _obj - m Bool -mutexTrylock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_mutex_trylock _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Mutex::unlock --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "g_mutex_unlock" g_mutex_unlock :: - Ptr Mutex -> -- _obj : TInterface "GLib" "Mutex" - IO () - - -mutexUnlock :: - (MonadIO m) => - Mutex -> -- _obj - m () -mutexUnlock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_mutex_unlock _obj' - touchManagedPtr _obj - return () - - diff --git a/GI/GLib/Unions/Mutex.hs-boot b/GI/GLib/Unions/Mutex.hs-boot deleted file mode 100644 --- a/GI/GLib/Unions/Mutex.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Unions.Mutex 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 - -newtype Mutex = Mutex (ForeignPtr Mutex) diff --git a/GI/GLib/Unions/TokenValue.hs b/GI/GLib/Unions/TokenValue.hs deleted file mode 100644 --- a/GI/GLib/Unions/TokenValue.hs +++ /dev/null @@ -1,147 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.GLib.Unions.TokenValue - ( - --- * Exported types - TokenValue(..) , - noTokenValue , - - - -- * Properties --- ** VBinary - tokenValueReadVBinary , - - --- ** VChar - tokenValueReadVChar , - - --- ** VComment - tokenValueReadVComment , - - --- ** VError - tokenValueReadVError , - - --- ** VFloat - tokenValueReadVFloat , - - --- ** VHex - tokenValueReadVHex , - - --- ** VIdentifier - tokenValueReadVIdentifier , - - --- ** VInt - tokenValueReadVInt , - - --- ** VInt64 - tokenValueReadVInt64 , - - --- ** VOctal - tokenValueReadVOctal , - - --- ** VString - tokenValueReadVString , - - --- ** VSymbol - tokenValueReadVSymbol , - - - - - ) where - -import Prelude () -import Data.GI.Base.ShortPrelude - -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype TokenValue = TokenValue (ForeignPtr TokenValue) -noTokenValue :: Maybe TokenValue -noTokenValue = Nothing - -tokenValueReadVSymbol :: TokenValue -> IO (Ptr ()) -tokenValueReadVSymbol s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr ()) - return val - -tokenValueReadVIdentifier :: TokenValue -> IO T.Text -tokenValueReadVIdentifier s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' - -tokenValueReadVBinary :: TokenValue -> IO Word64 -tokenValueReadVBinary s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word64 - return val - -tokenValueReadVOctal :: TokenValue -> IO Word64 -tokenValueReadVOctal s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word64 - return val - -tokenValueReadVInt :: TokenValue -> IO Word64 -tokenValueReadVInt s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word64 - return val - -tokenValueReadVInt64 :: TokenValue -> IO Word64 -tokenValueReadVInt64 s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word64 - return val - -tokenValueReadVFloat :: TokenValue -> IO Double -tokenValueReadVFloat s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CDouble - let val' = realToFrac val - return val' - -tokenValueReadVHex :: TokenValue -> IO Word64 -tokenValueReadVHex s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word64 - return val - -tokenValueReadVString :: TokenValue -> IO T.Text -tokenValueReadVString s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' - -tokenValueReadVComment :: TokenValue -> IO T.Text -tokenValueReadVComment s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' - -tokenValueReadVChar :: TokenValue -> IO Word8 -tokenValueReadVChar s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word8 - return val - -tokenValueReadVError :: TokenValue -> IO Word32 -tokenValueReadVError s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word32 - return val - - diff --git a/GI/GLib/Unions/TokenValue.hs-boot b/GI/GLib/Unions/TokenValue.hs-boot deleted file mode 100644 --- a/GI/GLib/Unions/TokenValue.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.GLib.Unions.TokenValue 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 - -newtype TokenValue = TokenValue (ForeignPtr TokenValue) diff --git a/GI/GLibAttributes.hs b/GI/GLibAttributes.hs new file mode 100644 --- /dev/null +++ b/GI/GLibAttributes.hs @@ -0,0 +1,48 @@ +{-# OPTIONS_GHC -fno-warn-orphans -fno-warn-unused-imports #-} + +-- Generated code. + +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +{-# LANGUAGE ForeignFunctionInterface, ConstraintKinds, + TypeFamilies, MultiParamTypeClasses, KindSignatures, + FlexibleInstances, UndecidableInstances, DataKinds, + OverloadedStrings, NegativeLiterals, FlexibleContexts #-} + +module GI.GLibAttributes where + +import Prelude () +import Data.GI.Base.ShortPrelude +import Data.Char +import Data.Int +import Data.Word +import qualified Data.ByteString.Char8 as B +import Data.ByteString.Char8 (ByteString) +import qualified Data.Map as Map +import Foreign.C +import Foreign.Ptr +import Foreign.ForeignPtr +import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr) +import Foreign.Storable (peek, poke, sizeOf) +import Control.Applicative ((<$>)) +import Control.Exception (onException) +import Control.Monad.IO.Class +import qualified Data.Text as T + +import Data.GI.Base.Attributes hiding (get, set) +import Data.GI.Base.BasicTypes +import Data.GI.Base.BasicConversions +import Data.GI.Base.Closure +import Data.GI.Base.GError +import Data.GI.Base.GHashTable +import Data.GI.Base.GParamSpec +import Data.GI.Base.GVariant +import Data.GI.Base.GValue +import Data.GI.Base.ManagedPtr +import Data.GI.Base.Overloading +import Data.GI.Base.Properties hiding (new) +import Data.GI.Base.Signals (SignalConnectMode(..), connectSignalFunPtr, SignalHandlerId) +import Data.GI.Base.Utils + +import GI.GLib + diff --git a/GI/GLibSignals.hs b/GI/GLibSignals.hs new file mode 100644 --- /dev/null +++ b/GI/GLibSignals.hs @@ -0,0 +1,16 @@ +-- Generated code. + +{-# OPTIONS_GHC -fno-warn-orphans #-} + +{-# LANGUAGE DataKinds, FlexibleInstances, + TypeFamilies, MultiParamTypeClasses, + TypeOperators #-} + +module GI.GLibSignals where + +import Data.GI.Base.Properties (GObjectNotifySignalInfo) +import Data.GI.Base.Signals +import Data.GI.Base.Overloading + +import GI.GLib + diff --git a/gi-glib.cabal b/gi-glib.cabal --- a/gi-glib.cabal +++ b/gi-glib.cabal @@ -1,6 +1,6 @@ -- Autogenerated, do not edit. name: gi-glib -version: 0.2.44.12 +version: 0.2.46.10 synopsis: GLib bindings description: Bindings for GLib, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi @@ -14,89 +14,10 @@ library default-language: Haskell2010 - default-extensions: OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts - other-extensions: PatternSynonyms ScopedTypeVariables, ViewPatterns - ghc-options: -fno-warn-unused-imports -fno-warn-warnings-deprecations - exposed-modules: GI.GLib.Types - GI.GLib - GI.GLib.Callbacks - GI.GLib.Constants - GI.GLib.Enums - GI.GLib.Flags - GI.GLib.Functions - GI.GLib.Structs - GI.GLib.Structs.AsyncQueue - GI.GLib.Structs.BookmarkFile - GI.GLib.Structs.ByteArray - GI.GLib.Structs.Bytes - GI.GLib.Structs.Checksum - GI.GLib.Structs.Cond - GI.GLib.Structs.Data - GI.GLib.Structs.Date - GI.GLib.Structs.DateTime - GI.GLib.Structs.DebugKey - GI.GLib.Structs.Dir - GI.GLib.Structs.HashTableIter - GI.GLib.Structs.Hmac - GI.GLib.Structs.Hook - GI.GLib.Structs.HookList - GI.GLib.Structs.IConv - GI.GLib.Structs.IOChannel - GI.GLib.Structs.IOFuncs - GI.GLib.Structs.KeyFile - GI.GLib.Structs.MainContext - GI.GLib.Structs.MainLoop - GI.GLib.Structs.MappedFile - GI.GLib.Structs.MarkupParseContext - GI.GLib.Structs.MarkupParser - GI.GLib.Structs.MatchInfo - GI.GLib.Structs.MemVTable - GI.GLib.Structs.Node - GI.GLib.Structs.Once - GI.GLib.Structs.OptionContext - GI.GLib.Structs.OptionEntry - GI.GLib.Structs.OptionGroup - GI.GLib.Structs.PatternSpec - GI.GLib.Structs.PollFD - GI.GLib.Structs.PtrArray - GI.GLib.Structs.Queue - GI.GLib.Structs.RWLock - GI.GLib.Structs.Rand - GI.GLib.Structs.RecMutex - GI.GLib.Structs.Regex - GI.GLib.Structs.Scanner - GI.GLib.Structs.ScannerConfig - GI.GLib.Structs.Sequence - GI.GLib.Structs.SequenceIter - GI.GLib.Structs.Source - GI.GLib.Structs.SourceCallbackFuncs - GI.GLib.Structs.SourceFuncs - GI.GLib.Structs.StatBuf - GI.GLib.Structs.String - GI.GLib.Structs.StringChunk - GI.GLib.Structs.TestCase - GI.GLib.Structs.TestConfig - GI.GLib.Structs.TestLogBuffer - GI.GLib.Structs.TestLogMsg - GI.GLib.Structs.TestSuite - GI.GLib.Structs.Thread - GI.GLib.Structs.ThreadPool - GI.GLib.Structs.TimeVal - GI.GLib.Structs.TimeZone - GI.GLib.Structs.Timer - GI.GLib.Structs.TrashStack - GI.GLib.Structs.Tree - GI.GLib.Structs.VariantBuilder - GI.GLib.Structs.VariantDict - GI.GLib.Structs.VariantType - GI.GLib.Unions - GI.GLib.Unions.DoubleIEEE754 - GI.GLib.Unions.FloatIEEE754 - GI.GLib.Unions.Mutex - GI.GLib.Unions.TokenValue - pkgconfig-depends: glib-2.0 >= 2.44 + exposed-modules: GI.GLib, GI.GLibAttributes, GI.GLibSignals + pkgconfig-depends: glib-2.0 >= 2.46 build-depends: base >= 4.7 && <5, - haskell-gi-base >= 0.12 && < 1, + haskell-gi-base >= 0.10 && < 1, bytestring >= 0.10, containers >= 0.5, text >= 1.0,