{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Ggit.Objects.Tree
(
Tree(..) ,
IsTree ,
toTree ,
#if defined(ENABLE_OVERLOADING)
ResolveTreeMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeGetMethodInfo ,
#endif
treeGet ,
#if defined(ENABLE_OVERLOADING)
TreeGetByNameMethodInfo ,
#endif
treeGetByName ,
#if defined(ENABLE_OVERLOADING)
TreeGetByPathMethodInfo ,
#endif
treeGetByPath ,
#if defined(ENABLE_OVERLOADING)
TreeGetIdMethodInfo ,
#endif
treeGetId ,
#if defined(ENABLE_OVERLOADING)
TreeSizeMethodInfo ,
#endif
treeSize ,
#if defined(ENABLE_OVERLOADING)
TreeWalkMethodInfo ,
#endif
treeWalk ,
) 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.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.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 qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Ggit.Callbacks as Ggit.Callbacks
import {-# SOURCE #-} qualified GI.Ggit.Enums as Ggit.Enums
import {-# SOURCE #-} qualified GI.Ggit.Objects.Native as Ggit.Native
import {-# SOURCE #-} qualified GI.Ggit.Objects.Object as Ggit.Object
import {-# SOURCE #-} qualified GI.Ggit.Objects.ObjectFactoryBase as Ggit.ObjectFactoryBase
import {-# SOURCE #-} qualified GI.Ggit.Structs.OId as Ggit.OId
import {-# SOURCE #-} qualified GI.Ggit.Structs.TreeEntry as Ggit.TreeEntry
newtype Tree = Tree (SP.ManagedPtr Tree)
deriving (Tree -> Tree -> Bool
(Tree -> Tree -> Bool) -> (Tree -> Tree -> Bool) -> Eq Tree
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Tree -> Tree -> Bool
$c/= :: Tree -> Tree -> Bool
== :: Tree -> Tree -> Bool
$c== :: Tree -> Tree -> Bool
Eq)
instance SP.ManagedPtrNewtype Tree where
toManagedPtr :: Tree -> ManagedPtr Tree
toManagedPtr (Tree ManagedPtr Tree
p) = ManagedPtr Tree
p
foreign import ccall "ggit_tree_get_type"
c_ggit_tree_get_type :: IO B.Types.GType
instance B.Types.TypedObject Tree where
glibType :: IO GType
glibType = IO GType
c_ggit_tree_get_type
instance B.Types.GObject Tree
class (SP.GObject o, O.IsDescendantOf Tree o) => IsTree o
instance (SP.GObject o, O.IsDescendantOf Tree o) => IsTree o
instance O.HasParentTypes Tree
type instance O.ParentTypes Tree = '[Ggit.Object.Object, Ggit.Native.Native, Ggit.ObjectFactoryBase.ObjectFactoryBase, GObject.Object.Object]
toTree :: (MIO.MonadIO m, IsTree o) => o -> m Tree
toTree :: forall (m :: * -> *) o. (MonadIO m, IsTree o) => o -> m Tree
toTree = IO Tree -> m Tree
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Tree -> m Tree) -> (o -> IO Tree) -> o -> m Tree
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Tree -> Tree) -> o -> IO Tree
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Tree -> Tree
Tree
instance B.GValue.IsGValue (Maybe Tree) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_ggit_tree_get_type
gvalueSet_ :: Ptr GValue -> Maybe Tree -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Tree
P.Nothing = Ptr GValue -> Ptr Tree -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Tree
forall a. Ptr a
FP.nullPtr :: FP.Ptr Tree)
gvalueSet_ Ptr GValue
gv (P.Just Tree
obj) = Tree -> (Ptr Tree -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Tree
obj (Ptr GValue -> Ptr Tree -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Tree)
gvalueGet_ Ptr GValue
gv = do
Ptr Tree
ptr <- Ptr GValue -> IO (Ptr Tree)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Tree)
if Ptr Tree
ptr Ptr Tree -> Ptr Tree -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Tree
forall a. Ptr a
FP.nullPtr
then Tree -> Maybe Tree
forall a. a -> Maybe a
P.Just (Tree -> Maybe Tree) -> IO Tree -> IO (Maybe Tree)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Tree -> Tree) -> Ptr Tree -> IO Tree
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Tree -> Tree
Tree Ptr Tree
ptr
else Maybe Tree -> IO (Maybe Tree)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Tree
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveTreeMethod (t :: Symbol) (o :: *) :: * where
ResolveTreeMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveTreeMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveTreeMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveTreeMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveTreeMethod "get" o = TreeGetMethodInfo
ResolveTreeMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveTreeMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveTreeMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveTreeMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveTreeMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveTreeMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveTreeMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveTreeMethod "size" o = TreeSizeMethodInfo
ResolveTreeMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveTreeMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveTreeMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveTreeMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveTreeMethod "walk" o = TreeWalkMethodInfo
ResolveTreeMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveTreeMethod "getByName" o = TreeGetByNameMethodInfo
ResolveTreeMethod "getByPath" o = TreeGetByPathMethodInfo
ResolveTreeMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveTreeMethod "getId" o = TreeGetIdMethodInfo
ResolveTreeMethod "getOwner" o = Ggit.Object.ObjectGetOwnerMethodInfo
ResolveTreeMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveTreeMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveTreeMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveTreeMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveTreeMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveTreeMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTreeMethod t Tree, O.OverloadedMethod info Tree p) => OL.IsLabel t (Tree -> 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 ~ ResolveTreeMethod t Tree, O.OverloadedMethod info Tree p, R.HasField t Tree p) => R.HasField t Tree p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveTreeMethod t Tree, O.OverloadedMethodInfo info Tree) => OL.IsLabel t (O.MethodProxy info Tree) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Tree
type instance O.AttributeList Tree = TreeAttributeList
type TreeAttributeList = ('[ '("native", Ggit.Native.NativeNativePropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Tree = TreeSignalList
type TreeSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "ggit_tree_get" ggit_tree_get ::
Ptr Tree ->
Word32 ->
IO (Ptr Ggit.TreeEntry.TreeEntry)
treeGet ::
(B.CallStack.HasCallStack, MonadIO m, IsTree a) =>
a
-> Word32
-> m (Maybe Ggit.TreeEntry.TreeEntry)
treeGet :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTree a) =>
a -> Word32 -> m (Maybe TreeEntry)
treeGet a
tree Word32
i = IO (Maybe TreeEntry) -> m (Maybe TreeEntry)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe TreeEntry) -> m (Maybe TreeEntry))
-> IO (Maybe TreeEntry) -> m (Maybe TreeEntry)
forall a b. (a -> b) -> a -> b
$ do
Ptr Tree
tree' <- a -> IO (Ptr Tree)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
tree
Ptr TreeEntry
result <- Ptr Tree -> Word32 -> IO (Ptr TreeEntry)
ggit_tree_get Ptr Tree
tree' Word32
i
Maybe TreeEntry
maybeResult <- Ptr TreeEntry
-> (Ptr TreeEntry -> IO TreeEntry) -> IO (Maybe TreeEntry)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr TreeEntry
result ((Ptr TreeEntry -> IO TreeEntry) -> IO (Maybe TreeEntry))
-> (Ptr TreeEntry -> IO TreeEntry) -> IO (Maybe TreeEntry)
forall a b. (a -> b) -> a -> b
$ \Ptr TreeEntry
result' -> do
TreeEntry
result'' <- ((ManagedPtr TreeEntry -> TreeEntry)
-> Ptr TreeEntry -> IO TreeEntry
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreeEntry -> TreeEntry
Ggit.TreeEntry.TreeEntry) Ptr TreeEntry
result'
TreeEntry -> IO TreeEntry
forall (m :: * -> *) a. Monad m => a -> m a
return TreeEntry
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
tree
Maybe TreeEntry -> IO (Maybe TreeEntry)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TreeEntry
maybeResult
#if defined(ENABLE_OVERLOADING)
data TreeGetMethodInfo
instance (signature ~ (Word32 -> m (Maybe Ggit.TreeEntry.TreeEntry)), MonadIO m, IsTree a) => O.OverloadedMethod TreeGetMethodInfo a signature where
overloadedMethod = treeGet
instance O.OverloadedMethodInfo TreeGetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Objects.Tree.treeGet",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.11/docs/GI-Ggit-Objects-Tree.html#v:treeGet"
})
#endif
foreign import ccall "ggit_tree_get_by_name" ggit_tree_get_by_name ::
Ptr Tree ->
CString ->
IO (Ptr Ggit.TreeEntry.TreeEntry)
treeGetByName ::
(B.CallStack.HasCallStack, MonadIO m, IsTree a) =>
a
-> T.Text
-> m (Maybe Ggit.TreeEntry.TreeEntry)
treeGetByName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTree a) =>
a -> Text -> m (Maybe TreeEntry)
treeGetByName a
tree Text
name = IO (Maybe TreeEntry) -> m (Maybe TreeEntry)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe TreeEntry) -> m (Maybe TreeEntry))
-> IO (Maybe TreeEntry) -> m (Maybe TreeEntry)
forall a b. (a -> b) -> a -> b
$ do
Ptr Tree
tree' <- a -> IO (Ptr Tree)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
tree
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr TreeEntry
result <- Ptr Tree -> CString -> IO (Ptr TreeEntry)
ggit_tree_get_by_name Ptr Tree
tree' CString
name'
Maybe TreeEntry
maybeResult <- Ptr TreeEntry
-> (Ptr TreeEntry -> IO TreeEntry) -> IO (Maybe TreeEntry)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr TreeEntry
result ((Ptr TreeEntry -> IO TreeEntry) -> IO (Maybe TreeEntry))
-> (Ptr TreeEntry -> IO TreeEntry) -> IO (Maybe TreeEntry)
forall a b. (a -> b) -> a -> b
$ \Ptr TreeEntry
result' -> do
TreeEntry
result'' <- ((ManagedPtr TreeEntry -> TreeEntry)
-> Ptr TreeEntry -> IO TreeEntry
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreeEntry -> TreeEntry
Ggit.TreeEntry.TreeEntry) Ptr TreeEntry
result'
TreeEntry -> IO TreeEntry
forall (m :: * -> *) a. Monad m => a -> m a
return TreeEntry
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
tree
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
Maybe TreeEntry -> IO (Maybe TreeEntry)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TreeEntry
maybeResult
#if defined(ENABLE_OVERLOADING)
data TreeGetByNameMethodInfo
instance (signature ~ (T.Text -> m (Maybe Ggit.TreeEntry.TreeEntry)), MonadIO m, IsTree a) => O.OverloadedMethod TreeGetByNameMethodInfo a signature where
overloadedMethod = treeGetByName
instance O.OverloadedMethodInfo TreeGetByNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Objects.Tree.treeGetByName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.11/docs/GI-Ggit-Objects-Tree.html#v:treeGetByName"
})
#endif
foreign import ccall "ggit_tree_get_by_path" ggit_tree_get_by_path ::
Ptr Tree ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr Ggit.TreeEntry.TreeEntry)
treeGetByPath ::
(B.CallStack.HasCallStack, MonadIO m, IsTree a) =>
a
-> T.Text
-> m (Maybe Ggit.TreeEntry.TreeEntry)
treeGetByPath :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTree a) =>
a -> Text -> m (Maybe TreeEntry)
treeGetByPath a
tree Text
path = IO (Maybe TreeEntry) -> m (Maybe TreeEntry)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe TreeEntry) -> m (Maybe TreeEntry))
-> IO (Maybe TreeEntry) -> m (Maybe TreeEntry)
forall a b. (a -> b) -> a -> b
$ do
Ptr Tree
tree' <- a -> IO (Ptr Tree)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
tree
CString
path' <- Text -> IO CString
textToCString Text
path
IO (Maybe TreeEntry) -> IO () -> IO (Maybe TreeEntry)
forall a b. IO a -> IO b -> IO a
onException (do
Ptr TreeEntry
result <- (Ptr (Ptr GError) -> IO (Ptr TreeEntry)) -> IO (Ptr TreeEntry)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr TreeEntry)) -> IO (Ptr TreeEntry))
-> (Ptr (Ptr GError) -> IO (Ptr TreeEntry)) -> IO (Ptr TreeEntry)
forall a b. (a -> b) -> a -> b
$ Ptr Tree -> CString -> Ptr (Ptr GError) -> IO (Ptr TreeEntry)
ggit_tree_get_by_path Ptr Tree
tree' CString
path'
Maybe TreeEntry
maybeResult <- Ptr TreeEntry
-> (Ptr TreeEntry -> IO TreeEntry) -> IO (Maybe TreeEntry)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr TreeEntry
result ((Ptr TreeEntry -> IO TreeEntry) -> IO (Maybe TreeEntry))
-> (Ptr TreeEntry -> IO TreeEntry) -> IO (Maybe TreeEntry)
forall a b. (a -> b) -> a -> b
$ \Ptr TreeEntry
result' -> do
TreeEntry
result'' <- ((ManagedPtr TreeEntry -> TreeEntry)
-> Ptr TreeEntry -> IO TreeEntry
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreeEntry -> TreeEntry
Ggit.TreeEntry.TreeEntry) Ptr TreeEntry
result'
TreeEntry -> IO TreeEntry
forall (m :: * -> *) a. Monad m => a -> m a
return TreeEntry
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
tree
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
path'
Maybe TreeEntry -> IO (Maybe TreeEntry)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TreeEntry
maybeResult
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
path'
)
#if defined(ENABLE_OVERLOADING)
data TreeGetByPathMethodInfo
instance (signature ~ (T.Text -> m (Maybe Ggit.TreeEntry.TreeEntry)), MonadIO m, IsTree a) => O.OverloadedMethod TreeGetByPathMethodInfo a signature where
overloadedMethod = treeGetByPath
instance O.OverloadedMethodInfo TreeGetByPathMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Objects.Tree.treeGetByPath",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.11/docs/GI-Ggit-Objects-Tree.html#v:treeGetByPath"
})
#endif
foreign import ccall "ggit_tree_get_id" ggit_tree_get_id ::
Ptr Tree ->
IO (Ptr Ggit.OId.OId)
treeGetId ::
(B.CallStack.HasCallStack, MonadIO m, IsTree a) =>
a
-> m (Maybe Ggit.OId.OId)
treeGetId :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTree a) =>
a -> m (Maybe OId)
treeGetId a
tree = IO (Maybe OId) -> m (Maybe OId)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe OId) -> m (Maybe OId))
-> IO (Maybe OId) -> m (Maybe OId)
forall a b. (a -> b) -> a -> b
$ do
Ptr Tree
tree' <- a -> IO (Ptr Tree)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
tree
Ptr OId
result <- Ptr Tree -> IO (Ptr OId)
ggit_tree_get_id Ptr Tree
tree'
Maybe OId
maybeResult <- Ptr OId -> (Ptr OId -> IO OId) -> IO (Maybe OId)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr OId
result ((Ptr OId -> IO OId) -> IO (Maybe OId))
-> (Ptr OId -> IO OId) -> IO (Maybe OId)
forall a b. (a -> b) -> a -> b
$ \Ptr OId
result' -> do
OId
result'' <- ((ManagedPtr OId -> OId) -> Ptr OId -> IO OId
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr OId -> OId
Ggit.OId.OId) Ptr OId
result'
OId -> IO OId
forall (m :: * -> *) a. Monad m => a -> m a
return OId
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
tree
Maybe OId -> IO (Maybe OId)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe OId
maybeResult
#if defined(ENABLE_OVERLOADING)
data TreeGetIdMethodInfo
instance (signature ~ (m (Maybe Ggit.OId.OId)), MonadIO m, IsTree a) => O.OverloadedMethod TreeGetIdMethodInfo a signature where
overloadedMethod = treeGetId
instance O.OverloadedMethodInfo TreeGetIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Objects.Tree.treeGetId",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.11/docs/GI-Ggit-Objects-Tree.html#v:treeGetId"
})
#endif
foreign import ccall "ggit_tree_size" ggit_tree_size ::
Ptr Tree ->
IO Word32
treeSize ::
(B.CallStack.HasCallStack, MonadIO m, IsTree a) =>
a
-> m Word32
treeSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTree a) =>
a -> m Word32
treeSize a
tree = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr Tree
tree' <- a -> IO (Ptr Tree)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
tree
Word32
result <- Ptr Tree -> IO Word32
ggit_tree_size Ptr Tree
tree'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
tree
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data TreeSizeMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsTree a) => O.OverloadedMethod TreeSizeMethodInfo a signature where
overloadedMethod = treeSize
instance O.OverloadedMethodInfo TreeSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Objects.Tree.treeSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.11/docs/GI-Ggit-Objects-Tree.html#v:treeSize"
})
#endif
foreign import ccall "ggit_tree_walk" ggit_tree_walk ::
Ptr Tree ->
CUInt ->
FunPtr Ggit.Callbacks.C_TreeWalkCallback ->
Ptr () ->
Ptr (Ptr GError) ->
IO ()
treeWalk ::
(B.CallStack.HasCallStack, MonadIO m, IsTree a) =>
a
-> Ggit.Enums.TreeWalkMode
-> Ggit.Callbacks.TreeWalkCallback
-> m ()
treeWalk :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTree a) =>
a -> TreeWalkMode -> TreeWalkCallback -> m ()
treeWalk a
tree TreeWalkMode
mode TreeWalkCallback
callback = 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 Tree
tree' <- a -> IO (Ptr Tree)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
tree
let mode' :: CUInt
mode' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (TreeWalkMode -> Int) -> TreeWalkMode -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TreeWalkMode -> Int
forall a. Enum a => a -> Int
fromEnum) TreeWalkMode
mode
FunPtr C_TreeWalkCallback
callback' <- C_TreeWalkCallback -> IO (FunPtr C_TreeWalkCallback)
Ggit.Callbacks.mk_TreeWalkCallback (Maybe (Ptr (FunPtr C_TreeWalkCallback))
-> TreeWalkCallback_WithClosures -> C_TreeWalkCallback
Ggit.Callbacks.wrap_TreeWalkCallback Maybe (Ptr (FunPtr C_TreeWalkCallback))
forall a. Maybe a
Nothing (TreeWalkCallback -> TreeWalkCallback_WithClosures
Ggit.Callbacks.drop_closures_TreeWalkCallback TreeWalkCallback
callback))
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr Tree
-> CUInt
-> FunPtr C_TreeWalkCallback
-> Ptr ()
-> Ptr (Ptr GError)
-> IO ()
ggit_tree_walk Ptr Tree
tree' CUInt
mode' FunPtr C_TreeWalkCallback
callback' Ptr ()
forall a. Ptr a
userData
Ptr Any -> IO ()
forall a. Ptr a -> IO ()
safeFreeFunPtr (Ptr Any -> IO ()) -> Ptr Any -> IO ()
forall a b. (a -> b) -> a -> b
$ FunPtr C_TreeWalkCallback -> Ptr Any
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_TreeWalkCallback
callback'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
tree
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
Ptr Any -> IO ()
forall a. Ptr a -> IO ()
safeFreeFunPtr (Ptr Any -> IO ()) -> Ptr Any -> IO ()
forall a b. (a -> b) -> a -> b
$ FunPtr C_TreeWalkCallback -> Ptr Any
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_TreeWalkCallback
callback'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data TreeWalkMethodInfo
instance (signature ~ (Ggit.Enums.TreeWalkMode -> Ggit.Callbacks.TreeWalkCallback -> m ()), MonadIO m, IsTree a) => O.OverloadedMethod TreeWalkMethodInfo a signature where
overloadedMethod = treeWalk
instance O.OverloadedMethodInfo TreeWalkMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Objects.Tree.treeWalk",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.11/docs/GI-Ggit-Objects-Tree.html#v:treeWalk"
})
#endif