diff --git a/GI/GLib.hs b/GI/GLib.hs deleted file mode 100644 --- a/GI/GLib.hs +++ /dev/null @@ -1,44 +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 - ( 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 , - - - - module Data.GI.Base , - - - ) 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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -import Data.GI.Base - diff --git a/GI/GLib/Callbacks.hs b/GI/GLib/Callbacks.hs deleted file mode 100644 --- a/GI/GLib/Callbacks.hs +++ /dev/null @@ -1,2554 +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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.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 logDomain logLevel message _ = do - logDomain' <- cstringToText logDomain - let logLevel' = wordToGFlags logLevel - message' <- cstringToText message - result <- _cb logDomain' logLevel' 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 cbData = do - _cb cbData - 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 cbData = do - _cb cbData - 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 - a' <- (newPtr SequenceIter) a - b' <- (newPtr SequenceIter) 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 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 matchInfo result_ _ = do - matchInfo' <- (newBoxed MatchInfo) matchInfo - result_' <- (newBoxed String) result_ - result <- _cb matchInfo' 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 - context' <- (newPtr OptionContext) 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 - context' <- (newPtr OptionContext) 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 optionName value data_ = do - optionName' <- cstringToText optionName - value' <- cstringToText value - result <- _cb optionName' 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 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 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 textLen _ = do - context' <- (newBoxed MarkupParseContext) context - text' <- cstringToText text - _cb context' text' textLen - 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 elementName attributeNames attributeValues _ = do - context' <- (newBoxed MarkupParseContext) context - elementName' <- cstringToText elementName - attributeNames' <- cstringToText attributeNames - attributeValues' <- cstringToText attributeValues - _cb context' elementName' attributeNames' attributeValues' - 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 passthroughText textLen _ = do - context' <- (newBoxed MarkupParseContext) context - passthroughText' <- cstringToText passthroughText - _cb context' passthroughText' textLen - 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 elementName _ = do - context' <- (newBoxed MarkupParseContext) context - elementName' <- cstringToText elementName - _cb context' elementName' - 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 logDomain logLevel message _ = do - logDomain' <- cstringToText logDomain - let logLevel' = wordToGFlags logLevel - message' <- cstringToText message - _cb logDomain' logLevel' 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 bytesWritten = do - channel' <- (newBoxed IOChannel) channel - buf' <- cstringToText buf - result <- _cb channel' buf' count bytesWritten - 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 bytesRead = do - channel' <- (newBoxed IOChannel) channel - buf' <- cstringToText buf - result <- _cb channel' buf' count bytesRead - 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 marshalData = do - hook' <- (newPtr Hook) hook - _cb hook' marshalData - 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 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 hookList hook = do - hookList' <- (newPtr HookList) hookList - hook' <- (newPtr Hook) hook - _cb hookList' 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 newHook sibling = do - newHook' <- (newPtr Hook) newHook - sibling' <- (newPtr Hook) sibling - result <- _cb newHook' 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 marshalData = do - hook' <- (newPtr Hook) hook - result <- _cb hook' marshalData - 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 keyId data_ _ = do - _cb keyId 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,545 +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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.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 = 46 :: Int32 - - -pattern MININT8 = 128 :: Int8 - - -pattern MININT64 = -9223372036854775808 :: Int64 - - -pattern MININT32 = 2147483648 :: Int32 - - -pattern MININT16 = 32768 :: Int16 - - -pattern MICRO_VERSION = 0 :: 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,2152 +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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - - - - --- Enum 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,631 +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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - - - - --- Flags 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 BoxedFlags IOCondition where - boxedFlagsType _ = 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,11321 +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 , - - --- ** buildFilenamev - buildFilenamev , - - --- ** buildPathv - buildPathv , - - --- ** chdir - chdir , - - --- ** checkVersion - checkVersion , - - --- ** 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 , - - --- ** dcgettext - dcgettext , - - --- ** dgettext - dgettext , - - --- ** 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 , - - --- ** 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 , - - --- ** ioCreateWatch - ioCreateWatch , - - --- ** listenv - listenv , - - --- ** localeFromUtf8 - localeFromUtf8 , - - --- ** localeToUtf8 - localeToUtf8 , - - --- ** logDefaultHandler - logDefaultHandler , - - --- ** logRemoveHandler - logRemoveHandler , - - --- ** logSetAlwaysFatal - logSetAlwaysFatal , - - --- ** logSetFatalMask - logSetFatalMask , - - --- ** logSetHandler - logSetHandler , - - --- ** 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 , - - --- ** 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 , - - --- ** reloadUserSpecialDirsCache - reloadUserSpecialDirsCache , - - --- ** returnIfFailWarning - returnIfFailWarning , - - --- ** rmdir - rmdir , - - --- ** 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 , - - --- ** 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 , - - --- ** timeoutAdd - timeoutAdd , - - --- ** timeoutAddSeconds - timeoutAddSeconds , - - --- ** timeoutSourceNew - timeoutSourceNew , - - --- ** timeoutSourceNewSeconds - timeoutSourceNewSeconds , - - --- ** 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 , - - --- ** warnMessage - warnMessage , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - --- function g_warn_message --- Args : [Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "line", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "warnexpr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_warn_message" g_warn_message :: - CString -> -- domain : TBasicType TUTF8 - CString -> -- file : TBasicType TUTF8 - Int32 -> -- line : TBasicType TInt - 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 () -- result -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_get_gtype --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -variantGetGtype = liftIO $ do - result <- g_variant_get_gtype - let result' = GType result - return result' - - --- function g_utf8_validate --- Args : [Arg {argCName = "str", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "max_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (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) -- result -utf8Validate str = liftIO $ do - let maxLen = fromIntegral $ B.length str - str' <- packByteString str - end <- allocMem :: IO (Ptr CString) - result <- g_utf8_validate str' maxLen end - let result' = (/= 0) result - end' <- peek end - end'' <- cstringToText end' - freeMem str' - freeMem end - return (result', end'') - - --- function g_utf8_substring --- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_pos", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_utf8_substring" g_utf8_substring :: - CString -> -- str : TBasicType TUTF8 - CLong -> -- start_pos : TBasicType TLong - CLong -> -- end_pos : TBasicType TLong - IO CString - - -utf8Substring :: - (MonadIO m) => - T.Text -- str - -> CLong -- startPos - -> CLong -- endPos - -> m T.Text -- result -utf8Substring str startPos endPos = liftIO $ do - str' <- textToCString str - result <- g_utf8_substring str' startPos endPos - checkUnexpectedReturnNULL "g_utf8_substring" result - result' <- cstringToText result - freeMem result - freeMem str' - return result' - - --- function g_utf8_strup --- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- throws : False --- Skip return : False - -foreign import ccall "g_utf8_strlen" g_utf8_strlen :: - CString -> -- p : TBasicType TUTF8 - Int64 -> -- max : TBasicType TInt64 - IO CLong - - -utf8Strlen :: - (MonadIO m) => - T.Text -- p - -> Int64 -- max - -> m CLong -- result -utf8Strlen p max = liftIO $ do - p' <- textToCString p - result <- g_utf8_strlen p' max - freeMem p' - return result - - --- function g_utf8_strdown --- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_utf8_prev_char" g_utf8_prev_char :: - CString -> -- p : TBasicType TUTF8 - IO CString - - -utf8PrevChar :: - (MonadIO m) => - T.Text -- p - -> m T.Text -- result -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 {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -utf8PointerToOffset :: - (MonadIO m) => - T.Text -- str - -> T.Text -- pos - -> m CLong -- result -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 {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_utf8_offset_to_pointer" g_utf8_offset_to_pointer :: - CString -> -- str : TBasicType TUTF8 - CLong -> -- offset : TBasicType TLong - IO CString - - -utf8OffsetToPointer :: - (MonadIO m) => - T.Text -- str - -> CLong -- offset - -> m T.Text -- result -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 {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "GLib" "NormalizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- maxLen - -> m Char -- result -utf8GetCharValidated p maxLen = liftIO $ do - p' <- textToCString p - result <- g_utf8_get_char_validated p' maxLen - let result' = (chr . fromIntegral) result - freeMem p' - return result' - - --- function g_utf8_get_char --- Args : [Arg {argCName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "p", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "str1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "microseconds", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_usleep" g_usleep :: - CULong -> -- microseconds : TBasicType TULong - IO () - - -usleep :: - (MonadIO m) => - CULong -- microseconds - -> m () -- result -usleep microseconds = liftIO $ do - g_usleep microseconds - return () - - --- function g_uri_unescape_string --- Args : [Arg {argCName = "escaped_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "illegal_characters", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_uri_unescape_string" g_uri_unescape_string :: - CString -> -- escaped_string : TBasicType TUTF8 - CString -> -- illegal_characters : TBasicType TUTF8 - IO CString - - -uriUnescapeString :: - (MonadIO m) => - T.Text -- escapedString - -> Maybe (T.Text) -- illegalCharacters - -> m T.Text -- result -uriUnescapeString escapedString illegalCharacters = liftIO $ do - escapedString' <- textToCString escapedString - maybeIllegalCharacters <- case illegalCharacters of - Nothing -> return nullPtr - Just jIllegalCharacters -> do - jIllegalCharacters' <- textToCString jIllegalCharacters - return jIllegalCharacters' - result <- g_uri_unescape_string escapedString' maybeIllegalCharacters - checkUnexpectedReturnNULL "g_uri_unescape_string" result - result' <- cstringToText result - freeMem result - freeMem escapedString' - freeMem maybeIllegalCharacters - return result' - - --- function g_uri_unescape_segment --- Args : [Arg {argCName = "escaped_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "escaped_string_end", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "illegal_characters", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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) -- escapedString - -> Maybe (T.Text) -- escapedStringEnd - -> Maybe (T.Text) -- illegalCharacters - -> m T.Text -- result -uriUnescapeSegment escapedString escapedStringEnd illegalCharacters = liftIO $ do - maybeEscapedString <- case escapedString of - Nothing -> return nullPtr - Just jEscapedString -> do - jEscapedString' <- textToCString jEscapedString - return jEscapedString' - maybeEscapedStringEnd <- case escapedStringEnd of - Nothing -> return nullPtr - Just jEscapedStringEnd -> do - jEscapedStringEnd' <- textToCString jEscapedStringEnd - return jEscapedStringEnd' - maybeIllegalCharacters <- case illegalCharacters of - Nothing -> return nullPtr - Just jIllegalCharacters -> do - jIllegalCharacters' <- textToCString jIllegalCharacters - return jIllegalCharacters' - result <- g_uri_unescape_segment maybeEscapedString maybeEscapedStringEnd maybeIllegalCharacters - checkUnexpectedReturnNULL "g_uri_unescape_segment" result - result' <- cstringToText result - freeMem result - freeMem maybeEscapedString - freeMem maybeEscapedStringEnd - freeMem maybeIllegalCharacters - return result' - - --- function g_uri_parse_scheme --- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_uri_parse_scheme" g_uri_parse_scheme :: - CString -> -- uri : TBasicType TUTF8 - IO CString - - -uriParseScheme :: - (MonadIO m) => - T.Text -- uri - -> m T.Text -- result -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 {argCName = "uri_list", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "g_uri_list_extract_uris" g_uri_list_extract_uris :: - CString -> -- uri_list : TBasicType TUTF8 - IO (Ptr CString) - - -uriListExtractUris :: - (MonadIO m) => - T.Text -- uriList - -> m [T.Text] -- result -uriListExtractUris uriList = liftIO $ do - uriList' <- textToCString uriList - result <- g_uri_list_extract_uris uriList' - checkUnexpectedReturnNULL "g_uri_list_extract_uris" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - freeMem uriList' - return result' - - --- function g_uri_escape_string --- Args : [Arg {argCName = "unescaped", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reserved_chars_allowed", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allow_utf8", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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) -- reservedCharsAllowed - -> Bool -- allowUtf8 - -> m T.Text -- result -uriEscapeString unescaped reservedCharsAllowed allowUtf8 = liftIO $ do - unescaped' <- textToCString unescaped - maybeReservedCharsAllowed <- case reservedCharsAllowed of - Nothing -> return nullPtr - Just jReservedCharsAllowed -> do - jReservedCharsAllowed' <- textToCString jReservedCharsAllowed - return jReservedCharsAllowed' - let allowUtf8' = (fromIntegral . fromEnum) allowUtf8 - result <- g_uri_escape_string unescaped' maybeReservedCharsAllowed allowUtf8' - checkUnexpectedReturnNULL "g_uri_escape_string" result - result' <- cstringToText result - freeMem result - freeMem unescaped' - freeMem maybeReservedCharsAllowed - return result' - - --- function g_unsetenv --- Args : [Arg {argCName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_unsetenv" g_unsetenv :: - CString -> -- variable : TBasicType TUTF8 - IO () - - -unsetenv :: - (MonadIO m) => - T.Text -- variable - -> m () -- result -unsetenv variable = liftIO $ do - variable' <- textToCString variable - g_unsetenv variable' - freeMem variable' - return () - - --- function g_unlink --- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_unlink" g_unlink :: - CString -> -- filename : TBasicType TUTF8 - IO Int32 - - -unlink :: - (MonadIO m) => - T.Text -- filename - -> m Int32 -- result -unlink filename = liftIO $ do - filename' <- textToCString filename - result <- g_unlink filename' - freeMem filename' - return result - - --- function g_unix_signal_source_new --- Args : [Arg {argCName = "signum", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "Source") --- throws : False --- Skip return : False - -foreign import ccall "g_unix_signal_source_new" g_unix_signal_source_new :: - Int32 -> -- signum : TBasicType TInt - IO (Ptr Source) - - -unixSignalSourceNew :: - (MonadIO m) => - Int32 -- signum - -> m Source -- result -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 {argCName = "priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signum", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "handler", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_unix_signal_add_full" g_unix_signal_add_full :: - Int32 -> -- priority : TBasicType TInt - Int32 -> -- signum : TBasicType TInt - FunPtr SourceFuncC -> -- handler : TInterface "GLib" "SourceFunc" - Ptr () -> -- user_data : TBasicType TPtr - FunPtr DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO Word32 - - -unixSignalAdd :: - (MonadIO m) => - Int32 -- priority - -> Int32 -- signum - -> SourceFunc -- handler - -> m Word32 -- result -unixSignalAdd priority signum handler = liftIO $ do - handler' <- mkSourceFunc (sourceFuncWrapper Nothing handler) - let userData = castFunPtrToPtr handler' - let notify = safeFreeFunPtrPtr - result <- g_unix_signal_add_full priority signum handler' userData notify - return result - - --- function g_unix_set_fd_nonblocking --- Args : [Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "nonblock", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_unix_set_fd_nonblocking" g_unix_set_fd_nonblocking :: - Int32 -> -- fd : TBasicType TInt - CInt -> -- nonblock : TBasicType TBoolean - Ptr (Ptr GError) -> -- error - IO CInt - - -unixSetFdNonblocking :: - (MonadIO m) => - Int32 -- fd - -> Bool -- nonblock - -> m () -- result -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 {argCName = "fds", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_unix_open_pipe" g_unix_open_pipe :: - Int32 -> -- fds : TBasicType TInt - Int32 -> -- flags : TBasicType TInt - Ptr (Ptr GError) -> -- error - IO CInt - - -unixOpenPipe :: - (MonadIO m) => - Int32 -- fds - -> Int32 -- flags - -> m () -- result -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 {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "Source") --- throws : False --- Skip return : False - -foreign import ccall "g_unix_fd_source_new" g_unix_fd_source_new :: - Int32 -> -- fd : TBasicType TInt - CUInt -> -- condition : TInterface "GLib" "IOCondition" - IO (Ptr Source) - - -unixFdSourceNew :: - (MonadIO m) => - Int32 -- fd - -> [IOCondition] -- condition - -> m Source -- result -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 {argCName = "priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "function", argType = TInterface "GLib" "UnixFDSourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 4, argDestroy = 5, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_unix_fd_add_full" g_unix_fd_add_full :: - Int32 -> -- priority : TBasicType TInt - Int32 -> -- fd : TBasicType TInt - CUInt -> -- condition : TInterface "GLib" "IOCondition" - FunPtr UnixFDSourceFuncC -> -- function : TInterface "GLib" "UnixFDSourceFunc" - Ptr () -> -- user_data : TBasicType TPtr - FunPtr DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO Word32 - - -unixFdAddFull :: - (MonadIO m) => - Int32 -- priority - -> Int32 -- fd - -> [IOCondition] -- condition - -> UnixFDSourceFunc -- function - -> m Word32 -- result -unixFdAddFull priority fd condition function = liftIO $ do - let condition' = gflagsToWord condition - function' <- mkUnixFDSourceFunc (unixFDSourceFuncWrapper Nothing function) - let userData = castFunPtrToPtr function' - let notify = safeFreeFunPtrPtr - result <- g_unix_fd_add_full priority fd condition' function' userData notify - return result - - --- function g_unix_error_quark --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -unixErrorQuark = liftIO $ do - result <- g_unix_error_quark - return result - - --- function g_unicode_script_to_iso15924 --- Args : [Arg {argCName = "script", argType = TInterface "GLib" "UnicodeScript", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt32) --- throws : False --- Skip return : False - -foreign import ccall "g_unicode_script_to_iso15924" g_unicode_script_to_iso15924 :: - CUInt -> -- script : TInterface "GLib" "UnicodeScript" - IO Word32 - - -unicodeScriptToIso15924 :: - (MonadIO m) => - UnicodeScript -- script - -> m Word32 -- result -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 {argCName = "iso15924", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "string", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -unicodeCanonicalOrdering string len = liftIO $ do - let string' = (fromIntegral . ord) string - g_unicode_canonical_ordering string' len - return () - - --- function g_unicode_canonical_decomposition --- Args : [Arg {argCName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- resultLen - -> m Char -- result -unicodeCanonicalDecomposition ch resultLen = liftIO $ do - let ch' = (fromIntegral . ord) ch - result <- g_unicode_canonical_decomposition ch' resultLen - let result' = (chr . fromIntegral) result - return result' - - --- function g_unichar_xdigit_value --- Args : [Arg {argCName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_xdigit_value" g_unichar_xdigit_value :: - CInt -> -- c : TBasicType TUniChar - IO Int32 - - -unicharXdigitValue :: - (MonadIO m) => - Char -- c - -> m Int32 -- result -unicharXdigitValue c = liftIO $ do - let c' = (fromIntegral . ord) c - result <- g_unichar_xdigit_value c' - return result - - --- function g_unichar_validate --- Args : [Arg {argCName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_validate" g_unichar_validate :: - CInt -> -- ch : TBasicType TUniChar - IO CInt - - -unicharValidate :: - (MonadIO m) => - Char -- ch - -> m Bool -- result -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 {argCName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "outbuf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_iszerowidth" g_unichar_iszerowidth :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIszerowidth :: - (MonadIO m) => - Char -- c - -> m Bool -- result -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 {argCName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_isxdigit" g_unichar_isxdigit :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIsxdigit :: - (MonadIO m) => - Char -- c - -> m Bool -- result -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 {argCName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_iswide_cjk" g_unichar_iswide_cjk :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIswideCjk :: - (MonadIO m) => - Char -- c - -> m Bool -- result -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 {argCName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_iswide" g_unichar_iswide :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIswide :: - (MonadIO m) => - Char -- c - -> m Bool -- result -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 {argCName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_isupper" g_unichar_isupper :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIsupper :: - (MonadIO m) => - Char -- c - -> m Bool -- result -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 {argCName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_istitle" g_unichar_istitle :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIstitle :: - (MonadIO m) => - Char -- c - -> m Bool -- result -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 {argCName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_isspace" g_unichar_isspace :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIsspace :: - (MonadIO m) => - Char -- c - -> m Bool -- result -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 {argCName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_ispunct" g_unichar_ispunct :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIspunct :: - (MonadIO m) => - Char -- c - -> m Bool -- result -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 {argCName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_isprint" g_unichar_isprint :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIsprint :: - (MonadIO m) => - Char -- c - -> m Bool -- result -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 {argCName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_ismark" g_unichar_ismark :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIsmark :: - (MonadIO m) => - Char -- c - -> m Bool -- result -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 {argCName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_islower" g_unichar_islower :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIslower :: - (MonadIO m) => - Char -- c - -> m Bool -- result -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 {argCName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_isgraph" g_unichar_isgraph :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIsgraph :: - (MonadIO m) => - Char -- c - -> m Bool -- result -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 {argCName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_isdigit" g_unichar_isdigit :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIsdigit :: - (MonadIO m) => - Char -- c - -> m Bool -- result -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 {argCName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_isdefined" g_unichar_isdefined :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIsdefined :: - (MonadIO m) => - Char -- c - -> m Bool -- result -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 {argCName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_iscntrl" g_unichar_iscntrl :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIscntrl :: - (MonadIO m) => - Char -- c - -> m Bool -- result -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 {argCName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_isalpha" g_unichar_isalpha :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIsalpha :: - (MonadIO m) => - Char -- c - -> m Bool -- result -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 {argCName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_isalnum" g_unichar_isalnum :: - CInt -> -- c : TBasicType TUniChar - IO CInt - - -unicharIsalnum :: - (MonadIO m) => - Char -- c - -> m Bool -- result -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 {argCName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mirrored_ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- mirroredCh - -> m Bool -- result -unicharGetMirrorChar ch mirroredCh = liftIO $ do - let ch' = (fromIntegral . ord) ch - let mirroredCh' = (fromIntegral . ord) mirroredCh - result <- g_unichar_get_mirror_char ch' mirroredCh' - let result' = (/= 0) result - return result' - - --- function g_unichar_digit_value --- Args : [Arg {argCName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_digit_value" g_unichar_digit_value :: - CInt -> -- c : TBasicType TUniChar - IO Int32 - - -unicharDigitValue :: - (MonadIO m) => - Char -- c - -> m Int32 -- result -unicharDigitValue c = liftIO $ do - let c' = (fromIntegral . ord) c - result <- g_unichar_digit_value c' - return result - - --- function g_unichar_decompose --- Args : [Arg {argCName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "a", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "a", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "uc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_unichar_combining_class" g_unichar_combining_class :: - CInt -> -- uc : TBasicType TUniChar - IO Int32 - - -unicharCombiningClass :: - (MonadIO m) => - Char -- uc - -> m Int32 -- result -unicharCombiningClass uc = liftIO $ do - let uc' = (fromIntegral . ord) uc - result <- g_unichar_combining_class uc' - return result - - --- function g_unichar_break_type --- Args : [Arg {argCName = "c", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -unicharBreakType c = liftIO $ do - let c' = (fromIntegral . ord) c - result <- g_unichar_break_type c' - let result' = (toEnum . fromIntegral) result - return result' - - --- function g_timeout_source_new_seconds --- Args : [Arg {argCName = "interval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "Source") --- throws : False --- Skip return : False - -foreign import ccall "g_timeout_source_new_seconds" g_timeout_source_new_seconds :: - Word32 -> -- interval : TBasicType TUInt - IO (Ptr Source) - - -timeoutSourceNewSeconds :: - (MonadIO m) => - Word32 -- interval - -> m Source -- result -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 {argCName = "interval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "Source") --- throws : False --- Skip return : False - -foreign import ccall "g_timeout_source_new" g_timeout_source_new :: - Word32 -> -- interval : TBasicType TUInt - IO (Ptr Source) - - -timeoutSourceNew :: - (MonadIO m) => - Word32 -- interval - -> m Source -- result -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 {argCName = "priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_timeout_add_seconds_full" g_timeout_add_seconds_full :: - Int32 -> -- priority : TBasicType TInt - Word32 -> -- interval : TBasicType TUInt - FunPtr SourceFuncC -> -- function : TInterface "GLib" "SourceFunc" - Ptr () -> -- data : TBasicType TPtr - FunPtr DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO Word32 - - -timeoutAddSeconds :: - (MonadIO m) => - Int32 -- priority - -> Word32 -- interval - -> SourceFunc -- function - -> m Word32 -- result -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 {argCName = "priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_timeout_add_full" g_timeout_add_full :: - Int32 -> -- priority : TBasicType TInt - Word32 -> -- interval : TBasicType TUInt - FunPtr SourceFuncC -> -- function : TInterface "GLib" "SourceFunc" - Ptr () -> -- data : TBasicType TPtr - FunPtr DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO Word32 - - -timeoutAdd :: - (MonadIO m) => - Int32 -- priority - -> Word32 -- interval - -> SourceFunc -- function - -> m Word32 -- result -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_test_trap_subprocess --- Args : [Arg {argCName = "test_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "usec_timeout", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "test_flags", argType = TInterface "GLib" "TestSubprocessFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_test_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) -- testPath - -> Word64 -- usecTimeout - -> [TestSubprocessFlags] -- testFlags - -> m () -- result -testTrapSubprocess testPath usecTimeout testFlags = liftIO $ do - maybeTestPath <- case testPath of - Nothing -> return nullPtr - Just jTestPath -> do - jTestPath' <- textToCString jTestPath - return jTestPath' - let testFlags' = gflagsToWord testFlags - g_test_trap_subprocess maybeTestPath usecTimeout testFlags' - freeMem maybeTestPath - return () - - --- function g_test_trap_reached_timeout --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -testTrapReachedTimeout = liftIO $ do - result <- g_test_trap_reached_timeout - let result' = (/= 0) result - return result' - - --- function g_test_trap_has_passed --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -testTrapHasPassed = liftIO $ do - result <- g_test_trap_has_passed - let result' = (/= 0) result - return result' - - --- function g_test_trap_fork --- Args : [Arg {argCName = "usec_timeout", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "test_trap_flags", argType = TInterface "GLib" "TestTrapFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- usecTimeout - -> [TestTrapFlags] -- testTrapFlags - -> m Bool -- result -testTrapFork usecTimeout testTrapFlags = liftIO $ do - let testTrapFlags' = gflagsToWord testTrapFlags - result <- g_test_trap_fork usecTimeout testTrapFlags' - let result' = (/= 0) result - return result' - - --- function g_test_trap_assertions --- Args : [Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "line", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "assertion_flags", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_test_trap_assertions" g_test_trap_assertions :: - CString -> -- domain : TBasicType TUTF8 - CString -> -- file : TBasicType TUTF8 - Int32 -> -- line : TBasicType TInt - 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 -- assertionFlags - -> T.Text -- pattern - -> m () -- result -testTrapAssertions domain file line func assertionFlags pattern = liftIO $ do - domain' <- textToCString domain - file' <- textToCString file - func' <- textToCString func - pattern' <- textToCString pattern - g_test_trap_assertions domain' file' line func' assertionFlags pattern' - freeMem domain' - freeMem file' - freeMem func' - freeMem pattern' - return () - - --- function g_test_timer_start --- Args : [] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_test_timer_start" g_test_timer_start :: - IO () - - -testTimerStart :: - (MonadIO m) => - m () -- result -testTimerStart = liftIO $ do - g_test_timer_start - return () - - --- function g_test_timer_last --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -testTimerLast = liftIO $ do - result <- g_test_timer_last - let result' = realToFrac result - return result' - - --- function g_test_timer_elapsed --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -testTimerElapsed = liftIO $ do - result <- g_test_timer_elapsed - let result' = realToFrac result - return result' - - --- function g_test_subprocess --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_test_subprocess" g_test_subprocess :: - IO CInt - - -testSubprocess :: - (MonadIO m) => - m Bool -- result -testSubprocess = liftIO $ do - result <- g_test_subprocess - let result' = (/= 0) result - return result' - - --- function g_test_skip --- Args : [Arg {argCName = "msg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_test_skip" g_test_skip :: - CString -> -- msg : TBasicType TUTF8 - IO () - - -testSkip :: - (MonadIO m) => - Maybe (T.Text) -- msg - -> m () -- result -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 : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_test_set_nonfatal_assertions" g_test_set_nonfatal_assertions :: - IO () - - -testSetNonfatalAssertions :: - (MonadIO m) => - m () -- result -testSetNonfatalAssertions = liftIO $ do - g_test_set_nonfatal_assertions - return () - - --- function g_test_run_suite --- Args : [Arg {argCName = "suite", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_test_run_suite" g_test_run_suite :: - Ptr TestSuite -> -- suite : TInterface "GLib" "TestSuite" - IO Int32 - - -testRunSuite :: - (MonadIO m) => - TestSuite -- suite - -> m Int32 -- result -testRunSuite suite = liftIO $ do - let suite' = unsafeManagedPtrGetPtr suite - result <- g_test_run_suite suite' - touchManagedPtr suite - return result - - --- function g_test_run --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_test_run" g_test_run :: - IO Int32 - - -testRun :: - (MonadIO m) => - m Int32 -- result -testRun = liftIO $ do - result <- g_test_run - return result - - --- function g_test_rand_int_range --- Args : [Arg {argCName = "begin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt32) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -testRandIntRange begin end = liftIO $ do - result <- g_test_rand_int_range begin end - return result - - --- function g_test_rand_int --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -testRandInt = liftIO $ do - result <- g_test_rand_int - return result - - --- function g_test_rand_double_range --- Args : [Arg {argCName = "range_start", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "range_end", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TDouble) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- rangeStart - -> Double -- rangeEnd - -> m Double -- result -testRandDoubleRange rangeStart rangeEnd = liftIO $ do - let rangeStart' = realToFrac rangeStart - let rangeEnd' = realToFrac rangeEnd - result <- g_test_rand_double_range rangeStart' rangeEnd' - let result' = realToFrac result - return result' - - --- function g_test_rand_double --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -testRandDouble = liftIO $ do - result <- g_test_rand_double - let result' = realToFrac result - return result' - - --- function g_test_queue_free --- Args : [Arg {argCName = "gfree_pointer", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_test_queue_free" g_test_queue_free :: - Ptr () -> -- gfree_pointer : TBasicType TPtr - IO () - - -testQueueFree :: - (MonadIO m) => - Ptr () -- gfreePointer - -> m () -- result -testQueueFree gfreePointer = liftIO $ do - g_test_queue_free gfreePointer - return () - - --- function g_test_queue_destroy --- Args : [Arg {argCName = "destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_test_queue_destroy" g_test_queue_destroy :: - FunPtr DestroyNotifyC -> -- destroy_func : TInterface "GLib" "DestroyNotify" - Ptr () -> -- destroy_data : TBasicType TPtr - IO () - - -testQueueDestroy :: - (MonadIO m) => - DestroyNotify -- destroyFunc - -> Ptr () -- destroyData - -> m () -- result -testQueueDestroy destroyFunc destroyData = liftIO $ do - ptrdestroyFunc <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC)) - destroyFunc' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrdestroyFunc) destroyFunc) - poke ptrdestroyFunc destroyFunc' - g_test_queue_destroy destroyFunc' destroyData - return () - - --- function g_test_log_type_name --- Args : [Arg {argCName = "log_type", argType = TInterface "GLib" "TestLogType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_test_log_type_name" g_test_log_type_name :: - CUInt -> -- log_type : TInterface "GLib" "TestLogType" - IO CString - - -testLogTypeName :: - (MonadIO m) => - TestLogType -- logType - -> m T.Text -- result -testLogTypeName logType = liftIO $ do - let logType' = (fromIntegral . fromEnum) logType - result <- g_test_log_type_name logType' - checkUnexpectedReturnNULL "g_test_log_type_name" result - result' <- cstringToText result - return result' - - --- function g_test_incomplete --- Args : [Arg {argCName = "msg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_test_incomplete" g_test_incomplete :: - CString -> -- msg : TBasicType TUTF8 - IO () - - -testIncomplete :: - (MonadIO m) => - Maybe (T.Text) -- msg - -> m () -- result -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 {argCName = "file_type", argType = TInterface "GLib" "TestFileType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_test_get_dir" g_test_get_dir :: - CUInt -> -- file_type : TInterface "GLib" "TestFileType" - IO CString - - -testGetDir :: - (MonadIO m) => - TestFileType -- fileType - -> m T.Text -- result -testGetDir fileType = liftIO $ do - let fileType' = (fromIntegral . fromEnum) fileType - result <- g_test_get_dir fileType' - checkUnexpectedReturnNULL "g_test_get_dir" result - result' <- cstringToText result - return result' - - --- function g_test_failed --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_test_failed" g_test_failed :: - IO CInt - - -testFailed :: - (MonadIO m) => - m Bool -- result -testFailed = liftIO $ do - result <- g_test_failed - let result' = (/= 0) result - return result' - - --- function g_test_fail --- Args : [] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_test_fail" g_test_fail :: - IO () - - -testFail :: - (MonadIO m) => - m () -- result -testFail = liftIO $ do - g_test_fail - return () - - --- function g_test_expect_message --- Args : [Arg {argCName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "log_level", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_test_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) -- logDomain - -> [LogLevelFlags] -- logLevel - -> T.Text -- pattern - -> m () -- result -testExpectMessage logDomain logLevel pattern = liftIO $ do - maybeLogDomain <- case logDomain of - Nothing -> return nullPtr - Just jLogDomain -> do - jLogDomain' <- textToCString jLogDomain - return jLogDomain' - let logLevel' = gflagsToWord logLevel - pattern' <- textToCString pattern - g_test_expect_message maybeLogDomain logLevel' pattern' - freeMem maybeLogDomain - freeMem pattern' - return () - - --- function g_test_bug_base --- Args : [Arg {argCName = "uri_pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_test_bug_base" g_test_bug_base :: - CString -> -- uri_pattern : TBasicType TUTF8 - IO () - - -testBugBase :: - (MonadIO m) => - T.Text -- uriPattern - -> m () -- result -testBugBase uriPattern = liftIO $ do - uriPattern' <- textToCString uriPattern - g_test_bug_base uriPattern' - freeMem uriPattern' - return () - - --- function g_test_bug --- Args : [Arg {argCName = "bug_uri_snippet", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_test_bug" g_test_bug :: - CString -> -- bug_uri_snippet : TBasicType TUTF8 - IO () - - -testBug :: - (MonadIO m) => - T.Text -- bugUriSnippet - -> m () -- result -testBug bugUriSnippet = liftIO $ do - bugUriSnippet' <- textToCString bugUriSnippet - g_test_bug bugUriSnippet' - freeMem bugUriSnippet' - return () - - --- function g_test_assert_expected_messages_internal --- Args : [Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "line", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_test_assert_expected_messages_internal" g_test_assert_expected_messages_internal :: - CString -> -- domain : TBasicType TUTF8 - CString -> -- file : TBasicType TUTF8 - Int32 -> -- line : TBasicType TInt - CString -> -- func : TBasicType TUTF8 - IO () - - -testAssertExpectedMessagesInternal :: - (MonadIO m) => - T.Text -- domain - -> T.Text -- file - -> Int32 -- line - -> T.Text -- func - -> m () -- result -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 {argCName = "testpath", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "test_func", argType = TInterface "GLib" "TestFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- testFunc - -> m () -- result -testAddFunc testpath testFunc = liftIO $ do - testpath' <- textToCString testpath - ptrtestFunc <- callocMem :: IO (Ptr (FunPtr TestFuncC)) - testFunc' <- mkTestFunc (testFuncWrapper (Just ptrtestFunc) testFunc) - poke ptrtestFunc testFunc' - g_test_add_func testpath' testFunc' - freeMem testpath' - return () - - --- function g_test_add_data_func --- Args : [Arg {argCName = "testpath", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "test_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "test_func", argType = TInterface "GLib" "TestDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_test_add_data_func" g_test_add_data_func :: - CString -> -- testpath : TBasicType TUTF8 - Ptr () -> -- test_data : TBasicType TPtr - FunPtr TestDataFuncC -> -- test_func : TInterface "GLib" "TestDataFunc" - IO () - - -testAddDataFunc :: - (MonadIO m) => - T.Text -- testpath - -> Ptr () -- testData - -> TestDataFunc -- testFunc - -> m () -- result -testAddDataFunc testpath testData testFunc = liftIO $ do - testpath' <- textToCString testpath - ptrtestFunc <- callocMem :: IO (Ptr (FunPtr TestDataFuncC)) - testFunc' <- mkTestDataFunc (testDataFuncWrapper (Just ptrtestFunc) testFunc) - poke ptrtestFunc testFunc' - g_test_add_data_func testpath' testData testFunc' - freeMem testpath' - return () - - --- function g_strv_length --- Args : [Arg {argCName = "str_array", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_strv_length" g_strv_length :: - CString -> -- str_array : TBasicType TUTF8 - IO Word32 - - -strvLength :: - (MonadIO m) => - T.Text -- strArray - -> m Word32 -- result -strvLength strArray = liftIO $ do - strArray' <- textToCString strArray - result <- g_strv_length strArray' - freeMem strArray' - return result - - --- function g_strv_get_type --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -strvGetType = liftIO $ do - result <- g_strv_get_type - let result' = GType result - return result' - - --- function g_strv_contains --- Args : [Arg {argCName = "strv", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TDouble) --- throws : False --- Skip return : False - -foreign import ccall "g_strtod" g_strtod :: - CString -> -- nptr : TBasicType TUTF8 - CString -> -- endptr : TBasicType TUTF8 - IO CDouble - - -strtod :: - (MonadIO m) => - T.Text -- nptr - -> T.Text -- endptr - -> m Double -- result -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 {argCName = "haystack", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "haystack_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "needle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- haystackLen - -> T.Text -- needle - -> m T.Text -- result -strstrLen haystack haystackLen needle = liftIO $ do - haystack' <- textToCString haystack - needle' <- textToCString needle - result <- g_strstr_len haystack' haystackLen needle' - checkUnexpectedReturnNULL "g_strstr_len" result - result' <- cstringToText result - freeMem result - freeMem haystack' - freeMem needle' - return result' - - --- function g_strsignal --- Args : [Arg {argCName = "signum", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_strsignal" g_strsignal :: - Int32 -> -- signum : TBasicType TInt - IO CString - - -strsignal :: - (MonadIO m) => - Int32 -- signum - -> m T.Text -- result -strsignal signum = liftIO $ do - result <- g_strsignal signum - checkUnexpectedReturnNULL "g_strsignal" result - result' <- cstringToText result - return result' - - --- function g_strrstr_len --- Args : [Arg {argCName = "haystack", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "haystack_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "needle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- haystackLen - -> T.Text -- needle - -> m T.Text -- result -strrstrLen haystack haystackLen needle = liftIO $ do - haystack' <- textToCString haystack - needle' <- textToCString needle - result <- g_strrstr_len haystack' haystackLen needle' - checkUnexpectedReturnNULL "g_strrstr_len" result - result' <- cstringToText result - freeMem result - freeMem haystack' - freeMem needle' - return result' - - --- function g_strrstr --- Args : [Arg {argCName = "haystack", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "needle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_strreverse" g_strreverse :: - CString -> -- string : TBasicType TUTF8 - IO CString - - -strreverse :: - (MonadIO m) => - T.Text -- string - -> m T.Text -- result -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 {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fill_char", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_strnfill" g_strnfill :: - Word64 -> -- length : TBasicType TUInt64 - Int8 -> -- fill_char : TBasicType TInt8 - IO CString - - -strnfill :: - (MonadIO m) => - Word64 -- length_ - -> Int8 -- fillChar - -> m T.Text -- result -strnfill length_ fillChar = liftIO $ do - result <- g_strnfill length_ fillChar - checkUnexpectedReturnNULL "g_strnfill" result - result' <- cstringToText result - freeMem result - return result' - - --- function g_strndup --- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_strndup" g_strndup :: - CString -> -- str : TBasicType TUTF8 - Word64 -> -- n : TBasicType TUInt64 - IO CString - - -strndup :: - (MonadIO m) => - T.Text -- str - -> Word64 -- n - -> m T.Text -- result -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 {argCName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_strncasecmp" g_strncasecmp :: - CString -> -- s1 : TBasicType TUTF8 - CString -> -- s2 : TBasicType TUTF8 - Word32 -> -- n : TBasicType TUInt - 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 -- result -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 {argCName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- destSize - -> m Word64 -- result -strlcpy dest src destSize = liftIO $ do - dest' <- textToCString dest - src' <- textToCString src - result <- g_strlcpy dest' src' destSize - freeMem dest' - freeMem src' - return result - - --- function g_strlcat --- Args : [Arg {argCName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- destSize - -> m Word64 -- result -strlcat dest src destSize = liftIO $ do - dest' <- textToCString dest - src' <- textToCString src - result <- g_strlcat dest' src' destSize - freeMem dest' - freeMem src' - return result - - --- function g_strjoinv --- Args : [Arg {argCName = "separator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str_array", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_strjoinv" g_strjoinv :: - CString -> -- separator : TBasicType TUTF8 - CString -> -- str_array : TBasicType TUTF8 - IO CString - - -strjoinv :: - (MonadIO m) => - Maybe (T.Text) -- separator - -> T.Text -- strArray - -> m T.Text -- result -strjoinv separator strArray = liftIO $ do - maybeSeparator <- case separator of - Nothing -> return nullPtr - Just jSeparator -> do - jSeparator' <- textToCString jSeparator - return jSeparator' - strArray' <- textToCString strArray - result <- g_strjoinv maybeSeparator strArray' - checkUnexpectedReturnNULL "g_strjoinv" result - result' <- cstringToText result - freeMem result - freeMem maybeSeparator - freeMem strArray' - return result' - - --- function g_strip_context --- Args : [Arg {argCName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msgval", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "dfl_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- dflSize - -> m String -- result -stringSizedNew dflSize = liftIO $ do - result <- g_string_sized_new dflSize - checkUnexpectedReturnNULL "g_string_sized_new" result - result' <- (wrapBoxed String) result - return result' - - --- function g_string_new_len --- Args : [Arg {argCName = "init", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "init", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "str_array", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_strfreev" g_strfreev :: - CString -> -- str_array : TBasicType TUTF8 - IO () - - -strfreev :: - (MonadIO m) => - T.Text -- strArray - -> m () -- result -strfreev strArray = liftIO $ do - strArray' <- textToCString strArray - g_strfreev strArray' - freeMem strArray' - return () - - --- function g_strescape --- Args : [Arg {argCName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "exceptions", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "errnum", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_strerror" g_strerror :: - Int32 -> -- errnum : TBasicType TInt - IO CString - - -strerror :: - (MonadIO m) => - Int32 -- errnum - -> m T.Text -- result -strerror errnum = liftIO $ do - result <- g_strerror errnum - checkUnexpectedReturnNULL "g_strerror" result - result' <- cstringToText result - return result' - - --- function g_strdup --- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_strdup" g_strdup :: - CString -> -- str : TBasicType TUTF8 - IO CString - - -strdup :: - (MonadIO m) => - T.Text -- str - -> m T.Text -- result -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 {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "delimiters", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_delimiter", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- newDelimiter - -> m T.Text -- result -strdelimit string delimiters newDelimiter = 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 newDelimiter - checkUnexpectedReturnNULL "g_strdelimit" result - result' <- cstringToText result - freeMem result - freeMem string' - freeMem maybeDelimiters - return result' - - --- function g_strcompress --- Args : [Arg {argCName = "source", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_strcompress" g_strcompress :: - CString -> -- source : TBasicType TUTF8 - IO CString - - -strcompress :: - (MonadIO m) => - T.Text -- source - -> m T.Text -- result -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 {argCName = "str1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- 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 -- result -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 {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_strchug" g_strchug :: - CString -> -- string : TBasicType TUTF8 - IO CString - - -strchug :: - (MonadIO m) => - T.Text -- string - -> m T.Text -- result -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 {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_strchomp" g_strchomp :: - CString -> -- string : TBasicType TUTF8 - IO CString - - -strchomp :: - (MonadIO m) => - T.Text -- string - -> m T.Text -- result -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 {argCName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "valid_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "substitutor", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- validChars - -> Int8 -- substitutor - -> m T.Text -- result -strcanon string validChars substitutor = liftIO $ do - string' <- textToCString string - validChars' <- textToCString validChars - result <- g_strcanon string' validChars' substitutor - checkUnexpectedReturnNULL "g_strcanon" result - result' <- cstringToText result - freeMem result - freeMem string' - freeMem validChars' - return result' - - --- function g_str_tokenize_and_fold --- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "translit_locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ascii_alternates", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (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) -- translitLocale - -> m ([T.Text],[T.Text]) -- result -strTokenizeAndFold string translitLocale = liftIO $ do - string' <- textToCString string - maybeTranslitLocale <- case translitLocale of - Nothing -> return nullPtr - Just jTranslitLocale -> do - jTranslitLocale' <- textToCString jTranslitLocale - return jTranslitLocale' - asciiAlternates <- allocMem :: IO (Ptr (Ptr CString)) - result <- g_str_tokenize_and_fold string' maybeTranslitLocale asciiAlternates - checkUnexpectedReturnNULL "g_str_tokenize_and_fold" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - asciiAlternates' <- peek asciiAlternates - asciiAlternates'' <- unpackZeroTerminatedUTF8CArray asciiAlternates' - mapZeroTerminatedCArray freeMem asciiAlternates' - freeMem asciiAlternates' - freeMem string' - freeMem maybeTranslitLocale - freeMem asciiAlternates - return (result', asciiAlternates'') - - --- function g_str_to_ascii --- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "from_locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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) -- fromLocale - -> m T.Text -- result -strToAscii str fromLocale = liftIO $ do - str' <- textToCString str - maybeFromLocale <- case fromLocale of - Nothing -> return nullPtr - Just jFromLocale -> do - jFromLocale' <- textToCString jFromLocale - return jFromLocale' - result <- g_str_to_ascii str' maybeFromLocale - checkUnexpectedReturnNULL "g_str_to_ascii" result - result' <- cstringToText result - freeMem result - freeMem str' - freeMem maybeFromLocale - return result' - - --- function g_str_match_string --- Args : [Arg {argCName = "search_term", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "potential_hit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accept_alternates", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- searchTerm - -> T.Text -- potentialHit - -> Bool -- acceptAlternates - -> m Bool -- result -strMatchString searchTerm potentialHit acceptAlternates = liftIO $ do - searchTerm' <- textToCString searchTerm - potentialHit' <- textToCString potentialHit - let acceptAlternates' = (fromIntegral . fromEnum) acceptAlternates - result <- g_str_match_string searchTerm' potentialHit' acceptAlternates' - let result' = (/= 0) result - freeMem searchTerm' - freeMem potentialHit' - return result' - - --- function g_str_is_ascii --- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_str_is_ascii" g_str_is_ascii :: - CString -> -- str : TBasicType TUTF8 - IO CInt - - -strIsAscii :: - (MonadIO m) => - T.Text -- str - -> m Bool -- result -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 {argCName = "v", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_str_hash" g_str_hash :: - Ptr () -> -- v : TBasicType TPtr - IO Word32 - - -strHash :: - (MonadIO m) => - Ptr () -- v - -> m Word32 -- result -strHash v = liftIO $ do - result <- g_str_hash v - return result - - --- function g_str_has_suffix --- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "suffix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "prefix", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "v1", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "v2", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_str_equal" g_str_equal :: - Ptr () -> -- v1 : TBasicType TPtr - Ptr () -> -- v2 : TBasicType TPtr - IO CInt - - -strEqual :: - (MonadIO m) => - Ptr () -- v1 - -> Ptr () -- v2 - -> m Bool -- result -strEqual v1 v2 = liftIO $ do - result <- g_str_equal v1 v2 - let result' = (/= 0) result - return result' - - --- function g_stpcpy --- Args : [Arg {argCName = "dest", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "working_directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "argv", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "GLib" "SpawnFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "standard_output", argType = TCArray True (-1) (-1) (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "standard_error", argType = TCArray True (-1) (-1) (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "exit_status", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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 TPtr - 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 TInt - Ptr (Ptr GError) -> -- error - IO CInt - - -spawnSync :: - (MonadIO m) => - Maybe (T.Text) -- workingDirectory - -> [T.Text] -- argv - -> Maybe ([T.Text]) -- envp - -> [SpawnFlags] -- flags - -> Maybe (SpawnChildSetupFunc) -- childSetup - -> m (ByteString,ByteString,Int32) -- result -spawnSync workingDirectory argv envp flags childSetup = liftIO $ do - maybeWorkingDirectory <- case workingDirectory of - Nothing -> return nullPtr - Just jWorkingDirectory -> do - jWorkingDirectory' <- textToCString jWorkingDirectory - return jWorkingDirectory' - argv' <- packZeroTerminatedUTF8CArray argv - maybeEnvp <- case envp of - Nothing -> return nullPtr - Just jEnvp -> do - jEnvp' <- packZeroTerminatedUTF8CArray jEnvp - return jEnvp' - let flags' = gflagsToWord flags - ptrchildSetup <- callocMem :: IO (Ptr (FunPtr SpawnChildSetupFuncC)) - maybeChildSetup <- case childSetup of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jChildSetup -> do - jChildSetup' <- mkSpawnChildSetupFunc (spawnChildSetupFuncWrapper (Just ptrchildSetup) jChildSetup) - poke ptrchildSetup jChildSetup' - return jChildSetup' - standardOutput <- allocMem :: IO (Ptr (Ptr Word8)) - standardError <- allocMem :: IO (Ptr (Ptr Word8)) - exitStatus <- allocMem :: IO (Ptr Int32) - let userData = nullPtr - onException (do - _ <- propagateGError $ g_spawn_sync maybeWorkingDirectory argv' maybeEnvp flags' maybeChildSetup userData standardOutput standardError exitStatus - standardOutput' <- peek standardOutput - standardOutput'' <- unpackZeroTerminatedByteString standardOutput' - freeMem standardOutput' - standardError' <- peek standardError - standardError'' <- unpackZeroTerminatedByteString standardError' - freeMem standardError' - exitStatus' <- peek exitStatus - freeMem maybeWorkingDirectory - mapZeroTerminatedCArray freeMem argv' - freeMem argv' - mapZeroTerminatedCArray freeMem maybeEnvp - freeMem maybeEnvp - freeMem standardOutput - freeMem standardError - freeMem exitStatus - return (standardOutput'', standardError'', exitStatus') - ) (do - freeMem maybeWorkingDirectory - mapZeroTerminatedCArray freeMem argv' - freeMem argv' - mapZeroTerminatedCArray freeMem maybeEnvp - freeMem maybeEnvp - freeMem standardOutput - freeMem standardError - freeMem exitStatus - ) - - --- function g_spawn_exit_error_quark --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -spawnExitErrorQuark = liftIO $ do - result <- g_spawn_exit_error_quark - return result - - --- function g_spawn_error_quark --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -spawnErrorQuark = liftIO $ do - result <- g_spawn_error_quark - return result - - --- function g_spawn_command_line_sync --- Args : [Arg {argCName = "command_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "standard_output", argType = TCArray True (-1) (-1) (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "standard_error", argType = TCArray True (-1) (-1) (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "exit_status", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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 TInt - Ptr (Ptr GError) -> -- error - IO CInt - - -spawnCommandLineSync :: - (MonadIO m) => - T.Text -- commandLine - -> m (ByteString,ByteString,Int32) -- result -spawnCommandLineSync commandLine = liftIO $ do - commandLine' <- textToCString commandLine - standardOutput <- allocMem :: IO (Ptr (Ptr Word8)) - standardError <- allocMem :: IO (Ptr (Ptr Word8)) - exitStatus <- allocMem :: IO (Ptr Int32) - onException (do - _ <- propagateGError $ g_spawn_command_line_sync commandLine' standardOutput standardError exitStatus - standardOutput' <- peek standardOutput - standardOutput'' <- unpackZeroTerminatedByteString standardOutput' - freeMem standardOutput' - standardError' <- peek standardError - standardError'' <- unpackZeroTerminatedByteString standardError' - freeMem standardError' - exitStatus' <- peek exitStatus - freeMem commandLine' - freeMem standardOutput - freeMem standardError - freeMem exitStatus - return (standardOutput'', standardError'', exitStatus') - ) (do - freeMem commandLine' - freeMem standardOutput - freeMem standardError - freeMem exitStatus - ) - - --- function g_spawn_command_line_async --- Args : [Arg {argCName = "command_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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 -- commandLine - -> m () -- result -spawnCommandLineAsync commandLine = liftIO $ do - commandLine' <- textToCString commandLine - onException (do - _ <- propagateGError $ g_spawn_command_line_async commandLine' - freeMem commandLine' - return () - ) (do - freeMem commandLine' - ) - - --- function g_spawn_close_pid --- Args : [Arg {argCName = "pid", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_spawn_close_pid" g_spawn_close_pid :: - Int32 -> -- pid : TBasicType TInt - IO () - - -spawnClosePid :: - (MonadIO m) => - Int32 -- pid - -> m () -- result -spawnClosePid pid = liftIO $ do - g_spawn_close_pid pid - return () - - --- function g_spawn_check_exit_status --- Args : [Arg {argCName = "exit_status", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_spawn_check_exit_status" g_spawn_check_exit_status :: - Int32 -> -- exit_status : TBasicType TInt - Ptr (Ptr GError) -> -- error - IO CInt - - -spawnCheckExitStatus :: - (MonadIO m) => - Int32 -- exitStatus - -> m () -- result -spawnCheckExitStatus exitStatus = liftIO $ do - onException (do - _ <- propagateGError $ g_spawn_check_exit_status exitStatus - return () - ) (do - return () - ) - - --- function g_spawn_async_with_pipes --- Args : [Arg {argCName = "working_directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "argv", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "GLib" "SpawnFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_pid", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "standard_input", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "standard_output", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "standard_error", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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 TPtr - Ptr Int32 -> -- child_pid : TBasicType TInt - Ptr Int32 -> -- standard_input : TBasicType TInt - Ptr Int32 -> -- standard_output : TBasicType TInt - Ptr Int32 -> -- standard_error : TBasicType TInt - Ptr (Ptr GError) -> -- error - IO CInt - - -spawnAsyncWithPipes :: - (MonadIO m) => - Maybe (T.Text) -- workingDirectory - -> [T.Text] -- argv - -> Maybe ([T.Text]) -- envp - -> [SpawnFlags] -- flags - -> Maybe (SpawnChildSetupFunc) -- childSetup - -> m (Int32,Int32,Int32,Int32) -- result -spawnAsyncWithPipes workingDirectory argv envp flags childSetup = liftIO $ do - maybeWorkingDirectory <- case workingDirectory of - Nothing -> return nullPtr - Just jWorkingDirectory -> do - jWorkingDirectory' <- textToCString jWorkingDirectory - return jWorkingDirectory' - argv' <- packZeroTerminatedUTF8CArray argv - maybeEnvp <- case envp of - Nothing -> return nullPtr - Just jEnvp -> do - jEnvp' <- packZeroTerminatedUTF8CArray jEnvp - return jEnvp' - let flags' = gflagsToWord flags - ptrchildSetup <- callocMem :: IO (Ptr (FunPtr SpawnChildSetupFuncC)) - maybeChildSetup <- case childSetup of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jChildSetup -> do - jChildSetup' <- mkSpawnChildSetupFunc (spawnChildSetupFuncWrapper (Just ptrchildSetup) jChildSetup) - poke ptrchildSetup jChildSetup' - return jChildSetup' - childPid <- allocMem :: IO (Ptr Int32) - standardInput <- allocMem :: IO (Ptr Int32) - standardOutput <- allocMem :: IO (Ptr Int32) - standardError <- allocMem :: IO (Ptr Int32) - let userData = nullPtr - onException (do - _ <- propagateGError $ g_spawn_async_with_pipes maybeWorkingDirectory argv' maybeEnvp flags' maybeChildSetup userData childPid standardInput standardOutput standardError - childPid' <- peek childPid - standardInput' <- peek standardInput - standardOutput' <- peek standardOutput - standardError' <- peek standardError - freeMem maybeWorkingDirectory - mapZeroTerminatedCArray freeMem argv' - freeMem argv' - mapZeroTerminatedCArray freeMem maybeEnvp - freeMem maybeEnvp - freeMem childPid - freeMem standardInput - freeMem standardOutput - freeMem standardError - return (childPid', standardInput', standardOutput', standardError') - ) (do - freeMem maybeWorkingDirectory - mapZeroTerminatedCArray freeMem argv' - freeMem argv' - mapZeroTerminatedCArray freeMem maybeEnvp - freeMem maybeEnvp - freeMem childPid - freeMem standardInput - freeMem standardOutput - freeMem standardError - ) - - --- function g_spawn_async --- Args : [Arg {argCName = "working_directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "argv", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "GLib" "SpawnFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_pid", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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 TPtr - Ptr Int32 -> -- child_pid : TBasicType TInt - Ptr (Ptr GError) -> -- error - IO CInt - - -spawnAsync :: - (MonadIO m) => - Maybe (T.Text) -- workingDirectory - -> [T.Text] -- argv - -> Maybe ([T.Text]) -- envp - -> [SpawnFlags] -- flags - -> Maybe (SpawnChildSetupFunc) -- childSetup - -> m (Int32) -- result -spawnAsync workingDirectory argv envp flags childSetup = liftIO $ do - maybeWorkingDirectory <- case workingDirectory of - Nothing -> return nullPtr - Just jWorkingDirectory -> do - jWorkingDirectory' <- textToCString jWorkingDirectory - return jWorkingDirectory' - argv' <- packZeroTerminatedUTF8CArray argv - maybeEnvp <- case envp of - Nothing -> return nullPtr - Just jEnvp -> do - jEnvp' <- packZeroTerminatedUTF8CArray jEnvp - return jEnvp' - let flags' = gflagsToWord flags - ptrchildSetup <- callocMem :: IO (Ptr (FunPtr SpawnChildSetupFuncC)) - maybeChildSetup <- case childSetup of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jChildSetup -> do - jChildSetup' <- mkSpawnChildSetupFunc (spawnChildSetupFuncWrapper (Just ptrchildSetup) jChildSetup) - poke ptrchildSetup jChildSetup' - return jChildSetup' - childPid <- allocMem :: IO (Ptr Int32) - let userData = nullPtr - onException (do - _ <- propagateGError $ g_spawn_async maybeWorkingDirectory argv' maybeEnvp flags' maybeChildSetup userData childPid - childPid' <- peek childPid - freeMem maybeWorkingDirectory - mapZeroTerminatedCArray freeMem argv' - freeMem argv' - mapZeroTerminatedCArray freeMem maybeEnvp - freeMem maybeEnvp - freeMem childPid - return childPid' - ) (do - freeMem maybeWorkingDirectory - mapZeroTerminatedCArray freeMem argv' - freeMem argv' - mapZeroTerminatedCArray freeMem maybeEnvp - freeMem maybeEnvp - freeMem childPid - ) - - --- function g_spaced_primes_closest --- Args : [Arg {argCName = "num", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_spaced_primes_closest" g_spaced_primes_closest :: - Word32 -> -- num : TBasicType TUInt - IO Word32 - - -spacedPrimesClosest :: - (MonadIO m) => - Word32 -- num - -> m Word32 -- result -spacedPrimesClosest num = liftIO $ do - result <- g_spaced_primes_closest num - return result - - --- function g_slice_set_config --- Args : [Arg {argCName = "ckey", argType = TInterface "GLib" "SliceConfig", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 {argCName = "ckey", argType = TInterface "GLib" "SliceConfig", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_slice_get_config_state" g_slice_get_config_state :: - CUInt -> -- ckey : TInterface "GLib" "SliceConfig" - Int64 -> -- address : TBasicType TInt64 - Word32 -> -- n_values : TBasicType TUInt - IO Int64 - - -sliceGetConfigState :: - (MonadIO m) => - SliceConfig -- ckey - -> Int64 -- address - -> Word32 -- nValues - -> m Int64 -- result -sliceGetConfigState ckey address nValues = liftIO $ do - let ckey' = (fromIntegral . fromEnum) ckey - result <- g_slice_get_config_state ckey' address nValues - return result - - --- function g_slice_get_config --- Args : [Arg {argCName = "ckey", argType = TInterface "GLib" "SliceConfig", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_slice_get_config" g_slice_get_config :: - CUInt -> -- ckey : TInterface "GLib" "SliceConfig" - IO Int64 - - -sliceGetConfig :: - (MonadIO m) => - SliceConfig -- ckey - -> m Int64 -- result -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 {argCName = "block_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mem_chain", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "next_offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_slice_free_chain_with_offset" g_slice_free_chain_with_offset :: - Word64 -> -- block_size : TBasicType TUInt64 - Ptr () -> -- mem_chain : TBasicType TPtr - Word64 -> -- next_offset : TBasicType TUInt64 - IO () - - -sliceFreeChainWithOffset :: - (MonadIO m) => - Word64 -- blockSize - -> Ptr () -- memChain - -> Word64 -- nextOffset - -> m () -- result -sliceFreeChainWithOffset blockSize memChain nextOffset = liftIO $ do - g_slice_free_chain_with_offset blockSize memChain nextOffset - return () - - --- function g_slice_free1 --- Args : [Arg {argCName = "block_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mem_block", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_slice_free1" g_slice_free1 :: - Word64 -> -- block_size : TBasicType TUInt64 - Ptr () -> -- mem_block : TBasicType TPtr - IO () - - -sliceFree1 :: - (MonadIO m) => - Word64 -- blockSize - -> Ptr () -- memBlock - -> m () -- result -sliceFree1 blockSize memBlock = liftIO $ do - g_slice_free1 blockSize memBlock - return () - - --- function g_shell_unquote --- Args : [Arg {argCName = "quoted_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : True --- Skip return : False - -foreign import ccall "g_shell_unquote" g_shell_unquote :: - CString -> -- quoted_string : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CString - - -shellUnquote :: - (MonadIO m) => - T.Text -- quotedString - -> m T.Text -- result -shellUnquote quotedString = liftIO $ do - quotedString' <- textToCString quotedString - onException (do - result <- propagateGError $ g_shell_unquote quotedString' - checkUnexpectedReturnNULL "g_shell_unquote" result - result' <- cstringToText result - freeMem result - freeMem quotedString' - return result' - ) (do - freeMem quotedString' - ) - - --- function g_shell_quote --- Args : [Arg {argCName = "unquoted_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_shell_quote" g_shell_quote :: - CString -> -- unquoted_string : TBasicType TUTF8 - IO CString - - -shellQuote :: - (MonadIO m) => - T.Text -- unquotedString - -> m T.Text -- result -shellQuote unquotedString = liftIO $ do - unquotedString' <- textToCString unquotedString - result <- g_shell_quote unquotedString' - checkUnexpectedReturnNULL "g_shell_quote" result - result' <- cstringToText result - freeMem result - freeMem unquotedString' - return result' - - --- function g_shell_parse_argv --- Args : [Arg {argCName = "command_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "argcp", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argvp", argType = TCArray True (-1) 1 (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_shell_parse_argv" g_shell_parse_argv :: - CString -> -- command_line : TBasicType TUTF8 - Ptr Int32 -> -- argcp : TBasicType TInt - Ptr (Ptr CString) -> -- argvp : TCArray True (-1) 1 (TBasicType TUTF8) - Ptr (Ptr GError) -> -- error - IO CInt - - -shellParseArgv :: - (MonadIO m) => - T.Text -- commandLine - -> m (Int32,[T.Text]) -- result -shellParseArgv commandLine = liftIO $ do - commandLine' <- textToCString commandLine - argcp <- allocMem :: IO (Ptr Int32) - argvp <- allocMem :: IO (Ptr (Ptr CString)) - onException (do - _ <- propagateGError $ g_shell_parse_argv commandLine' argcp argvp - argcp' <- peek argcp - argvp' <- peek argvp - argvp'' <- unpackZeroTerminatedUTF8CArray argvp' - mapZeroTerminatedCArray freeMem argvp' - freeMem argvp' - freeMem commandLine' - freeMem argcp - freeMem argvp - return (argcp', argvp'') - ) (do - freeMem commandLine' - freeMem argcp - freeMem argvp - ) - - --- function g_shell_error_quark --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -shellErrorQuark = liftIO $ do - result <- g_shell_error_quark - return result - - --- function g_setenv --- Args : [Arg {argCName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "prgname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_set_prgname" g_set_prgname :: - CString -> -- prgname : TBasicType TUTF8 - IO () - - -setPrgname :: - (MonadIO m) => - T.Text -- prgname - -> m () -- result -setPrgname prgname = liftIO $ do - prgname' <- textToCString prgname - g_set_prgname prgname' - freeMem prgname' - return () - - --- function g_set_error_literal --- Args : [Arg {argCName = "err", argType = TError, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "code", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_set_error_literal" g_set_error_literal :: - Ptr GError -> -- err : TError - Word32 -> -- domain : TBasicType TUInt32 - Int32 -> -- code : TBasicType TInt - CString -> -- message : TBasicType TUTF8 - IO () - - -setErrorLiteral :: - (MonadIO m) => - Maybe (GError) -- err - -> Word32 -- domain - -> Int32 -- code - -> T.Text -- message - -> m () -- result -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 {argCName = "application_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_set_application_name" g_set_application_name :: - CString -> -- application_name : TBasicType TUTF8 - IO () - - -setApplicationName :: - (MonadIO m) => - T.Text -- applicationName - -> m () -- result -setApplicationName applicationName = liftIO $ do - applicationName' <- textToCString applicationName - g_set_application_name applicationName' - freeMem applicationName' - return () - - --- function g_rmdir --- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_rmdir" g_rmdir :: - CString -> -- filename : TBasicType TUTF8 - IO Int32 - - -rmdir :: - (MonadIO m) => - T.Text -- filename - -> m Int32 -- result -rmdir filename = liftIO $ do - filename' <- textToCString filename - result <- g_rmdir filename' - freeMem filename' - return result - - --- function g_return_if_fail_warning --- Args : [Arg {argCName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pretty_function", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expression", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- logDomain - -> T.Text -- prettyFunction - -> T.Text -- expression - -> m () -- result -returnIfFailWarning logDomain prettyFunction expression = liftIO $ do - logDomain' <- textToCString logDomain - prettyFunction' <- textToCString prettyFunction - expression' <- textToCString expression - g_return_if_fail_warning logDomain' prettyFunction' expression' - freeMem logDomain' - freeMem prettyFunction' - freeMem expression' - return () - - --- function g_reload_user_special_dirs_cache --- Args : [] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -reloadUserSpecialDirsCache = liftIO $ do - g_reload_user_special_dirs_cache - return () - - --- function g_random_set_seed --- Args : [Arg {argCName = "seed", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_random_set_seed" g_random_set_seed :: - Word32 -> -- seed : TBasicType TUInt32 - IO () - - -randomSetSeed :: - (MonadIO m) => - Word32 -- seed - -> m () -- result -randomSetSeed seed = liftIO $ do - g_random_set_seed seed - return () - - --- function g_random_int_range --- Args : [Arg {argCName = "begin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt32) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -randomIntRange begin end = liftIO $ do - result <- g_random_int_range begin end - return result - - --- function g_random_int --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TUInt32) --- throws : False --- Skip return : False - -foreign import ccall "g_random_int" g_random_int :: - IO Word32 - - -randomInt :: - (MonadIO m) => - m Word32 -- result -randomInt = liftIO $ do - result <- g_random_int - return result - - --- function g_random_double_range --- Args : [Arg {argCName = "begin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TDouble) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 : [] --- returnType : Just (TBasicType TDouble) --- throws : False --- Skip return : False - -foreign import ccall "g_random_double" g_random_double :: - IO CDouble - - -randomDouble :: - (MonadIO m) => - m Double -- result -randomDouble = liftIO $ do - result <- g_random_double - let result' = realToFrac result - return result' - - --- function g_quark_try_string --- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "quark", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_quark_to_string" g_quark_to_string :: - Word32 -> -- quark : TBasicType TUInt32 - IO CString - - -quarkToString :: - (MonadIO m) => - Word32 -- quark - -> m T.Text -- result -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 {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "dest", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_propagate_error" g_propagate_error :: - Ptr GError -> -- dest : TError - Ptr GError -> -- src : TError - IO () - - -propagateError :: - (MonadIO m) => - GError -- dest - -> GError -- src - -> m () -- result -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 {argCName = "fds", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "nfds", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_poll" g_poll :: - Ptr PollFD -> -- fds : TInterface "GLib" "PollFD" - Word32 -> -- nfds : TBasicType TUInt - Int32 -> -- timeout : TBasicType TInt - IO Int32 - - -poll :: - (MonadIO m) => - PollFD -- fds - -> Word32 -- nfds - -> Int32 -- timeout - -> m Int32 -- result -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 {argCName = "address", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lock_bit", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_pointer_bit_unlock" g_pointer_bit_unlock :: - Ptr () -> -- address : TBasicType TPtr - Int32 -> -- lock_bit : TBasicType TInt - IO () - - -pointerBitUnlock :: - (MonadIO m) => - Ptr () -- address - -> Int32 -- lockBit - -> m () -- result -pointerBitUnlock address lockBit = liftIO $ do - g_pointer_bit_unlock address lockBit - return () - - --- function g_pointer_bit_trylock --- Args : [Arg {argCName = "address", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lock_bit", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_pointer_bit_trylock" g_pointer_bit_trylock :: - Ptr () -> -- address : TBasicType TPtr - Int32 -> -- lock_bit : TBasicType TInt - IO CInt - - -pointerBitTrylock :: - (MonadIO m) => - Ptr () -- address - -> Int32 -- lockBit - -> m Bool -- result -pointerBitTrylock address lockBit = liftIO $ do - result <- g_pointer_bit_trylock address lockBit - let result' = (/= 0) result - return result' - - --- function g_pointer_bit_lock --- Args : [Arg {argCName = "address", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lock_bit", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_pointer_bit_lock" g_pointer_bit_lock :: - Ptr () -> -- address : TBasicType TPtr - Int32 -> -- lock_bit : TBasicType TInt - IO () - - -pointerBitLock :: - (MonadIO m) => - Ptr () -- address - -> Int32 -- lockBit - -> m () -- result -pointerBitLock address lockBit = liftIO $ do - g_pointer_bit_lock address lockBit - return () - - --- function g_pattern_match_string --- Args : [Arg {argCName = "pspec", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "pspec", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string_length", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string_reversed", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_pattern_match" g_pattern_match :: - Ptr PatternSpec -> -- pspec : TInterface "GLib" "PatternSpec" - Word32 -> -- string_length : TBasicType TUInt - CString -> -- string : TBasicType TUTF8 - CString -> -- string_reversed : TBasicType TUTF8 - IO CInt - - -patternMatch :: - (MonadIO m) => - PatternSpec -- pspec - -> Word32 -- stringLength - -> T.Text -- string - -> Maybe (T.Text) -- stringReversed - -> m Bool -- result -patternMatch pspec stringLength string stringReversed = liftIO $ do - let pspec' = unsafeManagedPtrGetPtr pspec - string' <- textToCString string - maybeStringReversed <- case stringReversed of - Nothing -> return nullPtr - Just jStringReversed -> do - jStringReversed' <- textToCString jStringReversed - return jStringReversed' - result <- g_pattern_match pspec' stringLength string' maybeStringReversed - let result' = (/= 0) result - touchManagedPtr pspec - freeMem string' - freeMem maybeStringReversed - return result' - - --- function g_path_skip_root --- Args : [Arg {argCName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_path_skip_root" g_path_skip_root :: - CString -> -- file_name : TBasicType TUTF8 - IO CString - - -pathSkipRoot :: - (MonadIO m) => - T.Text -- fileName - -> m (Maybe T.Text) -- result -pathSkipRoot fileName = liftIO $ do - fileName' <- textToCString fileName - result <- g_path_skip_root fileName' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - return result'' - freeMem fileName' - return maybeResult - - --- function g_path_is_absolute --- Args : [Arg {argCName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_path_is_absolute" g_path_is_absolute :: - CString -> -- file_name : TBasicType TUTF8 - IO CInt - - -pathIsAbsolute :: - (MonadIO m) => - T.Text -- fileName - -> m Bool -- result -pathIsAbsolute fileName = liftIO $ do - fileName' <- textToCString fileName - result <- g_path_is_absolute fileName' - let result' = (/= 0) result - freeMem fileName' - return result' - - --- function g_path_get_dirname --- Args : [Arg {argCName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_path_get_dirname" g_path_get_dirname :: - CString -> -- file_name : TBasicType TUTF8 - IO CString - - -pathGetDirname :: - (MonadIO m) => - T.Text -- fileName - -> m T.Text -- result -pathGetDirname fileName = liftIO $ do - fileName' <- textToCString fileName - result <- g_path_get_dirname fileName' - checkUnexpectedReturnNULL "g_path_get_dirname" result - result' <- cstringToText result - freeMem result - freeMem fileName' - return result' - - --- function g_path_get_basename --- Args : [Arg {argCName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_path_get_basename" g_path_get_basename :: - CString -> -- file_name : TBasicType TUTF8 - IO CString - - -pathGetBasename :: - (MonadIO m) => - T.Text -- fileName - -> m T.Text -- result -pathGetBasename fileName = liftIO $ do - fileName' <- textToCString fileName - result <- g_path_get_basename fileName' - checkUnexpectedReturnNULL "g_path_get_basename" result - result' <- cstringToText result - freeMem result - freeMem fileName' - return result' - - --- function g_parse_debug_string --- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keys", argType = TCArray False (-1) 2 (TInterface "GLib" "DebugKey"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "nkeys", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "nkeys", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TBasicType TUInt) --- 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 TUInt - IO Word32 - - -parseDebugString :: - (MonadIO m) => - Maybe (T.Text) -- string - -> [DebugKey] -- keys - -> m Word32 -- result -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 : [] --- returnType : Just (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 -- result -optionErrorQuark = liftIO $ do - result <- g_option_error_quark - return result - - --- function g_on_error_stack_trace --- Args : [Arg {argCName = "prg_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_on_error_stack_trace" g_on_error_stack_trace :: - CString -> -- prg_name : TBasicType TUTF8 - IO () - - -onErrorStackTrace :: - (MonadIO m) => - T.Text -- prgName - -> m () -- result -onErrorStackTrace prgName = liftIO $ do - prgName' <- textToCString prgName - g_on_error_stack_trace prgName' - freeMem prgName' - return () - - --- function g_on_error_query --- Args : [Arg {argCName = "prg_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_on_error_query" g_on_error_query :: - CString -> -- prg_name : TBasicType TUTF8 - IO () - - -onErrorQuery :: - (MonadIO m) => - T.Text -- prgName - -> m () -- result -onErrorQuery prgName = liftIO $ do - prgName' <- textToCString prgName - g_on_error_query prgName' - freeMem prgName' - return () - - --- function g_nullify_pointer --- Args : [Arg {argCName = "nullify_location", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_nullify_pointer" g_nullify_pointer :: - Ptr () -> -- nullify_location : TBasicType TPtr - IO () - - -nullifyPointer :: - (MonadIO m) => - Ptr () -- nullifyLocation - -> m () -- result -nullifyPointer nullifyLocation = liftIO $ do - g_nullify_pointer nullifyLocation - return () - - --- function g_mkstemp_full --- Args : [Arg {argCName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_mkstemp_full" g_mkstemp_full :: - CString -> -- tmpl : TBasicType TFileName - Int32 -> -- flags : TBasicType TInt - Int32 -> -- mode : TBasicType TInt - IO Int32 - - -mkstempFull :: - (MonadIO m) => - [Char] -- tmpl - -> Int32 -- flags - -> Int32 -- mode - -> m Int32 -- result -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 {argCName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_mkstemp" g_mkstemp :: - CString -> -- tmpl : TBasicType TFileName - IO Int32 - - -mkstemp :: - (MonadIO m) => - [Char] -- tmpl - -> m Int32 -- result -mkstemp tmpl = liftIO $ do - tmpl' <- stringToCString tmpl - result <- g_mkstemp tmpl' - freeMem tmpl' - return result - - --- function g_mkdtemp_full --- Args : [Arg {argCName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_mkdtemp_full" g_mkdtemp_full :: - CString -> -- tmpl : TBasicType TFileName - Int32 -> -- mode : TBasicType TInt - IO CString - - -mkdtempFull :: - (MonadIO m) => - [Char] -- tmpl - -> Int32 -- mode - -> m T.Text -- result -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 {argCName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_mkdtemp" g_mkdtemp :: - CString -> -- tmpl : TBasicType TFileName - IO CString - - -mkdtemp :: - (MonadIO m) => - [Char] -- tmpl - -> m T.Text -- result -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 {argCName = "pathname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_mkdir_with_parents" g_mkdir_with_parents :: - CString -> -- pathname : TBasicType TUTF8 - Int32 -> -- mode : TBasicType TInt - IO Int32 - - -mkdirWithParents :: - (MonadIO m) => - T.Text -- pathname - -> Int32 -- mode - -> m Int32 -- result -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 {argCName = "vtable", argType = TInterface "GLib" "MemVTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -memSetVtable vtable = liftIO $ do - let vtable' = unsafeManagedPtrGetPtr vtable - g_mem_set_vtable vtable' - touchManagedPtr vtable - return () - - --- function g_mem_profile --- Args : [] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -memProfile = liftIO $ do - g_mem_profile - return () - - --- function g_mem_is_system_malloc --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -memIsSystemMalloc = liftIO $ do - result <- g_mem_is_system_malloc - let result' = (/= 0) result - return result' - - --- function g_markup_escape_text --- Args : [Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 : [] --- returnType : Just (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 -- result -markupErrorQuark = liftIO $ do - result <- g_markup_error_quark - return result - - --- function g_main_depth --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_main_depth" g_main_depth :: - IO Int32 - - -mainDepth :: - (MonadIO m) => - m Int32 -- result -mainDepth = liftIO $ do - result <- g_main_depth - return result - - --- function g_main_current_source --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -mainCurrentSource = liftIO $ do - result <- g_main_current_source - checkUnexpectedReturnNULL "g_main_current_source" result - result' <- (newBoxed Source) result - return result' - - --- function g_log_set_handler_full --- Args : [Arg {argCName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "log_levels", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "log_func", argType = TInterface "GLib" "LogFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_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 TPtr - FunPtr DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO Word32 - - -logSetHandler :: - (MonadIO m) => - Maybe (T.Text) -- logDomain - -> [LogLevelFlags] -- logLevels - -> LogFunc -- logFunc - -> m Word32 -- result -logSetHandler logDomain logLevels logFunc = liftIO $ do - maybeLogDomain <- case logDomain of - Nothing -> return nullPtr - Just jLogDomain -> do - jLogDomain' <- textToCString jLogDomain - return jLogDomain' - let logLevels' = gflagsToWord logLevels - logFunc' <- mkLogFunc (logFuncWrapper Nothing logFunc) - let userData = castFunPtrToPtr logFunc' - let destroy = safeFreeFunPtrPtr - result <- g_log_set_handler_full maybeLogDomain logLevels' logFunc' userData destroy - freeMem maybeLogDomain - return result - - --- function g_log_set_fatal_mask --- Args : [Arg {argCName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fatal_mask", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- logDomain - -> [LogLevelFlags] -- fatalMask - -> m [LogLevelFlags] -- result -logSetFatalMask logDomain fatalMask = liftIO $ do - logDomain' <- textToCString logDomain - let fatalMask' = gflagsToWord fatalMask - result <- g_log_set_fatal_mask logDomain' fatalMask' - let result' = wordToGFlags result - freeMem logDomain' - return result' - - --- function g_log_set_always_fatal --- Args : [Arg {argCName = "fatal_mask", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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] -- fatalMask - -> m [LogLevelFlags] -- result -logSetAlwaysFatal fatalMask = liftIO $ do - let fatalMask' = gflagsToWord fatalMask - result <- g_log_set_always_fatal fatalMask' - let result' = wordToGFlags result - return result' - - --- function g_log_remove_handler --- Args : [Arg {argCName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "handler_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_log_remove_handler" g_log_remove_handler :: - CString -> -- log_domain : TBasicType TUTF8 - Word32 -> -- handler_id : TBasicType TUInt - IO () - - -logRemoveHandler :: - (MonadIO m) => - T.Text -- logDomain - -> Word32 -- handlerId - -> m () -- result -logRemoveHandler logDomain handlerId = liftIO $ do - logDomain' <- textToCString logDomain - g_log_remove_handler logDomain' handlerId - freeMem logDomain' - return () - - --- function g_log_default_handler --- Args : [Arg {argCName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "log_level", argType = TInterface "GLib" "LogLevelFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unused_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 TPtr - IO () - - -logDefaultHandler :: - (MonadIO m) => - T.Text -- logDomain - -> [LogLevelFlags] -- logLevel - -> T.Text -- message - -> Ptr () -- unusedData - -> m () -- result -logDefaultHandler logDomain logLevel message unusedData = liftIO $ do - logDomain' <- textToCString logDomain - let logLevel' = gflagsToWord logLevel - message' <- textToCString message - g_log_default_handler logDomain' logLevel' message' unusedData - freeMem logDomain' - freeMem message' - return () - - --- function g_locale_to_utf8 --- Args : [Arg {argCName = "opsysstring", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : True --- Skip return : False - -foreign import ccall "g_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 -- bytesRead - -> Word64 -- bytesWritten - -> m T.Text -- result -localeToUtf8 opsysstring len bytesRead bytesWritten = liftIO $ do - opsysstring' <- textToCString opsysstring - onException (do - result <- propagateGError $ g_locale_to_utf8 opsysstring' len bytesRead bytesWritten - 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 {argCName = "utf8string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : True --- Skip return : False - -foreign import ccall "g_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 -- bytesRead - -> Word64 -- bytesWritten - -> m T.Text -- result -localeFromUtf8 utf8string len bytesRead bytesWritten = liftIO $ do - utf8string' <- textToCString utf8string - onException (do - result <- propagateGError $ g_locale_from_utf8 utf8string' len bytesRead bytesWritten - checkUnexpectedReturnNULL "g_locale_from_utf8" result - result' <- cstringToText result - freeMem result - freeMem utf8string' - return result' - ) (do - freeMem utf8string' - ) - - --- function g_listenv --- Args : [] --- Lengths : [] --- returnType : Just (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] -- result -listenv = liftIO $ do - result <- g_listenv - checkUnexpectedReturnNULL "g_listenv" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - return result' - - --- function g_io_create_watch --- Args : [Arg {argCName = "channel", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "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 -- result -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_add_watch_full --- Args : [Arg {argCName = "channel", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "GLib" "IOFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 4, argDestroy = 5, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_io_add_watch_full" g_io_add_watch_full :: - Ptr IOChannel -> -- channel : TInterface "GLib" "IOChannel" - Int32 -> -- priority : TBasicType TInt - CUInt -> -- condition : TInterface "GLib" "IOCondition" - FunPtr IOFuncC -> -- func : TInterface "GLib" "IOFunc" - Ptr () -> -- user_data : TBasicType TPtr - FunPtr DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO Word32 - - -ioAddWatch :: - (MonadIO m) => - IOChannel -- channel - -> Int32 -- priority - -> [IOCondition] -- condition - -> IOFunc -- func - -> m Word32 -- result -ioAddWatch channel priority condition func = liftIO $ do - let channel' = unsafeManagedPtrGetPtr channel - let condition' = gflagsToWord condition - func' <- mkIOFunc (iOFuncWrapper Nothing func) - let userData = castFunPtrToPtr func' - let notify = safeFreeFunPtrPtr - result <- g_io_add_watch_full channel' priority condition' func' userData notify - touchManagedPtr channel - return result - - --- function g_intern_string --- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_intern_string" g_intern_string :: - CString -> -- string : TBasicType TUTF8 - IO CString - - -internString :: - (MonadIO m) => - Maybe (T.Text) -- string - -> m T.Text -- result -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 {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_intern_static_string" g_intern_static_string :: - CString -> -- string : TBasicType TUTF8 - IO CString - - -internStaticString :: - (MonadIO m) => - Maybe (T.Text) -- string - -> m T.Text -- result -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 {argCName = "v", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_int_hash" g_int_hash :: - Ptr () -> -- v : TBasicType TPtr - IO Word32 - - -intHash :: - (MonadIO m) => - Ptr () -- v - -> m Word32 -- result -intHash v = liftIO $ do - result <- g_int_hash v - return result - - --- function g_int_equal --- Args : [Arg {argCName = "v1", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "v2", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_int_equal" g_int_equal :: - Ptr () -> -- v1 : TBasicType TPtr - Ptr () -> -- v2 : TBasicType TPtr - IO CInt - - -intEqual :: - (MonadIO m) => - Ptr () -- v1 - -> Ptr () -- v2 - -> m Bool -- result -intEqual v1 v2 = liftIO $ do - result <- g_int_equal v1 v2 - let result' = (/= 0) result - return result' - - --- function g_int64_hash --- Args : [Arg {argCName = "v", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_int64_hash" g_int64_hash :: - Ptr () -> -- v : TBasicType TPtr - IO Word32 - - -int64Hash :: - (MonadIO m) => - Ptr () -- v - -> m Word32 -- result -int64Hash v = liftIO $ do - result <- g_int64_hash v - return result - - --- function g_int64_equal --- Args : [Arg {argCName = "v1", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "v2", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_int64_equal" g_int64_equal :: - Ptr () -> -- v1 : TBasicType TPtr - Ptr () -> -- v2 : TBasicType TPtr - IO CInt - - -int64Equal :: - (MonadIO m) => - Ptr () -- v1 - -> Ptr () -- v2 - -> m Bool -- result -int64Equal v1 v2 = liftIO $ do - result <- g_int64_equal v1 v2 - let result' = (/= 0) result - return result' - - --- function g_idle_source_new --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_idle_remove_by_data" g_idle_remove_by_data :: - Ptr () -> -- data : TBasicType TPtr - IO CInt - - -idleRemoveByData :: - (MonadIO m) => - Ptr () -- data_ - -> m Bool -- result -idleRemoveByData data_ = liftIO $ do - result <- g_idle_remove_by_data data_ - let result' = (/= 0) result - return result' - - --- function g_idle_add_full --- Args : [Arg {argCName = "priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_idle_add_full" g_idle_add_full :: - Int32 -> -- priority : TBasicType TInt - FunPtr SourceFuncC -> -- function : TInterface "GLib" "SourceFunc" - Ptr () -> -- data : TBasicType TPtr - FunPtr DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO Word32 - - -idleAdd :: - (MonadIO m) => - Int32 -- priority - -> SourceFunc -- function - -> m Word32 -- result -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 {argCName = "converter", argType = TInterface "GLib" "IConv", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inbuf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inbytes_left", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "outbuf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "outbytes_left", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- inbytesLeft - -> T.Text -- outbuf - -> Word64 -- outbytesLeft - -> m Word64 -- result -iconv converter inbuf inbytesLeft outbuf outbytesLeft = liftIO $ do - let converter' = unsafeManagedPtrGetPtr converter - inbuf' <- textToCString inbuf - outbuf' <- textToCString outbuf - result <- g_iconv converter' inbuf' inbytesLeft outbuf' outbytesLeft - touchManagedPtr converter - freeMem inbuf' - freeMem outbuf' - return result - - --- function g_hostname_to_unicode --- Args : [Arg {argCName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_hostname_to_unicode" g_hostname_to_unicode :: - CString -> -- hostname : TBasicType TUTF8 - IO CString - - -hostnameToUnicode :: - (MonadIO m) => - T.Text -- hostname - -> m T.Text -- result -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 {argCName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_hostname_to_ascii" g_hostname_to_ascii :: - CString -> -- hostname : TBasicType TUTF8 - IO CString - - -hostnameToAscii :: - (MonadIO m) => - T.Text -- hostname - -> m T.Text -- result -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 {argCName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_hostname_is_non_ascii" g_hostname_is_non_ascii :: - CString -> -- hostname : TBasicType TUTF8 - IO CInt - - -hostnameIsNonAscii :: - (MonadIO m) => - T.Text -- hostname - -> m Bool -- result -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 {argCName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_hostname_is_ip_address" g_hostname_is_ip_address :: - CString -> -- hostname : TBasicType TUTF8 - IO CInt - - -hostnameIsIpAddress :: - (MonadIO m) => - T.Text -- hostname - -> m Bool -- result -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 {argCName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_hostname_is_ascii_encoded" g_hostname_is_ascii_encoded :: - CString -> -- hostname : TBasicType TUTF8 - IO CInt - - -hostnameIsAsciiEncoded :: - (MonadIO m) => - T.Text -- hostname - -> m Bool -- result -hostnameIsAsciiEncoded hostname = liftIO $ do - hostname' <- textToCString hostname - result <- g_hostname_is_ascii_encoded hostname' - let result' = (/= 0) result - freeMem hostname' - return result' - - --- function g_getenv --- Args : [Arg {argCName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_getenv" g_getenv :: - CString -> -- variable : TBasicType TUTF8 - IO CString - - -getenv :: - (MonadIO m) => - T.Text -- variable - -> m T.Text -- result -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 {argCName = "directory", argType = TInterface "GLib" "UserDirectory", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_get_user_special_dir" g_get_user_special_dir :: - CUInt -> -- directory : TInterface "GLib" "UserDirectory" - IO CString - - -getUserSpecialDir :: - (MonadIO m) => - UserDirectory -- directory - -> m T.Text -- result -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 : [] --- returnType : Just (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 -- result -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 : [] --- returnType : Just (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 -- result -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 : [] --- returnType : Just (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 -- result -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 : [] --- returnType : Just (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 -- result -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 : [] --- returnType : Just (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 -- result -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 : [] --- returnType : Just (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 -- result -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 : [] --- returnType : Just (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] -- result -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 : [] --- returnType : Just (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] -- result -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 : [] --- returnType : Just (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 -- result -getRealTime = liftIO $ do - result <- g_get_real_time - return result - - --- function g_get_real_name --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -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 : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_get_prgname" g_get_prgname :: - IO CString - - -getPrgname :: - (MonadIO m) => - m T.Text -- result -getPrgname = liftIO $ do - result <- g_get_prgname - checkUnexpectedReturnNULL "g_get_prgname" result - result' <- cstringToText result - return result' - - --- function g_get_num_processors --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_get_num_processors" g_get_num_processors :: - IO Word32 - - -getNumProcessors :: - (MonadIO m) => - m Word32 -- result -getNumProcessors = liftIO $ do - result <- g_get_num_processors - return result - - --- function g_get_monotonic_time --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -getMonotonicTime = liftIO $ do - result <- g_get_monotonic_time - return result - - --- function g_get_locale_variants --- Args : [Arg {argCName = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "g_get_locale_variants" g_get_locale_variants :: - CString -> -- locale : TBasicType TUTF8 - IO (Ptr CString) - - -getLocaleVariants :: - (MonadIO m) => - T.Text -- locale - -> m [T.Text] -- result -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 : [] --- returnType : Just (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] -- result -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 : [] --- returnType : Just (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 -- result -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 : [] --- returnType : Just (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 -- result -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 {argCName = "charsets", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_get_filename_charsets" g_get_filename_charsets :: - CString -> -- charsets : TBasicType TUTF8 - IO CInt - - -getFilenameCharsets :: - (MonadIO m) => - T.Text -- charsets - -> m Bool -- result -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 : [] --- returnType : Just (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] -- result -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 {argCName = "result", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_get_current_time" g_get_current_time :: - Ptr TimeVal -> -- result : TInterface "GLib" "TimeVal" - IO () - - -getCurrentTime :: - (MonadIO m) => - TimeVal -- result_ - -> m () -- result -getCurrentTime result_ = liftIO $ do - let result_' = unsafeManagedPtrGetPtr result_ - g_get_current_time result_' - touchManagedPtr result_ - return () - - --- function g_get_current_dir --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -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 : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_get_codeset" g_get_codeset :: - IO CString - - -getCodeset :: - (MonadIO m) => - m T.Text -- result -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 {argCName = "charset", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_get_charset" g_get_charset :: - Ptr CString -> -- charset : TBasicType TUTF8 - IO CInt - - -getCharset :: - (MonadIO m) => - m (Bool,T.Text) -- result -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 : [] --- returnType : Just (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 -- result -getApplicationName = liftIO $ do - result <- g_get_application_name - checkUnexpectedReturnNULL "g_get_application_name" result - result' <- cstringToText result - return result' - - --- function g_free --- Args : [Arg {argCName = "mem", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_free" g_free :: - Ptr () -> -- mem : TBasicType TPtr - IO () - - -free :: - (MonadIO m) => - Ptr () -- mem - -> m () -- result -free mem = liftIO $ do - g_free mem - return () - - --- function g_format_size_full --- Args : [Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "GLib" "FormatSizeFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "size", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_format_size" g_format_size :: - Word64 -> -- size : TBasicType TUInt64 - IO CString - - -formatSize :: - (MonadIO m) => - Word64 -- size - -> m T.Text -- result -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 {argCName = "program", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_find_program_in_path" g_find_program_in_path :: - CString -> -- program : TBasicType TUTF8 - IO CString - - -findProgramInPath :: - (MonadIO m) => - T.Text -- program - -> m T.Text -- result -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 {argCName = "opsysstring", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : True --- Skip return : False - -foreign import ccall "g_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 -- bytesRead - -> Word64 -- bytesWritten - -> m T.Text -- result -filenameToUtf8 opsysstring len bytesRead bytesWritten = liftIO $ do - opsysstring' <- textToCString opsysstring - onException (do - result <- propagateGError $ g_filename_to_utf8 opsysstring' len bytesRead bytesWritten - 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 {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : True --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "utf8string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (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) -- result -filenameFromUtf8 utf8string len = liftIO $ do - utf8string' <- textToCString utf8string - bytesRead <- allocMem :: IO (Ptr Word64) - bytesWritten <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_filename_from_utf8 utf8string' len bytesRead bytesWritten - bytesWritten' <- peek bytesWritten - checkUnexpectedReturnNULL "g_filename_from_utf8" result - result' <- (unpackByteStringWithLength bytesWritten') result - freeMem result - bytesRead' <- peek bytesRead - freeMem utf8string' - freeMem bytesRead - freeMem bytesWritten - return (result', bytesRead') - ) (do - freeMem utf8string' - freeMem bytesRead - freeMem bytesWritten - ) - - --- function g_filename_from_uri --- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hostname", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (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) -- result -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 {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_filename_display_name" g_filename_display_name :: - CString -> -- filename : TBasicType TUTF8 - IO CString - - -filenameDisplayName :: - (MonadIO m) => - T.Text -- filename - -> m T.Text -- result -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 {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_filename_display_basename" g_filename_display_basename :: - CString -> -- filename : TBasicType TUTF8 - IO CString - - -filenameDisplayBasename :: - (MonadIO m) => - T.Text -- filename - -> m T.Text -- result -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 {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "test", argType = TInterface "GLib" "FileTest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_file_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 -- result -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 {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contents", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_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 () -- result -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 {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : True --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_used", argType = TBasicType TFileName, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- 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]) -- result -fileOpenTmp tmpl = liftIO $ do - maybeTmpl <- case tmpl of - Nothing -> return nullPtr - Just jTmpl -> do - jTmpl' <- stringToCString jTmpl - return jTmpl' - nameUsed <- allocMem :: IO (Ptr CString) - onException (do - result <- propagateGError $ g_file_open_tmp maybeTmpl nameUsed - nameUsed' <- peek nameUsed - nameUsed'' <- cstringToString nameUsed' - freeMem nameUsed' - freeMem maybeTmpl - freeMem nameUsed - return (result, nameUsed'') - ) (do - freeMem maybeTmpl - freeMem nameUsed - ) - - --- function g_file_get_contents --- Args : [Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contents", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_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) -- result -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 : [] --- returnType : Just (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 -- result -fileErrorQuark = liftIO $ do - result <- g_file_error_quark - return result - - --- function g_file_error_from_errno --- Args : [Arg {argCName = "err_no", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "FileError") --- throws : False --- Skip return : False - -foreign import ccall "g_file_error_from_errno" g_file_error_from_errno :: - Int32 -> -- err_no : TBasicType TInt - IO CUInt - - -fileErrorFromErrno :: - (MonadIO m) => - Int32 -- errNo - -> m FileError -- result -fileErrorFromErrno errNo = liftIO $ do - result <- g_file_error_from_errno errNo - let result' = (toEnum . fromIntegral) result - return result' - - --- function g_environ_unsetenv --- Args : [Arg {argCName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "g_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] -- result -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 {argCName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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] -- result -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 {argCName = "envp", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msgctxtid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msgidoffset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "v", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_double_hash" g_double_hash :: - Ptr () -> -- v : TBasicType TPtr - IO Word32 - - -doubleHash :: - (MonadIO m) => - Ptr () -- v - -> m Word32 -- result -doubleHash v = liftIO $ do - result <- g_double_hash v - return result - - --- function g_double_equal --- Args : [Arg {argCName = "v1", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "v2", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_double_equal" g_double_equal :: - Ptr () -> -- v1 : TBasicType TPtr - Ptr () -> -- v2 : TBasicType TPtr - IO CInt - - -doubleEqual :: - (MonadIO m) => - Ptr () -- v1 - -> Ptr () -- v2 - -> m Bool -- result -doubleEqual v1 v2 = liftIO $ do - result <- g_double_equal v1 v2 - let result' = (/= 0) result - return result' - - --- function g_dngettext --- Args : [Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msgid_plural", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dngettext" g_dngettext :: - CString -> -- domain : TBasicType TUTF8 - CString -> -- msgid : TBasicType TUTF8 - CString -> -- msgid_plural : TBasicType TUTF8 - CULong -> -- n : TBasicType TULong - IO CString - - -dngettext :: - (MonadIO m) => - Maybe (T.Text) -- domain - -> T.Text -- msgid - -> T.Text -- msgidPlural - -> CULong -- n - -> m T.Text -- result -dngettext domain msgid msgidPlural n = liftIO $ do - maybeDomain <- case domain of - Nothing -> return nullPtr - Just jDomain -> do - jDomain' <- textToCString jDomain - return jDomain' - msgid' <- textToCString msgid - msgidPlural' <- textToCString msgidPlural - result <- g_dngettext maybeDomain msgid' msgidPlural' n - checkUnexpectedReturnNULL "g_dngettext" result - result' <- cstringToText result - freeMem maybeDomain - freeMem msgid' - freeMem msgidPlural' - return result' - - --- function g_direct_hash --- Args : [Arg {argCName = "v", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_direct_hash" g_direct_hash :: - Ptr () -> -- v : TBasicType TPtr - IO Word32 - - -directHash :: - (MonadIO m) => - Ptr () -- v - -> m Word32 -- result -directHash v = liftIO $ do - result <- g_direct_hash v - return result - - --- function g_direct_equal --- Args : [Arg {argCName = "v1", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "v2", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_direct_equal" g_direct_equal :: - Ptr () -> -- v1 : TBasicType TPtr - Ptr () -> -- v2 : TBasicType TPtr - IO CInt - - -directEqual :: - (MonadIO m) => - Ptr () -- v1 - -> Ptr () -- v2 - -> m Bool -- result -directEqual v1 v2 = liftIO $ do - result <- g_direct_equal v1 v2 - let result' = (/= 0) result - return result' - - --- function g_dgettext --- Args : [Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msgid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "category", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dcgettext" g_dcgettext :: - CString -> -- domain : TBasicType TUTF8 - CString -> -- msgid : TBasicType TUTF8 - Int32 -> -- category : TBasicType TInt - IO CString - - -dcgettext :: - (MonadIO m) => - Maybe (T.Text) -- domain - -> T.Text -- msgid - -> Int32 -- category - -> m T.Text -- result -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_dataset_id_set_data_full --- Args : [Arg {argCName = "dataset_location", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dataset_id_set_data_full" g_dataset_id_set_data_full :: - Ptr () -> -- dataset_location : TBasicType TPtr - Word32 -> -- key_id : TBasicType TUInt32 - Ptr () -> -- data : TBasicType TPtr - FunPtr DestroyNotifyC -> -- destroy_func : TInterface "GLib" "DestroyNotify" - IO () - - -datasetIdSetDataFull :: - (MonadIO m) => - Ptr () -- datasetLocation - -> Word32 -- keyId - -> Ptr () -- data_ - -> DestroyNotify -- destroyFunc - -> m () -- result -datasetIdSetDataFull datasetLocation keyId data_ destroyFunc = liftIO $ do - ptrdestroyFunc <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC)) - destroyFunc' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrdestroyFunc) destroyFunc) - poke ptrdestroyFunc destroyFunc' - g_dataset_id_set_data_full datasetLocation keyId data_ destroyFunc' - return () - - --- function g_dataset_destroy --- Args : [Arg {argCName = "dataset_location", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dataset_destroy" g_dataset_destroy :: - Ptr () -> -- dataset_location : TBasicType TPtr - IO () - - -datasetDestroy :: - (MonadIO m) => - Ptr () -- datasetLocation - -> m () -- result -datasetDestroy datasetLocation = liftIO $ do - g_dataset_destroy datasetLocation - return () - - --- function g_datalist_unset_flags --- Args : [Arg {argCName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_datalist_unset_flags" g_datalist_unset_flags :: - Ptr Data -> -- datalist : TInterface "GLib" "Data" - Word32 -> -- flags : TBasicType TUInt - IO () - - -datalistUnsetFlags :: - (MonadIO m) => - Data -- datalist - -> Word32 -- flags - -> m () -- result -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 {argCName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_datalist_set_flags" g_datalist_set_flags :: - Ptr Data -> -- datalist : TInterface "GLib" "Data" - Word32 -> -- flags : TBasicType TUInt - IO () - - -datalistSetFlags :: - (MonadIO m) => - Data -- datalist - -> Word32 -- flags - -> m () -- result -datalistSetFlags datalist flags = liftIO $ do - let datalist' = unsafeManagedPtrGetPtr datalist - g_datalist_set_flags datalist' flags - touchManagedPtr datalist - return () - - --- function g_datalist_init --- Args : [Arg {argCName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -datalistInit datalist = liftIO $ do - let datalist' = unsafeManagedPtrGetPtr datalist - g_datalist_init datalist' - touchManagedPtr datalist - return () - - --- function g_datalist_id_set_data_full --- Args : [Arg {argCName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 TPtr - FunPtr DestroyNotifyC -> -- destroy_func : TInterface "GLib" "DestroyNotify" - IO () - - -datalistIdSetDataFull :: - (MonadIO m) => - Data -- datalist - -> Word32 -- keyId - -> Ptr () -- data_ - -> DestroyNotify -- destroyFunc - -> m () -- result -datalistIdSetDataFull datalist keyId data_ destroyFunc = liftIO $ do - let datalist' = unsafeManagedPtrGetPtr datalist - ptrdestroyFunc <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC)) - destroyFunc' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrdestroyFunc) destroyFunc) - poke ptrdestroyFunc destroyFunc' - g_datalist_id_set_data_full datalist' keyId data_ destroyFunc' - touchManagedPtr datalist - return () - - --- function g_datalist_id_replace_data --- Args : [Arg {argCName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "oldval", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "newval", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "old_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_datalist_id_replace_data" g_datalist_id_replace_data :: - Ptr Data -> -- datalist : TInterface "GLib" "Data" - Word32 -> -- key_id : TBasicType TUInt32 - Ptr () -> -- oldval : TBasicType TPtr - Ptr () -> -- newval : TBasicType TPtr - FunPtr DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - FunPtr DestroyNotifyC -> -- old_destroy : TInterface "GLib" "DestroyNotify" - IO CInt - - -datalistIdReplaceData :: - (MonadIO m) => - Data -- datalist - -> Word32 -- keyId - -> Ptr () -- oldval - -> Ptr () -- newval - -> Maybe (DestroyNotify) -- destroy - -> Maybe (DestroyNotify) -- oldDestroy - -> m Bool -- result -datalistIdReplaceData datalist keyId oldval newval destroy oldDestroy = liftIO $ do - let datalist' = unsafeManagedPtrGetPtr datalist - 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' - ptroldDestroy <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC)) - maybeOldDestroy <- case oldDestroy of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jOldDestroy -> do - jOldDestroy' <- mkDestroyNotify (destroyNotifyWrapper (Just ptroldDestroy) jOldDestroy) - poke ptroldDestroy jOldDestroy' - return jOldDestroy' - result <- g_datalist_id_replace_data datalist' keyId oldval newval maybeDestroy maybeOldDestroy - let result' = (/= 0) result - touchManagedPtr datalist - return result' - - --- function g_datalist_get_flags --- Args : [Arg {argCName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_datalist_get_flags" g_datalist_get_flags :: - Ptr Data -> -- datalist : TInterface "GLib" "Data" - IO Word32 - - -datalistGetFlags :: - (MonadIO m) => - Data -- datalist - -> m Word32 -- result -datalistGetFlags datalist = liftIO $ do - let datalist' = unsafeManagedPtrGetPtr datalist - result <- g_datalist_get_flags datalist' - touchManagedPtr datalist - return result - - --- function g_datalist_clear --- Args : [Arg {argCName = "datalist", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -datalistClear datalist = liftIO $ do - let datalist' = unsafeManagedPtrGetPtr datalist - g_datalist_clear datalist' - touchManagedPtr datalist - return () - - --- function g_convert_with_iconv --- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "converter", argType = TInterface "GLib" "IConv", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : True --- Skip return : False - -foreign import ccall "g_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 -- bytesRead - -> Word64 -- bytesWritten - -> m T.Text -- result -convertWithIconv str len converter bytesRead bytesWritten = liftIO $ do - str' <- textToCString str - let converter' = unsafeManagedPtrGetPtr converter - onException (do - result <- propagateGError $ g_convert_with_iconv str' len converter' bytesRead bytesWritten - 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 {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "to_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "from_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fallback", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : True --- Skip return : False - -foreign import ccall "g_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 -- toCodeset - -> T.Text -- fromCodeset - -> T.Text -- fallback - -> Word64 -- bytesRead - -> Word64 -- bytesWritten - -> m T.Text -- result -convertWithFallback str len toCodeset fromCodeset fallback bytesRead bytesWritten = liftIO $ do - str' <- textToCString str - toCodeset' <- textToCString toCodeset - fromCodeset' <- textToCString fromCodeset - fallback' <- textToCString fallback - onException (do - result <- propagateGError $ g_convert_with_fallback str' len toCodeset' fromCodeset' fallback' bytesRead bytesWritten - checkUnexpectedReturnNULL "g_convert_with_fallback" result - result' <- cstringToText result - freeMem result - freeMem str' - freeMem toCodeset' - freeMem fromCodeset' - freeMem fallback' - return result' - ) (do - freeMem str' - freeMem toCodeset' - freeMem fromCodeset' - freeMem fallback' - ) - - --- function g_convert_error_quark --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -convertErrorQuark = liftIO $ do - result <- g_convert_error_quark - return result - - --- function g_convert --- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "to_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "from_codeset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (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 -- toCodeset - -> T.Text -- fromCodeset - -> m (T.Text,Word64,Word64) -- result -convert str len toCodeset fromCodeset = liftIO $ do - str' <- textToCString str - toCodeset' <- textToCString toCodeset - fromCodeset' <- textToCString fromCodeset - bytesRead <- allocMem :: IO (Ptr Word64) - bytesWritten <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_convert str' len toCodeset' fromCodeset' bytesRead bytesWritten - checkUnexpectedReturnNULL "g_convert" result - result' <- cstringToText result - freeMem result - bytesRead' <- peek bytesRead - bytesWritten' <- peek bytesWritten - freeMem str' - freeMem toCodeset' - freeMem fromCodeset' - freeMem bytesRead - freeMem bytesWritten - return (result', bytesRead', bytesWritten') - ) (do - freeMem str' - freeMem toCodeset' - freeMem fromCodeset' - freeMem bytesRead - freeMem bytesWritten - ) - - --- function g_compute_hmac_for_string --- Args : [Arg {argCName = "digest_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "key_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- digestType - -> ByteString -- key - -> T.Text -- str - -> Int64 -- length_ - -> m T.Text -- result -computeHmacForString digestType key str length_ = liftIO $ do - let keyLen = fromIntegral $ B.length key - let digestType' = (fromIntegral . fromEnum) digestType - key' <- packByteString key - str' <- textToCString str - result <- g_compute_hmac_for_string digestType' key' keyLen 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 {argCName = "digest_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "key_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- digestType - -> ByteString -- key - -> Word8 -- data_ - -> Word64 -- length_ - -> m T.Text -- result -computeHmacForData digestType key data_ length_ = liftIO $ do - let keyLen = fromIntegral $ B.length key - let digestType' = (fromIntegral . fromEnum) digestType - key' <- packByteString key - result <- g_compute_hmac_for_data digestType' key' keyLen 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 {argCName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- checksumType - -> T.Text -- str - -> Int64 -- length_ - -> m T.Text -- result -computeChecksumForString checksumType str length_ = liftIO $ do - let checksumType' = (fromIntegral . fromEnum) checksumType - str' <- textToCString str - result <- g_compute_checksum_for_string checksumType' 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 {argCName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (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 -- checksumType - -> ByteString -- data_ - -> m T.Text -- result -computeChecksumForData checksumType data_ = liftIO $ do - let length_ = fromIntegral $ B.length data_ - let checksumType' = (fromIntegral . fromEnum) checksumType - data_' <- packByteString data_ - result <- g_compute_checksum_for_data checksumType' 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 {argCName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- checksumType - -> Bytes -- data_ - -> m T.Text -- result -computeChecksumForBytes checksumType data_ = liftIO $ do - let checksumType' = (fromIntegral . fromEnum) checksumType - let data_' = unsafeManagedPtrGetPtr data_ - result <- g_compute_checksum_for_bytes checksumType' data_' - checkUnexpectedReturnNULL "g_compute_checksum_for_bytes" result - result' <- cstringToText result - freeMem result - touchManagedPtr data_ - return result' - - --- function g_close --- Args : [Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_close" g_close :: - Int32 -> -- fd : TBasicType TInt - Ptr (Ptr GError) -> -- error - IO CInt - - -close :: - (MonadIO m) => - Int32 -- fd - -> m () -- result -close fd = liftIO $ do - onException (do - _ <- propagateGError $ g_close fd - return () - ) (do - return () - ) - - --- function g_clear_error --- Args : [] --- Lengths : [] --- returnType : Nothing --- throws : True --- Skip return : False - -foreign import ccall "g_clear_error" g_clear_error :: - Ptr (Ptr GError) -> -- error - IO () - - -clearError :: - (MonadIO m) => - m () -- result -clearError = liftIO $ do - onException (do - propagateGError $ g_clear_error - return () - ) (do - return () - ) - - --- function g_child_watch_source_new --- Args : [Arg {argCName = "pid", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "Source") --- throws : False --- Skip return : False - -foreign import ccall "g_child_watch_source_new" g_child_watch_source_new :: - Int32 -> -- pid : TBasicType TInt - IO (Ptr Source) - - -childWatchSourceNew :: - (MonadIO m) => - Int32 -- pid - -> m Source -- result -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 {argCName = "priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pid", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "function", argType = TInterface "GLib" "ChildWatchFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_child_watch_add_full" g_child_watch_add_full :: - Int32 -> -- priority : TBasicType TInt - Int32 -> -- pid : TBasicType TInt - FunPtr ChildWatchFuncC -> -- function : TInterface "GLib" "ChildWatchFunc" - Ptr () -> -- data : TBasicType TPtr - FunPtr DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO Word32 - - -childWatchAdd :: - (MonadIO m) => - Int32 -- priority - -> Int32 -- pid - -> ChildWatchFunc -- function - -> m Word32 -- result -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 glib_check_version --- Args : [Arg {argCName = "required_major", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "required_minor", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "required_micro", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "glib_check_version" glib_check_version :: - Word32 -> -- required_major : TBasicType TUInt - Word32 -> -- required_minor : TBasicType TUInt - Word32 -> -- required_micro : TBasicType TUInt - IO CString - - -checkVersion :: - (MonadIO m) => - Word32 -- requiredMajor - -> Word32 -- requiredMinor - -> Word32 -- requiredMicro - -> m T.Text -- result -checkVersion requiredMajor requiredMinor requiredMicro = liftIO $ do - result <- glib_check_version requiredMajor requiredMinor requiredMicro - checkUnexpectedReturnNULL "glib_check_version" result - result' <- cstringToText result - return result' - - --- function g_chdir --- Args : [Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_chdir" g_chdir :: - CString -> -- path : TBasicType TUTF8 - IO Int32 - - -chdir :: - (MonadIO m) => - T.Text -- path - -> m Int32 -- result -chdir path = liftIO $ do - path' <- textToCString path - result <- g_chdir path' - freeMem path' - return result - - --- function g_build_pathv --- Args : [Arg {argCName = "separator", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "args", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "args", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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_bit_unlock --- Args : [Arg {argCName = "address", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lock_bit", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_bit_unlock" g_bit_unlock :: - Int32 -> -- address : TBasicType TInt - Int32 -> -- lock_bit : TBasicType TInt - IO () - - -bitUnlock :: - (MonadIO m) => - Int32 -- address - -> Int32 -- lockBit - -> m () -- result -bitUnlock address lockBit = liftIO $ do - g_bit_unlock address lockBit - return () - - --- function g_bit_trylock --- Args : [Arg {argCName = "address", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lock_bit", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_bit_trylock" g_bit_trylock :: - Int32 -> -- address : TBasicType TInt - Int32 -> -- lock_bit : TBasicType TInt - IO CInt - - -bitTrylock :: - (MonadIO m) => - Int32 -- address - -> Int32 -- lockBit - -> m Bool -- result -bitTrylock address lockBit = liftIO $ do - result <- g_bit_trylock address lockBit - let result' = (/= 0) result - return result' - - --- function g_bit_storage --- Args : [Arg {argCName = "number", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_bit_storage" g_bit_storage :: - CULong -> -- number : TBasicType TULong - IO Word32 - - -bitStorage :: - (MonadIO m) => - CULong -- number - -> m Word32 -- result -bitStorage number = liftIO $ do - result <- g_bit_storage number - return result - - --- function g_bit_nth_msf --- Args : [Arg {argCName = "mask", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "nth_bit", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_bit_nth_msf" g_bit_nth_msf :: - CULong -> -- mask : TBasicType TULong - Int32 -> -- nth_bit : TBasicType TInt - IO Int32 - - -bitNthMsf :: - (MonadIO m) => - CULong -- mask - -> Int32 -- nthBit - -> m Int32 -- result -bitNthMsf mask nthBit = liftIO $ do - result <- g_bit_nth_msf mask nthBit - return result - - --- function g_bit_nth_lsf --- Args : [Arg {argCName = "mask", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "nth_bit", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_bit_nth_lsf" g_bit_nth_lsf :: - CULong -> -- mask : TBasicType TULong - Int32 -> -- nth_bit : TBasicType TInt - IO Int32 - - -bitNthLsf :: - (MonadIO m) => - CULong -- mask - -> Int32 -- nthBit - -> m Int32 -- result -bitNthLsf mask nthBit = liftIO $ do - result <- g_bit_nth_lsf mask nthBit - return result - - --- function g_bit_lock --- Args : [Arg {argCName = "address", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lock_bit", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_bit_lock" g_bit_lock :: - Int32 -> -- address : TBasicType TInt - Int32 -> -- lock_bit : TBasicType TInt - IO () - - -bitLock :: - (MonadIO m) => - Int32 -- address - -> Int32 -- lockBit - -> m () -- result -bitLock address lockBit = liftIO $ do - g_bit_lock address lockBit - return () - - --- function g_basename --- Args : [Arg {argCName = "file_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- fileName - -> m T.Text -- result -basename fileName = liftIO $ do - fileName' <- textToCString fileName - result <- g_basename fileName' - checkUnexpectedReturnNULL "g_basename" result - result' <- cstringToText result - freeMem fileName' - return result' - - --- function g_base64_encode --- Args : [Arg {argCName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "text", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "out_len", argType = TBasicType TUInt64, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "out_len", argType = TBasicType TUInt64, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (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) -- result -base64DecodeInplace text = liftIO $ do - let outLen = fromIntegral $ B.length text - text' <- packByteString text - text'' <- allocMem :: IO (Ptr (Ptr Word8)) - poke text'' text' - outLen' <- allocMem :: IO (Ptr Word64) - poke outLen' outLen - result <- g_base64_decode_inplace text'' outLen' - outLen'' <- peek outLen' - text''' <- peek text'' - text'''' <- (unpackByteStringWithLength outLen'') text''' - freeMem text''' - freeMem text'' - freeMem outLen' - return (result, text'''') - - --- function g_base64_decode --- Args : [Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_len", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "out_len", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TCArray False (-1) 1 (TBasicType TUInt8)) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -base64Decode text = liftIO $ do - text' <- textToCString text - outLen <- allocMem :: IO (Ptr Word64) - result <- g_base64_decode text' outLen - outLen' <- peek outLen - checkUnexpectedReturnNULL "g_base64_decode" result - result' <- (unpackByteStringWithLength outLen') result - freeMem result - freeMem text' - freeMem outLen - return result' - - --- function g_atomic_pointer_xor --- Args : [Arg {argCName = "atomic", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_atomic_pointer_xor" g_atomic_pointer_xor :: - Ptr () -> -- atomic : TBasicType TPtr - Word64 -> -- val : TBasicType TUInt64 - IO Word64 - - -atomicPointerXor :: - (MonadIO m) => - Ptr () -- atomic - -> Word64 -- val - -> m Word64 -- result -atomicPointerXor atomic val = liftIO $ do - result <- g_atomic_pointer_xor atomic val - return result - - --- function g_atomic_pointer_set --- Args : [Arg {argCName = "atomic", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "newval", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_atomic_pointer_set" g_atomic_pointer_set :: - Ptr () -> -- atomic : TBasicType TPtr - Ptr () -> -- newval : TBasicType TPtr - IO () - - -atomicPointerSet :: - (MonadIO m) => - Ptr () -- atomic - -> Ptr () -- newval - -> m () -- result -atomicPointerSet atomic newval = liftIO $ do - g_atomic_pointer_set atomic newval - return () - - --- function g_atomic_pointer_or --- Args : [Arg {argCName = "atomic", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_atomic_pointer_or" g_atomic_pointer_or :: - Ptr () -> -- atomic : TBasicType TPtr - Word64 -> -- val : TBasicType TUInt64 - IO Word64 - - -atomicPointerOr :: - (MonadIO m) => - Ptr () -- atomic - -> Word64 -- val - -> m Word64 -- result -atomicPointerOr atomic val = liftIO $ do - result <- g_atomic_pointer_or atomic val - return result - - --- function g_atomic_pointer_compare_and_exchange --- Args : [Arg {argCName = "atomic", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "oldval", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "newval", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_atomic_pointer_compare_and_exchange" g_atomic_pointer_compare_and_exchange :: - Ptr () -> -- atomic : TBasicType TPtr - Ptr () -> -- oldval : TBasicType TPtr - Ptr () -> -- newval : TBasicType TPtr - IO CInt - - -atomicPointerCompareAndExchange :: - (MonadIO m) => - Ptr () -- atomic - -> Ptr () -- oldval - -> Ptr () -- newval - -> m Bool -- result -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 {argCName = "atomic", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "val", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_atomic_pointer_and" g_atomic_pointer_and :: - Ptr () -> -- atomic : TBasicType TPtr - Word64 -> -- val : TBasicType TUInt64 - IO Word64 - - -atomicPointerAnd :: - (MonadIO m) => - Ptr () -- atomic - -> Word64 -- val - -> m Word64 -- result -atomicPointerAnd atomic val = liftIO $ do - result <- g_atomic_pointer_and atomic val - return result - - --- function g_atomic_pointer_add --- Args : [Arg {argCName = "atomic", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "val", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_atomic_pointer_add" g_atomic_pointer_add :: - Ptr () -> -- atomic : TBasicType TPtr - Int64 -> -- val : TBasicType TInt64 - IO Int64 - - -atomicPointerAdd :: - (MonadIO m) => - Ptr () -- atomic - -> Int64 -- val - -> m Int64 -- result -atomicPointerAdd atomic val = liftIO $ do - result <- g_atomic_pointer_add atomic val - return result - - --- function g_atomic_int_xor --- Args : [Arg {argCName = "atomic", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "val", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_atomic_int_xor" g_atomic_int_xor :: - Word32 -> -- atomic : TBasicType TUInt - Word32 -> -- val : TBasicType TUInt - IO Word32 - - -atomicIntXor :: - (MonadIO m) => - Word32 -- atomic - -> Word32 -- val - -> m Word32 -- result -atomicIntXor atomic val = liftIO $ do - result <- g_atomic_int_xor atomic val - return result - - --- function g_atomic_int_set --- Args : [Arg {argCName = "atomic", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "newval", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_atomic_int_set" g_atomic_int_set :: - Int32 -> -- atomic : TBasicType TInt - Int32 -> -- newval : TBasicType TInt - IO () - - -atomicIntSet :: - (MonadIO m) => - Int32 -- atomic - -> Int32 -- newval - -> m () -- result -atomicIntSet atomic newval = liftIO $ do - g_atomic_int_set atomic newval - return () - - --- function g_atomic_int_or --- Args : [Arg {argCName = "atomic", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "val", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_atomic_int_or" g_atomic_int_or :: - Word32 -> -- atomic : TBasicType TUInt - Word32 -> -- val : TBasicType TUInt - IO Word32 - - -atomicIntOr :: - (MonadIO m) => - Word32 -- atomic - -> Word32 -- val - -> m Word32 -- result -atomicIntOr atomic val = liftIO $ do - result <- g_atomic_int_or atomic val - return result - - --- function g_atomic_int_inc --- Args : [Arg {argCName = "atomic", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_atomic_int_inc" g_atomic_int_inc :: - Int32 -> -- atomic : TBasicType TInt - IO () - - -atomicIntInc :: - (MonadIO m) => - Int32 -- atomic - -> m () -- result -atomicIntInc atomic = liftIO $ do - g_atomic_int_inc atomic - return () - - --- function g_atomic_int_get --- Args : [Arg {argCName = "atomic", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_atomic_int_get" g_atomic_int_get :: - Int32 -> -- atomic : TBasicType TInt - IO Int32 - - -atomicIntGet :: - (MonadIO m) => - Int32 -- atomic - -> m Int32 -- result -atomicIntGet atomic = liftIO $ do - result <- g_atomic_int_get atomic - return result - - --- function g_atomic_int_exchange_and_add --- Args : [Arg {argCName = "atomic", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "val", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_atomic_int_exchange_and_add" g_atomic_int_exchange_and_add :: - Int32 -> -- atomic : TBasicType TInt - Int32 -> -- val : TBasicType TInt - IO Int32 - -{-# DEPRECATED atomicIntExchangeAndAdd ["(Since version 2.30)","Use g_atomic_int_add() instead."]#-} -atomicIntExchangeAndAdd :: - (MonadIO m) => - Int32 -- atomic - -> Int32 -- val - -> m Int32 -- result -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 {argCName = "atomic", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_atomic_int_dec_and_test" g_atomic_int_dec_and_test :: - Int32 -> -- atomic : TBasicType TInt - IO CInt - - -atomicIntDecAndTest :: - (MonadIO m) => - Int32 -- atomic - -> m Bool -- result -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 {argCName = "atomic", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "oldval", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "newval", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_atomic_int_compare_and_exchange" g_atomic_int_compare_and_exchange :: - Int32 -> -- atomic : TBasicType TInt - Int32 -> -- oldval : TBasicType TInt - Int32 -> -- newval : TBasicType TInt - IO CInt - - -atomicIntCompareAndExchange :: - (MonadIO m) => - Int32 -- atomic - -> Int32 -- oldval - -> Int32 -- newval - -> m Bool -- result -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 {argCName = "atomic", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "val", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_atomic_int_and" g_atomic_int_and :: - Word32 -> -- atomic : TBasicType TUInt - Word32 -> -- val : TBasicType TUInt - IO Word32 - - -atomicIntAnd :: - (MonadIO m) => - Word32 -- atomic - -> Word32 -- val - -> m Word32 -- result -atomicIntAnd atomic val = liftIO $ do - result <- g_atomic_int_and atomic val - return result - - --- function g_atomic_int_add --- Args : [Arg {argCName = "atomic", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "val", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_atomic_int_add" g_atomic_int_add :: - Int32 -> -- atomic : TBasicType TInt - Int32 -> -- val : TBasicType TInt - IO Int32 - - -atomicIntAdd :: - (MonadIO m) => - Int32 -- atomic - -> Int32 -- val - -> m Int32 -- result -atomicIntAdd atomic val = liftIO $ do - result <- g_atomic_int_add atomic val - return result - - --- function g_atexit --- Args : [Arg {argCName = "func", argType = TInterface "GLib" "VoidFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 () -- result -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 {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "line", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_assertion_message_expr" g_assertion_message_expr :: - CString -> -- domain : TBasicType TUTF8 - CString -> -- file : TBasicType TUTF8 - Int32 -> -- line : TBasicType TInt - 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 () -- result -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 {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "line", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error_domain", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error_code", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_assertion_message_error" g_assertion_message_error :: - CString -> -- domain : TBasicType TUTF8 - CString -> -- file : TBasicType TUTF8 - Int32 -> -- line : TBasicType TInt - CString -> -- func : TBasicType TUTF8 - CString -> -- expr : TBasicType TUTF8 - Ptr GError -> -- error : TError - Word32 -> -- error_domain : TBasicType TUInt32 - Int32 -> -- error_code : TBasicType TInt - IO () - - -assertionMessageError :: - (MonadIO m) => - T.Text -- domain - -> T.Text -- file - -> Int32 -- line - -> T.Text -- func - -> T.Text -- expr - -> GError -- error_ - -> Word32 -- errorDomain - -> Int32 -- errorCode - -> m () -- result -assertionMessageError domain file line func expr error_ errorDomain errorCode = 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_' errorDomain errorCode - touchManagedPtr error_ - freeMem domain' - freeMem file' - freeMem func' - freeMem expr' - return () - - --- function g_assertion_message_cmpstr --- Args : [Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "line", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "arg1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cmp", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "arg2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_assertion_message_cmpstr" g_assertion_message_cmpstr :: - CString -> -- domain : TBasicType TUTF8 - CString -> -- file : TBasicType TUTF8 - Int32 -> -- line : TBasicType TInt - 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 () -- result -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 {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "line", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_assertion_message" g_assertion_message :: - CString -> -- domain : TBasicType TUTF8 - CString -> -- file : TBasicType TUTF8 - Int32 -> -- line : TBasicType TInt - 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 () -- result -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 {argCName = "log_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "line", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pretty_function", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expression", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_assert_warning" g_assert_warning :: - CString -> -- log_domain : TBasicType TUTF8 - CString -> -- file : TBasicType TUTF8 - Int32 -> -- line : TBasicType TInt - CString -> -- pretty_function : TBasicType TUTF8 - CString -> -- expression : TBasicType TUTF8 - IO () - - -assertWarning :: - (MonadIO m) => - T.Text -- logDomain - -> T.Text -- file - -> Int32 -- line - -> T.Text -- prettyFunction - -> T.Text -- expression - -> m () -- result -assertWarning logDomain file line prettyFunction expression = liftIO $ do - logDomain' <- textToCString logDomain - file' <- textToCString file - prettyFunction' <- textToCString prettyFunction - expression' <- textToCString expression - g_assert_warning logDomain' file' line prettyFunction' expression' - freeMem logDomain' - freeMem file' - freeMem prettyFunction' - freeMem expression' - return () - - --- function g_ascii_xdigit_value --- Args : [Arg {argCName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_ascii_xdigit_value" g_ascii_xdigit_value :: - Int8 -> -- c : TBasicType TInt8 - IO Int32 - - -asciiXdigitValue :: - (MonadIO m) => - Int8 -- c - -> m Int32 -- result -asciiXdigitValue c = liftIO $ do - result <- g_ascii_xdigit_value c - return result - - --- function g_ascii_toupper --- Args : [Arg {argCName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -asciiToupper c = liftIO $ do - result <- g_ascii_toupper c - return result - - --- function g_ascii_tolower --- Args : [Arg {argCName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -asciiTolower c = liftIO $ do - result <- g_ascii_tolower c - return result - - --- function g_ascii_strup --- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "base", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_ascii_strtoull" g_ascii_strtoull :: - CString -> -- nptr : TBasicType TUTF8 - CString -> -- endptr : TBasicType TUTF8 - Word32 -> -- base : TBasicType TUInt - IO Word64 - - -asciiStrtoull :: - (MonadIO m) => - T.Text -- nptr - -> T.Text -- endptr - -> Word32 -- base - -> m Word64 -- result -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 {argCName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "base", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_ascii_strtoll" g_ascii_strtoll :: - CString -> -- nptr : TBasicType TUTF8 - CString -> -- endptr : TBasicType TUTF8 - Word32 -> -- base : TBasicType TUInt - IO Int64 - - -asciiStrtoll :: - (MonadIO m) => - T.Text -- nptr - -> T.Text -- endptr - -> Word32 -- base - -> m Int64 -- result -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 {argCName = "nptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "endptr", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TDouble) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "s1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "s2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buf_len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "d", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_ascii_formatd" g_ascii_formatd :: - CString -> -- buffer : TBasicType TUTF8 - Int32 -> -- buf_len : TBasicType TInt - CString -> -- format : TBasicType TUTF8 - CDouble -> -- d : TBasicType TDouble - IO CString - - -asciiFormatd :: - (MonadIO m) => - T.Text -- buffer - -> Int32 -- bufLen - -> T.Text -- format - -> Double -- d - -> m T.Text -- result -asciiFormatd buffer bufLen format d = liftIO $ do - buffer' <- textToCString buffer - format' <- textToCString format - let d' = realToFrac d - result <- g_ascii_formatd buffer' bufLen format' d' - checkUnexpectedReturnNULL "g_ascii_formatd" result - result' <- cstringToText result - freeMem result - freeMem buffer' - freeMem format' - return result' - - --- function g_ascii_dtostr --- Args : [Arg {argCName = "buffer", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buf_len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "d", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_ascii_dtostr" g_ascii_dtostr :: - CString -> -- buffer : TBasicType TUTF8 - Int32 -> -- buf_len : TBasicType TInt - CDouble -> -- d : TBasicType TDouble - IO CString - - -asciiDtostr :: - (MonadIO m) => - T.Text -- buffer - -> Int32 -- bufLen - -> Double -- d - -> m T.Text -- result -asciiDtostr buffer bufLen d = liftIO $ do - buffer' <- textToCString buffer - let d' = realToFrac d - result <- g_ascii_dtostr buffer' bufLen d' - checkUnexpectedReturnNULL "g_ascii_dtostr" result - result' <- cstringToText result - freeMem result - freeMem buffer' - return result' - - --- function g_ascii_digit_value --- Args : [Arg {argCName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_ascii_digit_value" g_ascii_digit_value :: - Int8 -> -- c : TBasicType TInt8 - IO Int32 - - -asciiDigitValue :: - (MonadIO m) => - Int8 -- c - -> m Int32 -- result -asciiDigitValue c = liftIO $ do - result <- g_ascii_digit_value c - return result - - --- function g_access --- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_access" g_access :: - CString -> -- filename : TBasicType TUTF8 - Int32 -> -- mode : TBasicType TInt - IO Int32 - - -access :: - (MonadIO m) => - T.Text -- filename - -> Int32 -- mode - -> m Int32 -- result -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,153 +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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.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,504 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -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 - AsyncQueueLengthMethodInfo , - asyncQueueLength , - - --- ** asyncQueueLengthUnlocked - AsyncQueueLengthUnlockedMethodInfo , - asyncQueueLengthUnlocked , - - --- ** asyncQueueLock - AsyncQueueLockMethodInfo , - asyncQueueLock , - - --- ** asyncQueuePush - AsyncQueuePushMethodInfo , - asyncQueuePush , - - --- ** asyncQueuePushFront - AsyncQueuePushFrontMethodInfo , - asyncQueuePushFront , - - --- ** asyncQueuePushFrontUnlocked - AsyncQueuePushFrontUnlockedMethodInfo , - asyncQueuePushFrontUnlocked , - - --- ** asyncQueuePushUnlocked - AsyncQueuePushUnlockedMethodInfo , - asyncQueuePushUnlocked , - - --- ** asyncQueueRefUnlocked - AsyncQueueRefUnlockedMethodInfo , - asyncQueueRefUnlocked , - - --- ** asyncQueueRemove - AsyncQueueRemoveMethodInfo , - asyncQueueRemove , - - --- ** asyncQueueRemoveUnlocked - AsyncQueueRemoveUnlockedMethodInfo , - asyncQueueRemoveUnlocked , - - --- ** asyncQueueUnlock - AsyncQueueUnlockMethodInfo , - asyncQueueUnlock , - - --- ** asyncQueueUnref - AsyncQueueUnrefMethodInfo , - asyncQueueUnref , - - --- ** asyncQueueUnrefAndUnlock - AsyncQueueUnrefAndUnlockMethodInfo , - asyncQueueUnrefAndUnlock , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype AsyncQueue = AsyncQueue (ForeignPtr AsyncQueue) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr AsyncQueue where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noAsyncQueue :: Maybe AsyncQueue -noAsyncQueue = Nothing - - -type instance AttributeList AsyncQueue = AsyncQueueAttributeList -type AsyncQueueAttributeList = ('[ ] :: [(Symbol, *)]) - --- method AsyncQueue::length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_async_queue_length" g_async_queue_length :: - Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" - IO Int32 - - -asyncQueueLength :: - (MonadIO m) => - AsyncQueue -- _obj - -> m Int32 -- result -asyncQueueLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_async_queue_length _obj' - touchManagedPtr _obj - return result - -data AsyncQueueLengthMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo AsyncQueueLengthMethodInfo AsyncQueue signature where - overloadedMethod _ = asyncQueueLength - --- method AsyncQueue::length_unlocked --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_async_queue_length_unlocked" g_async_queue_length_unlocked :: - Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" - IO Int32 - - -asyncQueueLengthUnlocked :: - (MonadIO m) => - AsyncQueue -- _obj - -> m Int32 -- result -asyncQueueLengthUnlocked _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_async_queue_length_unlocked _obj' - touchManagedPtr _obj - return result - -data AsyncQueueLengthUnlockedMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo AsyncQueueLengthUnlockedMethodInfo AsyncQueue signature where - overloadedMethod _ = asyncQueueLengthUnlocked - --- method AsyncQueue::lock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_async_queue_lock" g_async_queue_lock :: - Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" - IO () - - -asyncQueueLock :: - (MonadIO m) => - AsyncQueue -- _obj - -> m () -- result -asyncQueueLock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_async_queue_lock _obj' - touchManagedPtr _obj - return () - -data AsyncQueueLockMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo AsyncQueueLockMethodInfo AsyncQueue signature where - overloadedMethod _ = asyncQueueLock - --- method AsyncQueue::push --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_async_queue_push" g_async_queue_push :: - Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" - Ptr () -> -- data : TBasicType TPtr - IO () - - -asyncQueuePush :: - (MonadIO m) => - AsyncQueue -- _obj - -> Ptr () -- data_ - -> m () -- result -asyncQueuePush _obj data_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_async_queue_push _obj' data_ - touchManagedPtr _obj - return () - -data AsyncQueuePushMethodInfo -instance (signature ~ (Ptr () -> m ()), MonadIO m) => MethodInfo AsyncQueuePushMethodInfo AsyncQueue signature where - overloadedMethod _ = asyncQueuePush - --- method AsyncQueue::push_front --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_async_queue_push_front" g_async_queue_push_front :: - Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" - Ptr () -> -- item : TBasicType TPtr - IO () - - -asyncQueuePushFront :: - (MonadIO m) => - AsyncQueue -- _obj - -> Ptr () -- item - -> m () -- result -asyncQueuePushFront _obj item = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_async_queue_push_front _obj' item - touchManagedPtr _obj - return () - -data AsyncQueuePushFrontMethodInfo -instance (signature ~ (Ptr () -> m ()), MonadIO m) => MethodInfo AsyncQueuePushFrontMethodInfo AsyncQueue signature where - overloadedMethod _ = asyncQueuePushFront - --- method AsyncQueue::push_front_unlocked --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_async_queue_push_front_unlocked" g_async_queue_push_front_unlocked :: - Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" - Ptr () -> -- item : TBasicType TPtr - IO () - - -asyncQueuePushFrontUnlocked :: - (MonadIO m) => - AsyncQueue -- _obj - -> Ptr () -- item - -> m () -- result -asyncQueuePushFrontUnlocked _obj item = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_async_queue_push_front_unlocked _obj' item - touchManagedPtr _obj - return () - -data AsyncQueuePushFrontUnlockedMethodInfo -instance (signature ~ (Ptr () -> m ()), MonadIO m) => MethodInfo AsyncQueuePushFrontUnlockedMethodInfo AsyncQueue signature where - overloadedMethod _ = asyncQueuePushFrontUnlocked - --- method AsyncQueue::push_unlocked --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_async_queue_push_unlocked" g_async_queue_push_unlocked :: - Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" - Ptr () -> -- data : TBasicType TPtr - IO () - - -asyncQueuePushUnlocked :: - (MonadIO m) => - AsyncQueue -- _obj - -> Ptr () -- data_ - -> m () -- result -asyncQueuePushUnlocked _obj data_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_async_queue_push_unlocked _obj' data_ - touchManagedPtr _obj - return () - -data AsyncQueuePushUnlockedMethodInfo -instance (signature ~ (Ptr () -> m ()), MonadIO m) => MethodInfo AsyncQueuePushUnlockedMethodInfo AsyncQueue signature where - overloadedMethod _ = asyncQueuePushUnlocked - --- method AsyncQueue::ref_unlocked --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_async_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 () -- result -asyncQueueRefUnlocked _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_async_queue_ref_unlocked _obj' - touchManagedPtr _obj - return () - -data AsyncQueueRefUnlockedMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo AsyncQueueRefUnlockedMethodInfo AsyncQueue signature where - overloadedMethod _ = asyncQueueRefUnlocked - --- method AsyncQueue::remove --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_async_queue_remove" g_async_queue_remove :: - Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" - Ptr () -> -- item : TBasicType TPtr - IO CInt - - -asyncQueueRemove :: - (MonadIO m) => - AsyncQueue -- _obj - -> Ptr () -- item - -> m Bool -- result -asyncQueueRemove _obj item = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_async_queue_remove _obj' item - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data AsyncQueueRemoveMethodInfo -instance (signature ~ (Ptr () -> m Bool), MonadIO m) => MethodInfo AsyncQueueRemoveMethodInfo AsyncQueue signature where - overloadedMethod _ = asyncQueueRemove - --- method AsyncQueue::remove_unlocked --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_async_queue_remove_unlocked" g_async_queue_remove_unlocked :: - Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" - Ptr () -> -- item : TBasicType TPtr - IO CInt - - -asyncQueueRemoveUnlocked :: - (MonadIO m) => - AsyncQueue -- _obj - -> Ptr () -- item - -> m Bool -- result -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' - -data AsyncQueueRemoveUnlockedMethodInfo -instance (signature ~ (Ptr () -> m Bool), MonadIO m) => MethodInfo AsyncQueueRemoveUnlockedMethodInfo AsyncQueue signature where - overloadedMethod _ = asyncQueueRemoveUnlocked - --- method AsyncQueue::unlock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_async_queue_unlock" g_async_queue_unlock :: - Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" - IO () - - -asyncQueueUnlock :: - (MonadIO m) => - AsyncQueue -- _obj - -> m () -- result -asyncQueueUnlock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_async_queue_unlock _obj' - touchManagedPtr _obj - return () - -data AsyncQueueUnlockMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo AsyncQueueUnlockMethodInfo AsyncQueue signature where - overloadedMethod _ = asyncQueueUnlock - --- method AsyncQueue::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_async_queue_unref" g_async_queue_unref :: - Ptr AsyncQueue -> -- _obj : TInterface "GLib" "AsyncQueue" - IO () - - -asyncQueueUnref :: - (MonadIO m) => - AsyncQueue -- _obj - -> m () -- result -asyncQueueUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_async_queue_unref _obj' - touchManagedPtr _obj - return () - -data AsyncQueueUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo AsyncQueueUnrefMethodInfo AsyncQueue signature where - overloadedMethod _ = asyncQueueUnref - --- method AsyncQueue::unref_and_unlock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "AsyncQueue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_async_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 () -- result -asyncQueueUnrefAndUnlock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_async_queue_unref_and_unlock _obj' - touchManagedPtr _obj - return () - -data AsyncQueueUnrefAndUnlockMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo AsyncQueueUnrefAndUnlockMethodInfo AsyncQueue signature where - overloadedMethod _ = asyncQueueUnrefAndUnlock - -type family ResolveAsyncQueueMethod (t :: Symbol) (o :: *) :: * where - ResolveAsyncQueueMethod "length" o = AsyncQueueLengthMethodInfo - ResolveAsyncQueueMethod "lengthUnlocked" o = AsyncQueueLengthUnlockedMethodInfo - ResolveAsyncQueueMethod "lock" o = AsyncQueueLockMethodInfo - ResolveAsyncQueueMethod "push" o = AsyncQueuePushMethodInfo - ResolveAsyncQueueMethod "pushFront" o = AsyncQueuePushFrontMethodInfo - ResolveAsyncQueueMethod "pushFrontUnlocked" o = AsyncQueuePushFrontUnlockedMethodInfo - ResolveAsyncQueueMethod "pushUnlocked" o = AsyncQueuePushUnlockedMethodInfo - ResolveAsyncQueueMethod "refUnlocked" o = AsyncQueueRefUnlockedMethodInfo - ResolveAsyncQueueMethod "remove" o = AsyncQueueRemoveMethodInfo - ResolveAsyncQueueMethod "removeUnlocked" o = AsyncQueueRemoveUnlockedMethodInfo - ResolveAsyncQueueMethod "unlock" o = AsyncQueueUnlockMethodInfo - ResolveAsyncQueueMethod "unref" o = AsyncQueueUnrefMethodInfo - ResolveAsyncQueueMethod "unrefAndUnlock" o = AsyncQueueUnrefAndUnlockMethodInfo - ResolveAsyncQueueMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAsyncQueueMethod t AsyncQueue, MethodInfo info AsyncQueue p) => IsLabelProxy t (AsyncQueue -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAsyncQueueMethod t AsyncQueue, MethodInfo info AsyncQueue p) => IsLabel t (AsyncQueue -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,24 +0,0 @@ -module GI.GLib.Structs.AsyncQueue where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype AsyncQueue = AsyncQueue (ForeignPtr AsyncQueue) -instance WrappedPtr AsyncQueue where -data AsyncQueueLengthMethodInfo -data AsyncQueueLengthUnlockedMethodInfo -data AsyncQueueLockMethodInfo -data AsyncQueuePushMethodInfo -data AsyncQueuePushFrontMethodInfo -data AsyncQueuePushFrontUnlockedMethodInfo -data AsyncQueuePushUnlockedMethodInfo -data AsyncQueueRefUnlockedMethodInfo -data AsyncQueueRemoveMethodInfo -data AsyncQueueRemoveUnlockedMethodInfo -data AsyncQueueUnlockMethodInfo -data AsyncQueueUnrefMethodInfo -data AsyncQueueUnrefAndUnlockMethodInfo 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,1796 +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 - BookmarkFileAddApplicationMethodInfo , - bookmarkFileAddApplication , - - --- ** bookmarkFileAddGroup - BookmarkFileAddGroupMethodInfo , - bookmarkFileAddGroup , - - --- ** bookmarkFileErrorQuark - bookmarkFileErrorQuark , - - --- ** bookmarkFileFree - BookmarkFileFreeMethodInfo , - bookmarkFileFree , - - --- ** bookmarkFileGetAdded - BookmarkFileGetAddedMethodInfo , - bookmarkFileGetAdded , - - --- ** bookmarkFileGetAppInfo - BookmarkFileGetAppInfoMethodInfo , - bookmarkFileGetAppInfo , - - --- ** bookmarkFileGetApplications - BookmarkFileGetApplicationsMethodInfo , - bookmarkFileGetApplications , - - --- ** bookmarkFileGetDescription - BookmarkFileGetDescriptionMethodInfo , - bookmarkFileGetDescription , - - --- ** bookmarkFileGetGroups - BookmarkFileGetGroupsMethodInfo , - bookmarkFileGetGroups , - - --- ** bookmarkFileGetIcon - BookmarkFileGetIconMethodInfo , - bookmarkFileGetIcon , - - --- ** bookmarkFileGetIsPrivate - BookmarkFileGetIsPrivateMethodInfo , - bookmarkFileGetIsPrivate , - - --- ** bookmarkFileGetMimeType - BookmarkFileGetMimeTypeMethodInfo , - bookmarkFileGetMimeType , - - --- ** bookmarkFileGetModified - BookmarkFileGetModifiedMethodInfo , - bookmarkFileGetModified , - - --- ** bookmarkFileGetSize - BookmarkFileGetSizeMethodInfo , - bookmarkFileGetSize , - - --- ** bookmarkFileGetTitle - BookmarkFileGetTitleMethodInfo , - bookmarkFileGetTitle , - - --- ** bookmarkFileGetUris - BookmarkFileGetUrisMethodInfo , - bookmarkFileGetUris , - - --- ** bookmarkFileGetVisited - BookmarkFileGetVisitedMethodInfo , - bookmarkFileGetVisited , - - --- ** bookmarkFileHasApplication - BookmarkFileHasApplicationMethodInfo , - bookmarkFileHasApplication , - - --- ** bookmarkFileHasGroup - BookmarkFileHasGroupMethodInfo , - bookmarkFileHasGroup , - - --- ** bookmarkFileHasItem - BookmarkFileHasItemMethodInfo , - bookmarkFileHasItem , - - --- ** bookmarkFileLoadFromData - BookmarkFileLoadFromDataMethodInfo , - bookmarkFileLoadFromData , - - --- ** bookmarkFileLoadFromDataDirs - BookmarkFileLoadFromDataDirsMethodInfo , - bookmarkFileLoadFromDataDirs , - - --- ** bookmarkFileLoadFromFile - BookmarkFileLoadFromFileMethodInfo , - bookmarkFileLoadFromFile , - - --- ** bookmarkFileMoveItem - BookmarkFileMoveItemMethodInfo , - bookmarkFileMoveItem , - - --- ** bookmarkFileRemoveApplication - BookmarkFileRemoveApplicationMethodInfo , - bookmarkFileRemoveApplication , - - --- ** bookmarkFileRemoveGroup - BookmarkFileRemoveGroupMethodInfo , - bookmarkFileRemoveGroup , - - --- ** bookmarkFileRemoveItem - BookmarkFileRemoveItemMethodInfo , - bookmarkFileRemoveItem , - - --- ** bookmarkFileSetAdded - BookmarkFileSetAddedMethodInfo , - bookmarkFileSetAdded , - - --- ** bookmarkFileSetAppInfo - BookmarkFileSetAppInfoMethodInfo , - bookmarkFileSetAppInfo , - - --- ** bookmarkFileSetDescription - BookmarkFileSetDescriptionMethodInfo , - bookmarkFileSetDescription , - - --- ** bookmarkFileSetGroups - BookmarkFileSetGroupsMethodInfo , - bookmarkFileSetGroups , - - --- ** bookmarkFileSetIcon - BookmarkFileSetIconMethodInfo , - bookmarkFileSetIcon , - - --- ** bookmarkFileSetIsPrivate - BookmarkFileSetIsPrivateMethodInfo , - bookmarkFileSetIsPrivate , - - --- ** bookmarkFileSetMimeType - BookmarkFileSetMimeTypeMethodInfo , - bookmarkFileSetMimeType , - - --- ** bookmarkFileSetModified - BookmarkFileSetModifiedMethodInfo , - bookmarkFileSetModified , - - --- ** bookmarkFileSetTitle - BookmarkFileSetTitleMethodInfo , - bookmarkFileSetTitle , - - --- ** bookmarkFileSetVisited - BookmarkFileSetVisitedMethodInfo , - bookmarkFileSetVisited , - - --- ** bookmarkFileToData - BookmarkFileToDataMethodInfo , - bookmarkFileToData , - - --- ** bookmarkFileToFile - BookmarkFileToFileMethodInfo , - bookmarkFileToFile , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype BookmarkFile = BookmarkFile (ForeignPtr BookmarkFile) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr BookmarkFile where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noBookmarkFile :: Maybe BookmarkFile -noBookmarkFile = Nothing - - -type instance AttributeList BookmarkFile = BookmarkFileAttributeList -type BookmarkFileAttributeList = ('[ ] :: [(Symbol, *)]) - --- method BookmarkFile::add_application --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "exec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 () -- result -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 () - -data BookmarkFileAddApplicationMethodInfo -instance (signature ~ (T.Text -> Maybe (T.Text) -> Maybe (T.Text) -> m ()), MonadIO m) => MethodInfo BookmarkFileAddApplicationMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileAddApplication - --- method BookmarkFile::add_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 () -- result -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 () - -data BookmarkFileAddGroupMethodInfo -instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m) => MethodInfo BookmarkFileAddGroupMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileAddGroup - --- method BookmarkFile::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -bookmarkFileFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_bookmark_file_free _obj' - touchManagedPtr _obj - return () - -data BookmarkFileFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo BookmarkFileFreeMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileFree - --- method BookmarkFile::get_added --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -bookmarkFileGetAdded :: - (MonadIO m) => - BookmarkFile -- _obj - -> T.Text -- uri - -> m CLong -- result -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' - ) - -data BookmarkFileGetAddedMethodInfo -instance (signature ~ (T.Text -> m CLong), MonadIO m) => MethodInfo BookmarkFileGetAddedMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileGetAdded - --- method BookmarkFile::get_app_info --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "exec", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "count", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "stamp", argType = TBasicType TLong, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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 TUInt - Ptr CLong -> -- stamp : TBasicType TLong - Ptr (Ptr GError) -> -- error - IO CInt - - -bookmarkFileGetAppInfo :: - (MonadIO m) => - BookmarkFile -- _obj - -> T.Text -- uri - -> T.Text -- name - -> m (T.Text,Word32,CLong) -- result -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 CLong) - 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 - ) - -data BookmarkFileGetAppInfoMethodInfo -instance (signature ~ (T.Text -> T.Text -> m (T.Text,Word32,CLong)), MonadIO m) => MethodInfo BookmarkFileGetAppInfoMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileGetAppInfo - --- method BookmarkFile::get_applications --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (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] -- result -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_ - ) - -data BookmarkFileGetApplicationsMethodInfo -instance (signature ~ (T.Text -> m [T.Text]), MonadIO m) => MethodInfo BookmarkFileGetApplicationsMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileGetApplications - --- method BookmarkFile::get_description --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - ) - -data BookmarkFileGetDescriptionMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m) => MethodInfo BookmarkFileGetDescriptionMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileGetDescription - --- method BookmarkFile::get_groups --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (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] -- result -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_ - ) - -data BookmarkFileGetGroupsMethodInfo -instance (signature ~ (T.Text -> m [T.Text]), MonadIO m) => MethodInfo BookmarkFileGetGroupsMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileGetGroups - --- method BookmarkFile::get_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "href", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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) -- result -bookmarkFileGetIcon _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - href <- allocMem :: IO (Ptr CString) - mimeType <- allocMem :: IO (Ptr CString) - onException (do - _ <- propagateGError $ g_bookmark_file_get_icon _obj' uri' href mimeType - href' <- peek href - href'' <- cstringToText href' - freeMem href' - mimeType' <- peek mimeType - mimeType'' <- cstringToText mimeType' - freeMem mimeType' - touchManagedPtr _obj - freeMem uri' - freeMem href - freeMem mimeType - return (href'', mimeType'') - ) (do - freeMem uri' - freeMem href - freeMem mimeType - ) - -data BookmarkFileGetIconMethodInfo -instance (signature ~ (T.Text -> m (T.Text,T.Text)), MonadIO m) => MethodInfo BookmarkFileGetIconMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileGetIcon - --- method BookmarkFile::get_is_private --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 () -- result -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' - ) - -data BookmarkFileGetIsPrivateMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo BookmarkFileGetIsPrivateMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileGetIsPrivate - --- method BookmarkFile::get_mime_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - ) - -data BookmarkFileGetMimeTypeMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m) => MethodInfo BookmarkFileGetMimeTypeMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileGetMimeType - --- method BookmarkFile::get_modified --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -bookmarkFileGetModified :: - (MonadIO m) => - BookmarkFile -- _obj - -> T.Text -- uri - -> m CLong -- result -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' - ) - -data BookmarkFileGetModifiedMethodInfo -instance (signature ~ (T.Text -> m CLong), MonadIO m) => MethodInfo BookmarkFileGetModifiedMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileGetModified - --- method BookmarkFile::get_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_bookmark_file_get_size" g_bookmark_file_get_size :: - Ptr BookmarkFile -> -- _obj : TInterface "GLib" "BookmarkFile" - IO Int32 - - -bookmarkFileGetSize :: - (MonadIO m) => - BookmarkFile -- _obj - -> m Int32 -- result -bookmarkFileGetSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_bookmark_file_get_size _obj' - touchManagedPtr _obj - return result - -data BookmarkFileGetSizeMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo BookmarkFileGetSizeMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileGetSize - --- method BookmarkFile::get_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : True --- Skip return : False - -foreign import ccall "g_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 -- result -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 - ) - -data BookmarkFileGetTitleMethodInfo -instance (signature ~ (Maybe (T.Text) -> m T.Text), MonadIO m) => MethodInfo BookmarkFileGetTitleMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileGetTitle - --- method BookmarkFile::get_uris --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TCArray False (-1) 1 (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "g_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] -- result -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' - -data BookmarkFileGetUrisMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m) => MethodInfo BookmarkFileGetUrisMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileGetUris - --- method BookmarkFile::get_visited --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -bookmarkFileGetVisited :: - (MonadIO m) => - BookmarkFile -- _obj - -> T.Text -- uri - -> m CLong -- result -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' - ) - -data BookmarkFileGetVisitedMethodInfo -instance (signature ~ (T.Text -> m CLong), MonadIO m) => MethodInfo BookmarkFileGetVisitedMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileGetVisited - --- method BookmarkFile::has_application --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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 () -- result -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' - ) - -data BookmarkFileHasApplicationMethodInfo -instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m) => MethodInfo BookmarkFileHasApplicationMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileHasApplication - --- method BookmarkFile::has_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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 () -- result -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' - ) - -data BookmarkFileHasGroupMethodInfo -instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m) => MethodInfo BookmarkFileHasGroupMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileHasGroup - --- method BookmarkFile::has_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data BookmarkFileHasItemMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m) => MethodInfo BookmarkFileHasItemMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileHasItem - --- method BookmarkFile::load_from_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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 () -- result -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_' - ) - -data BookmarkFileLoadFromDataMethodInfo -instance (signature ~ (T.Text -> Word64 -> m ()), MonadIO m) => MethodInfo BookmarkFileLoadFromDataMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileLoadFromData - --- method BookmarkFile::load_from_data_dirs --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "full_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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) -- fullPath - -> m () -- result -bookmarkFileLoadFromDataDirs _obj file fullPath = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - file' <- textToCString file - maybeFullPath <- case fullPath of - Nothing -> return nullPtr - Just jFullPath -> do - jFullPath' <- textToCString jFullPath - return jFullPath' - onException (do - _ <- propagateGError $ g_bookmark_file_load_from_data_dirs _obj' file' maybeFullPath - touchManagedPtr _obj - freeMem file' - freeMem maybeFullPath - return () - ) (do - freeMem file' - freeMem maybeFullPath - ) - -data BookmarkFileLoadFromDataDirsMethodInfo -instance (signature ~ (T.Text -> Maybe (T.Text) -> m ()), MonadIO m) => MethodInfo BookmarkFileLoadFromDataDirsMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileLoadFromDataDirs - --- method BookmarkFile::load_from_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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 () -- result -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' - ) - -data BookmarkFileLoadFromFileMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo BookmarkFileLoadFromFileMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileLoadFromFile - --- method BookmarkFile::move_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "old_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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 -- oldUri - -> Maybe (T.Text) -- newUri - -> m () -- result -bookmarkFileMoveItem _obj oldUri newUri = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - oldUri' <- textToCString oldUri - maybeNewUri <- case newUri of - Nothing -> return nullPtr - Just jNewUri -> do - jNewUri' <- textToCString jNewUri - return jNewUri' - onException (do - _ <- propagateGError $ g_bookmark_file_move_item _obj' oldUri' maybeNewUri - touchManagedPtr _obj - freeMem oldUri' - freeMem maybeNewUri - return () - ) (do - freeMem oldUri' - freeMem maybeNewUri - ) - -data BookmarkFileMoveItemMethodInfo -instance (signature ~ (T.Text -> Maybe (T.Text) -> m ()), MonadIO m) => MethodInfo BookmarkFileMoveItemMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileMoveItem - --- method BookmarkFile::remove_application --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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 () -- result -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' - ) - -data BookmarkFileRemoveApplicationMethodInfo -instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m) => MethodInfo BookmarkFileRemoveApplicationMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileRemoveApplication - --- method BookmarkFile::remove_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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 () -- result -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' - ) - -data BookmarkFileRemoveGroupMethodInfo -instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m) => MethodInfo BookmarkFileRemoveGroupMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileRemoveGroup - --- method BookmarkFile::remove_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 () -- result -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' - ) - -data BookmarkFileRemoveItemMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo BookmarkFileRemoveItemMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileRemoveItem - --- method BookmarkFile::set_added --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "added", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 - CLong -> -- added : TBasicType TLong - IO () - - -bookmarkFileSetAdded :: - (MonadIO m) => - BookmarkFile -- _obj - -> T.Text -- uri - -> CLong -- added - -> m () -- result -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 () - -data BookmarkFileSetAddedMethodInfo -instance (signature ~ (T.Text -> CLong -> m ()), MonadIO m) => MethodInfo BookmarkFileSetAddedMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileSetAdded - --- method BookmarkFile::set_app_info --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "exec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stamp", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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 TInt - CLong -> -- stamp : TBasicType TLong - Ptr (Ptr GError) -> -- error - IO CInt - - -bookmarkFileSetAppInfo :: - (MonadIO m) => - BookmarkFile -- _obj - -> T.Text -- uri - -> T.Text -- name - -> T.Text -- exec - -> Int32 -- count - -> CLong -- stamp - -> m () -- result -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' - ) - -data BookmarkFileSetAppInfoMethodInfo -instance (signature ~ (T.Text -> T.Text -> T.Text -> Int32 -> CLong -> m ()), MonadIO m) => MethodInfo BookmarkFileSetAppInfoMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileSetAppInfo - --- method BookmarkFile::set_description --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 () -- result -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 () - -data BookmarkFileSetDescriptionMethodInfo -instance (signature ~ (Maybe (T.Text) -> T.Text -> m ()), MonadIO m) => MethodInfo BookmarkFileSetDescriptionMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileSetDescription - --- method BookmarkFile::set_groups --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "groups", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data BookmarkFileSetGroupsMethodInfo -instance (signature ~ (T.Text -> Maybe (T.Text) -> Word64 -> m ()), MonadIO m) => MethodInfo BookmarkFileSetGroupsMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileSetGroups - --- method BookmarkFile::set_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "href", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- mimeType - -> m () -- result -bookmarkFileSetIcon _obj uri href mimeType = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - maybeHref <- case href of - Nothing -> return nullPtr - Just jHref -> do - jHref' <- textToCString jHref - return jHref' - mimeType' <- textToCString mimeType - g_bookmark_file_set_icon _obj' uri' maybeHref mimeType' - touchManagedPtr _obj - freeMem uri' - freeMem maybeHref - freeMem mimeType' - return () - -data BookmarkFileSetIconMethodInfo -instance (signature ~ (T.Text -> Maybe (T.Text) -> T.Text -> m ()), MonadIO m) => MethodInfo BookmarkFileSetIconMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileSetIcon - --- method BookmarkFile::set_is_private --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_private", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- isPrivate - -> m () -- result -bookmarkFileSetIsPrivate _obj uri isPrivate = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - let isPrivate' = (fromIntegral . fromEnum) isPrivate - g_bookmark_file_set_is_private _obj' uri' isPrivate' - touchManagedPtr _obj - freeMem uri' - return () - -data BookmarkFileSetIsPrivateMethodInfo -instance (signature ~ (T.Text -> Bool -> m ()), MonadIO m) => MethodInfo BookmarkFileSetIsPrivateMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileSetIsPrivate - --- method BookmarkFile::set_mime_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- mimeType - -> m () -- result -bookmarkFileSetMimeType _obj uri mimeType = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri' <- textToCString uri - mimeType' <- textToCString mimeType - g_bookmark_file_set_mime_type _obj' uri' mimeType' - touchManagedPtr _obj - freeMem uri' - freeMem mimeType' - return () - -data BookmarkFileSetMimeTypeMethodInfo -instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m) => MethodInfo BookmarkFileSetMimeTypeMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileSetMimeType - --- method BookmarkFile::set_modified --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modified", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 - CLong -> -- modified : TBasicType TLong - IO () - - -bookmarkFileSetModified :: - (MonadIO m) => - BookmarkFile -- _obj - -> T.Text -- uri - -> CLong -- modified - -> m () -- result -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 () - -data BookmarkFileSetModifiedMethodInfo -instance (signature ~ (T.Text -> CLong -> m ()), MonadIO m) => MethodInfo BookmarkFileSetModifiedMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileSetModified - --- method BookmarkFile::set_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 () -- result -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 () - -data BookmarkFileSetTitleMethodInfo -instance (signature ~ (Maybe (T.Text) -> T.Text -> m ()), MonadIO m) => MethodInfo BookmarkFileSetTitleMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileSetTitle - --- method BookmarkFile::set_visited --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visited", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 - CLong -> -- visited : TBasicType TLong - IO () - - -bookmarkFileSetVisited :: - (MonadIO m) => - BookmarkFile -- _obj - -> T.Text -- uri - -> CLong -- visited - -> m () -- result -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 () - -data BookmarkFileSetVisitedMethodInfo -instance (signature ~ (T.Text -> CLong -> m ()), MonadIO m) => MethodInfo BookmarkFileSetVisitedMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileSetVisited - --- method BookmarkFile::to_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : True --- Skip return : False - -foreign import ccall "g_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) -- result -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_ - ) - -data BookmarkFileToDataMethodInfo -instance (signature ~ (m (T.Text,Word64)), MonadIO m) => MethodInfo BookmarkFileToDataMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileToData - --- method BookmarkFile::to_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "BookmarkFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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 () -- result -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' - ) - -data BookmarkFileToFileMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo BookmarkFileToFileMethodInfo BookmarkFile signature where - overloadedMethod _ = bookmarkFileToFile - --- method BookmarkFile::error_quark --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -bookmarkFileErrorQuark = liftIO $ do - result <- g_bookmark_file_error_quark - return result - -type family ResolveBookmarkFileMethod (t :: Symbol) (o :: *) :: * where - ResolveBookmarkFileMethod "addApplication" o = BookmarkFileAddApplicationMethodInfo - ResolveBookmarkFileMethod "addGroup" o = BookmarkFileAddGroupMethodInfo - ResolveBookmarkFileMethod "free" o = BookmarkFileFreeMethodInfo - ResolveBookmarkFileMethod "hasApplication" o = BookmarkFileHasApplicationMethodInfo - ResolveBookmarkFileMethod "hasGroup" o = BookmarkFileHasGroupMethodInfo - ResolveBookmarkFileMethod "hasItem" o = BookmarkFileHasItemMethodInfo - ResolveBookmarkFileMethod "loadFromData" o = BookmarkFileLoadFromDataMethodInfo - ResolveBookmarkFileMethod "loadFromDataDirs" o = BookmarkFileLoadFromDataDirsMethodInfo - ResolveBookmarkFileMethod "loadFromFile" o = BookmarkFileLoadFromFileMethodInfo - ResolveBookmarkFileMethod "moveItem" o = BookmarkFileMoveItemMethodInfo - ResolveBookmarkFileMethod "removeApplication" o = BookmarkFileRemoveApplicationMethodInfo - ResolveBookmarkFileMethod "removeGroup" o = BookmarkFileRemoveGroupMethodInfo - ResolveBookmarkFileMethod "removeItem" o = BookmarkFileRemoveItemMethodInfo - ResolveBookmarkFileMethod "toData" o = BookmarkFileToDataMethodInfo - ResolveBookmarkFileMethod "toFile" o = BookmarkFileToFileMethodInfo - ResolveBookmarkFileMethod "getAdded" o = BookmarkFileGetAddedMethodInfo - ResolveBookmarkFileMethod "getAppInfo" o = BookmarkFileGetAppInfoMethodInfo - ResolveBookmarkFileMethod "getApplications" o = BookmarkFileGetApplicationsMethodInfo - ResolveBookmarkFileMethod "getDescription" o = BookmarkFileGetDescriptionMethodInfo - ResolveBookmarkFileMethod "getGroups" o = BookmarkFileGetGroupsMethodInfo - ResolveBookmarkFileMethod "getIcon" o = BookmarkFileGetIconMethodInfo - ResolveBookmarkFileMethod "getIsPrivate" o = BookmarkFileGetIsPrivateMethodInfo - ResolveBookmarkFileMethod "getMimeType" o = BookmarkFileGetMimeTypeMethodInfo - ResolveBookmarkFileMethod "getModified" o = BookmarkFileGetModifiedMethodInfo - ResolveBookmarkFileMethod "getSize" o = BookmarkFileGetSizeMethodInfo - ResolveBookmarkFileMethod "getTitle" o = BookmarkFileGetTitleMethodInfo - ResolveBookmarkFileMethod "getUris" o = BookmarkFileGetUrisMethodInfo - ResolveBookmarkFileMethod "getVisited" o = BookmarkFileGetVisitedMethodInfo - ResolveBookmarkFileMethod "setAdded" o = BookmarkFileSetAddedMethodInfo - ResolveBookmarkFileMethod "setAppInfo" o = BookmarkFileSetAppInfoMethodInfo - ResolveBookmarkFileMethod "setDescription" o = BookmarkFileSetDescriptionMethodInfo - ResolveBookmarkFileMethod "setGroups" o = BookmarkFileSetGroupsMethodInfo - ResolveBookmarkFileMethod "setIcon" o = BookmarkFileSetIconMethodInfo - ResolveBookmarkFileMethod "setIsPrivate" o = BookmarkFileSetIsPrivateMethodInfo - ResolveBookmarkFileMethod "setMimeType" o = BookmarkFileSetMimeTypeMethodInfo - ResolveBookmarkFileMethod "setModified" o = BookmarkFileSetModifiedMethodInfo - ResolveBookmarkFileMethod "setTitle" o = BookmarkFileSetTitleMethodInfo - ResolveBookmarkFileMethod "setVisited" o = BookmarkFileSetVisitedMethodInfo - ResolveBookmarkFileMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveBookmarkFileMethod t BookmarkFile, MethodInfo info BookmarkFile p) => IsLabelProxy t (BookmarkFile -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveBookmarkFileMethod t BookmarkFile, MethodInfo info BookmarkFile p) => IsLabel t (BookmarkFile -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,49 +0,0 @@ -module GI.GLib.Structs.BookmarkFile where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype BookmarkFile = BookmarkFile (ForeignPtr BookmarkFile) -instance WrappedPtr BookmarkFile where -data BookmarkFileAddApplicationMethodInfo -data BookmarkFileAddGroupMethodInfo -data BookmarkFileFreeMethodInfo -data BookmarkFileGetAddedMethodInfo -data BookmarkFileGetAppInfoMethodInfo -data BookmarkFileGetApplicationsMethodInfo -data BookmarkFileGetDescriptionMethodInfo -data BookmarkFileGetGroupsMethodInfo -data BookmarkFileGetIconMethodInfo -data BookmarkFileGetIsPrivateMethodInfo -data BookmarkFileGetMimeTypeMethodInfo -data BookmarkFileGetModifiedMethodInfo -data BookmarkFileGetSizeMethodInfo -data BookmarkFileGetTitleMethodInfo -data BookmarkFileGetUrisMethodInfo -data BookmarkFileGetVisitedMethodInfo -data BookmarkFileHasApplicationMethodInfo -data BookmarkFileHasGroupMethodInfo -data BookmarkFileHasItemMethodInfo -data BookmarkFileLoadFromDataMethodInfo -data BookmarkFileLoadFromDataDirsMethodInfo -data BookmarkFileLoadFromFileMethodInfo -data BookmarkFileMoveItemMethodInfo -data BookmarkFileRemoveApplicationMethodInfo -data BookmarkFileRemoveGroupMethodInfo -data BookmarkFileRemoveItemMethodInfo -data BookmarkFileSetAddedMethodInfo -data BookmarkFileSetAppInfoMethodInfo -data BookmarkFileSetDescriptionMethodInfo -data BookmarkFileSetGroupsMethodInfo -data BookmarkFileSetIconMethodInfo -data BookmarkFileSetIsPrivateMethodInfo -data BookmarkFileSetMimeTypeMethodInfo -data BookmarkFileSetModifiedMethodInfo -data BookmarkFileSetTitleMethodInfo -data BookmarkFileSetVisitedMethodInfo -data BookmarkFileToDataMethodInfo -data BookmarkFileToFileMethodInfo 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,278 +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(..) , - newZeroByteArray , - noByteArray , - - - -- * Methods --- ** byteArrayFree - byteArrayFree , - - --- ** byteArrayFreeToBytes - byteArrayFreeToBytes , - - --- ** byteArrayNew - byteArrayNew , - - --- ** byteArrayNewTake - byteArrayNewTake , - - --- ** byteArrayUnref - byteArrayUnref , - - - - - -- * Properties --- ** Data - byteArrayData , - byteArrayReadData , - byteArrayWriteData , - - --- ** Len - byteArrayLen , - byteArrayReadLen , - byteArrayWriteLen , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.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 - --- | Construct a `ByteArray` struct initialized to zero. -newZeroByteArray :: MonadIO m => m ByteArray -newZeroByteArray = liftIO $ callocBoxedBytes 16 >>= wrapBoxed ByteArray - -instance tag ~ 'AttrSet => Constructible ByteArray tag where - new _ attrs = do - o <- newZeroByteArray - GI.Attributes.set o attrs - return o - - -noByteArray :: Maybe ByteArray -noByteArray = Nothing - -byteArrayReadData :: MonadIO m => ByteArray -> m Word8 -byteArrayReadData s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word8 - return val - -byteArrayWriteData :: MonadIO m => ByteArray -> Word8 -> m () -byteArrayWriteData s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Word8) - -data ByteArrayDataFieldInfo -instance AttrInfo ByteArrayDataFieldInfo where - type AttrAllowedOps ByteArrayDataFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ByteArrayDataFieldInfo = (~) Word8 - type AttrBaseTypeConstraint ByteArrayDataFieldInfo = (~) ByteArray - type AttrGetType ByteArrayDataFieldInfo = Word8 - type AttrLabel ByteArrayDataFieldInfo = "data" - attrGet _ = byteArrayReadData - attrSet _ = byteArrayWriteData - attrConstruct = undefined - attrClear _ = undefined - -byteArrayData :: AttrLabelProxy "data" -byteArrayData = AttrLabelProxy - - -byteArrayReadLen :: MonadIO m => ByteArray -> m Word32 -byteArrayReadLen s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word32 - return val - -byteArrayWriteLen :: MonadIO m => ByteArray -> Word32 -> m () -byteArrayWriteLen s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Word32) - -data ByteArrayLenFieldInfo -instance AttrInfo ByteArrayLenFieldInfo where - type AttrAllowedOps ByteArrayLenFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ByteArrayLenFieldInfo = (~) Word32 - type AttrBaseTypeConstraint ByteArrayLenFieldInfo = (~) ByteArray - type AttrGetType ByteArrayLenFieldInfo = Word32 - type AttrLabel ByteArrayLenFieldInfo = "len" - attrGet _ = byteArrayReadLen - attrSet _ = byteArrayWriteLen - attrConstruct = undefined - attrClear _ = undefined - -byteArrayLen :: AttrLabelProxy "len" -byteArrayLen = AttrLabelProxy - - - -type instance AttributeList ByteArray = ByteArrayAttributeList -type ByteArrayAttributeList = ('[ '("data", ByteArrayDataFieldInfo), '("len", ByteArrayLenFieldInfo)] :: [(Symbol, *)]) - --- method ByteArray::free --- method type : MemberFunction --- Args : [Arg {argCName = "array", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "free_segment", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- freeSegment - -> m Word8 -- result -byteArrayFree array freeSegment = liftIO $ do - array' <- packGByteArray array - let freeSegment' = (fromIntegral . fromEnum) freeSegment - result <- g_byte_array_free array' freeSegment' - unrefGByteArray array' - return result - --- method ByteArray::free_to_bytes --- method type : MemberFunction --- Args : [Arg {argCName = "array", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (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 -- result -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' - --- method ByteArray::new --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just 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 -- result -byteArrayNew = liftIO $ do - result <- g_byte_array_new - checkUnexpectedReturnNULL "g_byte_array_new" result - result' <- unpackGByteArray result - unrefGByteArray result - return result' - --- method ByteArray::new_take --- method type : MemberFunction --- Args : [Arg {argCName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just 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 -- result -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' - --- method ByteArray::unref --- method type : MemberFunction --- Args : [Arg {argCName = "array", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -byteArrayUnref array = liftIO $ do - array' <- packGByteArray array - g_byte_array_unref array' - unrefGByteArray array' - return () - -type family ResolveByteArrayMethod (t :: Symbol) (o :: *) :: * where - ResolveByteArrayMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveByteArrayMethod t ByteArray, MethodInfo info ByteArray p) => IsLabelProxy t (ByteArray -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveByteArrayMethod t ByteArray, MethodInfo info ByteArray p) => IsLabel t (ByteArray -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype 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,513 +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 - BytesCompareMethodInfo , - bytesCompare , - - --- ** bytesEqual - BytesEqualMethodInfo , - bytesEqual , - - --- ** bytesGetData - BytesGetDataMethodInfo , - bytesGetData , - - --- ** bytesGetSize - BytesGetSizeMethodInfo , - bytesGetSize , - - --- ** bytesHash - BytesHashMethodInfo , - bytesHash , - - --- ** bytesNew - bytesNew , - - --- ** bytesNewFromBytes - BytesNewFromBytesMethodInfo , - bytesNewFromBytes , - - --- ** bytesNewTake - bytesNewTake , - - --- ** bytesRef - BytesRefMethodInfo , - bytesRef , - - --- ** bytesUnref - BytesUnrefMethodInfo , - bytesUnref , - - --- ** bytesUnrefToArray - BytesUnrefToArrayMethodInfo , - bytesUnrefToArray , - - --- ** bytesUnrefToData - BytesUnrefToDataMethodInfo , - bytesUnrefToData , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.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 - - -type instance AttributeList Bytes = BytesAttributeList -type BytesAttributeList = ('[ ] :: [(Symbol, *)]) - --- method Bytes::new --- method type : Constructor --- Args : [Arg {argCName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (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 -- result -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 {argCName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TInterface "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 -- result -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 {argCName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes2", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 - -data BytesCompareMethodInfo -instance (signature ~ (Bytes -> m Int32), MonadIO m) => MethodInfo BytesCompareMethodInfo Bytes signature where - overloadedMethod _ = bytesCompare - --- method Bytes::equal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes2", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data BytesEqualMethodInfo -instance (signature ~ (Bytes -> m Bool), MonadIO m) => MethodInfo BytesEqualMethodInfo Bytes signature where - overloadedMethod _ = bytesEqual - --- method Bytes::get_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TCArray False (-1) 1 (TBasicType TUInt8)) --- throws : 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 -- result -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' - -data BytesGetDataMethodInfo -instance (signature ~ (m ByteString), MonadIO m) => MethodInfo BytesGetDataMethodInfo Bytes signature where - overloadedMethod _ = bytesGetData - --- method Bytes::get_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_bytes_get_size" g_bytes_get_size :: - Ptr Bytes -> -- _obj : TInterface "GLib" "Bytes" - IO Word64 - - -bytesGetSize :: - (MonadIO m) => - Bytes -- _obj - -> m Word64 -- result -bytesGetSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_bytes_get_size _obj' - touchManagedPtr _obj - return result - -data BytesGetSizeMethodInfo -instance (signature ~ (m Word64), MonadIO m) => MethodInfo BytesGetSizeMethodInfo Bytes signature where - overloadedMethod _ = bytesGetSize - --- method Bytes::hash --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_bytes_hash" g_bytes_hash :: - Ptr Bytes -> -- _obj : TInterface "GLib" "Bytes" - IO Word32 - - -bytesHash :: - (MonadIO m) => - Bytes -- _obj - -> m Word32 -- result -bytesHash _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_bytes_hash _obj' - touchManagedPtr _obj - return result - -data BytesHashMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo BytesHashMethodInfo Bytes signature where - overloadedMethod _ = bytesHash - --- method Bytes::new_from_bytes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "Bytes") --- throws : False --- Skip return : False - -foreign import ccall "g_bytes_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 -- result -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' - -data BytesNewFromBytesMethodInfo -instance (signature ~ (Word64 -> Word64 -> m Bytes), MonadIO m) => MethodInfo BytesNewFromBytesMethodInfo Bytes signature where - overloadedMethod _ = bytesNewFromBytes - --- method Bytes::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "Bytes") --- throws : False --- Skip return : False - -foreign import ccall "g_bytes_ref" g_bytes_ref :: - Ptr Bytes -> -- _obj : TInterface "GLib" "Bytes" - IO (Ptr Bytes) - - -bytesRef :: - (MonadIO m) => - Bytes -- _obj - -> m Bytes -- result -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' - -data BytesRefMethodInfo -instance (signature ~ (m Bytes), MonadIO m) => MethodInfo BytesRefMethodInfo Bytes signature where - overloadedMethod _ = bytesRef - --- method Bytes::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_bytes_unref" g_bytes_unref :: - Ptr Bytes -> -- _obj : TInterface "GLib" "Bytes" - IO () - - -bytesUnref :: - (MonadIO m) => - Bytes -- _obj - -> m () -- result -bytesUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_bytes_unref _obj' - touchManagedPtr _obj - return () - -data BytesUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo BytesUnrefMethodInfo Bytes signature where - overloadedMethod _ = bytesUnref - --- method Bytes::unref_to_array --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just 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 -- result -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' - -data BytesUnrefToArrayMethodInfo -instance (signature ~ (m ByteString), MonadIO m) => MethodInfo BytesUnrefToArrayMethodInfo Bytes signature where - overloadedMethod _ = bytesUnrefToArray - --- method Bytes::unref_to_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TPtr) --- 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 (Ptr ()) - - -bytesUnrefToData :: - (MonadIO m) => - Bytes -- _obj - -> Word64 -- size - -> m (Ptr ()) -- result -bytesUnrefToData _obj size = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_bytes_unref_to_data _obj' size - touchManagedPtr _obj - return result - -data BytesUnrefToDataMethodInfo -instance (signature ~ (Word64 -> m (Ptr ())), MonadIO m) => MethodInfo BytesUnrefToDataMethodInfo Bytes signature where - overloadedMethod _ = bytesUnrefToData - -type family ResolveBytesMethod (t :: Symbol) (o :: *) :: * where - ResolveBytesMethod "compare" o = BytesCompareMethodInfo - ResolveBytesMethod "equal" o = BytesEqualMethodInfo - ResolveBytesMethod "hash" o = BytesHashMethodInfo - ResolveBytesMethod "newFromBytes" o = BytesNewFromBytesMethodInfo - ResolveBytesMethod "ref" o = BytesRefMethodInfo - ResolveBytesMethod "unref" o = BytesUnrefMethodInfo - ResolveBytesMethod "unrefToArray" o = BytesUnrefToArrayMethodInfo - ResolveBytesMethod "unrefToData" o = BytesUnrefToDataMethodInfo - ResolveBytesMethod "getData" o = BytesGetDataMethodInfo - ResolveBytesMethod "getSize" o = BytesGetSizeMethodInfo - ResolveBytesMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveBytesMethod t Bytes, MethodInfo info Bytes p) => IsLabelProxy t (Bytes -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveBytesMethod t Bytes, MethodInfo info Bytes p) => IsLabel t (Bytes -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,21 +0,0 @@ -module GI.GLib.Structs.Bytes where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Bytes = Bytes (ForeignPtr Bytes) -instance BoxedObject Bytes where -data BytesCompareMethodInfo -data BytesEqualMethodInfo -data BytesGetDataMethodInfo -data BytesGetSizeMethodInfo -data BytesHashMethodInfo -data BytesNewFromBytesMethodInfo -data BytesRefMethodInfo -data BytesUnrefMethodInfo -data BytesUnrefToArrayMethodInfo -data BytesUnrefToDataMethodInfo 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,290 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -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 - ChecksumCopyMethodInfo , - checksumCopy , - - --- ** checksumFree - ChecksumFreeMethodInfo , - checksumFree , - - --- ** checksumGetString - ChecksumGetStringMethodInfo , - checksumGetString , - - --- ** checksumNew - checksumNew , - - --- ** checksumReset - ChecksumResetMethodInfo , - checksumReset , - - --- ** checksumTypeGetLength - checksumTypeGetLength , - - --- ** checksumUpdate - ChecksumUpdateMethodInfo , - checksumUpdate , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.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 - - -type instance AttributeList Checksum = ChecksumAttributeList -type ChecksumAttributeList = ('[ ] :: [(Symbol, *)]) - --- method Checksum::new --- method type : Constructor --- Args : [Arg {argCName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- checksumType - -> m Checksum -- result -checksumNew checksumType = liftIO $ do - let checksumType' = (fromIntegral . fromEnum) checksumType - result <- g_checksum_new checksumType' - checkUnexpectedReturnNULL "g_checksum_new" result - result' <- (wrapBoxed Checksum) result - return result' - --- method Checksum::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data ChecksumCopyMethodInfo -instance (signature ~ (m Checksum), MonadIO m) => MethodInfo ChecksumCopyMethodInfo Checksum signature where - overloadedMethod _ = checksumCopy - --- method Checksum::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -checksumFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_checksum_free _obj' - touchManagedPtr _obj - return () - -data ChecksumFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo ChecksumFreeMethodInfo Checksum signature where - overloadedMethod _ = checksumFree - --- method Checksum::get_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_checksum_get_string" g_checksum_get_string :: - Ptr Checksum -> -- _obj : TInterface "GLib" "Checksum" - IO CString - - -checksumGetString :: - (MonadIO m) => - Checksum -- _obj - -> m T.Text -- result -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' - -data ChecksumGetStringMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo ChecksumGetStringMethodInfo Checksum signature where - overloadedMethod _ = checksumGetString - --- method Checksum::reset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -checksumReset _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_checksum_reset _obj' - touchManagedPtr _obj - return () - -data ChecksumResetMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo ChecksumResetMethodInfo Checksum signature where - overloadedMethod _ = checksumReset - --- method Checksum::update --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Checksum", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 () -- result -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 () - -data ChecksumUpdateMethodInfo -instance (signature ~ (ByteString -> m ()), MonadIO m) => MethodInfo ChecksumUpdateMethodInfo Checksum signature where - overloadedMethod _ = checksumUpdate - --- method Checksum::type_get_length --- method type : MemberFunction --- Args : [Arg {argCName = "checksum_type", argType = TInterface "GLib" "ChecksumType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_checksum_type_get_length" g_checksum_type_get_length :: - CUInt -> -- checksum_type : TInterface "GLib" "ChecksumType" - IO Int64 - - -checksumTypeGetLength :: - (MonadIO m) => - ChecksumType -- checksumType - -> m Int64 -- result -checksumTypeGetLength checksumType = liftIO $ do - let checksumType' = (fromIntegral . fromEnum) checksumType - result <- g_checksum_type_get_length checksumType' - return result - -type family ResolveChecksumMethod (t :: Symbol) (o :: *) :: * where - ResolveChecksumMethod "copy" o = ChecksumCopyMethodInfo - ResolveChecksumMethod "free" o = ChecksumFreeMethodInfo - ResolveChecksumMethod "reset" o = ChecksumResetMethodInfo - ResolveChecksumMethod "update" o = ChecksumUpdateMethodInfo - ResolveChecksumMethod "getString" o = ChecksumGetStringMethodInfo - ResolveChecksumMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveChecksumMethod t Checksum, MethodInfo info Checksum p) => IsLabelProxy t (Checksum -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveChecksumMethod t Checksum, MethodInfo info Checksum p) => IsLabel t (Checksum -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,16 +0,0 @@ -module GI.GLib.Structs.Checksum where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Checksum = Checksum (ForeignPtr Checksum) -instance BoxedObject Checksum where -data ChecksumCopyMethodInfo -data ChecksumFreeMethodInfo -data ChecksumGetStringMethodInfo -data ChecksumResetMethodInfo -data ChecksumUpdateMethodInfo 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,343 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -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(..) , - newZeroCond , - noCond , - - - -- * Methods --- ** condBroadcast - CondBroadcastMethodInfo , - condBroadcast , - - --- ** condClear - CondClearMethodInfo , - condClear , - - --- ** condInit - CondInitMethodInfo , - condInit , - - --- ** condSignal - CondSignalMethodInfo , - condSignal , - - --- ** condWait - CondWaitMethodInfo , - condWait , - - --- ** condWaitUntil - CondWaitUntilMethodInfo , - condWaitUntil , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Cond = Cond (ForeignPtr Cond) -instance WrappedPtr Cond where - wrappedPtrCalloc = callocBytes 16 - wrappedPtrCopy = copyPtr 16 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `Cond` struct initialized to zero. -newZeroCond :: MonadIO m => m Cond -newZeroCond = liftIO $ wrappedPtrCalloc >>= wrapPtr Cond - -instance tag ~ 'AttrSet => Constructible Cond tag where - new _ attrs = do - o <- newZeroCond - GI.Attributes.set o attrs - return o - - -noCond :: Maybe Cond -noCond = Nothing - - -type instance AttributeList Cond = CondAttributeList -type CondAttributeList = ('[ ] :: [(Symbol, *)]) - --- method Cond::broadcast --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -condBroadcast _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_cond_broadcast _obj' - touchManagedPtr _obj - return () - -data CondBroadcastMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo CondBroadcastMethodInfo Cond signature where - overloadedMethod _ = condBroadcast - --- method Cond::clear --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -condClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_cond_clear _obj' - touchManagedPtr _obj - return () - -data CondClearMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo CondClearMethodInfo Cond signature where - overloadedMethod _ = condClear - --- method Cond::init --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -condInit _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_cond_init _obj' - touchManagedPtr _obj - return () - -data CondInitMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo CondInitMethodInfo Cond signature where - overloadedMethod _ = condInit - --- method Cond::signal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -condSignal _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_cond_signal _obj' - touchManagedPtr _obj - return () - -data CondSignalMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo CondSignalMethodInfo Cond signature where - overloadedMethod _ = condSignal - --- method Cond::wait --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mutex", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -condWait _obj mutex = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let mutex' = unsafeManagedPtrGetPtr mutex - g_cond_wait _obj' mutex' - touchManagedPtr _obj - touchManagedPtr mutex - return () - -data CondWaitMethodInfo -instance (signature ~ (Mutex -> m ()), MonadIO m) => MethodInfo CondWaitMethodInfo Cond signature where - overloadedMethod _ = condWait - --- method Cond::wait_until --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mutex", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_time", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- endTime - -> m Bool -- result -condWaitUntil _obj mutex endTime = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let mutex' = unsafeManagedPtrGetPtr mutex - result <- g_cond_wait_until _obj' mutex' endTime - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr mutex - return result' - -data CondWaitUntilMethodInfo -instance (signature ~ (Mutex -> Int64 -> m Bool), MonadIO m) => MethodInfo CondWaitUntilMethodInfo Cond signature where - overloadedMethod _ = condWaitUntil - -type family ResolveCondMethod (t :: Symbol) (o :: *) :: * where - ResolveCondMethod "broadcast" o = CondBroadcastMethodInfo - ResolveCondMethod "clear" o = CondClearMethodInfo - ResolveCondMethod "init" o = CondInitMethodInfo - ResolveCondMethod "signal" o = CondSignalMethodInfo - ResolveCondMethod "wait" o = CondWaitMethodInfo - ResolveCondMethod "waitUntil" o = CondWaitUntilMethodInfo - ResolveCondMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCondMethod t Cond, MethodInfo info Cond p) => IsLabelProxy t (Cond -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCondMethod t Cond, MethodInfo info Cond p) => IsLabel t (Cond -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,17 +0,0 @@ -module GI.GLib.Structs.Cond where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Cond = Cond (ForeignPtr Cond) -instance WrappedPtr Cond where -data CondBroadcastMethodInfo -data CondClearMethodInfo -data CondInitMethodInfo -data CondSignalMethodInfo -data CondWaitMethodInfo -data CondWaitUntilMethodInfo 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,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) - -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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Data = Data (ForeignPtr Data) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr Data where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noData :: Maybe Data -noData = Nothing - - -type instance AttributeList Data = DataAttributeList -type DataAttributeList = ('[ ] :: [(Symbol, *)]) - -type family ResolveDataMethod (t :: Symbol) (o :: *) :: * where - ResolveDataMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDataMethod t Data, MethodInfo info Data p) => IsLabelProxy t (Data -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDataMethod t Data, MethodInfo info Data p) => IsLabel t (Data -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,11 +0,0 @@ -module GI.GLib.Structs.Data where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Data = Data (ForeignPtr Data) -instance WrappedPtr Data where 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,1849 +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(..) , - newZeroDate , - noDate , - - - -- * Methods --- ** dateAddDays - DateAddDaysMethodInfo , - dateAddDays , - - --- ** dateAddMonths - DateAddMonthsMethodInfo , - dateAddMonths , - - --- ** dateAddYears - DateAddYearsMethodInfo , - dateAddYears , - - --- ** dateClamp - DateClampMethodInfo , - dateClamp , - - --- ** dateClear - DateClearMethodInfo , - dateClear , - - --- ** dateCompare - DateCompareMethodInfo , - dateCompare , - - --- ** dateDaysBetween - DateDaysBetweenMethodInfo , - dateDaysBetween , - - --- ** dateFree - DateFreeMethodInfo , - dateFree , - - --- ** dateGetDay - DateGetDayMethodInfo , - dateGetDay , - - --- ** dateGetDayOfYear - DateGetDayOfYearMethodInfo , - dateGetDayOfYear , - - --- ** dateGetDaysInMonth - dateGetDaysInMonth , - - --- ** dateGetIso8601WeekOfYear - DateGetIso8601WeekOfYearMethodInfo , - dateGetIso8601WeekOfYear , - - --- ** dateGetJulian - DateGetJulianMethodInfo , - dateGetJulian , - - --- ** dateGetMondayWeekOfYear - DateGetMondayWeekOfYearMethodInfo , - dateGetMondayWeekOfYear , - - --- ** dateGetMondayWeeksInYear - dateGetMondayWeeksInYear , - - --- ** dateGetMonth - DateGetMonthMethodInfo , - dateGetMonth , - - --- ** dateGetSundayWeekOfYear - DateGetSundayWeekOfYearMethodInfo , - dateGetSundayWeekOfYear , - - --- ** dateGetSundayWeeksInYear - dateGetSundayWeeksInYear , - - --- ** dateGetWeekday - DateGetWeekdayMethodInfo , - dateGetWeekday , - - --- ** dateGetYear - DateGetYearMethodInfo , - dateGetYear , - - --- ** dateIsFirstOfMonth - DateIsFirstOfMonthMethodInfo , - dateIsFirstOfMonth , - - --- ** dateIsLastOfMonth - DateIsLastOfMonthMethodInfo , - dateIsLastOfMonth , - - --- ** dateIsLeapYear - dateIsLeapYear , - - --- ** dateNew - dateNew , - - --- ** dateNewDmy - dateNewDmy , - - --- ** dateNewJulian - dateNewJulian , - - --- ** dateOrder - DateOrderMethodInfo , - dateOrder , - - --- ** dateSetDay - DateSetDayMethodInfo , - dateSetDay , - - --- ** dateSetDmy - DateSetDmyMethodInfo , - dateSetDmy , - - --- ** dateSetJulian - DateSetJulianMethodInfo , - dateSetJulian , - - --- ** dateSetMonth - DateSetMonthMethodInfo , - dateSetMonth , - - --- ** dateSetParse - DateSetParseMethodInfo , - dateSetParse , - - --- ** dateSetTime - DateSetTimeMethodInfo , - dateSetTime , - - --- ** dateSetTimeT - DateSetTimeTMethodInfo , - dateSetTimeT , - - --- ** dateSetTimeVal - DateSetTimeValMethodInfo , - dateSetTimeVal , - - --- ** dateSetYear - DateSetYearMethodInfo , - dateSetYear , - - --- ** dateStrftime - dateStrftime , - - --- ** dateSubtractDays - DateSubtractDaysMethodInfo , - dateSubtractDays , - - --- ** dateSubtractMonths - DateSubtractMonthsMethodInfo , - dateSubtractMonths , - - --- ** dateSubtractYears - DateSubtractYearsMethodInfo , - dateSubtractYears , - - --- ** dateToStructTm - DateToStructTmMethodInfo , - dateToStructTm , - - --- ** dateValid - DateValidMethodInfo , - dateValid , - - --- ** dateValidDay - dateValidDay , - - --- ** dateValidDmy - dateValidDmy , - - --- ** dateValidJulian - dateValidJulian , - - --- ** dateValidMonth - dateValidMonth , - - --- ** dateValidWeekday - dateValidWeekday , - - --- ** dateValidYear - dateValidYear , - - - - - -- * Properties --- ** Day - dateDay , - dateReadDay , - dateWriteDay , - - --- ** Dmy - dateDmy , - dateReadDmy , - dateWriteDmy , - - --- ** Julian - dateJulian , - dateReadJulian , - dateWriteJulian , - - --- ** JulianDays - dateJulianDays , - dateReadJulianDays , - dateWriteJulianDays , - - --- ** Month - dateMonth , - dateReadMonth , - dateWriteMonth , - - --- ** Year - dateReadYear , - dateWriteYear , - dateYear , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.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 - --- | Construct a `Date` struct initialized to zero. -newZeroDate :: MonadIO m => m Date -newZeroDate = liftIO $ callocBoxedBytes 24 >>= wrapBoxed Date - -instance tag ~ 'AttrSet => Constructible Date tag where - new _ attrs = do - o <- newZeroDate - GI.Attributes.set o attrs - return o - - -noDate :: Maybe Date -noDate = Nothing - -dateReadJulianDays :: MonadIO m => Date -> m Word32 -dateReadJulianDays s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word32 - return val - -dateWriteJulianDays :: MonadIO m => Date -> Word32 -> m () -dateWriteJulianDays s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Word32) - -data DateJulianDaysFieldInfo -instance AttrInfo DateJulianDaysFieldInfo where - type AttrAllowedOps DateJulianDaysFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DateJulianDaysFieldInfo = (~) Word32 - type AttrBaseTypeConstraint DateJulianDaysFieldInfo = (~) Date - type AttrGetType DateJulianDaysFieldInfo = Word32 - type AttrLabel DateJulianDaysFieldInfo = "julian_days" - attrGet _ = dateReadJulianDays - attrSet _ = dateWriteJulianDays - attrConstruct = undefined - attrClear _ = undefined - -dateJulianDays :: AttrLabelProxy "julianDays" -dateJulianDays = AttrLabelProxy - - -dateReadJulian :: MonadIO m => Date -> m Word32 -dateReadJulian s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Word32 - return val - -dateWriteJulian :: MonadIO m => Date -> Word32 -> m () -dateWriteJulian s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 4) (val :: Word32) - -data DateJulianFieldInfo -instance AttrInfo DateJulianFieldInfo where - type AttrAllowedOps DateJulianFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DateJulianFieldInfo = (~) Word32 - type AttrBaseTypeConstraint DateJulianFieldInfo = (~) Date - type AttrGetType DateJulianFieldInfo = Word32 - type AttrLabel DateJulianFieldInfo = "julian" - attrGet _ = dateReadJulian - attrSet _ = dateWriteJulian - attrConstruct = undefined - attrClear _ = undefined - -dateJulian :: AttrLabelProxy "julian" -dateJulian = AttrLabelProxy - - -dateReadDmy :: MonadIO m => Date -> m Word32 -dateReadDmy s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word32 - return val - -dateWriteDmy :: MonadIO m => Date -> Word32 -> m () -dateWriteDmy s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Word32) - -data DateDmyFieldInfo -instance AttrInfo DateDmyFieldInfo where - type AttrAllowedOps DateDmyFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DateDmyFieldInfo = (~) Word32 - type AttrBaseTypeConstraint DateDmyFieldInfo = (~) Date - type AttrGetType DateDmyFieldInfo = Word32 - type AttrLabel DateDmyFieldInfo = "dmy" - attrGet _ = dateReadDmy - attrSet _ = dateWriteDmy - attrConstruct = undefined - attrClear _ = undefined - -dateDmy :: AttrLabelProxy "dmy" -dateDmy = AttrLabelProxy - - -dateReadDay :: MonadIO m => Date -> m Word32 -dateReadDay s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Word32 - return val - -dateWriteDay :: MonadIO m => Date -> Word32 -> m () -dateWriteDay s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 12) (val :: Word32) - -data DateDayFieldInfo -instance AttrInfo DateDayFieldInfo where - type AttrAllowedOps DateDayFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DateDayFieldInfo = (~) Word32 - type AttrBaseTypeConstraint DateDayFieldInfo = (~) Date - type AttrGetType DateDayFieldInfo = Word32 - type AttrLabel DateDayFieldInfo = "day" - attrGet _ = dateReadDay - attrSet _ = dateWriteDay - attrConstruct = undefined - attrClear _ = undefined - -dateDay :: AttrLabelProxy "day" -dateDay = AttrLabelProxy - - -dateReadMonth :: MonadIO m => Date -> m Word32 -dateReadMonth s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Word32 - return val - -dateWriteMonth :: MonadIO m => Date -> Word32 -> m () -dateWriteMonth s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Word32) - -data DateMonthFieldInfo -instance AttrInfo DateMonthFieldInfo where - type AttrAllowedOps DateMonthFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DateMonthFieldInfo = (~) Word32 - type AttrBaseTypeConstraint DateMonthFieldInfo = (~) Date - type AttrGetType DateMonthFieldInfo = Word32 - type AttrLabel DateMonthFieldInfo = "month" - attrGet _ = dateReadMonth - attrSet _ = dateWriteMonth - attrConstruct = undefined - attrClear _ = undefined - -dateMonth :: AttrLabelProxy "month" -dateMonth = AttrLabelProxy - - -dateReadYear :: MonadIO m => Date -> m Word32 -dateReadYear s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO Word32 - return val - -dateWriteYear :: MonadIO m => Date -> Word32 -> m () -dateWriteYear s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 20) (val :: Word32) - -data DateYearFieldInfo -instance AttrInfo DateYearFieldInfo where - type AttrAllowedOps DateYearFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DateYearFieldInfo = (~) Word32 - type AttrBaseTypeConstraint DateYearFieldInfo = (~) Date - type AttrGetType DateYearFieldInfo = Word32 - type AttrLabel DateYearFieldInfo = "year" - attrGet _ = dateReadYear - attrSet _ = dateWriteYear - attrConstruct = undefined - attrClear _ = undefined - -dateYear :: AttrLabelProxy "year" -dateYear = AttrLabelProxy - - - -type instance AttributeList Date = DateAttributeList -type DateAttributeList = ('[ '("julianDays", DateJulianDaysFieldInfo), '("julian", DateJulianFieldInfo), '("dmy", DateDmyFieldInfo), '("day", DateDayFieldInfo), '("month", DateMonthFieldInfo), '("year", DateYearFieldInfo)] :: [(Symbol, *)]) - --- method Date::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "julian_day", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- julianDay - -> m Date -- result -dateNewJulian julianDay = liftIO $ do - result <- g_date_new_julian julianDay - checkUnexpectedReturnNULL "g_date_new_julian" result - result' <- (wrapBoxed Date) result - return result' - --- method Date::add_days --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_days", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_date_add_days" g_date_add_days :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - Word32 -> -- n_days : TBasicType TUInt - IO () - - -dateAddDays :: - (MonadIO m) => - Date -- _obj - -> Word32 -- nDays - -> m () -- result -dateAddDays _obj nDays = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_add_days _obj' nDays - touchManagedPtr _obj - return () - -data DateAddDaysMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m) => MethodInfo DateAddDaysMethodInfo Date signature where - overloadedMethod _ = dateAddDays - --- method Date::add_months --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_months", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_date_add_months" g_date_add_months :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - Word32 -> -- n_months : TBasicType TUInt - IO () - - -dateAddMonths :: - (MonadIO m) => - Date -- _obj - -> Word32 -- nMonths - -> m () -- result -dateAddMonths _obj nMonths = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_add_months _obj' nMonths - touchManagedPtr _obj - return () - -data DateAddMonthsMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m) => MethodInfo DateAddMonthsMethodInfo Date signature where - overloadedMethod _ = dateAddMonths - --- method Date::add_years --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_years", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_date_add_years" g_date_add_years :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - Word32 -> -- n_years : TBasicType TUInt - IO () - - -dateAddYears :: - (MonadIO m) => - Date -- _obj - -> Word32 -- nYears - -> m () -- result -dateAddYears _obj nYears = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_add_years _obj' nYears - touchManagedPtr _obj - return () - -data DateAddYearsMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m) => MethodInfo DateAddYearsMethodInfo Date signature where - overloadedMethod _ = dateAddYears - --- method Date::clamp --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min_date", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_date", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- minDate - -> Date -- maxDate - -> m () -- result -dateClamp _obj minDate maxDate = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let minDate' = unsafeManagedPtrGetPtr minDate - let maxDate' = unsafeManagedPtrGetPtr maxDate - g_date_clamp _obj' minDate' maxDate' - touchManagedPtr _obj - touchManagedPtr minDate - touchManagedPtr maxDate - return () - -data DateClampMethodInfo -instance (signature ~ (Date -> Date -> m ()), MonadIO m) => MethodInfo DateClampMethodInfo Date signature where - overloadedMethod _ = dateClamp - --- method Date::clear --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_dates", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_date_clear" g_date_clear :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - Word32 -> -- n_dates : TBasicType TUInt - IO () - - -dateClear :: - (MonadIO m) => - Date -- _obj - -> Word32 -- nDates - -> m () -- result -dateClear _obj nDates = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_clear _obj' nDates - touchManagedPtr _obj - return () - -data DateClearMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m) => MethodInfo DateClearMethodInfo Date signature where - overloadedMethod _ = dateClear - --- method Date::compare --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rhs", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 - -data DateCompareMethodInfo -instance (signature ~ (Date -> m Int32), MonadIO m) => MethodInfo DateCompareMethodInfo Date signature where - overloadedMethod _ = dateCompare - --- method Date::days_between --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "date2", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 - -data DateDaysBetweenMethodInfo -instance (signature ~ (Date -> m Int32), MonadIO m) => MethodInfo DateDaysBetweenMethodInfo Date signature where - overloadedMethod _ = dateDaysBetween - --- method Date::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dateFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_free _obj' - touchManagedPtr _obj - return () - -data DateFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo DateFreeMethodInfo Date signature where - overloadedMethod _ = dateFree - --- method Date::get_day --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dateGetDay _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_get_day _obj' - touchManagedPtr _obj - return result - -data DateGetDayMethodInfo -instance (signature ~ (m Word8), MonadIO m) => MethodInfo DateGetDayMethodInfo Date signature where - overloadedMethod _ = dateGetDay - --- method Date::get_day_of_year --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -dateGetDayOfYear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_get_day_of_year _obj' - touchManagedPtr _obj - return result - -data DateGetDayOfYearMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo DateGetDayOfYearMethodInfo Date signature where - overloadedMethod _ = dateGetDayOfYear - --- method Date::get_iso8601_week_of_year --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -dateGetIso8601WeekOfYear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_get_iso8601_week_of_year _obj' - touchManagedPtr _obj - return result - -data DateGetIso8601WeekOfYearMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo DateGetIso8601WeekOfYearMethodInfo Date signature where - overloadedMethod _ = dateGetIso8601WeekOfYear - --- method Date::get_julian --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt32) --- throws : False --- Skip return : False - -foreign import ccall "g_date_get_julian" g_date_get_julian :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - IO Word32 - - -dateGetJulian :: - (MonadIO m) => - Date -- _obj - -> m Word32 -- result -dateGetJulian _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_get_julian _obj' - touchManagedPtr _obj - return result - -data DateGetJulianMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo DateGetJulianMethodInfo Date signature where - overloadedMethod _ = dateGetJulian - --- method Date::get_monday_week_of_year --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -dateGetMondayWeekOfYear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_get_monday_week_of_year _obj' - touchManagedPtr _obj - return result - -data DateGetMondayWeekOfYearMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo DateGetMondayWeekOfYearMethodInfo Date signature where - overloadedMethod _ = dateGetMondayWeekOfYear - --- method Date::get_month --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dateGetMonth _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_get_month _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data DateGetMonthMethodInfo -instance (signature ~ (m DateMonth), MonadIO m) => MethodInfo DateGetMonthMethodInfo Date signature where - overloadedMethod _ = dateGetMonth - --- method Date::get_sunday_week_of_year --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -dateGetSundayWeekOfYear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_get_sunday_week_of_year _obj' - touchManagedPtr _obj - return result - -data DateGetSundayWeekOfYearMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo DateGetSundayWeekOfYearMethodInfo Date signature where - overloadedMethod _ = dateGetSundayWeekOfYear - --- method Date::get_weekday --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dateGetWeekday _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_get_weekday _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data DateGetWeekdayMethodInfo -instance (signature ~ (m DateWeekday), MonadIO m) => MethodInfo DateGetWeekdayMethodInfo Date signature where - overloadedMethod _ = dateGetWeekday - --- method Date::get_year --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt16) --- throws : False --- Skip return : False - -foreign import ccall "g_date_get_year" g_date_get_year :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - IO Word16 - - -dateGetYear :: - (MonadIO m) => - Date -- _obj - -> m Word16 -- result -dateGetYear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_get_year _obj' - touchManagedPtr _obj - return result - -data DateGetYearMethodInfo -instance (signature ~ (m Word16), MonadIO m) => MethodInfo DateGetYearMethodInfo Date signature where - overloadedMethod _ = dateGetYear - --- method Date::is_first_of_month --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -dateIsFirstOfMonth _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_is_first_of_month _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DateIsFirstOfMonthMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo DateIsFirstOfMonthMethodInfo Date signature where - overloadedMethod _ = dateIsFirstOfMonth - --- method Date::is_last_of_month --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -dateIsLastOfMonth _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_is_last_of_month _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DateIsLastOfMonthMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo DateIsLastOfMonthMethodInfo Date signature where - overloadedMethod _ = dateIsLastOfMonth - --- method Date::order --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "date2", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dateOrder _obj date2 = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let date2' = unsafeManagedPtrGetPtr date2 - g_date_order _obj' date2' - touchManagedPtr _obj - touchManagedPtr date2 - return () - -data DateOrderMethodInfo -instance (signature ~ (Date -> m ()), MonadIO m) => MethodInfo DateOrderMethodInfo Date signature where - overloadedMethod _ = dateOrder - --- method Date::set_day --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dateSetDay _obj day = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_set_day _obj' day - touchManagedPtr _obj - return () - -data DateSetDayMethodInfo -instance (signature ~ (Word8 -> m ()), MonadIO m) => MethodInfo DateSetDayMethodInfo Date signature where - overloadedMethod _ = dateSetDay - --- method Date::set_dmy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data DateSetDmyMethodInfo -instance (signature ~ (Word8 -> DateMonth -> Word16 -> m ()), MonadIO m) => MethodInfo DateSetDmyMethodInfo Date signature where - overloadedMethod _ = dateSetDmy - --- method Date::set_julian --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "julian_date", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- julianDate - -> m () -- result -dateSetJulian _obj julianDate = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_set_julian _obj' julianDate - touchManagedPtr _obj - return () - -data DateSetJulianMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m) => MethodInfo DateSetJulianMethodInfo Date signature where - overloadedMethod _ = dateSetJulian - --- method Date::set_month --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dateSetMonth _obj month = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let month' = (fromIntegral . fromEnum) month - g_date_set_month _obj' month' - touchManagedPtr _obj - return () - -data DateSetMonthMethodInfo -instance (signature ~ (DateMonth -> m ()), MonadIO m) => MethodInfo DateSetMonthMethodInfo Date signature where - overloadedMethod _ = dateSetMonth - --- method Date::set_parse --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dateSetParse _obj str = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - str' <- textToCString str - g_date_set_parse _obj' str' - touchManagedPtr _obj - freeMem str' - return () - -data DateSetParseMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo DateSetParseMethodInfo Date signature where - overloadedMethod _ = dateSetParse - --- method Date::set_time --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 () -- result -dateSetTime _obj time_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_set_time _obj' time_ - touchManagedPtr _obj - return () - -data DateSetTimeMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo DateSetTimeMethodInfo Date signature where - overloadedMethod _ = dateSetTime - --- method Date::set_time_t --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timet", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_date_set_time_t" g_date_set_time_t :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - CLong -> -- timet : TBasicType TLong - IO () - - -dateSetTimeT :: - (MonadIO m) => - Date -- _obj - -> CLong -- timet - -> m () -- result -dateSetTimeT _obj timet = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_set_time_t _obj' timet - touchManagedPtr _obj - return () - -data DateSetTimeTMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m) => MethodInfo DateSetTimeTMethodInfo Date signature where - overloadedMethod _ = dateSetTimeT - --- method Date::set_time_val --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeval", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 () -- result -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 () - -data DateSetTimeValMethodInfo -instance (signature ~ (TimeVal -> m ()), MonadIO m) => MethodInfo DateSetTimeValMethodInfo Date signature where - overloadedMethod _ = dateSetTimeVal - --- method Date::set_year --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dateSetYear _obj year = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_set_year _obj' year - touchManagedPtr _obj - return () - -data DateSetYearMethodInfo -instance (signature ~ (Word16 -> m ()), MonadIO m) => MethodInfo DateSetYearMethodInfo Date signature where - overloadedMethod _ = dateSetYear - --- method Date::subtract_days --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_days", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_date_subtract_days" g_date_subtract_days :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - Word32 -> -- n_days : TBasicType TUInt - IO () - - -dateSubtractDays :: - (MonadIO m) => - Date -- _obj - -> Word32 -- nDays - -> m () -- result -dateSubtractDays _obj nDays = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_subtract_days _obj' nDays - touchManagedPtr _obj - return () - -data DateSubtractDaysMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m) => MethodInfo DateSubtractDaysMethodInfo Date signature where - overloadedMethod _ = dateSubtractDays - --- method Date::subtract_months --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_months", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_date_subtract_months" g_date_subtract_months :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - Word32 -> -- n_months : TBasicType TUInt - IO () - - -dateSubtractMonths :: - (MonadIO m) => - Date -- _obj - -> Word32 -- nMonths - -> m () -- result -dateSubtractMonths _obj nMonths = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_subtract_months _obj' nMonths - touchManagedPtr _obj - return () - -data DateSubtractMonthsMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m) => MethodInfo DateSubtractMonthsMethodInfo Date signature where - overloadedMethod _ = dateSubtractMonths - --- method Date::subtract_years --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_years", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_date_subtract_years" g_date_subtract_years :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - Word32 -> -- n_years : TBasicType TUInt - IO () - - -dateSubtractYears :: - (MonadIO m) => - Date -- _obj - -> Word32 -- nYears - -> m () -- result -dateSubtractYears _obj nYears = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_subtract_years _obj' nYears - touchManagedPtr _obj - return () - -data DateSubtractYearsMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m) => MethodInfo DateSubtractYearsMethodInfo Date signature where - overloadedMethod _ = dateSubtractYears - --- method Date::to_struct_tm --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tm", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_date_to_struct_tm" g_date_to_struct_tm :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - Ptr () -> -- tm : TBasicType TPtr - IO () - - -dateToStructTm :: - (MonadIO m) => - Date -- _obj - -> Ptr () -- tm - -> m () -- result -dateToStructTm _obj tm = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_to_struct_tm _obj' tm - touchManagedPtr _obj - return () - -data DateToStructTmMethodInfo -instance (signature ~ (Ptr () -> m ()), MonadIO m) => MethodInfo DateToStructTmMethodInfo Date signature where - overloadedMethod _ = dateToStructTm - --- method Date::valid --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_date_valid" g_date_valid :: - Ptr Date -> -- _obj : TInterface "GLib" "Date" - IO CInt - - -dateValid :: - (MonadIO m) => - Date -- _obj - -> m Bool -- result -dateValid _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_valid _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DateValidMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo DateValidMethodInfo Date signature where - overloadedMethod _ = dateValid - --- method Date::get_days_in_month --- method type : MemberFunction --- Args : [Arg {argCName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dateGetDaysInMonth month year = liftIO $ do - let month' = (fromIntegral . fromEnum) month - result <- g_date_get_days_in_month month' year - return result - --- method Date::get_monday_weeks_in_year --- method type : MemberFunction --- Args : [Arg {argCName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dateGetMondayWeeksInYear year = liftIO $ do - result <- g_date_get_monday_weeks_in_year year - return result - --- method Date::get_sunday_weeks_in_year --- method type : MemberFunction --- Args : [Arg {argCName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dateGetSundayWeeksInYear year = liftIO $ do - result <- g_date_get_sunday_weeks_in_year year - return result - --- method Date::is_leap_year --- method type : MemberFunction --- Args : [Arg {argCName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_date_is_leap_year" g_date_is_leap_year :: - Word16 -> -- year : TBasicType TUInt16 - IO CInt - - -dateIsLeapYear :: - (MonadIO m) => - Word16 -- year - -> m Bool -- result -dateIsLeapYear year = liftIO $ do - result <- g_date_is_leap_year year - let result' = (/= 0) result - return result' - --- method Date::strftime --- method type : MemberFunction --- Args : [Arg {argCName = "s", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "slen", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "date", argType = TInterface "GLib" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 - --- method Date::valid_day --- method type : MemberFunction --- Args : [Arg {argCName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_date_valid_day" g_date_valid_day :: - Word8 -> -- day : TBasicType TUInt8 - IO CInt - - -dateValidDay :: - (MonadIO m) => - Word8 -- day - -> m Bool -- result -dateValidDay day = liftIO $ do - result <- g_date_valid_day day - let result' = (/= 0) result - return result' - --- method Date::valid_dmy --- method type : MemberFunction --- Args : [Arg {argCName = "day", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - --- method Date::valid_julian --- method type : MemberFunction --- Args : [Arg {argCName = "julian_date", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_date_valid_julian" g_date_valid_julian :: - Word32 -> -- julian_date : TBasicType TUInt32 - IO CInt - - -dateValidJulian :: - (MonadIO m) => - Word32 -- julianDate - -> m Bool -- result -dateValidJulian julianDate = liftIO $ do - result <- g_date_valid_julian julianDate - let result' = (/= 0) result - return result' - --- method Date::valid_month --- method type : MemberFunction --- Args : [Arg {argCName = "month", argType = TInterface "GLib" "DateMonth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_date_valid_month" g_date_valid_month :: - CUInt -> -- month : TInterface "GLib" "DateMonth" - IO CInt - - -dateValidMonth :: - (MonadIO m) => - DateMonth -- month - -> m Bool -- result -dateValidMonth month = liftIO $ do - let month' = (fromIntegral . fromEnum) month - result <- g_date_valid_month month' - let result' = (/= 0) result - return result' - --- method Date::valid_weekday --- method type : MemberFunction --- Args : [Arg {argCName = "weekday", argType = TInterface "GLib" "DateWeekday", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_date_valid_weekday" g_date_valid_weekday :: - CUInt -> -- weekday : TInterface "GLib" "DateWeekday" - IO CInt - - -dateValidWeekday :: - (MonadIO m) => - DateWeekday -- weekday - -> m Bool -- result -dateValidWeekday weekday = liftIO $ do - let weekday' = (fromIntegral . fromEnum) weekday - result <- g_date_valid_weekday weekday' - let result' = (/= 0) result - return result' - --- method Date::valid_year --- method type : MemberFunction --- Args : [Arg {argCName = "year", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_date_valid_year" g_date_valid_year :: - Word16 -> -- year : TBasicType TUInt16 - IO CInt - - -dateValidYear :: - (MonadIO m) => - Word16 -- year - -> m Bool -- result -dateValidYear year = liftIO $ do - result <- g_date_valid_year year - let result' = (/= 0) result - return result' - -type family ResolveDateMethod (t :: Symbol) (o :: *) :: * where - ResolveDateMethod "addDays" o = DateAddDaysMethodInfo - ResolveDateMethod "addMonths" o = DateAddMonthsMethodInfo - ResolveDateMethod "addYears" o = DateAddYearsMethodInfo - ResolveDateMethod "clamp" o = DateClampMethodInfo - ResolveDateMethod "clear" o = DateClearMethodInfo - ResolveDateMethod "compare" o = DateCompareMethodInfo - ResolveDateMethod "daysBetween" o = DateDaysBetweenMethodInfo - ResolveDateMethod "free" o = DateFreeMethodInfo - ResolveDateMethod "isFirstOfMonth" o = DateIsFirstOfMonthMethodInfo - ResolveDateMethod "isLastOfMonth" o = DateIsLastOfMonthMethodInfo - ResolveDateMethod "order" o = DateOrderMethodInfo - ResolveDateMethod "subtractDays" o = DateSubtractDaysMethodInfo - ResolveDateMethod "subtractMonths" o = DateSubtractMonthsMethodInfo - ResolveDateMethod "subtractYears" o = DateSubtractYearsMethodInfo - ResolveDateMethod "toStructTm" o = DateToStructTmMethodInfo - ResolveDateMethod "valid" o = DateValidMethodInfo - ResolveDateMethod "getDay" o = DateGetDayMethodInfo - ResolveDateMethod "getDayOfYear" o = DateGetDayOfYearMethodInfo - ResolveDateMethod "getIso8601WeekOfYear" o = DateGetIso8601WeekOfYearMethodInfo - ResolveDateMethod "getJulian" o = DateGetJulianMethodInfo - ResolveDateMethod "getMondayWeekOfYear" o = DateGetMondayWeekOfYearMethodInfo - ResolveDateMethod "getMonth" o = DateGetMonthMethodInfo - ResolveDateMethod "getSundayWeekOfYear" o = DateGetSundayWeekOfYearMethodInfo - ResolveDateMethod "getWeekday" o = DateGetWeekdayMethodInfo - ResolveDateMethod "getYear" o = DateGetYearMethodInfo - ResolveDateMethod "setDay" o = DateSetDayMethodInfo - ResolveDateMethod "setDmy" o = DateSetDmyMethodInfo - ResolveDateMethod "setJulian" o = DateSetJulianMethodInfo - ResolveDateMethod "setMonth" o = DateSetMonthMethodInfo - ResolveDateMethod "setParse" o = DateSetParseMethodInfo - ResolveDateMethod "setTime" o = DateSetTimeMethodInfo - ResolveDateMethod "setTimeT" o = DateSetTimeTMethodInfo - ResolveDateMethod "setTimeVal" o = DateSetTimeValMethodInfo - ResolveDateMethod "setYear" o = DateSetYearMethodInfo - ResolveDateMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDateMethod t Date, MethodInfo info Date p) => IsLabelProxy t (Date -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDateMethod t Date, MethodInfo info Date p) => IsLabel t (Date -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,45 +0,0 @@ -module GI.GLib.Structs.Date where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Date = Date (ForeignPtr Date) -instance BoxedObject Date where -data DateAddDaysMethodInfo -data DateAddMonthsMethodInfo -data DateAddYearsMethodInfo -data DateClampMethodInfo -data DateClearMethodInfo -data DateCompareMethodInfo -data DateDaysBetweenMethodInfo -data DateFreeMethodInfo -data DateGetDayMethodInfo -data DateGetDayOfYearMethodInfo -data DateGetIso8601WeekOfYearMethodInfo -data DateGetJulianMethodInfo -data DateGetMondayWeekOfYearMethodInfo -data DateGetMonthMethodInfo -data DateGetSundayWeekOfYearMethodInfo -data DateGetWeekdayMethodInfo -data DateGetYearMethodInfo -data DateIsFirstOfMonthMethodInfo -data DateIsLastOfMonthMethodInfo -data DateOrderMethodInfo -data DateSetDayMethodInfo -data DateSetDmyMethodInfo -data DateSetJulianMethodInfo -data DateSetMonthMethodInfo -data DateSetParseMethodInfo -data DateSetTimeMethodInfo -data DateSetTimeTMethodInfo -data DateSetTimeValMethodInfo -data DateSetYearMethodInfo -data DateSubtractDaysMethodInfo -data DateSubtractMonthsMethodInfo -data DateSubtractYearsMethodInfo -data DateToStructTmMethodInfo -data DateValidMethodInfo 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,1663 +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 - DateTimeAddMethodInfo , - dateTimeAdd , - - --- ** dateTimeAddDays - DateTimeAddDaysMethodInfo , - dateTimeAddDays , - - --- ** dateTimeAddFull - DateTimeAddFullMethodInfo , - dateTimeAddFull , - - --- ** dateTimeAddHours - DateTimeAddHoursMethodInfo , - dateTimeAddHours , - - --- ** dateTimeAddMinutes - DateTimeAddMinutesMethodInfo , - dateTimeAddMinutes , - - --- ** dateTimeAddMonths - DateTimeAddMonthsMethodInfo , - dateTimeAddMonths , - - --- ** dateTimeAddSeconds - DateTimeAddSecondsMethodInfo , - dateTimeAddSeconds , - - --- ** dateTimeAddWeeks - DateTimeAddWeeksMethodInfo , - dateTimeAddWeeks , - - --- ** dateTimeAddYears - DateTimeAddYearsMethodInfo , - dateTimeAddYears , - - --- ** dateTimeCompare - dateTimeCompare , - - --- ** dateTimeDifference - DateTimeDifferenceMethodInfo , - dateTimeDifference , - - --- ** dateTimeEqual - dateTimeEqual , - - --- ** dateTimeFormat - DateTimeFormatMethodInfo , - dateTimeFormat , - - --- ** dateTimeGetDayOfMonth - DateTimeGetDayOfMonthMethodInfo , - dateTimeGetDayOfMonth , - - --- ** dateTimeGetDayOfWeek - DateTimeGetDayOfWeekMethodInfo , - dateTimeGetDayOfWeek , - - --- ** dateTimeGetDayOfYear - DateTimeGetDayOfYearMethodInfo , - dateTimeGetDayOfYear , - - --- ** dateTimeGetHour - DateTimeGetHourMethodInfo , - dateTimeGetHour , - - --- ** dateTimeGetMicrosecond - DateTimeGetMicrosecondMethodInfo , - dateTimeGetMicrosecond , - - --- ** dateTimeGetMinute - DateTimeGetMinuteMethodInfo , - dateTimeGetMinute , - - --- ** dateTimeGetMonth - DateTimeGetMonthMethodInfo , - dateTimeGetMonth , - - --- ** dateTimeGetSecond - DateTimeGetSecondMethodInfo , - dateTimeGetSecond , - - --- ** dateTimeGetSeconds - DateTimeGetSecondsMethodInfo , - dateTimeGetSeconds , - - --- ** dateTimeGetTimezoneAbbreviation - DateTimeGetTimezoneAbbreviationMethodInfo, - dateTimeGetTimezoneAbbreviation , - - --- ** dateTimeGetUtcOffset - DateTimeGetUtcOffsetMethodInfo , - dateTimeGetUtcOffset , - - --- ** dateTimeGetWeekNumberingYear - DateTimeGetWeekNumberingYearMethodInfo , - dateTimeGetWeekNumberingYear , - - --- ** dateTimeGetWeekOfYear - DateTimeGetWeekOfYearMethodInfo , - dateTimeGetWeekOfYear , - - --- ** dateTimeGetYear - DateTimeGetYearMethodInfo , - dateTimeGetYear , - - --- ** dateTimeGetYmd - DateTimeGetYmdMethodInfo , - dateTimeGetYmd , - - --- ** dateTimeHash - dateTimeHash , - - --- ** dateTimeIsDaylightSavings - DateTimeIsDaylightSavingsMethodInfo , - dateTimeIsDaylightSavings , - - --- ** dateTimeNew - dateTimeNew , - - --- ** dateTimeNewFromTimevalLocal - dateTimeNewFromTimevalLocal , - - --- ** dateTimeNewFromTimevalUtc - dateTimeNewFromTimevalUtc , - - --- ** dateTimeNewFromUnixLocal - dateTimeNewFromUnixLocal , - - --- ** dateTimeNewFromUnixUtc - dateTimeNewFromUnixUtc , - - --- ** dateTimeNewLocal - dateTimeNewLocal , - - --- ** dateTimeNewNow - dateTimeNewNow , - - --- ** dateTimeNewNowLocal - dateTimeNewNowLocal , - - --- ** dateTimeNewNowUtc - dateTimeNewNowUtc , - - --- ** dateTimeNewUtc - dateTimeNewUtc , - - --- ** dateTimeRef - DateTimeRefMethodInfo , - dateTimeRef , - - --- ** dateTimeToLocal - DateTimeToLocalMethodInfo , - dateTimeToLocal , - - --- ** dateTimeToTimeval - DateTimeToTimevalMethodInfo , - dateTimeToTimeval , - - --- ** dateTimeToTimezone - DateTimeToTimezoneMethodInfo , - dateTimeToTimezone , - - --- ** dateTimeToUnix - DateTimeToUnixMethodInfo , - dateTimeToUnix , - - --- ** dateTimeToUtc - DateTimeToUtcMethodInfo , - dateTimeToUtc , - - --- ** dateTimeUnref - DateTimeUnrefMethodInfo , - dateTimeUnref , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.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 - - -type instance AttributeList DateTime = DateTimeAttributeList -type DateTimeAttributeList = ('[ ] :: [(Symbol, *)]) - --- method DateTime::new --- method type : Constructor --- Args : [Arg {argCName = "tz", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "year", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "month", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hour", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minute", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "DateTime") --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_new" g_date_time_new :: - Ptr TimeZone -> -- tz : TInterface "GLib" "TimeZone" - Int32 -> -- year : TBasicType TInt - Int32 -> -- month : TBasicType TInt - Int32 -> -- day : TBasicType TInt - Int32 -> -- hour : TBasicType TInt - Int32 -> -- minute : TBasicType TInt - 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 -- result -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 {argCName = "tv", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "DateTime") --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "tv", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "DateTime") --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "t", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "DateTime") --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "t", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "DateTime") --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "year", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "month", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hour", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minute", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "DateTime") --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_new_local" g_date_time_new_local :: - Int32 -> -- year : TBasicType TInt - Int32 -> -- month : TBasicType TInt - Int32 -> -- day : TBasicType TInt - Int32 -> -- hour : TBasicType TInt - Int32 -> -- minute : TBasicType TInt - CDouble -> -- seconds : TBasicType TDouble - IO (Ptr DateTime) - - -dateTimeNewLocal :: - (MonadIO m) => - Int32 -- year - -> Int32 -- month - -> Int32 -- day - -> Int32 -- hour - -> Int32 -- minute - -> Double -- seconds - -> m DateTime -- result -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 {argCName = "tz", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "DateTime") --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 : [] --- returnType : Just (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 -- result -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 : [] --- returnType : Just (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 -- result -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 {argCName = "year", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "month", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hour", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minute", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "DateTime") --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_new_utc" g_date_time_new_utc :: - Int32 -> -- year : TBasicType TInt - Int32 -> -- month : TBasicType TInt - Int32 -> -- day : TBasicType TInt - Int32 -> -- hour : TBasicType TInt - Int32 -> -- minute : TBasicType TInt - CDouble -> -- seconds : TBasicType TDouble - IO (Ptr DateTime) - - -dateTimeNewUtc :: - (MonadIO m) => - Int32 -- year - -> Int32 -- month - -> Int32 -- day - -> Int32 -- hour - -> Int32 -- minute - -> Double -- seconds - -> m DateTime -- result -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 {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timespan", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "DateTime") --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data DateTimeAddMethodInfo -instance (signature ~ (Int64 -> m DateTime), MonadIO m) => MethodInfo DateTimeAddMethodInfo DateTime signature where - overloadedMethod _ = dateTimeAdd - --- method DateTime::add_days --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "days", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "DateTime") --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_add_days" g_date_time_add_days :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - Int32 -> -- days : TBasicType TInt - IO (Ptr DateTime) - - -dateTimeAddDays :: - (MonadIO m) => - DateTime -- _obj - -> Int32 -- days - -> m DateTime -- result -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' - -data DateTimeAddDaysMethodInfo -instance (signature ~ (Int32 -> m DateTime), MonadIO m) => MethodInfo DateTimeAddDaysMethodInfo DateTime signature where - overloadedMethod _ = dateTimeAddDays - --- method DateTime::add_full --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "years", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "months", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "days", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hours", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minutes", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "DateTime") --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_add_full" g_date_time_add_full :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - Int32 -> -- years : TBasicType TInt - Int32 -> -- months : TBasicType TInt - Int32 -> -- days : TBasicType TInt - Int32 -> -- hours : TBasicType TInt - Int32 -> -- minutes : TBasicType TInt - 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 -- result -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' - -data DateTimeAddFullMethodInfo -instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> Int32 -> Double -> m DateTime), MonadIO m) => MethodInfo DateTimeAddFullMethodInfo DateTime signature where - overloadedMethod _ = dateTimeAddFull - --- method DateTime::add_hours --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hours", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "DateTime") --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_add_hours" g_date_time_add_hours :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - Int32 -> -- hours : TBasicType TInt - IO (Ptr DateTime) - - -dateTimeAddHours :: - (MonadIO m) => - DateTime -- _obj - -> Int32 -- hours - -> m DateTime -- result -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' - -data DateTimeAddHoursMethodInfo -instance (signature ~ (Int32 -> m DateTime), MonadIO m) => MethodInfo DateTimeAddHoursMethodInfo DateTime signature where - overloadedMethod _ = dateTimeAddHours - --- method DateTime::add_minutes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minutes", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "DateTime") --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_add_minutes" g_date_time_add_minutes :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - Int32 -> -- minutes : TBasicType TInt - IO (Ptr DateTime) - - -dateTimeAddMinutes :: - (MonadIO m) => - DateTime -- _obj - -> Int32 -- minutes - -> m DateTime -- result -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' - -data DateTimeAddMinutesMethodInfo -instance (signature ~ (Int32 -> m DateTime), MonadIO m) => MethodInfo DateTimeAddMinutesMethodInfo DateTime signature where - overloadedMethod _ = dateTimeAddMinutes - --- method DateTime::add_months --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "months", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "DateTime") --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_add_months" g_date_time_add_months :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - Int32 -> -- months : TBasicType TInt - IO (Ptr DateTime) - - -dateTimeAddMonths :: - (MonadIO m) => - DateTime -- _obj - -> Int32 -- months - -> m DateTime -- result -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' - -data DateTimeAddMonthsMethodInfo -instance (signature ~ (Int32 -> m DateTime), MonadIO m) => MethodInfo DateTimeAddMonthsMethodInfo DateTime signature where - overloadedMethod _ = dateTimeAddMonths - --- method DateTime::add_seconds --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "seconds", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "DateTime") --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data DateTimeAddSecondsMethodInfo -instance (signature ~ (Double -> m DateTime), MonadIO m) => MethodInfo DateTimeAddSecondsMethodInfo DateTime signature where - overloadedMethod _ = dateTimeAddSeconds - --- method DateTime::add_weeks --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "weeks", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "DateTime") --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_add_weeks" g_date_time_add_weeks :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - Int32 -> -- weeks : TBasicType TInt - IO (Ptr DateTime) - - -dateTimeAddWeeks :: - (MonadIO m) => - DateTime -- _obj - -> Int32 -- weeks - -> m DateTime -- result -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' - -data DateTimeAddWeeksMethodInfo -instance (signature ~ (Int32 -> m DateTime), MonadIO m) => MethodInfo DateTimeAddWeeksMethodInfo DateTime signature where - overloadedMethod _ = dateTimeAddWeeks - --- method DateTime::add_years --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "years", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "DateTime") --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_add_years" g_date_time_add_years :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - Int32 -> -- years : TBasicType TInt - IO (Ptr DateTime) - - -dateTimeAddYears :: - (MonadIO m) => - DateTime -- _obj - -> Int32 -- years - -> m DateTime -- result -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' - -data DateTimeAddYearsMethodInfo -instance (signature ~ (Int32 -> m DateTime), MonadIO m) => MethodInfo DateTimeAddYearsMethodInfo DateTime signature where - overloadedMethod _ = dateTimeAddYears - --- method DateTime::difference --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "begin", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 - -data DateTimeDifferenceMethodInfo -instance (signature ~ (DateTime -> m Int64), MonadIO m) => MethodInfo DateTimeDifferenceMethodInfo DateTime signature where - overloadedMethod _ = dateTimeDifference - --- method DateTime::format --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data DateTimeFormatMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m) => MethodInfo DateTimeFormatMethodInfo DateTime signature where - overloadedMethod _ = dateTimeFormat - --- method DateTime::get_day_of_month --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -dateTimeGetDayOfMonth _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_get_day_of_month _obj' - touchManagedPtr _obj - return result - -data DateTimeGetDayOfMonthMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo DateTimeGetDayOfMonthMethodInfo DateTime signature where - overloadedMethod _ = dateTimeGetDayOfMonth - --- method DateTime::get_day_of_week --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -dateTimeGetDayOfWeek _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_get_day_of_week _obj' - touchManagedPtr _obj - return result - -data DateTimeGetDayOfWeekMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo DateTimeGetDayOfWeekMethodInfo DateTime signature where - overloadedMethod _ = dateTimeGetDayOfWeek - --- method DateTime::get_day_of_year --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -dateTimeGetDayOfYear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_get_day_of_year _obj' - touchManagedPtr _obj - return result - -data DateTimeGetDayOfYearMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo DateTimeGetDayOfYearMethodInfo DateTime signature where - overloadedMethod _ = dateTimeGetDayOfYear - --- method DateTime::get_hour --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_get_hour" g_date_time_get_hour :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - IO Int32 - - -dateTimeGetHour :: - (MonadIO m) => - DateTime -- _obj - -> m Int32 -- result -dateTimeGetHour _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_get_hour _obj' - touchManagedPtr _obj - return result - -data DateTimeGetHourMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo DateTimeGetHourMethodInfo DateTime signature where - overloadedMethod _ = dateTimeGetHour - --- method DateTime::get_microsecond --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_get_microsecond" g_date_time_get_microsecond :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - IO Int32 - - -dateTimeGetMicrosecond :: - (MonadIO m) => - DateTime -- _obj - -> m Int32 -- result -dateTimeGetMicrosecond _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_get_microsecond _obj' - touchManagedPtr _obj - return result - -data DateTimeGetMicrosecondMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo DateTimeGetMicrosecondMethodInfo DateTime signature where - overloadedMethod _ = dateTimeGetMicrosecond - --- method DateTime::get_minute --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_get_minute" g_date_time_get_minute :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - IO Int32 - - -dateTimeGetMinute :: - (MonadIO m) => - DateTime -- _obj - -> m Int32 -- result -dateTimeGetMinute _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_get_minute _obj' - touchManagedPtr _obj - return result - -data DateTimeGetMinuteMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo DateTimeGetMinuteMethodInfo DateTime signature where - overloadedMethod _ = dateTimeGetMinute - --- method DateTime::get_month --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_get_month" g_date_time_get_month :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - IO Int32 - - -dateTimeGetMonth :: - (MonadIO m) => - DateTime -- _obj - -> m Int32 -- result -dateTimeGetMonth _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_get_month _obj' - touchManagedPtr _obj - return result - -data DateTimeGetMonthMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo DateTimeGetMonthMethodInfo DateTime signature where - overloadedMethod _ = dateTimeGetMonth - --- method DateTime::get_second --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_get_second" g_date_time_get_second :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - IO Int32 - - -dateTimeGetSecond :: - (MonadIO m) => - DateTime -- _obj - -> m Int32 -- result -dateTimeGetSecond _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_get_second _obj' - touchManagedPtr _obj - return result - -data DateTimeGetSecondMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo DateTimeGetSecondMethodInfo DateTime signature where - overloadedMethod _ = dateTimeGetSecond - --- method DateTime::get_seconds --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TDouble) --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_get_seconds" g_date_time_get_seconds :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - IO CDouble - - -dateTimeGetSeconds :: - (MonadIO m) => - DateTime -- _obj - -> m Double -- result -dateTimeGetSeconds _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_get_seconds _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data DateTimeGetSecondsMethodInfo -instance (signature ~ (m Double), MonadIO m) => MethodInfo DateTimeGetSecondsMethodInfo DateTime signature where - overloadedMethod _ = dateTimeGetSeconds - --- method DateTime::get_timezone_abbreviation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data DateTimeGetTimezoneAbbreviationMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo DateTimeGetTimezoneAbbreviationMethodInfo DateTime signature where - overloadedMethod _ = dateTimeGetTimezoneAbbreviation - --- method DateTime::get_utc_offset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -dateTimeGetUtcOffset _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_get_utc_offset _obj' - touchManagedPtr _obj - return result - -data DateTimeGetUtcOffsetMethodInfo -instance (signature ~ (m Int64), MonadIO m) => MethodInfo DateTimeGetUtcOffsetMethodInfo DateTime signature where - overloadedMethod _ = dateTimeGetUtcOffset - --- method DateTime::get_week_numbering_year --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -dateTimeGetWeekNumberingYear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_get_week_numbering_year _obj' - touchManagedPtr _obj - return result - -data DateTimeGetWeekNumberingYearMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo DateTimeGetWeekNumberingYearMethodInfo DateTime signature where - overloadedMethod _ = dateTimeGetWeekNumberingYear - --- method DateTime::get_week_of_year --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -dateTimeGetWeekOfYear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_get_week_of_year _obj' - touchManagedPtr _obj - return result - -data DateTimeGetWeekOfYearMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo DateTimeGetWeekOfYearMethodInfo DateTime signature where - overloadedMethod _ = dateTimeGetWeekOfYear - --- method DateTime::get_year --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_get_year" g_date_time_get_year :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - IO Int32 - - -dateTimeGetYear :: - (MonadIO m) => - DateTime -- _obj - -> m Int32 -- result -dateTimeGetYear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_get_year _obj' - touchManagedPtr _obj - return result - -data DateTimeGetYearMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo DateTimeGetYearMethodInfo DateTime signature where - overloadedMethod _ = dateTimeGetYear - --- method DateTime::get_ymd --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "year", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "month", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "day", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_get_ymd" g_date_time_get_ymd :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - Ptr Int32 -> -- year : TBasicType TInt - Ptr Int32 -> -- month : TBasicType TInt - Ptr Int32 -> -- day : TBasicType TInt - IO () - - -dateTimeGetYmd :: - (MonadIO m) => - DateTime -- _obj - -> m (Int32,Int32,Int32) -- result -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') - -data DateTimeGetYmdMethodInfo -instance (signature ~ (m (Int32,Int32,Int32)), MonadIO m) => MethodInfo DateTimeGetYmdMethodInfo DateTime signature where - overloadedMethod _ = dateTimeGetYmd - --- method DateTime::is_daylight_savings --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -dateTimeIsDaylightSavings _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_is_daylight_savings _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DateTimeIsDaylightSavingsMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo DateTimeIsDaylightSavingsMethodInfo DateTime signature where - overloadedMethod _ = dateTimeIsDaylightSavings - --- method DateTime::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "DateTime") --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_ref" g_date_time_ref :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - IO (Ptr DateTime) - - -dateTimeRef :: - (MonadIO m) => - DateTime -- _obj - -> m DateTime -- result -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' - -data DateTimeRefMethodInfo -instance (signature ~ (m DateTime), MonadIO m) => MethodInfo DateTimeRefMethodInfo DateTime signature where - overloadedMethod _ = dateTimeRef - --- method DateTime::to_local --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "DateTime") --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data DateTimeToLocalMethodInfo -instance (signature ~ (m DateTime), MonadIO m) => MethodInfo DateTimeToLocalMethodInfo DateTime signature where - overloadedMethod _ = dateTimeToLocal - --- method DateTime::to_timeval --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tv", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data DateTimeToTimevalMethodInfo -instance (signature ~ (TimeVal -> m Bool), MonadIO m) => MethodInfo DateTimeToTimevalMethodInfo DateTime signature where - overloadedMethod _ = dateTimeToTimeval - --- method DateTime::to_timezone --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tz", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "DateTime") --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data DateTimeToTimezoneMethodInfo -instance (signature ~ (TimeZone -> m DateTime), MonadIO m) => MethodInfo DateTimeToTimezoneMethodInfo DateTime signature where - overloadedMethod _ = dateTimeToTimezone - --- method DateTime::to_unix --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_to_unix" g_date_time_to_unix :: - Ptr DateTime -> -- _obj : TInterface "GLib" "DateTime" - IO Int64 - - -dateTimeToUnix :: - (MonadIO m) => - DateTime -- _obj - -> m Int64 -- result -dateTimeToUnix _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_date_time_to_unix _obj' - touchManagedPtr _obj - return result - -data DateTimeToUnixMethodInfo -instance (signature ~ (m Int64), MonadIO m) => MethodInfo DateTimeToUnixMethodInfo DateTime signature where - overloadedMethod _ = dateTimeToUnix - --- method DateTime::to_utc --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "DateTime") --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data DateTimeToUtcMethodInfo -instance (signature ~ (m DateTime), MonadIO m) => MethodInfo DateTimeToUtcMethodInfo DateTime signature where - overloadedMethod _ = dateTimeToUtc - --- method DateTime::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "DateTime", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dateTimeUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_date_time_unref _obj' - touchManagedPtr _obj - return () - -data DateTimeUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo DateTimeUnrefMethodInfo DateTime signature where - overloadedMethod _ = dateTimeUnref - --- method DateTime::compare --- method type : MemberFunction --- Args : [Arg {argCName = "dt1", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dt2", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_compare" g_date_time_compare :: - Ptr () -> -- dt1 : TBasicType TPtr - Ptr () -> -- dt2 : TBasicType TPtr - IO Int32 - - -dateTimeCompare :: - (MonadIO m) => - Ptr () -- dt1 - -> Ptr () -- dt2 - -> m Int32 -- result -dateTimeCompare dt1 dt2 = liftIO $ do - result <- g_date_time_compare dt1 dt2 - return result - --- method DateTime::equal --- method type : MemberFunction --- Args : [Arg {argCName = "dt1", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dt2", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_equal" g_date_time_equal :: - Ptr () -> -- dt1 : TBasicType TPtr - Ptr () -> -- dt2 : TBasicType TPtr - IO CInt - - -dateTimeEqual :: - (MonadIO m) => - Ptr () -- dt1 - -> Ptr () -- dt2 - -> m Bool -- result -dateTimeEqual dt1 dt2 = liftIO $ do - result <- g_date_time_equal dt1 dt2 - let result' = (/= 0) result - return result' - --- method DateTime::hash --- method type : MemberFunction --- Args : [Arg {argCName = "datetime", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_date_time_hash" g_date_time_hash :: - Ptr () -> -- datetime : TBasicType TPtr - IO Word32 - - -dateTimeHash :: - (MonadIO m) => - Ptr () -- datetime - -> m Word32 -- result -dateTimeHash datetime = liftIO $ do - result <- g_date_time_hash datetime - return result - -type family ResolveDateTimeMethod (t :: Symbol) (o :: *) :: * where - ResolveDateTimeMethod "add" o = DateTimeAddMethodInfo - ResolveDateTimeMethod "addDays" o = DateTimeAddDaysMethodInfo - ResolveDateTimeMethod "addFull" o = DateTimeAddFullMethodInfo - ResolveDateTimeMethod "addHours" o = DateTimeAddHoursMethodInfo - ResolveDateTimeMethod "addMinutes" o = DateTimeAddMinutesMethodInfo - ResolveDateTimeMethod "addMonths" o = DateTimeAddMonthsMethodInfo - ResolveDateTimeMethod "addSeconds" o = DateTimeAddSecondsMethodInfo - ResolveDateTimeMethod "addWeeks" o = DateTimeAddWeeksMethodInfo - ResolveDateTimeMethod "addYears" o = DateTimeAddYearsMethodInfo - ResolveDateTimeMethod "difference" o = DateTimeDifferenceMethodInfo - ResolveDateTimeMethod "format" o = DateTimeFormatMethodInfo - ResolveDateTimeMethod "isDaylightSavings" o = DateTimeIsDaylightSavingsMethodInfo - ResolveDateTimeMethod "ref" o = DateTimeRefMethodInfo - ResolveDateTimeMethod "toLocal" o = DateTimeToLocalMethodInfo - ResolveDateTimeMethod "toTimeval" o = DateTimeToTimevalMethodInfo - ResolveDateTimeMethod "toTimezone" o = DateTimeToTimezoneMethodInfo - ResolveDateTimeMethod "toUnix" o = DateTimeToUnixMethodInfo - ResolveDateTimeMethod "toUtc" o = DateTimeToUtcMethodInfo - ResolveDateTimeMethod "unref" o = DateTimeUnrefMethodInfo - ResolveDateTimeMethod "getDayOfMonth" o = DateTimeGetDayOfMonthMethodInfo - ResolveDateTimeMethod "getDayOfWeek" o = DateTimeGetDayOfWeekMethodInfo - ResolveDateTimeMethod "getDayOfYear" o = DateTimeGetDayOfYearMethodInfo - ResolveDateTimeMethod "getHour" o = DateTimeGetHourMethodInfo - ResolveDateTimeMethod "getMicrosecond" o = DateTimeGetMicrosecondMethodInfo - ResolveDateTimeMethod "getMinute" o = DateTimeGetMinuteMethodInfo - ResolveDateTimeMethod "getMonth" o = DateTimeGetMonthMethodInfo - ResolveDateTimeMethod "getSecond" o = DateTimeGetSecondMethodInfo - ResolveDateTimeMethod "getSeconds" o = DateTimeGetSecondsMethodInfo - ResolveDateTimeMethod "getTimezoneAbbreviation" o = DateTimeGetTimezoneAbbreviationMethodInfo - ResolveDateTimeMethod "getUtcOffset" o = DateTimeGetUtcOffsetMethodInfo - ResolveDateTimeMethod "getWeekNumberingYear" o = DateTimeGetWeekNumberingYearMethodInfo - ResolveDateTimeMethod "getWeekOfYear" o = DateTimeGetWeekOfYearMethodInfo - ResolveDateTimeMethod "getYear" o = DateTimeGetYearMethodInfo - ResolveDateTimeMethod "getYmd" o = DateTimeGetYmdMethodInfo - ResolveDateTimeMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDateTimeMethod t DateTime, MethodInfo info DateTime p) => IsLabelProxy t (DateTime -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDateTimeMethod t DateTime, MethodInfo info DateTime p) => IsLabel t (DateTime -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,45 +0,0 @@ -module GI.GLib.Structs.DateTime where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DateTime = DateTime (ForeignPtr DateTime) -instance BoxedObject DateTime where -data DateTimeAddMethodInfo -data DateTimeAddDaysMethodInfo -data DateTimeAddFullMethodInfo -data DateTimeAddHoursMethodInfo -data DateTimeAddMinutesMethodInfo -data DateTimeAddMonthsMethodInfo -data DateTimeAddSecondsMethodInfo -data DateTimeAddWeeksMethodInfo -data DateTimeAddYearsMethodInfo -data DateTimeDifferenceMethodInfo -data DateTimeFormatMethodInfo -data DateTimeGetDayOfMonthMethodInfo -data DateTimeGetDayOfWeekMethodInfo -data DateTimeGetDayOfYearMethodInfo -data DateTimeGetHourMethodInfo -data DateTimeGetMicrosecondMethodInfo -data DateTimeGetMinuteMethodInfo -data DateTimeGetMonthMethodInfo -data DateTimeGetSecondMethodInfo -data DateTimeGetSecondsMethodInfo -data DateTimeGetTimezoneAbbreviationMethodInfo -data DateTimeGetUtcOffsetMethodInfo -data DateTimeGetWeekNumberingYearMethodInfo -data DateTimeGetWeekOfYearMethodInfo -data DateTimeGetYearMethodInfo -data DateTimeGetYmdMethodInfo -data DateTimeIsDaylightSavingsMethodInfo -data DateTimeRefMethodInfo -data DateTimeToLocalMethodInfo -data DateTimeToTimevalMethodInfo -data DateTimeToTimezoneMethodInfo -data DateTimeToUnixMethodInfo -data DateTimeToUtcMethodInfo -data DateTimeUnrefMethodInfo 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,141 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Associates a string with a bit flag. -Used in g_parse_debug_string(). --} - -module GI.GLib.Structs.DebugKey - ( - --- * Exported types - DebugKey(..) , - newZeroDebugKey , - noDebugKey , - - - -- * Properties --- ** Key - debugKeyClearKey , - debugKeyKey , - debugKeyReadKey , - debugKeyWriteKey , - - --- ** Value - debugKeyReadValue , - debugKeyValue , - debugKeyWriteValue , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype DebugKey = DebugKey (ForeignPtr DebugKey) -instance WrappedPtr DebugKey where - wrappedPtrCalloc = callocBytes 16 - wrappedPtrCopy = copyPtr 16 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `DebugKey` struct initialized to zero. -newZeroDebugKey :: MonadIO m => m DebugKey -newZeroDebugKey = liftIO $ wrappedPtrCalloc >>= wrapPtr DebugKey - -instance tag ~ 'AttrSet => Constructible DebugKey tag where - new _ attrs = do - o <- newZeroDebugKey - GI.Attributes.set o attrs - return o - - -noDebugKey :: Maybe DebugKey -noDebugKey = Nothing - -debugKeyReadKey :: MonadIO m => DebugKey -> m (Maybe T.Text) -debugKeyReadKey s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -debugKeyWriteKey :: MonadIO m => DebugKey -> CString -> m () -debugKeyWriteKey s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: CString) - -debugKeyClearKey :: MonadIO m => DebugKey -> m () -debugKeyClearKey s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: CString) - -data DebugKeyKeyFieldInfo -instance AttrInfo DebugKeyKeyFieldInfo where - type AttrAllowedOps DebugKeyKeyFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DebugKeyKeyFieldInfo = (~) CString - type AttrBaseTypeConstraint DebugKeyKeyFieldInfo = (~) DebugKey - type AttrGetType DebugKeyKeyFieldInfo = Maybe T.Text - type AttrLabel DebugKeyKeyFieldInfo = "key" - attrGet _ = debugKeyReadKey - attrSet _ = debugKeyWriteKey - attrConstruct = undefined - attrClear _ = debugKeyClearKey - -debugKeyKey :: AttrLabelProxy "key" -debugKeyKey = AttrLabelProxy - - -debugKeyReadValue :: MonadIO m => DebugKey -> m Word32 -debugKeyReadValue s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word32 - return val - -debugKeyWriteValue :: MonadIO m => DebugKey -> Word32 -> m () -debugKeyWriteValue s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Word32) - -data DebugKeyValueFieldInfo -instance AttrInfo DebugKeyValueFieldInfo where - type AttrAllowedOps DebugKeyValueFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DebugKeyValueFieldInfo = (~) Word32 - type AttrBaseTypeConstraint DebugKeyValueFieldInfo = (~) DebugKey - type AttrGetType DebugKeyValueFieldInfo = Word32 - type AttrLabel DebugKeyValueFieldInfo = "value" - attrGet _ = debugKeyReadValue - attrSet _ = debugKeyWriteValue - attrConstruct = undefined - attrClear _ = undefined - -debugKeyValue :: AttrLabelProxy "value" -debugKeyValue = AttrLabelProxy - - - -type instance AttributeList DebugKey = DebugKeyAttributeList -type DebugKeyAttributeList = ('[ '("key", DebugKeyKeyFieldInfo), '("value", DebugKeyValueFieldInfo)] :: [(Symbol, *)]) - -type family ResolveDebugKeyMethod (t :: Symbol) (o :: *) :: * where - ResolveDebugKeyMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDebugKeyMethod t DebugKey, MethodInfo info DebugKey p) => IsLabelProxy t (DebugKey -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDebugKeyMethod t DebugKey, MethodInfo info DebugKey p) => IsLabel t (DebugKey -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,11 +0,0 @@ -module GI.GLib.Structs.DebugKey where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DebugKey = DebugKey (ForeignPtr DebugKey) -instance WrappedPtr DebugKey where 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,199 +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 - DirCloseMethodInfo , - dirClose , - - --- ** dirMakeTmp - dirMakeTmp , - - --- ** dirReadName - DirReadNameMethodInfo , - dirReadName , - - --- ** dirRewind - DirRewindMethodInfo , - dirRewind , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Dir = Dir (ForeignPtr Dir) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr Dir where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noDir :: Maybe Dir -noDir = Nothing - - -type instance AttributeList Dir = DirAttributeList -type DirAttributeList = ('[ ] :: [(Symbol, *)]) - --- method Dir::close --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Dir", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dirClose _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_dir_close _obj' - touchManagedPtr _obj - return () - -data DirCloseMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo DirCloseMethodInfo Dir signature where - overloadedMethod _ = dirClose - --- method Dir::read_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Dir", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dir_read_name" g_dir_read_name :: - Ptr Dir -> -- _obj : TInterface "GLib" "Dir" - IO CString - - -dirReadName :: - (MonadIO m) => - Dir -- _obj - -> m T.Text -- result -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' - -data DirReadNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo DirReadNameMethodInfo Dir signature where - overloadedMethod _ = dirReadName - --- method Dir::rewind --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Dir", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dirRewind _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_dir_rewind _obj' - touchManagedPtr _obj - return () - -data DirRewindMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo DirRewindMethodInfo Dir signature where - overloadedMethod _ = dirRewind - --- method Dir::make_tmp --- method type : MemberFunction --- Args : [Arg {argCName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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] -- result -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 - ) - -type family ResolveDirMethod (t :: Symbol) (o :: *) :: * where - ResolveDirMethod "close" o = DirCloseMethodInfo - ResolveDirMethod "readName" o = DirReadNameMethodInfo - ResolveDirMethod "rewind" o = DirRewindMethodInfo - ResolveDirMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDirMethod t Dir, MethodInfo info Dir p) => IsLabelProxy t (Dir -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDirMethod t Dir, MethodInfo info Dir p) => IsLabel t (Dir -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,14 +0,0 @@ -module GI.GLib.Structs.Dir where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Dir = Dir (ForeignPtr Dir) -instance WrappedPtr Dir where -data DirCloseMethodInfo -data DirReadNameMethodInfo -data DirRewindMethodInfo 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,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) - -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(..) , - newZeroHashTableIter , - noHashTableIter , - - - -- * Methods --- ** hashTableIterInit - HashTableIterInitMethodInfo , - hashTableIterInit , - - --- ** hashTableIterNext - HashTableIterNextMethodInfo , - hashTableIterNext , - - --- ** hashTableIterRemove - HashTableIterRemoveMethodInfo , - hashTableIterRemove , - - --- ** hashTableIterReplace - HashTableIterReplaceMethodInfo , - hashTableIterReplace , - - --- ** hashTableIterSteal - HashTableIterStealMethodInfo , - hashTableIterSteal , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype HashTableIter = HashTableIter (ForeignPtr HashTableIter) -instance WrappedPtr HashTableIter where - wrappedPtrCalloc = callocBytes 40 - wrappedPtrCopy = copyPtr 40 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `HashTableIter` struct initialized to zero. -newZeroHashTableIter :: MonadIO m => m HashTableIter -newZeroHashTableIter = liftIO $ wrappedPtrCalloc >>= wrapPtr HashTableIter - -instance tag ~ 'AttrSet => Constructible HashTableIter tag where - new _ attrs = do - o <- newZeroHashTableIter - GI.Attributes.set o attrs - return o - - -noHashTableIter :: Maybe HashTableIter -noHashTableIter = Nothing - - -type instance AttributeList HashTableIter = HashTableIterAttributeList -type HashTableIterAttributeList = ('[ ] :: [(Symbol, *)]) - --- method HashTableIter::init --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hash_table", argType = TGHash (TBasicType TPtr) (TBasicType TPtr), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_hash_table_iter_init" g_hash_table_iter_init :: - Ptr HashTableIter -> -- _obj : TInterface "GLib" "HashTableIter" - Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- hash_table : TGHash (TBasicType TPtr) (TBasicType TPtr) - IO () - - -hashTableIterInit :: - (MonadIO m) => - HashTableIter -- _obj - -> Map.Map (Ptr ()) (Ptr ()) -- hashTable - -> m () -- result -hashTableIterInit _obj hashTable = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let hashTable' = Map.toList hashTable - let hashTable'' = mapFirst ptrPackPtr hashTable' - let hashTable''' = mapSecond ptrPackPtr hashTable'' - hashTable'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing hashTable''' - g_hash_table_iter_init _obj' hashTable'''' - touchManagedPtr _obj - unrefGHashTable hashTable'''' - return () - -data HashTableIterInitMethodInfo -instance (signature ~ (Map.Map (Ptr ()) (Ptr ()) -> m ()), MonadIO m) => MethodInfo HashTableIterInitMethodInfo HashTableIter signature where - overloadedMethod _ = hashTableIterInit - --- method HashTableIter::next --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_hash_table_iter_next" g_hash_table_iter_next :: - Ptr HashTableIter -> -- _obj : TInterface "GLib" "HashTableIter" - Ptr () -> -- key : TBasicType TPtr - Ptr () -> -- value : TBasicType TPtr - IO CInt - - -hashTableIterNext :: - (MonadIO m) => - HashTableIter -- _obj - -> Ptr () -- key - -> Ptr () -- value - -> m Bool -- result -hashTableIterNext _obj key value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_hash_table_iter_next _obj' key value - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data HashTableIterNextMethodInfo -instance (signature ~ (Ptr () -> Ptr () -> m Bool), MonadIO m) => MethodInfo HashTableIterNextMethodInfo HashTableIter signature where - overloadedMethod _ = hashTableIterNext - --- method HashTableIter::remove --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -hashTableIterRemove _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_hash_table_iter_remove _obj' - touchManagedPtr _obj - return () - -data HashTableIterRemoveMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo HashTableIterRemoveMethodInfo HashTableIter signature where - overloadedMethod _ = hashTableIterRemove - --- method HashTableIter::replace --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_hash_table_iter_replace" g_hash_table_iter_replace :: - Ptr HashTableIter -> -- _obj : TInterface "GLib" "HashTableIter" - Ptr () -> -- value : TBasicType TPtr - IO () - - -hashTableIterReplace :: - (MonadIO m) => - HashTableIter -- _obj - -> Ptr () -- value - -> m () -- result -hashTableIterReplace _obj value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_hash_table_iter_replace _obj' value - touchManagedPtr _obj - return () - -data HashTableIterReplaceMethodInfo -instance (signature ~ (Ptr () -> m ()), MonadIO m) => MethodInfo HashTableIterReplaceMethodInfo HashTableIter signature where - overloadedMethod _ = hashTableIterReplace - --- method HashTableIter::steal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "HashTableIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -hashTableIterSteal _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_hash_table_iter_steal _obj' - touchManagedPtr _obj - return () - -data HashTableIterStealMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo HashTableIterStealMethodInfo HashTableIter signature where - overloadedMethod _ = hashTableIterSteal - -type family ResolveHashTableIterMethod (t :: Symbol) (o :: *) :: * where - ResolveHashTableIterMethod "init" o = HashTableIterInitMethodInfo - ResolveHashTableIterMethod "next" o = HashTableIterNextMethodInfo - ResolveHashTableIterMethod "remove" o = HashTableIterRemoveMethodInfo - ResolveHashTableIterMethod "replace" o = HashTableIterReplaceMethodInfo - ResolveHashTableIterMethod "steal" o = HashTableIterStealMethodInfo - ResolveHashTableIterMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveHashTableIterMethod t HashTableIter, MethodInfo info HashTableIter p) => IsLabelProxy t (HashTableIter -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveHashTableIterMethod t HashTableIter, MethodInfo info HashTableIter p) => IsLabel t (HashTableIter -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,16 +0,0 @@ -module GI.GLib.Structs.HashTableIter where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype HashTableIter = HashTableIter (ForeignPtr HashTableIter) -instance WrappedPtr HashTableIter where -data HashTableIterInitMethodInfo -data HashTableIterNextMethodInfo -data HashTableIterRemoveMethodInfo -data HashTableIterReplaceMethodInfo -data HashTableIterStealMethodInfo 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,205 +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 - HmacGetDigestMethodInfo , - hmacGetDigest , - - --- ** hmacGetString - HmacGetStringMethodInfo , - hmacGetString , - - --- ** hmacUnref - HmacUnrefMethodInfo , - hmacUnref , - - --- ** hmacUpdate - HmacUpdateMethodInfo , - hmacUpdate , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Hmac = Hmac (ForeignPtr Hmac) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr Hmac where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noHmac :: Maybe Hmac -noHmac = Nothing - - -type instance AttributeList Hmac = HmacAttributeList -type HmacAttributeList = ('[ ] :: [(Symbol, *)]) - --- method Hmac::get_digest --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "digest_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- digestLen - -> m () -- result -hmacGetDigest _obj buffer digestLen = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_hmac_get_digest _obj' buffer digestLen - touchManagedPtr _obj - return () - -data HmacGetDigestMethodInfo -instance (signature ~ (Word8 -> Word64 -> m ()), MonadIO m) => MethodInfo HmacGetDigestMethodInfo Hmac signature where - overloadedMethod _ = hmacGetDigest - --- method Hmac::get_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_hmac_get_string" g_hmac_get_string :: - Ptr Hmac -> -- _obj : TInterface "GLib" "Hmac" - IO CString - - -hmacGetString :: - (MonadIO m) => - Hmac -- _obj - -> m T.Text -- result -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' - -data HmacGetStringMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo HmacGetStringMethodInfo Hmac signature where - overloadedMethod _ = hmacGetString - --- method Hmac::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -hmacUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_hmac_unref _obj' - touchManagedPtr _obj - return () - -data HmacUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo HmacUnrefMethodInfo Hmac signature where - overloadedMethod _ = hmacUnref - --- method Hmac::update --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Hmac", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 () -- result -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 () - -data HmacUpdateMethodInfo -instance (signature ~ (ByteString -> m ()), MonadIO m) => MethodInfo HmacUpdateMethodInfo Hmac signature where - overloadedMethod _ = hmacUpdate - -type family ResolveHmacMethod (t :: Symbol) (o :: *) :: * where - ResolveHmacMethod "unref" o = HmacUnrefMethodInfo - ResolveHmacMethod "update" o = HmacUpdateMethodInfo - ResolveHmacMethod "getDigest" o = HmacGetDigestMethodInfo - ResolveHmacMethod "getString" o = HmacGetStringMethodInfo - ResolveHmacMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveHmacMethod t Hmac, MethodInfo info Hmac p) => IsLabelProxy t (Hmac -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveHmacMethod t Hmac, MethodInfo info Hmac p) => IsLabel t (Hmac -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,15 +0,0 @@ -module GI.GLib.Structs.Hmac where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Hmac = Hmac (ForeignPtr Hmac) -instance WrappedPtr Hmac where -data HmacGetDigestMethodInfo -data HmacGetStringMethodInfo -data HmacUnrefMethodInfo -data HmacUpdateMethodInfo 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,543 +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(..) , - newZeroHook , - noHook , - - - -- * Methods --- ** hookCompareIds - HookCompareIdsMethodInfo , - hookCompareIds , - - --- ** hookDestroy - hookDestroy , - - --- ** hookDestroyLink - hookDestroyLink , - - --- ** hookFree - hookFree , - - --- ** hookInsertBefore - hookInsertBefore , - - --- ** hookPrepend - hookPrepend , - - --- ** hookUnref - hookUnref , - - - - - -- * Properties --- ** Data - hookClearData , - hookData , - hookReadData , - hookWriteData , - - --- ** Flags - hookFlags , - hookReadFlags , - hookWriteFlags , - - --- ** Func - hookClearFunc , - hookFunc , - hookReadFunc , - hookWriteFunc , - - --- ** HookId - hookHookId , - hookReadHookId , - hookWriteHookId , - - --- ** Next - hookClearNext , - hookNext , - hookReadNext , - hookWriteNext , - - --- ** Prev - hookClearPrev , - hookPrev , - hookReadPrev , - hookWritePrev , - - --- ** RefCount - hookReadRefCount , - hookRefCount , - hookWriteRefCount , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Hook = Hook (ForeignPtr Hook) -instance WrappedPtr Hook where - wrappedPtrCalloc = callocBytes 64 - wrappedPtrCopy = copyPtr 64 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `Hook` struct initialized to zero. -newZeroHook :: MonadIO m => m Hook -newZeroHook = liftIO $ wrappedPtrCalloc >>= wrapPtr Hook - -instance tag ~ 'AttrSet => Constructible Hook tag where - new _ attrs = do - o <- newZeroHook - GI.Attributes.set o attrs - return o - - -noHook :: Maybe Hook -noHook = Nothing - -hookReadData :: MonadIO m => Hook -> m (Ptr ()) -hookReadData s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr ()) - return val - -hookWriteData :: MonadIO m => Hook -> Ptr () -> m () -hookWriteData s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr ()) - -hookClearData :: MonadIO m => Hook -> m () -hookClearData s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr ()) - -data HookDataFieldInfo -instance AttrInfo HookDataFieldInfo where - type AttrAllowedOps HookDataFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint HookDataFieldInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint HookDataFieldInfo = (~) Hook - type AttrGetType HookDataFieldInfo = Ptr () - type AttrLabel HookDataFieldInfo = "data" - attrGet _ = hookReadData - attrSet _ = hookWriteData - attrConstruct = undefined - attrClear _ = hookClearData - -hookData :: AttrLabelProxy "data" -hookData = AttrLabelProxy - - -hookReadNext :: MonadIO m => Hook -> m (Maybe Hook) -hookReadNext s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr Hook) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr Hook) val' - return val'' - return result - -hookWriteNext :: MonadIO m => Hook -> Ptr Hook -> m () -hookWriteNext s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr Hook) - -hookClearNext :: MonadIO m => Hook -> m () -hookClearNext s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr Hook) - -data HookNextFieldInfo -instance AttrInfo HookNextFieldInfo where - type AttrAllowedOps HookNextFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint HookNextFieldInfo = (~) (Ptr Hook) - type AttrBaseTypeConstraint HookNextFieldInfo = (~) Hook - type AttrGetType HookNextFieldInfo = Maybe Hook - type AttrLabel HookNextFieldInfo = "next" - attrGet _ = hookReadNext - attrSet _ = hookWriteNext - attrConstruct = undefined - attrClear _ = hookClearNext - -hookNext :: AttrLabelProxy "next" -hookNext = AttrLabelProxy - - -hookReadPrev :: MonadIO m => Hook -> m (Maybe Hook) -hookReadPrev s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO (Ptr Hook) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr Hook) val' - return val'' - return result - -hookWritePrev :: MonadIO m => Hook -> Ptr Hook -> m () -hookWritePrev s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Ptr Hook) - -hookClearPrev :: MonadIO m => Hook -> m () -hookClearPrev s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: Ptr Hook) - -data HookPrevFieldInfo -instance AttrInfo HookPrevFieldInfo where - type AttrAllowedOps HookPrevFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint HookPrevFieldInfo = (~) (Ptr Hook) - type AttrBaseTypeConstraint HookPrevFieldInfo = (~) Hook - type AttrGetType HookPrevFieldInfo = Maybe Hook - type AttrLabel HookPrevFieldInfo = "prev" - attrGet _ = hookReadPrev - attrSet _ = hookWritePrev - attrConstruct = undefined - attrClear _ = hookClearPrev - -hookPrev :: AttrLabelProxy "prev" -hookPrev = AttrLabelProxy - - -hookReadRefCount :: MonadIO m => Hook -> m Word32 -hookReadRefCount s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO Word32 - return val - -hookWriteRefCount :: MonadIO m => Hook -> Word32 -> m () -hookWriteRefCount s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Word32) - -data HookRefCountFieldInfo -instance AttrInfo HookRefCountFieldInfo where - type AttrAllowedOps HookRefCountFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint HookRefCountFieldInfo = (~) Word32 - type AttrBaseTypeConstraint HookRefCountFieldInfo = (~) Hook - type AttrGetType HookRefCountFieldInfo = Word32 - type AttrLabel HookRefCountFieldInfo = "ref_count" - attrGet _ = hookReadRefCount - attrSet _ = hookWriteRefCount - attrConstruct = undefined - attrClear _ = undefined - -hookRefCount :: AttrLabelProxy "refCount" -hookRefCount = AttrLabelProxy - - -hookReadHookId :: MonadIO m => Hook -> m CULong -hookReadHookId s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CULong - return val - -hookWriteHookId :: MonadIO m => Hook -> CULong -> m () -hookWriteHookId s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: CULong) - -data HookHookIdFieldInfo -instance AttrInfo HookHookIdFieldInfo where - type AttrAllowedOps HookHookIdFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint HookHookIdFieldInfo = (~) CULong - type AttrBaseTypeConstraint HookHookIdFieldInfo = (~) Hook - type AttrGetType HookHookIdFieldInfo = CULong - type AttrLabel HookHookIdFieldInfo = "hook_id" - attrGet _ = hookReadHookId - attrSet _ = hookWriteHookId - attrConstruct = undefined - attrClear _ = undefined - -hookHookId :: AttrLabelProxy "hookId" -hookHookId = AttrLabelProxy - - -hookReadFlags :: MonadIO m => Hook -> m Word32 -hookReadFlags s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO Word32 - return val - -hookWriteFlags :: MonadIO m => Hook -> Word32 -> m () -hookWriteFlags s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 40) (val :: Word32) - -data HookFlagsFieldInfo -instance AttrInfo HookFlagsFieldInfo where - type AttrAllowedOps HookFlagsFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint HookFlagsFieldInfo = (~) Word32 - type AttrBaseTypeConstraint HookFlagsFieldInfo = (~) Hook - type AttrGetType HookFlagsFieldInfo = Word32 - type AttrLabel HookFlagsFieldInfo = "flags" - attrGet _ = hookReadFlags - attrSet _ = hookWriteFlags - attrConstruct = undefined - attrClear _ = undefined - -hookFlags :: AttrLabelProxy "flags" -hookFlags = AttrLabelProxy - - -hookReadFunc :: MonadIO m => Hook -> m (Ptr ()) -hookReadFunc s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO (Ptr ()) - return val - -hookWriteFunc :: MonadIO m => Hook -> Ptr () -> m () -hookWriteFunc s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 48) (val :: Ptr ()) - -hookClearFunc :: MonadIO m => Hook -> m () -hookClearFunc s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 48) (nullPtr :: Ptr ()) - -data HookFuncFieldInfo -instance AttrInfo HookFuncFieldInfo where - type AttrAllowedOps HookFuncFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint HookFuncFieldInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint HookFuncFieldInfo = (~) Hook - type AttrGetType HookFuncFieldInfo = Ptr () - type AttrLabel HookFuncFieldInfo = "func" - attrGet _ = hookReadFunc - attrSet _ = hookWriteFunc - attrConstruct = undefined - attrClear _ = hookClearFunc - -hookFunc :: AttrLabelProxy "func" -hookFunc = AttrLabelProxy - - --- XXX Skipped attribute for "Hook:destroy" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - -type instance AttributeList Hook = HookAttributeList -type HookAttributeList = ('[ '("data", HookDataFieldInfo), '("next", HookNextFieldInfo), '("prev", HookPrevFieldInfo), '("refCount", HookRefCountFieldInfo), '("hookId", HookHookIdFieldInfo), '("flags", HookFlagsFieldInfo), '("func", HookFuncFieldInfo)] :: [(Symbol, *)]) - --- method Hook::compare_ids --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 - -data HookCompareIdsMethodInfo -instance (signature ~ (Hook -> m Int32), MonadIO m) => MethodInfo HookCompareIdsMethodInfo Hook signature where - overloadedMethod _ = hookCompareIds - --- method Hook::destroy --- method type : MemberFunction --- Args : [Arg {argCName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hook_id", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_hook_destroy" g_hook_destroy :: - Ptr HookList -> -- hook_list : TInterface "GLib" "HookList" - CULong -> -- hook_id : TBasicType TULong - IO CInt - - -hookDestroy :: - (MonadIO m) => - HookList -- hookList - -> CULong -- hookId - -> m Bool -- result -hookDestroy hookList hookId = liftIO $ do - let hookList' = unsafeManagedPtrGetPtr hookList - result <- g_hook_destroy hookList' hookId - let result' = (/= 0) result - touchManagedPtr hookList - return result' - --- method Hook::destroy_link --- method type : MemberFunction --- Args : [Arg {argCName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- hookList - -> Hook -- hook - -> m () -- result -hookDestroyLink hookList hook = liftIO $ do - let hookList' = unsafeManagedPtrGetPtr hookList - let hook' = unsafeManagedPtrGetPtr hook - g_hook_destroy_link hookList' hook' - touchManagedPtr hookList - touchManagedPtr hook - return () - --- method Hook::free --- method type : MemberFunction --- Args : [Arg {argCName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- hookList - -> Hook -- hook - -> m () -- result -hookFree hookList hook = liftIO $ do - let hookList' = unsafeManagedPtrGetPtr hookList - let hook' = unsafeManagedPtrGetPtr hook - g_hook_free hookList' hook' - touchManagedPtr hookList - touchManagedPtr hook - return () - --- method Hook::insert_before --- method type : MemberFunction --- Args : [Arg {argCName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- hookList - -> Hook -- sibling - -> Hook -- hook - -> m () -- result -hookInsertBefore hookList sibling hook = liftIO $ do - let hookList' = unsafeManagedPtrGetPtr hookList - let sibling' = unsafeManagedPtrGetPtr sibling - let hook' = unsafeManagedPtrGetPtr hook - g_hook_insert_before hookList' sibling' hook' - touchManagedPtr hookList - touchManagedPtr sibling - touchManagedPtr hook - return () - --- method Hook::prepend --- method type : MemberFunction --- Args : [Arg {argCName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- hookList - -> Hook -- hook - -> m () -- result -hookPrepend hookList hook = liftIO $ do - let hookList' = unsafeManagedPtrGetPtr hookList - let hook' = unsafeManagedPtrGetPtr hook - g_hook_prepend hookList' hook' - touchManagedPtr hookList - touchManagedPtr hook - return () - --- method Hook::unref --- method type : MemberFunction --- Args : [Arg {argCName = "hook_list", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hook", argType = TInterface "GLib" "Hook", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- hookList - -> Hook -- hook - -> m () -- result -hookUnref hookList hook = liftIO $ do - let hookList' = unsafeManagedPtrGetPtr hookList - let hook' = unsafeManagedPtrGetPtr hook - g_hook_unref hookList' hook' - touchManagedPtr hookList - touchManagedPtr hook - return () - -type family ResolveHookMethod (t :: Symbol) (o :: *) :: * where - ResolveHookMethod "compareIds" o = HookCompareIdsMethodInfo - ResolveHookMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveHookMethod t Hook, MethodInfo info Hook p) => IsLabelProxy t (Hook -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveHookMethod t Hook, MethodInfo info Hook p) => IsLabel t (Hook -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,12 +0,0 @@ -module GI.GLib.Structs.Hook where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Hook = Hook (ForeignPtr Hook) -instance WrappedPtr Hook where -data HookCompareIdsMethodInfo 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,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 #GHookList struct represents a list of hook functions. --} - -module GI.GLib.Structs.HookList - ( - --- * Exported types - HookList(..) , - newZeroHookList , - noHookList , - - - -- * Methods --- ** hookListClear - HookListClearMethodInfo , - hookListClear , - - --- ** hookListInit - HookListInitMethodInfo , - hookListInit , - - --- ** hookListInvoke - HookListInvokeMethodInfo , - hookListInvoke , - - --- ** hookListInvokeCheck - HookListInvokeCheckMethodInfo , - hookListInvokeCheck , - - - - - -- * Properties --- ** Dummy3 - hookListClearDummy3 , - hookListDummy3 , - hookListReadDummy3 , - hookListWriteDummy3 , - - --- ** HookSize - hookListHookSize , - hookListReadHookSize , - hookListWriteHookSize , - - --- ** Hooks - hookListClearHooks , - hookListHooks , - hookListReadHooks , - hookListWriteHooks , - - --- ** IsSetup - hookListIsSetup , - hookListReadIsSetup , - hookListWriteIsSetup , - - --- ** SeqId - hookListReadSeqId , - hookListSeqId , - hookListWriteSeqId , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype HookList = HookList (ForeignPtr HookList) -instance WrappedPtr HookList where - wrappedPtrCalloc = callocBytes 56 - wrappedPtrCopy = copyPtr 56 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `HookList` struct initialized to zero. -newZeroHookList :: MonadIO m => m HookList -newZeroHookList = liftIO $ wrappedPtrCalloc >>= wrapPtr HookList - -instance tag ~ 'AttrSet => Constructible HookList tag where - new _ attrs = do - o <- newZeroHookList - GI.Attributes.set o attrs - return o - - -noHookList :: Maybe HookList -noHookList = Nothing - -hookListReadSeqId :: MonadIO m => HookList -> m CULong -hookListReadSeqId s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CULong - return val - -hookListWriteSeqId :: MonadIO m => HookList -> CULong -> m () -hookListWriteSeqId s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: CULong) - -data HookListSeqIdFieldInfo -instance AttrInfo HookListSeqIdFieldInfo where - type AttrAllowedOps HookListSeqIdFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint HookListSeqIdFieldInfo = (~) CULong - type AttrBaseTypeConstraint HookListSeqIdFieldInfo = (~) HookList - type AttrGetType HookListSeqIdFieldInfo = CULong - type AttrLabel HookListSeqIdFieldInfo = "seq_id" - attrGet _ = hookListReadSeqId - attrSet _ = hookListWriteSeqId - attrConstruct = undefined - attrClear _ = undefined - -hookListSeqId :: AttrLabelProxy "seqId" -hookListSeqId = AttrLabelProxy - - -hookListReadHookSize :: MonadIO m => HookList -> m Word32 -hookListReadHookSize s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word32 - return val - -hookListWriteHookSize :: MonadIO m => HookList -> Word32 -> m () -hookListWriteHookSize s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Word32) - -data HookListHookSizeFieldInfo -instance AttrInfo HookListHookSizeFieldInfo where - type AttrAllowedOps HookListHookSizeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint HookListHookSizeFieldInfo = (~) Word32 - type AttrBaseTypeConstraint HookListHookSizeFieldInfo = (~) HookList - type AttrGetType HookListHookSizeFieldInfo = Word32 - type AttrLabel HookListHookSizeFieldInfo = "hook_size" - attrGet _ = hookListReadHookSize - attrSet _ = hookListWriteHookSize - attrConstruct = undefined - attrClear _ = undefined - -hookListHookSize :: AttrLabelProxy "hookSize" -hookListHookSize = AttrLabelProxy - - -hookListReadIsSetup :: MonadIO m => HookList -> m Word32 -hookListReadIsSetup s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Word32 - return val - -hookListWriteIsSetup :: MonadIO m => HookList -> Word32 -> m () -hookListWriteIsSetup s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 12) (val :: Word32) - -data HookListIsSetupFieldInfo -instance AttrInfo HookListIsSetupFieldInfo where - type AttrAllowedOps HookListIsSetupFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint HookListIsSetupFieldInfo = (~) Word32 - type AttrBaseTypeConstraint HookListIsSetupFieldInfo = (~) HookList - type AttrGetType HookListIsSetupFieldInfo = Word32 - type AttrLabel HookListIsSetupFieldInfo = "is_setup" - attrGet _ = hookListReadIsSetup - attrSet _ = hookListWriteIsSetup - attrConstruct = undefined - attrClear _ = undefined - -hookListIsSetup :: AttrLabelProxy "isSetup" -hookListIsSetup = AttrLabelProxy - - -hookListReadHooks :: MonadIO m => HookList -> m (Maybe Hook) -hookListReadHooks s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO (Ptr Hook) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr Hook) val' - return val'' - return result - -hookListWriteHooks :: MonadIO m => HookList -> Ptr Hook -> m () -hookListWriteHooks s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Ptr Hook) - -hookListClearHooks :: MonadIO m => HookList -> m () -hookListClearHooks s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: Ptr Hook) - -data HookListHooksFieldInfo -instance AttrInfo HookListHooksFieldInfo where - type AttrAllowedOps HookListHooksFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint HookListHooksFieldInfo = (~) (Ptr Hook) - type AttrBaseTypeConstraint HookListHooksFieldInfo = (~) HookList - type AttrGetType HookListHooksFieldInfo = Maybe Hook - type AttrLabel HookListHooksFieldInfo = "hooks" - attrGet _ = hookListReadHooks - attrSet _ = hookListWriteHooks - attrConstruct = undefined - attrClear _ = hookListClearHooks - -hookListHooks :: AttrLabelProxy "hooks" -hookListHooks = AttrLabelProxy - - -hookListReadDummy3 :: MonadIO m => HookList -> m (Ptr ()) -hookListReadDummy3 s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO (Ptr ()) - return val - -hookListWriteDummy3 :: MonadIO m => HookList -> Ptr () -> m () -hookListWriteDummy3 s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Ptr ()) - -hookListClearDummy3 :: MonadIO m => HookList -> m () -hookListClearDummy3 s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: Ptr ()) - -data HookListDummy3FieldInfo -instance AttrInfo HookListDummy3FieldInfo where - type AttrAllowedOps HookListDummy3FieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint HookListDummy3FieldInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint HookListDummy3FieldInfo = (~) HookList - type AttrGetType HookListDummy3FieldInfo = Ptr () - type AttrLabel HookListDummy3FieldInfo = "dummy3" - attrGet _ = hookListReadDummy3 - attrSet _ = hookListWriteDummy3 - attrConstruct = undefined - attrClear _ = hookListClearDummy3 - -hookListDummy3 :: AttrLabelProxy "dummy3" -hookListDummy3 = AttrLabelProxy - - --- XXX Skipped attribute for "HookList:finalize_hook" :: Not implemented: "Wrapping foreign callbacks is not supported yet" --- XXX Skipped attribute for "HookList:dummy" :: Not implemented: "Don't know how to unpack C array of type TCArray False 2 (-1) (TBasicType TPtr)" - -type instance AttributeList HookList = HookListAttributeList -type HookListAttributeList = ('[ '("seqId", HookListSeqIdFieldInfo), '("hookSize", HookListHookSizeFieldInfo), '("isSetup", HookListIsSetupFieldInfo), '("hooks", HookListHooksFieldInfo), '("dummy3", HookListDummy3FieldInfo)] :: [(Symbol, *)]) - --- method HookList::clear --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -hookListClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_hook_list_clear _obj' - touchManagedPtr _obj - return () - -data HookListClearMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo HookListClearMethodInfo HookList signature where - overloadedMethod _ = hookListClear - --- method HookList::init --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hook_size", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_hook_list_init" g_hook_list_init :: - Ptr HookList -> -- _obj : TInterface "GLib" "HookList" - Word32 -> -- hook_size : TBasicType TUInt - IO () - - -hookListInit :: - (MonadIO m) => - HookList -- _obj - -> Word32 -- hookSize - -> m () -- result -hookListInit _obj hookSize = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_hook_list_init _obj' hookSize - touchManagedPtr _obj - return () - -data HookListInitMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m) => MethodInfo HookListInitMethodInfo HookList signature where - overloadedMethod _ = hookListInit - --- method HookList::invoke --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "may_recurse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- mayRecurse - -> m () -- result -hookListInvoke _obj mayRecurse = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let mayRecurse' = (fromIntegral . fromEnum) mayRecurse - g_hook_list_invoke _obj' mayRecurse' - touchManagedPtr _obj - return () - -data HookListInvokeMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m) => MethodInfo HookListInvokeMethodInfo HookList signature where - overloadedMethod _ = hookListInvoke - --- method HookList::invoke_check --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "HookList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "may_recurse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- mayRecurse - -> m () -- result -hookListInvokeCheck _obj mayRecurse = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let mayRecurse' = (fromIntegral . fromEnum) mayRecurse - g_hook_list_invoke_check _obj' mayRecurse' - touchManagedPtr _obj - return () - -data HookListInvokeCheckMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m) => MethodInfo HookListInvokeCheckMethodInfo HookList signature where - overloadedMethod _ = hookListInvokeCheck - -type family ResolveHookListMethod (t :: Symbol) (o :: *) :: * where - ResolveHookListMethod "clear" o = HookListClearMethodInfo - ResolveHookListMethod "init" o = HookListInitMethodInfo - ResolveHookListMethod "invoke" o = HookListInvokeMethodInfo - ResolveHookListMethod "invokeCheck" o = HookListInvokeCheckMethodInfo - ResolveHookListMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveHookListMethod t HookList, MethodInfo info HookList p) => IsLabelProxy t (HookList -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveHookListMethod t HookList, MethodInfo info HookList p) => IsLabel t (HookList -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,15 +0,0 @@ -module GI.GLib.Structs.HookList where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype HookList = HookList (ForeignPtr HookList) -instance WrappedPtr HookList where -data HookListClearMethodInfo -data HookListInitMethodInfo -data HookListInvokeMethodInfo -data HookListInvokeCheckMethodInfo 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,93 +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 - IConvCloseMethodInfo , - iConvClose , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype IConv = IConv (ForeignPtr IConv) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr IConv where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noIConv :: Maybe IConv -noIConv = Nothing - - -type instance AttributeList IConv = IConvAttributeList -type IConvAttributeList = ('[ ] :: [(Symbol, *)]) - --- method IConv::close --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IConv", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_iconv_close" g_iconv_close :: - Ptr IConv -> -- _obj : TInterface "GLib" "IConv" - IO Int32 - - -iConvClose :: - (MonadIO m) => - IConv -- _obj - -> m Int32 -- result -iConvClose _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_iconv_close _obj' - touchManagedPtr _obj - return result - -data IConvCloseMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo IConvCloseMethodInfo IConv signature where - overloadedMethod _ = iConvClose - -type family ResolveIConvMethod (t :: Symbol) (o :: *) :: * where - ResolveIConvMethod "close" o = IConvCloseMethodInfo - ResolveIConvMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveIConvMethod t IConv, MethodInfo info IConv p) => IsLabelProxy t (IConv -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveIConvMethod t IConv, MethodInfo info IConv p) => IsLabel t (IConv -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,12 +0,0 @@ -module GI.GLib.Structs.IConv where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype IConv = IConv (ForeignPtr IConv) -instance WrappedPtr IConv where -data IConvCloseMethodInfo 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,1372 +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(..) , - newZeroIOChannel , - noIOChannel , - - - -- * Methods --- ** iOChannelClose - IOChannelCloseMethodInfo , - iOChannelClose , - - --- ** iOChannelErrorFromErrno - iOChannelErrorFromErrno , - - --- ** iOChannelErrorQuark - iOChannelErrorQuark , - - --- ** iOChannelFlush - IOChannelFlushMethodInfo , - iOChannelFlush , - - --- ** iOChannelGetBufferCondition - IOChannelGetBufferConditionMethodInfo , - iOChannelGetBufferCondition , - - --- ** iOChannelGetBufferSize - IOChannelGetBufferSizeMethodInfo , - iOChannelGetBufferSize , - - --- ** iOChannelGetBuffered - IOChannelGetBufferedMethodInfo , - iOChannelGetBuffered , - - --- ** iOChannelGetCloseOnUnref - IOChannelGetCloseOnUnrefMethodInfo , - iOChannelGetCloseOnUnref , - - --- ** iOChannelGetEncoding - IOChannelGetEncodingMethodInfo , - iOChannelGetEncoding , - - --- ** iOChannelGetFlags - IOChannelGetFlagsMethodInfo , - iOChannelGetFlags , - - --- ** iOChannelGetLineTerm - IOChannelGetLineTermMethodInfo , - iOChannelGetLineTerm , - - --- ** iOChannelInit - IOChannelInitMethodInfo , - iOChannelInit , - - --- ** iOChannelNewFile - iOChannelNewFile , - - --- ** iOChannelRead - IOChannelReadMethodInfo , - iOChannelRead , - - --- ** iOChannelReadChars - IOChannelReadCharsMethodInfo , - iOChannelReadChars , - - --- ** iOChannelReadLine - IOChannelReadLineMethodInfo , - iOChannelReadLine , - - --- ** iOChannelReadToEnd - IOChannelReadToEndMethodInfo , - iOChannelReadToEnd , - - --- ** iOChannelReadUnichar - IOChannelReadUnicharMethodInfo , - iOChannelReadUnichar , - - --- ** iOChannelRef - IOChannelRefMethodInfo , - iOChannelRef , - - --- ** iOChannelSeek - IOChannelSeekMethodInfo , - iOChannelSeek , - - --- ** iOChannelSeekPosition - IOChannelSeekPositionMethodInfo , - iOChannelSeekPosition , - - --- ** iOChannelSetBufferSize - IOChannelSetBufferSizeMethodInfo , - iOChannelSetBufferSize , - - --- ** iOChannelSetBuffered - IOChannelSetBufferedMethodInfo , - iOChannelSetBuffered , - - --- ** iOChannelSetCloseOnUnref - IOChannelSetCloseOnUnrefMethodInfo , - iOChannelSetCloseOnUnref , - - --- ** iOChannelSetEncoding - IOChannelSetEncodingMethodInfo , - iOChannelSetEncoding , - - --- ** iOChannelSetFlags - IOChannelSetFlagsMethodInfo , - iOChannelSetFlags , - - --- ** iOChannelSetLineTerm - IOChannelSetLineTermMethodInfo , - iOChannelSetLineTerm , - - --- ** iOChannelShutdown - IOChannelShutdownMethodInfo , - iOChannelShutdown , - - --- ** iOChannelUnixGetFd - IOChannelUnixGetFdMethodInfo , - iOChannelUnixGetFd , - - --- ** iOChannelUnixNew - iOChannelUnixNew , - - --- ** iOChannelUnref - IOChannelUnrefMethodInfo , - iOChannelUnref , - - --- ** iOChannelWrite - IOChannelWriteMethodInfo , - iOChannelWrite , - - --- ** iOChannelWriteChars - IOChannelWriteCharsMethodInfo , - iOChannelWriteChars , - - --- ** iOChannelWriteUnichar - IOChannelWriteUnicharMethodInfo , - iOChannelWriteUnichar , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.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 - --- | Construct a `IOChannel` struct initialized to zero. -newZeroIOChannel :: MonadIO m => m IOChannel -newZeroIOChannel = liftIO $ callocBoxedBytes 136 >>= wrapBoxed IOChannel - -instance tag ~ 'AttrSet => Constructible IOChannel tag where - new _ attrs = do - o <- newZeroIOChannel - GI.Attributes.set o attrs - return o - - -noIOChannel :: Maybe IOChannel -noIOChannel = Nothing - - -type instance AttributeList IOChannel = IOChannelAttributeList -type IOChannelAttributeList = ('[ ] :: [(Symbol, *)]) - --- method IOChannel::new_file --- method type : Constructor --- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "IOChannel") --- throws : False --- Skip return : False - -foreign import ccall "g_io_channel_unix_new" g_io_channel_unix_new :: - Int32 -> -- fd : TBasicType TInt - IO (Ptr IOChannel) - - -iOChannelUnixNew :: - (MonadIO m) => - Int32 -- fd - -> m IOChannel -- result -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 {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_io_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 () -- result -iOChannelClose _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_io_channel_close _obj' - touchManagedPtr _obj - return () - -data IOChannelCloseMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo IOChannelCloseMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelClose - --- method IOChannel::flush --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data IOChannelFlushMethodInfo -instance (signature ~ (m IOStatus), MonadIO m) => MethodInfo IOChannelFlushMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelFlush - --- method IOChannel::get_buffer_condition --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "IOCondition") --- throws : False --- Skip return : False - -foreign import ccall "g_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] -- result -iOChannelGetBufferCondition _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_io_channel_get_buffer_condition _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data IOChannelGetBufferConditionMethodInfo -instance (signature ~ (m [IOCondition]), MonadIO m) => MethodInfo IOChannelGetBufferConditionMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelGetBufferCondition - --- method IOChannel::get_buffer_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -iOChannelGetBufferSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_io_channel_get_buffer_size _obj' - touchManagedPtr _obj - return result - -data IOChannelGetBufferSizeMethodInfo -instance (signature ~ (m Word64), MonadIO m) => MethodInfo IOChannelGetBufferSizeMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelGetBufferSize - --- method IOChannel::get_buffered --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_io_channel_get_buffered" g_io_channel_get_buffered :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - IO CInt - - -iOChannelGetBuffered :: - (MonadIO m) => - IOChannel -- _obj - -> m Bool -- result -iOChannelGetBuffered _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_io_channel_get_buffered _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data IOChannelGetBufferedMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo IOChannelGetBufferedMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelGetBuffered - --- method IOChannel::get_close_on_unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_io_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 -- result -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' - -data IOChannelGetCloseOnUnrefMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo IOChannelGetCloseOnUnrefMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelGetCloseOnUnref - --- method IOChannel::get_encoding --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_io_channel_get_encoding" g_io_channel_get_encoding :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - IO CString - - -iOChannelGetEncoding :: - (MonadIO m) => - IOChannel -- _obj - -> m T.Text -- result -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' - -data IOChannelGetEncodingMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo IOChannelGetEncodingMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelGetEncoding - --- method IOChannel::get_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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] -- result -iOChannelGetFlags _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_io_channel_get_flags _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data IOChannelGetFlagsMethodInfo -instance (signature ~ (m [IOFlags]), MonadIO m) => MethodInfo IOChannelGetFlagsMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelGetFlags - --- method IOChannel::get_line_term --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_io_channel_get_line_term" g_io_channel_get_line_term :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - Int32 -> -- length : TBasicType TInt - IO CString - - -iOChannelGetLineTerm :: - (MonadIO m) => - IOChannel -- _obj - -> Int32 -- length_ - -> m T.Text -- result -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' - -data IOChannelGetLineTermMethodInfo -instance (signature ~ (Int32 -> m T.Text), MonadIO m) => MethodInfo IOChannelGetLineTermMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelGetLineTerm - --- method IOChannel::init --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_io_channel_init" g_io_channel_init :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - IO () - - -iOChannelInit :: - (MonadIO m) => - IOChannel -- _obj - -> m () -- result -iOChannelInit _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_io_channel_init _obj' - touchManagedPtr _obj - return () - -data IOChannelInitMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo IOChannelInitMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelInit - --- method IOChannel::read --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- bytesRead - -> m IOError -- result -iOChannelRead _obj buf count bytesRead = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - buf' <- textToCString buf - result <- g_io_channel_read _obj' buf' count bytesRead - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - freeMem buf' - return result' - -data IOChannelReadMethodInfo -instance (signature ~ (T.Text -> Word64 -> Word64 -> m IOError), MonadIO m) => MethodInfo IOChannelReadMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelRead - --- method IOChannel::read_chars --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buf", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TInterface "GLib" "IOStatus") --- throws : True --- Skip return : False - -foreign import ccall "g_io_channel_read_chars" g_io_channel_read_chars :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - Ptr Word8 -> -- buf : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- count : TBasicType TUInt64 - Ptr Word64 -> -- bytes_read : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO CUInt - - -iOChannelReadChars :: - (MonadIO m) => - IOChannel -- _obj - -> ByteString -- buf - -> m (IOStatus,ByteString,Word64) -- result -iOChannelReadChars _obj buf = liftIO $ do - let count = fromIntegral $ B.length buf - let _obj' = unsafeManagedPtrGetPtr _obj - buf' <- packByteString buf - bytesRead <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_io_channel_read_chars _obj' buf' count bytesRead - let result' = (toEnum . fromIntegral) result - buf'' <- (unpackByteStringWithLength count) buf' - bytesRead' <- peek bytesRead - touchManagedPtr _obj - freeMem buf' - freeMem bytesRead - return (result', buf'', bytesRead') - ) (do - freeMem buf' - freeMem bytesRead - ) - -data IOChannelReadCharsMethodInfo -instance (signature ~ (ByteString -> m (IOStatus,ByteString,Word64)), MonadIO m) => MethodInfo IOChannelReadCharsMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelReadChars - --- method IOChannel::read_line --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str_return", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "terminator_pos", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (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) -- result -iOChannelReadLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - strReturn <- allocMem :: IO (Ptr CString) - length_ <- allocMem :: IO (Ptr Word64) - terminatorPos <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_io_channel_read_line _obj' strReturn length_ terminatorPos - let result' = (toEnum . fromIntegral) result - strReturn' <- peek strReturn - strReturn'' <- cstringToText strReturn' - freeMem strReturn' - length_' <- peek length_ - terminatorPos' <- peek terminatorPos - touchManagedPtr _obj - freeMem strReturn - freeMem length_ - freeMem terminatorPos - return (result', strReturn'', length_', terminatorPos') - ) (do - freeMem strReturn - freeMem length_ - freeMem terminatorPos - ) - -data IOChannelReadLineMethodInfo -instance (signature ~ (m (IOStatus,T.Text,Word64,Word64)), MonadIO m) => MethodInfo IOChannelReadLineMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelReadLine - --- method IOChannel::read_to_end --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str_return", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (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) -- result -iOChannelReadToEnd _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - strReturn <- allocMem :: IO (Ptr (Ptr Word8)) - length_ <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_io_channel_read_to_end _obj' strReturn length_ - length_' <- peek length_ - let result' = (toEnum . fromIntegral) result - strReturn' <- peek strReturn - strReturn'' <- (unpackByteStringWithLength length_') strReturn' - freeMem strReturn' - touchManagedPtr _obj - freeMem strReturn - freeMem length_ - return (result', strReturn'') - ) (do - freeMem strReturn - freeMem length_ - ) - -data IOChannelReadToEndMethodInfo -instance (signature ~ (m (IOStatus,ByteString)), MonadIO m) => MethodInfo IOChannelReadToEndMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelReadToEnd - --- method IOChannel::read_unichar --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "thechar", argType = TBasicType TUniChar, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (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) -- result -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 - ) - -data IOChannelReadUnicharMethodInfo -instance (signature ~ (m (IOStatus,Char)), MonadIO m) => MethodInfo IOChannelReadUnicharMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelReadUnichar - --- method IOChannel::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data IOChannelRefMethodInfo -instance (signature ~ (m IOChannel), MonadIO m) => MethodInfo IOChannelRefMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelRef - --- method IOChannel::seek --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "GLib" "SeekType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data IOChannelSeekMethodInfo -instance (signature ~ (Int64 -> SeekType -> m IOError), MonadIO m) => MethodInfo IOChannelSeekMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelSeek - --- method IOChannel::seek_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "GLib" "SeekType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data IOChannelSeekPositionMethodInfo -instance (signature ~ (Int64 -> SeekType -> m IOStatus), MonadIO m) => MethodInfo IOChannelSeekPositionMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelSeekPosition - --- method IOChannel::set_buffer_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 () -- result -iOChannelSetBufferSize _obj size = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_io_channel_set_buffer_size _obj' size - touchManagedPtr _obj - return () - -data IOChannelSetBufferSizeMethodInfo -instance (signature ~ (Word64 -> m ()), MonadIO m) => MethodInfo IOChannelSetBufferSizeMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelSetBufferSize - --- method IOChannel::set_buffered --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffered", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 () -- result -iOChannelSetBuffered _obj buffered = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let buffered' = (fromIntegral . fromEnum) buffered - g_io_channel_set_buffered _obj' buffered' - touchManagedPtr _obj - return () - -data IOChannelSetBufferedMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m) => MethodInfo IOChannelSetBufferedMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelSetBuffered - --- method IOChannel::set_close_on_unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "do_close", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- doClose - -> m () -- result -iOChannelSetCloseOnUnref _obj doClose = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let doClose' = (fromIntegral . fromEnum) doClose - g_io_channel_set_close_on_unref _obj' doClose' - touchManagedPtr _obj - return () - -data IOChannelSetCloseOnUnrefMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m) => MethodInfo IOChannelSetCloseOnUnrefMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelSetCloseOnUnref - --- method IOChannel::set_encoding --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "encoding", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 - ) - -data IOChannelSetEncodingMethodInfo -instance (signature ~ (Maybe (T.Text) -> m IOStatus), MonadIO m) => MethodInfo IOChannelSetEncodingMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelSetEncoding - --- method IOChannel::set_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "GLib" "IOFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data IOChannelSetFlagsMethodInfo -instance (signature ~ ([IOFlags] -> m IOStatus), MonadIO m) => MethodInfo IOChannelSetFlagsMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelSetFlags - --- method IOChannel::set_line_term --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "line_term", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 TInt - IO () - - -iOChannelSetLineTerm :: - (MonadIO m) => - IOChannel -- _obj - -> Maybe (T.Text) -- lineTerm - -> Int32 -- length_ - -> m () -- result -iOChannelSetLineTerm _obj lineTerm length_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeLineTerm <- case lineTerm of - Nothing -> return nullPtr - Just jLineTerm -> do - jLineTerm' <- textToCString jLineTerm - return jLineTerm' - g_io_channel_set_line_term _obj' maybeLineTerm length_ - touchManagedPtr _obj - freeMem maybeLineTerm - return () - -data IOChannelSetLineTermMethodInfo -instance (signature ~ (Maybe (T.Text) -> Int32 -> m ()), MonadIO m) => MethodInfo IOChannelSetLineTermMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelSetLineTerm - --- method IOChannel::shutdown --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flush", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data IOChannelShutdownMethodInfo -instance (signature ~ (Bool -> m IOStatus), MonadIO m) => MethodInfo IOChannelShutdownMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelShutdown - --- method IOChannel::unix_get_fd --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_io_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 -- result -iOChannelUnixGetFd _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_io_channel_unix_get_fd _obj' - touchManagedPtr _obj - return result - -data IOChannelUnixGetFdMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo IOChannelUnixGetFdMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelUnixGetFd - --- method IOChannel::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_io_channel_unref" g_io_channel_unref :: - Ptr IOChannel -> -- _obj : TInterface "GLib" "IOChannel" - IO () - - -iOChannelUnref :: - (MonadIO m) => - IOChannel -- _obj - -> m () -- result -iOChannelUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_io_channel_unref _obj' - touchManagedPtr _obj - return () - -data IOChannelUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo IOChannelUnrefMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelUnref - --- method IOChannel::write --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buf", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- bytesWritten - -> m IOError -- result -iOChannelWrite _obj buf count bytesWritten = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - buf' <- textToCString buf - result <- g_io_channel_write _obj' buf' count bytesWritten - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - freeMem buf' - return result' - -data IOChannelWriteMethodInfo -instance (signature ~ (T.Text -> Word64 -> Word64 -> m IOError), MonadIO m) => MethodInfo IOChannelWriteMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelWrite - --- method IOChannel::write_chars --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buf", argType = TCArray False (-1) (-1) (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (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) -- result -iOChannelWriteChars _obj buf count = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - bytesWritten <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_io_channel_write_chars _obj' buf count bytesWritten - let result' = (toEnum . fromIntegral) result - bytesWritten' <- peek bytesWritten - touchManagedPtr _obj - freeMem bytesWritten - return (result', bytesWritten') - ) (do - freeMem bytesWritten - ) - -data IOChannelWriteCharsMethodInfo -instance (signature ~ (Ptr Word8 -> Int64 -> m (IOStatus,Word64)), MonadIO m) => MethodInfo IOChannelWriteCharsMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelWriteChars - --- method IOChannel::write_unichar --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "IOChannel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "thechar", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data IOChannelWriteUnicharMethodInfo -instance (signature ~ (Char -> m IOStatus), MonadIO m) => MethodInfo IOChannelWriteUnicharMethodInfo IOChannel signature where - overloadedMethod _ = iOChannelWriteUnichar - --- method IOChannel::error_from_errno --- method type : MemberFunction --- Args : [Arg {argCName = "en", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TInt - IO CUInt - - -iOChannelErrorFromErrno :: - (MonadIO m) => - Int32 -- en - -> m IOChannelError -- result -iOChannelErrorFromErrno en = liftIO $ do - result <- g_io_channel_error_from_errno en - let result' = (toEnum . fromIntegral) result - return result' - --- method IOChannel::error_quark --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -iOChannelErrorQuark = liftIO $ do - result <- g_io_channel_error_quark - return result - -type family ResolveIOChannelMethod (t :: Symbol) (o :: *) :: * where - ResolveIOChannelMethod "close" o = IOChannelCloseMethodInfo - ResolveIOChannelMethod "flush" o = IOChannelFlushMethodInfo - ResolveIOChannelMethod "init" o = IOChannelInitMethodInfo - ResolveIOChannelMethod "read" o = IOChannelReadMethodInfo - ResolveIOChannelMethod "readChars" o = IOChannelReadCharsMethodInfo - ResolveIOChannelMethod "readLine" o = IOChannelReadLineMethodInfo - ResolveIOChannelMethod "readToEnd" o = IOChannelReadToEndMethodInfo - ResolveIOChannelMethod "readUnichar" o = IOChannelReadUnicharMethodInfo - ResolveIOChannelMethod "ref" o = IOChannelRefMethodInfo - ResolveIOChannelMethod "seek" o = IOChannelSeekMethodInfo - ResolveIOChannelMethod "seekPosition" o = IOChannelSeekPositionMethodInfo - ResolveIOChannelMethod "shutdown" o = IOChannelShutdownMethodInfo - ResolveIOChannelMethod "unixGetFd" o = IOChannelUnixGetFdMethodInfo - ResolveIOChannelMethod "unref" o = IOChannelUnrefMethodInfo - ResolveIOChannelMethod "write" o = IOChannelWriteMethodInfo - ResolveIOChannelMethod "writeChars" o = IOChannelWriteCharsMethodInfo - ResolveIOChannelMethod "writeUnichar" o = IOChannelWriteUnicharMethodInfo - ResolveIOChannelMethod "getBufferCondition" o = IOChannelGetBufferConditionMethodInfo - ResolveIOChannelMethod "getBufferSize" o = IOChannelGetBufferSizeMethodInfo - ResolveIOChannelMethod "getBuffered" o = IOChannelGetBufferedMethodInfo - ResolveIOChannelMethod "getCloseOnUnref" o = IOChannelGetCloseOnUnrefMethodInfo - ResolveIOChannelMethod "getEncoding" o = IOChannelGetEncodingMethodInfo - ResolveIOChannelMethod "getFlags" o = IOChannelGetFlagsMethodInfo - ResolveIOChannelMethod "getLineTerm" o = IOChannelGetLineTermMethodInfo - ResolveIOChannelMethod "setBufferSize" o = IOChannelSetBufferSizeMethodInfo - ResolveIOChannelMethod "setBuffered" o = IOChannelSetBufferedMethodInfo - ResolveIOChannelMethod "setCloseOnUnref" o = IOChannelSetCloseOnUnrefMethodInfo - ResolveIOChannelMethod "setEncoding" o = IOChannelSetEncodingMethodInfo - ResolveIOChannelMethod "setFlags" o = IOChannelSetFlagsMethodInfo - ResolveIOChannelMethod "setLineTerm" o = IOChannelSetLineTermMethodInfo - ResolveIOChannelMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveIOChannelMethod t IOChannel, MethodInfo info IOChannel p) => IsLabelProxy t (IOChannel -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveIOChannelMethod t IOChannel, MethodInfo info IOChannel p) => IsLabel t (IOChannel -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,41 +0,0 @@ -module GI.GLib.Structs.IOChannel where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype IOChannel = IOChannel (ForeignPtr IOChannel) -instance BoxedObject IOChannel where -data IOChannelCloseMethodInfo -data IOChannelFlushMethodInfo -data IOChannelGetBufferConditionMethodInfo -data IOChannelGetBufferSizeMethodInfo -data IOChannelGetBufferedMethodInfo -data IOChannelGetCloseOnUnrefMethodInfo -data IOChannelGetEncodingMethodInfo -data IOChannelGetFlagsMethodInfo -data IOChannelGetLineTermMethodInfo -data IOChannelInitMethodInfo -data IOChannelReadMethodInfo -data IOChannelReadCharsMethodInfo -data IOChannelReadLineMethodInfo -data IOChannelReadToEndMethodInfo -data IOChannelReadUnicharMethodInfo -data IOChannelRefMethodInfo -data IOChannelSeekMethodInfo -data IOChannelSeekPositionMethodInfo -data IOChannelSetBufferSizeMethodInfo -data IOChannelSetBufferedMethodInfo -data IOChannelSetCloseOnUnrefMethodInfo -data IOChannelSetEncodingMethodInfo -data IOChannelSetFlagsMethodInfo -data IOChannelSetLineTermMethodInfo -data IOChannelShutdownMethodInfo -data IOChannelUnixGetFdMethodInfo -data IOChannelUnrefMethodInfo -data IOChannelWriteMethodInfo -data IOChannelWriteCharsMethodInfo -data IOChannelWriteUnicharMethodInfo 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,76 +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(..) , - newZeroIOFuncs , - noIOFuncs , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype IOFuncs = IOFuncs (ForeignPtr IOFuncs) -instance WrappedPtr IOFuncs where - wrappedPtrCalloc = callocBytes 64 - wrappedPtrCopy = copyPtr 64 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `IOFuncs` struct initialized to zero. -newZeroIOFuncs :: MonadIO m => m IOFuncs -newZeroIOFuncs = liftIO $ wrappedPtrCalloc >>= wrapPtr IOFuncs - -instance tag ~ 'AttrSet => Constructible IOFuncs tag where - new _ attrs = do - o <- newZeroIOFuncs - GI.Attributes.set o attrs - return o - - -noIOFuncs :: Maybe IOFuncs -noIOFuncs = Nothing - --- XXX Skipped attribute for "IOFuncs:io_read" :: Not implemented: "Wrapping foreign callbacks is not supported yet" --- XXX Skipped attribute for "IOFuncs:io_write" :: Not implemented: "Wrapping foreign callbacks is not supported yet" --- XXX Skipped attribute for "IOFuncs:io_seek" :: Not implemented: "Wrapping foreign callbacks is not supported yet" --- XXX Skipped attribute for "IOFuncs:io_close" :: Not implemented: "Wrapping foreign callbacks is not supported yet" --- XXX Skipped attribute for "IOFuncs:io_create_watch" :: Not implemented: "Wrapping foreign callbacks is not supported yet" --- XXX Skipped attribute for "IOFuncs:io_free" :: Not implemented: "Wrapping foreign callbacks is not supported yet" --- XXX Skipped attribute for "IOFuncs:io_set_flags" :: Not implemented: "Wrapping foreign callbacks is not supported yet" --- XXX Skipped attribute for "IOFuncs:io_get_flags" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - -type instance AttributeList IOFuncs = IOFuncsAttributeList -type IOFuncsAttributeList = ('[ ] :: [(Symbol, *)]) - -type family ResolveIOFuncsMethod (t :: Symbol) (o :: *) :: * where - ResolveIOFuncsMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveIOFuncsMethod t IOFuncs, MethodInfo info IOFuncs p) => IsLabelProxy t (IOFuncs -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveIOFuncsMethod t IOFuncs, MethodInfo info IOFuncs p) => IsLabel t (IOFuncs -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,11 +0,0 @@ -module GI.GLib.Structs.IOFuncs where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype IOFuncs = IOFuncs (ForeignPtr IOFuncs) -instance WrappedPtr IOFuncs where 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,2168 +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 --- ** keyFileErrorQuark - keyFileErrorQuark , - - --- ** keyFileGetBoolean - KeyFileGetBooleanMethodInfo , - keyFileGetBoolean , - - --- ** keyFileGetBooleanList - KeyFileGetBooleanListMethodInfo , - keyFileGetBooleanList , - - --- ** keyFileGetComment - KeyFileGetCommentMethodInfo , - keyFileGetComment , - - --- ** keyFileGetDouble - KeyFileGetDoubleMethodInfo , - keyFileGetDouble , - - --- ** keyFileGetDoubleList - KeyFileGetDoubleListMethodInfo , - keyFileGetDoubleList , - - --- ** keyFileGetGroups - KeyFileGetGroupsMethodInfo , - keyFileGetGroups , - - --- ** keyFileGetInt64 - KeyFileGetInt64MethodInfo , - keyFileGetInt64 , - - --- ** keyFileGetInteger - KeyFileGetIntegerMethodInfo , - keyFileGetInteger , - - --- ** keyFileGetIntegerList - KeyFileGetIntegerListMethodInfo , - keyFileGetIntegerList , - - --- ** keyFileGetKeys - KeyFileGetKeysMethodInfo , - keyFileGetKeys , - - --- ** keyFileGetLocaleString - KeyFileGetLocaleStringMethodInfo , - keyFileGetLocaleString , - - --- ** keyFileGetLocaleStringList - KeyFileGetLocaleStringListMethodInfo , - keyFileGetLocaleStringList , - - --- ** keyFileGetStartGroup - KeyFileGetStartGroupMethodInfo , - keyFileGetStartGroup , - - --- ** keyFileGetString - KeyFileGetStringMethodInfo , - keyFileGetString , - - --- ** keyFileGetStringList - KeyFileGetStringListMethodInfo , - keyFileGetStringList , - - --- ** keyFileGetUint64 - KeyFileGetUint64MethodInfo , - keyFileGetUint64 , - - --- ** keyFileGetValue - KeyFileGetValueMethodInfo , - keyFileGetValue , - - --- ** keyFileHasGroup - KeyFileHasGroupMethodInfo , - keyFileHasGroup , - - --- ** keyFileLoadFromData - KeyFileLoadFromDataMethodInfo , - keyFileLoadFromData , - - --- ** keyFileLoadFromDataDirs - KeyFileLoadFromDataDirsMethodInfo , - keyFileLoadFromDataDirs , - - --- ** keyFileLoadFromDirs - KeyFileLoadFromDirsMethodInfo , - keyFileLoadFromDirs , - - --- ** keyFileLoadFromFile - KeyFileLoadFromFileMethodInfo , - keyFileLoadFromFile , - - --- ** keyFileNew - keyFileNew , - - --- ** keyFileRemoveComment - KeyFileRemoveCommentMethodInfo , - keyFileRemoveComment , - - --- ** keyFileRemoveGroup - KeyFileRemoveGroupMethodInfo , - keyFileRemoveGroup , - - --- ** keyFileRemoveKey - KeyFileRemoveKeyMethodInfo , - keyFileRemoveKey , - - --- ** keyFileSaveToFile - KeyFileSaveToFileMethodInfo , - keyFileSaveToFile , - - --- ** keyFileSetBoolean - KeyFileSetBooleanMethodInfo , - keyFileSetBoolean , - - --- ** keyFileSetBooleanList - KeyFileSetBooleanListMethodInfo , - keyFileSetBooleanList , - - --- ** keyFileSetComment - KeyFileSetCommentMethodInfo , - keyFileSetComment , - - --- ** keyFileSetDouble - KeyFileSetDoubleMethodInfo , - keyFileSetDouble , - - --- ** keyFileSetDoubleList - KeyFileSetDoubleListMethodInfo , - keyFileSetDoubleList , - - --- ** keyFileSetInt64 - KeyFileSetInt64MethodInfo , - keyFileSetInt64 , - - --- ** keyFileSetInteger - KeyFileSetIntegerMethodInfo , - keyFileSetInteger , - - --- ** keyFileSetIntegerList - KeyFileSetIntegerListMethodInfo , - keyFileSetIntegerList , - - --- ** keyFileSetListSeparator - KeyFileSetListSeparatorMethodInfo , - keyFileSetListSeparator , - - --- ** keyFileSetLocaleString - KeyFileSetLocaleStringMethodInfo , - keyFileSetLocaleString , - - --- ** keyFileSetLocaleStringList - KeyFileSetLocaleStringListMethodInfo , - keyFileSetLocaleStringList , - - --- ** keyFileSetString - KeyFileSetStringMethodInfo , - keyFileSetString , - - --- ** keyFileSetStringList - KeyFileSetStringListMethodInfo , - keyFileSetStringList , - - --- ** keyFileSetUint64 - KeyFileSetUint64MethodInfo , - keyFileSetUint64 , - - --- ** keyFileSetValue - KeyFileSetValueMethodInfo , - keyFileSetValue , - - --- ** keyFileToData - KeyFileToDataMethodInfo , - keyFileToData , - - --- ** keyFileUnref - KeyFileUnrefMethodInfo , - keyFileUnref , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.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 - - -type instance AttributeList KeyFile = KeyFileAttributeList -type KeyFileAttributeList = ('[ ] :: [(Symbol, *)]) - --- method KeyFile::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : 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 -- groupName - -> T.Text -- key - -> m () -- result -keyFileGetBoolean _obj groupName key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - key' <- textToCString key - onException (do - _ <- propagateGError $ g_key_file_get_boolean _obj' groupName' key' - touchManagedPtr _obj - freeMem groupName' - freeMem key' - return () - ) (do - freeMem groupName' - freeMem key' - ) - -data KeyFileGetBooleanMethodInfo -instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m) => MethodInfo KeyFileGetBooleanMethodInfo KeyFile signature where - overloadedMethod _ = keyFileGetBoolean - --- method KeyFile::get_boolean_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (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 -- groupName - -> T.Text -- key - -> m [Bool] -- result -keyFileGetBooleanList _obj groupName key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - key' <- textToCString key - length_ <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_key_file_get_boolean_list _obj' groupName' key' length_ - length_' <- peek length_ - checkUnexpectedReturnNULL "g_key_file_get_boolean_list" result - result' <- (unpackMapStorableArrayWithLength (/= 0) length_') result - freeMem result - touchManagedPtr _obj - freeMem groupName' - freeMem key' - freeMem length_ - return result' - ) (do - freeMem groupName' - freeMem key' - freeMem length_ - ) - -data KeyFileGetBooleanListMethodInfo -instance (signature ~ (T.Text -> T.Text -> m [Bool]), MonadIO m) => MethodInfo KeyFileGetBooleanListMethodInfo KeyFile signature where - overloadedMethod _ = keyFileGetBooleanList - --- method KeyFile::get_comment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : 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) -- groupName - -> T.Text -- key - -> m T.Text -- result -keyFileGetComment _obj groupName key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeGroupName <- case groupName of - Nothing -> return nullPtr - Just jGroupName -> do - jGroupName' <- textToCString jGroupName - return jGroupName' - key' <- textToCString key - onException (do - result <- propagateGError $ g_key_file_get_comment _obj' maybeGroupName key' - checkUnexpectedReturnNULL "g_key_file_get_comment" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - freeMem maybeGroupName - freeMem key' - return result' - ) (do - freeMem maybeGroupName - freeMem key' - ) - -data KeyFileGetCommentMethodInfo -instance (signature ~ (Maybe (T.Text) -> T.Text -> m T.Text), MonadIO m) => MethodInfo KeyFileGetCommentMethodInfo KeyFile signature where - overloadedMethod _ = keyFileGetComment - --- method KeyFile::get_double --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TDouble) --- throws : 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 -- groupName - -> T.Text -- key - -> m Double -- result -keyFileGetDouble _obj groupName key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - key' <- textToCString key - onException (do - result <- propagateGError $ g_key_file_get_double _obj' groupName' key' - let result' = realToFrac result - touchManagedPtr _obj - freeMem groupName' - freeMem key' - return result' - ) (do - freeMem groupName' - freeMem key' - ) - -data KeyFileGetDoubleMethodInfo -instance (signature ~ (T.Text -> T.Text -> m Double), MonadIO m) => MethodInfo KeyFileGetDoubleMethodInfo KeyFile signature where - overloadedMethod _ = keyFileGetDouble - --- method KeyFile::get_double_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (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 -- groupName - -> T.Text -- key - -> m [Double] -- result -keyFileGetDoubleList _obj groupName key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - key' <- textToCString key - length_ <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_key_file_get_double_list _obj' groupName' key' length_ - length_' <- peek length_ - checkUnexpectedReturnNULL "g_key_file_get_double_list" result - result' <- (unpackMapStorableArrayWithLength realToFrac length_') result - freeMem result - touchManagedPtr _obj - freeMem groupName' - freeMem key' - freeMem length_ - return result' - ) (do - freeMem groupName' - freeMem key' - freeMem length_ - ) - -data KeyFileGetDoubleListMethodInfo -instance (signature ~ (T.Text -> T.Text -> m [Double]), MonadIO m) => MethodInfo KeyFileGetDoubleListMethodInfo KeyFile signature where - overloadedMethod _ = keyFileGetDoubleList - --- method KeyFile::get_groups --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType 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) -- result -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_') - -data KeyFileGetGroupsMethodInfo -instance (signature ~ (m ([T.Text],Word64)), MonadIO m) => MethodInfo KeyFileGetGroupsMethodInfo KeyFile signature where - overloadedMethod _ = keyFileGetGroups - --- method KeyFile::get_int64 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType 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 -- groupName - -> T.Text -- key - -> m Int64 -- result -keyFileGetInt64 _obj groupName key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - key' <- textToCString key - onException (do - result <- propagateGError $ g_key_file_get_int64 _obj' groupName' key' - touchManagedPtr _obj - freeMem groupName' - freeMem key' - return result - ) (do - freeMem groupName' - freeMem key' - ) - -data KeyFileGetInt64MethodInfo -instance (signature ~ (T.Text -> T.Text -> m Int64), MonadIO m) => MethodInfo KeyFileGetInt64MethodInfo KeyFile signature where - overloadedMethod _ = keyFileGetInt64 - --- method KeyFile::get_integer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : 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 -- groupName - -> T.Text -- key - -> m Int32 -- result -keyFileGetInteger _obj groupName key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - key' <- textToCString key - onException (do - result <- propagateGError $ g_key_file_get_integer _obj' groupName' key' - touchManagedPtr _obj - freeMem groupName' - freeMem key' - return result - ) (do - freeMem groupName' - freeMem key' - ) - -data KeyFileGetIntegerMethodInfo -instance (signature ~ (T.Text -> T.Text -> m Int32), MonadIO m) => MethodInfo KeyFileGetIntegerMethodInfo KeyFile signature where - overloadedMethod _ = keyFileGetInteger - --- method KeyFile::get_integer_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TCArray False (-1) 3 (TBasicType TInt)) --- 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 -- groupName - -> T.Text -- key - -> m [Int32] -- result -keyFileGetIntegerList _obj groupName key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - key' <- textToCString key - length_ <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_key_file_get_integer_list _obj' groupName' key' length_ - length_' <- peek length_ - checkUnexpectedReturnNULL "g_key_file_get_integer_list" result - result' <- (unpackStorableArrayWithLength length_') result - freeMem result - touchManagedPtr _obj - freeMem groupName' - freeMem key' - freeMem length_ - return result' - ) (do - freeMem groupName' - freeMem key' - freeMem length_ - ) - -data KeyFileGetIntegerListMethodInfo -instance (signature ~ (T.Text -> T.Text -> m [Int32]), MonadIO m) => MethodInfo KeyFileGetIntegerListMethodInfo KeyFile signature where - overloadedMethod _ = keyFileGetIntegerList - --- method KeyFile::get_keys --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (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 -- groupName - -> m ([T.Text],Word64) -- result -keyFileGetKeys _obj groupName = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - length_ <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_key_file_get_keys _obj' groupName' length_ - checkUnexpectedReturnNULL "g_key_file_get_keys" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - length_' <- peek length_ - touchManagedPtr _obj - freeMem groupName' - freeMem length_ - return (result', length_') - ) (do - freeMem groupName' - freeMem length_ - ) - -data KeyFileGetKeysMethodInfo -instance (signature ~ (T.Text -> m ([T.Text],Word64)), MonadIO m) => MethodInfo KeyFileGetKeysMethodInfo KeyFile signature where - overloadedMethod _ = keyFileGetKeys - --- method KeyFile::get_locale_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : True --- Skip return : False - -foreign import ccall "g_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 -- groupName - -> T.Text -- key - -> Maybe (T.Text) -- locale - -> m T.Text -- result -keyFileGetLocaleString _obj groupName key locale = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - 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' groupName' key' maybeLocale - checkUnexpectedReturnNULL "g_key_file_get_locale_string" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - freeMem groupName' - freeMem key' - freeMem maybeLocale - return result' - ) (do - freeMem groupName' - freeMem key' - freeMem maybeLocale - ) - -data KeyFileGetLocaleStringMethodInfo -instance (signature ~ (T.Text -> T.Text -> Maybe (T.Text) -> m T.Text), MonadIO m) => MethodInfo KeyFileGetLocaleStringMethodInfo KeyFile signature where - overloadedMethod _ = keyFileGetLocaleString - --- method KeyFile::get_locale_string_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TCArray True (-1) 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 -- groupName - -> T.Text -- key - -> Maybe (T.Text) -- locale - -> m ([T.Text],Word64) -- result -keyFileGetLocaleStringList _obj groupName key locale = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - 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' groupName' 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 groupName' - freeMem key' - freeMem maybeLocale - freeMem length_ - return (result', length_') - ) (do - freeMem groupName' - freeMem key' - freeMem maybeLocale - freeMem length_ - ) - -data KeyFileGetLocaleStringListMethodInfo -instance (signature ~ (T.Text -> T.Text -> Maybe (T.Text) -> m ([T.Text],Word64)), MonadIO m) => MethodInfo KeyFileGetLocaleStringListMethodInfo KeyFile signature where - overloadedMethod _ = keyFileGetLocaleStringList - --- method KeyFile::get_start_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data KeyFileGetStartGroupMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo KeyFileGetStartGroupMethodInfo KeyFile signature where - overloadedMethod _ = keyFileGetStartGroup - --- method KeyFile::get_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : 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 -- groupName - -> T.Text -- key - -> m T.Text -- result -keyFileGetString _obj groupName key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - key' <- textToCString key - onException (do - result <- propagateGError $ g_key_file_get_string _obj' groupName' key' - checkUnexpectedReturnNULL "g_key_file_get_string" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - freeMem groupName' - freeMem key' - return result' - ) (do - freeMem groupName' - freeMem key' - ) - -data KeyFileGetStringMethodInfo -instance (signature ~ (T.Text -> T.Text -> m T.Text), MonadIO m) => MethodInfo KeyFileGetStringMethodInfo KeyFile signature where - overloadedMethod _ = keyFileGetString - --- method KeyFile::get_string_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (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 -- groupName - -> T.Text -- key - -> m ([T.Text],Word64) -- result -keyFileGetStringList _obj groupName key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - key' <- textToCString key - length_ <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_key_file_get_string_list _obj' groupName' key' length_ - checkUnexpectedReturnNULL "g_key_file_get_string_list" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - length_' <- peek length_ - touchManagedPtr _obj - freeMem groupName' - freeMem key' - freeMem length_ - return (result', length_') - ) (do - freeMem groupName' - freeMem key' - freeMem length_ - ) - -data KeyFileGetStringListMethodInfo -instance (signature ~ (T.Text -> T.Text -> m ([T.Text],Word64)), MonadIO m) => MethodInfo KeyFileGetStringListMethodInfo KeyFile signature where - overloadedMethod _ = keyFileGetStringList - --- method KeyFile::get_uint64 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType 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 -- groupName - -> T.Text -- key - -> m Word64 -- result -keyFileGetUint64 _obj groupName key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - key' <- textToCString key - onException (do - result <- propagateGError $ g_key_file_get_uint64 _obj' groupName' key' - touchManagedPtr _obj - freeMem groupName' - freeMem key' - return result - ) (do - freeMem groupName' - freeMem key' - ) - -data KeyFileGetUint64MethodInfo -instance (signature ~ (T.Text -> T.Text -> m Word64), MonadIO m) => MethodInfo KeyFileGetUint64MethodInfo KeyFile signature where - overloadedMethod _ = keyFileGetUint64 - --- method KeyFile::get_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : 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 -- groupName - -> T.Text -- key - -> m T.Text -- result -keyFileGetValue _obj groupName key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - key' <- textToCString key - onException (do - result <- propagateGError $ g_key_file_get_value _obj' groupName' key' - checkUnexpectedReturnNULL "g_key_file_get_value" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - freeMem groupName' - freeMem key' - return result' - ) (do - freeMem groupName' - freeMem key' - ) - -data KeyFileGetValueMethodInfo -instance (signature ~ (T.Text -> T.Text -> m T.Text), MonadIO m) => MethodInfo KeyFileGetValueMethodInfo KeyFile signature where - overloadedMethod _ = keyFileGetValue - --- method KeyFile::has_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- groupName - -> m Bool -- result -keyFileHasGroup _obj groupName = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - result <- g_key_file_has_group _obj' groupName' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem groupName' - return result' - -data KeyFileHasGroupMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m) => MethodInfo KeyFileHasGroupMethodInfo KeyFile signature where - overloadedMethod _ = keyFileHasGroup - --- method KeyFile::load_from_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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 () -- result -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_' - ) - -data KeyFileLoadFromDataMethodInfo -instance (signature ~ (T.Text -> Word64 -> [KeyFileFlags] -> m ()), MonadIO m) => MethodInfo KeyFileLoadFromDataMethodInfo KeyFile signature where - overloadedMethod _ = keyFileLoadFromData - --- method KeyFile::load_from_data_dirs --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "full_path", argType = TBasicType TFileName, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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]) -- result -keyFileLoadFromDataDirs _obj file flags = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - file' <- stringToCString file - fullPath <- allocMem :: IO (Ptr CString) - let flags' = gflagsToWord flags - onException (do - _ <- propagateGError $ g_key_file_load_from_data_dirs _obj' file' fullPath flags' - fullPath' <- peek fullPath - fullPath'' <- cstringToString fullPath' - freeMem fullPath' - touchManagedPtr _obj - freeMem file' - freeMem fullPath - return fullPath'' - ) (do - freeMem file' - freeMem fullPath - ) - -data KeyFileLoadFromDataDirsMethodInfo -instance (signature ~ ([Char] -> [KeyFileFlags] -> m ([Char])), MonadIO m) => MethodInfo KeyFileLoadFromDataDirsMethodInfo KeyFile signature where - overloadedMethod _ = keyFileLoadFromDataDirs - --- method KeyFile::load_from_dirs --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "search_dirs", argType = TCArray True (-1) (-1) (TBasicType TFileName), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "full_path", argType = TBasicType TFileName, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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]] -- searchDirs - -> [KeyFileFlags] -- flags - -> m ([Char]) -- result -keyFileLoadFromDirs _obj file searchDirs flags = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - file' <- stringToCString file - searchDirs' <- packZeroTerminatedFileNameArray searchDirs - fullPath <- allocMem :: IO (Ptr CString) - let flags' = gflagsToWord flags - onException (do - _ <- propagateGError $ g_key_file_load_from_dirs _obj' file' searchDirs' fullPath flags' - fullPath' <- peek fullPath - fullPath'' <- cstringToString fullPath' - freeMem fullPath' - touchManagedPtr _obj - freeMem file' - mapZeroTerminatedCArray freeMem searchDirs' - freeMem searchDirs' - freeMem fullPath - return fullPath'' - ) (do - freeMem file' - mapZeroTerminatedCArray freeMem searchDirs' - freeMem searchDirs' - freeMem fullPath - ) - -data KeyFileLoadFromDirsMethodInfo -instance (signature ~ ([Char] -> [[Char]] -> [KeyFileFlags] -> m ([Char])), MonadIO m) => MethodInfo KeyFileLoadFromDirsMethodInfo KeyFile signature where - overloadedMethod _ = keyFileLoadFromDirs - --- method KeyFile::load_from_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "GLib" "KeyFileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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 () -- result -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' - ) - -data KeyFileLoadFromFileMethodInfo -instance (signature ~ ([Char] -> [KeyFileFlags] -> m ()), MonadIO m) => MethodInfo KeyFileLoadFromFileMethodInfo KeyFile signature where - overloadedMethod _ = keyFileLoadFromFile - --- method KeyFile::remove_comment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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) -- groupName - -> Maybe (T.Text) -- key - -> m () -- result -keyFileRemoveComment _obj groupName key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeGroupName <- case groupName of - Nothing -> return nullPtr - Just jGroupName -> do - jGroupName' <- textToCString jGroupName - return jGroupName' - maybeKey <- case key of - Nothing -> return nullPtr - Just jKey -> do - jKey' <- textToCString jKey - return jKey' - onException (do - _ <- propagateGError $ g_key_file_remove_comment _obj' maybeGroupName maybeKey - touchManagedPtr _obj - freeMem maybeGroupName - freeMem maybeKey - return () - ) (do - freeMem maybeGroupName - freeMem maybeKey - ) - -data KeyFileRemoveCommentMethodInfo -instance (signature ~ (Maybe (T.Text) -> Maybe (T.Text) -> m ()), MonadIO m) => MethodInfo KeyFileRemoveCommentMethodInfo KeyFile signature where - overloadedMethod _ = keyFileRemoveComment - --- method KeyFile::remove_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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 -- groupName - -> m () -- result -keyFileRemoveGroup _obj groupName = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - onException (do - _ <- propagateGError $ g_key_file_remove_group _obj' groupName' - touchManagedPtr _obj - freeMem groupName' - return () - ) (do - freeMem groupName' - ) - -data KeyFileRemoveGroupMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo KeyFileRemoveGroupMethodInfo KeyFile signature where - overloadedMethod _ = keyFileRemoveGroup - --- method KeyFile::remove_key --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : 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 -- groupName - -> T.Text -- key - -> m () -- result -keyFileRemoveKey _obj groupName key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - key' <- textToCString key - onException (do - _ <- propagateGError $ g_key_file_remove_key _obj' groupName' key' - touchManagedPtr _obj - freeMem groupName' - freeMem key' - return () - ) (do - freeMem groupName' - freeMem key' - ) - -data KeyFileRemoveKeyMethodInfo -instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m) => MethodInfo KeyFileRemoveKeyMethodInfo KeyFile signature where - overloadedMethod _ = keyFileRemoveKey - --- method KeyFile::save_to_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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 () -- result -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' - ) - -data KeyFileSaveToFileMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo KeyFileSaveToFileMethodInfo KeyFile signature where - overloadedMethod _ = keyFileSaveToFile - --- method KeyFile::set_boolean --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- groupName - -> T.Text -- key - -> Bool -- value - -> m () -- result -keyFileSetBoolean _obj groupName key value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - key' <- textToCString key - let value' = (fromIntegral . fromEnum) value - g_key_file_set_boolean _obj' groupName' key' value' - touchManagedPtr _obj - freeMem groupName' - freeMem key' - return () - -data KeyFileSetBooleanMethodInfo -instance (signature ~ (T.Text -> T.Text -> Bool -> m ()), MonadIO m) => MethodInfo KeyFileSetBooleanMethodInfo KeyFile signature where - overloadedMethod _ = keyFileSetBoolean - --- method KeyFile::set_boolean_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "list", argType = TCArray False (-1) 4 (TBasicType TBoolean), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- groupName - -> T.Text -- key - -> [Bool] -- list - -> m () -- result -keyFileSetBooleanList _obj groupName key list = liftIO $ do - let length_ = fromIntegral $ length list - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - key' <- textToCString key - list' <- (packMapStorableArray (fromIntegral . fromEnum)) list - g_key_file_set_boolean_list _obj' groupName' key' list' length_ - touchManagedPtr _obj - freeMem groupName' - freeMem key' - freeMem list' - return () - -data KeyFileSetBooleanListMethodInfo -instance (signature ~ (T.Text -> T.Text -> [Bool] -> m ()), MonadIO m) => MethodInfo KeyFileSetBooleanListMethodInfo KeyFile signature where - overloadedMethod _ = keyFileSetBooleanList - --- method KeyFile::set_comment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "comment", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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) -- groupName - -> Maybe (T.Text) -- key - -> T.Text -- comment - -> m () -- result -keyFileSetComment _obj groupName key comment = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeGroupName <- case groupName of - Nothing -> return nullPtr - Just jGroupName -> do - jGroupName' <- textToCString jGroupName - return jGroupName' - 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' maybeGroupName maybeKey comment' - touchManagedPtr _obj - freeMem maybeGroupName - freeMem maybeKey - freeMem comment' - return () - ) (do - freeMem maybeGroupName - freeMem maybeKey - freeMem comment' - ) - -data KeyFileSetCommentMethodInfo -instance (signature ~ (Maybe (T.Text) -> Maybe (T.Text) -> T.Text -> m ()), MonadIO m) => MethodInfo KeyFileSetCommentMethodInfo KeyFile signature where - overloadedMethod _ = keyFileSetComment - --- method KeyFile::set_double --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- groupName - -> T.Text -- key - -> Double -- value - -> m () -- result -keyFileSetDouble _obj groupName key value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - key' <- textToCString key - let value' = realToFrac value - g_key_file_set_double _obj' groupName' key' value' - touchManagedPtr _obj - freeMem groupName' - freeMem key' - return () - -data KeyFileSetDoubleMethodInfo -instance (signature ~ (T.Text -> T.Text -> Double -> m ()), MonadIO m) => MethodInfo KeyFileSetDoubleMethodInfo KeyFile signature where - overloadedMethod _ = keyFileSetDouble - --- method KeyFile::set_double_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "list", argType = TCArray False (-1) 4 (TBasicType TDouble), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- groupName - -> T.Text -- key - -> [Double] -- list - -> m () -- result -keyFileSetDoubleList _obj groupName key list = liftIO $ do - let length_ = fromIntegral $ length list - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - key' <- textToCString key - list' <- (packMapStorableArray realToFrac) list - g_key_file_set_double_list _obj' groupName' key' list' length_ - touchManagedPtr _obj - freeMem groupName' - freeMem key' - freeMem list' - return () - -data KeyFileSetDoubleListMethodInfo -instance (signature ~ (T.Text -> T.Text -> [Double] -> m ()), MonadIO m) => MethodInfo KeyFileSetDoubleListMethodInfo KeyFile signature where - overloadedMethod _ = keyFileSetDoubleList - --- method KeyFile::set_int64 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- groupName - -> T.Text -- key - -> Int64 -- value - -> m () -- result -keyFileSetInt64 _obj groupName key value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - key' <- textToCString key - g_key_file_set_int64 _obj' groupName' key' value - touchManagedPtr _obj - freeMem groupName' - freeMem key' - return () - -data KeyFileSetInt64MethodInfo -instance (signature ~ (T.Text -> T.Text -> Int64 -> m ()), MonadIO m) => MethodInfo KeyFileSetInt64MethodInfo KeyFile signature where - overloadedMethod _ = keyFileSetInt64 - --- method KeyFile::set_integer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TInt - IO () - - -keyFileSetInteger :: - (MonadIO m) => - KeyFile -- _obj - -> T.Text -- groupName - -> T.Text -- key - -> Int32 -- value - -> m () -- result -keyFileSetInteger _obj groupName key value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - key' <- textToCString key - g_key_file_set_integer _obj' groupName' key' value - touchManagedPtr _obj - freeMem groupName' - freeMem key' - return () - -data KeyFileSetIntegerMethodInfo -instance (signature ~ (T.Text -> T.Text -> Int32 -> m ()), MonadIO m) => MethodInfo KeyFileSetIntegerMethodInfo KeyFile signature where - overloadedMethod _ = keyFileSetInteger - --- method KeyFile::set_integer_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "list", argType = TCArray False (-1) 4 (TBasicType TInt), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 TInt) - Word64 -> -- length : TBasicType TUInt64 - IO () - - -keyFileSetIntegerList :: - (MonadIO m) => - KeyFile -- _obj - -> T.Text -- groupName - -> T.Text -- key - -> [Int32] -- list - -> m () -- result -keyFileSetIntegerList _obj groupName key list = liftIO $ do - let length_ = fromIntegral $ length list - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - key' <- textToCString key - list' <- packStorableArray list - g_key_file_set_integer_list _obj' groupName' key' list' length_ - touchManagedPtr _obj - freeMem groupName' - freeMem key' - freeMem list' - return () - -data KeyFileSetIntegerListMethodInfo -instance (signature ~ (T.Text -> T.Text -> [Int32] -> m ()), MonadIO m) => MethodInfo KeyFileSetIntegerListMethodInfo KeyFile signature where - overloadedMethod _ = keyFileSetIntegerList - --- method KeyFile::set_list_separator --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "separator", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -keyFileSetListSeparator _obj separator = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_key_file_set_list_separator _obj' separator - touchManagedPtr _obj - return () - -data KeyFileSetListSeparatorMethodInfo -instance (signature ~ (Int8 -> m ()), MonadIO m) => MethodInfo KeyFileSetListSeparatorMethodInfo KeyFile signature where - overloadedMethod _ = keyFileSetListSeparator - --- method KeyFile::set_locale_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- groupName - -> T.Text -- key - -> T.Text -- locale - -> T.Text -- string - -> m () -- result -keyFileSetLocaleString _obj groupName key locale string = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - key' <- textToCString key - locale' <- textToCString locale - string' <- textToCString string - g_key_file_set_locale_string _obj' groupName' key' locale' string' - touchManagedPtr _obj - freeMem groupName' - freeMem key' - freeMem locale' - freeMem string' - return () - -data KeyFileSetLocaleStringMethodInfo -instance (signature ~ (T.Text -> T.Text -> T.Text -> T.Text -> m ()), MonadIO m) => MethodInfo KeyFileSetLocaleStringMethodInfo KeyFile signature where - overloadedMethod _ = keyFileSetLocaleString - --- method KeyFile::set_locale_string_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "locale", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "list", argType = TCArray True (-1) 5 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- groupName - -> T.Text -- key - -> T.Text -- locale - -> [T.Text] -- list - -> Word64 -- length_ - -> m () -- result -keyFileSetLocaleStringList _obj groupName key locale list length_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - key' <- textToCString key - locale' <- textToCString locale - list' <- packZeroTerminatedUTF8CArray list - g_key_file_set_locale_string_list _obj' groupName' key' locale' list' length_ - touchManagedPtr _obj - freeMem groupName' - freeMem key' - freeMem locale' - mapZeroTerminatedCArray freeMem list' - freeMem list' - return () - -data KeyFileSetLocaleStringListMethodInfo -instance (signature ~ (T.Text -> T.Text -> T.Text -> [T.Text] -> Word64 -> m ()), MonadIO m) => MethodInfo KeyFileSetLocaleStringListMethodInfo KeyFile signature where - overloadedMethod _ = keyFileSetLocaleStringList - --- method KeyFile::set_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- groupName - -> T.Text -- key - -> T.Text -- string - -> m () -- result -keyFileSetString _obj groupName key string = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - key' <- textToCString key - string' <- textToCString string - g_key_file_set_string _obj' groupName' key' string' - touchManagedPtr _obj - freeMem groupName' - freeMem key' - freeMem string' - return () - -data KeyFileSetStringMethodInfo -instance (signature ~ (T.Text -> T.Text -> T.Text -> m ()), MonadIO m) => MethodInfo KeyFileSetStringMethodInfo KeyFile signature where - overloadedMethod _ = keyFileSetString - --- method KeyFile::set_string_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "list", argType = TCArray True (-1) 4 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- groupName - -> T.Text -- key - -> [T.Text] -- list - -> Word64 -- length_ - -> m () -- result -keyFileSetStringList _obj groupName key list length_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - key' <- textToCString key - list' <- packZeroTerminatedUTF8CArray list - g_key_file_set_string_list _obj' groupName' key' list' length_ - touchManagedPtr _obj - freeMem groupName' - freeMem key' - mapZeroTerminatedCArray freeMem list' - freeMem list' - return () - -data KeyFileSetStringListMethodInfo -instance (signature ~ (T.Text -> T.Text -> [T.Text] -> Word64 -> m ()), MonadIO m) => MethodInfo KeyFileSetStringListMethodInfo KeyFile signature where - overloadedMethod _ = keyFileSetStringList - --- method KeyFile::set_uint64 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- groupName - -> T.Text -- key - -> Word64 -- value - -> m () -- result -keyFileSetUint64 _obj groupName key value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - key' <- textToCString key - g_key_file_set_uint64 _obj' groupName' key' value - touchManagedPtr _obj - freeMem groupName' - freeMem key' - return () - -data KeyFileSetUint64MethodInfo -instance (signature ~ (T.Text -> T.Text -> Word64 -> m ()), MonadIO m) => MethodInfo KeyFileSetUint64MethodInfo KeyFile signature where - overloadedMethod _ = keyFileSetUint64 - --- method KeyFile::set_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- groupName - -> T.Text -- key - -> T.Text -- value - -> m () -- result -keyFileSetValue _obj groupName key value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - groupName' <- textToCString groupName - key' <- textToCString key - value' <- textToCString value - g_key_file_set_value _obj' groupName' key' value' - touchManagedPtr _obj - freeMem groupName' - freeMem key' - freeMem value' - return () - -data KeyFileSetValueMethodInfo -instance (signature ~ (T.Text -> T.Text -> T.Text -> m ()), MonadIO m) => MethodInfo KeyFileSetValueMethodInfo KeyFile signature where - overloadedMethod _ = keyFileSetValue - --- method KeyFile::to_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : True --- Skip return : False - -foreign import ccall "g_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) -- result -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_ - ) - -data KeyFileToDataMethodInfo -instance (signature ~ (m (T.Text,Word64)), MonadIO m) => MethodInfo KeyFileToDataMethodInfo KeyFile signature where - overloadedMethod _ = keyFileToData - --- method KeyFile::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -keyFileUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_key_file_unref _obj' - touchManagedPtr _obj - return () - -data KeyFileUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo KeyFileUnrefMethodInfo KeyFile signature where - overloadedMethod _ = keyFileUnref - --- method KeyFile::error_quark --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -keyFileErrorQuark = liftIO $ do - result <- g_key_file_error_quark - return result - -type family ResolveKeyFileMethod (t :: Symbol) (o :: *) :: * where - ResolveKeyFileMethod "hasGroup" o = KeyFileHasGroupMethodInfo - ResolveKeyFileMethod "loadFromData" o = KeyFileLoadFromDataMethodInfo - ResolveKeyFileMethod "loadFromDataDirs" o = KeyFileLoadFromDataDirsMethodInfo - ResolveKeyFileMethod "loadFromDirs" o = KeyFileLoadFromDirsMethodInfo - ResolveKeyFileMethod "loadFromFile" o = KeyFileLoadFromFileMethodInfo - ResolveKeyFileMethod "removeComment" o = KeyFileRemoveCommentMethodInfo - ResolveKeyFileMethod "removeGroup" o = KeyFileRemoveGroupMethodInfo - ResolveKeyFileMethod "removeKey" o = KeyFileRemoveKeyMethodInfo - ResolveKeyFileMethod "saveToFile" o = KeyFileSaveToFileMethodInfo - ResolveKeyFileMethod "toData" o = KeyFileToDataMethodInfo - ResolveKeyFileMethod "unref" o = KeyFileUnrefMethodInfo - ResolveKeyFileMethod "getBoolean" o = KeyFileGetBooleanMethodInfo - ResolveKeyFileMethod "getBooleanList" o = KeyFileGetBooleanListMethodInfo - ResolveKeyFileMethod "getComment" o = KeyFileGetCommentMethodInfo - ResolveKeyFileMethod "getDouble" o = KeyFileGetDoubleMethodInfo - ResolveKeyFileMethod "getDoubleList" o = KeyFileGetDoubleListMethodInfo - ResolveKeyFileMethod "getGroups" o = KeyFileGetGroupsMethodInfo - ResolveKeyFileMethod "getInt64" o = KeyFileGetInt64MethodInfo - ResolveKeyFileMethod "getInteger" o = KeyFileGetIntegerMethodInfo - ResolveKeyFileMethod "getIntegerList" o = KeyFileGetIntegerListMethodInfo - ResolveKeyFileMethod "getKeys" o = KeyFileGetKeysMethodInfo - ResolveKeyFileMethod "getLocaleString" o = KeyFileGetLocaleStringMethodInfo - ResolveKeyFileMethod "getLocaleStringList" o = KeyFileGetLocaleStringListMethodInfo - ResolveKeyFileMethod "getStartGroup" o = KeyFileGetStartGroupMethodInfo - ResolveKeyFileMethod "getString" o = KeyFileGetStringMethodInfo - ResolveKeyFileMethod "getStringList" o = KeyFileGetStringListMethodInfo - ResolveKeyFileMethod "getUint64" o = KeyFileGetUint64MethodInfo - ResolveKeyFileMethod "getValue" o = KeyFileGetValueMethodInfo - ResolveKeyFileMethod "setBoolean" o = KeyFileSetBooleanMethodInfo - ResolveKeyFileMethod "setBooleanList" o = KeyFileSetBooleanListMethodInfo - ResolveKeyFileMethod "setComment" o = KeyFileSetCommentMethodInfo - ResolveKeyFileMethod "setDouble" o = KeyFileSetDoubleMethodInfo - ResolveKeyFileMethod "setDoubleList" o = KeyFileSetDoubleListMethodInfo - ResolveKeyFileMethod "setInt64" o = KeyFileSetInt64MethodInfo - ResolveKeyFileMethod "setInteger" o = KeyFileSetIntegerMethodInfo - ResolveKeyFileMethod "setIntegerList" o = KeyFileSetIntegerListMethodInfo - ResolveKeyFileMethod "setListSeparator" o = KeyFileSetListSeparatorMethodInfo - ResolveKeyFileMethod "setLocaleString" o = KeyFileSetLocaleStringMethodInfo - ResolveKeyFileMethod "setLocaleStringList" o = KeyFileSetLocaleStringListMethodInfo - ResolveKeyFileMethod "setString" o = KeyFileSetStringMethodInfo - ResolveKeyFileMethod "setStringList" o = KeyFileSetStringListMethodInfo - ResolveKeyFileMethod "setUint64" o = KeyFileSetUint64MethodInfo - ResolveKeyFileMethod "setValue" o = KeyFileSetValueMethodInfo - ResolveKeyFileMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveKeyFileMethod t KeyFile, MethodInfo info KeyFile p) => IsLabelProxy t (KeyFile -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveKeyFileMethod t KeyFile, MethodInfo info KeyFile p) => IsLabel t (KeyFile -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,54 +0,0 @@ -module GI.GLib.Structs.KeyFile where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype KeyFile = KeyFile (ForeignPtr KeyFile) -instance BoxedObject KeyFile where -data KeyFileGetBooleanMethodInfo -data KeyFileGetBooleanListMethodInfo -data KeyFileGetCommentMethodInfo -data KeyFileGetDoubleMethodInfo -data KeyFileGetDoubleListMethodInfo -data KeyFileGetGroupsMethodInfo -data KeyFileGetInt64MethodInfo -data KeyFileGetIntegerMethodInfo -data KeyFileGetIntegerListMethodInfo -data KeyFileGetKeysMethodInfo -data KeyFileGetLocaleStringMethodInfo -data KeyFileGetLocaleStringListMethodInfo -data KeyFileGetStartGroupMethodInfo -data KeyFileGetStringMethodInfo -data KeyFileGetStringListMethodInfo -data KeyFileGetUint64MethodInfo -data KeyFileGetValueMethodInfo -data KeyFileHasGroupMethodInfo -data KeyFileLoadFromDataMethodInfo -data KeyFileLoadFromDataDirsMethodInfo -data KeyFileLoadFromDirsMethodInfo -data KeyFileLoadFromFileMethodInfo -data KeyFileRemoveCommentMethodInfo -data KeyFileRemoveGroupMethodInfo -data KeyFileRemoveKeyMethodInfo -data KeyFileSaveToFileMethodInfo -data KeyFileSetBooleanMethodInfo -data KeyFileSetBooleanListMethodInfo -data KeyFileSetCommentMethodInfo -data KeyFileSetDoubleMethodInfo -data KeyFileSetDoubleListMethodInfo -data KeyFileSetInt64MethodInfo -data KeyFileSetIntegerMethodInfo -data KeyFileSetIntegerListMethodInfo -data KeyFileSetListSeparatorMethodInfo -data KeyFileSetLocaleStringMethodInfo -data KeyFileSetLocaleStringListMethodInfo -data KeyFileSetStringMethodInfo -data KeyFileSetStringListMethodInfo -data KeyFileSetUint64MethodInfo -data KeyFileSetValueMethodInfo -data KeyFileToDataMethodInfo -data KeyFileUnrefMethodInfo 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,935 +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 - MainContextAcquireMethodInfo , - mainContextAcquire , - - --- ** mainContextAddPoll - MainContextAddPollMethodInfo , - mainContextAddPoll , - - --- ** mainContextCheck - MainContextCheckMethodInfo , - mainContextCheck , - - --- ** mainContextDefault - mainContextDefault , - - --- ** mainContextDispatch - MainContextDispatchMethodInfo , - mainContextDispatch , - - --- ** mainContextFindSourceByFuncsUserData - MainContextFindSourceByFuncsUserDataMethodInfo, - mainContextFindSourceByFuncsUserData , - - --- ** mainContextFindSourceById - MainContextFindSourceByIdMethodInfo , - mainContextFindSourceById , - - --- ** mainContextFindSourceByUserData - MainContextFindSourceByUserDataMethodInfo, - mainContextFindSourceByUserData , - - --- ** mainContextGetThreadDefault - mainContextGetThreadDefault , - - --- ** mainContextInvokeFull - MainContextInvokeFullMethodInfo , - mainContextInvokeFull , - - --- ** mainContextIsOwner - MainContextIsOwnerMethodInfo , - mainContextIsOwner , - - --- ** mainContextIteration - MainContextIterationMethodInfo , - mainContextIteration , - - --- ** mainContextNew - mainContextNew , - - --- ** mainContextPending - MainContextPendingMethodInfo , - mainContextPending , - - --- ** mainContextPopThreadDefault - MainContextPopThreadDefaultMethodInfo , - mainContextPopThreadDefault , - - --- ** mainContextPrepare - MainContextPrepareMethodInfo , - mainContextPrepare , - - --- ** mainContextPushThreadDefault - MainContextPushThreadDefaultMethodInfo , - mainContextPushThreadDefault , - - --- ** mainContextQuery - MainContextQueryMethodInfo , - mainContextQuery , - - --- ** mainContextRef - MainContextRefMethodInfo , - mainContextRef , - - --- ** mainContextRefThreadDefault - mainContextRefThreadDefault , - - --- ** mainContextRelease - MainContextReleaseMethodInfo , - mainContextRelease , - - --- ** mainContextRemovePoll - MainContextRemovePollMethodInfo , - mainContextRemovePoll , - - --- ** mainContextUnref - MainContextUnrefMethodInfo , - mainContextUnref , - - --- ** mainContextWait - MainContextWaitMethodInfo , - mainContextWait , - - --- ** mainContextWakeup - MainContextWakeupMethodInfo , - mainContextWakeup , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.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 - - -type instance AttributeList MainContext = MainContextAttributeList -type MainContextAttributeList = ('[ ] :: [(Symbol, *)]) - --- method MainContext::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_acquire" g_main_context_acquire :: - Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" - IO CInt - - -mainContextAcquire :: - (MonadIO m) => - MainContext -- _obj - -> m Bool -- result -mainContextAcquire _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_main_context_acquire _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MainContextAcquireMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo MainContextAcquireMethodInfo MainContext signature where - overloadedMethod _ = mainContextAcquire - --- method MainContext::add_poll --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_add_poll" g_main_context_add_poll :: - Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" - Ptr PollFD -> -- fd : TInterface "GLib" "PollFD" - Int32 -> -- priority : TBasicType TInt - IO () - - -mainContextAddPoll :: - (MonadIO m) => - MainContext -- _obj - -> PollFD -- fd - -> Int32 -- priority - -> m () -- result -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 () - -data MainContextAddPollMethodInfo -instance (signature ~ (PollFD -> Int32 -> m ()), MonadIO m) => MethodInfo MainContextAddPollMethodInfo MainContext signature where - overloadedMethod _ = mainContextAddPoll - --- method MainContext::check --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fds", argType = TCArray False (-1) 3 (TInterface "GLib" "PollFD"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_fds", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_fds", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TBasicType TInt) --- 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 TInt - Ptr PollFD -> -- fds : TCArray False (-1) 3 (TInterface "GLib" "PollFD") - Int32 -> -- n_fds : TBasicType TInt - IO Int32 - - -mainContextCheck :: - (MonadIO m) => - MainContext -- _obj - -> Int32 -- maxPriority - -> [PollFD] -- fds - -> m Int32 -- result -mainContextCheck _obj maxPriority fds = liftIO $ do - let nFds = fromIntegral $ length fds - let _obj' = unsafeManagedPtrGetPtr _obj - let fds' = map unsafeManagedPtrGetPtr fds - fds'' <- packBlockArray 8 fds' - result <- g_main_context_check _obj' maxPriority fds'' nFds - touchManagedPtr _obj - mapM_ touchManagedPtr fds - freeMem fds'' - return result - -data MainContextCheckMethodInfo -instance (signature ~ (Int32 -> [PollFD] -> m Int32), MonadIO m) => MethodInfo MainContextCheckMethodInfo MainContext signature where - overloadedMethod _ = mainContextCheck - --- method MainContext::dispatch --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -mainContextDispatch _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_main_context_dispatch _obj' - touchManagedPtr _obj - return () - -data MainContextDispatchMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo MainContextDispatchMethodInfo MainContext signature where - overloadedMethod _ = mainContextDispatch - --- method MainContext::find_source_by_funcs_user_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "funcs", argType = TInterface "GLib" "SourceFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TPtr - IO (Ptr Source) - - -mainContextFindSourceByFuncsUserData :: - (MonadIO m) => - MainContext -- _obj - -> SourceFuncs -- funcs - -> Ptr () -- userData - -> m Source -- result -mainContextFindSourceByFuncsUserData _obj funcs userData = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let funcs' = unsafeManagedPtrGetPtr funcs - result <- g_main_context_find_source_by_funcs_user_data _obj' funcs' userData - checkUnexpectedReturnNULL "g_main_context_find_source_by_funcs_user_data" result - result' <- (newBoxed Source) result - touchManagedPtr _obj - touchManagedPtr funcs - return result' - -data MainContextFindSourceByFuncsUserDataMethodInfo -instance (signature ~ (SourceFuncs -> Ptr () -> m Source), MonadIO m) => MethodInfo MainContextFindSourceByFuncsUserDataMethodInfo MainContext signature where - overloadedMethod _ = mainContextFindSourceByFuncsUserData - --- method MainContext::find_source_by_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "Source") --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_find_source_by_id" g_main_context_find_source_by_id :: - Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" - Word32 -> -- source_id : TBasicType TUInt - IO (Ptr Source) - - -mainContextFindSourceById :: - (MonadIO m) => - MainContext -- _obj - -> Word32 -- sourceId - -> m Source -- result -mainContextFindSourceById _obj sourceId = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_main_context_find_source_by_id _obj' sourceId - checkUnexpectedReturnNULL "g_main_context_find_source_by_id" result - result' <- (newBoxed Source) result - touchManagedPtr _obj - return result' - -data MainContextFindSourceByIdMethodInfo -instance (signature ~ (Word32 -> m Source), MonadIO m) => MethodInfo MainContextFindSourceByIdMethodInfo MainContext signature where - overloadedMethod _ = mainContextFindSourceById - --- method MainContext::find_source_by_user_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TPtr - IO (Ptr Source) - - -mainContextFindSourceByUserData :: - (MonadIO m) => - MainContext -- _obj - -> Ptr () -- userData - -> m Source -- result -mainContextFindSourceByUserData _obj userData = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_main_context_find_source_by_user_data _obj' userData - checkUnexpectedReturnNULL "g_main_context_find_source_by_user_data" result - result' <- (newBoxed Source) result - touchManagedPtr _obj - return result' - -data MainContextFindSourceByUserDataMethodInfo -instance (signature ~ (Ptr () -> m Source), MonadIO m) => MethodInfo MainContextFindSourceByUserDataMethodInfo MainContext signature where - overloadedMethod _ = mainContextFindSourceByUserData - --- method MainContext::invoke_full --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_invoke_full" g_main_context_invoke_full :: - Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" - Int32 -> -- priority : TBasicType TInt - FunPtr SourceFuncC -> -- function : TInterface "GLib" "SourceFunc" - Ptr () -> -- data : TBasicType TPtr - FunPtr DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO () - - -mainContextInvokeFull :: - (MonadIO m) => - MainContext -- _obj - -> Int32 -- priority - -> SourceFunc -- function - -> m () -- result -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 () - -data MainContextInvokeFullMethodInfo -instance (signature ~ (Int32 -> SourceFunc -> m ()), MonadIO m) => MethodInfo MainContextInvokeFullMethodInfo MainContext signature where - overloadedMethod _ = mainContextInvokeFull - --- method MainContext::is_owner --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_is_owner" g_main_context_is_owner :: - Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" - IO CInt - - -mainContextIsOwner :: - (MonadIO m) => - MainContext -- _obj - -> m Bool -- result -mainContextIsOwner _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_main_context_is_owner _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MainContextIsOwnerMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo MainContextIsOwnerMethodInfo MainContext signature where - overloadedMethod _ = mainContextIsOwner - --- method MainContext::iteration --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "may_block", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- mayBlock - -> m Bool -- result -mainContextIteration _obj mayBlock = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let mayBlock' = (fromIntegral . fromEnum) mayBlock - result <- g_main_context_iteration _obj' mayBlock' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MainContextIterationMethodInfo -instance (signature ~ (Bool -> m Bool), MonadIO m) => MethodInfo MainContextIterationMethodInfo MainContext signature where - overloadedMethod _ = mainContextIteration - --- method MainContext::pending --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_pending" g_main_context_pending :: - Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" - IO CInt - - -mainContextPending :: - (MonadIO m) => - MainContext -- _obj - -> m Bool -- result -mainContextPending _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_main_context_pending _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MainContextPendingMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo MainContextPendingMethodInfo MainContext signature where - overloadedMethod _ = mainContextPending - --- method MainContext::pop_thread_default --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -mainContextPopThreadDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_main_context_pop_thread_default _obj' - touchManagedPtr _obj - return () - -data MainContextPopThreadDefaultMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo MainContextPopThreadDefaultMethodInfo MainContext signature where - overloadedMethod _ = mainContextPopThreadDefault - --- method MainContext::prepare --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TInt - IO CInt - - -mainContextPrepare :: - (MonadIO m) => - MainContext -- _obj - -> Int32 -- priority - -> m Bool -- result -mainContextPrepare _obj priority = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_main_context_prepare _obj' priority - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MainContextPrepareMethodInfo -instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo MainContextPrepareMethodInfo MainContext signature where - overloadedMethod _ = mainContextPrepare - --- method MainContext::push_thread_default --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -mainContextPushThreadDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_main_context_push_thread_default _obj' - touchManagedPtr _obj - return () - -data MainContextPushThreadDefaultMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo MainContextPushThreadDefaultMethodInfo MainContext signature where - overloadedMethod _ = mainContextPushThreadDefault - --- method MainContext::query --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "fds", argType = TCArray False (-1) 4 (TInterface "GLib" "PollFD"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "n_fds", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "n_fds", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TBasicType TInt) --- 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 TInt - Ptr Int32 -> -- timeout_ : TBasicType TInt - Ptr PollFD -> -- fds : TCArray False (-1) 4 (TInterface "GLib" "PollFD") - Int32 -> -- n_fds : TBasicType TInt - IO Int32 - - -mainContextQuery :: - (MonadIO m) => - MainContext -- _obj - -> Int32 -- maxPriority - -> [PollFD] -- fds - -> m (Int32,Int32,[PollFD]) -- result -mainContextQuery _obj maxPriority fds = liftIO $ do - let nFds = fromIntegral $ length fds - let _obj' = unsafeManagedPtrGetPtr _obj - timeout_ <- allocMem :: IO (Ptr Int32) - let fds' = map unsafeManagedPtrGetPtr fds - fds'' <- packBlockArray 8 fds' - result <- g_main_context_query _obj' maxPriority timeout_ fds'' nFds - timeout_' <- peek timeout_ - fds''' <- (unpackBoxedArrayWithLength 8 nFds) fds'' - fds'''' <- mapM (newBoxed PollFD) fds''' - touchManagedPtr _obj - mapM_ touchManagedPtr fds - freeMem timeout_ - freeMem fds'' - return (result, timeout_', fds'''') - -data MainContextQueryMethodInfo -instance (signature ~ (Int32 -> [PollFD] -> m (Int32,Int32,[PollFD])), MonadIO m) => MethodInfo MainContextQueryMethodInfo MainContext signature where - overloadedMethod _ = mainContextQuery - --- method MainContext::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "MainContext") --- throws : False --- Skip return : False - -foreign import ccall "g_main_context_ref" g_main_context_ref :: - Ptr MainContext -> -- _obj : TInterface "GLib" "MainContext" - IO (Ptr MainContext) - - -mainContextRef :: - (MonadIO m) => - MainContext -- _obj - -> m MainContext -- result -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' - -data MainContextRefMethodInfo -instance (signature ~ (m MainContext), MonadIO m) => MethodInfo MainContextRefMethodInfo MainContext signature where - overloadedMethod _ = mainContextRef - --- method MainContext::release --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -mainContextRelease _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_main_context_release _obj' - touchManagedPtr _obj - return () - -data MainContextReleaseMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo MainContextReleaseMethodInfo MainContext signature where - overloadedMethod _ = mainContextRelease - --- method MainContext::remove_poll --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data MainContextRemovePollMethodInfo -instance (signature ~ (PollFD -> m ()), MonadIO m) => MethodInfo MainContextRemovePollMethodInfo MainContext signature where - overloadedMethod _ = mainContextRemovePoll - --- method MainContext::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -mainContextUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_main_context_unref _obj' - touchManagedPtr _obj - return () - -data MainContextUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo MainContextUnrefMethodInfo MainContext signature where - overloadedMethod _ = mainContextUnref - --- method MainContext::wait --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cond", argType = TInterface "GLib" "Cond", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mutex", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data MainContextWaitMethodInfo -instance (signature ~ (Cond -> Mutex -> m Bool), MonadIO m) => MethodInfo MainContextWaitMethodInfo MainContext signature where - overloadedMethod _ = mainContextWait - --- method MainContext::wakeup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -mainContextWakeup _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_main_context_wakeup _obj' - touchManagedPtr _obj - return () - -data MainContextWakeupMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo MainContextWakeupMethodInfo MainContext signature where - overloadedMethod _ = mainContextWakeup - --- method MainContext::default --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -mainContextDefault = liftIO $ do - result <- g_main_context_default - checkUnexpectedReturnNULL "g_main_context_default" result - result' <- (newBoxed MainContext) result - return result' - --- method MainContext::get_thread_default --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -mainContextGetThreadDefault = liftIO $ do - result <- g_main_context_get_thread_default - checkUnexpectedReturnNULL "g_main_context_get_thread_default" result - result' <- (newBoxed MainContext) result - return result' - --- method MainContext::ref_thread_default --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -mainContextRefThreadDefault = liftIO $ do - result <- g_main_context_ref_thread_default - checkUnexpectedReturnNULL "g_main_context_ref_thread_default" result - result' <- (wrapBoxed MainContext) result - return result' - -type family ResolveMainContextMethod (t :: Symbol) (o :: *) :: * where - ResolveMainContextMethod "acquire" o = MainContextAcquireMethodInfo - ResolveMainContextMethod "addPoll" o = MainContextAddPollMethodInfo - ResolveMainContextMethod "check" o = MainContextCheckMethodInfo - ResolveMainContextMethod "dispatch" o = MainContextDispatchMethodInfo - ResolveMainContextMethod "findSourceByFuncsUserData" o = MainContextFindSourceByFuncsUserDataMethodInfo - ResolveMainContextMethod "findSourceById" o = MainContextFindSourceByIdMethodInfo - ResolveMainContextMethod "findSourceByUserData" o = MainContextFindSourceByUserDataMethodInfo - ResolveMainContextMethod "invokeFull" o = MainContextInvokeFullMethodInfo - ResolveMainContextMethod "isOwner" o = MainContextIsOwnerMethodInfo - ResolveMainContextMethod "iteration" o = MainContextIterationMethodInfo - ResolveMainContextMethod "pending" o = MainContextPendingMethodInfo - ResolveMainContextMethod "popThreadDefault" o = MainContextPopThreadDefaultMethodInfo - ResolveMainContextMethod "prepare" o = MainContextPrepareMethodInfo - ResolveMainContextMethod "pushThreadDefault" o = MainContextPushThreadDefaultMethodInfo - ResolveMainContextMethod "query" o = MainContextQueryMethodInfo - ResolveMainContextMethod "ref" o = MainContextRefMethodInfo - ResolveMainContextMethod "release" o = MainContextReleaseMethodInfo - ResolveMainContextMethod "removePoll" o = MainContextRemovePollMethodInfo - ResolveMainContextMethod "unref" o = MainContextUnrefMethodInfo - ResolveMainContextMethod "wait" o = MainContextWaitMethodInfo - ResolveMainContextMethod "wakeup" o = MainContextWakeupMethodInfo - ResolveMainContextMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMainContextMethod t MainContext, MethodInfo info MainContext p) => IsLabelProxy t (MainContext -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMainContextMethod t MainContext, MethodInfo info MainContext p) => IsLabel t (MainContext -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,32 +0,0 @@ -module GI.GLib.Structs.MainContext where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype MainContext = MainContext (ForeignPtr MainContext) -instance BoxedObject MainContext where -data MainContextAcquireMethodInfo -data MainContextAddPollMethodInfo -data MainContextCheckMethodInfo -data MainContextDispatchMethodInfo -data MainContextFindSourceByFuncsUserDataMethodInfo -data MainContextFindSourceByIdMethodInfo -data MainContextFindSourceByUserDataMethodInfo -data MainContextInvokeFullMethodInfo -data MainContextIsOwnerMethodInfo -data MainContextIterationMethodInfo -data MainContextPendingMethodInfo -data MainContextPopThreadDefaultMethodInfo -data MainContextPrepareMethodInfo -data MainContextPushThreadDefaultMethodInfo -data MainContextQueryMethodInfo -data MainContextRefMethodInfo -data MainContextReleaseMethodInfo -data MainContextRemovePollMethodInfo -data MainContextUnrefMethodInfo -data MainContextWaitMethodInfo -data MainContextWakeupMethodInfo 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,299 +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 - MainLoopGetContextMethodInfo , - mainLoopGetContext , - - --- ** mainLoopIsRunning - MainLoopIsRunningMethodInfo , - mainLoopIsRunning , - - --- ** mainLoopNew - mainLoopNew , - - --- ** mainLoopQuit - MainLoopQuitMethodInfo , - mainLoopQuit , - - --- ** mainLoopRef - MainLoopRefMethodInfo , - mainLoopRef , - - --- ** mainLoopRun - MainLoopRunMethodInfo , - mainLoopRun , - - --- ** mainLoopUnref - MainLoopUnrefMethodInfo , - mainLoopUnref , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.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 - - -type instance AttributeList MainLoop = MainLoopAttributeList -type MainLoopAttributeList = ('[ ] :: [(Symbol, *)]) - --- method MainLoop::new --- method type : Constructor --- Args : [Arg {argCName = "context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_running", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- isRunning - -> m MainLoop -- result -mainLoopNew context isRunning = liftIO $ do - maybeContext <- case context of - Nothing -> return nullPtr - Just jContext -> do - let jContext' = unsafeManagedPtrGetPtr jContext - return jContext' - let isRunning' = (fromIntegral . fromEnum) isRunning - result <- g_main_loop_new maybeContext isRunning' - checkUnexpectedReturnNULL "g_main_loop_new" result - result' <- (wrapBoxed MainLoop) result - whenJust context touchManagedPtr - return result' - --- method MainLoop::get_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "MainContext") --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data MainLoopGetContextMethodInfo -instance (signature ~ (m MainContext), MonadIO m) => MethodInfo MainLoopGetContextMethodInfo MainLoop signature where - overloadedMethod _ = mainLoopGetContext - --- method MainLoop::is_running --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_main_loop_is_running" g_main_loop_is_running :: - Ptr MainLoop -> -- _obj : TInterface "GLib" "MainLoop" - IO CInt - - -mainLoopIsRunning :: - (MonadIO m) => - MainLoop -- _obj - -> m Bool -- result -mainLoopIsRunning _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_main_loop_is_running _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MainLoopIsRunningMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo MainLoopIsRunningMethodInfo MainLoop signature where - overloadedMethod _ = mainLoopIsRunning - --- method MainLoop::quit --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -mainLoopQuit _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_main_loop_quit _obj' - touchManagedPtr _obj - return () - -data MainLoopQuitMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo MainLoopQuitMethodInfo MainLoop signature where - overloadedMethod _ = mainLoopQuit - --- method MainLoop::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data MainLoopRefMethodInfo -instance (signature ~ (m MainLoop), MonadIO m) => MethodInfo MainLoopRefMethodInfo MainLoop signature where - overloadedMethod _ = mainLoopRef - --- method MainLoop::run --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -mainLoopRun _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_main_loop_run _obj' - touchManagedPtr _obj - return () - -data MainLoopRunMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo MainLoopRunMethodInfo MainLoop signature where - overloadedMethod _ = mainLoopRun - --- method MainLoop::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MainLoop", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -mainLoopUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_main_loop_unref _obj' - touchManagedPtr _obj - return () - -data MainLoopUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo MainLoopUnrefMethodInfo MainLoop signature where - overloadedMethod _ = mainLoopUnref - -type family ResolveMainLoopMethod (t :: Symbol) (o :: *) :: * where - ResolveMainLoopMethod "isRunning" o = MainLoopIsRunningMethodInfo - ResolveMainLoopMethod "quit" o = MainLoopQuitMethodInfo - ResolveMainLoopMethod "ref" o = MainLoopRefMethodInfo - ResolveMainLoopMethod "run" o = MainLoopRunMethodInfo - ResolveMainLoopMethod "unref" o = MainLoopUnrefMethodInfo - ResolveMainLoopMethod "getContext" o = MainLoopGetContextMethodInfo - ResolveMainLoopMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMainLoopMethod t MainLoop, MethodInfo info MainLoop p) => IsLabelProxy t (MainLoop -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMainLoopMethod t MainLoop, MethodInfo info MainLoop p) => IsLabel t (MainLoop -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,17 +0,0 @@ -module GI.GLib.Structs.MainLoop where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype MainLoop = MainLoop (ForeignPtr MainLoop) -instance BoxedObject MainLoop where -data MainLoopGetContextMethodInfo -data MainLoopIsRunningMethodInfo -data MainLoopQuitMethodInfo -data MainLoopRefMethodInfo -data MainLoopRunMethodInfo -data MainLoopUnrefMethodInfo 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,338 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -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 - MappedFileFreeMethodInfo , - mappedFileFree , - - --- ** mappedFileGetBytes - MappedFileGetBytesMethodInfo , - mappedFileGetBytes , - - --- ** mappedFileGetContents - MappedFileGetContentsMethodInfo , - mappedFileGetContents , - - --- ** mappedFileGetLength - MappedFileGetLengthMethodInfo , - mappedFileGetLength , - - --- ** mappedFileNew - mappedFileNew , - - --- ** mappedFileNewFromFd - mappedFileNewFromFd , - - --- ** mappedFileRef - MappedFileRefMethodInfo , - mappedFileRef , - - --- ** mappedFileUnref - MappedFileUnrefMethodInfo , - mappedFileUnref , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.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 - - -type instance AttributeList MappedFile = MappedFileAttributeList -type MappedFileAttributeList = ('[ ] :: [(Symbol, *)]) - --- method MappedFile::new --- method type : Constructor --- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "writable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TInt - CInt -> -- writable : TBasicType TBoolean - Ptr (Ptr GError) -> -- error - IO (Ptr MappedFile) - - -mappedFileNewFromFd :: - (MonadIO m) => - Int32 -- fd - -> Bool -- writable - -> m MappedFile -- result -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 {argCName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -mappedFileFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_mapped_file_free _obj' - touchManagedPtr _obj - return () - -data MappedFileFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo MappedFileFreeMethodInfo MappedFile signature where - overloadedMethod _ = mappedFileFree - --- method MappedFile::get_bytes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "Bytes") --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data MappedFileGetBytesMethodInfo -instance (signature ~ (m Bytes), MonadIO m) => MethodInfo MappedFileGetBytesMethodInfo MappedFile signature where - overloadedMethod _ = mappedFileGetBytes - --- method MappedFile::get_contents --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data MappedFileGetContentsMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo MappedFileGetContentsMethodInfo MappedFile signature where - overloadedMethod _ = mappedFileGetContents - --- method MappedFile::get_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_mapped_file_get_length" g_mapped_file_get_length :: - Ptr MappedFile -> -- _obj : TInterface "GLib" "MappedFile" - IO Word64 - - -mappedFileGetLength :: - (MonadIO m) => - MappedFile -- _obj - -> m Word64 -- result -mappedFileGetLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_mapped_file_get_length _obj' - touchManagedPtr _obj - return result - -data MappedFileGetLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m) => MethodInfo MappedFileGetLengthMethodInfo MappedFile signature where - overloadedMethod _ = mappedFileGetLength - --- method MappedFile::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data MappedFileRefMethodInfo -instance (signature ~ (m MappedFile), MonadIO m) => MethodInfo MappedFileRefMethodInfo MappedFile signature where - overloadedMethod _ = mappedFileRef - --- method MappedFile::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MappedFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -mappedFileUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_mapped_file_unref _obj' - touchManagedPtr _obj - return () - -data MappedFileUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo MappedFileUnrefMethodInfo MappedFile signature where - overloadedMethod _ = mappedFileUnref - -type family ResolveMappedFileMethod (t :: Symbol) (o :: *) :: * where - ResolveMappedFileMethod "free" o = MappedFileFreeMethodInfo - ResolveMappedFileMethod "ref" o = MappedFileRefMethodInfo - ResolveMappedFileMethod "unref" o = MappedFileUnrefMethodInfo - ResolveMappedFileMethod "getBytes" o = MappedFileGetBytesMethodInfo - ResolveMappedFileMethod "getContents" o = MappedFileGetContentsMethodInfo - ResolveMappedFileMethod "getLength" o = MappedFileGetLengthMethodInfo - ResolveMappedFileMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMappedFileMethod t MappedFile, MethodInfo info MappedFile p) => IsLabelProxy t (MappedFile -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMappedFileMethod t MappedFile, MethodInfo info MappedFile p) => IsLabel t (MappedFile -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,17 +0,0 @@ -module GI.GLib.Structs.MappedFile where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype MappedFile = MappedFile (ForeignPtr MappedFile) -instance BoxedObject MappedFile where -data MappedFileFreeMethodInfo -data MappedFileGetBytesMethodInfo -data MappedFileGetContentsMethodInfo -data MappedFileGetLengthMethodInfo -data MappedFileRefMethodInfo -data MappedFileUnrefMethodInfo 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,359 +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 - MarkupParseContextEndParseMethodInfo , - markupParseContextEndParse , - - --- ** markupParseContextFree - MarkupParseContextFreeMethodInfo , - markupParseContextFree , - - --- ** markupParseContextGetElement - MarkupParseContextGetElementMethodInfo , - markupParseContextGetElement , - - --- ** markupParseContextNew - markupParseContextNew , - - --- ** markupParseContextParse - MarkupParseContextParseMethodInfo , - markupParseContextParse , - - --- ** markupParseContextPush - MarkupParseContextPushMethodInfo , - markupParseContextPush , - - --- ** markupParseContextRef - MarkupParseContextRefMethodInfo , - markupParseContextRef , - - --- ** markupParseContextUnref - MarkupParseContextUnrefMethodInfo , - markupParseContextUnref , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.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 - - -type instance AttributeList MarkupParseContext = MarkupParseContextAttributeList -type MarkupParseContextAttributeList = ('[ ] :: [(Symbol, *)]) - --- method MarkupParseContext::new --- method type : Constructor --- Args : [Arg {argCName = "parser", argType = TInterface "GLib" "MarkupParser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "GLib" "MarkupParseFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TPtr - FunPtr DestroyNotifyC -> -- user_data_dnotify : TInterface "GLib" "DestroyNotify" - IO (Ptr MarkupParseContext) - - -markupParseContextNew :: - (MonadIO m) => - MarkupParser -- parser - -> [MarkupParseFlags] -- flags - -> Ptr () -- userData - -> DestroyNotify -- userDataDnotify - -> m MarkupParseContext -- result -markupParseContextNew parser flags userData userDataDnotify = liftIO $ do - let parser' = unsafeManagedPtrGetPtr parser - let flags' = gflagsToWord flags - ptruserDataDnotify <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC)) - userDataDnotify' <- mkDestroyNotify (destroyNotifyWrapper (Just ptruserDataDnotify) userDataDnotify) - poke ptruserDataDnotify userDataDnotify' - result <- g_markup_parse_context_new parser' flags' userData userDataDnotify' - checkUnexpectedReturnNULL "g_markup_parse_context_new" result - result' <- (wrapBoxed MarkupParseContext) result - touchManagedPtr parser - return result' - --- method MarkupParseContext::end_parse --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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 () -- result -markupParseContextEndParse _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - onException (do - _ <- propagateGError $ g_markup_parse_context_end_parse _obj' - touchManagedPtr _obj - return () - ) (do - return () - ) - -data MarkupParseContextEndParseMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo MarkupParseContextEndParseMethodInfo MarkupParseContext signature where - overloadedMethod _ = markupParseContextEndParse - --- method MarkupParseContext::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -markupParseContextFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_markup_parse_context_free _obj' - touchManagedPtr _obj - return () - -data MarkupParseContextFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo MarkupParseContextFreeMethodInfo MarkupParseContext signature where - overloadedMethod _ = markupParseContextFree - --- method MarkupParseContext::get_element --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data MarkupParseContextGetElementMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo MarkupParseContextGetElementMethodInfo MarkupParseContext signature where - overloadedMethod _ = markupParseContextGetElement - --- method MarkupParseContext::parse --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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 -- textLen - -> m () -- result -markupParseContextParse _obj text textLen = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - text' <- textToCString text - onException (do - _ <- propagateGError $ g_markup_parse_context_parse _obj' text' textLen - touchManagedPtr _obj - freeMem text' - return () - ) (do - freeMem text' - ) - -data MarkupParseContextParseMethodInfo -instance (signature ~ (T.Text -> Int64 -> m ()), MonadIO m) => MethodInfo MarkupParseContextParseMethodInfo MarkupParseContext signature where - overloadedMethod _ = markupParseContextParse - --- method MarkupParseContext::push --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parser", argType = TInterface "GLib" "MarkupParser", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr - IO () - - -markupParseContextPush :: - (MonadIO m) => - MarkupParseContext -- _obj - -> MarkupParser -- parser - -> Ptr () -- userData - -> m () -- result -markupParseContextPush _obj parser userData = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let parser' = unsafeManagedPtrGetPtr parser - g_markup_parse_context_push _obj' parser' userData - touchManagedPtr _obj - touchManagedPtr parser - return () - -data MarkupParseContextPushMethodInfo -instance (signature ~ (MarkupParser -> Ptr () -> m ()), MonadIO m) => MethodInfo MarkupParseContextPushMethodInfo MarkupParseContext signature where - overloadedMethod _ = markupParseContextPush - --- method MarkupParseContext::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data MarkupParseContextRefMethodInfo -instance (signature ~ (m MarkupParseContext), MonadIO m) => MethodInfo MarkupParseContextRefMethodInfo MarkupParseContext signature where - overloadedMethod _ = markupParseContextRef - --- method MarkupParseContext::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -markupParseContextUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_markup_parse_context_unref _obj' - touchManagedPtr _obj - return () - -data MarkupParseContextUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo MarkupParseContextUnrefMethodInfo MarkupParseContext signature where - overloadedMethod _ = markupParseContextUnref - -type family ResolveMarkupParseContextMethod (t :: Symbol) (o :: *) :: * where - ResolveMarkupParseContextMethod "endParse" o = MarkupParseContextEndParseMethodInfo - ResolveMarkupParseContextMethod "free" o = MarkupParseContextFreeMethodInfo - ResolveMarkupParseContextMethod "parse" o = MarkupParseContextParseMethodInfo - ResolveMarkupParseContextMethod "push" o = MarkupParseContextPushMethodInfo - ResolveMarkupParseContextMethod "ref" o = MarkupParseContextRefMethodInfo - ResolveMarkupParseContextMethod "unref" o = MarkupParseContextUnrefMethodInfo - ResolveMarkupParseContextMethod "getElement" o = MarkupParseContextGetElementMethodInfo - ResolveMarkupParseContextMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMarkupParseContextMethod t MarkupParseContext, MethodInfo info MarkupParseContext p) => IsLabelProxy t (MarkupParseContext -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMarkupParseContextMethod t MarkupParseContext, MethodInfo info MarkupParseContext p) => IsLabel t (MarkupParseContext -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,18 +0,0 @@ -module GI.GLib.Structs.MarkupParseContext where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype MarkupParseContext = MarkupParseContext (ForeignPtr MarkupParseContext) -instance BoxedObject MarkupParseContext where -data MarkupParseContextEndParseMethodInfo -data MarkupParseContextFreeMethodInfo -data MarkupParseContextGetElementMethodInfo -data MarkupParseContextParseMethodInfo -data MarkupParseContextPushMethodInfo -data MarkupParseContextRefMethodInfo -data MarkupParseContextUnrefMethodInfo 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,78 +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(..) , - newZeroMarkupParser , - noMarkupParser , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype MarkupParser = MarkupParser (ForeignPtr MarkupParser) -instance WrappedPtr MarkupParser where - wrappedPtrCalloc = callocBytes 40 - wrappedPtrCopy = copyPtr 40 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `MarkupParser` struct initialized to zero. -newZeroMarkupParser :: MonadIO m => m MarkupParser -newZeroMarkupParser = liftIO $ wrappedPtrCalloc >>= wrapPtr MarkupParser - -instance tag ~ 'AttrSet => Constructible MarkupParser tag where - new _ attrs = do - o <- newZeroMarkupParser - GI.Attributes.set o attrs - return o - - -noMarkupParser :: Maybe MarkupParser -noMarkupParser = Nothing - --- XXX Skipped attribute for "MarkupParser:start_element" :: Not implemented: "Wrapping foreign callbacks is not supported yet" --- XXX Skipped attribute for "MarkupParser:end_element" :: Not implemented: "Wrapping foreign callbacks is not supported yet" --- XXX Skipped attribute for "MarkupParser:text" :: Not implemented: "Wrapping foreign callbacks is not supported yet" --- XXX Skipped attribute for "MarkupParser:passthrough" :: Not implemented: "Wrapping foreign callbacks is not supported yet" --- XXX Skipped attribute for "MarkupParser:error" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - -type instance AttributeList MarkupParser = MarkupParserAttributeList -type MarkupParserAttributeList = ('[ ] :: [(Symbol, *)]) - -type family ResolveMarkupParserMethod (t :: Symbol) (o :: *) :: * where - ResolveMarkupParserMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMarkupParserMethod t MarkupParser, MethodInfo info MarkupParser p) => IsLabelProxy t (MarkupParser -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMarkupParserMethod t MarkupParser, MethodInfo info MarkupParser p) => IsLabel t (MarkupParser -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,11 +0,0 @@ -module GI.GLib.Structs.MarkupParser where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype MarkupParser = MarkupParser (ForeignPtr MarkupParser) -instance WrappedPtr MarkupParser where 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,620 +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 - MatchInfoExpandReferencesMethodInfo , - matchInfoExpandReferences , - - --- ** matchInfoFetch - MatchInfoFetchMethodInfo , - matchInfoFetch , - - --- ** matchInfoFetchAll - MatchInfoFetchAllMethodInfo , - matchInfoFetchAll , - - --- ** matchInfoFetchNamed - MatchInfoFetchNamedMethodInfo , - matchInfoFetchNamed , - - --- ** matchInfoFetchNamedPos - MatchInfoFetchNamedPosMethodInfo , - matchInfoFetchNamedPos , - - --- ** matchInfoFetchPos - MatchInfoFetchPosMethodInfo , - matchInfoFetchPos , - - --- ** matchInfoFree - MatchInfoFreeMethodInfo , - matchInfoFree , - - --- ** matchInfoGetMatchCount - MatchInfoGetMatchCountMethodInfo , - matchInfoGetMatchCount , - - --- ** matchInfoGetRegex - MatchInfoGetRegexMethodInfo , - matchInfoGetRegex , - - --- ** matchInfoGetString - MatchInfoGetStringMethodInfo , - matchInfoGetString , - - --- ** matchInfoIsPartialMatch - MatchInfoIsPartialMatchMethodInfo , - matchInfoIsPartialMatch , - - --- ** matchInfoMatches - MatchInfoMatchesMethodInfo , - matchInfoMatches , - - --- ** matchInfoNext - MatchInfoNextMethodInfo , - matchInfoNext , - - --- ** matchInfoRef - MatchInfoRefMethodInfo , - matchInfoRef , - - --- ** matchInfoUnref - MatchInfoUnrefMethodInfo , - matchInfoUnref , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.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 - - -type instance AttributeList MatchInfo = MatchInfoAttributeList -type MatchInfoAttributeList = ('[ ] :: [(Symbol, *)]) - --- method MatchInfo::expand_references --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string_to_expand", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : True --- Skip return : False - -foreign import ccall "g_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 -- stringToExpand - -> m T.Text -- result -matchInfoExpandReferences _obj stringToExpand = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - stringToExpand' <- textToCString stringToExpand - onException (do - result <- propagateGError $ g_match_info_expand_references _obj' stringToExpand' - checkUnexpectedReturnNULL "g_match_info_expand_references" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - freeMem stringToExpand' - return result' - ) (do - freeMem stringToExpand' - ) - -data MatchInfoExpandReferencesMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m) => MethodInfo MatchInfoExpandReferencesMethodInfo MatchInfo signature where - overloadedMethod _ = matchInfoExpandReferences - --- method MatchInfo::fetch --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_match_info_fetch" g_match_info_fetch :: - Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" - Int32 -> -- match_num : TBasicType TInt - IO CString - - -matchInfoFetch :: - (MonadIO m) => - MatchInfo -- _obj - -> Int32 -- matchNum - -> m T.Text -- result -matchInfoFetch _obj matchNum = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_match_info_fetch _obj' matchNum - checkUnexpectedReturnNULL "g_match_info_fetch" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data MatchInfoFetchMethodInfo -instance (signature ~ (Int32 -> m T.Text), MonadIO m) => MethodInfo MatchInfoFetchMethodInfo MatchInfo signature where - overloadedMethod _ = matchInfoFetch - --- method MatchInfo::fetch_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "g_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] -- result -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' - -data MatchInfoFetchAllMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m) => MethodInfo MatchInfoFetchAllMethodInfo MatchInfo signature where - overloadedMethod _ = matchInfoFetchAll - --- method MatchInfo::fetch_named --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data MatchInfoFetchNamedMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m) => MethodInfo MatchInfoFetchNamedMethodInfo MatchInfo signature where - overloadedMethod _ = matchInfoFetchNamed - --- method MatchInfo::fetch_named_pos --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end_pos", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 TInt - Ptr Int32 -> -- end_pos : TBasicType TInt - IO CInt - - -matchInfoFetchNamedPos :: - (MonadIO m) => - MatchInfo -- _obj - -> T.Text -- name - -> m (Bool,Int32,Int32) -- result -matchInfoFetchNamedPos _obj name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - startPos <- allocMem :: IO (Ptr Int32) - endPos <- allocMem :: IO (Ptr Int32) - result <- g_match_info_fetch_named_pos _obj' name' startPos endPos - let result' = (/= 0) result - startPos' <- peek startPos - endPos' <- peek endPos - touchManagedPtr _obj - freeMem name' - freeMem startPos - freeMem endPos - return (result', startPos', endPos') - -data MatchInfoFetchNamedPosMethodInfo -instance (signature ~ (T.Text -> m (Bool,Int32,Int32)), MonadIO m) => MethodInfo MatchInfoFetchNamedPosMethodInfo MatchInfo signature where - overloadedMethod _ = matchInfoFetchNamedPos - --- method MatchInfo::fetch_pos --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_pos", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end_pos", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_match_info_fetch_pos" g_match_info_fetch_pos :: - Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" - Int32 -> -- match_num : TBasicType TInt - Ptr Int32 -> -- start_pos : TBasicType TInt - Ptr Int32 -> -- end_pos : TBasicType TInt - IO CInt - - -matchInfoFetchPos :: - (MonadIO m) => - MatchInfo -- _obj - -> Int32 -- matchNum - -> m (Bool,Int32,Int32) -- result -matchInfoFetchPos _obj matchNum = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - startPos <- allocMem :: IO (Ptr Int32) - endPos <- allocMem :: IO (Ptr Int32) - result <- g_match_info_fetch_pos _obj' matchNum startPos endPos - let result' = (/= 0) result - startPos' <- peek startPos - endPos' <- peek endPos - touchManagedPtr _obj - freeMem startPos - freeMem endPos - return (result', startPos', endPos') - -data MatchInfoFetchPosMethodInfo -instance (signature ~ (Int32 -> m (Bool,Int32,Int32)), MonadIO m) => MethodInfo MatchInfoFetchPosMethodInfo MatchInfo signature where - overloadedMethod _ = matchInfoFetchPos - --- method MatchInfo::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -matchInfoFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_match_info_free _obj' - touchManagedPtr _obj - return () - -data MatchInfoFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo MatchInfoFreeMethodInfo MatchInfo signature where - overloadedMethod _ = matchInfoFree - --- method MatchInfo::get_match_count --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -matchInfoGetMatchCount _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_match_info_get_match_count _obj' - touchManagedPtr _obj - return result - -data MatchInfoGetMatchCountMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo MatchInfoGetMatchCountMethodInfo MatchInfo signature where - overloadedMethod _ = matchInfoGetMatchCount - --- method MatchInfo::get_regex --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data MatchInfoGetRegexMethodInfo -instance (signature ~ (m Regex), MonadIO m) => MethodInfo MatchInfoGetRegexMethodInfo MatchInfo signature where - overloadedMethod _ = matchInfoGetRegex - --- method MatchInfo::get_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data MatchInfoGetStringMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo MatchInfoGetStringMethodInfo MatchInfo signature where - overloadedMethod _ = matchInfoGetString - --- method MatchInfo::is_partial_match --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -matchInfoIsPartialMatch _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_match_info_is_partial_match _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MatchInfoIsPartialMatchMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo MatchInfoIsPartialMatchMethodInfo MatchInfo signature where - overloadedMethod _ = matchInfoIsPartialMatch - --- method MatchInfo::matches --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_match_info_matches" g_match_info_matches :: - Ptr MatchInfo -> -- _obj : TInterface "GLib" "MatchInfo" - IO CInt - - -matchInfoMatches :: - (MonadIO m) => - MatchInfo -- _obj - -> m Bool -- result -matchInfoMatches _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_match_info_matches _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MatchInfoMatchesMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo MatchInfoMatchesMethodInfo MatchInfo signature where - overloadedMethod _ = matchInfoMatches - --- method MatchInfo::next --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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 () -- result -matchInfoNext _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - onException (do - _ <- propagateGError $ g_match_info_next _obj' - touchManagedPtr _obj - return () - ) (do - return () - ) - -data MatchInfoNextMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo MatchInfoNextMethodInfo MatchInfo signature where - overloadedMethod _ = matchInfoNext - --- method MatchInfo::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data MatchInfoRefMethodInfo -instance (signature ~ (m MatchInfo), MonadIO m) => MethodInfo MatchInfoRefMethodInfo MatchInfo signature where - overloadedMethod _ = matchInfoRef - --- method MatchInfo::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "MatchInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -matchInfoUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_match_info_unref _obj' - touchManagedPtr _obj - return () - -data MatchInfoUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo MatchInfoUnrefMethodInfo MatchInfo signature where - overloadedMethod _ = matchInfoUnref - -type family ResolveMatchInfoMethod (t :: Symbol) (o :: *) :: * where - ResolveMatchInfoMethod "expandReferences" o = MatchInfoExpandReferencesMethodInfo - ResolveMatchInfoMethod "fetch" o = MatchInfoFetchMethodInfo - ResolveMatchInfoMethod "fetchAll" o = MatchInfoFetchAllMethodInfo - ResolveMatchInfoMethod "fetchNamed" o = MatchInfoFetchNamedMethodInfo - ResolveMatchInfoMethod "fetchNamedPos" o = MatchInfoFetchNamedPosMethodInfo - ResolveMatchInfoMethod "fetchPos" o = MatchInfoFetchPosMethodInfo - ResolveMatchInfoMethod "free" o = MatchInfoFreeMethodInfo - ResolveMatchInfoMethod "isPartialMatch" o = MatchInfoIsPartialMatchMethodInfo - ResolveMatchInfoMethod "matches" o = MatchInfoMatchesMethodInfo - ResolveMatchInfoMethod "next" o = MatchInfoNextMethodInfo - ResolveMatchInfoMethod "ref" o = MatchInfoRefMethodInfo - ResolveMatchInfoMethod "unref" o = MatchInfoUnrefMethodInfo - ResolveMatchInfoMethod "getMatchCount" o = MatchInfoGetMatchCountMethodInfo - ResolveMatchInfoMethod "getRegex" o = MatchInfoGetRegexMethodInfo - ResolveMatchInfoMethod "getString" o = MatchInfoGetStringMethodInfo - ResolveMatchInfoMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMatchInfoMethod t MatchInfo, MethodInfo info MatchInfo p) => IsLabelProxy t (MatchInfo -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMatchInfoMethod t MatchInfo, MethodInfo info MatchInfo p) => IsLabel t (MatchInfo -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,26 +0,0 @@ -module GI.GLib.Structs.MatchInfo where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype MatchInfo = MatchInfo (ForeignPtr MatchInfo) -instance BoxedObject MatchInfo where -data MatchInfoExpandReferencesMethodInfo -data MatchInfoFetchMethodInfo -data MatchInfoFetchAllMethodInfo -data MatchInfoFetchNamedMethodInfo -data MatchInfoFetchNamedPosMethodInfo -data MatchInfoFetchPosMethodInfo -data MatchInfoFreeMethodInfo -data MatchInfoGetMatchCountMethodInfo -data MatchInfoGetRegexMethodInfo -data MatchInfoGetStringMethodInfo -data MatchInfoIsPartialMatchMethodInfo -data MatchInfoMatchesMethodInfo -data MatchInfoNextMethodInfo -data MatchInfoRefMethodInfo -data MatchInfoUnrefMethodInfo 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,72 +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. - -This functions related to this has been deprecated in 2.46, and no longer work. --} - -module GI.GLib.Structs.MemVTable - ( - --- * Exported types - MemVTable(..) , - newZeroMemVTable , - noMemVTable , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype MemVTable = MemVTable (ForeignPtr MemVTable) -instance WrappedPtr MemVTable where - wrappedPtrCalloc = callocBytes 48 - wrappedPtrCopy = copyPtr 48 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `MemVTable` struct initialized to zero. -newZeroMemVTable :: MonadIO m => m MemVTable -newZeroMemVTable = liftIO $ wrappedPtrCalloc >>= wrapPtr MemVTable - -instance tag ~ 'AttrSet => Constructible MemVTable tag where - new _ attrs = do - o <- newZeroMemVTable - GI.Attributes.set o attrs - return o - - -noMemVTable :: Maybe MemVTable -noMemVTable = Nothing - --- XXX Skipped attribute for "MemVTable:free" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - -type instance AttributeList MemVTable = MemVTableAttributeList -type MemVTableAttributeList = ('[ ] :: [(Symbol, *)]) - -type family ResolveMemVTableMethod (t :: Symbol) (o :: *) :: * where - ResolveMemVTableMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMemVTableMethod t MemVTable, MethodInfo info MemVTable p) => IsLabelProxy t (MemVTable -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMemVTableMethod t MemVTable, MethodInfo info MemVTable p) => IsLabel t (MemVTable -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,11 +0,0 @@ -module GI.GLib.Structs.MemVTable where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype MemVTable = MemVTable (ForeignPtr MemVTable) -instance WrappedPtr MemVTable where 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,609 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The #GNode struct represents one node in a [n-ary tree][glib-N-ary-Trees]. --} - -module GI.GLib.Structs.Node - ( - --- * Exported types - Node(..) , - newZeroNode , - noNode , - - - -- * Methods --- ** nodeChildIndex - NodeChildIndexMethodInfo , - nodeChildIndex , - - --- ** nodeChildPosition - NodeChildPositionMethodInfo , - nodeChildPosition , - - --- ** nodeDepth - NodeDepthMethodInfo , - nodeDepth , - - --- ** nodeDestroy - NodeDestroyMethodInfo , - nodeDestroy , - - --- ** nodeIsAncestor - NodeIsAncestorMethodInfo , - nodeIsAncestor , - - --- ** nodeMaxHeight - NodeMaxHeightMethodInfo , - nodeMaxHeight , - - --- ** nodeNChildren - NodeNChildrenMethodInfo , - nodeNChildren , - - --- ** nodeNNodes - NodeNNodesMethodInfo , - nodeNNodes , - - --- ** nodeReverseChildren - NodeReverseChildrenMethodInfo , - nodeReverseChildren , - - --- ** nodeUnlink - NodeUnlinkMethodInfo , - nodeUnlink , - - - - - -- * Properties --- ** Children - nodeChildren , - nodeClearChildren , - nodeReadChildren , - nodeWriteChildren , - - --- ** Data - nodeClearData , - nodeData , - nodeReadData , - nodeWriteData , - - --- ** Next - nodeClearNext , - nodeNext , - nodeReadNext , - nodeWriteNext , - - --- ** Parent - nodeClearParent , - nodeParent , - nodeReadParent , - nodeWriteParent , - - --- ** Prev - nodeClearPrev , - nodePrev , - nodeReadPrev , - nodeWritePrev , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Node = Node (ForeignPtr Node) -instance WrappedPtr Node where - wrappedPtrCalloc = callocBytes 40 - wrappedPtrCopy = copyPtr 40 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `Node` struct initialized to zero. -newZeroNode :: MonadIO m => m Node -newZeroNode = liftIO $ wrappedPtrCalloc >>= wrapPtr Node - -instance tag ~ 'AttrSet => Constructible Node tag where - new _ attrs = do - o <- newZeroNode - GI.Attributes.set o attrs - return o - - -noNode :: Maybe Node -noNode = Nothing - -nodeReadData :: MonadIO m => Node -> m (Ptr ()) -nodeReadData s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr ()) - return val - -nodeWriteData :: MonadIO m => Node -> Ptr () -> m () -nodeWriteData s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr ()) - -nodeClearData :: MonadIO m => Node -> m () -nodeClearData s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr ()) - -data NodeDataFieldInfo -instance AttrInfo NodeDataFieldInfo where - type AttrAllowedOps NodeDataFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint NodeDataFieldInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint NodeDataFieldInfo = (~) Node - type AttrGetType NodeDataFieldInfo = Ptr () - type AttrLabel NodeDataFieldInfo = "data" - attrGet _ = nodeReadData - attrSet _ = nodeWriteData - attrConstruct = undefined - attrClear _ = nodeClearData - -nodeData :: AttrLabelProxy "data" -nodeData = AttrLabelProxy - - -nodeReadNext :: MonadIO m => Node -> m (Maybe Node) -nodeReadNext s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr Node) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr Node) val' - return val'' - return result - -nodeWriteNext :: MonadIO m => Node -> Ptr Node -> m () -nodeWriteNext s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr Node) - -nodeClearNext :: MonadIO m => Node -> m () -nodeClearNext s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr Node) - -data NodeNextFieldInfo -instance AttrInfo NodeNextFieldInfo where - type AttrAllowedOps NodeNextFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint NodeNextFieldInfo = (~) (Ptr Node) - type AttrBaseTypeConstraint NodeNextFieldInfo = (~) Node - type AttrGetType NodeNextFieldInfo = Maybe Node - type AttrLabel NodeNextFieldInfo = "next" - attrGet _ = nodeReadNext - attrSet _ = nodeWriteNext - attrConstruct = undefined - attrClear _ = nodeClearNext - -nodeNext :: AttrLabelProxy "next" -nodeNext = AttrLabelProxy - - -nodeReadPrev :: MonadIO m => Node -> m (Maybe Node) -nodeReadPrev s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO (Ptr Node) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr Node) val' - return val'' - return result - -nodeWritePrev :: MonadIO m => Node -> Ptr Node -> m () -nodeWritePrev s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Ptr Node) - -nodeClearPrev :: MonadIO m => Node -> m () -nodeClearPrev s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: Ptr Node) - -data NodePrevFieldInfo -instance AttrInfo NodePrevFieldInfo where - type AttrAllowedOps NodePrevFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint NodePrevFieldInfo = (~) (Ptr Node) - type AttrBaseTypeConstraint NodePrevFieldInfo = (~) Node - type AttrGetType NodePrevFieldInfo = Maybe Node - type AttrLabel NodePrevFieldInfo = "prev" - attrGet _ = nodeReadPrev - attrSet _ = nodeWritePrev - attrConstruct = undefined - attrClear _ = nodeClearPrev - -nodePrev :: AttrLabelProxy "prev" -nodePrev = AttrLabelProxy - - -nodeReadParent :: MonadIO m => Node -> m (Maybe Node) -nodeReadParent s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO (Ptr Node) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr Node) val' - return val'' - return result - -nodeWriteParent :: MonadIO m => Node -> Ptr Node -> m () -nodeWriteParent s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Ptr Node) - -nodeClearParent :: MonadIO m => Node -> m () -nodeClearParent s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: Ptr Node) - -data NodeParentFieldInfo -instance AttrInfo NodeParentFieldInfo where - type AttrAllowedOps NodeParentFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint NodeParentFieldInfo = (~) (Ptr Node) - type AttrBaseTypeConstraint NodeParentFieldInfo = (~) Node - type AttrGetType NodeParentFieldInfo = Maybe Node - type AttrLabel NodeParentFieldInfo = "parent" - attrGet _ = nodeReadParent - attrSet _ = nodeWriteParent - attrConstruct = undefined - attrClear _ = nodeClearParent - -nodeParent :: AttrLabelProxy "parent" -nodeParent = AttrLabelProxy - - -nodeReadChildren :: MonadIO m => Node -> m (Maybe Node) -nodeReadChildren s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO (Ptr Node) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr Node) val' - return val'' - return result - -nodeWriteChildren :: MonadIO m => Node -> Ptr Node -> m () -nodeWriteChildren s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: Ptr Node) - -nodeClearChildren :: MonadIO m => Node -> m () -nodeClearChildren s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (nullPtr :: Ptr Node) - -data NodeChildrenFieldInfo -instance AttrInfo NodeChildrenFieldInfo where - type AttrAllowedOps NodeChildrenFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint NodeChildrenFieldInfo = (~) (Ptr Node) - type AttrBaseTypeConstraint NodeChildrenFieldInfo = (~) Node - type AttrGetType NodeChildrenFieldInfo = Maybe Node - type AttrLabel NodeChildrenFieldInfo = "children" - attrGet _ = nodeReadChildren - attrSet _ = nodeWriteChildren - attrConstruct = undefined - attrClear _ = nodeClearChildren - -nodeChildren :: AttrLabelProxy "children" -nodeChildren = AttrLabelProxy - - - -type instance AttributeList Node = NodeAttributeList -type NodeAttributeList = ('[ '("data", NodeDataFieldInfo), '("next", NodeNextFieldInfo), '("prev", NodePrevFieldInfo), '("parent", NodeParentFieldInfo), '("children", NodeChildrenFieldInfo)] :: [(Symbol, *)]) - --- method Node::child_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- 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 TPtr - IO Int32 - - -nodeChildIndex :: - (MonadIO m) => - Node -- _obj - -> Ptr () -- data_ - -> m Int32 -- result -nodeChildIndex _obj data_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_node_child_index _obj' data_ - touchManagedPtr _obj - return result - -data NodeChildIndexMethodInfo -instance (signature ~ (Ptr () -> m Int32), MonadIO m) => MethodInfo NodeChildIndexMethodInfo Node signature where - overloadedMethod _ = nodeChildIndex - --- method Node::child_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 - -data NodeChildPositionMethodInfo -instance (signature ~ (Node -> m Int32), MonadIO m) => MethodInfo NodeChildPositionMethodInfo Node signature where - overloadedMethod _ = nodeChildPosition - --- method Node::depth --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_node_depth" g_node_depth :: - Ptr Node -> -- _obj : TInterface "GLib" "Node" - IO Word32 - - -nodeDepth :: - (MonadIO m) => - Node -- _obj - -> m Word32 -- result -nodeDepth _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_node_depth _obj' - touchManagedPtr _obj - return result - -data NodeDepthMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo NodeDepthMethodInfo Node signature where - overloadedMethod _ = nodeDepth - --- method Node::destroy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -nodeDestroy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_node_destroy _obj' - touchManagedPtr _obj - return () - -data NodeDestroyMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo NodeDestroyMethodInfo Node signature where - overloadedMethod _ = nodeDestroy - --- method Node::is_ancestor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "descendant", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data NodeIsAncestorMethodInfo -instance (signature ~ (Node -> m Bool), MonadIO m) => MethodInfo NodeIsAncestorMethodInfo Node signature where - overloadedMethod _ = nodeIsAncestor - --- method Node::max_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_node_max_height" g_node_max_height :: - Ptr Node -> -- _obj : TInterface "GLib" "Node" - IO Word32 - - -nodeMaxHeight :: - (MonadIO m) => - Node -- _obj - -> m Word32 -- result -nodeMaxHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_node_max_height _obj' - touchManagedPtr _obj - return result - -data NodeMaxHeightMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo NodeMaxHeightMethodInfo Node signature where - overloadedMethod _ = nodeMaxHeight - --- method Node::n_children --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_node_n_children" g_node_n_children :: - Ptr Node -> -- _obj : TInterface "GLib" "Node" - IO Word32 - - -nodeNChildren :: - (MonadIO m) => - Node -- _obj - -> m Word32 -- result -nodeNChildren _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_node_n_children _obj' - touchManagedPtr _obj - return result - -data NodeNChildrenMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo NodeNChildrenMethodInfo Node signature where - overloadedMethod _ = nodeNChildren - --- method Node::n_nodes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "GLib" "TraverseFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -nodeNNodes _obj flags = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let flags' = gflagsToWord flags - result <- g_node_n_nodes _obj' flags' - touchManagedPtr _obj - return result - -data NodeNNodesMethodInfo -instance (signature ~ ([TraverseFlags] -> m Word32), MonadIO m) => MethodInfo NodeNNodesMethodInfo Node signature where - overloadedMethod _ = nodeNNodes - --- method Node::reverse_children --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -nodeReverseChildren _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_node_reverse_children _obj' - touchManagedPtr _obj - return () - -data NodeReverseChildrenMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo NodeReverseChildrenMethodInfo Node signature where - overloadedMethod _ = nodeReverseChildren - --- method Node::unlink --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Node", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -nodeUnlink _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_node_unlink _obj' - touchManagedPtr _obj - return () - -data NodeUnlinkMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo NodeUnlinkMethodInfo Node signature where - overloadedMethod _ = nodeUnlink - -type family ResolveNodeMethod (t :: Symbol) (o :: *) :: * where - ResolveNodeMethod "childIndex" o = NodeChildIndexMethodInfo - ResolveNodeMethod "childPosition" o = NodeChildPositionMethodInfo - ResolveNodeMethod "depth" o = NodeDepthMethodInfo - ResolveNodeMethod "destroy" o = NodeDestroyMethodInfo - ResolveNodeMethod "isAncestor" o = NodeIsAncestorMethodInfo - ResolveNodeMethod "maxHeight" o = NodeMaxHeightMethodInfo - ResolveNodeMethod "nChildren" o = NodeNChildrenMethodInfo - ResolveNodeMethod "nNodes" o = NodeNNodesMethodInfo - ResolveNodeMethod "reverseChildren" o = NodeReverseChildrenMethodInfo - ResolveNodeMethod "unlink" o = NodeUnlinkMethodInfo - ResolveNodeMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveNodeMethod t Node, MethodInfo info Node p) => IsLabelProxy t (Node -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveNodeMethod t Node, MethodInfo info Node p) => IsLabel t (Node -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,21 +0,0 @@ -module GI.GLib.Structs.Node where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Node = Node (ForeignPtr Node) -instance WrappedPtr Node where -data NodeChildIndexMethodInfo -data NodeChildPositionMethodInfo -data NodeDepthMethodInfo -data NodeDestroyMethodInfo -data NodeIsAncestorMethodInfo -data NodeMaxHeightMethodInfo -data NodeNChildrenMethodInfo -data NodeNNodesMethodInfo -data NodeReverseChildrenMethodInfo -data NodeUnlinkMethodInfo 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,197 +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(..) , - newZeroOnce , - noOnce , - - - -- * Methods --- ** onceInitEnter - onceInitEnter , - - --- ** onceInitLeave - onceInitLeave , - - - - - -- * Properties --- ** Retval - onceClearRetval , - onceReadRetval , - onceRetval , - onceWriteRetval , - - --- ** Status - onceReadStatus , - onceStatus , - onceWriteStatus , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Once = Once (ForeignPtr Once) -instance WrappedPtr Once where - wrappedPtrCalloc = callocBytes 16 - wrappedPtrCopy = copyPtr 16 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `Once` struct initialized to zero. -newZeroOnce :: MonadIO m => m Once -newZeroOnce = liftIO $ wrappedPtrCalloc >>= wrapPtr Once - -instance tag ~ 'AttrSet => Constructible Once tag where - new _ attrs = do - o <- newZeroOnce - GI.Attributes.set o attrs - return o - - -noOnce :: Maybe Once -noOnce = Nothing - -onceReadStatus :: MonadIO m => Once -> m OnceStatus -onceReadStatus s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -onceWriteStatus :: MonadIO m => Once -> OnceStatus -> m () -onceWriteStatus s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data OnceStatusFieldInfo -instance AttrInfo OnceStatusFieldInfo where - type AttrAllowedOps OnceStatusFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint OnceStatusFieldInfo = (~) OnceStatus - type AttrBaseTypeConstraint OnceStatusFieldInfo = (~) Once - type AttrGetType OnceStatusFieldInfo = OnceStatus - type AttrLabel OnceStatusFieldInfo = "status" - attrGet _ = onceReadStatus - attrSet _ = onceWriteStatus - attrConstruct = undefined - attrClear _ = undefined - -onceStatus :: AttrLabelProxy "status" -onceStatus = AttrLabelProxy - - -onceReadRetval :: MonadIO m => Once -> m (Ptr ()) -onceReadRetval s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr ()) - return val - -onceWriteRetval :: MonadIO m => Once -> Ptr () -> m () -onceWriteRetval s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr ()) - -onceClearRetval :: MonadIO m => Once -> m () -onceClearRetval s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr ()) - -data OnceRetvalFieldInfo -instance AttrInfo OnceRetvalFieldInfo where - type AttrAllowedOps OnceRetvalFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint OnceRetvalFieldInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint OnceRetvalFieldInfo = (~) Once - type AttrGetType OnceRetvalFieldInfo = Ptr () - type AttrLabel OnceRetvalFieldInfo = "retval" - attrGet _ = onceReadRetval - attrSet _ = onceWriteRetval - attrConstruct = undefined - attrClear _ = onceClearRetval - -onceRetval :: AttrLabelProxy "retval" -onceRetval = AttrLabelProxy - - - -type instance AttributeList Once = OnceAttributeList -type OnceAttributeList = ('[ '("status", OnceStatusFieldInfo), '("retval", OnceRetvalFieldInfo)] :: [(Symbol, *)]) - --- method Once::init_enter --- method type : MemberFunction --- Args : [Arg {argCName = "location", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_once_init_enter" g_once_init_enter :: - Ptr () -> -- location : TBasicType TPtr - IO CInt - - -onceInitEnter :: - (MonadIO m) => - Ptr () -- location - -> m Bool -- result -onceInitEnter location = liftIO $ do - result <- g_once_init_enter location - let result' = (/= 0) result - return result' - --- method Once::init_leave --- method type : MemberFunction --- Args : [Arg {argCName = "location", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_once_init_leave" g_once_init_leave :: - Ptr () -> -- location : TBasicType TPtr - Word64 -> -- result : TBasicType TUInt64 - IO () - - -onceInitLeave :: - (MonadIO m) => - Ptr () -- location - -> Word64 -- result_ - -> m () -- result -onceInitLeave location result_ = liftIO $ do - g_once_init_leave location result_ - return () - -type family ResolveOnceMethod (t :: Symbol) (o :: *) :: * where - ResolveOnceMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveOnceMethod t Once, MethodInfo info Once p) => IsLabelProxy t (Once -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveOnceMethod t Once, MethodInfo info Once p) => IsLabel t (Once -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,11 +0,0 @@ -module GI.GLib.Structs.Once where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Once = Once (ForeignPtr Once) -instance WrappedPtr Once where 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,845 +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 - OptionContextAddGroupMethodInfo , - optionContextAddGroup , - - --- ** optionContextAddMainEntries - OptionContextAddMainEntriesMethodInfo , - optionContextAddMainEntries , - - --- ** optionContextFree - OptionContextFreeMethodInfo , - optionContextFree , - - --- ** optionContextGetDescription - OptionContextGetDescriptionMethodInfo , - optionContextGetDescription , - - --- ** optionContextGetHelp - OptionContextGetHelpMethodInfo , - optionContextGetHelp , - - --- ** optionContextGetHelpEnabled - OptionContextGetHelpEnabledMethodInfo , - optionContextGetHelpEnabled , - - --- ** optionContextGetIgnoreUnknownOptions - OptionContextGetIgnoreUnknownOptionsMethodInfo, - optionContextGetIgnoreUnknownOptions , - - --- ** optionContextGetMainGroup - OptionContextGetMainGroupMethodInfo , - optionContextGetMainGroup , - - --- ** optionContextGetStrictPosix - OptionContextGetStrictPosixMethodInfo , - optionContextGetStrictPosix , - - --- ** optionContextGetSummary - OptionContextGetSummaryMethodInfo , - optionContextGetSummary , - - --- ** optionContextParse - OptionContextParseMethodInfo , - optionContextParse , - - --- ** optionContextParseStrv - OptionContextParseStrvMethodInfo , - optionContextParseStrv , - - --- ** optionContextSetDescription - OptionContextSetDescriptionMethodInfo , - optionContextSetDescription , - - --- ** optionContextSetHelpEnabled - OptionContextSetHelpEnabledMethodInfo , - optionContextSetHelpEnabled , - - --- ** optionContextSetIgnoreUnknownOptions - OptionContextSetIgnoreUnknownOptionsMethodInfo, - optionContextSetIgnoreUnknownOptions , - - --- ** optionContextSetMainGroup - OptionContextSetMainGroupMethodInfo , - optionContextSetMainGroup , - - --- ** optionContextSetStrictPosix - OptionContextSetStrictPosixMethodInfo , - optionContextSetStrictPosix , - - --- ** optionContextSetSummary - OptionContextSetSummaryMethodInfo , - optionContextSetSummary , - - --- ** optionContextSetTranslateFunc - OptionContextSetTranslateFuncMethodInfo , - optionContextSetTranslateFunc , - - --- ** optionContextSetTranslationDomain - OptionContextSetTranslationDomainMethodInfo, - optionContextSetTranslationDomain , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype OptionContext = OptionContext (ForeignPtr OptionContext) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr OptionContext where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noOptionContext :: Maybe OptionContext -noOptionContext = Nothing - - -type instance AttributeList OptionContext = OptionContextAttributeList -type OptionContextAttributeList = ('[ ] :: [(Symbol, *)]) - --- method OptionContext::add_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -optionContextAddGroup _obj group = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - group' <- copyBoxed group - g_option_context_add_group _obj' group' - touchManagedPtr _obj - touchManagedPtr group - return () - -data OptionContextAddGroupMethodInfo -instance (signature ~ (OptionGroup -> m ()), MonadIO m) => MethodInfo OptionContextAddGroupMethodInfo OptionContext signature where - overloadedMethod _ = optionContextAddGroup - --- method OptionContext::add_main_entries --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "entries", argType = TInterface "GLib" "OptionEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "translation_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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) -- translationDomain - -> m () -- result -optionContextAddMainEntries _obj entries translationDomain = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let entries' = unsafeManagedPtrGetPtr entries - maybeTranslationDomain <- case translationDomain of - Nothing -> return nullPtr - Just jTranslationDomain -> do - jTranslationDomain' <- textToCString jTranslationDomain - return jTranslationDomain' - g_option_context_add_main_entries _obj' entries' maybeTranslationDomain - touchManagedPtr _obj - touchManagedPtr entries - freeMem maybeTranslationDomain - return () - -data OptionContextAddMainEntriesMethodInfo -instance (signature ~ (OptionEntry -> Maybe (T.Text) -> m ()), MonadIO m) => MethodInfo OptionContextAddMainEntriesMethodInfo OptionContext signature where - overloadedMethod _ = optionContextAddMainEntries - --- method OptionContext::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -optionContextFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_option_context_free _obj' - touchManagedPtr _obj - return () - -data OptionContextFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo OptionContextFreeMethodInfo OptionContext signature where - overloadedMethod _ = optionContextFree - --- method OptionContext::get_description --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data OptionContextGetDescriptionMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo OptionContextGetDescriptionMethodInfo OptionContext signature where - overloadedMethod _ = optionContextGetDescription - --- method OptionContext::get_help --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "main_help", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- mainHelp - -> Maybe (OptionGroup) -- group - -> m T.Text -- result -optionContextGetHelp _obj mainHelp group = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let mainHelp' = (fromIntegral . fromEnum) mainHelp - maybeGroup <- case group of - Nothing -> return nullPtr - Just jGroup -> do - let jGroup' = unsafeManagedPtrGetPtr jGroup - return jGroup' - result <- g_option_context_get_help _obj' mainHelp' maybeGroup - checkUnexpectedReturnNULL "g_option_context_get_help" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - whenJust group touchManagedPtr - return result' - -data OptionContextGetHelpMethodInfo -instance (signature ~ (Bool -> Maybe (OptionGroup) -> m T.Text), MonadIO m) => MethodInfo OptionContextGetHelpMethodInfo OptionContext signature where - overloadedMethod _ = optionContextGetHelp - --- method OptionContext::get_help_enabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -optionContextGetHelpEnabled _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_option_context_get_help_enabled _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data OptionContextGetHelpEnabledMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo OptionContextGetHelpEnabledMethodInfo OptionContext signature where - overloadedMethod _ = optionContextGetHelpEnabled - --- method OptionContext::get_ignore_unknown_options --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data OptionContextGetIgnoreUnknownOptionsMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo OptionContextGetIgnoreUnknownOptionsMethodInfo OptionContext signature where - overloadedMethod _ = optionContextGetIgnoreUnknownOptions - --- method OptionContext::get_main_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data OptionContextGetMainGroupMethodInfo -instance (signature ~ (m OptionGroup), MonadIO m) => MethodInfo OptionContextGetMainGroupMethodInfo OptionContext signature where - overloadedMethod _ = optionContextGetMainGroup - --- method OptionContext::get_strict_posix --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -optionContextGetStrictPosix _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_option_context_get_strict_posix _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data OptionContextGetStrictPosixMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo OptionContextGetStrictPosixMethodInfo OptionContext signature where - overloadedMethod _ = optionContextGetStrictPosix - --- method OptionContext::get_summary --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data OptionContextGetSummaryMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo OptionContextGetSummaryMethodInfo OptionContext signature where - overloadedMethod _ = optionContextGetSummary - --- method OptionContext::parse --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argv", argType = TCArray False (-1) 1 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_option_context_parse" g_option_context_parse :: - Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext" - Ptr Int32 -> -- argc : TBasicType TInt - Ptr (Ptr CString) -> -- argv : TCArray False (-1) 1 (TBasicType TUTF8) - Ptr (Ptr GError) -> -- error - IO CInt - - -optionContextParse :: - (MonadIO m) => - OptionContext -- _obj - -> Maybe ([T.Text]) -- argv - -> m ((Maybe [T.Text])) -- result -optionContextParse _obj argv = liftIO $ do - let argc = case argv of - Nothing -> 0 - Just jArgv -> fromIntegral $ length jArgv - let _obj' = unsafeManagedPtrGetPtr _obj - argc' <- allocMem :: IO (Ptr Int32) - poke argc' argc - maybeArgv <- case argv of - Nothing -> return nullPtr - Just jArgv -> do - jArgv' <- packUTF8CArray jArgv - return jArgv' - maybeArgv' <- allocMem :: IO (Ptr (Ptr CString)) - poke maybeArgv' maybeArgv - onException (do - _ <- propagateGError $ g_option_context_parse _obj' argc' maybeArgv' - argc'' <- peek argc' - maybeArgv'' <- peek maybeArgv' - maybeMaybeArgv'' <- convertIfNonNull maybeArgv'' $ \maybeArgv''' -> do - maybeArgv'''' <- (unpackUTF8CArrayWithLength argc'') maybeArgv''' - (mapCArrayWithLength argc'') freeMem maybeArgv''' - freeMem maybeArgv''' - return maybeArgv'''' - touchManagedPtr _obj - freeMem argc' - freeMem maybeArgv' - return maybeMaybeArgv'' - ) (do - freeMem argc' - freeMem maybeArgv' - ) - -data OptionContextParseMethodInfo -instance (signature ~ (Maybe ([T.Text]) -> m ((Maybe [T.Text]))), MonadIO m) => MethodInfo OptionContextParseMethodInfo OptionContext signature where - overloadedMethod _ = optionContextParse - --- method OptionContext::parse_strv --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "arguments", argType = TCArray False (-1) (-1) (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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)) -- result -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' - ) - -data OptionContextParseStrvMethodInfo -instance (signature ~ (Ptr CString -> m ((Ptr CString))), MonadIO m) => MethodInfo OptionContextParseStrvMethodInfo OptionContext signature where - overloadedMethod _ = optionContextParseStrv - --- method OptionContext::set_description --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 () -- result -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 () - -data OptionContextSetDescriptionMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m) => MethodInfo OptionContextSetDescriptionMethodInfo OptionContext signature where - overloadedMethod _ = optionContextSetDescription - --- method OptionContext::set_help_enabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "help_enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- helpEnabled - -> m () -- result -optionContextSetHelpEnabled _obj helpEnabled = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let helpEnabled' = (fromIntegral . fromEnum) helpEnabled - g_option_context_set_help_enabled _obj' helpEnabled' - touchManagedPtr _obj - return () - -data OptionContextSetHelpEnabledMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m) => MethodInfo OptionContextSetHelpEnabledMethodInfo OptionContext signature where - overloadedMethod _ = optionContextSetHelpEnabled - --- method OptionContext::set_ignore_unknown_options --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ignore_unknown", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- ignoreUnknown - -> m () -- result -optionContextSetIgnoreUnknownOptions _obj ignoreUnknown = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let ignoreUnknown' = (fromIntegral . fromEnum) ignoreUnknown - g_option_context_set_ignore_unknown_options _obj' ignoreUnknown' - touchManagedPtr _obj - return () - -data OptionContextSetIgnoreUnknownOptionsMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m) => MethodInfo OptionContextSetIgnoreUnknownOptionsMethodInfo OptionContext signature where - overloadedMethod _ = optionContextSetIgnoreUnknownOptions - --- method OptionContext::set_main_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data OptionContextSetMainGroupMethodInfo -instance (signature ~ (OptionGroup -> m ()), MonadIO m) => MethodInfo OptionContextSetMainGroupMethodInfo OptionContext signature where - overloadedMethod _ = optionContextSetMainGroup - --- method OptionContext::set_strict_posix --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "strict_posix", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- strictPosix - -> m () -- result -optionContextSetStrictPosix _obj strictPosix = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let strictPosix' = (fromIntegral . fromEnum) strictPosix - g_option_context_set_strict_posix _obj' strictPosix' - touchManagedPtr _obj - return () - -data OptionContextSetStrictPosixMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m) => MethodInfo OptionContextSetStrictPosixMethodInfo OptionContext signature where - overloadedMethod _ = optionContextSetStrictPosix - --- method OptionContext::set_summary --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "summary", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 () -- result -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 () - -data OptionContextSetSummaryMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m) => MethodInfo OptionContextSetSummaryMethodInfo OptionContext signature where - overloadedMethod _ = optionContextSetSummary - --- method OptionContext::set_translate_func --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "GLib" "TranslateFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 TPtr - FunPtr DestroyNotifyC -> -- destroy_notify : TInterface "GLib" "DestroyNotify" - IO () - - -optionContextSetTranslateFunc :: - (MonadIO m) => - OptionContext -- _obj - -> Maybe (TranslateFunc) -- func - -> m () -- result -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 destroyNotify = safeFreeFunPtrPtr - g_option_context_set_translate_func _obj' maybeFunc data_ destroyNotify - touchManagedPtr _obj - return () - -data OptionContextSetTranslateFuncMethodInfo -instance (signature ~ (Maybe (TranslateFunc) -> m ()), MonadIO m) => MethodInfo OptionContextSetTranslateFuncMethodInfo OptionContext signature where - overloadedMethod _ = optionContextSetTranslateFunc - --- method OptionContext::set_translation_domain --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 () -- result -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 () - -data OptionContextSetTranslationDomainMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo OptionContextSetTranslationDomainMethodInfo OptionContext signature where - overloadedMethod _ = optionContextSetTranslationDomain - -type family ResolveOptionContextMethod (t :: Symbol) (o :: *) :: * where - ResolveOptionContextMethod "addGroup" o = OptionContextAddGroupMethodInfo - ResolveOptionContextMethod "addMainEntries" o = OptionContextAddMainEntriesMethodInfo - ResolveOptionContextMethod "free" o = OptionContextFreeMethodInfo - ResolveOptionContextMethod "parse" o = OptionContextParseMethodInfo - ResolveOptionContextMethod "parseStrv" o = OptionContextParseStrvMethodInfo - ResolveOptionContextMethod "getDescription" o = OptionContextGetDescriptionMethodInfo - ResolveOptionContextMethod "getHelp" o = OptionContextGetHelpMethodInfo - ResolveOptionContextMethod "getHelpEnabled" o = OptionContextGetHelpEnabledMethodInfo - ResolveOptionContextMethod "getIgnoreUnknownOptions" o = OptionContextGetIgnoreUnknownOptionsMethodInfo - ResolveOptionContextMethod "getMainGroup" o = OptionContextGetMainGroupMethodInfo - ResolveOptionContextMethod "getStrictPosix" o = OptionContextGetStrictPosixMethodInfo - ResolveOptionContextMethod "getSummary" o = OptionContextGetSummaryMethodInfo - ResolveOptionContextMethod "setDescription" o = OptionContextSetDescriptionMethodInfo - ResolveOptionContextMethod "setHelpEnabled" o = OptionContextSetHelpEnabledMethodInfo - ResolveOptionContextMethod "setIgnoreUnknownOptions" o = OptionContextSetIgnoreUnknownOptionsMethodInfo - ResolveOptionContextMethod "setMainGroup" o = OptionContextSetMainGroupMethodInfo - ResolveOptionContextMethod "setStrictPosix" o = OptionContextSetStrictPosixMethodInfo - ResolveOptionContextMethod "setSummary" o = OptionContextSetSummaryMethodInfo - ResolveOptionContextMethod "setTranslateFunc" o = OptionContextSetTranslateFuncMethodInfo - ResolveOptionContextMethod "setTranslationDomain" o = OptionContextSetTranslationDomainMethodInfo - ResolveOptionContextMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveOptionContextMethod t OptionContext, MethodInfo info OptionContext p) => IsLabelProxy t (OptionContext -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveOptionContextMethod t OptionContext, MethodInfo info OptionContext p) => IsLabel t (OptionContext -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,31 +0,0 @@ -module GI.GLib.Structs.OptionContext where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype OptionContext = OptionContext (ForeignPtr OptionContext) -instance WrappedPtr OptionContext where -data OptionContextAddGroupMethodInfo -data OptionContextAddMainEntriesMethodInfo -data OptionContextFreeMethodInfo -data OptionContextGetDescriptionMethodInfo -data OptionContextGetHelpMethodInfo -data OptionContextGetHelpEnabledMethodInfo -data OptionContextGetIgnoreUnknownOptionsMethodInfo -data OptionContextGetMainGroupMethodInfo -data OptionContextGetStrictPosixMethodInfo -data OptionContextGetSummaryMethodInfo -data OptionContextParseMethodInfo -data OptionContextParseStrvMethodInfo -data OptionContextSetDescriptionMethodInfo -data OptionContextSetHelpEnabledMethodInfo -data OptionContextSetIgnoreUnknownOptionsMethodInfo -data OptionContextSetMainGroupMethodInfo -data OptionContextSetStrictPosixMethodInfo -data OptionContextSetSummaryMethodInfo -data OptionContextSetTranslateFuncMethodInfo -data OptionContextSetTranslationDomainMethodInfo 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,320 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -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(..) , - newZeroOptionEntry , - noOptionEntry , - - - -- * Properties --- ** Arg - optionEntryArg , - optionEntryReadArg , - optionEntryWriteArg , - - --- ** ArgData - optionEntryArgData , - optionEntryClearArgData , - optionEntryReadArgData , - optionEntryWriteArgData , - - --- ** ArgDescription - optionEntryArgDescription , - optionEntryClearArgDescription , - optionEntryReadArgDescription , - optionEntryWriteArgDescription , - - --- ** Description - optionEntryClearDescription , - optionEntryDescription , - optionEntryReadDescription , - optionEntryWriteDescription , - - --- ** Flags - optionEntryFlags , - optionEntryReadFlags , - optionEntryWriteFlags , - - --- ** LongName - optionEntryClearLongName , - optionEntryLongName , - optionEntryReadLongName , - optionEntryWriteLongName , - - --- ** ShortName - optionEntryReadShortName , - optionEntryShortName , - optionEntryWriteShortName , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype OptionEntry = OptionEntry (ForeignPtr OptionEntry) -instance WrappedPtr OptionEntry where - wrappedPtrCalloc = callocBytes 48 - wrappedPtrCopy = copyPtr 48 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `OptionEntry` struct initialized to zero. -newZeroOptionEntry :: MonadIO m => m OptionEntry -newZeroOptionEntry = liftIO $ wrappedPtrCalloc >>= wrapPtr OptionEntry - -instance tag ~ 'AttrSet => Constructible OptionEntry tag where - new _ attrs = do - o <- newZeroOptionEntry - GI.Attributes.set o attrs - return o - - -noOptionEntry :: Maybe OptionEntry -noOptionEntry = Nothing - -optionEntryReadLongName :: MonadIO m => OptionEntry -> m (Maybe T.Text) -optionEntryReadLongName s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -optionEntryWriteLongName :: MonadIO m => OptionEntry -> CString -> m () -optionEntryWriteLongName s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: CString) - -optionEntryClearLongName :: MonadIO m => OptionEntry -> m () -optionEntryClearLongName s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: CString) - -data OptionEntryLongNameFieldInfo -instance AttrInfo OptionEntryLongNameFieldInfo where - type AttrAllowedOps OptionEntryLongNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint OptionEntryLongNameFieldInfo = (~) CString - type AttrBaseTypeConstraint OptionEntryLongNameFieldInfo = (~) OptionEntry - type AttrGetType OptionEntryLongNameFieldInfo = Maybe T.Text - type AttrLabel OptionEntryLongNameFieldInfo = "long_name" - attrGet _ = optionEntryReadLongName - attrSet _ = optionEntryWriteLongName - attrConstruct = undefined - attrClear _ = optionEntryClearLongName - -optionEntryLongName :: AttrLabelProxy "longName" -optionEntryLongName = AttrLabelProxy - - -optionEntryReadShortName :: MonadIO m => OptionEntry -> m Int8 -optionEntryReadShortName s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Int8 - return val - -optionEntryWriteShortName :: MonadIO m => OptionEntry -> Int8 -> m () -optionEntryWriteShortName s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Int8) - -data OptionEntryShortNameFieldInfo -instance AttrInfo OptionEntryShortNameFieldInfo where - type AttrAllowedOps OptionEntryShortNameFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint OptionEntryShortNameFieldInfo = (~) Int8 - type AttrBaseTypeConstraint OptionEntryShortNameFieldInfo = (~) OptionEntry - type AttrGetType OptionEntryShortNameFieldInfo = Int8 - type AttrLabel OptionEntryShortNameFieldInfo = "short_name" - attrGet _ = optionEntryReadShortName - attrSet _ = optionEntryWriteShortName - attrConstruct = undefined - attrClear _ = undefined - -optionEntryShortName :: AttrLabelProxy "shortName" -optionEntryShortName = AttrLabelProxy - - -optionEntryReadFlags :: MonadIO m => OptionEntry -> m Int32 -optionEntryReadFlags s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Int32 - return val - -optionEntryWriteFlags :: MonadIO m => OptionEntry -> Int32 -> m () -optionEntryWriteFlags s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 12) (val :: Int32) - -data OptionEntryFlagsFieldInfo -instance AttrInfo OptionEntryFlagsFieldInfo where - type AttrAllowedOps OptionEntryFlagsFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint OptionEntryFlagsFieldInfo = (~) Int32 - type AttrBaseTypeConstraint OptionEntryFlagsFieldInfo = (~) OptionEntry - type AttrGetType OptionEntryFlagsFieldInfo = Int32 - type AttrLabel OptionEntryFlagsFieldInfo = "flags" - attrGet _ = optionEntryReadFlags - attrSet _ = optionEntryWriteFlags - attrConstruct = undefined - attrClear _ = undefined - -optionEntryFlags :: AttrLabelProxy "flags" -optionEntryFlags = AttrLabelProxy - - -optionEntryReadArg :: MonadIO m => OptionEntry -> m OptionArg -optionEntryReadArg s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -optionEntryWriteArg :: MonadIO m => OptionEntry -> OptionArg -> m () -optionEntryWriteArg s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 16) (val' :: CUInt) - -data OptionEntryArgFieldInfo -instance AttrInfo OptionEntryArgFieldInfo where - type AttrAllowedOps OptionEntryArgFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint OptionEntryArgFieldInfo = (~) OptionArg - type AttrBaseTypeConstraint OptionEntryArgFieldInfo = (~) OptionEntry - type AttrGetType OptionEntryArgFieldInfo = OptionArg - type AttrLabel OptionEntryArgFieldInfo = "arg" - attrGet _ = optionEntryReadArg - attrSet _ = optionEntryWriteArg - attrConstruct = undefined - attrClear _ = undefined - -optionEntryArg :: AttrLabelProxy "arg" -optionEntryArg = AttrLabelProxy - - -optionEntryReadArgData :: MonadIO m => OptionEntry -> m (Ptr ()) -optionEntryReadArgData s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO (Ptr ()) - return val - -optionEntryWriteArgData :: MonadIO m => OptionEntry -> Ptr () -> m () -optionEntryWriteArgData s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Ptr ()) - -optionEntryClearArgData :: MonadIO m => OptionEntry -> m () -optionEntryClearArgData s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: Ptr ()) - -data OptionEntryArgDataFieldInfo -instance AttrInfo OptionEntryArgDataFieldInfo where - type AttrAllowedOps OptionEntryArgDataFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint OptionEntryArgDataFieldInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint OptionEntryArgDataFieldInfo = (~) OptionEntry - type AttrGetType OptionEntryArgDataFieldInfo = Ptr () - type AttrLabel OptionEntryArgDataFieldInfo = "arg_data" - attrGet _ = optionEntryReadArgData - attrSet _ = optionEntryWriteArgData - attrConstruct = undefined - attrClear _ = optionEntryClearArgData - -optionEntryArgData :: AttrLabelProxy "argData" -optionEntryArgData = AttrLabelProxy - - -optionEntryReadDescription :: MonadIO m => OptionEntry -> m (Maybe T.Text) -optionEntryReadDescription s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -optionEntryWriteDescription :: MonadIO m => OptionEntry -> CString -> m () -optionEntryWriteDescription s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: CString) - -optionEntryClearDescription :: MonadIO m => OptionEntry -> m () -optionEntryClearDescription s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (nullPtr :: CString) - -data OptionEntryDescriptionFieldInfo -instance AttrInfo OptionEntryDescriptionFieldInfo where - type AttrAllowedOps OptionEntryDescriptionFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint OptionEntryDescriptionFieldInfo = (~) CString - type AttrBaseTypeConstraint OptionEntryDescriptionFieldInfo = (~) OptionEntry - type AttrGetType OptionEntryDescriptionFieldInfo = Maybe T.Text - type AttrLabel OptionEntryDescriptionFieldInfo = "description" - attrGet _ = optionEntryReadDescription - attrSet _ = optionEntryWriteDescription - attrConstruct = undefined - attrClear _ = optionEntryClearDescription - -optionEntryDescription :: AttrLabelProxy "description" -optionEntryDescription = AttrLabelProxy - - -optionEntryReadArgDescription :: MonadIO m => OptionEntry -> m (Maybe T.Text) -optionEntryReadArgDescription s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -optionEntryWriteArgDescription :: MonadIO m => OptionEntry -> CString -> m () -optionEntryWriteArgDescription s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 40) (val :: CString) - -optionEntryClearArgDescription :: MonadIO m => OptionEntry -> m () -optionEntryClearArgDescription s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 40) (nullPtr :: CString) - -data OptionEntryArgDescriptionFieldInfo -instance AttrInfo OptionEntryArgDescriptionFieldInfo where - type AttrAllowedOps OptionEntryArgDescriptionFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint OptionEntryArgDescriptionFieldInfo = (~) CString - type AttrBaseTypeConstraint OptionEntryArgDescriptionFieldInfo = (~) OptionEntry - type AttrGetType OptionEntryArgDescriptionFieldInfo = Maybe T.Text - type AttrLabel OptionEntryArgDescriptionFieldInfo = "arg_description" - attrGet _ = optionEntryReadArgDescription - attrSet _ = optionEntryWriteArgDescription - attrConstruct = undefined - attrClear _ = optionEntryClearArgDescription - -optionEntryArgDescription :: AttrLabelProxy "argDescription" -optionEntryArgDescription = AttrLabelProxy - - - -type instance AttributeList OptionEntry = OptionEntryAttributeList -type OptionEntryAttributeList = ('[ '("longName", OptionEntryLongNameFieldInfo), '("shortName", OptionEntryShortNameFieldInfo), '("flags", OptionEntryFlagsFieldInfo), '("arg", OptionEntryArgFieldInfo), '("argData", OptionEntryArgDataFieldInfo), '("description", OptionEntryDescriptionFieldInfo), '("argDescription", OptionEntryArgDescriptionFieldInfo)] :: [(Symbol, *)]) - -type family ResolveOptionEntryMethod (t :: Symbol) (o :: *) :: * where - ResolveOptionEntryMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveOptionEntryMethod t OptionEntry, MethodInfo info OptionEntry p) => IsLabelProxy t (OptionEntry -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveOptionEntryMethod t OptionEntry, MethodInfo info OptionEntry p) => IsLabel t (OptionEntry -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,11 +0,0 @@ -module GI.GLib.Structs.OptionEntry where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype OptionEntry = OptionEntry (ForeignPtr OptionEntry) -instance WrappedPtr OptionEntry where 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,332 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -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 - OptionGroupAddEntriesMethodInfo , - optionGroupAddEntries , - - --- ** optionGroupFree - OptionGroupFreeMethodInfo , - optionGroupFree , - - --- ** optionGroupNew - optionGroupNew , - - --- ** optionGroupRef - OptionGroupRefMethodInfo , - optionGroupRef , - - --- ** optionGroupSetTranslateFunc - OptionGroupSetTranslateFuncMethodInfo , - optionGroupSetTranslateFunc , - - --- ** optionGroupSetTranslationDomain - OptionGroupSetTranslationDomainMethodInfo, - optionGroupSetTranslationDomain , - - --- ** optionGroupUnref - OptionGroupUnrefMethodInfo , - optionGroupUnref , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.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 - - -type instance AttributeList OptionGroup = OptionGroupAttributeList -type OptionGroupAttributeList = ('[ ] :: [(Symbol, *)]) - --- method OptionGroup::new --- method type : Constructor --- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "help_description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TPtr - FunPtr DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO (Ptr OptionGroup) - - -optionGroupNew :: - (MonadIO m) => - T.Text -- name - -> T.Text -- description - -> T.Text -- helpDescription - -> Ptr () -- userData - -> Maybe (DestroyNotify) -- destroy - -> m OptionGroup -- result -optionGroupNew name description helpDescription userData destroy = liftIO $ do - name' <- textToCString name - description' <- textToCString description - helpDescription' <- textToCString helpDescription - 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' helpDescription' userData maybeDestroy - checkUnexpectedReturnNULL "g_option_group_new" result - result' <- (wrapBoxed OptionGroup) result - freeMem name' - freeMem description' - freeMem helpDescription' - return result' - --- method OptionGroup::add_entries --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "entries", argType = TInterface "GLib" "OptionEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 () -- result -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 () - -data OptionGroupAddEntriesMethodInfo -instance (signature ~ (OptionEntry -> m ()), MonadIO m) => MethodInfo OptionGroupAddEntriesMethodInfo OptionGroup signature where - overloadedMethod _ = optionGroupAddEntries - --- method OptionGroup::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 () -- result -optionGroupFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_option_group_free _obj' - touchManagedPtr _obj - return () - -data OptionGroupFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo OptionGroupFreeMethodInfo OptionGroup signature where - overloadedMethod _ = optionGroupFree - --- method OptionGroup::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data OptionGroupRefMethodInfo -instance (signature ~ (m OptionGroup), MonadIO m) => MethodInfo OptionGroupRefMethodInfo OptionGroup signature where - overloadedMethod _ = optionGroupRef - --- method OptionGroup::set_translate_func --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "GLib" "TranslateFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 TPtr - FunPtr DestroyNotifyC -> -- destroy_notify : TInterface "GLib" "DestroyNotify" - IO () - - -optionGroupSetTranslateFunc :: - (MonadIO m) => - OptionGroup -- _obj - -> Maybe (TranslateFunc) -- func - -> m () -- result -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 destroyNotify = safeFreeFunPtrPtr - g_option_group_set_translate_func _obj' maybeFunc data_ destroyNotify - touchManagedPtr _obj - return () - -data OptionGroupSetTranslateFuncMethodInfo -instance (signature ~ (Maybe (TranslateFunc) -> m ()), MonadIO m) => MethodInfo OptionGroupSetTranslateFuncMethodInfo OptionGroup signature where - overloadedMethod _ = optionGroupSetTranslateFunc - --- method OptionGroup::set_translation_domain --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 () -- result -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 () - -data OptionGroupSetTranslationDomainMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo OptionGroupSetTranslationDomainMethodInfo OptionGroup signature where - overloadedMethod _ = optionGroupSetTranslationDomain - --- method OptionGroup::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_option_group_unref" g_option_group_unref :: - Ptr OptionGroup -> -- _obj : TInterface "GLib" "OptionGroup" - IO () - - -optionGroupUnref :: - (MonadIO m) => - OptionGroup -- _obj - -> m () -- result -optionGroupUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_option_group_unref _obj' - touchManagedPtr _obj - return () - -data OptionGroupUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo OptionGroupUnrefMethodInfo OptionGroup signature where - overloadedMethod _ = optionGroupUnref - -type family ResolveOptionGroupMethod (t :: Symbol) (o :: *) :: * where - ResolveOptionGroupMethod "addEntries" o = OptionGroupAddEntriesMethodInfo - ResolveOptionGroupMethod "free" o = OptionGroupFreeMethodInfo - ResolveOptionGroupMethod "ref" o = OptionGroupRefMethodInfo - ResolveOptionGroupMethod "unref" o = OptionGroupUnrefMethodInfo - ResolveOptionGroupMethod "setTranslateFunc" o = OptionGroupSetTranslateFuncMethodInfo - ResolveOptionGroupMethod "setTranslationDomain" o = OptionGroupSetTranslationDomainMethodInfo - ResolveOptionGroupMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveOptionGroupMethod t OptionGroup, MethodInfo info OptionGroup p) => IsLabelProxy t (OptionGroup -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveOptionGroupMethod t OptionGroup, MethodInfo info OptionGroup p) => IsLabel t (OptionGroup -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,17 +0,0 @@ -module GI.GLib.Structs.OptionGroup where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype OptionGroup = OptionGroup (ForeignPtr OptionGroup) -instance BoxedObject OptionGroup where -data OptionGroupAddEntriesMethodInfo -data OptionGroupFreeMethodInfo -data OptionGroupRefMethodInfo -data OptionGroupSetTranslateFuncMethodInfo -data OptionGroupSetTranslationDomainMethodInfo -data OptionGroupUnrefMethodInfo 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,131 +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 - PatternSpecEqualMethodInfo , - patternSpecEqual , - - --- ** patternSpecFree - PatternSpecFreeMethodInfo , - patternSpecFree , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype PatternSpec = PatternSpec (ForeignPtr PatternSpec) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr PatternSpec where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noPatternSpec :: Maybe PatternSpec -noPatternSpec = Nothing - - -type instance AttributeList PatternSpec = PatternSpecAttributeList -type PatternSpecAttributeList = ('[ ] :: [(Symbol, *)]) - --- method PatternSpec::equal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pspec2", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data PatternSpecEqualMethodInfo -instance (signature ~ (PatternSpec -> m Bool), MonadIO m) => MethodInfo PatternSpecEqualMethodInfo PatternSpec signature where - overloadedMethod _ = patternSpecEqual - --- method PatternSpec::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "PatternSpec", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -patternSpecFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_pattern_spec_free _obj' - touchManagedPtr _obj - return () - -data PatternSpecFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo PatternSpecFreeMethodInfo PatternSpec signature where - overloadedMethod _ = patternSpecFree - -type family ResolvePatternSpecMethod (t :: Symbol) (o :: *) :: * where - ResolvePatternSpecMethod "equal" o = PatternSpecEqualMethodInfo - ResolvePatternSpecMethod "free" o = PatternSpecFreeMethodInfo - ResolvePatternSpecMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePatternSpecMethod t PatternSpec, MethodInfo info PatternSpec p) => IsLabelProxy t (PatternSpec -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePatternSpecMethod t PatternSpec, MethodInfo info PatternSpec p) => IsLabel t (PatternSpec -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,13 +0,0 @@ -module GI.GLib.Structs.PatternSpec where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype PatternSpec = PatternSpec (ForeignPtr PatternSpec) -instance WrappedPtr PatternSpec where -data PatternSpecEqualMethodInfo -data PatternSpecFreeMethodInfo 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,165 +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(..) , - newZeroPollFD , - noPollFD , - - - -- * Properties --- ** Events - pollFDEvents , - pollFDReadEvents , - pollFDWriteEvents , - - --- ** Fd - pollFDFd , - pollFDReadFd , - pollFDWriteFd , - - --- ** Revents - pollFDReadRevents , - pollFDRevents , - pollFDWriteRevents , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.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 - --- | Construct a `PollFD` struct initialized to zero. -newZeroPollFD :: MonadIO m => m PollFD -newZeroPollFD = liftIO $ callocBoxedBytes 8 >>= wrapBoxed PollFD - -instance tag ~ 'AttrSet => Constructible PollFD tag where - new _ attrs = do - o <- newZeroPollFD - GI.Attributes.set o attrs - return o - - -noPollFD :: Maybe PollFD -noPollFD = Nothing - -pollFDReadFd :: MonadIO m => PollFD -> m Int32 -pollFDReadFd s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int32 - return val - -pollFDWriteFd :: MonadIO m => PollFD -> Int32 -> m () -pollFDWriteFd s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Int32) - -data PollFDFdFieldInfo -instance AttrInfo PollFDFdFieldInfo where - type AttrAllowedOps PollFDFdFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint PollFDFdFieldInfo = (~) Int32 - type AttrBaseTypeConstraint PollFDFdFieldInfo = (~) PollFD - type AttrGetType PollFDFdFieldInfo = Int32 - type AttrLabel PollFDFdFieldInfo = "fd" - attrGet _ = pollFDReadFd - attrSet _ = pollFDWriteFd - attrConstruct = undefined - attrClear _ = undefined - -pollFDFd :: AttrLabelProxy "fd" -pollFDFd = AttrLabelProxy - - -pollFDReadEvents :: MonadIO m => PollFD -> m Word16 -pollFDReadEvents s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Word16 - return val - -pollFDWriteEvents :: MonadIO m => PollFD -> Word16 -> m () -pollFDWriteEvents s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 4) (val :: Word16) - -data PollFDEventsFieldInfo -instance AttrInfo PollFDEventsFieldInfo where - type AttrAllowedOps PollFDEventsFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint PollFDEventsFieldInfo = (~) Word16 - type AttrBaseTypeConstraint PollFDEventsFieldInfo = (~) PollFD - type AttrGetType PollFDEventsFieldInfo = Word16 - type AttrLabel PollFDEventsFieldInfo = "events" - attrGet _ = pollFDReadEvents - attrSet _ = pollFDWriteEvents - attrConstruct = undefined - attrClear _ = undefined - -pollFDEvents :: AttrLabelProxy "events" -pollFDEvents = AttrLabelProxy - - -pollFDReadRevents :: MonadIO m => PollFD -> m Word16 -pollFDReadRevents s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 6) :: IO Word16 - return val - -pollFDWriteRevents :: MonadIO m => PollFD -> Word16 -> m () -pollFDWriteRevents s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 6) (val :: Word16) - -data PollFDReventsFieldInfo -instance AttrInfo PollFDReventsFieldInfo where - type AttrAllowedOps PollFDReventsFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint PollFDReventsFieldInfo = (~) Word16 - type AttrBaseTypeConstraint PollFDReventsFieldInfo = (~) PollFD - type AttrGetType PollFDReventsFieldInfo = Word16 - type AttrLabel PollFDReventsFieldInfo = "revents" - attrGet _ = pollFDReadRevents - attrSet _ = pollFDWriteRevents - attrConstruct = undefined - attrClear _ = undefined - -pollFDRevents :: AttrLabelProxy "revents" -pollFDRevents = AttrLabelProxy - - - -type instance AttributeList PollFD = PollFDAttributeList -type PollFDAttributeList = ('[ '("fd", PollFDFdFieldInfo), '("events", PollFDEventsFieldInfo), '("revents", PollFDReventsFieldInfo)] :: [(Symbol, *)]) - -type family ResolvePollFDMethod (t :: Symbol) (o :: *) :: * where - ResolvePollFDMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePollFDMethod t PollFD, MethodInfo info PollFD p) => IsLabelProxy t (PollFD -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePollFDMethod t PollFD, MethodInfo info PollFD p) => IsLabel t (PollFD -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype 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,138 +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(..) , - newZeroPtrArray , - noPtrArray , - - - -- * Properties --- ** Len - ptrArrayLen , - ptrArrayReadLen , - ptrArrayWriteLen , - - --- ** Pdata - ptrArrayClearPdata , - ptrArrayPdata , - ptrArrayReadPdata , - ptrArrayWritePdata , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.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 - --- | Construct a `PtrArray` struct initialized to zero. -newZeroPtrArray :: MonadIO m => m PtrArray -newZeroPtrArray = liftIO $ callocBoxedBytes 16 >>= wrapBoxed PtrArray - -instance tag ~ 'AttrSet => Constructible PtrArray tag where - new _ attrs = do - o <- newZeroPtrArray - GI.Attributes.set o attrs - return o - - -noPtrArray :: Maybe PtrArray -noPtrArray = Nothing - -ptrArrayReadPdata :: MonadIO m => PtrArray -> m (Ptr ()) -ptrArrayReadPdata s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr ()) - return val - -ptrArrayWritePdata :: MonadIO m => PtrArray -> Ptr () -> m () -ptrArrayWritePdata s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr ()) - -ptrArrayClearPdata :: MonadIO m => PtrArray -> m () -ptrArrayClearPdata s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr ()) - -data PtrArrayPdataFieldInfo -instance AttrInfo PtrArrayPdataFieldInfo where - type AttrAllowedOps PtrArrayPdataFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint PtrArrayPdataFieldInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint PtrArrayPdataFieldInfo = (~) PtrArray - type AttrGetType PtrArrayPdataFieldInfo = Ptr () - type AttrLabel PtrArrayPdataFieldInfo = "pdata" - attrGet _ = ptrArrayReadPdata - attrSet _ = ptrArrayWritePdata - attrConstruct = undefined - attrClear _ = ptrArrayClearPdata - -ptrArrayPdata :: AttrLabelProxy "pdata" -ptrArrayPdata = AttrLabelProxy - - -ptrArrayReadLen :: MonadIO m => PtrArray -> m Word32 -ptrArrayReadLen s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word32 - return val - -ptrArrayWriteLen :: MonadIO m => PtrArray -> Word32 -> m () -ptrArrayWriteLen s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Word32) - -data PtrArrayLenFieldInfo -instance AttrInfo PtrArrayLenFieldInfo where - type AttrAllowedOps PtrArrayLenFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint PtrArrayLenFieldInfo = (~) Word32 - type AttrBaseTypeConstraint PtrArrayLenFieldInfo = (~) PtrArray - type AttrGetType PtrArrayLenFieldInfo = Word32 - type AttrLabel PtrArrayLenFieldInfo = "len" - attrGet _ = ptrArrayReadLen - attrSet _ = ptrArrayWriteLen - attrConstruct = undefined - attrClear _ = undefined - -ptrArrayLen :: AttrLabelProxy "len" -ptrArrayLen = AttrLabelProxy - - - -type instance AttributeList PtrArray = PtrArrayAttributeList -type PtrArrayAttributeList = ('[ '("pdata", PtrArrayPdataFieldInfo), '("len", PtrArrayLenFieldInfo)] :: [(Symbol, *)]) - -type family ResolvePtrArrayMethod (t :: Symbol) (o :: *) :: * where - ResolvePtrArrayMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePtrArrayMethod t PtrArray, MethodInfo info PtrArray p) => IsLabelProxy t (PtrArray -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePtrArrayMethod t PtrArray, MethodInfo info PtrArray p) => IsLabel t (PtrArray -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype 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,629 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Contains the public fields of a -[Queue][glib-Double-ended-Queues]. --} - -module GI.GLib.Structs.Queue - ( - --- * Exported types - Queue(..) , - newZeroQueue , - noQueue , - - - -- * Methods --- ** queueClear - QueueClearMethodInfo , - queueClear , - - --- ** queueFree - QueueFreeMethodInfo , - queueFree , - - --- ** queueFreeFull - QueueFreeFullMethodInfo , - queueFreeFull , - - --- ** queueGetLength - QueueGetLengthMethodInfo , - queueGetLength , - - --- ** queueIndex - QueueIndexMethodInfo , - queueIndex , - - --- ** queueInit - QueueInitMethodInfo , - queueInit , - - --- ** queueIsEmpty - QueueIsEmptyMethodInfo , - queueIsEmpty , - - --- ** queuePushHead - QueuePushHeadMethodInfo , - queuePushHead , - - --- ** queuePushNth - QueuePushNthMethodInfo , - queuePushNth , - - --- ** queuePushTail - QueuePushTailMethodInfo , - queuePushTail , - - --- ** queueRemove - QueueRemoveMethodInfo , - queueRemove , - - --- ** queueRemoveAll - QueueRemoveAllMethodInfo , - queueRemoveAll , - - --- ** queueReverse - QueueReverseMethodInfo , - queueReverse , - - - - - -- * Properties --- ** Head - queueClearHead , - queueHead , - queueReadHead , - queueWriteHead , - - --- ** Length - queueLength , - queueReadLength , - queueWriteLength , - - --- ** Tail - queueClearTail , - queueReadTail , - queueTail , - queueWriteTail , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Queue = Queue (ForeignPtr Queue) -instance WrappedPtr Queue where - wrappedPtrCalloc = callocBytes 24 - wrappedPtrCopy = copyPtr 24 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `Queue` struct initialized to zero. -newZeroQueue :: MonadIO m => m Queue -newZeroQueue = liftIO $ wrappedPtrCalloc >>= wrapPtr Queue - -instance tag ~ 'AttrSet => Constructible Queue tag where - new _ attrs = do - o <- newZeroQueue - GI.Attributes.set o attrs - return o - - -noQueue :: Maybe Queue -noQueue = Nothing - -queueReadHead :: MonadIO m => Queue -> m ([Ptr ()]) -queueReadHead s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr (GList (Ptr ()))) - val' <- unpackGList val - return val' - -queueWriteHead :: MonadIO m => Queue -> Ptr (GList (Ptr ())) -> m () -queueWriteHead s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr (GList (Ptr ()))) - -queueClearHead :: MonadIO m => Queue -> m () -queueClearHead s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr (GList (Ptr ()))) - -data QueueHeadFieldInfo -instance AttrInfo QueueHeadFieldInfo where - type AttrAllowedOps QueueHeadFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint QueueHeadFieldInfo = (~) (Ptr (GList (Ptr ()))) - type AttrBaseTypeConstraint QueueHeadFieldInfo = (~) Queue - type AttrGetType QueueHeadFieldInfo = [Ptr ()] - type AttrLabel QueueHeadFieldInfo = "head" - attrGet _ = queueReadHead - attrSet _ = queueWriteHead - attrConstruct = undefined - attrClear _ = queueClearHead - -queueHead :: AttrLabelProxy "head" -queueHead = AttrLabelProxy - - -queueReadTail :: MonadIO m => Queue -> m ([Ptr ()]) -queueReadTail s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr (GList (Ptr ()))) - val' <- unpackGList val - return val' - -queueWriteTail :: MonadIO m => Queue -> Ptr (GList (Ptr ())) -> m () -queueWriteTail s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr (GList (Ptr ()))) - -queueClearTail :: MonadIO m => Queue -> m () -queueClearTail s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr (GList (Ptr ()))) - -data QueueTailFieldInfo -instance AttrInfo QueueTailFieldInfo where - type AttrAllowedOps QueueTailFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint QueueTailFieldInfo = (~) (Ptr (GList (Ptr ()))) - type AttrBaseTypeConstraint QueueTailFieldInfo = (~) Queue - type AttrGetType QueueTailFieldInfo = [Ptr ()] - type AttrLabel QueueTailFieldInfo = "tail" - attrGet _ = queueReadTail - attrSet _ = queueWriteTail - attrConstruct = undefined - attrClear _ = queueClearTail - -queueTail :: AttrLabelProxy "tail" -queueTail = AttrLabelProxy - - -queueReadLength :: MonadIO m => Queue -> m Word32 -queueReadLength s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Word32 - return val - -queueWriteLength :: MonadIO m => Queue -> Word32 -> m () -queueWriteLength s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Word32) - -data QueueLengthFieldInfo -instance AttrInfo QueueLengthFieldInfo where - type AttrAllowedOps QueueLengthFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint QueueLengthFieldInfo = (~) Word32 - type AttrBaseTypeConstraint QueueLengthFieldInfo = (~) Queue - type AttrGetType QueueLengthFieldInfo = Word32 - type AttrLabel QueueLengthFieldInfo = "length" - attrGet _ = queueReadLength - attrSet _ = queueWriteLength - attrConstruct = undefined - attrClear _ = undefined - -queueLength :: AttrLabelProxy "length" -queueLength = AttrLabelProxy - - - -type instance AttributeList Queue = QueueAttributeList -type QueueAttributeList = ('[ '("head", QueueHeadFieldInfo), '("tail", QueueTailFieldInfo), '("length", QueueLengthFieldInfo)] :: [(Symbol, *)]) - --- method Queue::clear --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -queueClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_queue_clear _obj' - touchManagedPtr _obj - return () - -data QueueClearMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo QueueClearMethodInfo Queue signature where - overloadedMethod _ = queueClear - --- method Queue::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -queueFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_queue_free _obj' - touchManagedPtr _obj - return () - -data QueueFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo QueueFreeMethodInfo Queue signature where - overloadedMethod _ = queueFree - --- method Queue::free_full --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "free_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- freeFunc - -> m () -- result -queueFreeFull _obj freeFunc = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - ptrfreeFunc <- callocMem :: IO (Ptr (FunPtr DestroyNotifyC)) - freeFunc' <- mkDestroyNotify (destroyNotifyWrapper (Just ptrfreeFunc) freeFunc) - poke ptrfreeFunc freeFunc' - g_queue_free_full _obj' freeFunc' - touchManagedPtr _obj - return () - -data QueueFreeFullMethodInfo -instance (signature ~ (DestroyNotify -> m ()), MonadIO m) => MethodInfo QueueFreeFullMethodInfo Queue signature where - overloadedMethod _ = queueFreeFull - --- method Queue::get_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_queue_get_length" g_queue_get_length :: - Ptr Queue -> -- _obj : TInterface "GLib" "Queue" - IO Word32 - - -queueGetLength :: - (MonadIO m) => - Queue -- _obj - -> m Word32 -- result -queueGetLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_queue_get_length _obj' - touchManagedPtr _obj - return result - -data QueueGetLengthMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo QueueGetLengthMethodInfo Queue signature where - overloadedMethod _ = queueGetLength - --- method Queue::index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_queue_index" g_queue_index :: - Ptr Queue -> -- _obj : TInterface "GLib" "Queue" - Ptr () -> -- data : TBasicType TPtr - IO Int32 - - -queueIndex :: - (MonadIO m) => - Queue -- _obj - -> Ptr () -- data_ - -> m Int32 -- result -queueIndex _obj data_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_queue_index _obj' data_ - touchManagedPtr _obj - return result - -data QueueIndexMethodInfo -instance (signature ~ (Ptr () -> m Int32), MonadIO m) => MethodInfo QueueIndexMethodInfo Queue signature where - overloadedMethod _ = queueIndex - --- method Queue::init --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -queueInit _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_queue_init _obj' - touchManagedPtr _obj - return () - -data QueueInitMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo QueueInitMethodInfo Queue signature where - overloadedMethod _ = queueInit - --- method Queue::is_empty --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_queue_is_empty" g_queue_is_empty :: - Ptr Queue -> -- _obj : TInterface "GLib" "Queue" - IO CInt - - -queueIsEmpty :: - (MonadIO m) => - Queue -- _obj - -> m Bool -- result -queueIsEmpty _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_queue_is_empty _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data QueueIsEmptyMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo QueueIsEmptyMethodInfo Queue signature where - overloadedMethod _ = queueIsEmpty - --- method Queue::push_head --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_queue_push_head" g_queue_push_head :: - Ptr Queue -> -- _obj : TInterface "GLib" "Queue" - Ptr () -> -- data : TBasicType TPtr - IO () - - -queuePushHead :: - (MonadIO m) => - Queue -- _obj - -> Ptr () -- data_ - -> m () -- result -queuePushHead _obj data_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_queue_push_head _obj' data_ - touchManagedPtr _obj - return () - -data QueuePushHeadMethodInfo -instance (signature ~ (Ptr () -> m ()), MonadIO m) => MethodInfo QueuePushHeadMethodInfo Queue signature where - overloadedMethod _ = queuePushHead - --- method Queue::push_nth --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_queue_push_nth" g_queue_push_nth :: - Ptr Queue -> -- _obj : TInterface "GLib" "Queue" - Ptr () -> -- data : TBasicType TPtr - Int32 -> -- n : TBasicType TInt - IO () - - -queuePushNth :: - (MonadIO m) => - Queue -- _obj - -> Ptr () -- data_ - -> Int32 -- n - -> m () -- result -queuePushNth _obj data_ n = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_queue_push_nth _obj' data_ n - touchManagedPtr _obj - return () - -data QueuePushNthMethodInfo -instance (signature ~ (Ptr () -> Int32 -> m ()), MonadIO m) => MethodInfo QueuePushNthMethodInfo Queue signature where - overloadedMethod _ = queuePushNth - --- method Queue::push_tail --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_queue_push_tail" g_queue_push_tail :: - Ptr Queue -> -- _obj : TInterface "GLib" "Queue" - Ptr () -> -- data : TBasicType TPtr - IO () - - -queuePushTail :: - (MonadIO m) => - Queue -- _obj - -> Ptr () -- data_ - -> m () -- result -queuePushTail _obj data_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_queue_push_tail _obj' data_ - touchManagedPtr _obj - return () - -data QueuePushTailMethodInfo -instance (signature ~ (Ptr () -> m ()), MonadIO m) => MethodInfo QueuePushTailMethodInfo Queue signature where - overloadedMethod _ = queuePushTail - --- method Queue::remove --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TPtr - IO CInt - - -queueRemove :: - (MonadIO m) => - Queue -- _obj - -> Ptr () -- data_ - -> m Bool -- result -queueRemove _obj data_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_queue_remove _obj' data_ - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data QueueRemoveMethodInfo -instance (signature ~ (Ptr () -> m Bool), MonadIO m) => MethodInfo QueueRemoveMethodInfo Queue signature where - overloadedMethod _ = queueRemove - --- method Queue::remove_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- 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 TPtr - IO Word32 - - -queueRemoveAll :: - (MonadIO m) => - Queue -- _obj - -> Ptr () -- data_ - -> m Word32 -- result -queueRemoveAll _obj data_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_queue_remove_all _obj' data_ - touchManagedPtr _obj - return result - -data QueueRemoveAllMethodInfo -instance (signature ~ (Ptr () -> m Word32), MonadIO m) => MethodInfo QueueRemoveAllMethodInfo Queue signature where - overloadedMethod _ = queueRemoveAll - --- method Queue::reverse --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Queue", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -queueReverse _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_queue_reverse _obj' - touchManagedPtr _obj - return () - -data QueueReverseMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo QueueReverseMethodInfo Queue signature where - overloadedMethod _ = queueReverse - -type family ResolveQueueMethod (t :: Symbol) (o :: *) :: * where - ResolveQueueMethod "clear" o = QueueClearMethodInfo - ResolveQueueMethod "free" o = QueueFreeMethodInfo - ResolveQueueMethod "freeFull" o = QueueFreeFullMethodInfo - ResolveQueueMethod "index" o = QueueIndexMethodInfo - ResolveQueueMethod "init" o = QueueInitMethodInfo - ResolveQueueMethod "isEmpty" o = QueueIsEmptyMethodInfo - ResolveQueueMethod "pushHead" o = QueuePushHeadMethodInfo - ResolveQueueMethod "pushNth" o = QueuePushNthMethodInfo - ResolveQueueMethod "pushTail" o = QueuePushTailMethodInfo - ResolveQueueMethod "remove" o = QueueRemoveMethodInfo - ResolveQueueMethod "removeAll" o = QueueRemoveAllMethodInfo - ResolveQueueMethod "reverse" o = QueueReverseMethodInfo - ResolveQueueMethod "getLength" o = QueueGetLengthMethodInfo - ResolveQueueMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveQueueMethod t Queue, MethodInfo info Queue p) => IsLabelProxy t (Queue -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveQueueMethod t Queue, MethodInfo info Queue p) => IsLabel t (Queue -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,24 +0,0 @@ -module GI.GLib.Structs.Queue where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Queue = Queue (ForeignPtr Queue) -instance WrappedPtr Queue where -data QueueClearMethodInfo -data QueueFreeMethodInfo -data QueueFreeFullMethodInfo -data QueueGetLengthMethodInfo -data QueueIndexMethodInfo -data QueueInitMethodInfo -data QueueIsEmptyMethodInfo -data QueuePushHeadMethodInfo -data QueuePushNthMethodInfo -data QueuePushTailMethodInfo -data QueueRemoveMethodInfo -data QueueRemoveAllMethodInfo -data QueueReverseMethodInfo 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,394 +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(..) , - newZeroRWLock , - noRWLock , - - - -- * Methods --- ** rWLockClear - RWLockClearMethodInfo , - rWLockClear , - - --- ** rWLockInit - RWLockInitMethodInfo , - rWLockInit , - - --- ** rWLockReaderLock - RWLockReaderLockMethodInfo , - rWLockReaderLock , - - --- ** rWLockReaderTrylock - RWLockReaderTrylockMethodInfo , - rWLockReaderTrylock , - - --- ** rWLockReaderUnlock - RWLockReaderUnlockMethodInfo , - rWLockReaderUnlock , - - --- ** rWLockWriterLock - RWLockWriterLockMethodInfo , - rWLockWriterLock , - - --- ** rWLockWriterTrylock - RWLockWriterTrylockMethodInfo , - rWLockWriterTrylock , - - --- ** rWLockWriterUnlock - RWLockWriterUnlockMethodInfo , - rWLockWriterUnlock , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype RWLock = RWLock (ForeignPtr RWLock) -instance WrappedPtr RWLock where - wrappedPtrCalloc = callocBytes 16 - wrappedPtrCopy = copyPtr 16 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `RWLock` struct initialized to zero. -newZeroRWLock :: MonadIO m => m RWLock -newZeroRWLock = liftIO $ wrappedPtrCalloc >>= wrapPtr RWLock - -instance tag ~ 'AttrSet => Constructible RWLock tag where - new _ attrs = do - o <- newZeroRWLock - GI.Attributes.set o attrs - return o - - -noRWLock :: Maybe RWLock -noRWLock = Nothing - - -type instance AttributeList RWLock = RWLockAttributeList -type RWLockAttributeList = ('[ ] :: [(Symbol, *)]) - --- method RWLock::clear --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -rWLockClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_rw_lock_clear _obj' - touchManagedPtr _obj - return () - -data RWLockClearMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo RWLockClearMethodInfo RWLock signature where - overloadedMethod _ = rWLockClear - --- method RWLock::init --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -rWLockInit _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_rw_lock_init _obj' - touchManagedPtr _obj - return () - -data RWLockInitMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo RWLockInitMethodInfo RWLock signature where - overloadedMethod _ = rWLockInit - --- method RWLock::reader_lock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -rWLockReaderLock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_rw_lock_reader_lock _obj' - touchManagedPtr _obj - return () - -data RWLockReaderLockMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo RWLockReaderLockMethodInfo RWLock signature where - overloadedMethod _ = rWLockReaderLock - --- method RWLock::reader_trylock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_rw_lock_reader_trylock" g_rw_lock_reader_trylock :: - Ptr RWLock -> -- _obj : TInterface "GLib" "RWLock" - IO CInt - - -rWLockReaderTrylock :: - (MonadIO m) => - RWLock -- _obj - -> m Bool -- result -rWLockReaderTrylock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_rw_lock_reader_trylock _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data RWLockReaderTrylockMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo RWLockReaderTrylockMethodInfo RWLock signature where - overloadedMethod _ = rWLockReaderTrylock - --- method RWLock::reader_unlock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -rWLockReaderUnlock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_rw_lock_reader_unlock _obj' - touchManagedPtr _obj - return () - -data RWLockReaderUnlockMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo RWLockReaderUnlockMethodInfo RWLock signature where - overloadedMethod _ = rWLockReaderUnlock - --- method RWLock::writer_lock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -rWLockWriterLock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_rw_lock_writer_lock _obj' - touchManagedPtr _obj - return () - -data RWLockWriterLockMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo RWLockWriterLockMethodInfo RWLock signature where - overloadedMethod _ = rWLockWriterLock - --- method RWLock::writer_trylock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_rw_lock_writer_trylock" g_rw_lock_writer_trylock :: - Ptr RWLock -> -- _obj : TInterface "GLib" "RWLock" - IO CInt - - -rWLockWriterTrylock :: - (MonadIO m) => - RWLock -- _obj - -> m Bool -- result -rWLockWriterTrylock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_rw_lock_writer_trylock _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data RWLockWriterTrylockMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo RWLockWriterTrylockMethodInfo RWLock signature where - overloadedMethod _ = rWLockWriterTrylock - --- method RWLock::writer_unlock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "RWLock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -rWLockWriterUnlock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_rw_lock_writer_unlock _obj' - touchManagedPtr _obj - return () - -data RWLockWriterUnlockMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo RWLockWriterUnlockMethodInfo RWLock signature where - overloadedMethod _ = rWLockWriterUnlock - -type family ResolveRWLockMethod (t :: Symbol) (o :: *) :: * where - ResolveRWLockMethod "clear" o = RWLockClearMethodInfo - ResolveRWLockMethod "init" o = RWLockInitMethodInfo - ResolveRWLockMethod "readerLock" o = RWLockReaderLockMethodInfo - ResolveRWLockMethod "readerTrylock" o = RWLockReaderTrylockMethodInfo - ResolveRWLockMethod "readerUnlock" o = RWLockReaderUnlockMethodInfo - ResolveRWLockMethod "writerLock" o = RWLockWriterLockMethodInfo - ResolveRWLockMethod "writerTrylock" o = RWLockWriterTrylockMethodInfo - ResolveRWLockMethod "writerUnlock" o = RWLockWriterUnlockMethodInfo - ResolveRWLockMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRWLockMethod t RWLock, MethodInfo info RWLock p) => IsLabelProxy t (RWLock -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRWLockMethod t RWLock, MethodInfo info RWLock p) => IsLabel t (RWLock -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,19 +0,0 @@ -module GI.GLib.Structs.RWLock where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype RWLock = RWLock (ForeignPtr RWLock) -instance WrappedPtr RWLock where -data RWLockClearMethodInfo -data RWLockInitMethodInfo -data RWLockReaderLockMethodInfo -data RWLockReaderTrylockMethodInfo -data RWLockReaderUnlockMethodInfo -data RWLockWriterLockMethodInfo -data RWLockWriterTrylockMethodInfo -data RWLockWriterUnlockMethodInfo 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,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) - -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 - RandDoubleMethodInfo , - randDouble , - - --- ** randDoubleRange - RandDoubleRangeMethodInfo , - randDoubleRange , - - --- ** randFree - RandFreeMethodInfo , - randFree , - - --- ** randInt - RandIntMethodInfo , - randInt , - - --- ** randIntRange - RandIntRangeMethodInfo , - randIntRange , - - --- ** randSetSeed - RandSetSeedMethodInfo , - randSetSeed , - - --- ** randSetSeedArray - RandSetSeedArrayMethodInfo , - randSetSeedArray , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Rand = Rand (ForeignPtr Rand) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr Rand where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noRand :: Maybe Rand -noRand = Nothing - - -type instance AttributeList Rand = RandAttributeList -type RandAttributeList = ('[ ] :: [(Symbol, *)]) - --- method Rand::double --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TDouble) --- throws : False --- Skip return : False - -foreign import ccall "g_rand_double" g_rand_double :: - Ptr Rand -> -- _obj : TInterface "GLib" "Rand" - IO CDouble - - -randDouble :: - (MonadIO m) => - Rand -- _obj - -> m Double -- result -randDouble _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_rand_double _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data RandDoubleMethodInfo -instance (signature ~ (m Double), MonadIO m) => MethodInfo RandDoubleMethodInfo Rand signature where - overloadedMethod _ = randDouble - --- method Rand::double_range --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "begin", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TDouble) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data RandDoubleRangeMethodInfo -instance (signature ~ (Double -> Double -> m Double), MonadIO m) => MethodInfo RandDoubleRangeMethodInfo Rand signature where - overloadedMethod _ = randDoubleRange - --- method Rand::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -randFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_rand_free _obj' - touchManagedPtr _obj - return () - -data RandFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo RandFreeMethodInfo Rand signature where - overloadedMethod _ = randFree - --- method Rand::int --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt32) --- throws : False --- Skip return : False - -foreign import ccall "g_rand_int" g_rand_int :: - Ptr Rand -> -- _obj : TInterface "GLib" "Rand" - IO Word32 - - -randInt :: - (MonadIO m) => - Rand -- _obj - -> m Word32 -- result -randInt _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_rand_int _obj' - touchManagedPtr _obj - return result - -data RandIntMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo RandIntMethodInfo Rand signature where - overloadedMethod _ = randInt - --- method Rand::int_range --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "begin", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt32) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -randIntRange _obj begin end = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_rand_int_range _obj' begin end - touchManagedPtr _obj - return result - -data RandIntRangeMethodInfo -instance (signature ~ (Int32 -> Int32 -> m Int32), MonadIO m) => MethodInfo RandIntRangeMethodInfo Rand signature where - overloadedMethod _ = randIntRange - --- method Rand::set_seed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "seed", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 () -- result -randSetSeed _obj seed = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_rand_set_seed _obj' seed - touchManagedPtr _obj - return () - -data RandSetSeedMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m) => MethodInfo RandSetSeedMethodInfo Rand signature where - overloadedMethod _ = randSetSeed - --- method Rand::set_seed_array --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Rand", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "seed", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "seed_length", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_rand_set_seed_array" g_rand_set_seed_array :: - Ptr Rand -> -- _obj : TInterface "GLib" "Rand" - Word32 -> -- seed : TBasicType TUInt32 - Word32 -> -- seed_length : TBasicType TUInt - IO () - - -randSetSeedArray :: - (MonadIO m) => - Rand -- _obj - -> Word32 -- seed - -> Word32 -- seedLength - -> m () -- result -randSetSeedArray _obj seed seedLength = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_rand_set_seed_array _obj' seed seedLength - touchManagedPtr _obj - return () - -data RandSetSeedArrayMethodInfo -instance (signature ~ (Word32 -> Word32 -> m ()), MonadIO m) => MethodInfo RandSetSeedArrayMethodInfo Rand signature where - overloadedMethod _ = randSetSeedArray - -type family ResolveRandMethod (t :: Symbol) (o :: *) :: * where - ResolveRandMethod "double" o = RandDoubleMethodInfo - ResolveRandMethod "doubleRange" o = RandDoubleRangeMethodInfo - ResolveRandMethod "free" o = RandFreeMethodInfo - ResolveRandMethod "int" o = RandIntMethodInfo - ResolveRandMethod "intRange" o = RandIntRangeMethodInfo - ResolveRandMethod "setSeed" o = RandSetSeedMethodInfo - ResolveRandMethod "setSeedArray" o = RandSetSeedArrayMethodInfo - ResolveRandMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRandMethod t Rand, MethodInfo info Rand p) => IsLabelProxy t (Rand -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRandMethod t Rand, MethodInfo info Rand p) => IsLabel t (Rand -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,18 +0,0 @@ -module GI.GLib.Structs.Rand where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Rand = Rand (ForeignPtr Rand) -instance WrappedPtr Rand where -data RandDoubleMethodInfo -data RandDoubleRangeMethodInfo -data RandFreeMethodInfo -data RandIntMethodInfo -data RandIntRangeMethodInfo -data RandSetSeedMethodInfo -data RandSetSeedArrayMethodInfo 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,247 +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(..) , - newZeroRecMutex , - noRecMutex , - - - -- * Methods --- ** recMutexClear - RecMutexClearMethodInfo , - recMutexClear , - - --- ** recMutexInit - RecMutexInitMethodInfo , - recMutexInit , - - --- ** recMutexLock - RecMutexLockMethodInfo , - recMutexLock , - - --- ** recMutexTrylock - RecMutexTrylockMethodInfo , - recMutexTrylock , - - --- ** recMutexUnlock - RecMutexUnlockMethodInfo , - recMutexUnlock , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype RecMutex = RecMutex (ForeignPtr RecMutex) -instance WrappedPtr RecMutex where - wrappedPtrCalloc = callocBytes 16 - wrappedPtrCopy = copyPtr 16 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `RecMutex` struct initialized to zero. -newZeroRecMutex :: MonadIO m => m RecMutex -newZeroRecMutex = liftIO $ wrappedPtrCalloc >>= wrapPtr RecMutex - -instance tag ~ 'AttrSet => Constructible RecMutex tag where - new _ attrs = do - o <- newZeroRecMutex - GI.Attributes.set o attrs - return o - - -noRecMutex :: Maybe RecMutex -noRecMutex = Nothing - - -type instance AttributeList RecMutex = RecMutexAttributeList -type RecMutexAttributeList = ('[ ] :: [(Symbol, *)]) - --- method RecMutex::clear --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -recMutexClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_rec_mutex_clear _obj' - touchManagedPtr _obj - return () - -data RecMutexClearMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo RecMutexClearMethodInfo RecMutex signature where - overloadedMethod _ = recMutexClear - --- method RecMutex::init --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -recMutexInit _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_rec_mutex_init _obj' - touchManagedPtr _obj - return () - -data RecMutexInitMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo RecMutexInitMethodInfo RecMutex signature where - overloadedMethod _ = recMutexInit - --- method RecMutex::lock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -recMutexLock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_rec_mutex_lock _obj' - touchManagedPtr _obj - return () - -data RecMutexLockMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo RecMutexLockMethodInfo RecMutex signature where - overloadedMethod _ = recMutexLock - --- method RecMutex::trylock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_rec_mutex_trylock" g_rec_mutex_trylock :: - Ptr RecMutex -> -- _obj : TInterface "GLib" "RecMutex" - IO CInt - - -recMutexTrylock :: - (MonadIO m) => - RecMutex -- _obj - -> m Bool -- result -recMutexTrylock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_rec_mutex_trylock _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data RecMutexTrylockMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo RecMutexTrylockMethodInfo RecMutex signature where - overloadedMethod _ = recMutexTrylock - --- method RecMutex::unlock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "RecMutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -recMutexUnlock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_rec_mutex_unlock _obj' - touchManagedPtr _obj - return () - -data RecMutexUnlockMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo RecMutexUnlockMethodInfo RecMutex signature where - overloadedMethod _ = recMutexUnlock - -type family ResolveRecMutexMethod (t :: Symbol) (o :: *) :: * where - ResolveRecMutexMethod "clear" o = RecMutexClearMethodInfo - ResolveRecMutexMethod "init" o = RecMutexInitMethodInfo - ResolveRecMutexMethod "lock" o = RecMutexLockMethodInfo - ResolveRecMutexMethod "trylock" o = RecMutexTrylockMethodInfo - ResolveRecMutexMethod "unlock" o = RecMutexUnlockMethodInfo - ResolveRecMutexMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRecMutexMethod t RecMutex, MethodInfo info RecMutex p) => IsLabelProxy t (RecMutex -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRecMutexMethod t RecMutex, MethodInfo info RecMutex p) => IsLabel t (RecMutex -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,16 +0,0 @@ -module GI.GLib.Structs.RecMutex where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype RecMutex = RecMutex (ForeignPtr RecMutex) -instance WrappedPtr RecMutex where -data RecMutexClearMethodInfo -data RecMutexInitMethodInfo -data RecMutexLockMethodInfo -data RecMutexTrylockMethodInfo -data RecMutexUnlockMethodInfo 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,1134 +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 --- ** regexCheckReplacement - regexCheckReplacement , - - --- ** regexErrorQuark - regexErrorQuark , - - --- ** regexEscapeNul - regexEscapeNul , - - --- ** regexEscapeString - regexEscapeString , - - --- ** regexGetCaptureCount - RegexGetCaptureCountMethodInfo , - regexGetCaptureCount , - - --- ** regexGetCompileFlags - RegexGetCompileFlagsMethodInfo , - regexGetCompileFlags , - - --- ** regexGetHasCrOrLf - RegexGetHasCrOrLfMethodInfo , - regexGetHasCrOrLf , - - --- ** regexGetMatchFlags - RegexGetMatchFlagsMethodInfo , - regexGetMatchFlags , - - --- ** regexGetMaxBackref - RegexGetMaxBackrefMethodInfo , - regexGetMaxBackref , - - --- ** regexGetMaxLookbehind - RegexGetMaxLookbehindMethodInfo , - regexGetMaxLookbehind , - - --- ** regexGetPattern - RegexGetPatternMethodInfo , - regexGetPattern , - - --- ** regexGetStringNumber - RegexGetStringNumberMethodInfo , - regexGetStringNumber , - - --- ** regexMatch - RegexMatchMethodInfo , - regexMatch , - - --- ** regexMatchAll - RegexMatchAllMethodInfo , - regexMatchAll , - - --- ** regexMatchAllFull - RegexMatchAllFullMethodInfo , - regexMatchAllFull , - - --- ** regexMatchFull - RegexMatchFullMethodInfo , - regexMatchFull , - - --- ** regexMatchSimple - regexMatchSimple , - - --- ** regexNew - regexNew , - - --- ** regexRef - RegexRefMethodInfo , - regexRef , - - --- ** regexReplace - RegexReplaceMethodInfo , - regexReplace , - - --- ** regexReplaceLiteral - RegexReplaceLiteralMethodInfo , - regexReplaceLiteral , - - --- ** regexSplit - RegexSplitMethodInfo , - regexSplit , - - --- ** regexSplitFull - RegexSplitFullMethodInfo , - regexSplitFull , - - --- ** regexSplitSimple - regexSplitSimple , - - --- ** regexUnref - RegexUnrefMethodInfo , - regexUnref , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.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 - - -type instance AttributeList Regex = RegexAttributeList -type RegexAttributeList = ('[ ] :: [(Symbol, *)]) - --- method Regex::new --- method type : Constructor --- Args : [Arg {argCName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "compile_options", argType = TInterface "GLib" "RegexCompileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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] -- compileOptions - -> [RegexMatchFlags] -- matchOptions - -> m Regex -- result -regexNew pattern compileOptions matchOptions = liftIO $ do - pattern' <- textToCString pattern - let compileOptions' = gflagsToWord compileOptions - let matchOptions' = gflagsToWord matchOptions - onException (do - result <- propagateGError $ g_regex_new pattern' compileOptions' matchOptions' - 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 {argCName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_regex_get_capture_count" g_regex_get_capture_count :: - Ptr Regex -> -- _obj : TInterface "GLib" "Regex" - IO Int32 - - -regexGetCaptureCount :: - (MonadIO m) => - Regex -- _obj - -> m Int32 -- result -regexGetCaptureCount _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_regex_get_capture_count _obj' - touchManagedPtr _obj - return result - -data RegexGetCaptureCountMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo RegexGetCaptureCountMethodInfo Regex signature where - overloadedMethod _ = regexGetCaptureCount - --- method Regex::get_compile_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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] -- result -regexGetCompileFlags _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_regex_get_compile_flags _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data RegexGetCompileFlagsMethodInfo -instance (signature ~ (m [RegexCompileFlags]), MonadIO m) => MethodInfo RegexGetCompileFlagsMethodInfo Regex signature where - overloadedMethod _ = regexGetCompileFlags - --- method Regex::get_has_cr_or_lf --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data RegexGetHasCrOrLfMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo RegexGetHasCrOrLfMethodInfo Regex signature where - overloadedMethod _ = regexGetHasCrOrLf - --- method Regex::get_match_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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] -- result -regexGetMatchFlags _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_regex_get_match_flags _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data RegexGetMatchFlagsMethodInfo -instance (signature ~ (m [RegexMatchFlags]), MonadIO m) => MethodInfo RegexGetMatchFlagsMethodInfo Regex signature where - overloadedMethod _ = regexGetMatchFlags - --- method Regex::get_max_backref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_regex_get_max_backref" g_regex_get_max_backref :: - Ptr Regex -> -- _obj : TInterface "GLib" "Regex" - IO Int32 - - -regexGetMaxBackref :: - (MonadIO m) => - Regex -- _obj - -> m Int32 -- result -regexGetMaxBackref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_regex_get_max_backref _obj' - touchManagedPtr _obj - return result - -data RegexGetMaxBackrefMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo RegexGetMaxBackrefMethodInfo Regex signature where - overloadedMethod _ = regexGetMaxBackref - --- method Regex::get_max_lookbehind --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_regex_get_max_lookbehind" g_regex_get_max_lookbehind :: - Ptr Regex -> -- _obj : TInterface "GLib" "Regex" - IO Int32 - - -regexGetMaxLookbehind :: - (MonadIO m) => - Regex -- _obj - -> m Int32 -- result -regexGetMaxLookbehind _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_regex_get_max_lookbehind _obj' - touchManagedPtr _obj - return result - -data RegexGetMaxLookbehindMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo RegexGetMaxLookbehindMethodInfo Regex signature where - overloadedMethod _ = regexGetMaxLookbehind - --- method Regex::get_pattern --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_regex_get_pattern" g_regex_get_pattern :: - Ptr Regex -> -- _obj : TInterface "GLib" "Regex" - IO CString - - -regexGetPattern :: - (MonadIO m) => - Regex -- _obj - -> m T.Text -- result -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' - -data RegexGetPatternMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo RegexGetPatternMethodInfo Regex signature where - overloadedMethod _ = regexGetPattern - --- method Regex::get_string_number --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- 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 -- result -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 - -data RegexGetStringNumberMethodInfo -instance (signature ~ (T.Text -> m Int32), MonadIO m) => MethodInfo RegexGetStringNumberMethodInfo Regex signature where - overloadedMethod _ = regexGetStringNumber - --- method Regex::match --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_info", argType = TInterface "GLib" "MatchInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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] -- matchOptions - -> m (Bool,MatchInfo) -- result -regexMatch _obj string matchOptions = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - string' <- textToCString string - let matchOptions' = gflagsToWord matchOptions - matchInfo <- allocMem :: IO (Ptr (Ptr MatchInfo)) - result <- g_regex_match _obj' string' matchOptions' matchInfo - let result' = (/= 0) result - matchInfo' <- peek matchInfo - matchInfo'' <- (wrapBoxed MatchInfo) matchInfo' - touchManagedPtr _obj - freeMem string' - freeMem matchInfo - return (result', matchInfo'') - -data RegexMatchMethodInfo -instance (signature ~ (T.Text -> [RegexMatchFlags] -> m (Bool,MatchInfo)), MonadIO m) => MethodInfo RegexMatchMethodInfo Regex signature where - overloadedMethod _ = regexMatch - --- method Regex::match_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_info", argType = TInterface "GLib" "MatchInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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] -- matchOptions - -> m (Bool,MatchInfo) -- result -regexMatchAll _obj string matchOptions = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - string' <- textToCString string - let matchOptions' = gflagsToWord matchOptions - matchInfo <- allocMem :: IO (Ptr (Ptr MatchInfo)) - result <- g_regex_match_all _obj' string' matchOptions' matchInfo - let result' = (/= 0) result - matchInfo' <- peek matchInfo - matchInfo'' <- (wrapBoxed MatchInfo) matchInfo' - touchManagedPtr _obj - freeMem string' - freeMem matchInfo - return (result', matchInfo'') - -data RegexMatchAllMethodInfo -instance (signature ~ (T.Text -> [RegexMatchFlags] -> m (Bool,MatchInfo)), MonadIO m) => MethodInfo RegexMatchAllMethodInfo Regex signature where - overloadedMethod _ = regexMatchAll - --- method Regex::match_all_full --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_info", argType = TInterface "GLib" "MatchInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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 TInt - 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 -- startPosition - -> [RegexMatchFlags] -- matchOptions - -> m (MatchInfo) -- result -regexMatchAllFull _obj string startPosition matchOptions = liftIO $ do - let stringLen = fromIntegral $ length string - let _obj' = unsafeManagedPtrGetPtr _obj - string' <- packUTF8CArray string - let matchOptions' = gflagsToWord matchOptions - matchInfo <- allocMem :: IO (Ptr (Ptr MatchInfo)) - onException (do - _ <- propagateGError $ g_regex_match_all_full _obj' string' stringLen startPosition matchOptions' matchInfo - matchInfo' <- peek matchInfo - matchInfo'' <- (wrapBoxed MatchInfo) matchInfo' - touchManagedPtr _obj - (mapCArrayWithLength stringLen) freeMem string' - freeMem string' - freeMem matchInfo - return matchInfo'' - ) (do - (mapCArrayWithLength stringLen) freeMem string' - freeMem string' - freeMem matchInfo - ) - -data RegexMatchAllFullMethodInfo -instance (signature ~ ([T.Text] -> Int32 -> [RegexMatchFlags] -> m (MatchInfo)), MonadIO m) => MethodInfo RegexMatchAllFullMethodInfo Regex signature where - overloadedMethod _ = regexMatchAllFull - --- method Regex::match_full --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_info", argType = TInterface "GLib" "MatchInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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 TInt - 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 -- startPosition - -> [RegexMatchFlags] -- matchOptions - -> m (MatchInfo) -- result -regexMatchFull _obj string startPosition matchOptions = liftIO $ do - let stringLen = fromIntegral $ length string - let _obj' = unsafeManagedPtrGetPtr _obj - string' <- packUTF8CArray string - let matchOptions' = gflagsToWord matchOptions - matchInfo <- allocMem :: IO (Ptr (Ptr MatchInfo)) - onException (do - _ <- propagateGError $ g_regex_match_full _obj' string' stringLen startPosition matchOptions' matchInfo - matchInfo' <- peek matchInfo - matchInfo'' <- (wrapBoxed MatchInfo) matchInfo' - touchManagedPtr _obj - (mapCArrayWithLength stringLen) freeMem string' - freeMem string' - freeMem matchInfo - return matchInfo'' - ) (do - (mapCArrayWithLength stringLen) freeMem string' - freeMem string' - freeMem matchInfo - ) - -data RegexMatchFullMethodInfo -instance (signature ~ ([T.Text] -> Int32 -> [RegexMatchFlags] -> m (MatchInfo)), MonadIO m) => MethodInfo RegexMatchFullMethodInfo Regex signature where - overloadedMethod _ = regexMatchFull - --- method Regex::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data RegexRefMethodInfo -instance (signature ~ (m Regex), MonadIO m) => MethodInfo RegexRefMethodInfo Regex signature where - overloadedMethod _ = regexRef - --- method Regex::replace --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (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 TInt - 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 -- startPosition - -> T.Text -- replacement - -> [RegexMatchFlags] -- matchOptions - -> m T.Text -- result -regexReplace _obj string startPosition replacement matchOptions = liftIO $ do - let stringLen = fromIntegral $ length string - let _obj' = unsafeManagedPtrGetPtr _obj - string' <- packUTF8CArray string - replacement' <- textToCString replacement - let matchOptions' = gflagsToWord matchOptions - onException (do - result <- propagateGError $ g_regex_replace _obj' string' stringLen startPosition replacement' matchOptions' - checkUnexpectedReturnNULL "g_regex_replace" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - (mapCArrayWithLength stringLen) freeMem string' - freeMem string' - freeMem replacement' - return result' - ) (do - (mapCArrayWithLength stringLen) freeMem string' - freeMem string' - freeMem replacement' - ) - -data RegexReplaceMethodInfo -instance (signature ~ ([T.Text] -> Int32 -> T.Text -> [RegexMatchFlags] -> m T.Text), MonadIO m) => MethodInfo RegexReplaceMethodInfo Regex signature where - overloadedMethod _ = regexReplace - --- method Regex::replace_literal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (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 TInt - 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 -- startPosition - -> T.Text -- replacement - -> [RegexMatchFlags] -- matchOptions - -> m T.Text -- result -regexReplaceLiteral _obj string startPosition replacement matchOptions = liftIO $ do - let stringLen = fromIntegral $ length string - let _obj' = unsafeManagedPtrGetPtr _obj - string' <- packUTF8CArray string - replacement' <- textToCString replacement - let matchOptions' = gflagsToWord matchOptions - onException (do - result <- propagateGError $ g_regex_replace_literal _obj' string' stringLen startPosition replacement' matchOptions' - checkUnexpectedReturnNULL "g_regex_replace_literal" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - (mapCArrayWithLength stringLen) freeMem string' - freeMem string' - freeMem replacement' - return result' - ) (do - (mapCArrayWithLength stringLen) freeMem string' - freeMem string' - freeMem replacement' - ) - -data RegexReplaceLiteralMethodInfo -instance (signature ~ ([T.Text] -> Int32 -> T.Text -> [RegexMatchFlags] -> m T.Text), MonadIO m) => MethodInfo RegexReplaceLiteralMethodInfo Regex signature where - overloadedMethod _ = regexReplaceLiteral - --- method Regex::split --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "g_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] -- matchOptions - -> m [T.Text] -- result -regexSplit _obj string matchOptions = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - string' <- textToCString string - let matchOptions' = gflagsToWord matchOptions - result <- g_regex_split _obj' string' matchOptions' - checkUnexpectedReturnNULL "g_regex_split" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - touchManagedPtr _obj - freeMem string' - return result' - -data RegexSplitMethodInfo -instance (signature ~ (T.Text -> [RegexMatchFlags] -> m [T.Text]), MonadIO m) => MethodInfo RegexSplitMethodInfo Regex signature where - overloadedMethod _ = regexSplit - --- method Regex::split_full --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_tokens", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "string_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (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 TInt - CUInt -> -- match_options : TInterface "GLib" "RegexMatchFlags" - Int32 -> -- max_tokens : TBasicType TInt - Ptr (Ptr GError) -> -- error - IO (Ptr CString) - - -regexSplitFull :: - (MonadIO m) => - Regex -- _obj - -> [T.Text] -- string - -> Int32 -- startPosition - -> [RegexMatchFlags] -- matchOptions - -> Int32 -- maxTokens - -> m [T.Text] -- result -regexSplitFull _obj string startPosition matchOptions maxTokens = liftIO $ do - let stringLen = fromIntegral $ length string - let _obj' = unsafeManagedPtrGetPtr _obj - string' <- packUTF8CArray string - let matchOptions' = gflagsToWord matchOptions - onException (do - result <- propagateGError $ g_regex_split_full _obj' string' stringLen startPosition matchOptions' maxTokens - checkUnexpectedReturnNULL "g_regex_split_full" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - touchManagedPtr _obj - (mapCArrayWithLength stringLen) freeMem string' - freeMem string' - return result' - ) (do - (mapCArrayWithLength stringLen) freeMem string' - freeMem string' - ) - -data RegexSplitFullMethodInfo -instance (signature ~ ([T.Text] -> Int32 -> [RegexMatchFlags] -> Int32 -> m [T.Text]), MonadIO m) => MethodInfo RegexSplitFullMethodInfo Regex signature where - overloadedMethod _ = regexSplitFull - --- method Regex::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Regex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -regexUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_regex_unref _obj' - touchManagedPtr _obj - return () - -data RegexUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo RegexUnrefMethodInfo Regex signature where - overloadedMethod _ = regexUnref - --- method Regex::check_replacement --- method type : MemberFunction --- Args : [Arg {argCName = "replacement", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_references", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_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) -- result -regexCheckReplacement replacement = liftIO $ do - replacement' <- textToCString replacement - hasReferences <- allocMem :: IO (Ptr CInt) - onException (do - _ <- propagateGError $ g_regex_check_replacement replacement' hasReferences - hasReferences' <- peek hasReferences - let hasReferences'' = (/= 0) hasReferences' - freeMem replacement' - freeMem hasReferences - return hasReferences'' - ) (do - freeMem replacement' - freeMem hasReferences - ) - --- method Regex::error_quark --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -regexErrorQuark = liftIO $ do - result <- g_regex_error_quark - return result - --- method Regex::escape_nul --- method type : MemberFunction --- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_regex_escape_nul" g_regex_escape_nul :: - CString -> -- string : TBasicType TUTF8 - Int32 -> -- length : TBasicType TInt - IO CString - - -regexEscapeNul :: - (MonadIO m) => - T.Text -- string - -> Int32 -- length_ - -> m T.Text -- result -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' - --- method Regex::escape_string --- method type : MemberFunction --- Args : [Arg {argCName = "string", argType = TCArray False (-1) 1 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_regex_escape_string" g_regex_escape_string :: - Ptr CString -> -- string : TCArray False (-1) 1 (TBasicType TUTF8) - Int32 -> -- length : TBasicType TInt - IO CString - - -regexEscapeString :: - (MonadIO m) => - [T.Text] -- string - -> m T.Text -- result -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' - --- method Regex::match_simple --- method type : MemberFunction --- Args : [Arg {argCName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "compile_options", argType = TInterface "GLib" "RegexCompileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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] -- compileOptions - -> [RegexMatchFlags] -- matchOptions - -> m Bool -- result -regexMatchSimple pattern string compileOptions matchOptions = liftIO $ do - pattern' <- textToCString pattern - string' <- textToCString string - let compileOptions' = gflagsToWord compileOptions - let matchOptions' = gflagsToWord matchOptions - result <- g_regex_match_simple pattern' string' compileOptions' matchOptions' - let result' = (/= 0) result - freeMem pattern' - freeMem string' - return result' - --- method Regex::split_simple --- method type : MemberFunction --- Args : [Arg {argCName = "pattern", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "compile_options", argType = TInterface "GLib" "RegexCompileFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "match_options", argType = TInterface "GLib" "RegexMatchFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "g_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] -- compileOptions - -> [RegexMatchFlags] -- matchOptions - -> m [T.Text] -- result -regexSplitSimple pattern string compileOptions matchOptions = liftIO $ do - pattern' <- textToCString pattern - string' <- textToCString string - let compileOptions' = gflagsToWord compileOptions - let matchOptions' = gflagsToWord matchOptions - result <- g_regex_split_simple pattern' string' compileOptions' matchOptions' - checkUnexpectedReturnNULL "g_regex_split_simple" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - freeMem pattern' - freeMem string' - return result' - -type family ResolveRegexMethod (t :: Symbol) (o :: *) :: * where - ResolveRegexMethod "match" o = RegexMatchMethodInfo - ResolveRegexMethod "matchAll" o = RegexMatchAllMethodInfo - ResolveRegexMethod "matchAllFull" o = RegexMatchAllFullMethodInfo - ResolveRegexMethod "matchFull" o = RegexMatchFullMethodInfo - ResolveRegexMethod "ref" o = RegexRefMethodInfo - ResolveRegexMethod "replace" o = RegexReplaceMethodInfo - ResolveRegexMethod "replaceLiteral" o = RegexReplaceLiteralMethodInfo - ResolveRegexMethod "split" o = RegexSplitMethodInfo - ResolveRegexMethod "splitFull" o = RegexSplitFullMethodInfo - ResolveRegexMethod "unref" o = RegexUnrefMethodInfo - ResolveRegexMethod "getCaptureCount" o = RegexGetCaptureCountMethodInfo - ResolveRegexMethod "getCompileFlags" o = RegexGetCompileFlagsMethodInfo - ResolveRegexMethod "getHasCrOrLf" o = RegexGetHasCrOrLfMethodInfo - ResolveRegexMethod "getMatchFlags" o = RegexGetMatchFlagsMethodInfo - ResolveRegexMethod "getMaxBackref" o = RegexGetMaxBackrefMethodInfo - ResolveRegexMethod "getMaxLookbehind" o = RegexGetMaxLookbehindMethodInfo - ResolveRegexMethod "getPattern" o = RegexGetPatternMethodInfo - ResolveRegexMethod "getStringNumber" o = RegexGetStringNumberMethodInfo - ResolveRegexMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRegexMethod t Regex, MethodInfo info Regex p) => IsLabelProxy t (Regex -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRegexMethod t Regex, MethodInfo info Regex p) => IsLabel t (Regex -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,29 +0,0 @@ -module GI.GLib.Structs.Regex where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Regex = Regex (ForeignPtr Regex) -instance BoxedObject Regex where -data RegexGetCaptureCountMethodInfo -data RegexGetCompileFlagsMethodInfo -data RegexGetHasCrOrLfMethodInfo -data RegexGetMatchFlagsMethodInfo -data RegexGetMaxBackrefMethodInfo -data RegexGetMaxLookbehindMethodInfo -data RegexGetPatternMethodInfo -data RegexGetStringNumberMethodInfo -data RegexMatchMethodInfo -data RegexMatchAllMethodInfo -data RegexMatchAllFullMethodInfo -data RegexMatchFullMethodInfo -data RegexRefMethodInfo -data RegexReplaceMethodInfo -data RegexReplaceLiteralMethodInfo -data RegexSplitMethodInfo -data RegexSplitFullMethodInfo -data RegexUnrefMethodInfo 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,1081 +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(..) , - newZeroScanner , - noScanner , - - - -- * Methods --- ** scannerCurLine - ScannerCurLineMethodInfo , - scannerCurLine , - - --- ** scannerCurPosition - ScannerCurPositionMethodInfo , - scannerCurPosition , - - --- ** scannerCurToken - ScannerCurTokenMethodInfo , - scannerCurToken , - - --- ** scannerDestroy - ScannerDestroyMethodInfo , - scannerDestroy , - - --- ** scannerEof - ScannerEofMethodInfo , - scannerEof , - - --- ** scannerGetNextToken - ScannerGetNextTokenMethodInfo , - scannerGetNextToken , - - --- ** scannerInputFile - ScannerInputFileMethodInfo , - scannerInputFile , - - --- ** scannerInputText - ScannerInputTextMethodInfo , - scannerInputText , - - --- ** scannerPeekNextToken - ScannerPeekNextTokenMethodInfo , - scannerPeekNextToken , - - --- ** scannerScopeAddSymbol - ScannerScopeAddSymbolMethodInfo , - scannerScopeAddSymbol , - - --- ** scannerScopeRemoveSymbol - ScannerScopeRemoveSymbolMethodInfo , - scannerScopeRemoveSymbol , - - --- ** scannerSetScope - ScannerSetScopeMethodInfo , - scannerSetScope , - - --- ** scannerSyncFileOffset - ScannerSyncFileOffsetMethodInfo , - scannerSyncFileOffset , - - --- ** scannerUnexpToken - ScannerUnexpTokenMethodInfo , - scannerUnexpToken , - - - - - -- * Properties --- ** Config - scannerClearConfig , - scannerConfig , - scannerReadConfig , - scannerWriteConfig , - - --- ** InputName - scannerClearInputName , - scannerInputName , - scannerReadInputName , - scannerWriteInputName , - - --- ** Line - scannerLine , - scannerReadLine , - scannerWriteLine , - - --- ** MaxParseErrors - scannerMaxParseErrors , - scannerReadMaxParseErrors , - scannerWriteMaxParseErrors , - - --- ** NextLine - scannerNextLine , - scannerReadNextLine , - scannerWriteNextLine , - - --- ** NextPosition - scannerNextPosition , - scannerReadNextPosition , - scannerWriteNextPosition , - - --- ** NextToken - scannerNextToken , - scannerReadNextToken , - scannerWriteNextToken , - - --- ** NextValue - scannerClearNextValue , - scannerNextValue , - scannerReadNextValue , - scannerWriteNextValue , - - --- ** ParseErrors - scannerParseErrors , - scannerReadParseErrors , - scannerWriteParseErrors , - - --- ** Position - scannerPosition , - scannerReadPosition , - scannerWritePosition , - - --- ** Qdata - scannerClearQdata , - scannerQdata , - scannerReadQdata , - scannerWriteQdata , - - --- ** Token - scannerReadToken , - scannerToken , - scannerWriteToken , - - --- ** UserData - scannerClearUserData , - scannerReadUserData , - scannerUserData , - scannerWriteUserData , - - --- ** Value - scannerClearValue , - scannerReadValue , - scannerValue , - scannerWriteValue , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Scanner = Scanner (ForeignPtr Scanner) -instance WrappedPtr Scanner where - wrappedPtrCalloc = callocBytes 144 - wrappedPtrCopy = copyPtr 144 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `Scanner` struct initialized to zero. -newZeroScanner :: MonadIO m => m Scanner -newZeroScanner = liftIO $ wrappedPtrCalloc >>= wrapPtr Scanner - -instance tag ~ 'AttrSet => Constructible Scanner tag where - new _ attrs = do - o <- newZeroScanner - GI.Attributes.set o attrs - return o - - -noScanner :: Maybe Scanner -noScanner = Nothing - -scannerReadUserData :: MonadIO m => Scanner -> m (Ptr ()) -scannerReadUserData s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr ()) - return val - -scannerWriteUserData :: MonadIO m => Scanner -> Ptr () -> m () -scannerWriteUserData s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr ()) - -scannerClearUserData :: MonadIO m => Scanner -> m () -scannerClearUserData s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr ()) - -data ScannerUserDataFieldInfo -instance AttrInfo ScannerUserDataFieldInfo where - type AttrAllowedOps ScannerUserDataFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ScannerUserDataFieldInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint ScannerUserDataFieldInfo = (~) Scanner - type AttrGetType ScannerUserDataFieldInfo = Ptr () - type AttrLabel ScannerUserDataFieldInfo = "user_data" - attrGet _ = scannerReadUserData - attrSet _ = scannerWriteUserData - attrConstruct = undefined - attrClear _ = scannerClearUserData - -scannerUserData :: AttrLabelProxy "userData" -scannerUserData = AttrLabelProxy - - -scannerReadMaxParseErrors :: MonadIO m => Scanner -> m Word32 -scannerReadMaxParseErrors s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word32 - return val - -scannerWriteMaxParseErrors :: MonadIO m => Scanner -> Word32 -> m () -scannerWriteMaxParseErrors s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Word32) - -data ScannerMaxParseErrorsFieldInfo -instance AttrInfo ScannerMaxParseErrorsFieldInfo where - type AttrAllowedOps ScannerMaxParseErrorsFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerMaxParseErrorsFieldInfo = (~) Word32 - type AttrBaseTypeConstraint ScannerMaxParseErrorsFieldInfo = (~) Scanner - type AttrGetType ScannerMaxParseErrorsFieldInfo = Word32 - type AttrLabel ScannerMaxParseErrorsFieldInfo = "max_parse_errors" - attrGet _ = scannerReadMaxParseErrors - attrSet _ = scannerWriteMaxParseErrors - attrConstruct = undefined - attrClear _ = undefined - -scannerMaxParseErrors :: AttrLabelProxy "maxParseErrors" -scannerMaxParseErrors = AttrLabelProxy - - -scannerReadParseErrors :: MonadIO m => Scanner -> m Word32 -scannerReadParseErrors s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Word32 - return val - -scannerWriteParseErrors :: MonadIO m => Scanner -> Word32 -> m () -scannerWriteParseErrors s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 12) (val :: Word32) - -data ScannerParseErrorsFieldInfo -instance AttrInfo ScannerParseErrorsFieldInfo where - type AttrAllowedOps ScannerParseErrorsFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerParseErrorsFieldInfo = (~) Word32 - type AttrBaseTypeConstraint ScannerParseErrorsFieldInfo = (~) Scanner - type AttrGetType ScannerParseErrorsFieldInfo = Word32 - type AttrLabel ScannerParseErrorsFieldInfo = "parse_errors" - attrGet _ = scannerReadParseErrors - attrSet _ = scannerWriteParseErrors - attrConstruct = undefined - attrClear _ = undefined - -scannerParseErrors :: AttrLabelProxy "parseErrors" -scannerParseErrors = AttrLabelProxy - - -scannerReadInputName :: MonadIO m => Scanner -> m (Maybe T.Text) -scannerReadInputName s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -scannerWriteInputName :: MonadIO m => Scanner -> CString -> m () -scannerWriteInputName s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: CString) - -scannerClearInputName :: MonadIO m => Scanner -> m () -scannerClearInputName s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: CString) - -data ScannerInputNameFieldInfo -instance AttrInfo ScannerInputNameFieldInfo where - type AttrAllowedOps ScannerInputNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ScannerInputNameFieldInfo = (~) CString - type AttrBaseTypeConstraint ScannerInputNameFieldInfo = (~) Scanner - type AttrGetType ScannerInputNameFieldInfo = Maybe T.Text - type AttrLabel ScannerInputNameFieldInfo = "input_name" - attrGet _ = scannerReadInputName - attrSet _ = scannerWriteInputName - attrConstruct = undefined - attrClear _ = scannerClearInputName - -scannerInputName :: AttrLabelProxy "inputName" -scannerInputName = AttrLabelProxy - - -scannerReadQdata :: MonadIO m => Scanner -> m (Maybe Data) -scannerReadQdata s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO (Ptr Data) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr Data) val' - return val'' - return result - -scannerWriteQdata :: MonadIO m => Scanner -> Ptr Data -> m () -scannerWriteQdata s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Ptr Data) - -scannerClearQdata :: MonadIO m => Scanner -> m () -scannerClearQdata s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: Ptr Data) - -data ScannerQdataFieldInfo -instance AttrInfo ScannerQdataFieldInfo where - type AttrAllowedOps ScannerQdataFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ScannerQdataFieldInfo = (~) (Ptr Data) - type AttrBaseTypeConstraint ScannerQdataFieldInfo = (~) Scanner - type AttrGetType ScannerQdataFieldInfo = Maybe Data - type AttrLabel ScannerQdataFieldInfo = "qdata" - attrGet _ = scannerReadQdata - attrSet _ = scannerWriteQdata - attrConstruct = undefined - attrClear _ = scannerClearQdata - -scannerQdata :: AttrLabelProxy "qdata" -scannerQdata = AttrLabelProxy - - -scannerReadConfig :: MonadIO m => Scanner -> m (Maybe ScannerConfig) -scannerReadConfig s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO (Ptr ScannerConfig) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr ScannerConfig) val' - return val'' - return result - -scannerWriteConfig :: MonadIO m => Scanner -> Ptr ScannerConfig -> m () -scannerWriteConfig s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: Ptr ScannerConfig) - -scannerClearConfig :: MonadIO m => Scanner -> m () -scannerClearConfig s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (nullPtr :: Ptr ScannerConfig) - -data ScannerConfigFieldInfo -instance AttrInfo ScannerConfigFieldInfo where - type AttrAllowedOps ScannerConfigFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ScannerConfigFieldInfo = (~) (Ptr ScannerConfig) - type AttrBaseTypeConstraint ScannerConfigFieldInfo = (~) Scanner - type AttrGetType ScannerConfigFieldInfo = Maybe ScannerConfig - type AttrLabel ScannerConfigFieldInfo = "config" - attrGet _ = scannerReadConfig - attrSet _ = scannerWriteConfig - attrConstruct = undefined - attrClear _ = scannerClearConfig - -scannerConfig :: AttrLabelProxy "config" -scannerConfig = AttrLabelProxy - - -scannerReadToken :: MonadIO m => Scanner -> m TokenType -scannerReadToken s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -scannerWriteToken :: MonadIO m => Scanner -> TokenType -> m () -scannerWriteToken s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 40) (val' :: CUInt) - -data ScannerTokenFieldInfo -instance AttrInfo ScannerTokenFieldInfo where - type AttrAllowedOps ScannerTokenFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerTokenFieldInfo = (~) TokenType - type AttrBaseTypeConstraint ScannerTokenFieldInfo = (~) Scanner - type AttrGetType ScannerTokenFieldInfo = TokenType - type AttrLabel ScannerTokenFieldInfo = "token" - attrGet _ = scannerReadToken - attrSet _ = scannerWriteToken - attrConstruct = undefined - attrClear _ = undefined - -scannerToken :: AttrLabelProxy "token" -scannerToken = AttrLabelProxy - - -scannerReadValue :: MonadIO m => Scanner -> m (Maybe TokenValue) -scannerReadValue s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO (Ptr TokenValue) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr TokenValue) val' - return val'' - return result - -scannerWriteValue :: MonadIO m => Scanner -> Ptr TokenValue -> m () -scannerWriteValue s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 48) (val :: Ptr TokenValue) - -scannerClearValue :: MonadIO m => Scanner -> m () -scannerClearValue s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 48) (nullPtr :: Ptr TokenValue) - -data ScannerValueFieldInfo -instance AttrInfo ScannerValueFieldInfo where - type AttrAllowedOps ScannerValueFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ScannerValueFieldInfo = (~) (Ptr TokenValue) - type AttrBaseTypeConstraint ScannerValueFieldInfo = (~) Scanner - type AttrGetType ScannerValueFieldInfo = Maybe TokenValue - type AttrLabel ScannerValueFieldInfo = "value" - attrGet _ = scannerReadValue - attrSet _ = scannerWriteValue - attrConstruct = undefined - attrClear _ = scannerClearValue - -scannerValue :: AttrLabelProxy "value" -scannerValue = AttrLabelProxy - - -scannerReadLine :: MonadIO m => Scanner -> m Word32 -scannerReadLine s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 56) :: IO Word32 - return val - -scannerWriteLine :: MonadIO m => Scanner -> Word32 -> m () -scannerWriteLine s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 56) (val :: Word32) - -data ScannerLineFieldInfo -instance AttrInfo ScannerLineFieldInfo where - type AttrAllowedOps ScannerLineFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerLineFieldInfo = (~) Word32 - type AttrBaseTypeConstraint ScannerLineFieldInfo = (~) Scanner - type AttrGetType ScannerLineFieldInfo = Word32 - type AttrLabel ScannerLineFieldInfo = "line" - attrGet _ = scannerReadLine - attrSet _ = scannerWriteLine - attrConstruct = undefined - attrClear _ = undefined - -scannerLine :: AttrLabelProxy "line" -scannerLine = AttrLabelProxy - - -scannerReadPosition :: MonadIO m => Scanner -> m Word32 -scannerReadPosition s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 60) :: IO Word32 - return val - -scannerWritePosition :: MonadIO m => Scanner -> Word32 -> m () -scannerWritePosition s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 60) (val :: Word32) - -data ScannerPositionFieldInfo -instance AttrInfo ScannerPositionFieldInfo where - type AttrAllowedOps ScannerPositionFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerPositionFieldInfo = (~) Word32 - type AttrBaseTypeConstraint ScannerPositionFieldInfo = (~) Scanner - type AttrGetType ScannerPositionFieldInfo = Word32 - type AttrLabel ScannerPositionFieldInfo = "position" - attrGet _ = scannerReadPosition - attrSet _ = scannerWritePosition - attrConstruct = undefined - attrClear _ = undefined - -scannerPosition :: AttrLabelProxy "position" -scannerPosition = AttrLabelProxy - - -scannerReadNextToken :: MonadIO m => Scanner -> m TokenType -scannerReadNextToken s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 64) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -scannerWriteNextToken :: MonadIO m => Scanner -> TokenType -> m () -scannerWriteNextToken s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 64) (val' :: CUInt) - -data ScannerNextTokenFieldInfo -instance AttrInfo ScannerNextTokenFieldInfo where - type AttrAllowedOps ScannerNextTokenFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerNextTokenFieldInfo = (~) TokenType - type AttrBaseTypeConstraint ScannerNextTokenFieldInfo = (~) Scanner - type AttrGetType ScannerNextTokenFieldInfo = TokenType - type AttrLabel ScannerNextTokenFieldInfo = "next_token" - attrGet _ = scannerReadNextToken - attrSet _ = scannerWriteNextToken - attrConstruct = undefined - attrClear _ = undefined - -scannerNextToken :: AttrLabelProxy "nextToken" -scannerNextToken = AttrLabelProxy - - -scannerReadNextValue :: MonadIO m => Scanner -> m (Maybe TokenValue) -scannerReadNextValue s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 72) :: IO (Ptr TokenValue) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr TokenValue) val' - return val'' - return result - -scannerWriteNextValue :: MonadIO m => Scanner -> Ptr TokenValue -> m () -scannerWriteNextValue s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 72) (val :: Ptr TokenValue) - -scannerClearNextValue :: MonadIO m => Scanner -> m () -scannerClearNextValue s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 72) (nullPtr :: Ptr TokenValue) - -data ScannerNextValueFieldInfo -instance AttrInfo ScannerNextValueFieldInfo where - type AttrAllowedOps ScannerNextValueFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ScannerNextValueFieldInfo = (~) (Ptr TokenValue) - type AttrBaseTypeConstraint ScannerNextValueFieldInfo = (~) Scanner - type AttrGetType ScannerNextValueFieldInfo = Maybe TokenValue - type AttrLabel ScannerNextValueFieldInfo = "next_value" - attrGet _ = scannerReadNextValue - attrSet _ = scannerWriteNextValue - attrConstruct = undefined - attrClear _ = scannerClearNextValue - -scannerNextValue :: AttrLabelProxy "nextValue" -scannerNextValue = AttrLabelProxy - - -scannerReadNextLine :: MonadIO m => Scanner -> m Word32 -scannerReadNextLine s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 80) :: IO Word32 - return val - -scannerWriteNextLine :: MonadIO m => Scanner -> Word32 -> m () -scannerWriteNextLine s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 80) (val :: Word32) - -data ScannerNextLineFieldInfo -instance AttrInfo ScannerNextLineFieldInfo where - type AttrAllowedOps ScannerNextLineFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerNextLineFieldInfo = (~) Word32 - type AttrBaseTypeConstraint ScannerNextLineFieldInfo = (~) Scanner - type AttrGetType ScannerNextLineFieldInfo = Word32 - type AttrLabel ScannerNextLineFieldInfo = "next_line" - attrGet _ = scannerReadNextLine - attrSet _ = scannerWriteNextLine - attrConstruct = undefined - attrClear _ = undefined - -scannerNextLine :: AttrLabelProxy "nextLine" -scannerNextLine = AttrLabelProxy - - -scannerReadNextPosition :: MonadIO m => Scanner -> m Word32 -scannerReadNextPosition s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 84) :: IO Word32 - return val - -scannerWriteNextPosition :: MonadIO m => Scanner -> Word32 -> m () -scannerWriteNextPosition s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 84) (val :: Word32) - -data ScannerNextPositionFieldInfo -instance AttrInfo ScannerNextPositionFieldInfo where - type AttrAllowedOps ScannerNextPositionFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerNextPositionFieldInfo = (~) Word32 - type AttrBaseTypeConstraint ScannerNextPositionFieldInfo = (~) Scanner - type AttrGetType ScannerNextPositionFieldInfo = Word32 - type AttrLabel ScannerNextPositionFieldInfo = "next_position" - attrGet _ = scannerReadNextPosition - attrSet _ = scannerWriteNextPosition - attrConstruct = undefined - attrClear _ = undefined - -scannerNextPosition :: AttrLabelProxy "nextPosition" -scannerNextPosition = AttrLabelProxy - - --- XXX Skipped attribute for "Scanner:msg_handler" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - -type instance AttributeList Scanner = ScannerAttributeList -type ScannerAttributeList = ('[ '("userData", ScannerUserDataFieldInfo), '("maxParseErrors", ScannerMaxParseErrorsFieldInfo), '("parseErrors", ScannerParseErrorsFieldInfo), '("inputName", ScannerInputNameFieldInfo), '("qdata", ScannerQdataFieldInfo), '("config", ScannerConfigFieldInfo), '("token", ScannerTokenFieldInfo), '("value", ScannerValueFieldInfo), '("line", ScannerLineFieldInfo), '("position", ScannerPositionFieldInfo), '("nextToken", ScannerNextTokenFieldInfo), '("nextValue", ScannerNextValueFieldInfo), '("nextLine", ScannerNextLineFieldInfo), '("nextPosition", ScannerNextPositionFieldInfo)] :: [(Symbol, *)]) - --- method Scanner::cur_line --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_scanner_cur_line" g_scanner_cur_line :: - Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" - IO Word32 - - -scannerCurLine :: - (MonadIO m) => - Scanner -- _obj - -> m Word32 -- result -scannerCurLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_scanner_cur_line _obj' - touchManagedPtr _obj - return result - -data ScannerCurLineMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo ScannerCurLineMethodInfo Scanner signature where - overloadedMethod _ = scannerCurLine - --- method Scanner::cur_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_scanner_cur_position" g_scanner_cur_position :: - Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" - IO Word32 - - -scannerCurPosition :: - (MonadIO m) => - Scanner -- _obj - -> m Word32 -- result -scannerCurPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_scanner_cur_position _obj' - touchManagedPtr _obj - return result - -data ScannerCurPositionMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo ScannerCurPositionMethodInfo Scanner signature where - overloadedMethod _ = scannerCurPosition - --- method Scanner::cur_token --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -scannerCurToken _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_scanner_cur_token _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ScannerCurTokenMethodInfo -instance (signature ~ (m TokenType), MonadIO m) => MethodInfo ScannerCurTokenMethodInfo Scanner signature where - overloadedMethod _ = scannerCurToken - --- method Scanner::destroy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -scannerDestroy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_scanner_destroy _obj' - touchManagedPtr _obj - return () - -data ScannerDestroyMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo ScannerDestroyMethodInfo Scanner signature where - overloadedMethod _ = scannerDestroy - --- method Scanner::eof --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_scanner_eof" g_scanner_eof :: - Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" - IO CInt - - -scannerEof :: - (MonadIO m) => - Scanner -- _obj - -> m Bool -- result -scannerEof _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_scanner_eof _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ScannerEofMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo ScannerEofMethodInfo Scanner signature where - overloadedMethod _ = scannerEof - --- method Scanner::get_next_token --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -scannerGetNextToken _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_scanner_get_next_token _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ScannerGetNextTokenMethodInfo -instance (signature ~ (m TokenType), MonadIO m) => MethodInfo ScannerGetNextTokenMethodInfo Scanner signature where - overloadedMethod _ = scannerGetNextToken - --- method Scanner::input_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "input_fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_scanner_input_file" g_scanner_input_file :: - Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" - Int32 -> -- input_fd : TBasicType TInt - IO () - - -scannerInputFile :: - (MonadIO m) => - Scanner -- _obj - -> Int32 -- inputFd - -> m () -- result -scannerInputFile _obj inputFd = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_scanner_input_file _obj' inputFd - touchManagedPtr _obj - return () - -data ScannerInputFileMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo ScannerInputFileMethodInfo Scanner signature where - overloadedMethod _ = scannerInputFile - --- method Scanner::input_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text_len", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_scanner_input_text" g_scanner_input_text :: - Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" - CString -> -- text : TBasicType TUTF8 - Word32 -> -- text_len : TBasicType TUInt - IO () - - -scannerInputText :: - (MonadIO m) => - Scanner -- _obj - -> T.Text -- text - -> Word32 -- textLen - -> m () -- result -scannerInputText _obj text textLen = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - text' <- textToCString text - g_scanner_input_text _obj' text' textLen - touchManagedPtr _obj - freeMem text' - return () - -data ScannerInputTextMethodInfo -instance (signature ~ (T.Text -> Word32 -> m ()), MonadIO m) => MethodInfo ScannerInputTextMethodInfo Scanner signature where - overloadedMethod _ = scannerInputText - --- method Scanner::peek_next_token --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -scannerPeekNextToken _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_scanner_peek_next_token _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data ScannerPeekNextTokenMethodInfo -instance (signature ~ (m TokenType), MonadIO m) => MethodInfo ScannerPeekNextTokenMethodInfo Scanner signature where - overloadedMethod _ = scannerPeekNextToken - --- method Scanner::scope_add_symbol --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scope_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "symbol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_scanner_scope_add_symbol" g_scanner_scope_add_symbol :: - Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" - Word32 -> -- scope_id : TBasicType TUInt - CString -> -- symbol : TBasicType TUTF8 - Ptr () -> -- value : TBasicType TPtr - IO () - - -scannerScopeAddSymbol :: - (MonadIO m) => - Scanner -- _obj - -> Word32 -- scopeId - -> T.Text -- symbol - -> Ptr () -- value - -> m () -- result -scannerScopeAddSymbol _obj scopeId symbol value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - symbol' <- textToCString symbol - g_scanner_scope_add_symbol _obj' scopeId symbol' value - touchManagedPtr _obj - freeMem symbol' - return () - -data ScannerScopeAddSymbolMethodInfo -instance (signature ~ (Word32 -> T.Text -> Ptr () -> m ()), MonadIO m) => MethodInfo ScannerScopeAddSymbolMethodInfo Scanner signature where - overloadedMethod _ = scannerScopeAddSymbol - --- method Scanner::scope_remove_symbol --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scope_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "symbol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_scanner_scope_remove_symbol" g_scanner_scope_remove_symbol :: - Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" - Word32 -> -- scope_id : TBasicType TUInt - CString -> -- symbol : TBasicType TUTF8 - IO () - - -scannerScopeRemoveSymbol :: - (MonadIO m) => - Scanner -- _obj - -> Word32 -- scopeId - -> T.Text -- symbol - -> m () -- result -scannerScopeRemoveSymbol _obj scopeId symbol = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - symbol' <- textToCString symbol - g_scanner_scope_remove_symbol _obj' scopeId symbol' - touchManagedPtr _obj - freeMem symbol' - return () - -data ScannerScopeRemoveSymbolMethodInfo -instance (signature ~ (Word32 -> T.Text -> m ()), MonadIO m) => MethodInfo ScannerScopeRemoveSymbolMethodInfo Scanner signature where - overloadedMethod _ = scannerScopeRemoveSymbol - --- method Scanner::set_scope --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scope_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_scanner_set_scope" g_scanner_set_scope :: - Ptr Scanner -> -- _obj : TInterface "GLib" "Scanner" - Word32 -> -- scope_id : TBasicType TUInt - IO Word32 - - -scannerSetScope :: - (MonadIO m) => - Scanner -- _obj - -> Word32 -- scopeId - -> m Word32 -- result -scannerSetScope _obj scopeId = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_scanner_set_scope _obj' scopeId - touchManagedPtr _obj - return result - -data ScannerSetScopeMethodInfo -instance (signature ~ (Word32 -> m Word32), MonadIO m) => MethodInfo ScannerSetScopeMethodInfo Scanner signature where - overloadedMethod _ = scannerSetScope - --- method Scanner::sync_file_offset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -scannerSyncFileOffset _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_scanner_sync_file_offset _obj' - touchManagedPtr _obj - return () - -data ScannerSyncFileOffsetMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo ScannerSyncFileOffsetMethodInfo Scanner signature where - overloadedMethod _ = scannerSyncFileOffset - --- method Scanner::unexp_token --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Scanner", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expected_token", argType = TInterface "GLib" "TokenType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "identifier_spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "symbol_spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "symbol_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_error", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 TInt - IO () - - -scannerUnexpToken :: - (MonadIO m) => - Scanner -- _obj - -> TokenType -- expectedToken - -> T.Text -- identifierSpec - -> T.Text -- symbolSpec - -> T.Text -- symbolName - -> T.Text -- message - -> Int32 -- isError - -> m () -- result -scannerUnexpToken _obj expectedToken identifierSpec symbolSpec symbolName message isError = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let expectedToken' = (fromIntegral . fromEnum) expectedToken - identifierSpec' <- textToCString identifierSpec - symbolSpec' <- textToCString symbolSpec - symbolName' <- textToCString symbolName - message' <- textToCString message - g_scanner_unexp_token _obj' expectedToken' identifierSpec' symbolSpec' symbolName' message' isError - touchManagedPtr _obj - freeMem identifierSpec' - freeMem symbolSpec' - freeMem symbolName' - freeMem message' - return () - -data ScannerUnexpTokenMethodInfo -instance (signature ~ (TokenType -> T.Text -> T.Text -> T.Text -> T.Text -> Int32 -> m ()), MonadIO m) => MethodInfo ScannerUnexpTokenMethodInfo Scanner signature where - overloadedMethod _ = scannerUnexpToken - -type family ResolveScannerMethod (t :: Symbol) (o :: *) :: * where - ResolveScannerMethod "curLine" o = ScannerCurLineMethodInfo - ResolveScannerMethod "curPosition" o = ScannerCurPositionMethodInfo - ResolveScannerMethod "curToken" o = ScannerCurTokenMethodInfo - ResolveScannerMethod "destroy" o = ScannerDestroyMethodInfo - ResolveScannerMethod "eof" o = ScannerEofMethodInfo - ResolveScannerMethod "inputFile" o = ScannerInputFileMethodInfo - ResolveScannerMethod "inputText" o = ScannerInputTextMethodInfo - ResolveScannerMethod "peekNextToken" o = ScannerPeekNextTokenMethodInfo - ResolveScannerMethod "scopeAddSymbol" o = ScannerScopeAddSymbolMethodInfo - ResolveScannerMethod "scopeRemoveSymbol" o = ScannerScopeRemoveSymbolMethodInfo - ResolveScannerMethod "syncFileOffset" o = ScannerSyncFileOffsetMethodInfo - ResolveScannerMethod "unexpToken" o = ScannerUnexpTokenMethodInfo - ResolveScannerMethod "getNextToken" o = ScannerGetNextTokenMethodInfo - ResolveScannerMethod "setScope" o = ScannerSetScopeMethodInfo - ResolveScannerMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveScannerMethod t Scanner, MethodInfo info Scanner p) => IsLabelProxy t (Scanner -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveScannerMethod t Scanner, MethodInfo info Scanner p) => IsLabel t (Scanner -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,25 +0,0 @@ -module GI.GLib.Structs.Scanner where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Scanner = Scanner (ForeignPtr Scanner) -instance WrappedPtr Scanner where -data ScannerCurLineMethodInfo -data ScannerCurPositionMethodInfo -data ScannerCurTokenMethodInfo -data ScannerDestroyMethodInfo -data ScannerEofMethodInfo -data ScannerGetNextTokenMethodInfo -data ScannerInputFileMethodInfo -data ScannerInputTextMethodInfo -data ScannerPeekNextTokenMethodInfo -data ScannerScopeAddSymbolMethodInfo -data ScannerScopeRemoveSymbolMethodInfo -data ScannerSetScopeMethodInfo -data ScannerSyncFileOffsetMethodInfo -data ScannerUnexpTokenMethodInfo 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,910 +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(..) , - newZeroScannerConfig , - noScannerConfig , - - - -- * Properties --- ** CaseSensitive - scannerConfigCaseSensitive , - scannerConfigReadCaseSensitive , - scannerConfigWriteCaseSensitive , - - --- ** Char2Token - scannerConfigChar2Token , - scannerConfigReadChar2Token , - scannerConfigWriteChar2Token , - - --- ** CpairCommentSingle - scannerConfigClearCpairCommentSingle , - scannerConfigCpairCommentSingle , - scannerConfigReadCpairCommentSingle , - scannerConfigWriteCpairCommentSingle , - - --- ** CsetIdentifierFirst - scannerConfigClearCsetIdentifierFirst , - scannerConfigCsetIdentifierFirst , - scannerConfigReadCsetIdentifierFirst , - scannerConfigWriteCsetIdentifierFirst , - - --- ** CsetIdentifierNth - scannerConfigClearCsetIdentifierNth , - scannerConfigCsetIdentifierNth , - scannerConfigReadCsetIdentifierNth , - scannerConfigWriteCsetIdentifierNth , - - --- ** CsetSkipCharacters - scannerConfigClearCsetSkipCharacters , - scannerConfigCsetSkipCharacters , - scannerConfigReadCsetSkipCharacters , - scannerConfigWriteCsetSkipCharacters , - - --- ** Identifier2String - scannerConfigIdentifier2String , - scannerConfigReadIdentifier2String , - scannerConfigWriteIdentifier2String , - - --- ** Int2Float - scannerConfigInt2Float , - scannerConfigReadInt2Float , - scannerConfigWriteInt2Float , - - --- ** Numbers2Int - scannerConfigNumbers2Int , - scannerConfigReadNumbers2Int , - scannerConfigWriteNumbers2Int , - - --- ** ScanBinary - scannerConfigReadScanBinary , - scannerConfigScanBinary , - scannerConfigWriteScanBinary , - - --- ** ScanCommentMulti - scannerConfigReadScanCommentMulti , - scannerConfigScanCommentMulti , - scannerConfigWriteScanCommentMulti , - - --- ** ScanFloat - scannerConfigReadScanFloat , - scannerConfigScanFloat , - scannerConfigWriteScanFloat , - - --- ** ScanHex - scannerConfigReadScanHex , - scannerConfigScanHex , - scannerConfigWriteScanHex , - - --- ** ScanHexDollar - scannerConfigReadScanHexDollar , - scannerConfigScanHexDollar , - scannerConfigWriteScanHexDollar , - - --- ** ScanIdentifier - scannerConfigReadScanIdentifier , - scannerConfigScanIdentifier , - scannerConfigWriteScanIdentifier , - - --- ** ScanIdentifier1char - scannerConfigReadScanIdentifier1char , - scannerConfigScanIdentifier1char , - scannerConfigWriteScanIdentifier1char , - - --- ** ScanIdentifierNULL - scannerConfigReadScanIdentifierNULL , - scannerConfigScanIdentifierNULL , - scannerConfigWriteScanIdentifierNULL , - - --- ** ScanOctal - scannerConfigReadScanOctal , - scannerConfigScanOctal , - scannerConfigWriteScanOctal , - - --- ** ScanStringDq - scannerConfigReadScanStringDq , - scannerConfigScanStringDq , - scannerConfigWriteScanStringDq , - - --- ** ScanStringSq - scannerConfigReadScanStringSq , - scannerConfigScanStringSq , - scannerConfigWriteScanStringSq , - - --- ** ScanSymbols - scannerConfigReadScanSymbols , - scannerConfigScanSymbols , - scannerConfigWriteScanSymbols , - - --- ** Scope0Fallback - scannerConfigReadScope0Fallback , - scannerConfigScope0Fallback , - scannerConfigWriteScope0Fallback , - - --- ** SkipCommentMulti - scannerConfigReadSkipCommentMulti , - scannerConfigSkipCommentMulti , - scannerConfigWriteSkipCommentMulti , - - --- ** SkipCommentSingle - scannerConfigReadSkipCommentSingle , - scannerConfigSkipCommentSingle , - scannerConfigWriteSkipCommentSingle , - - --- ** StoreInt64 - scannerConfigReadStoreInt64 , - scannerConfigStoreInt64 , - scannerConfigWriteStoreInt64 , - - --- ** Symbol2Token - scannerConfigReadSymbol2Token , - scannerConfigSymbol2Token , - scannerConfigWriteSymbol2Token , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype ScannerConfig = ScannerConfig (ForeignPtr ScannerConfig) -instance WrappedPtr ScannerConfig where - wrappedPtrCalloc = callocBytes 128 - wrappedPtrCopy = copyPtr 128 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `ScannerConfig` struct initialized to zero. -newZeroScannerConfig :: MonadIO m => m ScannerConfig -newZeroScannerConfig = liftIO $ wrappedPtrCalloc >>= wrapPtr ScannerConfig - -instance tag ~ 'AttrSet => Constructible ScannerConfig tag where - new _ attrs = do - o <- newZeroScannerConfig - GI.Attributes.set o attrs - return o - - -noScannerConfig :: Maybe ScannerConfig -noScannerConfig = Nothing - -scannerConfigReadCsetSkipCharacters :: MonadIO m => ScannerConfig -> m (Maybe T.Text) -scannerConfigReadCsetSkipCharacters s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -scannerConfigWriteCsetSkipCharacters :: MonadIO m => ScannerConfig -> CString -> m () -scannerConfigWriteCsetSkipCharacters s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: CString) - -scannerConfigClearCsetSkipCharacters :: MonadIO m => ScannerConfig -> m () -scannerConfigClearCsetSkipCharacters s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: CString) - -data ScannerConfigCsetSkipCharactersFieldInfo -instance AttrInfo ScannerConfigCsetSkipCharactersFieldInfo where - type AttrAllowedOps ScannerConfigCsetSkipCharactersFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ScannerConfigCsetSkipCharactersFieldInfo = (~) CString - type AttrBaseTypeConstraint ScannerConfigCsetSkipCharactersFieldInfo = (~) ScannerConfig - type AttrGetType ScannerConfigCsetSkipCharactersFieldInfo = Maybe T.Text - type AttrLabel ScannerConfigCsetSkipCharactersFieldInfo = "cset_skip_characters" - attrGet _ = scannerConfigReadCsetSkipCharacters - attrSet _ = scannerConfigWriteCsetSkipCharacters - attrConstruct = undefined - attrClear _ = scannerConfigClearCsetSkipCharacters - -scannerConfigCsetSkipCharacters :: AttrLabelProxy "csetSkipCharacters" -scannerConfigCsetSkipCharacters = AttrLabelProxy - - -scannerConfigReadCsetIdentifierFirst :: MonadIO m => ScannerConfig -> m (Maybe T.Text) -scannerConfigReadCsetIdentifierFirst s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -scannerConfigWriteCsetIdentifierFirst :: MonadIO m => ScannerConfig -> CString -> m () -scannerConfigWriteCsetIdentifierFirst s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -scannerConfigClearCsetIdentifierFirst :: MonadIO m => ScannerConfig -> m () -scannerConfigClearCsetIdentifierFirst s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data ScannerConfigCsetIdentifierFirstFieldInfo -instance AttrInfo ScannerConfigCsetIdentifierFirstFieldInfo where - type AttrAllowedOps ScannerConfigCsetIdentifierFirstFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ScannerConfigCsetIdentifierFirstFieldInfo = (~) CString - type AttrBaseTypeConstraint ScannerConfigCsetIdentifierFirstFieldInfo = (~) ScannerConfig - type AttrGetType ScannerConfigCsetIdentifierFirstFieldInfo = Maybe T.Text - type AttrLabel ScannerConfigCsetIdentifierFirstFieldInfo = "cset_identifier_first" - attrGet _ = scannerConfigReadCsetIdentifierFirst - attrSet _ = scannerConfigWriteCsetIdentifierFirst - attrConstruct = undefined - attrClear _ = scannerConfigClearCsetIdentifierFirst - -scannerConfigCsetIdentifierFirst :: AttrLabelProxy "csetIdentifierFirst" -scannerConfigCsetIdentifierFirst = AttrLabelProxy - - -scannerConfigReadCsetIdentifierNth :: MonadIO m => ScannerConfig -> m (Maybe T.Text) -scannerConfigReadCsetIdentifierNth s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -scannerConfigWriteCsetIdentifierNth :: MonadIO m => ScannerConfig -> CString -> m () -scannerConfigWriteCsetIdentifierNth s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: CString) - -scannerConfigClearCsetIdentifierNth :: MonadIO m => ScannerConfig -> m () -scannerConfigClearCsetIdentifierNth s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: CString) - -data ScannerConfigCsetIdentifierNthFieldInfo -instance AttrInfo ScannerConfigCsetIdentifierNthFieldInfo where - type AttrAllowedOps ScannerConfigCsetIdentifierNthFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ScannerConfigCsetIdentifierNthFieldInfo = (~) CString - type AttrBaseTypeConstraint ScannerConfigCsetIdentifierNthFieldInfo = (~) ScannerConfig - type AttrGetType ScannerConfigCsetIdentifierNthFieldInfo = Maybe T.Text - type AttrLabel ScannerConfigCsetIdentifierNthFieldInfo = "cset_identifier_nth" - attrGet _ = scannerConfigReadCsetIdentifierNth - attrSet _ = scannerConfigWriteCsetIdentifierNth - attrConstruct = undefined - attrClear _ = scannerConfigClearCsetIdentifierNth - -scannerConfigCsetIdentifierNth :: AttrLabelProxy "csetIdentifierNth" -scannerConfigCsetIdentifierNth = AttrLabelProxy - - -scannerConfigReadCpairCommentSingle :: MonadIO m => ScannerConfig -> m (Maybe T.Text) -scannerConfigReadCpairCommentSingle s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -scannerConfigWriteCpairCommentSingle :: MonadIO m => ScannerConfig -> CString -> m () -scannerConfigWriteCpairCommentSingle s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: CString) - -scannerConfigClearCpairCommentSingle :: MonadIO m => ScannerConfig -> m () -scannerConfigClearCpairCommentSingle s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: CString) - -data ScannerConfigCpairCommentSingleFieldInfo -instance AttrInfo ScannerConfigCpairCommentSingleFieldInfo where - type AttrAllowedOps ScannerConfigCpairCommentSingleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ScannerConfigCpairCommentSingleFieldInfo = (~) CString - type AttrBaseTypeConstraint ScannerConfigCpairCommentSingleFieldInfo = (~) ScannerConfig - type AttrGetType ScannerConfigCpairCommentSingleFieldInfo = Maybe T.Text - type AttrLabel ScannerConfigCpairCommentSingleFieldInfo = "cpair_comment_single" - attrGet _ = scannerConfigReadCpairCommentSingle - attrSet _ = scannerConfigWriteCpairCommentSingle - attrConstruct = undefined - attrClear _ = scannerConfigClearCpairCommentSingle - -scannerConfigCpairCommentSingle :: AttrLabelProxy "cpairCommentSingle" -scannerConfigCpairCommentSingle = AttrLabelProxy - - -scannerConfigReadCaseSensitive :: MonadIO m => ScannerConfig -> m Word32 -scannerConfigReadCaseSensitive s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO Word32 - return val - -scannerConfigWriteCaseSensitive :: MonadIO m => ScannerConfig -> Word32 -> m () -scannerConfigWriteCaseSensitive s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: Word32) - -data ScannerConfigCaseSensitiveFieldInfo -instance AttrInfo ScannerConfigCaseSensitiveFieldInfo where - type AttrAllowedOps ScannerConfigCaseSensitiveFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerConfigCaseSensitiveFieldInfo = (~) Word32 - type AttrBaseTypeConstraint ScannerConfigCaseSensitiveFieldInfo = (~) ScannerConfig - type AttrGetType ScannerConfigCaseSensitiveFieldInfo = Word32 - type AttrLabel ScannerConfigCaseSensitiveFieldInfo = "case_sensitive" - attrGet _ = scannerConfigReadCaseSensitive - attrSet _ = scannerConfigWriteCaseSensitive - attrConstruct = undefined - attrClear _ = undefined - -scannerConfigCaseSensitive :: AttrLabelProxy "caseSensitive" -scannerConfigCaseSensitive = AttrLabelProxy - - -scannerConfigReadSkipCommentMulti :: MonadIO m => ScannerConfig -> m Word32 -scannerConfigReadSkipCommentMulti s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 36) :: IO Word32 - return val - -scannerConfigWriteSkipCommentMulti :: MonadIO m => ScannerConfig -> Word32 -> m () -scannerConfigWriteSkipCommentMulti s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 36) (val :: Word32) - -data ScannerConfigSkipCommentMultiFieldInfo -instance AttrInfo ScannerConfigSkipCommentMultiFieldInfo where - type AttrAllowedOps ScannerConfigSkipCommentMultiFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerConfigSkipCommentMultiFieldInfo = (~) Word32 - type AttrBaseTypeConstraint ScannerConfigSkipCommentMultiFieldInfo = (~) ScannerConfig - type AttrGetType ScannerConfigSkipCommentMultiFieldInfo = Word32 - type AttrLabel ScannerConfigSkipCommentMultiFieldInfo = "skip_comment_multi" - attrGet _ = scannerConfigReadSkipCommentMulti - attrSet _ = scannerConfigWriteSkipCommentMulti - attrConstruct = undefined - attrClear _ = undefined - -scannerConfigSkipCommentMulti :: AttrLabelProxy "skipCommentMulti" -scannerConfigSkipCommentMulti = AttrLabelProxy - - -scannerConfigReadSkipCommentSingle :: MonadIO m => ScannerConfig -> m Word32 -scannerConfigReadSkipCommentSingle s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO Word32 - return val - -scannerConfigWriteSkipCommentSingle :: MonadIO m => ScannerConfig -> Word32 -> m () -scannerConfigWriteSkipCommentSingle s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 40) (val :: Word32) - -data ScannerConfigSkipCommentSingleFieldInfo -instance AttrInfo ScannerConfigSkipCommentSingleFieldInfo where - type AttrAllowedOps ScannerConfigSkipCommentSingleFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerConfigSkipCommentSingleFieldInfo = (~) Word32 - type AttrBaseTypeConstraint ScannerConfigSkipCommentSingleFieldInfo = (~) ScannerConfig - type AttrGetType ScannerConfigSkipCommentSingleFieldInfo = Word32 - type AttrLabel ScannerConfigSkipCommentSingleFieldInfo = "skip_comment_single" - attrGet _ = scannerConfigReadSkipCommentSingle - attrSet _ = scannerConfigWriteSkipCommentSingle - attrConstruct = undefined - attrClear _ = undefined - -scannerConfigSkipCommentSingle :: AttrLabelProxy "skipCommentSingle" -scannerConfigSkipCommentSingle = AttrLabelProxy - - -scannerConfigReadScanCommentMulti :: MonadIO m => ScannerConfig -> m Word32 -scannerConfigReadScanCommentMulti s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 44) :: IO Word32 - return val - -scannerConfigWriteScanCommentMulti :: MonadIO m => ScannerConfig -> Word32 -> m () -scannerConfigWriteScanCommentMulti s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 44) (val :: Word32) - -data ScannerConfigScanCommentMultiFieldInfo -instance AttrInfo ScannerConfigScanCommentMultiFieldInfo where - type AttrAllowedOps ScannerConfigScanCommentMultiFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerConfigScanCommentMultiFieldInfo = (~) Word32 - type AttrBaseTypeConstraint ScannerConfigScanCommentMultiFieldInfo = (~) ScannerConfig - type AttrGetType ScannerConfigScanCommentMultiFieldInfo = Word32 - type AttrLabel ScannerConfigScanCommentMultiFieldInfo = "scan_comment_multi" - attrGet _ = scannerConfigReadScanCommentMulti - attrSet _ = scannerConfigWriteScanCommentMulti - attrConstruct = undefined - attrClear _ = undefined - -scannerConfigScanCommentMulti :: AttrLabelProxy "scanCommentMulti" -scannerConfigScanCommentMulti = AttrLabelProxy - - -scannerConfigReadScanIdentifier :: MonadIO m => ScannerConfig -> m Word32 -scannerConfigReadScanIdentifier s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO Word32 - return val - -scannerConfigWriteScanIdentifier :: MonadIO m => ScannerConfig -> Word32 -> m () -scannerConfigWriteScanIdentifier s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 48) (val :: Word32) - -data ScannerConfigScanIdentifierFieldInfo -instance AttrInfo ScannerConfigScanIdentifierFieldInfo where - type AttrAllowedOps ScannerConfigScanIdentifierFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerConfigScanIdentifierFieldInfo = (~) Word32 - type AttrBaseTypeConstraint ScannerConfigScanIdentifierFieldInfo = (~) ScannerConfig - type AttrGetType ScannerConfigScanIdentifierFieldInfo = Word32 - type AttrLabel ScannerConfigScanIdentifierFieldInfo = "scan_identifier" - attrGet _ = scannerConfigReadScanIdentifier - attrSet _ = scannerConfigWriteScanIdentifier - attrConstruct = undefined - attrClear _ = undefined - -scannerConfigScanIdentifier :: AttrLabelProxy "scanIdentifier" -scannerConfigScanIdentifier = AttrLabelProxy - - -scannerConfigReadScanIdentifier1char :: MonadIO m => ScannerConfig -> m Word32 -scannerConfigReadScanIdentifier1char s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 52) :: IO Word32 - return val - -scannerConfigWriteScanIdentifier1char :: MonadIO m => ScannerConfig -> Word32 -> m () -scannerConfigWriteScanIdentifier1char s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 52) (val :: Word32) - -data ScannerConfigScanIdentifier1charFieldInfo -instance AttrInfo ScannerConfigScanIdentifier1charFieldInfo where - type AttrAllowedOps ScannerConfigScanIdentifier1charFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerConfigScanIdentifier1charFieldInfo = (~) Word32 - type AttrBaseTypeConstraint ScannerConfigScanIdentifier1charFieldInfo = (~) ScannerConfig - type AttrGetType ScannerConfigScanIdentifier1charFieldInfo = Word32 - type AttrLabel ScannerConfigScanIdentifier1charFieldInfo = "scan_identifier_1char" - attrGet _ = scannerConfigReadScanIdentifier1char - attrSet _ = scannerConfigWriteScanIdentifier1char - attrConstruct = undefined - attrClear _ = undefined - -scannerConfigScanIdentifier1char :: AttrLabelProxy "scanIdentifier1char" -scannerConfigScanIdentifier1char = AttrLabelProxy - - -scannerConfigReadScanIdentifierNULL :: MonadIO m => ScannerConfig -> m Word32 -scannerConfigReadScanIdentifierNULL s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 56) :: IO Word32 - return val - -scannerConfigWriteScanIdentifierNULL :: MonadIO m => ScannerConfig -> Word32 -> m () -scannerConfigWriteScanIdentifierNULL s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 56) (val :: Word32) - -data ScannerConfigScanIdentifierNULLFieldInfo -instance AttrInfo ScannerConfigScanIdentifierNULLFieldInfo where - type AttrAllowedOps ScannerConfigScanIdentifierNULLFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerConfigScanIdentifierNULLFieldInfo = (~) Word32 - type AttrBaseTypeConstraint ScannerConfigScanIdentifierNULLFieldInfo = (~) ScannerConfig - type AttrGetType ScannerConfigScanIdentifierNULLFieldInfo = Word32 - type AttrLabel ScannerConfigScanIdentifierNULLFieldInfo = "scan_identifier_NULL" - attrGet _ = scannerConfigReadScanIdentifierNULL - attrSet _ = scannerConfigWriteScanIdentifierNULL - attrConstruct = undefined - attrClear _ = undefined - -scannerConfigScanIdentifierNULL :: AttrLabelProxy "scanIdentifierNULL" -scannerConfigScanIdentifierNULL = AttrLabelProxy - - -scannerConfigReadScanSymbols :: MonadIO m => ScannerConfig -> m Word32 -scannerConfigReadScanSymbols s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 60) :: IO Word32 - return val - -scannerConfigWriteScanSymbols :: MonadIO m => ScannerConfig -> Word32 -> m () -scannerConfigWriteScanSymbols s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 60) (val :: Word32) - -data ScannerConfigScanSymbolsFieldInfo -instance AttrInfo ScannerConfigScanSymbolsFieldInfo where - type AttrAllowedOps ScannerConfigScanSymbolsFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerConfigScanSymbolsFieldInfo = (~) Word32 - type AttrBaseTypeConstraint ScannerConfigScanSymbolsFieldInfo = (~) ScannerConfig - type AttrGetType ScannerConfigScanSymbolsFieldInfo = Word32 - type AttrLabel ScannerConfigScanSymbolsFieldInfo = "scan_symbols" - attrGet _ = scannerConfigReadScanSymbols - attrSet _ = scannerConfigWriteScanSymbols - attrConstruct = undefined - attrClear _ = undefined - -scannerConfigScanSymbols :: AttrLabelProxy "scanSymbols" -scannerConfigScanSymbols = AttrLabelProxy - - -scannerConfigReadScanBinary :: MonadIO m => ScannerConfig -> m Word32 -scannerConfigReadScanBinary s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 64) :: IO Word32 - return val - -scannerConfigWriteScanBinary :: MonadIO m => ScannerConfig -> Word32 -> m () -scannerConfigWriteScanBinary s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 64) (val :: Word32) - -data ScannerConfigScanBinaryFieldInfo -instance AttrInfo ScannerConfigScanBinaryFieldInfo where - type AttrAllowedOps ScannerConfigScanBinaryFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerConfigScanBinaryFieldInfo = (~) Word32 - type AttrBaseTypeConstraint ScannerConfigScanBinaryFieldInfo = (~) ScannerConfig - type AttrGetType ScannerConfigScanBinaryFieldInfo = Word32 - type AttrLabel ScannerConfigScanBinaryFieldInfo = "scan_binary" - attrGet _ = scannerConfigReadScanBinary - attrSet _ = scannerConfigWriteScanBinary - attrConstruct = undefined - attrClear _ = undefined - -scannerConfigScanBinary :: AttrLabelProxy "scanBinary" -scannerConfigScanBinary = AttrLabelProxy - - -scannerConfigReadScanOctal :: MonadIO m => ScannerConfig -> m Word32 -scannerConfigReadScanOctal s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 68) :: IO Word32 - return val - -scannerConfigWriteScanOctal :: MonadIO m => ScannerConfig -> Word32 -> m () -scannerConfigWriteScanOctal s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 68) (val :: Word32) - -data ScannerConfigScanOctalFieldInfo -instance AttrInfo ScannerConfigScanOctalFieldInfo where - type AttrAllowedOps ScannerConfigScanOctalFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerConfigScanOctalFieldInfo = (~) Word32 - type AttrBaseTypeConstraint ScannerConfigScanOctalFieldInfo = (~) ScannerConfig - type AttrGetType ScannerConfigScanOctalFieldInfo = Word32 - type AttrLabel ScannerConfigScanOctalFieldInfo = "scan_octal" - attrGet _ = scannerConfigReadScanOctal - attrSet _ = scannerConfigWriteScanOctal - attrConstruct = undefined - attrClear _ = undefined - -scannerConfigScanOctal :: AttrLabelProxy "scanOctal" -scannerConfigScanOctal = AttrLabelProxy - - -scannerConfigReadScanFloat :: MonadIO m => ScannerConfig -> m Word32 -scannerConfigReadScanFloat s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 72) :: IO Word32 - return val - -scannerConfigWriteScanFloat :: MonadIO m => ScannerConfig -> Word32 -> m () -scannerConfigWriteScanFloat s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 72) (val :: Word32) - -data ScannerConfigScanFloatFieldInfo -instance AttrInfo ScannerConfigScanFloatFieldInfo where - type AttrAllowedOps ScannerConfigScanFloatFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerConfigScanFloatFieldInfo = (~) Word32 - type AttrBaseTypeConstraint ScannerConfigScanFloatFieldInfo = (~) ScannerConfig - type AttrGetType ScannerConfigScanFloatFieldInfo = Word32 - type AttrLabel ScannerConfigScanFloatFieldInfo = "scan_float" - attrGet _ = scannerConfigReadScanFloat - attrSet _ = scannerConfigWriteScanFloat - attrConstruct = undefined - attrClear _ = undefined - -scannerConfigScanFloat :: AttrLabelProxy "scanFloat" -scannerConfigScanFloat = AttrLabelProxy - - -scannerConfigReadScanHex :: MonadIO m => ScannerConfig -> m Word32 -scannerConfigReadScanHex s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 76) :: IO Word32 - return val - -scannerConfigWriteScanHex :: MonadIO m => ScannerConfig -> Word32 -> m () -scannerConfigWriteScanHex s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 76) (val :: Word32) - -data ScannerConfigScanHexFieldInfo -instance AttrInfo ScannerConfigScanHexFieldInfo where - type AttrAllowedOps ScannerConfigScanHexFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerConfigScanHexFieldInfo = (~) Word32 - type AttrBaseTypeConstraint ScannerConfigScanHexFieldInfo = (~) ScannerConfig - type AttrGetType ScannerConfigScanHexFieldInfo = Word32 - type AttrLabel ScannerConfigScanHexFieldInfo = "scan_hex" - attrGet _ = scannerConfigReadScanHex - attrSet _ = scannerConfigWriteScanHex - attrConstruct = undefined - attrClear _ = undefined - -scannerConfigScanHex :: AttrLabelProxy "scanHex" -scannerConfigScanHex = AttrLabelProxy - - -scannerConfigReadScanHexDollar :: MonadIO m => ScannerConfig -> m Word32 -scannerConfigReadScanHexDollar s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 80) :: IO Word32 - return val - -scannerConfigWriteScanHexDollar :: MonadIO m => ScannerConfig -> Word32 -> m () -scannerConfigWriteScanHexDollar s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 80) (val :: Word32) - -data ScannerConfigScanHexDollarFieldInfo -instance AttrInfo ScannerConfigScanHexDollarFieldInfo where - type AttrAllowedOps ScannerConfigScanHexDollarFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerConfigScanHexDollarFieldInfo = (~) Word32 - type AttrBaseTypeConstraint ScannerConfigScanHexDollarFieldInfo = (~) ScannerConfig - type AttrGetType ScannerConfigScanHexDollarFieldInfo = Word32 - type AttrLabel ScannerConfigScanHexDollarFieldInfo = "scan_hex_dollar" - attrGet _ = scannerConfigReadScanHexDollar - attrSet _ = scannerConfigWriteScanHexDollar - attrConstruct = undefined - attrClear _ = undefined - -scannerConfigScanHexDollar :: AttrLabelProxy "scanHexDollar" -scannerConfigScanHexDollar = AttrLabelProxy - - -scannerConfigReadScanStringSq :: MonadIO m => ScannerConfig -> m Word32 -scannerConfigReadScanStringSq s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 84) :: IO Word32 - return val - -scannerConfigWriteScanStringSq :: MonadIO m => ScannerConfig -> Word32 -> m () -scannerConfigWriteScanStringSq s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 84) (val :: Word32) - -data ScannerConfigScanStringSqFieldInfo -instance AttrInfo ScannerConfigScanStringSqFieldInfo where - type AttrAllowedOps ScannerConfigScanStringSqFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerConfigScanStringSqFieldInfo = (~) Word32 - type AttrBaseTypeConstraint ScannerConfigScanStringSqFieldInfo = (~) ScannerConfig - type AttrGetType ScannerConfigScanStringSqFieldInfo = Word32 - type AttrLabel ScannerConfigScanStringSqFieldInfo = "scan_string_sq" - attrGet _ = scannerConfigReadScanStringSq - attrSet _ = scannerConfigWriteScanStringSq - attrConstruct = undefined - attrClear _ = undefined - -scannerConfigScanStringSq :: AttrLabelProxy "scanStringSq" -scannerConfigScanStringSq = AttrLabelProxy - - -scannerConfigReadScanStringDq :: MonadIO m => ScannerConfig -> m Word32 -scannerConfigReadScanStringDq s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 88) :: IO Word32 - return val - -scannerConfigWriteScanStringDq :: MonadIO m => ScannerConfig -> Word32 -> m () -scannerConfigWriteScanStringDq s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 88) (val :: Word32) - -data ScannerConfigScanStringDqFieldInfo -instance AttrInfo ScannerConfigScanStringDqFieldInfo where - type AttrAllowedOps ScannerConfigScanStringDqFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerConfigScanStringDqFieldInfo = (~) Word32 - type AttrBaseTypeConstraint ScannerConfigScanStringDqFieldInfo = (~) ScannerConfig - type AttrGetType ScannerConfigScanStringDqFieldInfo = Word32 - type AttrLabel ScannerConfigScanStringDqFieldInfo = "scan_string_dq" - attrGet _ = scannerConfigReadScanStringDq - attrSet _ = scannerConfigWriteScanStringDq - attrConstruct = undefined - attrClear _ = undefined - -scannerConfigScanStringDq :: AttrLabelProxy "scanStringDq" -scannerConfigScanStringDq = AttrLabelProxy - - -scannerConfigReadNumbers2Int :: MonadIO m => ScannerConfig -> m Word32 -scannerConfigReadNumbers2Int s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 92) :: IO Word32 - return val - -scannerConfigWriteNumbers2Int :: MonadIO m => ScannerConfig -> Word32 -> m () -scannerConfigWriteNumbers2Int s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 92) (val :: Word32) - -data ScannerConfigNumbers2IntFieldInfo -instance AttrInfo ScannerConfigNumbers2IntFieldInfo where - type AttrAllowedOps ScannerConfigNumbers2IntFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerConfigNumbers2IntFieldInfo = (~) Word32 - type AttrBaseTypeConstraint ScannerConfigNumbers2IntFieldInfo = (~) ScannerConfig - type AttrGetType ScannerConfigNumbers2IntFieldInfo = Word32 - type AttrLabel ScannerConfigNumbers2IntFieldInfo = "numbers_2_int" - attrGet _ = scannerConfigReadNumbers2Int - attrSet _ = scannerConfigWriteNumbers2Int - attrConstruct = undefined - attrClear _ = undefined - -scannerConfigNumbers2Int :: AttrLabelProxy "numbers2Int" -scannerConfigNumbers2Int = AttrLabelProxy - - -scannerConfigReadInt2Float :: MonadIO m => ScannerConfig -> m Word32 -scannerConfigReadInt2Float s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 96) :: IO Word32 - return val - -scannerConfigWriteInt2Float :: MonadIO m => ScannerConfig -> Word32 -> m () -scannerConfigWriteInt2Float s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 96) (val :: Word32) - -data ScannerConfigInt2FloatFieldInfo -instance AttrInfo ScannerConfigInt2FloatFieldInfo where - type AttrAllowedOps ScannerConfigInt2FloatFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerConfigInt2FloatFieldInfo = (~) Word32 - type AttrBaseTypeConstraint ScannerConfigInt2FloatFieldInfo = (~) ScannerConfig - type AttrGetType ScannerConfigInt2FloatFieldInfo = Word32 - type AttrLabel ScannerConfigInt2FloatFieldInfo = "int_2_float" - attrGet _ = scannerConfigReadInt2Float - attrSet _ = scannerConfigWriteInt2Float - attrConstruct = undefined - attrClear _ = undefined - -scannerConfigInt2Float :: AttrLabelProxy "int2Float" -scannerConfigInt2Float = AttrLabelProxy - - -scannerConfigReadIdentifier2String :: MonadIO m => ScannerConfig -> m Word32 -scannerConfigReadIdentifier2String s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 100) :: IO Word32 - return val - -scannerConfigWriteIdentifier2String :: MonadIO m => ScannerConfig -> Word32 -> m () -scannerConfigWriteIdentifier2String s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 100) (val :: Word32) - -data ScannerConfigIdentifier2StringFieldInfo -instance AttrInfo ScannerConfigIdentifier2StringFieldInfo where - type AttrAllowedOps ScannerConfigIdentifier2StringFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerConfigIdentifier2StringFieldInfo = (~) Word32 - type AttrBaseTypeConstraint ScannerConfigIdentifier2StringFieldInfo = (~) ScannerConfig - type AttrGetType ScannerConfigIdentifier2StringFieldInfo = Word32 - type AttrLabel ScannerConfigIdentifier2StringFieldInfo = "identifier_2_string" - attrGet _ = scannerConfigReadIdentifier2String - attrSet _ = scannerConfigWriteIdentifier2String - attrConstruct = undefined - attrClear _ = undefined - -scannerConfigIdentifier2String :: AttrLabelProxy "identifier2String" -scannerConfigIdentifier2String = AttrLabelProxy - - -scannerConfigReadChar2Token :: MonadIO m => ScannerConfig -> m Word32 -scannerConfigReadChar2Token s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 104) :: IO Word32 - return val - -scannerConfigWriteChar2Token :: MonadIO m => ScannerConfig -> Word32 -> m () -scannerConfigWriteChar2Token s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 104) (val :: Word32) - -data ScannerConfigChar2TokenFieldInfo -instance AttrInfo ScannerConfigChar2TokenFieldInfo where - type AttrAllowedOps ScannerConfigChar2TokenFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerConfigChar2TokenFieldInfo = (~) Word32 - type AttrBaseTypeConstraint ScannerConfigChar2TokenFieldInfo = (~) ScannerConfig - type AttrGetType ScannerConfigChar2TokenFieldInfo = Word32 - type AttrLabel ScannerConfigChar2TokenFieldInfo = "char_2_token" - attrGet _ = scannerConfigReadChar2Token - attrSet _ = scannerConfigWriteChar2Token - attrConstruct = undefined - attrClear _ = undefined - -scannerConfigChar2Token :: AttrLabelProxy "char2Token" -scannerConfigChar2Token = AttrLabelProxy - - -scannerConfigReadSymbol2Token :: MonadIO m => ScannerConfig -> m Word32 -scannerConfigReadSymbol2Token s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 108) :: IO Word32 - return val - -scannerConfigWriteSymbol2Token :: MonadIO m => ScannerConfig -> Word32 -> m () -scannerConfigWriteSymbol2Token s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 108) (val :: Word32) - -data ScannerConfigSymbol2TokenFieldInfo -instance AttrInfo ScannerConfigSymbol2TokenFieldInfo where - type AttrAllowedOps ScannerConfigSymbol2TokenFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerConfigSymbol2TokenFieldInfo = (~) Word32 - type AttrBaseTypeConstraint ScannerConfigSymbol2TokenFieldInfo = (~) ScannerConfig - type AttrGetType ScannerConfigSymbol2TokenFieldInfo = Word32 - type AttrLabel ScannerConfigSymbol2TokenFieldInfo = "symbol_2_token" - attrGet _ = scannerConfigReadSymbol2Token - attrSet _ = scannerConfigWriteSymbol2Token - attrConstruct = undefined - attrClear _ = undefined - -scannerConfigSymbol2Token :: AttrLabelProxy "symbol2Token" -scannerConfigSymbol2Token = AttrLabelProxy - - -scannerConfigReadScope0Fallback :: MonadIO m => ScannerConfig -> m Word32 -scannerConfigReadScope0Fallback s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 112) :: IO Word32 - return val - -scannerConfigWriteScope0Fallback :: MonadIO m => ScannerConfig -> Word32 -> m () -scannerConfigWriteScope0Fallback s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 112) (val :: Word32) - -data ScannerConfigScope0FallbackFieldInfo -instance AttrInfo ScannerConfigScope0FallbackFieldInfo where - type AttrAllowedOps ScannerConfigScope0FallbackFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerConfigScope0FallbackFieldInfo = (~) Word32 - type AttrBaseTypeConstraint ScannerConfigScope0FallbackFieldInfo = (~) ScannerConfig - type AttrGetType ScannerConfigScope0FallbackFieldInfo = Word32 - type AttrLabel ScannerConfigScope0FallbackFieldInfo = "scope_0_fallback" - attrGet _ = scannerConfigReadScope0Fallback - attrSet _ = scannerConfigWriteScope0Fallback - attrConstruct = undefined - attrClear _ = undefined - -scannerConfigScope0Fallback :: AttrLabelProxy "scope0Fallback" -scannerConfigScope0Fallback = AttrLabelProxy - - -scannerConfigReadStoreInt64 :: MonadIO m => ScannerConfig -> m Word32 -scannerConfigReadStoreInt64 s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 116) :: IO Word32 - return val - -scannerConfigWriteStoreInt64 :: MonadIO m => ScannerConfig -> Word32 -> m () -scannerConfigWriteStoreInt64 s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 116) (val :: Word32) - -data ScannerConfigStoreInt64FieldInfo -instance AttrInfo ScannerConfigStoreInt64FieldInfo where - type AttrAllowedOps ScannerConfigStoreInt64FieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ScannerConfigStoreInt64FieldInfo = (~) Word32 - type AttrBaseTypeConstraint ScannerConfigStoreInt64FieldInfo = (~) ScannerConfig - type AttrGetType ScannerConfigStoreInt64FieldInfo = Word32 - type AttrLabel ScannerConfigStoreInt64FieldInfo = "store_int64" - attrGet _ = scannerConfigReadStoreInt64 - attrSet _ = scannerConfigWriteStoreInt64 - attrConstruct = undefined - attrClear _ = undefined - -scannerConfigStoreInt64 :: AttrLabelProxy "storeInt64" -scannerConfigStoreInt64 = AttrLabelProxy - - - -type instance AttributeList ScannerConfig = ScannerConfigAttributeList -type ScannerConfigAttributeList = ('[ '("csetSkipCharacters", ScannerConfigCsetSkipCharactersFieldInfo), '("csetIdentifierFirst", ScannerConfigCsetIdentifierFirstFieldInfo), '("csetIdentifierNth", ScannerConfigCsetIdentifierNthFieldInfo), '("cpairCommentSingle", ScannerConfigCpairCommentSingleFieldInfo), '("caseSensitive", ScannerConfigCaseSensitiveFieldInfo), '("skipCommentMulti", ScannerConfigSkipCommentMultiFieldInfo), '("skipCommentSingle", ScannerConfigSkipCommentSingleFieldInfo), '("scanCommentMulti", ScannerConfigScanCommentMultiFieldInfo), '("scanIdentifier", ScannerConfigScanIdentifierFieldInfo), '("scanIdentifier1char", ScannerConfigScanIdentifier1charFieldInfo), '("scanIdentifierNULL", ScannerConfigScanIdentifierNULLFieldInfo), '("scanSymbols", ScannerConfigScanSymbolsFieldInfo), '("scanBinary", ScannerConfigScanBinaryFieldInfo), '("scanOctal", ScannerConfigScanOctalFieldInfo), '("scanFloat", ScannerConfigScanFloatFieldInfo), '("scanHex", ScannerConfigScanHexFieldInfo), '("scanHexDollar", ScannerConfigScanHexDollarFieldInfo), '("scanStringSq", ScannerConfigScanStringSqFieldInfo), '("scanStringDq", ScannerConfigScanStringDqFieldInfo), '("numbers2Int", ScannerConfigNumbers2IntFieldInfo), '("int2Float", ScannerConfigInt2FloatFieldInfo), '("identifier2String", ScannerConfigIdentifier2StringFieldInfo), '("char2Token", ScannerConfigChar2TokenFieldInfo), '("symbol2Token", ScannerConfigSymbol2TokenFieldInfo), '("scope0Fallback", ScannerConfigScope0FallbackFieldInfo), '("storeInt64", ScannerConfigStoreInt64FieldInfo)] :: [(Symbol, *)]) - -type family ResolveScannerConfigMethod (t :: Symbol) (o :: *) :: * where - ResolveScannerConfigMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveScannerConfigMethod t ScannerConfig, MethodInfo info ScannerConfig p) => IsLabelProxy t (ScannerConfig -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveScannerConfigMethod t ScannerConfig, MethodInfo info ScannerConfig p) => IsLabel t (ScannerConfig -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,11 +0,0 @@ -module GI.GLib.Structs.ScannerConfig where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ScannerConfig = ScannerConfig (ForeignPtr ScannerConfig) -instance WrappedPtr ScannerConfig where 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,310 +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 - SequenceFreeMethodInfo , - sequenceFree , - - --- ** sequenceGetLength - SequenceGetLengthMethodInfo , - sequenceGetLength , - - --- ** sequenceMove - sequenceMove , - - --- ** sequenceMoveRange - sequenceMoveRange , - - --- ** sequenceRemove - sequenceRemove , - - --- ** sequenceRemoveRange - sequenceRemoveRange , - - --- ** sequenceSet - sequenceSet , - - --- ** sequenceSwap - sequenceSwap , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Sequence = Sequence (ForeignPtr Sequence) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr Sequence where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noSequence :: Maybe Sequence -noSequence = Nothing - - -type instance AttributeList Sequence = SequenceAttributeList -type SequenceAttributeList = ('[ ] :: [(Symbol, *)]) - --- method Sequence::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Sequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -sequenceFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_sequence_free _obj' - touchManagedPtr _obj - return () - -data SequenceFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo SequenceFreeMethodInfo Sequence signature where - overloadedMethod _ = sequenceFree - --- method Sequence::get_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Sequence", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_sequence_get_length" g_sequence_get_length :: - Ptr Sequence -> -- _obj : TInterface "GLib" "Sequence" - IO Int32 - - -sequenceGetLength :: - (MonadIO m) => - Sequence -- _obj - -> m Int32 -- result -sequenceGetLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_sequence_get_length _obj' - touchManagedPtr _obj - return result - -data SequenceGetLengthMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo SequenceGetLengthMethodInfo Sequence signature where - overloadedMethod _ = sequenceGetLength - --- method Sequence::move --- method type : MemberFunction --- Args : [Arg {argCName = "src", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -sequenceMove src dest = liftIO $ do - let src' = unsafeManagedPtrGetPtr src - let dest' = unsafeManagedPtrGetPtr dest - g_sequence_move src' dest' - touchManagedPtr src - touchManagedPtr dest - return () - --- method Sequence::move_range --- method type : MemberFunction --- Args : [Arg {argCName = "dest", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "begin", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - --- method Sequence::remove --- method type : MemberFunction --- Args : [Arg {argCName = "iter", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -sequenceRemove iter = liftIO $ do - let iter' = unsafeManagedPtrGetPtr iter - g_sequence_remove iter' - touchManagedPtr iter - return () - --- method Sequence::remove_range --- method type : MemberFunction --- Args : [Arg {argCName = "begin", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -sequenceRemoveRange begin end = liftIO $ do - let begin' = unsafeManagedPtrGetPtr begin - let end' = unsafeManagedPtrGetPtr end - g_sequence_remove_range begin' end' - touchManagedPtr begin - touchManagedPtr end - return () - --- method Sequence::set --- method type : MemberFunction --- Args : [Arg {argCName = "iter", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_sequence_set" g_sequence_set :: - Ptr SequenceIter -> -- iter : TInterface "GLib" "SequenceIter" - Ptr () -> -- data : TBasicType TPtr - IO () - - -sequenceSet :: - (MonadIO m) => - SequenceIter -- iter - -> Ptr () -- data_ - -> m () -- result -sequenceSet iter data_ = liftIO $ do - let iter' = unsafeManagedPtrGetPtr iter - g_sequence_set iter' data_ - touchManagedPtr iter - return () - --- method Sequence::swap --- method type : MemberFunction --- Args : [Arg {argCName = "a", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -sequenceSwap a b = liftIO $ do - let a' = unsafeManagedPtrGetPtr a - let b' = unsafeManagedPtrGetPtr b - g_sequence_swap a' b' - touchManagedPtr a - touchManagedPtr b - return () - -type family ResolveSequenceMethod (t :: Symbol) (o :: *) :: * where - ResolveSequenceMethod "free" o = SequenceFreeMethodInfo - ResolveSequenceMethod "getLength" o = SequenceGetLengthMethodInfo - ResolveSequenceMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSequenceMethod t Sequence, MethodInfo info Sequence p) => IsLabelProxy t (Sequence -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSequenceMethod t Sequence, MethodInfo info Sequence p) => IsLabel t (Sequence -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,13 +0,0 @@ -module GI.GLib.Structs.Sequence where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Sequence = Sequence (ForeignPtr Sequence) -instance WrappedPtr Sequence where -data SequenceFreeMethodInfo -data SequenceGetLengthMethodInfo 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,198 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -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 - SequenceIterCompareMethodInfo , - sequenceIterCompare , - - --- ** sequenceIterGetPosition - SequenceIterGetPositionMethodInfo , - sequenceIterGetPosition , - - --- ** sequenceIterIsBegin - SequenceIterIsBeginMethodInfo , - sequenceIterIsBegin , - - --- ** sequenceIterIsEnd - SequenceIterIsEndMethodInfo , - sequenceIterIsEnd , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype SequenceIter = SequenceIter (ForeignPtr SequenceIter) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr SequenceIter where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noSequenceIter :: Maybe SequenceIter -noSequenceIter = Nothing - - -type instance AttributeList SequenceIter = SequenceIterAttributeList -type SequenceIterAttributeList = ('[ ] :: [(Symbol, *)]) - --- method SequenceIter::compare --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "b", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 - -data SequenceIterCompareMethodInfo -instance (signature ~ (SequenceIter -> m Int32), MonadIO m) => MethodInfo SequenceIterCompareMethodInfo SequenceIter signature where - overloadedMethod _ = sequenceIterCompare - --- method SequenceIter::get_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_sequence_iter_get_position" g_sequence_iter_get_position :: - Ptr SequenceIter -> -- _obj : TInterface "GLib" "SequenceIter" - IO Int32 - - -sequenceIterGetPosition :: - (MonadIO m) => - SequenceIter -- _obj - -> m Int32 -- result -sequenceIterGetPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_sequence_iter_get_position _obj' - touchManagedPtr _obj - return result - -data SequenceIterGetPositionMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo SequenceIterGetPositionMethodInfo SequenceIter signature where - overloadedMethod _ = sequenceIterGetPosition - --- method SequenceIter::is_begin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_sequence_iter_is_begin" g_sequence_iter_is_begin :: - Ptr SequenceIter -> -- _obj : TInterface "GLib" "SequenceIter" - IO CInt - - -sequenceIterIsBegin :: - (MonadIO m) => - SequenceIter -- _obj - -> m Bool -- result -sequenceIterIsBegin _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_sequence_iter_is_begin _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SequenceIterIsBeginMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo SequenceIterIsBeginMethodInfo SequenceIter signature where - overloadedMethod _ = sequenceIterIsBegin - --- method SequenceIter::is_end --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "SequenceIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_sequence_iter_is_end" g_sequence_iter_is_end :: - Ptr SequenceIter -> -- _obj : TInterface "GLib" "SequenceIter" - IO CInt - - -sequenceIterIsEnd :: - (MonadIO m) => - SequenceIter -- _obj - -> m Bool -- result -sequenceIterIsEnd _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_sequence_iter_is_end _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SequenceIterIsEndMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo SequenceIterIsEndMethodInfo SequenceIter signature where - overloadedMethod _ = sequenceIterIsEnd - -type family ResolveSequenceIterMethod (t :: Symbol) (o :: *) :: * where - ResolveSequenceIterMethod "compare" o = SequenceIterCompareMethodInfo - ResolveSequenceIterMethod "isBegin" o = SequenceIterIsBeginMethodInfo - ResolveSequenceIterMethod "isEnd" o = SequenceIterIsEndMethodInfo - ResolveSequenceIterMethod "getPosition" o = SequenceIterGetPositionMethodInfo - ResolveSequenceIterMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSequenceIterMethod t SequenceIter, MethodInfo info SequenceIter p) => IsLabelProxy t (SequenceIter -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSequenceIterMethod t SequenceIter, MethodInfo info SequenceIter p) => IsLabel t (SequenceIter -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,15 +0,0 @@ -module GI.GLib.Structs.SequenceIter where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype SequenceIter = SequenceIter (ForeignPtr SequenceIter) -instance WrappedPtr SequenceIter where -data SequenceIterCompareMethodInfo -data SequenceIterGetPositionMethodInfo -data SequenceIterIsBeginMethodInfo -data SequenceIterIsEndMethodInfo 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,1179 +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(..) , - newZeroSource , - noSource , - - - -- * Methods --- ** sourceAddChildSource - SourceAddChildSourceMethodInfo , - sourceAddChildSource , - - --- ** sourceAddPoll - SourceAddPollMethodInfo , - sourceAddPoll , - - --- ** sourceAttach - SourceAttachMethodInfo , - sourceAttach , - - --- ** sourceDestroy - SourceDestroyMethodInfo , - sourceDestroy , - - --- ** sourceGetCanRecurse - SourceGetCanRecurseMethodInfo , - sourceGetCanRecurse , - - --- ** sourceGetContext - SourceGetContextMethodInfo , - sourceGetContext , - - --- ** sourceGetCurrentTime - SourceGetCurrentTimeMethodInfo , - sourceGetCurrentTime , - - --- ** sourceGetId - SourceGetIdMethodInfo , - sourceGetId , - - --- ** sourceGetName - SourceGetNameMethodInfo , - sourceGetName , - - --- ** sourceGetPriority - SourceGetPriorityMethodInfo , - sourceGetPriority , - - --- ** sourceGetReadyTime - SourceGetReadyTimeMethodInfo , - sourceGetReadyTime , - - --- ** sourceGetTime - SourceGetTimeMethodInfo , - sourceGetTime , - - --- ** sourceIsDestroyed - SourceIsDestroyedMethodInfo , - sourceIsDestroyed , - - --- ** sourceModifyUnixFd - SourceModifyUnixFdMethodInfo , - sourceModifyUnixFd , - - --- ** sourceNew - sourceNew , - - --- ** sourceQueryUnixFd - SourceQueryUnixFdMethodInfo , - sourceQueryUnixFd , - - --- ** sourceRef - SourceRefMethodInfo , - sourceRef , - - --- ** sourceRemove - sourceRemove , - - --- ** sourceRemoveByFuncsUserData - sourceRemoveByFuncsUserData , - - --- ** sourceRemoveByUserData - sourceRemoveByUserData , - - --- ** sourceRemoveChildSource - SourceRemoveChildSourceMethodInfo , - sourceRemoveChildSource , - - --- ** sourceRemovePoll - SourceRemovePollMethodInfo , - sourceRemovePoll , - - --- ** sourceRemoveUnixFd - SourceRemoveUnixFdMethodInfo , - sourceRemoveUnixFd , - - --- ** sourceSetCallback - SourceSetCallbackMethodInfo , - sourceSetCallback , - - --- ** sourceSetCallbackIndirect - SourceSetCallbackIndirectMethodInfo , - sourceSetCallbackIndirect , - - --- ** sourceSetCanRecurse - SourceSetCanRecurseMethodInfo , - sourceSetCanRecurse , - - --- ** sourceSetFuncs - SourceSetFuncsMethodInfo , - sourceSetFuncs , - - --- ** sourceSetName - SourceSetNameMethodInfo , - sourceSetName , - - --- ** sourceSetNameById - sourceSetNameById , - - --- ** sourceSetPriority - SourceSetPriorityMethodInfo , - sourceSetPriority , - - --- ** sourceSetReadyTime - SourceSetReadyTimeMethodInfo , - sourceSetReadyTime , - - --- ** sourceUnref - SourceUnrefMethodInfo , - sourceUnref , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.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 - --- | Construct a `Source` struct initialized to zero. -newZeroSource :: MonadIO m => m Source -newZeroSource = liftIO $ callocBoxedBytes 96 >>= wrapBoxed Source - -instance tag ~ 'AttrSet => Constructible Source tag where - new _ attrs = do - o <- newZeroSource - GI.Attributes.set o attrs - return o - - -noSource :: Maybe Source -noSource = Nothing - - -type instance AttributeList Source = SourceAttributeList -type SourceAttributeList = ('[ ] :: [(Symbol, *)]) - --- method Source::new --- method type : Constructor --- Args : [Arg {argCName = "source_funcs", argType = TInterface "GLib" "SourceFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "struct_size", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "Source") --- throws : False --- Skip return : False - -foreign import ccall "g_source_new" g_source_new :: - Ptr SourceFuncs -> -- source_funcs : TInterface "GLib" "SourceFuncs" - Word32 -> -- struct_size : TBasicType TUInt - IO (Ptr Source) - - -sourceNew :: - (MonadIO m) => - SourceFuncs -- sourceFuncs - -> Word32 -- structSize - -> m Source -- result -sourceNew sourceFuncs structSize = liftIO $ do - let sourceFuncs' = unsafeManagedPtrGetPtr sourceFuncs - result <- g_source_new sourceFuncs' structSize - checkUnexpectedReturnNULL "g_source_new" result - result' <- (wrapBoxed Source) result - touchManagedPtr sourceFuncs - return result' - --- method Source::add_child_source --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_source", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- childSource - -> m () -- result -sourceAddChildSource _obj childSource = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let childSource' = unsafeManagedPtrGetPtr childSource - g_source_add_child_source _obj' childSource' - touchManagedPtr _obj - touchManagedPtr childSource - return () - -data SourceAddChildSourceMethodInfo -instance (signature ~ (Source -> m ()), MonadIO m) => MethodInfo SourceAddChildSourceMethodInfo Source signature where - overloadedMethod _ = sourceAddChildSource - --- method Source::add_poll --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -sourceAddPoll _obj fd = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let fd' = unsafeManagedPtrGetPtr fd - g_source_add_poll _obj' fd' - touchManagedPtr _obj - touchManagedPtr fd - return () - -data SourceAddPollMethodInfo -instance (signature ~ (PollFD -> m ()), MonadIO m) => MethodInfo SourceAddPollMethodInfo Source signature where - overloadedMethod _ = sourceAddPoll - --- method Source::attach --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 - -data SourceAttachMethodInfo -instance (signature ~ (Maybe (MainContext) -> m Word32), MonadIO m) => MethodInfo SourceAttachMethodInfo Source signature where - overloadedMethod _ = sourceAttach - --- method Source::destroy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -sourceDestroy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_source_destroy _obj' - touchManagedPtr _obj - return () - -data SourceDestroyMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo SourceDestroyMethodInfo Source signature where - overloadedMethod _ = sourceDestroy - --- method Source::get_can_recurse --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_source_get_can_recurse" g_source_get_can_recurse :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - IO CInt - - -sourceGetCanRecurse :: - (MonadIO m) => - Source -- _obj - -> m Bool -- result -sourceGetCanRecurse _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_source_get_can_recurse _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SourceGetCanRecurseMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo SourceGetCanRecurseMethodInfo Source signature where - overloadedMethod _ = sourceGetCanRecurse - --- method Source::get_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "MainContext") --- throws : False --- Skip return : False - -foreign import ccall "g_source_get_context" g_source_get_context :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - IO (Ptr MainContext) - - -sourceGetContext :: - (MonadIO m) => - Source -- _obj - -> m MainContext -- result -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' - -data SourceGetContextMethodInfo -instance (signature ~ (m MainContext), MonadIO m) => MethodInfo SourceGetContextMethodInfo Source signature where - overloadedMethod _ = sourceGetContext - --- method Source::get_current_time --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeval", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 () -- result -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 () - -data SourceGetCurrentTimeMethodInfo -instance (signature ~ (TimeVal -> m ()), MonadIO m) => MethodInfo SourceGetCurrentTimeMethodInfo Source signature where - overloadedMethod _ = sourceGetCurrentTime - --- method Source::get_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_source_get_id" g_source_get_id :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - IO Word32 - - -sourceGetId :: - (MonadIO m) => - Source -- _obj - -> m Word32 -- result -sourceGetId _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_source_get_id _obj' - touchManagedPtr _obj - return result - -data SourceGetIdMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo SourceGetIdMethodInfo Source signature where - overloadedMethod _ = sourceGetId - --- method Source::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_source_get_name" g_source_get_name :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - IO CString - - -sourceGetName :: - (MonadIO m) => - Source -- _obj - -> m T.Text -- result -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' - -data SourceGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo SourceGetNameMethodInfo Source signature where - overloadedMethod _ = sourceGetName - --- method Source::get_priority --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_source_get_priority" g_source_get_priority :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - IO Int32 - - -sourceGetPriority :: - (MonadIO m) => - Source -- _obj - -> m Int32 -- result -sourceGetPriority _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_source_get_priority _obj' - touchManagedPtr _obj - return result - -data SourceGetPriorityMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo SourceGetPriorityMethodInfo Source signature where - overloadedMethod _ = sourceGetPriority - --- method Source::get_ready_time --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_source_get_ready_time" g_source_get_ready_time :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - IO Int64 - - -sourceGetReadyTime :: - (MonadIO m) => - Source -- _obj - -> m Int64 -- result -sourceGetReadyTime _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_source_get_ready_time _obj' - touchManagedPtr _obj - return result - -data SourceGetReadyTimeMethodInfo -instance (signature ~ (m Int64), MonadIO m) => MethodInfo SourceGetReadyTimeMethodInfo Source signature where - overloadedMethod _ = sourceGetReadyTime - --- method Source::get_time --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_source_get_time" g_source_get_time :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - IO Int64 - - -sourceGetTime :: - (MonadIO m) => - Source -- _obj - -> m Int64 -- result -sourceGetTime _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_source_get_time _obj' - touchManagedPtr _obj - return result - -data SourceGetTimeMethodInfo -instance (signature ~ (m Int64), MonadIO m) => MethodInfo SourceGetTimeMethodInfo Source signature where - overloadedMethod _ = sourceGetTime - --- method Source::is_destroyed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_source_is_destroyed" g_source_is_destroyed :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - IO CInt - - -sourceIsDestroyed :: - (MonadIO m) => - Source -- _obj - -> m Bool -- result -sourceIsDestroyed _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_source_is_destroyed _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SourceIsDestroyedMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo SourceIsDestroyedMethodInfo Source signature where - overloadedMethod _ = sourceIsDestroyed - --- method Source::modify_unix_fd --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_events", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr - CUInt -> -- new_events : TInterface "GLib" "IOCondition" - IO () - - -sourceModifyUnixFd :: - (MonadIO m) => - Source -- _obj - -> Ptr () -- tag - -> [IOCondition] -- newEvents - -> m () -- result -sourceModifyUnixFd _obj tag newEvents = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let newEvents' = gflagsToWord newEvents - g_source_modify_unix_fd _obj' tag newEvents' - touchManagedPtr _obj - return () - -data SourceModifyUnixFdMethodInfo -instance (signature ~ (Ptr () -> [IOCondition] -> m ()), MonadIO m) => MethodInfo SourceModifyUnixFdMethodInfo Source signature where - overloadedMethod _ = sourceModifyUnixFd - --- method Source::query_unix_fd --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "IOCondition") --- throws : False --- Skip return : False - -foreign import ccall "g_source_query_unix_fd" g_source_query_unix_fd :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - Ptr () -> -- tag : TBasicType TPtr - IO CUInt - - -sourceQueryUnixFd :: - (MonadIO m) => - Source -- _obj - -> Ptr () -- tag - -> m [IOCondition] -- result -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' - -data SourceQueryUnixFdMethodInfo -instance (signature ~ (Ptr () -> m [IOCondition]), MonadIO m) => MethodInfo SourceQueryUnixFdMethodInfo Source signature where - overloadedMethod _ = sourceQueryUnixFd - --- method Source::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "Source") --- throws : False --- Skip return : False - -foreign import ccall "g_source_ref" g_source_ref :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - IO (Ptr Source) - - -sourceRef :: - (MonadIO m) => - Source -- _obj - -> m Source -- result -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' - -data SourceRefMethodInfo -instance (signature ~ (m Source), MonadIO m) => MethodInfo SourceRefMethodInfo Source signature where - overloadedMethod _ = sourceRef - --- method Source::remove_child_source --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_source", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- childSource - -> m () -- result -sourceRemoveChildSource _obj childSource = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let childSource' = unsafeManagedPtrGetPtr childSource - g_source_remove_child_source _obj' childSource' - touchManagedPtr _obj - touchManagedPtr childSource - return () - -data SourceRemoveChildSourceMethodInfo -instance (signature ~ (Source -> m ()), MonadIO m) => MethodInfo SourceRemoveChildSourceMethodInfo Source signature where - overloadedMethod _ = sourceRemoveChildSource - --- method Source::remove_poll --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -sourceRemovePoll _obj fd = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let fd' = unsafeManagedPtrGetPtr fd - g_source_remove_poll _obj' fd' - touchManagedPtr _obj - touchManagedPtr fd - return () - -data SourceRemovePollMethodInfo -instance (signature ~ (PollFD -> m ()), MonadIO m) => MethodInfo SourceRemovePollMethodInfo Source signature where - overloadedMethod _ = sourceRemovePoll - --- method Source::remove_unix_fd --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tag", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_source_remove_unix_fd" g_source_remove_unix_fd :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - Ptr () -> -- tag : TBasicType TPtr - IO () - - -sourceRemoveUnixFd :: - (MonadIO m) => - Source -- _obj - -> Ptr () -- tag - -> m () -- result -sourceRemoveUnixFd _obj tag = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_source_remove_unix_fd _obj' tag - touchManagedPtr _obj - return () - -data SourceRemoveUnixFdMethodInfo -instance (signature ~ (Ptr () -> m ()), MonadIO m) => MethodInfo SourceRemoveUnixFdMethodInfo Source signature where - overloadedMethod _ = sourceRemoveUnixFd - --- method Source::set_callback --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_source_set_callback" g_source_set_callback :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - FunPtr SourceFuncC -> -- func : TInterface "GLib" "SourceFunc" - Ptr () -> -- data : TBasicType TPtr - FunPtr DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO () - - -sourceSetCallback :: - (MonadIO m) => - Source -- _obj - -> SourceFunc -- func - -> m () -- result -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 () - -data SourceSetCallbackMethodInfo -instance (signature ~ (SourceFunc -> m ()), MonadIO m) => MethodInfo SourceSetCallbackMethodInfo Source signature where - overloadedMethod _ = sourceSetCallback - --- method Source::set_callback_indirect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_funcs", argType = TInterface "GLib" "SourceCallbackFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr - Ptr SourceCallbackFuncs -> -- callback_funcs : TInterface "GLib" "SourceCallbackFuncs" - IO () - - -sourceSetCallbackIndirect :: - (MonadIO m) => - Source -- _obj - -> Ptr () -- callbackData - -> SourceCallbackFuncs -- callbackFuncs - -> m () -- result -sourceSetCallbackIndirect _obj callbackData callbackFuncs = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let callbackFuncs' = unsafeManagedPtrGetPtr callbackFuncs - g_source_set_callback_indirect _obj' callbackData callbackFuncs' - touchManagedPtr _obj - touchManagedPtr callbackFuncs - return () - -data SourceSetCallbackIndirectMethodInfo -instance (signature ~ (Ptr () -> SourceCallbackFuncs -> m ()), MonadIO m) => MethodInfo SourceSetCallbackIndirectMethodInfo Source signature where - overloadedMethod _ = sourceSetCallbackIndirect - --- method Source::set_can_recurse --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "can_recurse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- canRecurse - -> m () -- result -sourceSetCanRecurse _obj canRecurse = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let canRecurse' = (fromIntegral . fromEnum) canRecurse - g_source_set_can_recurse _obj' canRecurse' - touchManagedPtr _obj - return () - -data SourceSetCanRecurseMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m) => MethodInfo SourceSetCanRecurseMethodInfo Source signature where - overloadedMethod _ = sourceSetCanRecurse - --- method Source::set_funcs --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "funcs", argType = TInterface "GLib" "SourceFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -sourceSetFuncs _obj funcs = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let funcs' = unsafeManagedPtrGetPtr funcs - g_source_set_funcs _obj' funcs' - touchManagedPtr _obj - touchManagedPtr funcs - return () - -data SourceSetFuncsMethodInfo -instance (signature ~ (SourceFuncs -> m ()), MonadIO m) => MethodInfo SourceSetFuncsMethodInfo Source signature where - overloadedMethod _ = sourceSetFuncs - --- method Source::set_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 () -- result -sourceSetName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - g_source_set_name _obj' name' - touchManagedPtr _obj - freeMem name' - return () - -data SourceSetNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo SourceSetNameMethodInfo Source signature where - overloadedMethod _ = sourceSetName - --- method Source::set_priority --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_source_set_priority" g_source_set_priority :: - Ptr Source -> -- _obj : TInterface "GLib" "Source" - Int32 -> -- priority : TBasicType TInt - IO () - - -sourceSetPriority :: - (MonadIO m) => - Source -- _obj - -> Int32 -- priority - -> m () -- result -sourceSetPriority _obj priority = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_source_set_priority _obj' priority - touchManagedPtr _obj - return () - -data SourceSetPriorityMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo SourceSetPriorityMethodInfo Source signature where - overloadedMethod _ = sourceSetPriority - --- method Source::set_ready_time --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ready_time", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- readyTime - -> m () -- result -sourceSetReadyTime _obj readyTime = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_source_set_ready_time _obj' readyTime - touchManagedPtr _obj - return () - -data SourceSetReadyTimeMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m) => MethodInfo SourceSetReadyTimeMethodInfo Source signature where - overloadedMethod _ = sourceSetReadyTime - --- method Source::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -sourceUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_source_unref _obj' - touchManagedPtr _obj - return () - -data SourceUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo SourceUnrefMethodInfo Source signature where - overloadedMethod _ = sourceUnref - --- method Source::remove --- method type : MemberFunction --- Args : [Arg {argCName = "tag", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_source_remove" g_source_remove :: - Word32 -> -- tag : TBasicType TUInt - IO CInt - - -sourceRemove :: - (MonadIO m) => - Word32 -- tag - -> m Bool -- result -sourceRemove tag = liftIO $ do - result <- g_source_remove tag - let result' = (/= 0) result - return result' - --- method Source::remove_by_funcs_user_data --- method type : MemberFunction --- Args : [Arg {argCName = "funcs", argType = TInterface "GLib" "SourceFuncs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TPtr - IO CInt - - -sourceRemoveByFuncsUserData :: - (MonadIO m) => - SourceFuncs -- funcs - -> Ptr () -- userData - -> m Bool -- result -sourceRemoveByFuncsUserData funcs userData = liftIO $ do - let funcs' = unsafeManagedPtrGetPtr funcs - result <- g_source_remove_by_funcs_user_data funcs' userData - let result' = (/= 0) result - touchManagedPtr funcs - return result' - --- method Source::remove_by_user_data --- method type : MemberFunction --- Args : [Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType 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 TPtr - IO CInt - - -sourceRemoveByUserData :: - (MonadIO m) => - Ptr () -- userData - -> m Bool -- result -sourceRemoveByUserData userData = liftIO $ do - result <- g_source_remove_by_user_data userData - let result' = (/= 0) result - return result' - --- method Source::set_name_by_id --- method type : MemberFunction --- Args : [Arg {argCName = "tag", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_source_set_name_by_id" g_source_set_name_by_id :: - Word32 -> -- tag : TBasicType TUInt - CString -> -- name : TBasicType TUTF8 - IO () - - -sourceSetNameById :: - (MonadIO m) => - Word32 -- tag - -> T.Text -- name - -> m () -- result -sourceSetNameById tag name = liftIO $ do - name' <- textToCString name - g_source_set_name_by_id tag name' - freeMem name' - return () - -type family ResolveSourceMethod (t :: Symbol) (o :: *) :: * where - ResolveSourceMethod "addChildSource" o = SourceAddChildSourceMethodInfo - ResolveSourceMethod "addPoll" o = SourceAddPollMethodInfo - ResolveSourceMethod "attach" o = SourceAttachMethodInfo - ResolveSourceMethod "destroy" o = SourceDestroyMethodInfo - ResolveSourceMethod "isDestroyed" o = SourceIsDestroyedMethodInfo - ResolveSourceMethod "modifyUnixFd" o = SourceModifyUnixFdMethodInfo - ResolveSourceMethod "queryUnixFd" o = SourceQueryUnixFdMethodInfo - ResolveSourceMethod "ref" o = SourceRefMethodInfo - ResolveSourceMethod "removeChildSource" o = SourceRemoveChildSourceMethodInfo - ResolveSourceMethod "removePoll" o = SourceRemovePollMethodInfo - ResolveSourceMethod "removeUnixFd" o = SourceRemoveUnixFdMethodInfo - ResolveSourceMethod "unref" o = SourceUnrefMethodInfo - ResolveSourceMethod "getCanRecurse" o = SourceGetCanRecurseMethodInfo - ResolveSourceMethod "getContext" o = SourceGetContextMethodInfo - ResolveSourceMethod "getCurrentTime" o = SourceGetCurrentTimeMethodInfo - ResolveSourceMethod "getId" o = SourceGetIdMethodInfo - ResolveSourceMethod "getName" o = SourceGetNameMethodInfo - ResolveSourceMethod "getPriority" o = SourceGetPriorityMethodInfo - ResolveSourceMethod "getReadyTime" o = SourceGetReadyTimeMethodInfo - ResolveSourceMethod "getTime" o = SourceGetTimeMethodInfo - ResolveSourceMethod "setCallback" o = SourceSetCallbackMethodInfo - ResolveSourceMethod "setCallbackIndirect" o = SourceSetCallbackIndirectMethodInfo - ResolveSourceMethod "setCanRecurse" o = SourceSetCanRecurseMethodInfo - ResolveSourceMethod "setFuncs" o = SourceSetFuncsMethodInfo - ResolveSourceMethod "setName" o = SourceSetNameMethodInfo - ResolveSourceMethod "setPriority" o = SourceSetPriorityMethodInfo - ResolveSourceMethod "setReadyTime" o = SourceSetReadyTimeMethodInfo - ResolveSourceMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSourceMethod t Source, MethodInfo info Source p) => IsLabelProxy t (Source -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSourceMethod t Source, MethodInfo info Source p) => IsLabel t (Source -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,38 +0,0 @@ -module GI.GLib.Structs.Source where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Source = Source (ForeignPtr Source) -instance BoxedObject Source where -data SourceAddChildSourceMethodInfo -data SourceAddPollMethodInfo -data SourceAttachMethodInfo -data SourceDestroyMethodInfo -data SourceGetCanRecurseMethodInfo -data SourceGetContextMethodInfo -data SourceGetCurrentTimeMethodInfo -data SourceGetIdMethodInfo -data SourceGetNameMethodInfo -data SourceGetPriorityMethodInfo -data SourceGetReadyTimeMethodInfo -data SourceGetTimeMethodInfo -data SourceIsDestroyedMethodInfo -data SourceModifyUnixFdMethodInfo -data SourceQueryUnixFdMethodInfo -data SourceRefMethodInfo -data SourceRemoveChildSourceMethodInfo -data SourceRemovePollMethodInfo -data SourceRemoveUnixFdMethodInfo -data SourceSetCallbackMethodInfo -data SourceSetCallbackIndirectMethodInfo -data SourceSetCanRecurseMethodInfo -data SourceSetFuncsMethodInfo -data SourceSetNameMethodInfo -data SourceSetPriorityMethodInfo -data SourceSetReadyTimeMethodInfo -data SourceUnrefMethodInfo 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,70 +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(..) , - newZeroSourceCallbackFuncs , - noSourceCallbackFuncs , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype SourceCallbackFuncs = SourceCallbackFuncs (ForeignPtr SourceCallbackFuncs) -instance WrappedPtr SourceCallbackFuncs where - wrappedPtrCalloc = callocBytes 24 - wrappedPtrCopy = copyPtr 24 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `SourceCallbackFuncs` struct initialized to zero. -newZeroSourceCallbackFuncs :: MonadIO m => m SourceCallbackFuncs -newZeroSourceCallbackFuncs = liftIO $ wrappedPtrCalloc >>= wrapPtr SourceCallbackFuncs - -instance tag ~ 'AttrSet => Constructible SourceCallbackFuncs tag where - new _ attrs = do - o <- newZeroSourceCallbackFuncs - GI.Attributes.set o attrs - return o - - -noSourceCallbackFuncs :: Maybe SourceCallbackFuncs -noSourceCallbackFuncs = Nothing - --- XXX Skipped attribute for "SourceCallbackFuncs:ref" :: Not implemented: "Wrapping foreign callbacks is not supported yet" --- XXX Skipped attribute for "SourceCallbackFuncs:unref" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - -type instance AttributeList SourceCallbackFuncs = SourceCallbackFuncsAttributeList -type SourceCallbackFuncsAttributeList = ('[ ] :: [(Symbol, *)]) - -type family ResolveSourceCallbackFuncsMethod (t :: Symbol) (o :: *) :: * where - ResolveSourceCallbackFuncsMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSourceCallbackFuncsMethod t SourceCallbackFuncs, MethodInfo info SourceCallbackFuncs p) => IsLabelProxy t (SourceCallbackFuncs -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSourceCallbackFuncsMethod t SourceCallbackFuncs, MethodInfo info SourceCallbackFuncs p) => IsLabel t (SourceCallbackFuncs -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,11 +0,0 @@ -module GI.GLib.Structs.SourceCallbackFuncs where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype SourceCallbackFuncs = SourceCallbackFuncs (ForeignPtr SourceCallbackFuncs) -instance WrappedPtr SourceCallbackFuncs where 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,89 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -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(..) , - newZeroSourceFuncs , - noSourceFuncs , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype SourceFuncs = SourceFuncs (ForeignPtr SourceFuncs) -instance WrappedPtr SourceFuncs where - wrappedPtrCalloc = callocBytes 48 - wrappedPtrCopy = copyPtr 48 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `SourceFuncs` struct initialized to zero. -newZeroSourceFuncs :: MonadIO m => m SourceFuncs -newZeroSourceFuncs = liftIO $ wrappedPtrCalloc >>= wrapPtr SourceFuncs - -instance tag ~ 'AttrSet => Constructible SourceFuncs tag where - new _ attrs = do - o <- newZeroSourceFuncs - GI.Attributes.set o attrs - return o - - -noSourceFuncs :: Maybe SourceFuncs -noSourceFuncs = Nothing - --- XXX Skipped attribute for "SourceFuncs:prepare" :: Not implemented: "Wrapping foreign callbacks is not supported yet" --- XXX Skipped attribute for "SourceFuncs:check" :: Not implemented: "Wrapping foreign callbacks is not supported yet" --- XXX Skipped attribute for "SourceFuncs:finalize" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - -type instance AttributeList SourceFuncs = SourceFuncsAttributeList -type SourceFuncsAttributeList = ('[ ] :: [(Symbol, *)]) - -type family ResolveSourceFuncsMethod (t :: Symbol) (o :: *) :: * where - ResolveSourceFuncsMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSourceFuncsMethod t SourceFuncs, MethodInfo info SourceFuncs p) => IsLabelProxy t (SourceFuncs -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSourceFuncsMethod t SourceFuncs, MethodInfo info SourceFuncs p) => IsLabel t (SourceFuncs -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,11 +0,0 @@ -module GI.GLib.Structs.SourceFuncs where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype SourceFuncs = SourceFuncs (ForeignPtr SourceFuncs) -instance WrappedPtr SourceFuncs where 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,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) - -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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype StatBuf = StatBuf (ForeignPtr StatBuf) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr StatBuf where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noStatBuf :: Maybe StatBuf -noStatBuf = Nothing - - -type instance AttributeList StatBuf = StatBufAttributeList -type StatBufAttributeList = ('[ ] :: [(Symbol, *)]) - -type family ResolveStatBufMethod (t :: Symbol) (o :: *) :: * where - ResolveStatBufMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveStatBufMethod t StatBuf, MethodInfo info StatBuf p) => IsLabelProxy t (StatBuf -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveStatBufMethod t StatBuf, MethodInfo info StatBuf p) => IsLabel t (StatBuf -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,11 +0,0 @@ -module GI.GLib.Structs.StatBuf where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype StatBuf = StatBuf (ForeignPtr StatBuf) -instance WrappedPtr StatBuf where 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,1216 +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(..) , - newZeroString , - noString , - - - -- * Methods --- ** stringAppend - StringAppendMethodInfo , - stringAppend , - - --- ** stringAppendC - StringAppendCMethodInfo , - stringAppendC , - - --- ** stringAppendLen - StringAppendLenMethodInfo , - stringAppendLen , - - --- ** stringAppendUnichar - StringAppendUnicharMethodInfo , - stringAppendUnichar , - - --- ** stringAppendUriEscaped - StringAppendUriEscapedMethodInfo , - stringAppendUriEscaped , - - --- ** stringAsciiDown - StringAsciiDownMethodInfo , - stringAsciiDown , - - --- ** stringAsciiUp - StringAsciiUpMethodInfo , - stringAsciiUp , - - --- ** stringAssign - StringAssignMethodInfo , - stringAssign , - - --- ** stringDown - StringDownMethodInfo , - stringDown , - - --- ** stringEqual - StringEqualMethodInfo , - stringEqual , - - --- ** stringErase - StringEraseMethodInfo , - stringErase , - - --- ** stringFree - StringFreeMethodInfo , - stringFree , - - --- ** stringFreeToBytes - StringFreeToBytesMethodInfo , - stringFreeToBytes , - - --- ** stringHash - StringHashMethodInfo , - stringHash , - - --- ** stringInsert - StringInsertMethodInfo , - stringInsert , - - --- ** stringInsertC - StringInsertCMethodInfo , - stringInsertC , - - --- ** stringInsertLen - StringInsertLenMethodInfo , - stringInsertLen , - - --- ** stringInsertUnichar - StringInsertUnicharMethodInfo , - stringInsertUnichar , - - --- ** stringOverwrite - StringOverwriteMethodInfo , - stringOverwrite , - - --- ** stringOverwriteLen - StringOverwriteLenMethodInfo , - stringOverwriteLen , - - --- ** stringPrepend - StringPrependMethodInfo , - stringPrepend , - - --- ** stringPrependC - StringPrependCMethodInfo , - stringPrependC , - - --- ** stringPrependLen - StringPrependLenMethodInfo , - stringPrependLen , - - --- ** stringPrependUnichar - StringPrependUnicharMethodInfo , - stringPrependUnichar , - - --- ** stringSetSize - StringSetSizeMethodInfo , - stringSetSize , - - --- ** stringTruncate - StringTruncateMethodInfo , - stringTruncate , - - --- ** stringUp - StringUpMethodInfo , - stringUp , - - - - - -- * Properties --- ** AllocatedLen - stringAllocatedLen , - stringReadAllocatedLen , - stringWriteAllocatedLen , - - --- ** Len - stringLen , - stringReadLen , - stringWriteLen , - - --- ** Str - stringClearStr , - stringReadStr , - stringStr , - stringWriteStr , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.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 - --- | Construct a `String` struct initialized to zero. -newZeroString :: MonadIO m => m String -newZeroString = liftIO $ callocBoxedBytes 24 >>= wrapBoxed String - -instance tag ~ 'AttrSet => Constructible String tag where - new _ attrs = do - o <- newZeroString - GI.Attributes.set o attrs - return o - - -noString :: Maybe String -noString = Nothing - -stringReadStr :: MonadIO m => String -> m (Maybe T.Text) -stringReadStr s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -stringWriteStr :: MonadIO m => String -> CString -> m () -stringWriteStr s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: CString) - -stringClearStr :: MonadIO m => String -> m () -stringClearStr s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: CString) - -data StringStrFieldInfo -instance AttrInfo StringStrFieldInfo where - type AttrAllowedOps StringStrFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint StringStrFieldInfo = (~) CString - type AttrBaseTypeConstraint StringStrFieldInfo = (~) String - type AttrGetType StringStrFieldInfo = Maybe T.Text - type AttrLabel StringStrFieldInfo = "str" - attrGet _ = stringReadStr - attrSet _ = stringWriteStr - attrConstruct = undefined - attrClear _ = stringClearStr - -stringStr :: AttrLabelProxy "str" -stringStr = AttrLabelProxy - - -stringReadLen :: MonadIO m => String -> m Word64 -stringReadLen s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word64 - return val - -stringWriteLen :: MonadIO m => String -> Word64 -> m () -stringWriteLen s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Word64) - -data StringLenFieldInfo -instance AttrInfo StringLenFieldInfo where - type AttrAllowedOps StringLenFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint StringLenFieldInfo = (~) Word64 - type AttrBaseTypeConstraint StringLenFieldInfo = (~) String - type AttrGetType StringLenFieldInfo = Word64 - type AttrLabel StringLenFieldInfo = "len" - attrGet _ = stringReadLen - attrSet _ = stringWriteLen - attrConstruct = undefined - attrClear _ = undefined - -stringLen :: AttrLabelProxy "len" -stringLen = AttrLabelProxy - - -stringReadAllocatedLen :: MonadIO m => String -> m Word64 -stringReadAllocatedLen s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Word64 - return val - -stringWriteAllocatedLen :: MonadIO m => String -> Word64 -> m () -stringWriteAllocatedLen s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Word64) - -data StringAllocatedLenFieldInfo -instance AttrInfo StringAllocatedLenFieldInfo where - type AttrAllowedOps StringAllocatedLenFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint StringAllocatedLenFieldInfo = (~) Word64 - type AttrBaseTypeConstraint StringAllocatedLenFieldInfo = (~) String - type AttrGetType StringAllocatedLenFieldInfo = Word64 - type AttrLabel StringAllocatedLenFieldInfo = "allocated_len" - attrGet _ = stringReadAllocatedLen - attrSet _ = stringWriteAllocatedLen - attrConstruct = undefined - attrClear _ = undefined - -stringAllocatedLen :: AttrLabelProxy "allocatedLen" -stringAllocatedLen = AttrLabelProxy - - - -type instance AttributeList String = StringAttributeList -type StringAttributeList = ('[ '("str", StringStrFieldInfo), '("len", StringLenFieldInfo), '("allocatedLen", StringAllocatedLenFieldInfo)] :: [(Symbol, *)]) - --- method String::append --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data StringAppendMethodInfo -instance (signature ~ (T.Text -> m String), MonadIO m) => MethodInfo StringAppendMethodInfo String signature where - overloadedMethod _ = stringAppend - --- method String::append_c --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data StringAppendCMethodInfo -instance (signature ~ (Int8 -> m String), MonadIO m) => MethodInfo StringAppendCMethodInfo String signature where - overloadedMethod _ = stringAppendC - --- method String::append_len --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data StringAppendLenMethodInfo -instance (signature ~ (T.Text -> Int64 -> m String), MonadIO m) => MethodInfo StringAppendLenMethodInfo String signature where - overloadedMethod _ = stringAppendLen - --- method String::append_unichar --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data StringAppendUnicharMethodInfo -instance (signature ~ (Char -> m String), MonadIO m) => MethodInfo StringAppendUnicharMethodInfo String signature where - overloadedMethod _ = stringAppendUnichar - --- method String::append_uri_escaped --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unescaped", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reserved_chars_allowed", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allow_utf8", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- reservedCharsAllowed - -> Bool -- allowUtf8 - -> m String -- result -stringAppendUriEscaped _obj unescaped reservedCharsAllowed allowUtf8 = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - unescaped' <- textToCString unescaped - reservedCharsAllowed' <- textToCString reservedCharsAllowed - let allowUtf8' = (fromIntegral . fromEnum) allowUtf8 - result <- g_string_append_uri_escaped _obj' unescaped' reservedCharsAllowed' allowUtf8' - checkUnexpectedReturnNULL "g_string_append_uri_escaped" result - result' <- (wrapBoxed String) result - touchManagedPtr _obj - freeMem unescaped' - freeMem reservedCharsAllowed' - return result' - -data StringAppendUriEscapedMethodInfo -instance (signature ~ (T.Text -> T.Text -> Bool -> m String), MonadIO m) => MethodInfo StringAppendUriEscapedMethodInfo String signature where - overloadedMethod _ = stringAppendUriEscaped - --- method String::ascii_down --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data StringAsciiDownMethodInfo -instance (signature ~ (m String), MonadIO m) => MethodInfo StringAsciiDownMethodInfo String signature where - overloadedMethod _ = stringAsciiDown - --- method String::ascii_up --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data StringAsciiUpMethodInfo -instance (signature ~ (m String), MonadIO m) => MethodInfo StringAsciiUpMethodInfo String signature where - overloadedMethod _ = stringAsciiUp - --- method String::assign --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rval", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data StringAssignMethodInfo -instance (signature ~ (T.Text -> m String), MonadIO m) => MethodInfo StringAssignMethodInfo String signature where - overloadedMethod _ = stringAssign - --- method String::down --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data StringDownMethodInfo -instance (signature ~ (m String), MonadIO m) => MethodInfo StringDownMethodInfo String signature where - overloadedMethod _ = stringDown - --- method String::equal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "v2", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data StringEqualMethodInfo -instance (signature ~ (String -> m Bool), MonadIO m) => MethodInfo StringEqualMethodInfo String signature where - overloadedMethod _ = stringEqual - --- method String::erase --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data StringEraseMethodInfo -instance (signature ~ (Int64 -> Int64 -> m String), MonadIO m) => MethodInfo StringEraseMethodInfo String signature where - overloadedMethod _ = stringErase - --- method String::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "free_segment", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_string_free" g_string_free :: - Ptr String -> -- _obj : TInterface "GLib" "String" - CInt -> -- free_segment : TBasicType TBoolean - IO CString - - -stringFree :: - (MonadIO m) => - String -- _obj - -> Bool -- freeSegment - -> m (Maybe T.Text) -- result -stringFree _obj freeSegment = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let freeSegment' = (fromIntegral . fromEnum) freeSegment - result <- g_string_free _obj' freeSegment' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - freeMem result' - return result'' - touchManagedPtr _obj - return maybeResult - -data StringFreeMethodInfo -instance (signature ~ (Bool -> m (Maybe T.Text)), MonadIO m) => MethodInfo StringFreeMethodInfo String signature where - overloadedMethod _ = stringFree - --- method String::free_to_bytes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "Bytes") --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data StringFreeToBytesMethodInfo -instance (signature ~ (m Bytes), MonadIO m) => MethodInfo StringFreeToBytesMethodInfo String signature where - overloadedMethod _ = stringFreeToBytes - --- method String::hash --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_string_hash" g_string_hash :: - Ptr String -> -- _obj : TInterface "GLib" "String" - IO Word32 - - -stringHash :: - (MonadIO m) => - String -- _obj - -> m Word32 -- result -stringHash _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_string_hash _obj' - touchManagedPtr _obj - return result - -data StringHashMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo StringHashMethodInfo String signature where - overloadedMethod _ = stringHash - --- method String::insert --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data StringInsertMethodInfo -instance (signature ~ (Int64 -> T.Text -> m String), MonadIO m) => MethodInfo StringInsertMethodInfo String signature where - overloadedMethod _ = stringInsert - --- method String::insert_c --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data StringInsertCMethodInfo -instance (signature ~ (Int64 -> Int8 -> m String), MonadIO m) => MethodInfo StringInsertCMethodInfo String signature where - overloadedMethod _ = stringInsertC - --- method String::insert_len --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data StringInsertLenMethodInfo -instance (signature ~ (Int64 -> T.Text -> Int64 -> m String), MonadIO m) => MethodInfo StringInsertLenMethodInfo String signature where - overloadedMethod _ = stringInsertLen - --- method String::insert_unichar --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data StringInsertUnicharMethodInfo -instance (signature ~ (Int64 -> Char -> m String), MonadIO m) => MethodInfo StringInsertUnicharMethodInfo String signature where - overloadedMethod _ = stringInsertUnichar - --- method String::overwrite --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data StringOverwriteMethodInfo -instance (signature ~ (Word64 -> T.Text -> m String), MonadIO m) => MethodInfo StringOverwriteMethodInfo String signature where - overloadedMethod _ = stringOverwrite - --- method String::overwrite_len --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data StringOverwriteLenMethodInfo -instance (signature ~ (Word64 -> T.Text -> Int64 -> m String), MonadIO m) => MethodInfo StringOverwriteLenMethodInfo String signature where - overloadedMethod _ = stringOverwriteLen - --- method String::prepend --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data StringPrependMethodInfo -instance (signature ~ (T.Text -> m String), MonadIO m) => MethodInfo StringPrependMethodInfo String signature where - overloadedMethod _ = stringPrepend - --- method String::prepend_c --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "c", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data StringPrependCMethodInfo -instance (signature ~ (Int8 -> m String), MonadIO m) => MethodInfo StringPrependCMethodInfo String signature where - overloadedMethod _ = stringPrependC - --- method String::prepend_len --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "val", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data StringPrependLenMethodInfo -instance (signature ~ (T.Text -> Int64 -> m String), MonadIO m) => MethodInfo StringPrependLenMethodInfo String signature where - overloadedMethod _ = stringPrependLen - --- method String::prepend_unichar --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wc", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data StringPrependUnicharMethodInfo -instance (signature ~ (Char -> m String), MonadIO m) => MethodInfo StringPrependUnicharMethodInfo String signature where - overloadedMethod _ = stringPrependUnichar - --- method String::set_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "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 -- result -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' - -data StringSetSizeMethodInfo -instance (signature ~ (Word64 -> m String), MonadIO m) => MethodInfo StringSetSizeMethodInfo String signature where - overloadedMethod _ = stringSetSize - --- method String::truncate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "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 -- result -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' - -data StringTruncateMethodInfo -instance (signature ~ (Word64 -> m String), MonadIO m) => MethodInfo StringTruncateMethodInfo String signature where - overloadedMethod _ = stringTruncate - --- method String::up --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data StringUpMethodInfo -instance (signature ~ (m String), MonadIO m) => MethodInfo StringUpMethodInfo String signature where - overloadedMethod _ = stringUp - -type family ResolveStringMethod (t :: Symbol) (o :: *) :: * where - ResolveStringMethod "append" o = StringAppendMethodInfo - ResolveStringMethod "appendC" o = StringAppendCMethodInfo - ResolveStringMethod "appendLen" o = StringAppendLenMethodInfo - ResolveStringMethod "appendUnichar" o = StringAppendUnicharMethodInfo - ResolveStringMethod "appendUriEscaped" o = StringAppendUriEscapedMethodInfo - ResolveStringMethod "asciiDown" o = StringAsciiDownMethodInfo - ResolveStringMethod "asciiUp" o = StringAsciiUpMethodInfo - ResolveStringMethod "assign" o = StringAssignMethodInfo - ResolveStringMethod "down" o = StringDownMethodInfo - ResolveStringMethod "equal" o = StringEqualMethodInfo - ResolveStringMethod "erase" o = StringEraseMethodInfo - ResolveStringMethod "free" o = StringFreeMethodInfo - ResolveStringMethod "freeToBytes" o = StringFreeToBytesMethodInfo - ResolveStringMethod "hash" o = StringHashMethodInfo - ResolveStringMethod "insert" o = StringInsertMethodInfo - ResolveStringMethod "insertC" o = StringInsertCMethodInfo - ResolveStringMethod "insertLen" o = StringInsertLenMethodInfo - ResolveStringMethod "insertUnichar" o = StringInsertUnicharMethodInfo - ResolveStringMethod "overwrite" o = StringOverwriteMethodInfo - ResolveStringMethod "overwriteLen" o = StringOverwriteLenMethodInfo - ResolveStringMethod "prepend" o = StringPrependMethodInfo - ResolveStringMethod "prependC" o = StringPrependCMethodInfo - ResolveStringMethod "prependLen" o = StringPrependLenMethodInfo - ResolveStringMethod "prependUnichar" o = StringPrependUnicharMethodInfo - ResolveStringMethod "truncate" o = StringTruncateMethodInfo - ResolveStringMethod "up" o = StringUpMethodInfo - ResolveStringMethod "setSize" o = StringSetSizeMethodInfo - ResolveStringMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveStringMethod t String, MethodInfo info String p) => IsLabelProxy t (String -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveStringMethod t String, MethodInfo info String p) => IsLabel t (String -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,38 +0,0 @@ -module GI.GLib.Structs.String where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype String = String (ForeignPtr String) -instance BoxedObject String where -data StringAppendMethodInfo -data StringAppendCMethodInfo -data StringAppendLenMethodInfo -data StringAppendUnicharMethodInfo -data StringAppendUriEscapedMethodInfo -data StringAsciiDownMethodInfo -data StringAsciiUpMethodInfo -data StringAssignMethodInfo -data StringDownMethodInfo -data StringEqualMethodInfo -data StringEraseMethodInfo -data StringFreeMethodInfo -data StringFreeToBytesMethodInfo -data StringHashMethodInfo -data StringInsertMethodInfo -data StringInsertCMethodInfo -data StringInsertLenMethodInfo -data StringInsertUnicharMethodInfo -data StringOverwriteMethodInfo -data StringOverwriteLenMethodInfo -data StringPrependMethodInfo -data StringPrependCMethodInfo -data StringPrependLenMethodInfo -data StringPrependUnicharMethodInfo -data StringSetSizeMethodInfo -data StringTruncateMethodInfo -data StringUpMethodInfo 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,248 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -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 - StringChunkClearMethodInfo , - stringChunkClear , - - --- ** stringChunkFree - StringChunkFreeMethodInfo , - stringChunkFree , - - --- ** stringChunkInsert - StringChunkInsertMethodInfo , - stringChunkInsert , - - --- ** stringChunkInsertConst - StringChunkInsertConstMethodInfo , - stringChunkInsertConst , - - --- ** stringChunkInsertLen - StringChunkInsertLenMethodInfo , - stringChunkInsertLen , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype StringChunk = StringChunk (ForeignPtr StringChunk) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr StringChunk where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noStringChunk :: Maybe StringChunk -noStringChunk = Nothing - - -type instance AttributeList StringChunk = StringChunkAttributeList -type StringChunkAttributeList = ('[ ] :: [(Symbol, *)]) - --- method StringChunk::clear --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -stringChunkClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_string_chunk_clear _obj' - touchManagedPtr _obj - return () - -data StringChunkClearMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo StringChunkClearMethodInfo StringChunk signature where - overloadedMethod _ = stringChunkClear - --- method StringChunk::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -stringChunkFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_string_chunk_free _obj' - touchManagedPtr _obj - return () - -data StringChunkFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo StringChunkFreeMethodInfo StringChunk signature where - overloadedMethod _ = stringChunkFree - --- method StringChunk::insert --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data StringChunkInsertMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m) => MethodInfo StringChunkInsertMethodInfo StringChunk signature where - overloadedMethod _ = stringChunkInsert - --- method StringChunk::insert_const --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data StringChunkInsertConstMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m) => MethodInfo StringChunkInsertConstMethodInfo StringChunk signature where - overloadedMethod _ = stringChunkInsertConst - --- method StringChunk::insert_len --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "StringChunk", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data StringChunkInsertLenMethodInfo -instance (signature ~ (T.Text -> Int64 -> m T.Text), MonadIO m) => MethodInfo StringChunkInsertLenMethodInfo StringChunk signature where - overloadedMethod _ = stringChunkInsertLen - -type family ResolveStringChunkMethod (t :: Symbol) (o :: *) :: * where - ResolveStringChunkMethod "clear" o = StringChunkClearMethodInfo - ResolveStringChunkMethod "free" o = StringChunkFreeMethodInfo - ResolveStringChunkMethod "insert" o = StringChunkInsertMethodInfo - ResolveStringChunkMethod "insertConst" o = StringChunkInsertConstMethodInfo - ResolveStringChunkMethod "insertLen" o = StringChunkInsertLenMethodInfo - ResolveStringChunkMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveStringChunkMethod t StringChunk, MethodInfo info StringChunk p) => IsLabelProxy t (StringChunk -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveStringChunkMethod t StringChunk, MethodInfo info StringChunk p) => IsLabel t (StringChunk -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,16 +0,0 @@ -module GI.GLib.Structs.StringChunk where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype StringChunk = StringChunk (ForeignPtr StringChunk) -instance WrappedPtr StringChunk where -data StringChunkClearMethodInfo -data StringChunkFreeMethodInfo -data StringChunkInsertMethodInfo -data StringChunkInsertConstMethodInfo -data StringChunkInsertLenMethodInfo 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,56 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -An opaque structure representing a test case. --} - -module GI.GLib.Structs.TestCase - ( - --- * Exported types - TestCase(..) , - noTestCase , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype TestCase = TestCase (ForeignPtr TestCase) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr TestCase where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noTestCase :: Maybe TestCase -noTestCase = Nothing - - -type instance AttributeList TestCase = TestCaseAttributeList -type TestCaseAttributeList = ('[ ] :: [(Symbol, *)]) - -type family ResolveTestCaseMethod (t :: Symbol) (o :: *) :: * where - ResolveTestCaseMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTestCaseMethod t TestCase, MethodInfo info TestCase p) => IsLabelProxy t (TestCase -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTestCaseMethod t TestCase, MethodInfo info TestCase p) => IsLabel t (TestCase -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,11 +0,0 @@ -module GI.GLib.Structs.TestCase where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TestCase = TestCase (ForeignPtr TestCase) -instance WrappedPtr TestCase where 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,266 +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(..) , - newZeroTestConfig , - noTestConfig , - - - -- * Properties --- ** TestInitialized - testConfigReadTestInitialized , - testConfigTestInitialized , - testConfigWriteTestInitialized , - - --- ** TestPerf - testConfigReadTestPerf , - testConfigTestPerf , - testConfigWriteTestPerf , - - --- ** TestQuick - testConfigReadTestQuick , - testConfigTestQuick , - testConfigWriteTestQuick , - - --- ** TestQuiet - testConfigReadTestQuiet , - testConfigTestQuiet , - testConfigWriteTestQuiet , - - --- ** TestUndefined - testConfigReadTestUndefined , - testConfigTestUndefined , - testConfigWriteTestUndefined , - - --- ** TestVerbose - testConfigReadTestVerbose , - testConfigTestVerbose , - testConfigWriteTestVerbose , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype TestConfig = TestConfig (ForeignPtr TestConfig) -instance WrappedPtr TestConfig where - wrappedPtrCalloc = callocBytes 24 - wrappedPtrCopy = copyPtr 24 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `TestConfig` struct initialized to zero. -newZeroTestConfig :: MonadIO m => m TestConfig -newZeroTestConfig = liftIO $ wrappedPtrCalloc >>= wrapPtr TestConfig - -instance tag ~ 'AttrSet => Constructible TestConfig tag where - new _ attrs = do - o <- newZeroTestConfig - GI.Attributes.set o attrs - return o - - -noTestConfig :: Maybe TestConfig -noTestConfig = Nothing - -testConfigReadTestInitialized :: MonadIO m => TestConfig -> m Bool -testConfigReadTestInitialized s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CInt - let val' = (/= 0) val - return val' - -testConfigWriteTestInitialized :: MonadIO m => TestConfig -> Bool -> m () -testConfigWriteTestInitialized s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CInt) - -data TestConfigTestInitializedFieldInfo -instance AttrInfo TestConfigTestInitializedFieldInfo where - type AttrAllowedOps TestConfigTestInitializedFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TestConfigTestInitializedFieldInfo = (~) Bool - type AttrBaseTypeConstraint TestConfigTestInitializedFieldInfo = (~) TestConfig - type AttrGetType TestConfigTestInitializedFieldInfo = Bool - type AttrLabel TestConfigTestInitializedFieldInfo = "test_initialized" - attrGet _ = testConfigReadTestInitialized - attrSet _ = testConfigWriteTestInitialized - attrConstruct = undefined - attrClear _ = undefined - -testConfigTestInitialized :: AttrLabelProxy "testInitialized" -testConfigTestInitialized = AttrLabelProxy - - -testConfigReadTestQuick :: MonadIO m => TestConfig -> m Bool -testConfigReadTestQuick s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO CInt - let val' = (/= 0) val - return val' - -testConfigWriteTestQuick :: MonadIO m => TestConfig -> Bool -> m () -testConfigWriteTestQuick s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 4) (val' :: CInt) - -data TestConfigTestQuickFieldInfo -instance AttrInfo TestConfigTestQuickFieldInfo where - type AttrAllowedOps TestConfigTestQuickFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TestConfigTestQuickFieldInfo = (~) Bool - type AttrBaseTypeConstraint TestConfigTestQuickFieldInfo = (~) TestConfig - type AttrGetType TestConfigTestQuickFieldInfo = Bool - type AttrLabel TestConfigTestQuickFieldInfo = "test_quick" - attrGet _ = testConfigReadTestQuick - attrSet _ = testConfigWriteTestQuick - attrConstruct = undefined - attrClear _ = undefined - -testConfigTestQuick :: AttrLabelProxy "testQuick" -testConfigTestQuick = AttrLabelProxy - - -testConfigReadTestPerf :: MonadIO m => TestConfig -> m Bool -testConfigReadTestPerf s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CInt - let val' = (/= 0) val - return val' - -testConfigWriteTestPerf :: MonadIO m => TestConfig -> Bool -> m () -testConfigWriteTestPerf s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 8) (val' :: CInt) - -data TestConfigTestPerfFieldInfo -instance AttrInfo TestConfigTestPerfFieldInfo where - type AttrAllowedOps TestConfigTestPerfFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TestConfigTestPerfFieldInfo = (~) Bool - type AttrBaseTypeConstraint TestConfigTestPerfFieldInfo = (~) TestConfig - type AttrGetType TestConfigTestPerfFieldInfo = Bool - type AttrLabel TestConfigTestPerfFieldInfo = "test_perf" - attrGet _ = testConfigReadTestPerf - attrSet _ = testConfigWriteTestPerf - attrConstruct = undefined - attrClear _ = undefined - -testConfigTestPerf :: AttrLabelProxy "testPerf" -testConfigTestPerf = AttrLabelProxy - - -testConfigReadTestVerbose :: MonadIO m => TestConfig -> m Bool -testConfigReadTestVerbose s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO CInt - let val' = (/= 0) val - return val' - -testConfigWriteTestVerbose :: MonadIO m => TestConfig -> Bool -> m () -testConfigWriteTestVerbose s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 12) (val' :: CInt) - -data TestConfigTestVerboseFieldInfo -instance AttrInfo TestConfigTestVerboseFieldInfo where - type AttrAllowedOps TestConfigTestVerboseFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TestConfigTestVerboseFieldInfo = (~) Bool - type AttrBaseTypeConstraint TestConfigTestVerboseFieldInfo = (~) TestConfig - type AttrGetType TestConfigTestVerboseFieldInfo = Bool - type AttrLabel TestConfigTestVerboseFieldInfo = "test_verbose" - attrGet _ = testConfigReadTestVerbose - attrSet _ = testConfigWriteTestVerbose - attrConstruct = undefined - attrClear _ = undefined - -testConfigTestVerbose :: AttrLabelProxy "testVerbose" -testConfigTestVerbose = AttrLabelProxy - - -testConfigReadTestQuiet :: MonadIO m => TestConfig -> m Bool -testConfigReadTestQuiet s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CInt - let val' = (/= 0) val - return val' - -testConfigWriteTestQuiet :: MonadIO m => TestConfig -> Bool -> m () -testConfigWriteTestQuiet s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 16) (val' :: CInt) - -data TestConfigTestQuietFieldInfo -instance AttrInfo TestConfigTestQuietFieldInfo where - type AttrAllowedOps TestConfigTestQuietFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TestConfigTestQuietFieldInfo = (~) Bool - type AttrBaseTypeConstraint TestConfigTestQuietFieldInfo = (~) TestConfig - type AttrGetType TestConfigTestQuietFieldInfo = Bool - type AttrLabel TestConfigTestQuietFieldInfo = "test_quiet" - attrGet _ = testConfigReadTestQuiet - attrSet _ = testConfigWriteTestQuiet - attrConstruct = undefined - attrClear _ = undefined - -testConfigTestQuiet :: AttrLabelProxy "testQuiet" -testConfigTestQuiet = AttrLabelProxy - - -testConfigReadTestUndefined :: MonadIO m => TestConfig -> m Bool -testConfigReadTestUndefined s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO CInt - let val' = (/= 0) val - return val' - -testConfigWriteTestUndefined :: MonadIO m => TestConfig -> Bool -> m () -testConfigWriteTestUndefined s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 20) (val' :: CInt) - -data TestConfigTestUndefinedFieldInfo -instance AttrInfo TestConfigTestUndefinedFieldInfo where - type AttrAllowedOps TestConfigTestUndefinedFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TestConfigTestUndefinedFieldInfo = (~) Bool - type AttrBaseTypeConstraint TestConfigTestUndefinedFieldInfo = (~) TestConfig - type AttrGetType TestConfigTestUndefinedFieldInfo = Bool - type AttrLabel TestConfigTestUndefinedFieldInfo = "test_undefined" - attrGet _ = testConfigReadTestUndefined - attrSet _ = testConfigWriteTestUndefined - attrConstruct = undefined - attrClear _ = undefined - -testConfigTestUndefined :: AttrLabelProxy "testUndefined" -testConfigTestUndefined = AttrLabelProxy - - - -type instance AttributeList TestConfig = TestConfigAttributeList -type TestConfigAttributeList = ('[ '("testInitialized", TestConfigTestInitializedFieldInfo), '("testQuick", TestConfigTestQuickFieldInfo), '("testPerf", TestConfigTestPerfFieldInfo), '("testVerbose", TestConfigTestVerboseFieldInfo), '("testQuiet", TestConfigTestQuietFieldInfo), '("testUndefined", TestConfigTestUndefinedFieldInfo)] :: [(Symbol, *)]) - -type family ResolveTestConfigMethod (t :: Symbol) (o :: *) :: * where - ResolveTestConfigMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTestConfigMethod t TestConfig, MethodInfo info TestConfig p) => IsLabelProxy t (TestConfig -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTestConfigMethod t TestConfig, MethodInfo info TestConfig p) => IsLabel t (TestConfig -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,11 +0,0 @@ -module GI.GLib.Structs.TestConfig where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TestConfig = TestConfig (ForeignPtr TestConfig) -instance WrappedPtr TestConfig where 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,138 +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(..) , - newZeroTestLogBuffer , - noTestLogBuffer , - - - -- * Methods --- ** testLogBufferFree - TestLogBufferFreeMethodInfo , - testLogBufferFree , - - --- ** testLogBufferPush - TestLogBufferPushMethodInfo , - testLogBufferPush , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype TestLogBuffer = TestLogBuffer (ForeignPtr TestLogBuffer) -instance WrappedPtr TestLogBuffer where - wrappedPtrCalloc = callocBytes 16 - wrappedPtrCopy = copyPtr 16 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `TestLogBuffer` struct initialized to zero. -newZeroTestLogBuffer :: MonadIO m => m TestLogBuffer -newZeroTestLogBuffer = liftIO $ wrappedPtrCalloc >>= wrapPtr TestLogBuffer - -instance tag ~ 'AttrSet => Constructible TestLogBuffer tag where - new _ attrs = do - o <- newZeroTestLogBuffer - GI.Attributes.set o attrs - return o - - -noTestLogBuffer :: Maybe TestLogBuffer -noTestLogBuffer = Nothing - - -type instance AttributeList TestLogBuffer = TestLogBufferAttributeList -type TestLogBufferAttributeList = ('[ ] :: [(Symbol, *)]) - --- method TestLogBuffer::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "TestLogBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_test_log_buffer_free" g_test_log_buffer_free :: - Ptr TestLogBuffer -> -- _obj : TInterface "GLib" "TestLogBuffer" - IO () - - -testLogBufferFree :: - (MonadIO m) => - TestLogBuffer -- _obj - -> m () -- result -testLogBufferFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_test_log_buffer_free _obj' - touchManagedPtr _obj - return () - -data TestLogBufferFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo TestLogBufferFreeMethodInfo TestLogBuffer signature where - overloadedMethod _ = testLogBufferFree - --- method TestLogBuffer::push --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "TestLogBuffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_bytes", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_test_log_buffer_push" g_test_log_buffer_push :: - Ptr TestLogBuffer -> -- _obj : TInterface "GLib" "TestLogBuffer" - Word32 -> -- n_bytes : TBasicType TUInt - Word8 -> -- bytes : TBasicType TUInt8 - IO () - - -testLogBufferPush :: - (MonadIO m) => - TestLogBuffer -- _obj - -> Word32 -- nBytes - -> Word8 -- bytes - -> m () -- result -testLogBufferPush _obj nBytes bytes = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_test_log_buffer_push _obj' nBytes bytes - touchManagedPtr _obj - return () - -data TestLogBufferPushMethodInfo -instance (signature ~ (Word32 -> Word8 -> m ()), MonadIO m) => MethodInfo TestLogBufferPushMethodInfo TestLogBuffer signature where - overloadedMethod _ = testLogBufferPush - -type family ResolveTestLogBufferMethod (t :: Symbol) (o :: *) :: * where - ResolveTestLogBufferMethod "free" o = TestLogBufferFreeMethodInfo - ResolveTestLogBufferMethod "push" o = TestLogBufferPushMethodInfo - ResolveTestLogBufferMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTestLogBufferMethod t TestLogBuffer, MethodInfo info TestLogBuffer p) => IsLabelProxy t (TestLogBuffer -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTestLogBufferMethod t TestLogBuffer, MethodInfo info TestLogBuffer p) => IsLabel t (TestLogBuffer -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,13 +0,0 @@ -module GI.GLib.Structs.TestLogBuffer where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TestLogBuffer = TestLogBuffer (ForeignPtr TestLogBuffer) -instance WrappedPtr TestLogBuffer where -data TestLogBufferFreeMethodInfo -data TestLogBufferPushMethodInfo 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,269 +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(..) , - newZeroTestLogMsg , - noTestLogMsg , - - - -- * Methods --- ** testLogMsgFree - TestLogMsgFreeMethodInfo , - testLogMsgFree , - - - - - -- * Properties --- ** LogType - testLogMsgLogType , - testLogMsgReadLogType , - testLogMsgWriteLogType , - - --- ** NNums - testLogMsgNNums , - testLogMsgReadNNums , - testLogMsgWriteNNums , - - --- ** NStrings - testLogMsgNStrings , - testLogMsgReadNStrings , - testLogMsgWriteNStrings , - - --- ** Nums - testLogMsgNums , - testLogMsgReadNums , - testLogMsgWriteNums , - - --- ** Strings - testLogMsgClearStrings , - testLogMsgReadStrings , - testLogMsgStrings , - testLogMsgWriteStrings , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype TestLogMsg = TestLogMsg (ForeignPtr TestLogMsg) -instance WrappedPtr TestLogMsg where - wrappedPtrCalloc = callocBytes 32 - wrappedPtrCopy = copyPtr 32 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `TestLogMsg` struct initialized to zero. -newZeroTestLogMsg :: MonadIO m => m TestLogMsg -newZeroTestLogMsg = liftIO $ wrappedPtrCalloc >>= wrapPtr TestLogMsg - -instance tag ~ 'AttrSet => Constructible TestLogMsg tag where - new _ attrs = do - o <- newZeroTestLogMsg - GI.Attributes.set o attrs - return o - - -noTestLogMsg :: Maybe TestLogMsg -noTestLogMsg = Nothing - -testLogMsgReadLogType :: MonadIO m => TestLogMsg -> m TestLogType -testLogMsgReadLogType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -testLogMsgWriteLogType :: MonadIO m => TestLogMsg -> TestLogType -> m () -testLogMsgWriteLogType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data TestLogMsgLogTypeFieldInfo -instance AttrInfo TestLogMsgLogTypeFieldInfo where - type AttrAllowedOps TestLogMsgLogTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TestLogMsgLogTypeFieldInfo = (~) TestLogType - type AttrBaseTypeConstraint TestLogMsgLogTypeFieldInfo = (~) TestLogMsg - type AttrGetType TestLogMsgLogTypeFieldInfo = TestLogType - type AttrLabel TestLogMsgLogTypeFieldInfo = "log_type" - attrGet _ = testLogMsgReadLogType - attrSet _ = testLogMsgWriteLogType - attrConstruct = undefined - attrClear _ = undefined - -testLogMsgLogType :: AttrLabelProxy "logType" -testLogMsgLogType = AttrLabelProxy - - -testLogMsgReadNStrings :: MonadIO m => TestLogMsg -> m Word32 -testLogMsgReadNStrings s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Word32 - return val - -testLogMsgWriteNStrings :: MonadIO m => TestLogMsg -> Word32 -> m () -testLogMsgWriteNStrings s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 4) (val :: Word32) - -data TestLogMsgNStringsFieldInfo -instance AttrInfo TestLogMsgNStringsFieldInfo where - type AttrAllowedOps TestLogMsgNStringsFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TestLogMsgNStringsFieldInfo = (~) Word32 - type AttrBaseTypeConstraint TestLogMsgNStringsFieldInfo = (~) TestLogMsg - type AttrGetType TestLogMsgNStringsFieldInfo = Word32 - type AttrLabel TestLogMsgNStringsFieldInfo = "n_strings" - attrGet _ = testLogMsgReadNStrings - attrSet _ = testLogMsgWriteNStrings - attrConstruct = undefined - attrClear _ = undefined - -testLogMsgNStrings :: AttrLabelProxy "nStrings" -testLogMsgNStrings = AttrLabelProxy - - -testLogMsgReadStrings :: MonadIO m => TestLogMsg -> m (Maybe T.Text) -testLogMsgReadStrings s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -testLogMsgWriteStrings :: MonadIO m => TestLogMsg -> CString -> m () -testLogMsgWriteStrings s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -testLogMsgClearStrings :: MonadIO m => TestLogMsg -> m () -testLogMsgClearStrings s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data TestLogMsgStringsFieldInfo -instance AttrInfo TestLogMsgStringsFieldInfo where - type AttrAllowedOps TestLogMsgStringsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TestLogMsgStringsFieldInfo = (~) CString - type AttrBaseTypeConstraint TestLogMsgStringsFieldInfo = (~) TestLogMsg - type AttrGetType TestLogMsgStringsFieldInfo = Maybe T.Text - type AttrLabel TestLogMsgStringsFieldInfo = "strings" - attrGet _ = testLogMsgReadStrings - attrSet _ = testLogMsgWriteStrings - attrConstruct = undefined - attrClear _ = testLogMsgClearStrings - -testLogMsgStrings :: AttrLabelProxy "strings" -testLogMsgStrings = AttrLabelProxy - - -testLogMsgReadNNums :: MonadIO m => TestLogMsg -> m Word32 -testLogMsgReadNNums s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Word32 - return val - -testLogMsgWriteNNums :: MonadIO m => TestLogMsg -> Word32 -> m () -testLogMsgWriteNNums s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Word32) - -data TestLogMsgNNumsFieldInfo -instance AttrInfo TestLogMsgNNumsFieldInfo where - type AttrAllowedOps TestLogMsgNNumsFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TestLogMsgNNumsFieldInfo = (~) Word32 - type AttrBaseTypeConstraint TestLogMsgNNumsFieldInfo = (~) TestLogMsg - type AttrGetType TestLogMsgNNumsFieldInfo = Word32 - type AttrLabel TestLogMsgNNumsFieldInfo = "n_nums" - attrGet _ = testLogMsgReadNNums - attrSet _ = testLogMsgWriteNNums - attrConstruct = undefined - attrClear _ = undefined - -testLogMsgNNums :: AttrLabelProxy "nNums" -testLogMsgNNums = AttrLabelProxy - - -testLogMsgReadNums :: MonadIO m => TestLogMsg -> m CLong -testLogMsgReadNums s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CLong - return val - -testLogMsgWriteNums :: MonadIO m => TestLogMsg -> CLong -> m () -testLogMsgWriteNums s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: CLong) - -data TestLogMsgNumsFieldInfo -instance AttrInfo TestLogMsgNumsFieldInfo where - type AttrAllowedOps TestLogMsgNumsFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TestLogMsgNumsFieldInfo = (~) CLong - type AttrBaseTypeConstraint TestLogMsgNumsFieldInfo = (~) TestLogMsg - type AttrGetType TestLogMsgNumsFieldInfo = CLong - type AttrLabel TestLogMsgNumsFieldInfo = "nums" - attrGet _ = testLogMsgReadNums - attrSet _ = testLogMsgWriteNums - attrConstruct = undefined - attrClear _ = undefined - -testLogMsgNums :: AttrLabelProxy "nums" -testLogMsgNums = AttrLabelProxy - - - -type instance AttributeList TestLogMsg = TestLogMsgAttributeList -type TestLogMsgAttributeList = ('[ '("logType", TestLogMsgLogTypeFieldInfo), '("nStrings", TestLogMsgNStringsFieldInfo), '("strings", TestLogMsgStringsFieldInfo), '("nNums", TestLogMsgNNumsFieldInfo), '("nums", TestLogMsgNumsFieldInfo)] :: [(Symbol, *)]) - --- method TestLogMsg::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "TestLogMsg", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_test_log_msg_free" g_test_log_msg_free :: - Ptr TestLogMsg -> -- _obj : TInterface "GLib" "TestLogMsg" - IO () - - -testLogMsgFree :: - (MonadIO m) => - TestLogMsg -- _obj - -> m () -- result -testLogMsgFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_test_log_msg_free _obj' - touchManagedPtr _obj - return () - -data TestLogMsgFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo TestLogMsgFreeMethodInfo TestLogMsg signature where - overloadedMethod _ = testLogMsgFree - -type family ResolveTestLogMsgMethod (t :: Symbol) (o :: *) :: * where - ResolveTestLogMsgMethod "free" o = TestLogMsgFreeMethodInfo - ResolveTestLogMsgMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTestLogMsgMethod t TestLogMsg, MethodInfo info TestLogMsg p) => IsLabelProxy t (TestLogMsg -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTestLogMsgMethod t TestLogMsg, MethodInfo info TestLogMsg p) => IsLabel t (TestLogMsg -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,12 +0,0 @@ -module GI.GLib.Structs.TestLogMsg where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TestLogMsg = TestLogMsg (ForeignPtr TestLogMsg) -instance WrappedPtr TestLogMsg where -data TestLogMsgFreeMethodInfo 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,133 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -An opaque structure representing a test suite. --} - -module GI.GLib.Structs.TestSuite - ( - --- * Exported types - TestSuite(..) , - noTestSuite , - - - -- * Methods --- ** testSuiteAdd - TestSuiteAddMethodInfo , - testSuiteAdd , - - --- ** testSuiteAddSuite - TestSuiteAddSuiteMethodInfo , - testSuiteAddSuite , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype TestSuite = TestSuite (ForeignPtr TestSuite) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr TestSuite where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noTestSuite :: Maybe TestSuite -noTestSuite = Nothing - - -type instance AttributeList TestSuite = TestSuiteAttributeList -type TestSuiteAttributeList = ('[ ] :: [(Symbol, *)]) - --- method TestSuite::add --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "test_case", argType = TInterface "GLib" "TestCase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_test_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 -- testCase - -> m () -- result -testSuiteAdd _obj testCase = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let testCase' = unsafeManagedPtrGetPtr testCase - g_test_suite_add _obj' testCase' - touchManagedPtr _obj - touchManagedPtr testCase - return () - -data TestSuiteAddMethodInfo -instance (signature ~ (TestCase -> m ()), MonadIO m) => MethodInfo TestSuiteAddMethodInfo TestSuite signature where - overloadedMethod _ = testSuiteAdd - --- method TestSuite::add_suite --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "nestedsuite", argType = TInterface "GLib" "TestSuite", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_test_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 () -- result -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 () - -data TestSuiteAddSuiteMethodInfo -instance (signature ~ (TestSuite -> m ()), MonadIO m) => MethodInfo TestSuiteAddSuiteMethodInfo TestSuite signature where - overloadedMethod _ = testSuiteAddSuite - -type family ResolveTestSuiteMethod (t :: Symbol) (o :: *) :: * where - ResolveTestSuiteMethod "add" o = TestSuiteAddMethodInfo - ResolveTestSuiteMethod "addSuite" o = TestSuiteAddSuiteMethodInfo - ResolveTestSuiteMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTestSuiteMethod t TestSuite, MethodInfo info TestSuite p) => IsLabelProxy t (TestSuite -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTestSuiteMethod t TestSuite, MethodInfo info TestSuite p) => IsLabel t (TestSuite -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,13 +0,0 @@ -module GI.GLib.Structs.TestSuite where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TestSuite = TestSuite (ForeignPtr TestSuite) -instance WrappedPtr TestSuite where -data TestSuiteAddMethodInfo -data TestSuiteAddSuiteMethodInfo 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,235 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -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 --- ** threadErrorQuark - threadErrorQuark , - - --- ** threadExit - threadExit , - - --- ** threadRef - ThreadRefMethodInfo , - threadRef , - - --- ** threadSelf - threadSelf , - - --- ** threadUnref - ThreadUnrefMethodInfo , - threadUnref , - - --- ** threadYield - threadYield , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.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 - - -type instance AttributeList Thread = ThreadAttributeList -type ThreadAttributeList = ('[ ] :: [(Symbol, *)]) - --- method Thread::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Thread", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data ThreadRefMethodInfo -instance (signature ~ (m Thread), MonadIO m) => MethodInfo ThreadRefMethodInfo Thread signature where - overloadedMethod _ = threadRef - --- method Thread::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Thread", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -threadUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_thread_unref _obj' - touchManagedPtr _obj - return () - -data ThreadUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo ThreadUnrefMethodInfo Thread signature where - overloadedMethod _ = threadUnref - --- method Thread::error_quark --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -threadErrorQuark = liftIO $ do - result <- g_thread_error_quark - return result - --- method Thread::exit --- method type : MemberFunction --- Args : [Arg {argCName = "retval", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_thread_exit" g_thread_exit :: - Ptr () -> -- retval : TBasicType TPtr - IO () - - -threadExit :: - (MonadIO m) => - Ptr () -- retval - -> m () -- result -threadExit retval = liftIO $ do - g_thread_exit retval - return () - --- method Thread::self --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -threadSelf = liftIO $ do - result <- g_thread_self - checkUnexpectedReturnNULL "g_thread_self" result - result' <- (wrapBoxed Thread) result - return result' - --- method Thread::yield --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_thread_yield" g_thread_yield :: - IO () - - -threadYield :: - (MonadIO m) => - m () -- result -threadYield = liftIO $ do - g_thread_yield - return () - -type family ResolveThreadMethod (t :: Symbol) (o :: *) :: * where - ResolveThreadMethod "ref" o = ThreadRefMethodInfo - ResolveThreadMethod "unref" o = ThreadUnrefMethodInfo - ResolveThreadMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveThreadMethod t Thread, MethodInfo info Thread p) => IsLabelProxy t (Thread -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveThreadMethod t Thread, MethodInfo info Thread p) => IsLabel t (Thread -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,13 +0,0 @@ -module GI.GLib.Structs.Thread where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Thread = Thread (ForeignPtr Thread) -instance BoxedObject Thread where -data ThreadRefMethodInfo -data ThreadUnrefMethodInfo 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,541 +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(..) , - newZeroThreadPool , - noThreadPool , - - - -- * Methods --- ** threadPoolFree - ThreadPoolFreeMethodInfo , - threadPoolFree , - - --- ** threadPoolGetMaxIdleTime - threadPoolGetMaxIdleTime , - - --- ** threadPoolGetMaxThreads - ThreadPoolGetMaxThreadsMethodInfo , - threadPoolGetMaxThreads , - - --- ** threadPoolGetMaxUnusedThreads - threadPoolGetMaxUnusedThreads , - - --- ** threadPoolGetNumThreads - ThreadPoolGetNumThreadsMethodInfo , - threadPoolGetNumThreads , - - --- ** threadPoolGetNumUnusedThreads - threadPoolGetNumUnusedThreads , - - --- ** threadPoolMoveToFront - ThreadPoolMoveToFrontMethodInfo , - threadPoolMoveToFront , - - --- ** threadPoolPush - ThreadPoolPushMethodInfo , - threadPoolPush , - - --- ** threadPoolSetMaxIdleTime - threadPoolSetMaxIdleTime , - - --- ** threadPoolSetMaxThreads - ThreadPoolSetMaxThreadsMethodInfo , - threadPoolSetMaxThreads , - - --- ** threadPoolSetMaxUnusedThreads - threadPoolSetMaxUnusedThreads , - - --- ** threadPoolStopUnusedThreads - threadPoolStopUnusedThreads , - - --- ** threadPoolUnprocessed - ThreadPoolUnprocessedMethodInfo , - threadPoolUnprocessed , - - - - - -- * Properties --- ** Exclusive - threadPoolExclusive , - threadPoolReadExclusive , - threadPoolWriteExclusive , - - --- ** UserData - threadPoolClearUserData , - threadPoolReadUserData , - threadPoolUserData , - threadPoolWriteUserData , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype ThreadPool = ThreadPool (ForeignPtr ThreadPool) -instance WrappedPtr ThreadPool where - wrappedPtrCalloc = callocBytes 24 - wrappedPtrCopy = copyPtr 24 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `ThreadPool` struct initialized to zero. -newZeroThreadPool :: MonadIO m => m ThreadPool -newZeroThreadPool = liftIO $ wrappedPtrCalloc >>= wrapPtr ThreadPool - -instance tag ~ 'AttrSet => Constructible ThreadPool tag where - new _ attrs = do - o <- newZeroThreadPool - GI.Attributes.set o attrs - return o - - -noThreadPool :: Maybe ThreadPool -noThreadPool = Nothing - --- XXX Skipped attribute for "ThreadPool:func" :: Not implemented: "Wrapping foreign callbacks is not supported yet" -threadPoolReadUserData :: MonadIO m => ThreadPool -> m (Ptr ()) -threadPoolReadUserData s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr ()) - return val - -threadPoolWriteUserData :: MonadIO m => ThreadPool -> Ptr () -> m () -threadPoolWriteUserData s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr ()) - -threadPoolClearUserData :: MonadIO m => ThreadPool -> m () -threadPoolClearUserData s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr ()) - -data ThreadPoolUserDataFieldInfo -instance AttrInfo ThreadPoolUserDataFieldInfo where - type AttrAllowedOps ThreadPoolUserDataFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ThreadPoolUserDataFieldInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint ThreadPoolUserDataFieldInfo = (~) ThreadPool - type AttrGetType ThreadPoolUserDataFieldInfo = Ptr () - type AttrLabel ThreadPoolUserDataFieldInfo = "user_data" - attrGet _ = threadPoolReadUserData - attrSet _ = threadPoolWriteUserData - attrConstruct = undefined - attrClear _ = threadPoolClearUserData - -threadPoolUserData :: AttrLabelProxy "userData" -threadPoolUserData = AttrLabelProxy - - -threadPoolReadExclusive :: MonadIO m => ThreadPool -> m Bool -threadPoolReadExclusive s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CInt - let val' = (/= 0) val - return val' - -threadPoolWriteExclusive :: MonadIO m => ThreadPool -> Bool -> m () -threadPoolWriteExclusive s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 16) (val' :: CInt) - -data ThreadPoolExclusiveFieldInfo -instance AttrInfo ThreadPoolExclusiveFieldInfo where - type AttrAllowedOps ThreadPoolExclusiveFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ThreadPoolExclusiveFieldInfo = (~) Bool - type AttrBaseTypeConstraint ThreadPoolExclusiveFieldInfo = (~) ThreadPool - type AttrGetType ThreadPoolExclusiveFieldInfo = Bool - type AttrLabel ThreadPoolExclusiveFieldInfo = "exclusive" - attrGet _ = threadPoolReadExclusive - attrSet _ = threadPoolWriteExclusive - attrConstruct = undefined - attrClear _ = undefined - -threadPoolExclusive :: AttrLabelProxy "exclusive" -threadPoolExclusive = AttrLabelProxy - - - -type instance AttributeList ThreadPool = ThreadPoolAttributeList -type ThreadPoolAttributeList = ('[ '("userData", ThreadPoolUserDataFieldInfo), '("exclusive", ThreadPoolExclusiveFieldInfo)] :: [(Symbol, *)]) - --- method ThreadPool::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "immediate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wait_", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 () -- result -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 () - -data ThreadPoolFreeMethodInfo -instance (signature ~ (Bool -> Bool -> m ()), MonadIO m) => MethodInfo ThreadPoolFreeMethodInfo ThreadPool signature where - overloadedMethod _ = threadPoolFree - --- method ThreadPool::get_max_threads --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -threadPoolGetMaxThreads _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_thread_pool_get_max_threads _obj' - touchManagedPtr _obj - return result - -data ThreadPoolGetMaxThreadsMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo ThreadPoolGetMaxThreadsMethodInfo ThreadPool signature where - overloadedMethod _ = threadPoolGetMaxThreads - --- method ThreadPool::get_num_threads --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -threadPoolGetNumThreads _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_thread_pool_get_num_threads _obj' - touchManagedPtr _obj - return result - -data ThreadPoolGetNumThreadsMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo ThreadPoolGetNumThreadsMethodInfo ThreadPool signature where - overloadedMethod _ = threadPoolGetNumThreads - --- method ThreadPool::move_to_front --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TPtr - IO CInt - - -threadPoolMoveToFront :: - (MonadIO m) => - ThreadPool -- _obj - -> Ptr () -- data_ - -> m Bool -- result -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' - -data ThreadPoolMoveToFrontMethodInfo -instance (signature ~ (Ptr () -> m Bool), MonadIO m) => MethodInfo ThreadPoolMoveToFrontMethodInfo ThreadPool signature where - overloadedMethod _ = threadPoolMoveToFront - --- method ThreadPool::push --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TPtr - Ptr (Ptr GError) -> -- error - IO CInt - - -threadPoolPush :: - (MonadIO m) => - ThreadPool -- _obj - -> Ptr () -- data_ - -> m () -- result -threadPoolPush _obj data_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - onException (do - _ <- propagateGError $ g_thread_pool_push _obj' data_ - touchManagedPtr _obj - return () - ) (do - return () - ) - -data ThreadPoolPushMethodInfo -instance (signature ~ (Ptr () -> m ()), MonadIO m) => MethodInfo ThreadPoolPushMethodInfo ThreadPool signature where - overloadedMethod _ = threadPoolPush - --- method ThreadPool::set_max_threads --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_threads", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_thread_pool_set_max_threads" g_thread_pool_set_max_threads :: - Ptr ThreadPool -> -- _obj : TInterface "GLib" "ThreadPool" - Int32 -> -- max_threads : TBasicType TInt - Ptr (Ptr GError) -> -- error - IO CInt - - -threadPoolSetMaxThreads :: - (MonadIO m) => - ThreadPool -- _obj - -> Int32 -- maxThreads - -> m () -- result -threadPoolSetMaxThreads _obj maxThreads = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - onException (do - _ <- propagateGError $ g_thread_pool_set_max_threads _obj' maxThreads - touchManagedPtr _obj - return () - ) (do - return () - ) - -data ThreadPoolSetMaxThreadsMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo ThreadPoolSetMaxThreadsMethodInfo ThreadPool signature where - overloadedMethod _ = threadPoolSetMaxThreads - --- method ThreadPool::unprocessed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "ThreadPool", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_thread_pool_unprocessed" g_thread_pool_unprocessed :: - Ptr ThreadPool -> -- _obj : TInterface "GLib" "ThreadPool" - IO Word32 - - -threadPoolUnprocessed :: - (MonadIO m) => - ThreadPool -- _obj - -> m Word32 -- result -threadPoolUnprocessed _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_thread_pool_unprocessed _obj' - touchManagedPtr _obj - return result - -data ThreadPoolUnprocessedMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo ThreadPoolUnprocessedMethodInfo ThreadPool signature where - overloadedMethod _ = threadPoolUnprocessed - --- method ThreadPool::get_max_idle_time --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- 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 -- result -threadPoolGetMaxIdleTime = liftIO $ do - result <- g_thread_pool_get_max_idle_time - return result - --- method ThreadPool::get_max_unused_threads --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- 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 -- result -threadPoolGetMaxUnusedThreads = liftIO $ do - result <- g_thread_pool_get_max_unused_threads - return result - --- method ThreadPool::get_num_unused_threads --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- 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 -- result -threadPoolGetNumUnusedThreads = liftIO $ do - result <- g_thread_pool_get_num_unused_threads - return result - --- method ThreadPool::set_max_idle_time --- method type : MemberFunction --- Args : [Arg {argCName = "interval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_thread_pool_set_max_idle_time" g_thread_pool_set_max_idle_time :: - Word32 -> -- interval : TBasicType TUInt - IO () - - -threadPoolSetMaxIdleTime :: - (MonadIO m) => - Word32 -- interval - -> m () -- result -threadPoolSetMaxIdleTime interval = liftIO $ do - g_thread_pool_set_max_idle_time interval - return () - --- method ThreadPool::set_max_unused_threads --- method type : MemberFunction --- Args : [Arg {argCName = "max_threads", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_thread_pool_set_max_unused_threads" g_thread_pool_set_max_unused_threads :: - Int32 -> -- max_threads : TBasicType TInt - IO () - - -threadPoolSetMaxUnusedThreads :: - (MonadIO m) => - Int32 -- maxThreads - -> m () -- result -threadPoolSetMaxUnusedThreads maxThreads = liftIO $ do - g_thread_pool_set_max_unused_threads maxThreads - return () - --- method ThreadPool::stop_unused_threads --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -threadPoolStopUnusedThreads = liftIO $ do - g_thread_pool_stop_unused_threads - return () - -type family ResolveThreadPoolMethod (t :: Symbol) (o :: *) :: * where - ResolveThreadPoolMethod "free" o = ThreadPoolFreeMethodInfo - ResolveThreadPoolMethod "moveToFront" o = ThreadPoolMoveToFrontMethodInfo - ResolveThreadPoolMethod "push" o = ThreadPoolPushMethodInfo - ResolveThreadPoolMethod "unprocessed" o = ThreadPoolUnprocessedMethodInfo - ResolveThreadPoolMethod "getMaxThreads" o = ThreadPoolGetMaxThreadsMethodInfo - ResolveThreadPoolMethod "getNumThreads" o = ThreadPoolGetNumThreadsMethodInfo - ResolveThreadPoolMethod "setMaxThreads" o = ThreadPoolSetMaxThreadsMethodInfo - ResolveThreadPoolMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveThreadPoolMethod t ThreadPool, MethodInfo info ThreadPool p) => IsLabelProxy t (ThreadPool -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveThreadPoolMethod t ThreadPool, MethodInfo info ThreadPool p) => IsLabel t (ThreadPool -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,18 +0,0 @@ -module GI.GLib.Structs.ThreadPool where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ThreadPool = ThreadPool (ForeignPtr ThreadPool) -instance WrappedPtr ThreadPool where -data ThreadPoolFreeMethodInfo -data ThreadPoolGetMaxThreadsMethodInfo -data ThreadPoolGetNumThreadsMethodInfo -data ThreadPoolMoveToFrontMethodInfo -data ThreadPoolPushMethodInfo -data ThreadPoolSetMaxThreadsMethodInfo -data ThreadPoolUnprocessedMethodInfo 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,243 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -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(..) , - newZeroTimeVal , - noTimeVal , - - - -- * Methods --- ** timeValAdd - TimeValAddMethodInfo , - timeValAdd , - - --- ** timeValFromIso8601 - timeValFromIso8601 , - - --- ** timeValToIso8601 - TimeValToIso8601MethodInfo , - timeValToIso8601 , - - - - - -- * Properties --- ** TvSec - timeValReadTvSec , - timeValTvSec , - timeValWriteTvSec , - - --- ** TvUsec - timeValReadTvUsec , - timeValTvUsec , - timeValWriteTvUsec , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype TimeVal = TimeVal (ForeignPtr TimeVal) -instance WrappedPtr TimeVal where - wrappedPtrCalloc = callocBytes 16 - wrappedPtrCopy = copyPtr 16 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `TimeVal` struct initialized to zero. -newZeroTimeVal :: MonadIO m => m TimeVal -newZeroTimeVal = liftIO $ wrappedPtrCalloc >>= wrapPtr TimeVal - -instance tag ~ 'AttrSet => Constructible TimeVal tag where - new _ attrs = do - o <- newZeroTimeVal - GI.Attributes.set o attrs - return o - - -noTimeVal :: Maybe TimeVal -noTimeVal = Nothing - -timeValReadTvSec :: MonadIO m => TimeVal -> m CLong -timeValReadTvSec s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CLong - return val - -timeValWriteTvSec :: MonadIO m => TimeVal -> CLong -> m () -timeValWriteTvSec s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: CLong) - -data TimeValTvSecFieldInfo -instance AttrInfo TimeValTvSecFieldInfo where - type AttrAllowedOps TimeValTvSecFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TimeValTvSecFieldInfo = (~) CLong - type AttrBaseTypeConstraint TimeValTvSecFieldInfo = (~) TimeVal - type AttrGetType TimeValTvSecFieldInfo = CLong - type AttrLabel TimeValTvSecFieldInfo = "tv_sec" - attrGet _ = timeValReadTvSec - attrSet _ = timeValWriteTvSec - attrConstruct = undefined - attrClear _ = undefined - -timeValTvSec :: AttrLabelProxy "tvSec" -timeValTvSec = AttrLabelProxy - - -timeValReadTvUsec :: MonadIO m => TimeVal -> m CLong -timeValReadTvUsec s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CLong - return val - -timeValWriteTvUsec :: MonadIO m => TimeVal -> CLong -> m () -timeValWriteTvUsec s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CLong) - -data TimeValTvUsecFieldInfo -instance AttrInfo TimeValTvUsecFieldInfo where - type AttrAllowedOps TimeValTvUsecFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TimeValTvUsecFieldInfo = (~) CLong - type AttrBaseTypeConstraint TimeValTvUsecFieldInfo = (~) TimeVal - type AttrGetType TimeValTvUsecFieldInfo = CLong - type AttrLabel TimeValTvUsecFieldInfo = "tv_usec" - attrGet _ = timeValReadTvUsec - attrSet _ = timeValWriteTvUsec - attrConstruct = undefined - attrClear _ = undefined - -timeValTvUsec :: AttrLabelProxy "tvUsec" -timeValTvUsec = AttrLabelProxy - - - -type instance AttributeList TimeVal = TimeValAttributeList -type TimeValAttributeList = ('[ '("tvSec", TimeValTvSecFieldInfo), '("tvUsec", TimeValTvUsecFieldInfo)] :: [(Symbol, *)]) - --- method TimeVal::add --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "microseconds", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_time_val_add" g_time_val_add :: - Ptr TimeVal -> -- _obj : TInterface "GLib" "TimeVal" - CLong -> -- microseconds : TBasicType TLong - IO () - - -timeValAdd :: - (MonadIO m) => - TimeVal -- _obj - -> CLong -- microseconds - -> m () -- result -timeValAdd _obj microseconds = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_time_val_add _obj' microseconds - touchManagedPtr _obj - return () - -data TimeValAddMethodInfo -instance (signature ~ (CLong -> m ()), MonadIO m) => MethodInfo TimeValAddMethodInfo TimeVal signature where - overloadedMethod _ = timeValAdd - --- method TimeVal::to_iso8601 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data TimeValToIso8601MethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo TimeValToIso8601MethodInfo TimeVal signature where - overloadedMethod _ = timeValToIso8601 - --- method TimeVal::from_iso8601 --- method type : MemberFunction --- Args : [Arg {argCName = "iso_date", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TInterface "GLib" "TimeVal", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- isoDate - -> m (Bool,TimeVal) -- result -timeValFromIso8601 isoDate = liftIO $ do - isoDate' <- textToCString isoDate - time_ <- callocBytes 16 :: IO (Ptr TimeVal) - result <- g_time_val_from_iso8601 isoDate' time_ - let result' = (/= 0) result - time_' <- (wrapPtr TimeVal) time_ - freeMem isoDate' - return (result', time_') - -type family ResolveTimeValMethod (t :: Symbol) (o :: *) :: * where - ResolveTimeValMethod "add" o = TimeValAddMethodInfo - ResolveTimeValMethod "toIso8601" o = TimeValToIso8601MethodInfo - ResolveTimeValMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTimeValMethod t TimeVal, MethodInfo info TimeVal p) => IsLabelProxy t (TimeVal -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTimeValMethod t TimeVal, MethodInfo info TimeVal p) => IsLabel t (TimeVal -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,13 +0,0 @@ -module GI.GLib.Structs.TimeVal where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TimeVal = TimeVal (ForeignPtr TimeVal) -instance WrappedPtr TimeVal where -data TimeValAddMethodInfo -data TimeValToIso8601MethodInfo 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,395 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -#GTimeZone is an opaque structure whose members cannot be accessed -directly. --} - -module GI.GLib.Structs.TimeZone - ( - --- * Exported types - TimeZone(..) , - noTimeZone , - - - -- * Methods --- ** timeZoneAdjustTime - TimeZoneAdjustTimeMethodInfo , - timeZoneAdjustTime , - - --- ** timeZoneFindInterval - TimeZoneFindIntervalMethodInfo , - timeZoneFindInterval , - - --- ** timeZoneGetAbbreviation - TimeZoneGetAbbreviationMethodInfo , - timeZoneGetAbbreviation , - - --- ** timeZoneGetOffset - TimeZoneGetOffsetMethodInfo , - timeZoneGetOffset , - - --- ** timeZoneIsDst - TimeZoneIsDstMethodInfo , - timeZoneIsDst , - - --- ** timeZoneNew - timeZoneNew , - - --- ** timeZoneNewLocal - timeZoneNewLocal , - - --- ** timeZoneNewUtc - timeZoneNewUtc , - - --- ** timeZoneRef - TimeZoneRefMethodInfo , - timeZoneRef , - - --- ** timeZoneUnref - TimeZoneUnrefMethodInfo , - timeZoneUnref , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.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 - - -type instance AttributeList TimeZone = TimeZoneAttributeList -type TimeZoneAttributeList = ('[ ] :: [(Symbol, *)]) - --- method TimeZone::new --- method type : Constructor --- Args : [Arg {argCName = "identifier", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 : [] --- returnType : Just (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 -- result -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 : [] --- returnType : Just (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 -- result -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 {argCName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "GLib" "TimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 - -data TimeZoneAdjustTimeMethodInfo -instance (signature ~ (TimeType -> Int64 -> m Int32), MonadIO m) => MethodInfo TimeZoneAdjustTimeMethodInfo TimeZone signature where - overloadedMethod _ = timeZoneAdjustTime - --- method TimeZone::find_interval --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "GLib" "TimeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 - -data TimeZoneFindIntervalMethodInfo -instance (signature ~ (TimeType -> Int64 -> m Int32), MonadIO m) => MethodInfo TimeZoneFindIntervalMethodInfo TimeZone signature where - overloadedMethod _ = timeZoneFindInterval - --- method TimeZone::get_abbreviation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interval", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_time_zone_get_abbreviation" g_time_zone_get_abbreviation :: - Ptr TimeZone -> -- _obj : TInterface "GLib" "TimeZone" - Int32 -> -- interval : TBasicType TInt - IO CString - - -timeZoneGetAbbreviation :: - (MonadIO m) => - TimeZone -- _obj - -> Int32 -- interval - -> m T.Text -- result -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' - -data TimeZoneGetAbbreviationMethodInfo -instance (signature ~ (Int32 -> m T.Text), MonadIO m) => MethodInfo TimeZoneGetAbbreviationMethodInfo TimeZone signature where - overloadedMethod _ = timeZoneGetAbbreviation - --- method TimeZone::get_offset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interval", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt32) --- throws : False --- Skip return : False - -foreign import ccall "g_time_zone_get_offset" g_time_zone_get_offset :: - Ptr TimeZone -> -- _obj : TInterface "GLib" "TimeZone" - Int32 -> -- interval : TBasicType TInt - IO Int32 - - -timeZoneGetOffset :: - (MonadIO m) => - TimeZone -- _obj - -> Int32 -- interval - -> m Int32 -- result -timeZoneGetOffset _obj interval = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_time_zone_get_offset _obj' interval - touchManagedPtr _obj - return result - -data TimeZoneGetOffsetMethodInfo -instance (signature ~ (Int32 -> m Int32), MonadIO m) => MethodInfo TimeZoneGetOffsetMethodInfo TimeZone signature where - overloadedMethod _ = timeZoneGetOffset - --- method TimeZone::is_dst --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interval", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_time_zone_is_dst" g_time_zone_is_dst :: - Ptr TimeZone -> -- _obj : TInterface "GLib" "TimeZone" - Int32 -> -- interval : TBasicType TInt - IO CInt - - -timeZoneIsDst :: - (MonadIO m) => - TimeZone -- _obj - -> Int32 -- interval - -> m Bool -- result -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' - -data TimeZoneIsDstMethodInfo -instance (signature ~ (Int32 -> m Bool), MonadIO m) => MethodInfo TimeZoneIsDstMethodInfo TimeZone signature where - overloadedMethod _ = timeZoneIsDst - --- method TimeZone::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data TimeZoneRefMethodInfo -instance (signature ~ (m TimeZone), MonadIO m) => MethodInfo TimeZoneRefMethodInfo TimeZone signature where - overloadedMethod _ = timeZoneRef - --- method TimeZone::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "TimeZone", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -timeZoneUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_time_zone_unref _obj' - touchManagedPtr _obj - return () - -data TimeZoneUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo TimeZoneUnrefMethodInfo TimeZone signature where - overloadedMethod _ = timeZoneUnref - -type family ResolveTimeZoneMethod (t :: Symbol) (o :: *) :: * where - ResolveTimeZoneMethod "adjustTime" o = TimeZoneAdjustTimeMethodInfo - ResolveTimeZoneMethod "findInterval" o = TimeZoneFindIntervalMethodInfo - ResolveTimeZoneMethod "isDst" o = TimeZoneIsDstMethodInfo - ResolveTimeZoneMethod "ref" o = TimeZoneRefMethodInfo - ResolveTimeZoneMethod "unref" o = TimeZoneUnrefMethodInfo - ResolveTimeZoneMethod "getAbbreviation" o = TimeZoneGetAbbreviationMethodInfo - ResolveTimeZoneMethod "getOffset" o = TimeZoneGetOffsetMethodInfo - ResolveTimeZoneMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTimeZoneMethod t TimeZone, MethodInfo info TimeZone p) => IsLabelProxy t (TimeZone -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTimeZoneMethod t TimeZone, MethodInfo info TimeZone p) => IsLabel t (TimeZone -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,18 +0,0 @@ -module GI.GLib.Structs.TimeZone where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TimeZone = TimeZone (ForeignPtr TimeZone) -instance BoxedObject TimeZone where -data TimeZoneAdjustTimeMethodInfo -data TimeZoneFindIntervalMethodInfo -data TimeZoneGetAbbreviationMethodInfo -data TimeZoneGetOffsetMethodInfo -data TimeZoneIsDstMethodInfo -data TimeZoneRefMethodInfo -data TimeZoneUnrefMethodInfo 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,260 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Opaque datatype that records a start time. --} - -module GI.GLib.Structs.Timer - ( - --- * Exported types - Timer(..) , - noTimer , - - - -- * Methods --- ** timerContinue - TimerContinueMethodInfo , - timerContinue , - - --- ** timerDestroy - TimerDestroyMethodInfo , - timerDestroy , - - --- ** timerElapsed - TimerElapsedMethodInfo , - timerElapsed , - - --- ** timerReset - TimerResetMethodInfo , - timerReset , - - --- ** timerStart - TimerStartMethodInfo , - timerStart , - - --- ** timerStop - TimerStopMethodInfo , - timerStop , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Timer = Timer (ForeignPtr Timer) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr Timer where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noTimer :: Maybe Timer -noTimer = Nothing - - -type instance AttributeList Timer = TimerAttributeList -type TimerAttributeList = ('[ ] :: [(Symbol, *)]) - --- method Timer::continue --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -timerContinue _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_timer_continue _obj' - touchManagedPtr _obj - return () - -data TimerContinueMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo TimerContinueMethodInfo Timer signature where - overloadedMethod _ = timerContinue - --- method Timer::destroy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -timerDestroy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_timer_destroy _obj' - touchManagedPtr _obj - return () - -data TimerDestroyMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo TimerDestroyMethodInfo Timer signature where - overloadedMethod _ = timerDestroy - --- method Timer::elapsed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "microseconds", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TDouble) --- throws : False --- Skip return : False - -foreign import ccall "g_timer_elapsed" g_timer_elapsed :: - Ptr Timer -> -- _obj : TInterface "GLib" "Timer" - CULong -> -- microseconds : TBasicType TULong - IO CDouble - - -timerElapsed :: - (MonadIO m) => - Timer -- _obj - -> CULong -- microseconds - -> m Double -- result -timerElapsed _obj microseconds = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_timer_elapsed _obj' microseconds - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data TimerElapsedMethodInfo -instance (signature ~ (CULong -> m Double), MonadIO m) => MethodInfo TimerElapsedMethodInfo Timer signature where - overloadedMethod _ = timerElapsed - --- method Timer::reset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -timerReset _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_timer_reset _obj' - touchManagedPtr _obj - return () - -data TimerResetMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo TimerResetMethodInfo Timer signature where - overloadedMethod _ = timerReset - --- method Timer::start --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -timerStart _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_timer_start _obj' - touchManagedPtr _obj - return () - -data TimerStartMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo TimerStartMethodInfo Timer signature where - overloadedMethod _ = timerStart - --- method Timer::stop --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Timer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -timerStop _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_timer_stop _obj' - touchManagedPtr _obj - return () - -data TimerStopMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo TimerStopMethodInfo Timer signature where - overloadedMethod _ = timerStop - -type family ResolveTimerMethod (t :: Symbol) (o :: *) :: * where - ResolveTimerMethod "continue" o = TimerContinueMethodInfo - ResolveTimerMethod "destroy" o = TimerDestroyMethodInfo - ResolveTimerMethod "elapsed" o = TimerElapsedMethodInfo - ResolveTimerMethod "reset" o = TimerResetMethodInfo - ResolveTimerMethod "start" o = TimerStartMethodInfo - ResolveTimerMethod "stop" o = TimerStopMethodInfo - ResolveTimerMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTimerMethod t Timer, MethodInfo info Timer p) => IsLabelProxy t (Timer -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTimerMethod t Timer, MethodInfo info Timer p) => IsLabel t (Timer -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,17 +0,0 @@ -module GI.GLib.Structs.Timer where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Timer = Timer (ForeignPtr Timer) -instance WrappedPtr Timer where -data TimerContinueMethodInfo -data TimerDestroyMethodInfo -data TimerElapsedMethodInfo -data TimerResetMethodInfo -data TimerStartMethodInfo -data TimerStopMethodInfo 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,169 +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(..) , - newZeroTrashStack , - noTrashStack , - - - -- * Methods --- ** trashStackHeight - trashStackHeight , - - --- ** trashStackPush - trashStackPush , - - - - - -- * Properties --- ** Next - trashStackClearNext , - trashStackNext , - trashStackReadNext , - trashStackWriteNext , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype TrashStack = TrashStack (ForeignPtr TrashStack) -instance WrappedPtr TrashStack where - wrappedPtrCalloc = callocBytes 8 - wrappedPtrCopy = copyPtr 8 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `TrashStack` struct initialized to zero. -newZeroTrashStack :: MonadIO m => m TrashStack -newZeroTrashStack = liftIO $ wrappedPtrCalloc >>= wrapPtr TrashStack - -instance tag ~ 'AttrSet => Constructible TrashStack tag where - new _ attrs = do - o <- newZeroTrashStack - GI.Attributes.set o attrs - return o - - -noTrashStack :: Maybe TrashStack -noTrashStack = Nothing - -trashStackReadNext :: MonadIO m => TrashStack -> m (Maybe TrashStack) -trashStackReadNext s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr TrashStack) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr TrashStack) val' - return val'' - return result - -trashStackWriteNext :: MonadIO m => TrashStack -> Ptr TrashStack -> m () -trashStackWriteNext s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr TrashStack) - -trashStackClearNext :: MonadIO m => TrashStack -> m () -trashStackClearNext s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr TrashStack) - -data TrashStackNextFieldInfo -instance AttrInfo TrashStackNextFieldInfo where - type AttrAllowedOps TrashStackNextFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TrashStackNextFieldInfo = (~) (Ptr TrashStack) - type AttrBaseTypeConstraint TrashStackNextFieldInfo = (~) TrashStack - type AttrGetType TrashStackNextFieldInfo = Maybe TrashStack - type AttrLabel TrashStackNextFieldInfo = "next" - attrGet _ = trashStackReadNext - attrSet _ = trashStackWriteNext - attrConstruct = undefined - attrClear _ = trashStackClearNext - -trashStackNext :: AttrLabelProxy "next" -trashStackNext = AttrLabelProxy - - - -type instance AttributeList TrashStack = TrashStackAttributeList -type TrashStackAttributeList = ('[ '("next", TrashStackNextFieldInfo)] :: [(Symbol, *)]) - --- method TrashStack::height --- method type : MemberFunction --- Args : [Arg {argCName = "stack_p", argType = TInterface "GLib" "TrashStack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_trash_stack_height" g_trash_stack_height :: - Ptr TrashStack -> -- stack_p : TInterface "GLib" "TrashStack" - IO Word32 - - -trashStackHeight :: - (MonadIO m) => - TrashStack -- stackP - -> m Word32 -- result -trashStackHeight stackP = liftIO $ do - let stackP' = unsafeManagedPtrGetPtr stackP - result <- g_trash_stack_height stackP' - touchManagedPtr stackP - return result - --- method TrashStack::push --- method type : MemberFunction --- Args : [Arg {argCName = "stack_p", argType = TInterface "GLib" "TrashStack", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data_p", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_trash_stack_push" g_trash_stack_push :: - Ptr TrashStack -> -- stack_p : TInterface "GLib" "TrashStack" - Ptr () -> -- data_p : TBasicType TPtr - IO () - - -trashStackPush :: - (MonadIO m) => - TrashStack -- stackP - -> Ptr () -- dataP - -> m () -- result -trashStackPush stackP dataP = liftIO $ do - let stackP' = unsafeManagedPtrGetPtr stackP - g_trash_stack_push stackP' dataP - touchManagedPtr stackP - return () - -type family ResolveTrashStackMethod (t :: Symbol) (o :: *) :: * where - ResolveTrashStackMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTrashStackMethod t TrashStack, MethodInfo info TrashStack p) => IsLabelProxy t (TrashStack -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTrashStackMethod t TrashStack, MethodInfo info TrashStack p) => IsLabel t (TrashStack -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,11 +0,0 @@ -module GI.GLib.Structs.TrashStack where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TrashStack = TrashStack (ForeignPtr TrashStack) -instance WrappedPtr TrashStack where 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,379 +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 - TreeDestroyMethodInfo , - treeDestroy , - - --- ** treeHeight - TreeHeightMethodInfo , - treeHeight , - - --- ** treeInsert - TreeInsertMethodInfo , - treeInsert , - - --- ** treeLookupExtended - TreeLookupExtendedMethodInfo , - treeLookupExtended , - - --- ** treeNnodes - TreeNnodesMethodInfo , - treeNnodes , - - --- ** treeRemove - TreeRemoveMethodInfo , - treeRemove , - - --- ** treeReplace - TreeReplaceMethodInfo , - treeReplace , - - --- ** treeSteal - TreeStealMethodInfo , - treeSteal , - - --- ** treeUnref - TreeUnrefMethodInfo , - treeUnref , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Tree = Tree (ForeignPtr Tree) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr Tree where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noTree :: Maybe Tree -noTree = Nothing - - -type instance AttributeList Tree = TreeAttributeList -type TreeAttributeList = ('[ ] :: [(Symbol, *)]) - --- method Tree::destroy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -treeDestroy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_tree_destroy _obj' - touchManagedPtr _obj - return () - -data TreeDestroyMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo TreeDestroyMethodInfo Tree signature where - overloadedMethod _ = treeDestroy - --- method Tree::height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_tree_height" g_tree_height :: - Ptr Tree -> -- _obj : TInterface "GLib" "Tree" - IO Int32 - - -treeHeight :: - (MonadIO m) => - Tree -- _obj - -> m Int32 -- result -treeHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_tree_height _obj' - touchManagedPtr _obj - return result - -data TreeHeightMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo TreeHeightMethodInfo Tree signature where - overloadedMethod _ = treeHeight - --- method Tree::insert --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_tree_insert" g_tree_insert :: - Ptr Tree -> -- _obj : TInterface "GLib" "Tree" - Ptr () -> -- key : TBasicType TPtr - Ptr () -> -- value : TBasicType TPtr - IO () - - -treeInsert :: - (MonadIO m) => - Tree -- _obj - -> Ptr () -- key - -> Ptr () -- value - -> m () -- result -treeInsert _obj key value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_tree_insert _obj' key value - touchManagedPtr _obj - return () - -data TreeInsertMethodInfo -instance (signature ~ (Ptr () -> Ptr () -> m ()), MonadIO m) => MethodInfo TreeInsertMethodInfo Tree signature where - overloadedMethod _ = treeInsert - --- method Tree::lookup_extended --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lookup_key", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "orig_key", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_tree_lookup_extended" g_tree_lookup_extended :: - Ptr Tree -> -- _obj : TInterface "GLib" "Tree" - Ptr () -> -- lookup_key : TBasicType TPtr - Ptr () -> -- orig_key : TBasicType TPtr - Ptr () -> -- value : TBasicType TPtr - IO CInt - - -treeLookupExtended :: - (MonadIO m) => - Tree -- _obj - -> Ptr () -- lookupKey - -> Ptr () -- origKey - -> Ptr () -- value - -> m Bool -- result -treeLookupExtended _obj lookupKey origKey value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_tree_lookup_extended _obj' lookupKey origKey value - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TreeLookupExtendedMethodInfo -instance (signature ~ (Ptr () -> Ptr () -> Ptr () -> m Bool), MonadIO m) => MethodInfo TreeLookupExtendedMethodInfo Tree signature where - overloadedMethod _ = treeLookupExtended - --- method Tree::nnodes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_tree_nnodes" g_tree_nnodes :: - Ptr Tree -> -- _obj : TInterface "GLib" "Tree" - IO Int32 - - -treeNnodes :: - (MonadIO m) => - Tree -- _obj - -> m Int32 -- result -treeNnodes _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_tree_nnodes _obj' - touchManagedPtr _obj - return result - -data TreeNnodesMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo TreeNnodesMethodInfo Tree signature where - overloadedMethod _ = treeNnodes - --- method Tree::remove --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_tree_remove" g_tree_remove :: - Ptr Tree -> -- _obj : TInterface "GLib" "Tree" - Ptr () -> -- key : TBasicType TPtr - IO CInt - - -treeRemove :: - (MonadIO m) => - Tree -- _obj - -> Ptr () -- key - -> m Bool -- result -treeRemove _obj key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_tree_remove _obj' key - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TreeRemoveMethodInfo -instance (signature ~ (Ptr () -> m Bool), MonadIO m) => MethodInfo TreeRemoveMethodInfo Tree signature where - overloadedMethod _ = treeRemove - --- method Tree::replace --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_tree_replace" g_tree_replace :: - Ptr Tree -> -- _obj : TInterface "GLib" "Tree" - Ptr () -> -- key : TBasicType TPtr - Ptr () -> -- value : TBasicType TPtr - IO () - - -treeReplace :: - (MonadIO m) => - Tree -- _obj - -> Ptr () -- key - -> Ptr () -- value - -> m () -- result -treeReplace _obj key value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_tree_replace _obj' key value - touchManagedPtr _obj - return () - -data TreeReplaceMethodInfo -instance (signature ~ (Ptr () -> Ptr () -> m ()), MonadIO m) => MethodInfo TreeReplaceMethodInfo Tree signature where - overloadedMethod _ = treeReplace - --- method Tree::steal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_tree_steal" g_tree_steal :: - Ptr Tree -> -- _obj : TInterface "GLib" "Tree" - Ptr () -> -- key : TBasicType TPtr - IO CInt - - -treeSteal :: - (MonadIO m) => - Tree -- _obj - -> Ptr () -- key - -> m Bool -- result -treeSteal _obj key = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_tree_steal _obj' key - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TreeStealMethodInfo -instance (signature ~ (Ptr () -> m Bool), MonadIO m) => MethodInfo TreeStealMethodInfo Tree signature where - overloadedMethod _ = treeSteal - --- method Tree::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Tree", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -treeUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_tree_unref _obj' - touchManagedPtr _obj - return () - -data TreeUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo TreeUnrefMethodInfo Tree signature where - overloadedMethod _ = treeUnref - -type family ResolveTreeMethod (t :: Symbol) (o :: *) :: * where - ResolveTreeMethod "destroy" o = TreeDestroyMethodInfo - ResolveTreeMethod "height" o = TreeHeightMethodInfo - ResolveTreeMethod "insert" o = TreeInsertMethodInfo - ResolveTreeMethod "lookupExtended" o = TreeLookupExtendedMethodInfo - ResolveTreeMethod "nnodes" o = TreeNnodesMethodInfo - ResolveTreeMethod "remove" o = TreeRemoveMethodInfo - ResolveTreeMethod "replace" o = TreeReplaceMethodInfo - ResolveTreeMethod "steal" o = TreeStealMethodInfo - ResolveTreeMethod "unref" o = TreeUnrefMethodInfo - ResolveTreeMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTreeMethod t Tree, MethodInfo info Tree p) => IsLabelProxy t (Tree -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTreeMethod t Tree, MethodInfo info Tree p) => IsLabel t (Tree -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,20 +0,0 @@ -module GI.GLib.Structs.Tree where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Tree = Tree (ForeignPtr Tree) -instance WrappedPtr Tree where -data TreeDestroyMethodInfo -data TreeHeightMethodInfo -data TreeInsertMethodInfo -data TreeLookupExtendedMethodInfo -data TreeNnodesMethodInfo -data TreeRemoveMethodInfo -data TreeReplaceMethodInfo -data TreeStealMethodInfo -data TreeUnrefMethodInfo 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,315 +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(..) , - newZeroVariantBuilder , - noVariantBuilder , - - - -- * Methods --- ** variantBuilderAddValue - VariantBuilderAddValueMethodInfo , - variantBuilderAddValue , - - --- ** variantBuilderClose - VariantBuilderCloseMethodInfo , - variantBuilderClose , - - --- ** variantBuilderEnd - VariantBuilderEndMethodInfo , - variantBuilderEnd , - - --- ** variantBuilderNew - variantBuilderNew , - - --- ** variantBuilderOpen - VariantBuilderOpenMethodInfo , - variantBuilderOpen , - - --- ** variantBuilderRef - VariantBuilderRefMethodInfo , - variantBuilderRef , - - --- ** variantBuilderUnref - VariantBuilderUnrefMethodInfo , - variantBuilderUnref , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.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 - --- | Construct a `VariantBuilder` struct initialized to zero. -newZeroVariantBuilder :: MonadIO m => m VariantBuilder -newZeroVariantBuilder = liftIO $ callocBoxedBytes 128 >>= wrapBoxed VariantBuilder - -instance tag ~ 'AttrSet => Constructible VariantBuilder tag where - new _ attrs = do - o <- newZeroVariantBuilder - GI.Attributes.set o attrs - return o - - -noVariantBuilder :: Maybe VariantBuilder -noVariantBuilder = Nothing - - -type instance AttributeList VariantBuilder = VariantBuilderAttributeList -type VariantBuilderAttributeList = ('[ ] :: [(Symbol, *)]) - --- method VariantBuilder::new --- method type : Constructor --- Args : [Arg {argCName = "type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_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 () -- result -variantBuilderAddValue _obj value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let value' = unsafeManagedPtrGetPtr value - g_variant_builder_add_value _obj' value' - touchManagedPtr _obj - return () - -data VariantBuilderAddValueMethodInfo -instance (signature ~ (GVariant -> m ()), MonadIO m) => MethodInfo VariantBuilderAddValueMethodInfo VariantBuilder signature where - overloadedMethod _ = variantBuilderAddValue - --- method VariantBuilder::close --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -variantBuilderClose _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_variant_builder_close _obj' - touchManagedPtr _obj - return () - -data VariantBuilderCloseMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo VariantBuilderCloseMethodInfo VariantBuilder signature where - overloadedMethod _ = variantBuilderClose - --- method VariantBuilder::end --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TVariant --- throws : False --- Skip return : False - -foreign import ccall "g_variant_builder_end" g_variant_builder_end :: - Ptr VariantBuilder -> -- _obj : TInterface "GLib" "VariantBuilder" - IO (Ptr GVariant) - - -variantBuilderEnd :: - (MonadIO m) => - VariantBuilder -- _obj - -> m GVariant -- result -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' - -data VariantBuilderEndMethodInfo -instance (signature ~ (m GVariant), MonadIO m) => MethodInfo VariantBuilderEndMethodInfo VariantBuilder signature where - overloadedMethod _ = variantBuilderEnd - --- method VariantBuilder::open --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -variantBuilderOpen _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let type_' = unsafeManagedPtrGetPtr type_ - g_variant_builder_open _obj' type_' - touchManagedPtr _obj - touchManagedPtr type_ - return () - -data VariantBuilderOpenMethodInfo -instance (signature ~ (VariantType -> m ()), MonadIO m) => MethodInfo VariantBuilderOpenMethodInfo VariantBuilder signature where - overloadedMethod _ = variantBuilderOpen - --- method VariantBuilder::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data VariantBuilderRefMethodInfo -instance (signature ~ (m VariantBuilder), MonadIO m) => MethodInfo VariantBuilderRefMethodInfo VariantBuilder signature where - overloadedMethod _ = variantBuilderRef - --- method VariantBuilder::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantBuilder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -variantBuilderUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_variant_builder_unref _obj' - touchManagedPtr _obj - return () - -data VariantBuilderUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo VariantBuilderUnrefMethodInfo VariantBuilder signature where - overloadedMethod _ = variantBuilderUnref - -type family ResolveVariantBuilderMethod (t :: Symbol) (o :: *) :: * where - ResolveVariantBuilderMethod "addValue" o = VariantBuilderAddValueMethodInfo - ResolveVariantBuilderMethod "close" o = VariantBuilderCloseMethodInfo - ResolveVariantBuilderMethod "end" o = VariantBuilderEndMethodInfo - ResolveVariantBuilderMethod "open" o = VariantBuilderOpenMethodInfo - ResolveVariantBuilderMethod "ref" o = VariantBuilderRefMethodInfo - ResolveVariantBuilderMethod "unref" o = VariantBuilderUnrefMethodInfo - ResolveVariantBuilderMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveVariantBuilderMethod t VariantBuilder, MethodInfo info VariantBuilder p) => IsLabelProxy t (VariantBuilder -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveVariantBuilderMethod t VariantBuilder, MethodInfo info VariantBuilder p) => IsLabel t (VariantBuilder -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,17 +0,0 @@ -module GI.GLib.Structs.VariantBuilder where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype VariantBuilder = VariantBuilder (ForeignPtr VariantBuilder) -instance BoxedObject VariantBuilder where -data VariantBuilderAddValueMethodInfo -data VariantBuilderCloseMethodInfo -data VariantBuilderEndMethodInfo -data VariantBuilderOpenMethodInfo -data VariantBuilderRefMethodInfo -data VariantBuilderUnrefMethodInfo 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,490 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -#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(..) , - newZeroVariantDict , - noVariantDict , - - - -- * Methods --- ** variantDictClear - VariantDictClearMethodInfo , - variantDictClear , - - --- ** variantDictContains - VariantDictContainsMethodInfo , - variantDictContains , - - --- ** variantDictEnd - VariantDictEndMethodInfo , - variantDictEnd , - - --- ** variantDictInsertValue - VariantDictInsertValueMethodInfo , - variantDictInsertValue , - - --- ** variantDictLookupValue - VariantDictLookupValueMethodInfo , - variantDictLookupValue , - - --- ** variantDictNew - variantDictNew , - - --- ** variantDictRef - VariantDictRefMethodInfo , - variantDictRef , - - --- ** variantDictRemove - VariantDictRemoveMethodInfo , - variantDictRemove , - - --- ** variantDictUnref - VariantDictUnrefMethodInfo , - variantDictUnref , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.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 - --- | Construct a `VariantDict` struct initialized to zero. -newZeroVariantDict :: MonadIO m => m VariantDict -newZeroVariantDict = liftIO $ callocBoxedBytes 128 >>= wrapBoxed VariantDict - -instance tag ~ 'AttrSet => Constructible VariantDict tag where - new _ attrs = do - o <- newZeroVariantDict - GI.Attributes.set o attrs - return o - - -noVariantDict :: Maybe VariantDict -noVariantDict = Nothing - - -type instance AttributeList VariantDict = VariantDictAttributeList -type VariantDictAttributeList = ('[ ] :: [(Symbol, *)]) - --- method VariantDict::new --- method type : Constructor --- Args : [Arg {argCName = "from_asv", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "VariantDict") --- throws : False --- Skip return : False - -foreign import ccall "g_variant_dict_new" g_variant_dict_new :: - Ptr GVariant -> -- from_asv : TVariant - IO (Ptr VariantDict) - - -variantDictNew :: - (MonadIO m) => - Maybe (GVariant) -- fromAsv - -> m VariantDict -- result -variantDictNew fromAsv = liftIO $ do - maybeFromAsv <- case fromAsv of - Nothing -> return nullPtr - Just jFromAsv -> do - let jFromAsv' = unsafeManagedPtrGetPtr jFromAsv - return jFromAsv' - result <- g_variant_dict_new maybeFromAsv - checkUnexpectedReturnNULL "g_variant_dict_new" result - result' <- (wrapBoxed VariantDict) result - return result' - --- method VariantDict::clear --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -variantDictClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_variant_dict_clear _obj' - touchManagedPtr _obj - return () - -data VariantDictClearMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo VariantDictClearMethodInfo VariantDict signature where - overloadedMethod _ = variantDictClear - --- method VariantDict::contains --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data VariantDictContainsMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m) => MethodInfo VariantDictContainsMethodInfo VariantDict signature where - overloadedMethod _ = variantDictContains - --- method VariantDict::end --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TVariant --- throws : False --- Skip return : False - -foreign import ccall "g_variant_dict_end" g_variant_dict_end :: - Ptr VariantDict -> -- _obj : TInterface "GLib" "VariantDict" - IO (Ptr GVariant) - - -variantDictEnd :: - (MonadIO m) => - VariantDict -- _obj - -> m GVariant -- result -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' - -data VariantDictEndMethodInfo -instance (signature ~ (m GVariant), MonadIO m) => MethodInfo VariantDictEndMethodInfo VariantDict signature where - overloadedMethod _ = variantDictEnd - --- method VariantDict::insert_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data VariantDictInsertValueMethodInfo -instance (signature ~ (T.Text -> GVariant -> m ()), MonadIO m) => MethodInfo VariantDictInsertValueMethodInfo VariantDict signature where - overloadedMethod _ = variantDictInsertValue - --- method VariantDict::lookup_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expected_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TVariant --- throws : False --- Skip return : False - -foreign import ccall "g_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) -- expectedType - -> m GVariant -- result -variantDictLookupValue _obj key expectedType = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - key' <- textToCString key - maybeExpectedType <- case expectedType of - Nothing -> return nullPtr - Just jExpectedType -> do - let jExpectedType' = unsafeManagedPtrGetPtr jExpectedType - return jExpectedType' - result <- g_variant_dict_lookup_value _obj' key' maybeExpectedType - checkUnexpectedReturnNULL "g_variant_dict_lookup_value" result - result' <- wrapGVariantPtr result - touchManagedPtr _obj - whenJust expectedType touchManagedPtr - freeMem key' - return result' - -data VariantDictLookupValueMethodInfo -instance (signature ~ (T.Text -> Maybe (VariantType) -> m GVariant), MonadIO m) => MethodInfo VariantDictLookupValueMethodInfo VariantDict signature where - overloadedMethod _ = variantDictLookupValue - --- method VariantDict::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "VariantDict") --- throws : False --- Skip return : False - -foreign import ccall "g_variant_dict_ref" g_variant_dict_ref :: - Ptr VariantDict -> -- _obj : TInterface "GLib" "VariantDict" - IO (Ptr VariantDict) - - -variantDictRef :: - (MonadIO m) => - VariantDict -- _obj - -> m VariantDict -- result -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' - -data VariantDictRefMethodInfo -instance (signature ~ (m VariantDict), MonadIO m) => MethodInfo VariantDictRefMethodInfo VariantDict signature where - overloadedMethod _ = variantDictRef - --- method VariantDict::remove --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data VariantDictRemoveMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m) => MethodInfo VariantDictRemoveMethodInfo VariantDict signature where - overloadedMethod _ = variantDictRemove - --- method VariantDict::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantDict", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -variantDictUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_variant_dict_unref _obj' - touchManagedPtr _obj - return () - -data VariantDictUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo VariantDictUnrefMethodInfo VariantDict signature where - overloadedMethod _ = variantDictUnref - -type family ResolveVariantDictMethod (t :: Symbol) (o :: *) :: * where - ResolveVariantDictMethod "clear" o = VariantDictClearMethodInfo - ResolveVariantDictMethod "contains" o = VariantDictContainsMethodInfo - ResolveVariantDictMethod "end" o = VariantDictEndMethodInfo - ResolveVariantDictMethod "insertValue" o = VariantDictInsertValueMethodInfo - ResolveVariantDictMethod "lookupValue" o = VariantDictLookupValueMethodInfo - ResolveVariantDictMethod "ref" o = VariantDictRefMethodInfo - ResolveVariantDictMethod "remove" o = VariantDictRemoveMethodInfo - ResolveVariantDictMethod "unref" o = VariantDictUnrefMethodInfo - ResolveVariantDictMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveVariantDictMethod t VariantDict, MethodInfo info VariantDict p) => IsLabelProxy t (VariantDict -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveVariantDictMethod t VariantDict, MethodInfo info VariantDict p) => IsLabel t (VariantDict -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,19 +0,0 @@ -module GI.GLib.Structs.VariantDict where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype VariantDict = VariantDict (ForeignPtr VariantDict) -instance BoxedObject VariantDict where -data VariantDictClearMethodInfo -data VariantDictContainsMethodInfo -data VariantDictEndMethodInfo -data VariantDictInsertValueMethodInfo -data VariantDictLookupValueMethodInfo -data VariantDictRefMethodInfo -data VariantDictRemoveMethodInfo -data VariantDictUnrefMethodInfo 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,1180 +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 --- ** variantTypeChecked_ - variantTypeChecked_ , - - --- ** variantTypeCopy - VariantTypeCopyMethodInfo , - variantTypeCopy , - - --- ** variantTypeDupString - VariantTypeDupStringMethodInfo , - variantTypeDupString , - - --- ** variantTypeElement - VariantTypeElementMethodInfo , - variantTypeElement , - - --- ** variantTypeEqual - VariantTypeEqualMethodInfo , - variantTypeEqual , - - --- ** variantTypeFirst - VariantTypeFirstMethodInfo , - variantTypeFirst , - - --- ** variantTypeFree - VariantTypeFreeMethodInfo , - variantTypeFree , - - --- ** variantTypeGetStringLength - VariantTypeGetStringLengthMethodInfo , - variantTypeGetStringLength , - - --- ** variantTypeHash - VariantTypeHashMethodInfo , - variantTypeHash , - - --- ** variantTypeIsArray - VariantTypeIsArrayMethodInfo , - variantTypeIsArray , - - --- ** variantTypeIsBasic - VariantTypeIsBasicMethodInfo , - variantTypeIsBasic , - - --- ** variantTypeIsContainer - VariantTypeIsContainerMethodInfo , - variantTypeIsContainer , - - --- ** variantTypeIsDefinite - VariantTypeIsDefiniteMethodInfo , - variantTypeIsDefinite , - - --- ** variantTypeIsDictEntry - VariantTypeIsDictEntryMethodInfo , - variantTypeIsDictEntry , - - --- ** variantTypeIsMaybe - VariantTypeIsMaybeMethodInfo , - variantTypeIsMaybe , - - --- ** variantTypeIsSubtypeOf - VariantTypeIsSubtypeOfMethodInfo , - variantTypeIsSubtypeOf , - - --- ** variantTypeIsTuple - VariantTypeIsTupleMethodInfo , - variantTypeIsTuple , - - --- ** variantTypeIsVariant - VariantTypeIsVariantMethodInfo , - variantTypeIsVariant , - - --- ** variantTypeKey - VariantTypeKeyMethodInfo , - variantTypeKey , - - --- ** variantTypeNItems - VariantTypeNItemsMethodInfo , - variantTypeNItems , - - --- ** variantTypeNew - variantTypeNew , - - --- ** variantTypeNewArray - variantTypeNewArray , - - --- ** variantTypeNewDictEntry - variantTypeNewDictEntry , - - --- ** variantTypeNewMaybe - variantTypeNewMaybe , - - --- ** variantTypeNewTuple - variantTypeNewTuple , - - --- ** variantTypeNext - VariantTypeNextMethodInfo , - variantTypeNext , - - --- ** variantTypeStringIsValid - variantTypeStringIsValid , - - --- ** variantTypeStringScan - variantTypeStringScan , - - --- ** variantTypeValue - VariantTypeValueMethodInfo , - variantTypeValue , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.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 - - -type instance AttributeList VariantType = VariantTypeAttributeList -type VariantTypeAttributeList = ('[ ] :: [(Symbol, *)]) - --- method VariantType::new --- method type : Constructor --- Args : [Arg {argCName = "type_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "VariantType") --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_new" g_variant_type_new :: - CString -> -- type_string : TBasicType TUTF8 - IO (Ptr VariantType) - - -variantTypeNew :: - (MonadIO m) => - T.Text -- typeString - -> m VariantType -- result -variantTypeNew typeString = liftIO $ do - typeString' <- textToCString typeString - result <- g_variant_type_new typeString' - checkUnexpectedReturnNULL "g_variant_type_new" result - result' <- (wrapBoxed VariantType) result - freeMem typeString' - return result' - --- method VariantType::new_array --- method type : Constructor --- Args : [Arg {argCName = "element", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "VariantType") --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "key", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "VariantType") --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "element", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "VariantType") --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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 {argCName = "items", argType = TCArray False (-1) 1 (TInterface "GLib" "VariantType"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (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 TInt - IO (Ptr VariantType) - - -variantTypeNewTuple :: - (MonadIO m) => - [VariantType] -- items - -> m VariantType -- result -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 {argCName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "VariantType") --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_copy" g_variant_type_copy :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO (Ptr VariantType) - - -variantTypeCopy :: - (MonadIO m) => - VariantType -- _obj - -> m VariantType -- result -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' - -data VariantTypeCopyMethodInfo -instance (signature ~ (m VariantType), MonadIO m) => MethodInfo VariantTypeCopyMethodInfo VariantType signature where - overloadedMethod _ = variantTypeCopy - --- method VariantType::dup_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data VariantTypeDupStringMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo VariantTypeDupStringMethodInfo VariantType signature where - overloadedMethod _ = variantTypeDupString - --- method VariantType::element --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "VariantType") --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_element" g_variant_type_element :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO (Ptr VariantType) - - -variantTypeElement :: - (MonadIO m) => - VariantType -- _obj - -> m VariantType -- result -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' - -data VariantTypeElementMethodInfo -instance (signature ~ (m VariantType), MonadIO m) => MethodInfo VariantTypeElementMethodInfo VariantType signature where - overloadedMethod _ = variantTypeElement - --- method VariantType::equal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type2", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data VariantTypeEqualMethodInfo -instance (signature ~ (VariantType -> m Bool), MonadIO m) => MethodInfo VariantTypeEqualMethodInfo VariantType signature where - overloadedMethod _ = variantTypeEqual - --- method VariantType::first --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "VariantType") --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_first" g_variant_type_first :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO (Ptr VariantType) - - -variantTypeFirst :: - (MonadIO m) => - VariantType -- _obj - -> m VariantType -- result -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' - -data VariantTypeFirstMethodInfo -instance (signature ~ (m VariantType), MonadIO m) => MethodInfo VariantTypeFirstMethodInfo VariantType signature where - overloadedMethod _ = variantTypeFirst - --- method VariantType::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -variantTypeFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_variant_type_free _obj' - touchManagedPtr _obj - return () - -data VariantTypeFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo VariantTypeFreeMethodInfo VariantType signature where - overloadedMethod _ = variantTypeFree - --- method VariantType::get_string_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -variantTypeGetStringLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_type_get_string_length _obj' - touchManagedPtr _obj - return result - -data VariantTypeGetStringLengthMethodInfo -instance (signature ~ (m Word64), MonadIO m) => MethodInfo VariantTypeGetStringLengthMethodInfo VariantType signature where - overloadedMethod _ = variantTypeGetStringLength - --- method VariantType::hash --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_hash" g_variant_type_hash :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO Word32 - - -variantTypeHash :: - (MonadIO m) => - VariantType -- _obj - -> m Word32 -- result -variantTypeHash _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_type_hash _obj' - touchManagedPtr _obj - return result - -data VariantTypeHashMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo VariantTypeHashMethodInfo VariantType signature where - overloadedMethod _ = variantTypeHash - --- method VariantType::is_array --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_is_array" g_variant_type_is_array :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO CInt - - -variantTypeIsArray :: - (MonadIO m) => - VariantType -- _obj - -> m Bool -- result -variantTypeIsArray _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_type_is_array _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data VariantTypeIsArrayMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo VariantTypeIsArrayMethodInfo VariantType signature where - overloadedMethod _ = variantTypeIsArray - --- method VariantType::is_basic --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_is_basic" g_variant_type_is_basic :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO CInt - - -variantTypeIsBasic :: - (MonadIO m) => - VariantType -- _obj - -> m Bool -- result -variantTypeIsBasic _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_type_is_basic _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data VariantTypeIsBasicMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo VariantTypeIsBasicMethodInfo VariantType signature where - overloadedMethod _ = variantTypeIsBasic - --- method VariantType::is_container --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_is_container" g_variant_type_is_container :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO CInt - - -variantTypeIsContainer :: - (MonadIO m) => - VariantType -- _obj - -> m Bool -- result -variantTypeIsContainer _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_type_is_container _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data VariantTypeIsContainerMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo VariantTypeIsContainerMethodInfo VariantType signature where - overloadedMethod _ = variantTypeIsContainer - --- method VariantType::is_definite --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_is_definite" g_variant_type_is_definite :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO CInt - - -variantTypeIsDefinite :: - (MonadIO m) => - VariantType -- _obj - -> m Bool -- result -variantTypeIsDefinite _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_type_is_definite _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data VariantTypeIsDefiniteMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo VariantTypeIsDefiniteMethodInfo VariantType signature where - overloadedMethod _ = variantTypeIsDefinite - --- method VariantType::is_dict_entry --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -variantTypeIsDictEntry _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_type_is_dict_entry _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data VariantTypeIsDictEntryMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo VariantTypeIsDictEntryMethodInfo VariantType signature where - overloadedMethod _ = variantTypeIsDictEntry - --- method VariantType::is_maybe --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_is_maybe" g_variant_type_is_maybe :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO CInt - - -variantTypeIsMaybe :: - (MonadIO m) => - VariantType -- _obj - -> m Bool -- result -variantTypeIsMaybe _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_type_is_maybe _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data VariantTypeIsMaybeMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo VariantTypeIsMaybeMethodInfo VariantType signature where - overloadedMethod _ = variantTypeIsMaybe - --- method VariantType::is_subtype_of --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "supertype", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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 -- result -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' - -data VariantTypeIsSubtypeOfMethodInfo -instance (signature ~ (VariantType -> m Bool), MonadIO m) => MethodInfo VariantTypeIsSubtypeOfMethodInfo VariantType signature where - overloadedMethod _ = variantTypeIsSubtypeOf - --- method VariantType::is_tuple --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_is_tuple" g_variant_type_is_tuple :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO CInt - - -variantTypeIsTuple :: - (MonadIO m) => - VariantType -- _obj - -> m Bool -- result -variantTypeIsTuple _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_type_is_tuple _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data VariantTypeIsTupleMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo VariantTypeIsTupleMethodInfo VariantType signature where - overloadedMethod _ = variantTypeIsTuple - --- method VariantType::is_variant --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_is_variant" g_variant_type_is_variant :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO CInt - - -variantTypeIsVariant :: - (MonadIO m) => - VariantType -- _obj - -> m Bool -- result -variantTypeIsVariant _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_type_is_variant _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data VariantTypeIsVariantMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo VariantTypeIsVariantMethodInfo VariantType signature where - overloadedMethod _ = variantTypeIsVariant - --- method VariantType::key --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "VariantType") --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_key" g_variant_type_key :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO (Ptr VariantType) - - -variantTypeKey :: - (MonadIO m) => - VariantType -- _obj - -> m VariantType -- result -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' - -data VariantTypeKeyMethodInfo -instance (signature ~ (m VariantType), MonadIO m) => MethodInfo VariantTypeKeyMethodInfo VariantType signature where - overloadedMethod _ = variantTypeKey - --- method VariantType::n_items --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_n_items" g_variant_type_n_items :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO Word64 - - -variantTypeNItems :: - (MonadIO m) => - VariantType -- _obj - -> m Word64 -- result -variantTypeNItems _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_variant_type_n_items _obj' - touchManagedPtr _obj - return result - -data VariantTypeNItemsMethodInfo -instance (signature ~ (m Word64), MonadIO m) => MethodInfo VariantTypeNItemsMethodInfo VariantType signature where - overloadedMethod _ = variantTypeNItems - --- method VariantType::next --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "VariantType") --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_next" g_variant_type_next :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO (Ptr VariantType) - - -variantTypeNext :: - (MonadIO m) => - VariantType -- _obj - -> m VariantType -- result -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' - -data VariantTypeNextMethodInfo -instance (signature ~ (m VariantType), MonadIO m) => MethodInfo VariantTypeNextMethodInfo VariantType signature where - overloadedMethod _ = variantTypeNext - --- method VariantType::value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "VariantType") --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_value" g_variant_type_value :: - Ptr VariantType -> -- _obj : TInterface "GLib" "VariantType" - IO (Ptr VariantType) - - -variantTypeValue :: - (MonadIO m) => - VariantType -- _obj - -> m VariantType -- result -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' - -data VariantTypeValueMethodInfo -instance (signature ~ (m VariantType), MonadIO m) => MethodInfo VariantTypeValueMethodInfo VariantType signature where - overloadedMethod _ = variantTypeValue - --- method VariantType::checked_ --- method type : MemberFunction --- Args : [Arg {argCName = "arg0", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "VariantType") --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_checked_" g_variant_type_checked_ :: - CString -> -- arg0 : TBasicType TUTF8 - IO (Ptr VariantType) - - -variantTypeChecked_ :: - (MonadIO m) => - T.Text -- arg0 - -> m VariantType -- result -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' - --- method VariantType::string_is_valid --- method type : MemberFunction --- Args : [Arg {argCName = "type_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_variant_type_string_is_valid" g_variant_type_string_is_valid :: - CString -> -- type_string : TBasicType TUTF8 - IO CInt - - -variantTypeStringIsValid :: - (MonadIO m) => - T.Text -- typeString - -> m Bool -- result -variantTypeStringIsValid typeString = liftIO $ do - typeString' <- textToCString typeString - result <- g_variant_type_string_is_valid typeString' - let result' = (/= 0) result - freeMem typeString' - return result' - --- method VariantType::string_scan --- method type : MemberFunction --- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "endptr", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_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) -- result -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'') - -type family ResolveVariantTypeMethod (t :: Symbol) (o :: *) :: * where - ResolveVariantTypeMethod "copy" o = VariantTypeCopyMethodInfo - ResolveVariantTypeMethod "dupString" o = VariantTypeDupStringMethodInfo - ResolveVariantTypeMethod "element" o = VariantTypeElementMethodInfo - ResolveVariantTypeMethod "equal" o = VariantTypeEqualMethodInfo - ResolveVariantTypeMethod "first" o = VariantTypeFirstMethodInfo - ResolveVariantTypeMethod "free" o = VariantTypeFreeMethodInfo - ResolveVariantTypeMethod "hash" o = VariantTypeHashMethodInfo - ResolveVariantTypeMethod "isArray" o = VariantTypeIsArrayMethodInfo - ResolveVariantTypeMethod "isBasic" o = VariantTypeIsBasicMethodInfo - ResolveVariantTypeMethod "isContainer" o = VariantTypeIsContainerMethodInfo - ResolveVariantTypeMethod "isDefinite" o = VariantTypeIsDefiniteMethodInfo - ResolveVariantTypeMethod "isDictEntry" o = VariantTypeIsDictEntryMethodInfo - ResolveVariantTypeMethod "isMaybe" o = VariantTypeIsMaybeMethodInfo - ResolveVariantTypeMethod "isSubtypeOf" o = VariantTypeIsSubtypeOfMethodInfo - ResolveVariantTypeMethod "isTuple" o = VariantTypeIsTupleMethodInfo - ResolveVariantTypeMethod "isVariant" o = VariantTypeIsVariantMethodInfo - ResolveVariantTypeMethod "key" o = VariantTypeKeyMethodInfo - ResolveVariantTypeMethod "nItems" o = VariantTypeNItemsMethodInfo - ResolveVariantTypeMethod "next" o = VariantTypeNextMethodInfo - ResolveVariantTypeMethod "value" o = VariantTypeValueMethodInfo - ResolveVariantTypeMethod "getStringLength" o = VariantTypeGetStringLengthMethodInfo - ResolveVariantTypeMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveVariantTypeMethod t VariantType, MethodInfo info VariantType p) => IsLabelProxy t (VariantType -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveVariantTypeMethod t VariantType, MethodInfo info VariantType p) => IsLabel t (VariantType -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,32 +0,0 @@ -module GI.GLib.Structs.VariantType where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype VariantType = VariantType (ForeignPtr VariantType) -instance BoxedObject VariantType where -data VariantTypeCopyMethodInfo -data VariantTypeDupStringMethodInfo -data VariantTypeElementMethodInfo -data VariantTypeEqualMethodInfo -data VariantTypeFirstMethodInfo -data VariantTypeFreeMethodInfo -data VariantTypeGetStringLengthMethodInfo -data VariantTypeHashMethodInfo -data VariantTypeIsArrayMethodInfo -data VariantTypeIsBasicMethodInfo -data VariantTypeIsContainerMethodInfo -data VariantTypeIsDefiniteMethodInfo -data VariantTypeIsDictEntryMethodInfo -data VariantTypeIsMaybeMethodInfo -data VariantTypeIsSubtypeOfMethodInfo -data VariantTypeIsTupleMethodInfo -data VariantTypeIsVariantMethodInfo -data VariantTypeKeyMethodInfo -data VariantTypeNItemsMethodInfo -data VariantTypeNextMethodInfo -data VariantTypeValueMethodInfo 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,33 +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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.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,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) --} - -module GI.GLib.Unions.DoubleIEEE754 - ( - --- * Exported types - DoubleIEEE754(..) , - newZeroDoubleIEEE754 , - noDoubleIEEE754 , - - - -- * Properties --- ** VDouble - doubleIEEE754ReadVDouble , - doubleIEEE754VDouble , - doubleIEEE754WriteVDouble , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype DoubleIEEE754 = DoubleIEEE754 (ForeignPtr DoubleIEEE754) -instance WrappedPtr DoubleIEEE754 where - wrappedPtrCalloc = callocBytes 8 - wrappedPtrCopy = copyPtr 8 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `DoubleIEEE754` struct initialized to zero. -newZeroDoubleIEEE754 :: MonadIO m => m DoubleIEEE754 -newZeroDoubleIEEE754 = liftIO $ wrappedPtrCalloc >>= wrapPtr DoubleIEEE754 - -instance tag ~ 'AttrSet => Constructible DoubleIEEE754 tag where - new _ attrs = do - o <- newZeroDoubleIEEE754 - GI.Attributes.set o attrs - return o - - -noDoubleIEEE754 :: Maybe DoubleIEEE754 -noDoubleIEEE754 = Nothing - -doubleIEEE754ReadVDouble :: MonadIO m => DoubleIEEE754 -> m Double -doubleIEEE754ReadVDouble s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CDouble - let val' = realToFrac val - return val' - -doubleIEEE754WriteVDouble :: MonadIO m => DoubleIEEE754 -> Double -> m () -doubleIEEE754WriteVDouble s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 0) (val' :: CDouble) - -data DoubleIEEE754VDoubleFieldInfo -instance AttrInfo DoubleIEEE754VDoubleFieldInfo where - type AttrAllowedOps DoubleIEEE754VDoubleFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DoubleIEEE754VDoubleFieldInfo = (~) Double - type AttrBaseTypeConstraint DoubleIEEE754VDoubleFieldInfo = (~) DoubleIEEE754 - type AttrGetType DoubleIEEE754VDoubleFieldInfo = Double - type AttrLabel DoubleIEEE754VDoubleFieldInfo = "v_double" - attrGet _ = doubleIEEE754ReadVDouble - attrSet _ = doubleIEEE754WriteVDouble - attrConstruct = undefined - attrClear _ = undefined - -doubleIEEE754VDouble :: AttrLabelProxy "vDouble" -doubleIEEE754VDouble = AttrLabelProxy - - - -type instance AttributeList DoubleIEEE754 = DoubleIEEE754AttributeList -type DoubleIEEE754AttributeList = ('[ '("vDouble", DoubleIEEE754VDoubleFieldInfo)] :: [(Symbol, *)]) - -type family ResolveDoubleIEEE754Method (t :: Symbol) (o :: *) :: * where - ResolveDoubleIEEE754Method l o = MethodResolutionFailed l o - -instance (info ~ ResolveDoubleIEEE754Method t DoubleIEEE754, MethodInfo info DoubleIEEE754 p) => IsLabelProxy t (DoubleIEEE754 -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDoubleIEEE754Method t DoubleIEEE754, MethodInfo info DoubleIEEE754 p) => IsLabel t (DoubleIEEE754 -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,11 +0,0 @@ -module GI.GLib.Unions.DoubleIEEE754 where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DoubleIEEE754 = DoubleIEEE754 (ForeignPtr DoubleIEEE754) -instance WrappedPtr DoubleIEEE754 where 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,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) --} - -module GI.GLib.Unions.FloatIEEE754 - ( - --- * Exported types - FloatIEEE754(..) , - newZeroFloatIEEE754 , - noFloatIEEE754 , - - - -- * Properties --- ** VFloat - floatIEEE754ReadVFloat , - floatIEEE754VFloat , - floatIEEE754WriteVFloat , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype FloatIEEE754 = FloatIEEE754 (ForeignPtr FloatIEEE754) -instance WrappedPtr FloatIEEE754 where - wrappedPtrCalloc = callocBytes 4 - wrappedPtrCopy = copyPtr 4 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `FloatIEEE754` struct initialized to zero. -newZeroFloatIEEE754 :: MonadIO m => m FloatIEEE754 -newZeroFloatIEEE754 = liftIO $ wrappedPtrCalloc >>= wrapPtr FloatIEEE754 - -instance tag ~ 'AttrSet => Constructible FloatIEEE754 tag where - new _ attrs = do - o <- newZeroFloatIEEE754 - GI.Attributes.set o attrs - return o - - -noFloatIEEE754 :: Maybe FloatIEEE754 -noFloatIEEE754 = Nothing - -floatIEEE754ReadVFloat :: MonadIO m => FloatIEEE754 -> m Float -floatIEEE754ReadVFloat s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CFloat - let val' = realToFrac val - return val' - -floatIEEE754WriteVFloat :: MonadIO m => FloatIEEE754 -> Float -> m () -floatIEEE754WriteVFloat s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 0) (val' :: CFloat) - -data FloatIEEE754VFloatFieldInfo -instance AttrInfo FloatIEEE754VFloatFieldInfo where - type AttrAllowedOps FloatIEEE754VFloatFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint FloatIEEE754VFloatFieldInfo = (~) Float - type AttrBaseTypeConstraint FloatIEEE754VFloatFieldInfo = (~) FloatIEEE754 - type AttrGetType FloatIEEE754VFloatFieldInfo = Float - type AttrLabel FloatIEEE754VFloatFieldInfo = "v_float" - attrGet _ = floatIEEE754ReadVFloat - attrSet _ = floatIEEE754WriteVFloat - attrConstruct = undefined - attrClear _ = undefined - -floatIEEE754VFloat :: AttrLabelProxy "vFloat" -floatIEEE754VFloat = AttrLabelProxy - - - -type instance AttributeList FloatIEEE754 = FloatIEEE754AttributeList -type FloatIEEE754AttributeList = ('[ '("vFloat", FloatIEEE754VFloatFieldInfo)] :: [(Symbol, *)]) - -type family ResolveFloatIEEE754Method (t :: Symbol) (o :: *) :: * where - ResolveFloatIEEE754Method l o = MethodResolutionFailed l o - -instance (info ~ ResolveFloatIEEE754Method t FloatIEEE754, MethodInfo info FloatIEEE754 p) => IsLabelProxy t (FloatIEEE754 -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFloatIEEE754Method t FloatIEEE754, MethodInfo info FloatIEEE754 p) => IsLabel t (FloatIEEE754 -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,11 +0,0 @@ -module GI.GLib.Unions.FloatIEEE754 where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FloatIEEE754 = FloatIEEE754 (ForeignPtr FloatIEEE754) -instance WrappedPtr FloatIEEE754 where 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,234 +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(..) , - newZeroMutex , - noMutex , - - - -- * Methods --- ** mutexClear - MutexClearMethodInfo , - mutexClear , - - --- ** mutexInit - MutexInitMethodInfo , - mutexInit , - - --- ** mutexLock - MutexLockMethodInfo , - mutexLock , - - --- ** mutexTrylock - MutexTrylockMethodInfo , - mutexTrylock , - - --- ** mutexUnlock - MutexUnlockMethodInfo , - mutexUnlock , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype Mutex = Mutex (ForeignPtr Mutex) -instance WrappedPtr Mutex where - wrappedPtrCalloc = callocBytes 8 - wrappedPtrCopy = copyPtr 8 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `Mutex` struct initialized to zero. -newZeroMutex :: MonadIO m => m Mutex -newZeroMutex = liftIO $ wrappedPtrCalloc >>= wrapPtr Mutex - -instance tag ~ 'AttrSet => Constructible Mutex tag where - new _ attrs = do - o <- newZeroMutex - GI.Attributes.set o attrs - return o - - -noMutex :: Maybe Mutex -noMutex = Nothing - - -type instance AttributeList Mutex = MutexAttributeList -type MutexAttributeList = ('[ ] :: [(Symbol, *)]) - --- method Mutex::clear --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -mutexClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_mutex_clear _obj' - touchManagedPtr _obj - return () - -data MutexClearMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo MutexClearMethodInfo Mutex signature where - overloadedMethod _ = mutexClear - --- method Mutex::init --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -mutexInit _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_mutex_init _obj' - touchManagedPtr _obj - return () - -data MutexInitMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo MutexInitMethodInfo Mutex signature where - overloadedMethod _ = mutexInit - --- method Mutex::lock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -mutexLock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_mutex_lock _obj' - touchManagedPtr _obj - return () - -data MutexLockMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo MutexLockMethodInfo Mutex signature where - overloadedMethod _ = mutexLock - --- method Mutex::trylock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_mutex_trylock" g_mutex_trylock :: - Ptr Mutex -> -- _obj : TInterface "GLib" "Mutex" - IO CInt - - -mutexTrylock :: - (MonadIO m) => - Mutex -- _obj - -> m Bool -- result -mutexTrylock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_mutex_trylock _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MutexTrylockMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo MutexTrylockMethodInfo Mutex signature where - overloadedMethod _ = mutexTrylock - --- method Mutex::unlock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "GLib" "Mutex", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -mutexUnlock _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_mutex_unlock _obj' - touchManagedPtr _obj - return () - -data MutexUnlockMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo MutexUnlockMethodInfo Mutex signature where - overloadedMethod _ = mutexUnlock - -type family ResolveMutexMethod (t :: Symbol) (o :: *) :: * where - ResolveMutexMethod "clear" o = MutexClearMethodInfo - ResolveMutexMethod "init" o = MutexInitMethodInfo - ResolveMutexMethod "lock" o = MutexLockMethodInfo - ResolveMutexMethod "trylock" o = MutexTrylockMethodInfo - ResolveMutexMethod "unlock" o = MutexUnlockMethodInfo - ResolveMutexMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMutexMethod t Mutex, MethodInfo info Mutex p) => IsLabelProxy t (Mutex -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMutexMethod t Mutex, MethodInfo info Mutex p) => IsLabel t (Mutex -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,16 +0,0 @@ -module GI.GLib.Unions.Mutex where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Mutex = Mutex (ForeignPtr Mutex) -instance WrappedPtr Mutex where -data MutexClearMethodInfo -data MutexInitMethodInfo -data MutexLockMethodInfo -data MutexTrylockMethodInfo -data MutexUnlockMethodInfo 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,471 +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(..) , - newZeroTokenValue , - noTokenValue , - - - -- * Properties --- ** VBinary - tokenValueReadVBinary , - tokenValueVBinary , - tokenValueWriteVBinary , - - --- ** VChar - tokenValueReadVChar , - tokenValueVChar , - tokenValueWriteVChar , - - --- ** VComment - tokenValueClearVComment , - tokenValueReadVComment , - tokenValueVComment , - tokenValueWriteVComment , - - --- ** VError - tokenValueReadVError , - tokenValueVError , - tokenValueWriteVError , - - --- ** VFloat - tokenValueReadVFloat , - tokenValueVFloat , - tokenValueWriteVFloat , - - --- ** VHex - tokenValueReadVHex , - tokenValueVHex , - tokenValueWriteVHex , - - --- ** VIdentifier - tokenValueClearVIdentifier , - tokenValueReadVIdentifier , - tokenValueVIdentifier , - tokenValueWriteVIdentifier , - - --- ** VInt - tokenValueReadVInt , - tokenValueVInt , - tokenValueWriteVInt , - - --- ** VInt64 - tokenValueReadVInt64 , - tokenValueVInt64 , - tokenValueWriteVInt64 , - - --- ** VOctal - tokenValueReadVOctal , - tokenValueVOctal , - tokenValueWriteVOctal , - - --- ** VString - tokenValueClearVString , - tokenValueReadVString , - tokenValueVString , - tokenValueWriteVString , - - --- ** VSymbol - tokenValueClearVSymbol , - tokenValueReadVSymbol , - tokenValueVSymbol , - tokenValueWriteVSymbol , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.GLib.Types -import GI.GLib.Callbacks - -newtype TokenValue = TokenValue (ForeignPtr TokenValue) -instance WrappedPtr TokenValue where - wrappedPtrCalloc = callocBytes 8 - wrappedPtrCopy = copyPtr 8 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `TokenValue` struct initialized to zero. -newZeroTokenValue :: MonadIO m => m TokenValue -newZeroTokenValue = liftIO $ wrappedPtrCalloc >>= wrapPtr TokenValue - -instance tag ~ 'AttrSet => Constructible TokenValue tag where - new _ attrs = do - o <- newZeroTokenValue - GI.Attributes.set o attrs - return o - - -noTokenValue :: Maybe TokenValue -noTokenValue = Nothing - -tokenValueReadVSymbol :: MonadIO m => TokenValue -> m (Ptr ()) -tokenValueReadVSymbol s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr ()) - return val - -tokenValueWriteVSymbol :: MonadIO m => TokenValue -> Ptr () -> m () -tokenValueWriteVSymbol s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr ()) - -tokenValueClearVSymbol :: MonadIO m => TokenValue -> m () -tokenValueClearVSymbol s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr ()) - -data TokenValueVSymbolFieldInfo -instance AttrInfo TokenValueVSymbolFieldInfo where - type AttrAllowedOps TokenValueVSymbolFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TokenValueVSymbolFieldInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint TokenValueVSymbolFieldInfo = (~) TokenValue - type AttrGetType TokenValueVSymbolFieldInfo = Ptr () - type AttrLabel TokenValueVSymbolFieldInfo = "v_symbol" - attrGet _ = tokenValueReadVSymbol - attrSet _ = tokenValueWriteVSymbol - attrConstruct = undefined - attrClear _ = tokenValueClearVSymbol - -tokenValueVSymbol :: AttrLabelProxy "vSymbol" -tokenValueVSymbol = AttrLabelProxy - - -tokenValueReadVIdentifier :: MonadIO m => TokenValue -> m (Maybe T.Text) -tokenValueReadVIdentifier s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -tokenValueWriteVIdentifier :: MonadIO m => TokenValue -> CString -> m () -tokenValueWriteVIdentifier s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: CString) - -tokenValueClearVIdentifier :: MonadIO m => TokenValue -> m () -tokenValueClearVIdentifier s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: CString) - -data TokenValueVIdentifierFieldInfo -instance AttrInfo TokenValueVIdentifierFieldInfo where - type AttrAllowedOps TokenValueVIdentifierFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TokenValueVIdentifierFieldInfo = (~) CString - type AttrBaseTypeConstraint TokenValueVIdentifierFieldInfo = (~) TokenValue - type AttrGetType TokenValueVIdentifierFieldInfo = Maybe T.Text - type AttrLabel TokenValueVIdentifierFieldInfo = "v_identifier" - attrGet _ = tokenValueReadVIdentifier - attrSet _ = tokenValueWriteVIdentifier - attrConstruct = undefined - attrClear _ = tokenValueClearVIdentifier - -tokenValueVIdentifier :: AttrLabelProxy "vIdentifier" -tokenValueVIdentifier = AttrLabelProxy - - -tokenValueReadVBinary :: MonadIO m => TokenValue -> m CULong -tokenValueReadVBinary s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CULong - return val - -tokenValueWriteVBinary :: MonadIO m => TokenValue -> CULong -> m () -tokenValueWriteVBinary s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: CULong) - -data TokenValueVBinaryFieldInfo -instance AttrInfo TokenValueVBinaryFieldInfo where - type AttrAllowedOps TokenValueVBinaryFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TokenValueVBinaryFieldInfo = (~) CULong - type AttrBaseTypeConstraint TokenValueVBinaryFieldInfo = (~) TokenValue - type AttrGetType TokenValueVBinaryFieldInfo = CULong - type AttrLabel TokenValueVBinaryFieldInfo = "v_binary" - attrGet _ = tokenValueReadVBinary - attrSet _ = tokenValueWriteVBinary - attrConstruct = undefined - attrClear _ = undefined - -tokenValueVBinary :: AttrLabelProxy "vBinary" -tokenValueVBinary = AttrLabelProxy - - -tokenValueReadVOctal :: MonadIO m => TokenValue -> m CULong -tokenValueReadVOctal s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CULong - return val - -tokenValueWriteVOctal :: MonadIO m => TokenValue -> CULong -> m () -tokenValueWriteVOctal s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: CULong) - -data TokenValueVOctalFieldInfo -instance AttrInfo TokenValueVOctalFieldInfo where - type AttrAllowedOps TokenValueVOctalFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TokenValueVOctalFieldInfo = (~) CULong - type AttrBaseTypeConstraint TokenValueVOctalFieldInfo = (~) TokenValue - type AttrGetType TokenValueVOctalFieldInfo = CULong - type AttrLabel TokenValueVOctalFieldInfo = "v_octal" - attrGet _ = tokenValueReadVOctal - attrSet _ = tokenValueWriteVOctal - attrConstruct = undefined - attrClear _ = undefined - -tokenValueVOctal :: AttrLabelProxy "vOctal" -tokenValueVOctal = AttrLabelProxy - - -tokenValueReadVInt :: MonadIO m => TokenValue -> m CULong -tokenValueReadVInt s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CULong - return val - -tokenValueWriteVInt :: MonadIO m => TokenValue -> CULong -> m () -tokenValueWriteVInt s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: CULong) - -data TokenValueVIntFieldInfo -instance AttrInfo TokenValueVIntFieldInfo where - type AttrAllowedOps TokenValueVIntFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TokenValueVIntFieldInfo = (~) CULong - type AttrBaseTypeConstraint TokenValueVIntFieldInfo = (~) TokenValue - type AttrGetType TokenValueVIntFieldInfo = CULong - type AttrLabel TokenValueVIntFieldInfo = "v_int" - attrGet _ = tokenValueReadVInt - attrSet _ = tokenValueWriteVInt - attrConstruct = undefined - attrClear _ = undefined - -tokenValueVInt :: AttrLabelProxy "vInt" -tokenValueVInt = AttrLabelProxy - - -tokenValueReadVInt64 :: MonadIO m => TokenValue -> m Word64 -tokenValueReadVInt64 s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word64 - return val - -tokenValueWriteVInt64 :: MonadIO m => TokenValue -> Word64 -> m () -tokenValueWriteVInt64 s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Word64) - -data TokenValueVInt64FieldInfo -instance AttrInfo TokenValueVInt64FieldInfo where - type AttrAllowedOps TokenValueVInt64FieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TokenValueVInt64FieldInfo = (~) Word64 - type AttrBaseTypeConstraint TokenValueVInt64FieldInfo = (~) TokenValue - type AttrGetType TokenValueVInt64FieldInfo = Word64 - type AttrLabel TokenValueVInt64FieldInfo = "v_int64" - attrGet _ = tokenValueReadVInt64 - attrSet _ = tokenValueWriteVInt64 - attrConstruct = undefined - attrClear _ = undefined - -tokenValueVInt64 :: AttrLabelProxy "vInt64" -tokenValueVInt64 = AttrLabelProxy - - -tokenValueReadVFloat :: MonadIO m => TokenValue -> m Double -tokenValueReadVFloat s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CDouble - let val' = realToFrac val - return val' - -tokenValueWriteVFloat :: MonadIO m => TokenValue -> Double -> m () -tokenValueWriteVFloat s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 0) (val' :: CDouble) - -data TokenValueVFloatFieldInfo -instance AttrInfo TokenValueVFloatFieldInfo where - type AttrAllowedOps TokenValueVFloatFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TokenValueVFloatFieldInfo = (~) Double - type AttrBaseTypeConstraint TokenValueVFloatFieldInfo = (~) TokenValue - type AttrGetType TokenValueVFloatFieldInfo = Double - type AttrLabel TokenValueVFloatFieldInfo = "v_float" - attrGet _ = tokenValueReadVFloat - attrSet _ = tokenValueWriteVFloat - attrConstruct = undefined - attrClear _ = undefined - -tokenValueVFloat :: AttrLabelProxy "vFloat" -tokenValueVFloat = AttrLabelProxy - - -tokenValueReadVHex :: MonadIO m => TokenValue -> m CULong -tokenValueReadVHex s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CULong - return val - -tokenValueWriteVHex :: MonadIO m => TokenValue -> CULong -> m () -tokenValueWriteVHex s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: CULong) - -data TokenValueVHexFieldInfo -instance AttrInfo TokenValueVHexFieldInfo where - type AttrAllowedOps TokenValueVHexFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TokenValueVHexFieldInfo = (~) CULong - type AttrBaseTypeConstraint TokenValueVHexFieldInfo = (~) TokenValue - type AttrGetType TokenValueVHexFieldInfo = CULong - type AttrLabel TokenValueVHexFieldInfo = "v_hex" - attrGet _ = tokenValueReadVHex - attrSet _ = tokenValueWriteVHex - attrConstruct = undefined - attrClear _ = undefined - -tokenValueVHex :: AttrLabelProxy "vHex" -tokenValueVHex = AttrLabelProxy - - -tokenValueReadVString :: MonadIO m => TokenValue -> m (Maybe T.Text) -tokenValueReadVString s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -tokenValueWriteVString :: MonadIO m => TokenValue -> CString -> m () -tokenValueWriteVString s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: CString) - -tokenValueClearVString :: MonadIO m => TokenValue -> m () -tokenValueClearVString s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: CString) - -data TokenValueVStringFieldInfo -instance AttrInfo TokenValueVStringFieldInfo where - type AttrAllowedOps TokenValueVStringFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TokenValueVStringFieldInfo = (~) CString - type AttrBaseTypeConstraint TokenValueVStringFieldInfo = (~) TokenValue - type AttrGetType TokenValueVStringFieldInfo = Maybe T.Text - type AttrLabel TokenValueVStringFieldInfo = "v_string" - attrGet _ = tokenValueReadVString - attrSet _ = tokenValueWriteVString - attrConstruct = undefined - attrClear _ = tokenValueClearVString - -tokenValueVString :: AttrLabelProxy "vString" -tokenValueVString = AttrLabelProxy - - -tokenValueReadVComment :: MonadIO m => TokenValue -> m (Maybe T.Text) -tokenValueReadVComment s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -tokenValueWriteVComment :: MonadIO m => TokenValue -> CString -> m () -tokenValueWriteVComment s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: CString) - -tokenValueClearVComment :: MonadIO m => TokenValue -> m () -tokenValueClearVComment s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: CString) - -data TokenValueVCommentFieldInfo -instance AttrInfo TokenValueVCommentFieldInfo where - type AttrAllowedOps TokenValueVCommentFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TokenValueVCommentFieldInfo = (~) CString - type AttrBaseTypeConstraint TokenValueVCommentFieldInfo = (~) TokenValue - type AttrGetType TokenValueVCommentFieldInfo = Maybe T.Text - type AttrLabel TokenValueVCommentFieldInfo = "v_comment" - attrGet _ = tokenValueReadVComment - attrSet _ = tokenValueWriteVComment - attrConstruct = undefined - attrClear _ = tokenValueClearVComment - -tokenValueVComment :: AttrLabelProxy "vComment" -tokenValueVComment = AttrLabelProxy - - -tokenValueReadVChar :: MonadIO m => TokenValue -> m Word8 -tokenValueReadVChar s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word8 - return val - -tokenValueWriteVChar :: MonadIO m => TokenValue -> Word8 -> m () -tokenValueWriteVChar s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Word8) - -data TokenValueVCharFieldInfo -instance AttrInfo TokenValueVCharFieldInfo where - type AttrAllowedOps TokenValueVCharFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TokenValueVCharFieldInfo = (~) Word8 - type AttrBaseTypeConstraint TokenValueVCharFieldInfo = (~) TokenValue - type AttrGetType TokenValueVCharFieldInfo = Word8 - type AttrLabel TokenValueVCharFieldInfo = "v_char" - attrGet _ = tokenValueReadVChar - attrSet _ = tokenValueWriteVChar - attrConstruct = undefined - attrClear _ = undefined - -tokenValueVChar :: AttrLabelProxy "vChar" -tokenValueVChar = AttrLabelProxy - - -tokenValueReadVError :: MonadIO m => TokenValue -> m Word32 -tokenValueReadVError s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word32 - return val - -tokenValueWriteVError :: MonadIO m => TokenValue -> Word32 -> m () -tokenValueWriteVError s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Word32) - -data TokenValueVErrorFieldInfo -instance AttrInfo TokenValueVErrorFieldInfo where - type AttrAllowedOps TokenValueVErrorFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TokenValueVErrorFieldInfo = (~) Word32 - type AttrBaseTypeConstraint TokenValueVErrorFieldInfo = (~) TokenValue - type AttrGetType TokenValueVErrorFieldInfo = Word32 - type AttrLabel TokenValueVErrorFieldInfo = "v_error" - attrGet _ = tokenValueReadVError - attrSet _ = tokenValueWriteVError - attrConstruct = undefined - attrClear _ = undefined - -tokenValueVError :: AttrLabelProxy "vError" -tokenValueVError = AttrLabelProxy - - - -type instance AttributeList TokenValue = TokenValueAttributeList -type TokenValueAttributeList = ('[ '("vSymbol", TokenValueVSymbolFieldInfo), '("vIdentifier", TokenValueVIdentifierFieldInfo), '("vBinary", TokenValueVBinaryFieldInfo), '("vOctal", TokenValueVOctalFieldInfo), '("vInt", TokenValueVIntFieldInfo), '("vInt64", TokenValueVInt64FieldInfo), '("vFloat", TokenValueVFloatFieldInfo), '("vHex", TokenValueVHexFieldInfo), '("vString", TokenValueVStringFieldInfo), '("vComment", TokenValueVCommentFieldInfo), '("vChar", TokenValueVCharFieldInfo), '("vError", TokenValueVErrorFieldInfo)] :: [(Symbol, *)]) - -type family ResolveTokenValueMethod (t :: Symbol) (o :: *) :: * where - ResolveTokenValueMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTokenValueMethod t TokenValue, MethodInfo info TokenValue p) => IsLabelProxy t (TokenValue -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTokenValueMethod t TokenValue, MethodInfo info TokenValue p) => IsLabel t (TokenValue -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,11 +0,0 @@ -module GI.GLib.Unions.TokenValue where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TokenValue = TokenValue (ForeignPtr TokenValue) -instance WrappedPtr TokenValue where diff --git a/GLib.overrides b/GLib.overrides new file mode 100644 --- /dev/null +++ b/GLib.overrides @@ -0,0 +1,31 @@ +namespace GLib + +# "terminator_pos" is not marked as out. +ignore IOChannel.read_line_string + +# The test_data argument is not marked as a closure. +ignore test_add_data_func_full + +# "items_read" and "items_written" are out parameters, but they are +# marked as in parameters the introspection data. +ignore utf16_to_ucs4 +ignore utf16_to_utf8 +ignore utf8_to_ucs4 +ignore utf8_to_ucs4_fast +ignore utf8_to_utf16 + +# "result" parameter is an array, but it is not marked as such. +ignore unichar_fully_decompose + +# The first argument is marked as g_unichar, but it is really an array +# of g_unichar. +ignore ucs4_to_utf16 +ignore ucs4_to_utf8 + +# "line_number" is not marked as out. +ignore MarkupParseContext.get_position + +# These require more complex logic. +ignore base64_decode_step +ignore base64_encode_step +ignore base64_encode_close diff --git a/Setup.hs b/Setup.hs --- a/Setup.hs +++ b/Setup.hs @@ -1,3 +1,12 @@ -#!/usr/bin/env runhaskell -import Distribution.Simple -main = defaultMain +{-# LANGUAGE OverloadedStrings #-} + +import Distribution.Simple (defaultMainWithHooks) +import Data.GI.CodeGen.CabalHooks (simpleHaskellGIHooks) + +main = defaultMainWithHooks (simpleHaskellGIHooks name version verbose + overridesFile outputDir) + where name = "GLib" + version = "2.0" + verbose = False + overridesFile = Just "GLib.overrides" + outputDir = Nothing diff --git a/gi-glib.cabal b/gi-glib.cabal --- a/gi-glib.cabal +++ b/gi-glib.cabal @@ -1,6 +1,5 @@ --- Autogenerated, do not edit. name: gi-glib -version: 0.2.46.15 +version: 2.0.1 synopsis: GLib bindings description: Bindings for GLib, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi @@ -9,95 +8,26 @@ author: Will Thompson, Iñaki García Etxebarria and Jonas Platte maintainer: Iñaki García Etxebarria (garetxe@gmail.com) category: Bindings -build-type: Simple -cabal-version: >=1.10 +build-type: Custom +cabal-version: >= 1.24 +extra-source-files: GLib.overrides + +custom-setup + setup-depends: base >= 4.7, + Cabal >= 1.24, + haskell-gi >= 0.15 + library default-language: Haskell2010 default-extensions: NoImplicitPrelude, ScopedTypeVariables, CPP, OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts other-extensions: PatternSynonyms ViewPatterns ghc-options: -fno-warn-unused-imports -fno-warn-warnings-deprecations - exposed-modules: GI.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.46 + + pkgconfig-depends: glib-2.0 build-depends: base >= 4.7 && <5, haskell-gi-base >= 0.15 && < 1, bytestring >= 0.10, containers >= 0.5, text >= 1.0, - transformers >= 0.3 + transformers >= 0.5