#define ENABLE_OVERLOADING \
(!defined(__HADDOCK_VERSION__))
module GI.GLib.Structs.StringChunk
(
StringChunk(..) ,
noStringChunk ,
#if ENABLE_OVERLOADING
StringChunkClearMethodInfo ,
#endif
stringChunkClear ,
#if ENABLE_OVERLOADING
StringChunkFreeMethodInfo ,
#endif
stringChunkFree ,
#if ENABLE_OVERLOADING
StringChunkInsertMethodInfo ,
#endif
stringChunkInsert ,
#if ENABLE_OVERLOADING
StringChunkInsertConstMethodInfo ,
#endif
stringChunkInsertConst ,
#if ENABLE_OVERLOADING
StringChunkInsertLenMethodInfo ,
#endif
stringChunkInsertLen ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
newtype StringChunk = StringChunk (ManagedPtr StringChunk)
instance WrappedPtr StringChunk where
wrappedPtrCalloc :: IO (Ptr StringChunk)
wrappedPtrCalloc = Ptr StringChunk -> IO (Ptr StringChunk)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr StringChunk
forall a. Ptr a
nullPtr
wrappedPtrCopy :: StringChunk -> IO StringChunk
wrappedPtrCopy = StringChunk -> IO StringChunk
forall (m :: * -> *) a. Monad m => a -> m a
return
wrappedPtrFree :: Maybe (FunPtr (Ptr StringChunk -> IO ()))
wrappedPtrFree = Maybe (FunPtr (Ptr StringChunk -> IO ()))
forall a. Maybe a
Nothing
noStringChunk :: Maybe StringChunk
noStringChunk :: Maybe StringChunk
noStringChunk = Maybe StringChunk
forall a. Maybe a
Nothing
#if ENABLE_OVERLOADING
instance O.HasAttributeList StringChunk
type instance O.AttributeList StringChunk = StringChunkAttributeList
type StringChunkAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "g_string_chunk_clear" g_string_chunk_clear ::
Ptr StringChunk ->
IO ()
stringChunkClear ::
(B.CallStack.HasCallStack, MonadIO m) =>
StringChunk
-> m ()
stringChunkClear :: StringChunk -> m ()
stringChunkClear chunk :: StringChunk
chunk = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr StringChunk
chunk' <- StringChunk -> IO (Ptr StringChunk)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr StringChunk
chunk
Ptr StringChunk -> IO ()
g_string_chunk_clear Ptr StringChunk
chunk'
StringChunk -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr StringChunk
chunk
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data StringChunkClearMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo StringChunkClearMethodInfo StringChunk signature where
overloadedMethod _ = stringChunkClear
#endif
foreign import ccall "g_string_chunk_free" g_string_chunk_free ::
Ptr StringChunk ->
IO ()
stringChunkFree ::
(B.CallStack.HasCallStack, MonadIO m) =>
StringChunk
-> m ()
stringChunkFree :: StringChunk -> m ()
stringChunkFree chunk :: StringChunk
chunk = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr StringChunk
chunk' <- StringChunk -> IO (Ptr StringChunk)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr StringChunk
chunk
Ptr StringChunk -> IO ()
g_string_chunk_free Ptr StringChunk
chunk'
StringChunk -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr StringChunk
chunk
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data StringChunkFreeMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo StringChunkFreeMethodInfo StringChunk signature where
overloadedMethod _ = stringChunkFree
#endif
foreign import ccall "g_string_chunk_insert" g_string_chunk_insert ::
Ptr StringChunk ->
CString ->
IO CString
stringChunkInsert ::
(B.CallStack.HasCallStack, MonadIO m) =>
StringChunk
-> T.Text
-> m T.Text
stringChunkInsert :: StringChunk -> Text -> m Text
stringChunkInsert chunk :: StringChunk
chunk string :: Text
string = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr StringChunk
chunk' <- StringChunk -> IO (Ptr StringChunk)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr StringChunk
chunk
CString
string' <- Text -> IO CString
textToCString Text
string
CString
result <- Ptr StringChunk -> CString -> IO CString
g_string_chunk_insert Ptr StringChunk
chunk' CString
string'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "stringChunkInsert" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
StringChunk -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr StringChunk
chunk
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
string'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if ENABLE_OVERLOADING
data StringChunkInsertMethodInfo
instance (signature ~ (T.Text -> m T.Text), MonadIO m) => O.MethodInfo StringChunkInsertMethodInfo StringChunk signature where
overloadedMethod _ = stringChunkInsert
#endif
foreign import ccall "g_string_chunk_insert_const" g_string_chunk_insert_const ::
Ptr StringChunk ->
CString ->
IO CString
stringChunkInsertConst ::
(B.CallStack.HasCallStack, MonadIO m) =>
StringChunk
-> T.Text
-> m T.Text
stringChunkInsertConst :: StringChunk -> Text -> m Text
stringChunkInsertConst chunk :: StringChunk
chunk string :: Text
string = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr StringChunk
chunk' <- StringChunk -> IO (Ptr StringChunk)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr StringChunk
chunk
CString
string' <- Text -> IO CString
textToCString Text
string
CString
result <- Ptr StringChunk -> CString -> IO CString
g_string_chunk_insert_const Ptr StringChunk
chunk' CString
string'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "stringChunkInsertConst" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
StringChunk -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr StringChunk
chunk
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
string'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if ENABLE_OVERLOADING
data StringChunkInsertConstMethodInfo
instance (signature ~ (T.Text -> m T.Text), MonadIO m) => O.MethodInfo StringChunkInsertConstMethodInfo StringChunk signature where
overloadedMethod _ = stringChunkInsertConst
#endif
foreign import ccall "g_string_chunk_insert_len" g_string_chunk_insert_len ::
Ptr StringChunk ->
CString ->
Int64 ->
IO CString
stringChunkInsertLen ::
(B.CallStack.HasCallStack, MonadIO m) =>
StringChunk
-> T.Text
-> Int64
-> m T.Text
stringChunkInsertLen :: StringChunk -> Text -> Int64 -> m Text
stringChunkInsertLen chunk :: StringChunk
chunk string :: Text
string len :: Int64
len = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr StringChunk
chunk' <- StringChunk -> IO (Ptr StringChunk)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr StringChunk
chunk
CString
string' <- Text -> IO CString
textToCString Text
string
CString
result <- Ptr StringChunk -> CString -> Int64 -> IO CString
g_string_chunk_insert_len Ptr StringChunk
chunk' CString
string' Int64
len
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "stringChunkInsertLen" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
StringChunk -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr StringChunk
chunk
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
string'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if ENABLE_OVERLOADING
data StringChunkInsertLenMethodInfo
instance (signature ~ (T.Text -> Int64 -> m T.Text), MonadIO m) => O.MethodInfo StringChunkInsertLenMethodInfo StringChunk signature where
overloadedMethod _ = stringChunkInsertLen
#endif
#if ENABLE_OVERLOADING
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 = O.MethodResolutionFailed l o
instance (info ~ ResolveStringChunkMethod t StringChunk, O.MethodInfo info StringChunk p) => O.IsLabelProxy t (StringChunk -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveStringChunkMethod t StringChunk, O.MethodInfo info StringChunk p) => O.IsLabel t (StringChunk -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#endif