{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Structs.BuildableParseContext
(
BuildableParseContext(..) ,
#if defined(ENABLE_OVERLOADING)
ResolveBuildableParseContextMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
BuildableParseContextGetElementMethodInfo,
#endif
buildableParseContextGetElement ,
#if defined(ENABLE_OVERLOADING)
BuildableParseContextGetElementStackMethodInfo,
#endif
buildableParseContextGetElementStack ,
#if defined(ENABLE_OVERLOADING)
BuildableParseContextGetPositionMethodInfo,
#endif
buildableParseContextGetPosition ,
#if defined(ENABLE_OVERLOADING)
BuildableParseContextPopMethodInfo ,
#endif
buildableParseContextPop ,
#if defined(ENABLE_OVERLOADING)
BuildableParseContextPushMethodInfo ,
#endif
buildableParseContextPush ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import {-# SOURCE #-} qualified GI.Gtk.Structs.BuildableParser as Gtk.BuildableParser
newtype BuildableParseContext = BuildableParseContext (SP.ManagedPtr BuildableParseContext)
deriving (BuildableParseContext -> BuildableParseContext -> Bool
(BuildableParseContext -> BuildableParseContext -> Bool)
-> (BuildableParseContext -> BuildableParseContext -> Bool)
-> Eq BuildableParseContext
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: BuildableParseContext -> BuildableParseContext -> Bool
== :: BuildableParseContext -> BuildableParseContext -> Bool
$c/= :: BuildableParseContext -> BuildableParseContext -> Bool
/= :: BuildableParseContext -> BuildableParseContext -> Bool
Eq)
instance SP.ManagedPtrNewtype BuildableParseContext where
toManagedPtr :: BuildableParseContext -> ManagedPtr BuildableParseContext
toManagedPtr (BuildableParseContext ManagedPtr BuildableParseContext
p) = ManagedPtr BuildableParseContext
p
instance BoxedPtr BuildableParseContext where
boxedPtrCopy :: BuildableParseContext -> IO BuildableParseContext
boxedPtrCopy = BuildableParseContext -> IO BuildableParseContext
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return
boxedPtrFree :: BuildableParseContext -> IO ()
boxedPtrFree = \BuildableParseContext
_x -> () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList BuildableParseContext
type instance O.AttributeList BuildableParseContext = BuildableParseContextAttributeList
type BuildableParseContextAttributeList = ('[ ] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_buildable_parse_context_get_element" gtk_buildable_parse_context_get_element ::
Ptr BuildableParseContext ->
IO CString
buildableParseContextGetElement ::
(B.CallStack.HasCallStack, MonadIO m) =>
BuildableParseContext
-> m (Maybe T.Text)
buildableParseContextGetElement :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
BuildableParseContext -> m (Maybe Text)
buildableParseContextGetElement BuildableParseContext
context = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr BuildableParseContext
context' <- BuildableParseContext -> IO (Ptr BuildableParseContext)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr BuildableParseContext
context
CString
result <- Ptr BuildableParseContext -> IO CString
gtk_buildable_parse_context_get_element Ptr BuildableParseContext
context'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
BuildableParseContext -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr BuildableParseContext
context
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data BuildableParseContextGetElementMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m) => O.OverloadedMethod BuildableParseContextGetElementMethodInfo BuildableParseContext signature where
overloadedMethod = buildableParseContextGetElement
instance O.OverloadedMethodInfo BuildableParseContextGetElementMethodInfo BuildableParseContext where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.BuildableParseContext.buildableParseContextGetElement",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Structs-BuildableParseContext.html#v:buildableParseContextGetElement"
})
#endif
foreign import ccall "gtk_buildable_parse_context_get_element_stack" gtk_buildable_parse_context_get_element_stack ::
Ptr BuildableParseContext ->
IO (Ptr (GPtrArray CString))
buildableParseContextGetElementStack ::
(B.CallStack.HasCallStack, MonadIO m) =>
BuildableParseContext
-> m [T.Text]
buildableParseContextGetElementStack :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
BuildableParseContext -> m [Text]
buildableParseContextGetElementStack BuildableParseContext
context = IO [Text] -> m [Text]
forall a. IO a -> m a
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 BuildableParseContext
context' <- BuildableParseContext -> IO (Ptr BuildableParseContext)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr BuildableParseContext
context
Ptr (GPtrArray CString)
result <- Ptr BuildableParseContext -> IO (Ptr (GPtrArray CString))
gtk_buildable_parse_context_get_element_stack Ptr BuildableParseContext
context'
Text -> Ptr (GPtrArray CString) -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"buildableParseContextGetElementStack" Ptr (GPtrArray CString)
result
[CString]
result' <- Ptr (GPtrArray CString) -> IO [CString]
forall a. Ptr (GPtrArray (Ptr a)) -> IO [Ptr a]
unpackGPtrArray Ptr (GPtrArray CString)
result
[Text]
result'' <- (CString -> IO Text) -> [CString] -> IO [Text]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText [CString]
result'
BuildableParseContext -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr BuildableParseContext
context
[Text] -> IO [Text]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Text]
result''
#if defined(ENABLE_OVERLOADING)
data BuildableParseContextGetElementStackMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m) => O.OverloadedMethod BuildableParseContextGetElementStackMethodInfo BuildableParseContext signature where
overloadedMethod = buildableParseContextGetElementStack
instance O.OverloadedMethodInfo BuildableParseContextGetElementStackMethodInfo BuildableParseContext where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.BuildableParseContext.buildableParseContextGetElementStack",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Structs-BuildableParseContext.html#v:buildableParseContextGetElementStack"
})
#endif
foreign import ccall "gtk_buildable_parse_context_get_position" gtk_buildable_parse_context_get_position ::
Ptr BuildableParseContext ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
buildableParseContextGetPosition ::
(B.CallStack.HasCallStack, MonadIO m) =>
BuildableParseContext
-> m ((Int32, Int32))
buildableParseContextGetPosition :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
BuildableParseContext -> m (Int32, Int32)
buildableParseContextGetPosition BuildableParseContext
context = IO (Int32, Int32) -> m (Int32, Int32)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr BuildableParseContext
context' <- BuildableParseContext -> IO (Ptr BuildableParseContext)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr BuildableParseContext
context
Ptr Int32
lineNumber <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
charNumber <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr BuildableParseContext -> Ptr Int32 -> Ptr Int32 -> IO ()
gtk_buildable_parse_context_get_position Ptr BuildableParseContext
context' Ptr Int32
lineNumber Ptr Int32
charNumber
Int32
lineNumber' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
lineNumber
Int32
charNumber' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
charNumber
BuildableParseContext -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr BuildableParseContext
context
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
lineNumber
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
charNumber
(Int32, Int32) -> IO (Int32, Int32)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
lineNumber', Int32
charNumber')
#if defined(ENABLE_OVERLOADING)
data BuildableParseContextGetPositionMethodInfo
instance (signature ~ (m ((Int32, Int32))), MonadIO m) => O.OverloadedMethod BuildableParseContextGetPositionMethodInfo BuildableParseContext signature where
overloadedMethod = buildableParseContextGetPosition
instance O.OverloadedMethodInfo BuildableParseContextGetPositionMethodInfo BuildableParseContext where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.BuildableParseContext.buildableParseContextGetPosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Structs-BuildableParseContext.html#v:buildableParseContextGetPosition"
})
#endif
foreign import ccall "gtk_buildable_parse_context_pop" gtk_buildable_parse_context_pop ::
Ptr BuildableParseContext ->
IO (Ptr ())
buildableParseContextPop ::
(B.CallStack.HasCallStack, MonadIO m) =>
BuildableParseContext
-> m (Ptr ())
buildableParseContextPop :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
BuildableParseContext -> m (Ptr ())
buildableParseContextPop BuildableParseContext
context = IO (Ptr ()) -> m (Ptr ())
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Ptr ()) -> m (Ptr ())) -> IO (Ptr ()) -> m (Ptr ())
forall a b. (a -> b) -> a -> b
$ do
Ptr BuildableParseContext
context' <- BuildableParseContext -> IO (Ptr BuildableParseContext)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr BuildableParseContext
context
Ptr ()
result <- Ptr BuildableParseContext -> IO (Ptr ())
gtk_buildable_parse_context_pop Ptr BuildableParseContext
context'
BuildableParseContext -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr BuildableParseContext
context
Ptr () -> IO (Ptr ())
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ()
result
#if defined(ENABLE_OVERLOADING)
data BuildableParseContextPopMethodInfo
instance (signature ~ (m (Ptr ())), MonadIO m) => O.OverloadedMethod BuildableParseContextPopMethodInfo BuildableParseContext signature where
overloadedMethod = buildableParseContextPop
instance O.OverloadedMethodInfo BuildableParseContextPopMethodInfo BuildableParseContext where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.BuildableParseContext.buildableParseContextPop",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Structs-BuildableParseContext.html#v:buildableParseContextPop"
})
#endif
foreign import ccall "gtk_buildable_parse_context_push" gtk_buildable_parse_context_push ::
Ptr BuildableParseContext ->
Ptr Gtk.BuildableParser.BuildableParser ->
Ptr () ->
IO ()
buildableParseContextPush ::
(B.CallStack.HasCallStack, MonadIO m) =>
BuildableParseContext
-> Gtk.BuildableParser.BuildableParser
-> Ptr ()
-> m ()
buildableParseContextPush :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
BuildableParseContext -> BuildableParser -> Ptr () -> m ()
buildableParseContextPush BuildableParseContext
context BuildableParser
parser Ptr ()
userData = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BuildableParseContext
context' <- BuildableParseContext -> IO (Ptr BuildableParseContext)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr BuildableParseContext
context
Ptr BuildableParser
parser' <- BuildableParser -> IO (Ptr BuildableParser)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr BuildableParser
parser
Ptr BuildableParseContext -> Ptr BuildableParser -> Ptr () -> IO ()
gtk_buildable_parse_context_push Ptr BuildableParseContext
context' Ptr BuildableParser
parser' Ptr ()
userData
BuildableParseContext -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr BuildableParseContext
context
BuildableParser -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr BuildableParser
parser
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BuildableParseContextPushMethodInfo
instance (signature ~ (Gtk.BuildableParser.BuildableParser -> Ptr () -> m ()), MonadIO m) => O.OverloadedMethod BuildableParseContextPushMethodInfo BuildableParseContext signature where
overloadedMethod = buildableParseContextPush
instance O.OverloadedMethodInfo BuildableParseContextPushMethodInfo BuildableParseContext where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.BuildableParseContext.buildableParseContextPush",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Structs-BuildableParseContext.html#v:buildableParseContextPush"
})
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveBuildableParseContextMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveBuildableParseContextMethod "pop" o = BuildableParseContextPopMethodInfo
ResolveBuildableParseContextMethod "push" o = BuildableParseContextPushMethodInfo
ResolveBuildableParseContextMethod "getElement" o = BuildableParseContextGetElementMethodInfo
ResolveBuildableParseContextMethod "getElementStack" o = BuildableParseContextGetElementStackMethodInfo
ResolveBuildableParseContextMethod "getPosition" o = BuildableParseContextGetPositionMethodInfo
ResolveBuildableParseContextMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveBuildableParseContextMethod t BuildableParseContext, O.OverloadedMethod info BuildableParseContext p) => OL.IsLabel t (BuildableParseContext -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveBuildableParseContextMethod t BuildableParseContext, O.OverloadedMethod info BuildableParseContext p, R.HasField t BuildableParseContext p) => R.HasField t BuildableParseContext p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveBuildableParseContextMethod t BuildableParseContext, O.OverloadedMethodInfo info BuildableParseContext) => OL.IsLabel t (O.MethodProxy info BuildableParseContext) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif