#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Ggit.Objects.Blob
(
Blob(..) ,
IsBlob ,
toBlob ,
noBlob ,
#if ENABLE_OVERLOADING
BlobGetRawContentMethodInfo ,
#endif
blobGetRawContent ,
#if ENABLE_OVERLOADING
BlobIsBinaryMethodInfo ,
#endif
blobIsBinary ,
) 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.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.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 GI.GObject.Objects.Object as GObject.Object
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
newtype Blob = Blob (ManagedPtr Blob)
foreign import ccall "ggit_blob_get_type"
c_ggit_blob_get_type :: IO GType
instance GObject Blob where
gobjectType = c_ggit_blob_get_type
class (GObject o, O.IsDescendantOf Blob o) => IsBlob o
instance (GObject o, O.IsDescendantOf Blob o) => IsBlob o
instance O.HasParentTypes Blob
type instance O.ParentTypes Blob = '[Ggit.Object.Object, Ggit.Native.Native, Ggit.ObjectFactoryBase.ObjectFactoryBase, GObject.Object.Object]
toBlob :: (MonadIO m, IsBlob o) => o -> m Blob
toBlob = liftIO . unsafeCastTo Blob
noBlob :: Maybe Blob
noBlob = Nothing
#if ENABLE_OVERLOADING
type family ResolveBlobMethod (t :: Symbol) (o :: *) :: * where
ResolveBlobMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveBlobMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveBlobMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveBlobMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveBlobMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveBlobMethod "isBinary" o = BlobIsBinaryMethodInfo
ResolveBlobMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveBlobMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveBlobMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveBlobMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveBlobMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveBlobMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveBlobMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveBlobMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveBlobMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveBlobMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveBlobMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveBlobMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveBlobMethod "getId" o = Ggit.Object.ObjectGetIdMethodInfo
ResolveBlobMethod "getOwner" o = Ggit.Object.ObjectGetOwnerMethodInfo
ResolveBlobMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveBlobMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveBlobMethod "getRawContent" o = BlobGetRawContentMethodInfo
ResolveBlobMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveBlobMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveBlobMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveBlobMethod t Blob, O.MethodInfo info Blob p) => OL.IsLabel t (Blob -> 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
#if ENABLE_OVERLOADING
instance O.HasAttributeList Blob
type instance O.AttributeList Blob = BlobAttributeList
type BlobAttributeList = ('[ '("native", Ggit.Native.NativeNativePropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList Blob = BlobSignalList
type BlobSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "ggit_blob_get_raw_content" ggit_blob_get_raw_content ::
Ptr Blob ->
Ptr Word64 ->
IO (Ptr Word8)
blobGetRawContent ::
(B.CallStack.HasCallStack, MonadIO m, IsBlob a) =>
a
-> m (Maybe ByteString)
blobGetRawContent blob = liftIO $ do
blob' <- unsafeManagedPtrCastPtr blob
length_ <- allocMem :: IO (Ptr Word64)
result <- ggit_blob_get_raw_content blob' length_
length_' <- peek length_
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (unpackByteStringWithLength length_') result'
return result''
touchManagedPtr blob
freeMem length_
return maybeResult
#if ENABLE_OVERLOADING
data BlobGetRawContentMethodInfo
instance (signature ~ (m (Maybe ByteString)), MonadIO m, IsBlob a) => O.MethodInfo BlobGetRawContentMethodInfo a signature where
overloadedMethod _ = blobGetRawContent
#endif
foreign import ccall "ggit_blob_is_binary" ggit_blob_is_binary ::
Ptr Blob ->
IO CInt
blobIsBinary ::
(B.CallStack.HasCallStack, MonadIO m, IsBlob a) =>
a
-> m Bool
blobIsBinary blob = liftIO $ do
blob' <- unsafeManagedPtrCastPtr blob
result <- ggit_blob_is_binary blob'
let result' = (/= 0) result
touchManagedPtr blob
return result'
#if ENABLE_OVERLOADING
data BlobIsBinaryMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsBlob a) => O.MethodInfo BlobIsBinaryMethodInfo a signature where
overloadedMethod _ = blobIsBinary
#endif