#define ENABLE_OVERLOADING \
(!defined(__HADDOCK_VERSION__))
module GI.Atk.Interfaces.StreamableContent
(
StreamableContent(..) ,
noStreamableContent ,
IsStreamableContent ,
#if ENABLE_OVERLOADING
StreamableContentGetMimeTypeMethodInfo ,
#endif
streamableContentGetMimeType ,
#if ENABLE_OVERLOADING
StreamableContentGetNMimeTypesMethodInfo,
#endif
streamableContentGetNMimeTypes ,
#if ENABLE_OVERLOADING
StreamableContentGetStreamMethodInfo ,
#endif
streamableContentGetStream ,
#if ENABLE_OVERLOADING
StreamableContentGetUriMethodInfo ,
#endif
streamableContentGetUri ,
) 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
import qualified GI.GLib.Structs.IOChannel as GLib.IOChannel
newtype StreamableContent = StreamableContent (ManagedPtr StreamableContent)
noStreamableContent :: Maybe StreamableContent
noStreamableContent :: Maybe StreamableContent
noStreamableContent = Maybe StreamableContent
forall a. Maybe a
Nothing
#if ENABLE_OVERLOADING
type instance O.SignalList StreamableContent = StreamableContentSignalList
type StreamableContentSignalList = ('[ ] :: [(Symbol, *)])
#endif
class ManagedPtrNewtype a => IsStreamableContent a
instance IsStreamableContent StreamableContent
instance WrappedPtr StreamableContent where
wrappedPtrCalloc :: IO (Ptr StreamableContent)
wrappedPtrCalloc = Ptr StreamableContent -> IO (Ptr StreamableContent)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr StreamableContent
forall a. Ptr a
nullPtr
wrappedPtrCopy :: StreamableContent -> IO StreamableContent
wrappedPtrCopy = StreamableContent -> IO StreamableContent
forall (m :: * -> *) a. Monad m => a -> m a
return
wrappedPtrFree :: Maybe (FunPtr (Ptr StreamableContent -> IO ()))
wrappedPtrFree = Maybe (FunPtr (Ptr StreamableContent -> IO ()))
forall a. Maybe a
Nothing
#if ENABLE_OVERLOADING
type family ResolveStreamableContentMethod (t :: Symbol) (o :: *) :: * where
ResolveStreamableContentMethod "getMimeType" o = StreamableContentGetMimeTypeMethodInfo
ResolveStreamableContentMethod "getNMimeTypes" o = StreamableContentGetNMimeTypesMethodInfo
ResolveStreamableContentMethod "getStream" o = StreamableContentGetStreamMethodInfo
ResolveStreamableContentMethod "getUri" o = StreamableContentGetUriMethodInfo
ResolveStreamableContentMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveStreamableContentMethod t StreamableContent, O.MethodInfo info StreamableContent p) => O.IsLabelProxy t (StreamableContent -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveStreamableContentMethod t StreamableContent, O.MethodInfo info StreamableContent p) => O.IsLabel t (StreamableContent -> 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
foreign import ccall "atk_streamable_content_get_mime_type" atk_streamable_content_get_mime_type ::
Ptr StreamableContent ->
Int32 ->
IO CString
streamableContentGetMimeType ::
(B.CallStack.HasCallStack, MonadIO m, IsStreamableContent a) =>
a
-> Int32
-> m T.Text
streamableContentGetMimeType :: a -> Int32 -> m Text
streamableContentGetMimeType streamable :: a
streamable i :: Int32
i = 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 StreamableContent
streamable' <- a -> IO (Ptr StreamableContent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
streamable
CString
result <- Ptr StreamableContent -> Int32 -> IO CString
atk_streamable_content_get_mime_type Ptr StreamableContent
streamable' Int32
i
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "streamableContentGetMimeType" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
streamable
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if ENABLE_OVERLOADING
data StreamableContentGetMimeTypeMethodInfo
instance (signature ~ (Int32 -> m T.Text), MonadIO m, IsStreamableContent a) => O.MethodInfo StreamableContentGetMimeTypeMethodInfo a signature where
overloadedMethod _ = streamableContentGetMimeType
#endif
foreign import ccall "atk_streamable_content_get_n_mime_types" atk_streamable_content_get_n_mime_types ::
Ptr StreamableContent ->
IO Int32
streamableContentGetNMimeTypes ::
(B.CallStack.HasCallStack, MonadIO m, IsStreamableContent a) =>
a
-> m Int32
streamableContentGetNMimeTypes :: a -> m Int32
streamableContentGetNMimeTypes streamable :: a
streamable = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr StreamableContent
streamable' <- a -> IO (Ptr StreamableContent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
streamable
Int32
result <- Ptr StreamableContent -> IO Int32
atk_streamable_content_get_n_mime_types Ptr StreamableContent
streamable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
streamable
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if ENABLE_OVERLOADING
data StreamableContentGetNMimeTypesMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsStreamableContent a) => O.MethodInfo StreamableContentGetNMimeTypesMethodInfo a signature where
overloadedMethod _ = streamableContentGetNMimeTypes
#endif
foreign import ccall "atk_streamable_content_get_stream" atk_streamable_content_get_stream ::
Ptr StreamableContent ->
CString ->
IO (Ptr GLib.IOChannel.IOChannel)
streamableContentGetStream ::
(B.CallStack.HasCallStack, MonadIO m, IsStreamableContent a) =>
a
-> T.Text
-> m GLib.IOChannel.IOChannel
streamableContentGetStream :: a -> Text -> m IOChannel
streamableContentGetStream streamable :: a
streamable mimeType :: Text
mimeType = IO IOChannel -> m IOChannel
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO IOChannel -> m IOChannel) -> IO IOChannel -> m IOChannel
forall a b. (a -> b) -> a -> b
$ do
Ptr StreamableContent
streamable' <- a -> IO (Ptr StreamableContent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
streamable
CString
mimeType' <- Text -> IO CString
textToCString Text
mimeType
Ptr IOChannel
result <- Ptr StreamableContent -> CString -> IO (Ptr IOChannel)
atk_streamable_content_get_stream Ptr StreamableContent
streamable' CString
mimeType'
Text -> Ptr IOChannel -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "streamableContentGetStream" Ptr IOChannel
result
IOChannel
result' <- ((ManagedPtr IOChannel -> IOChannel)
-> Ptr IOChannel -> IO IOChannel
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr IOChannel -> IOChannel
GLib.IOChannel.IOChannel) Ptr IOChannel
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
streamable
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
mimeType'
IOChannel -> IO IOChannel
forall (m :: * -> *) a. Monad m => a -> m a
return IOChannel
result'
#if ENABLE_OVERLOADING
data StreamableContentGetStreamMethodInfo
instance (signature ~ (T.Text -> m GLib.IOChannel.IOChannel), MonadIO m, IsStreamableContent a) => O.MethodInfo StreamableContentGetStreamMethodInfo a signature where
overloadedMethod _ = streamableContentGetStream
#endif
foreign import ccall "atk_streamable_content_get_uri" atk_streamable_content_get_uri ::
Ptr StreamableContent ->
CString ->
IO CString
streamableContentGetUri ::
(B.CallStack.HasCallStack, MonadIO m, IsStreamableContent a) =>
a
-> T.Text
-> m (Maybe T.Text)
streamableContentGetUri :: a -> Text -> m (Maybe Text)
streamableContentGetUri streamable :: a
streamable mimeType :: Text
mimeType = IO (Maybe Text) -> m (Maybe Text)
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 StreamableContent
streamable' <- a -> IO (Ptr StreamableContent)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
streamable
CString
mimeType' <- Text -> IO CString
textToCString Text
mimeType
CString
result <- Ptr StreamableContent -> CString -> IO CString
atk_streamable_content_get_uri Ptr StreamableContent
streamable' CString
mimeType'
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
$ \result' :: CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
streamable
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
mimeType'
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if ENABLE_OVERLOADING
data StreamableContentGetUriMethodInfo
instance (signature ~ (T.Text -> m (Maybe T.Text)), MonadIO m, IsStreamableContent a) => O.MethodInfo StreamableContentGetUriMethodInfo a signature where
overloadedMethod _ = streamableContentGetUri
#endif