#define ENABLE_OVERLOADING \
(!defined(__HADDOCK_VERSION__))
module GI.Gio.Structs.IOExtension
(
IOExtension(..) ,
noIOExtension ,
#if ENABLE_OVERLOADING
IOExtensionGetNameMethodInfo ,
#endif
iOExtensionGetName ,
#if ENABLE_OVERLOADING
IOExtensionGetPriorityMethodInfo ,
#endif
iOExtensionGetPriority ,
#if ENABLE_OVERLOADING
IOExtensionGetTypeMethodInfo ,
#endif
iOExtensionGetType ,
) 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 IOExtension = IOExtension (ManagedPtr IOExtension)
instance WrappedPtr IOExtension where
wrappedPtrCalloc :: IO (Ptr IOExtension)
wrappedPtrCalloc = Ptr IOExtension -> IO (Ptr IOExtension)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr IOExtension
forall a. Ptr a
nullPtr
wrappedPtrCopy :: IOExtension -> IO IOExtension
wrappedPtrCopy = IOExtension -> IO IOExtension
forall (m :: * -> *) a. Monad m => a -> m a
return
wrappedPtrFree :: Maybe (FunPtr (Ptr IOExtension -> IO ()))
wrappedPtrFree = Maybe (FunPtr (Ptr IOExtension -> IO ()))
forall a. Maybe a
Nothing
noIOExtension :: Maybe IOExtension
noIOExtension :: Maybe IOExtension
noIOExtension = Maybe IOExtension
forall a. Maybe a
Nothing
#if ENABLE_OVERLOADING
instance O.HasAttributeList IOExtension
type instance O.AttributeList IOExtension = IOExtensionAttributeList
type IOExtensionAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "g_io_extension_get_name" g_io_extension_get_name ::
Ptr IOExtension ->
IO CString
iOExtensionGetName ::
(B.CallStack.HasCallStack, MonadIO m) =>
IOExtension
-> m T.Text
iOExtensionGetName :: IOExtension -> m Text
iOExtensionGetName extension :: IOExtension
extension = 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 IOExtension
extension' <- IOExtension -> IO (Ptr IOExtension)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr IOExtension
extension
CString
result <- Ptr IOExtension -> IO CString
g_io_extension_get_name Ptr IOExtension
extension'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "iOExtensionGetName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
IOExtension -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr IOExtension
extension
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if ENABLE_OVERLOADING
data IOExtensionGetNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo IOExtensionGetNameMethodInfo IOExtension signature where
overloadedMethod _ = iOExtensionGetName
#endif
foreign import ccall "g_io_extension_get_priority" g_io_extension_get_priority ::
Ptr IOExtension ->
IO Int32
iOExtensionGetPriority ::
(B.CallStack.HasCallStack, MonadIO m) =>
IOExtension
-> m Int32
iOExtensionGetPriority :: IOExtension -> m Int32
iOExtensionGetPriority extension :: IOExtension
extension = 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 IOExtension
extension' <- IOExtension -> IO (Ptr IOExtension)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr IOExtension
extension
Int32
result <- Ptr IOExtension -> IO Int32
g_io_extension_get_priority Ptr IOExtension
extension'
IOExtension -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr IOExtension
extension
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if ENABLE_OVERLOADING
data IOExtensionGetPriorityMethodInfo
instance (signature ~ (m Int32), MonadIO m) => O.MethodInfo IOExtensionGetPriorityMethodInfo IOExtension signature where
overloadedMethod _ = iOExtensionGetPriority
#endif
foreign import ccall "g_io_extension_get_type" g_io_extension_get_type ::
Ptr IOExtension ->
IO CGType
iOExtensionGetType ::
(B.CallStack.HasCallStack, MonadIO m) =>
IOExtension
-> m GType
iOExtensionGetType :: IOExtension -> m GType
iOExtensionGetType extension :: IOExtension
extension = IO GType -> m GType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GType -> m GType) -> IO GType -> m GType
forall a b. (a -> b) -> a -> b
$ do
Ptr IOExtension
extension' <- IOExtension -> IO (Ptr IOExtension)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr IOExtension
extension
CGType
result <- Ptr IOExtension -> IO CGType
g_io_extension_get_type Ptr IOExtension
extension'
let result' :: GType
result' = CGType -> GType
GType CGType
result
IOExtension -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr IOExtension
extension
GType -> IO GType
forall (m :: * -> *) a. Monad m => a -> m a
return GType
result'
#if ENABLE_OVERLOADING
data IOExtensionGetTypeMethodInfo
instance (signature ~ (m GType), MonadIO m) => O.MethodInfo IOExtensionGetTypeMethodInfo IOExtension signature where
overloadedMethod _ = iOExtensionGetType
#endif
#if ENABLE_OVERLOADING
type family ResolveIOExtensionMethod (t :: Symbol) (o :: *) :: * where
ResolveIOExtensionMethod "getName" o = IOExtensionGetNameMethodInfo
ResolveIOExtensionMethod "getPriority" o = IOExtensionGetPriorityMethodInfo
ResolveIOExtensionMethod "getType" o = IOExtensionGetTypeMethodInfo
ResolveIOExtensionMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveIOExtensionMethod t IOExtension, O.MethodInfo info IOExtension p) => O.IsLabelProxy t (IOExtension -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveIOExtensionMethod t IOExtension, O.MethodInfo info IOExtension p) => O.IsLabel t (IOExtension -> 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