#define ENABLE_OVERLOADING \
(!defined(__HADDOCK_VERSION__))
module GI.Gio.Objects.FilterInputStream
(
FilterInputStream(..) ,
IsFilterInputStream ,
toFilterInputStream ,
noFilterInputStream ,
#if ENABLE_OVERLOADING
FilterInputStreamGetBaseStreamMethodInfo,
#endif
filterInputStreamGetBaseStream ,
#if ENABLE_OVERLOADING
FilterInputStreamGetCloseBaseStreamMethodInfo,
#endif
filterInputStreamGetCloseBaseStream ,
#if ENABLE_OVERLOADING
FilterInputStreamSetCloseBaseStreamMethodInfo,
#endif
filterInputStreamSetCloseBaseStream ,
#if ENABLE_OVERLOADING
FilterInputStreamBaseStreamPropertyInfo ,
#endif
constructFilterInputStreamBaseStream ,
#if ENABLE_OVERLOADING
filterInputStreamBaseStream ,
#endif
getFilterInputStreamBaseStream ,
#if ENABLE_OVERLOADING
FilterInputStreamCloseBaseStreamPropertyInfo,
#endif
constructFilterInputStreamCloseBaseStream,
#if ENABLE_OVERLOADING
filterInputStreamCloseBaseStream ,
#endif
getFilterInputStreamCloseBaseStream ,
setFilterInputStreamCloseBaseStream ,
) 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.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gio.Objects.InputStream as Gio.InputStream
newtype FilterInputStream = FilterInputStream (ManagedPtr FilterInputStream)
foreign import ccall "g_filter_input_stream_get_type"
c_g_filter_input_stream_get_type :: IO GType
instance GObject FilterInputStream where
gobjectType :: FilterInputStream -> IO GType
gobjectType _ = IO GType
c_g_filter_input_stream_get_type
class GObject o => IsFilterInputStream o
#if MIN_VERSION_base(4,9,0)
instance {-# OVERLAPPABLE #-} (GObject a, O.UnknownAncestorError FilterInputStream a) =>
IsFilterInputStream a
#endif
instance IsFilterInputStream FilterInputStream
instance Gio.InputStream.IsInputStream FilterInputStream
instance GObject.Object.IsObject FilterInputStream
toFilterInputStream :: (MonadIO m, IsFilterInputStream o) => o -> m FilterInputStream
toFilterInputStream :: o -> m FilterInputStream
toFilterInputStream = IO FilterInputStream -> m FilterInputStream
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO FilterInputStream -> m FilterInputStream)
-> (o -> IO FilterInputStream) -> o -> m FilterInputStream
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr FilterInputStream -> FilterInputStream)
-> o -> IO FilterInputStream
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr FilterInputStream -> FilterInputStream
FilterInputStream
noFilterInputStream :: Maybe FilterInputStream
noFilterInputStream :: Maybe FilterInputStream
noFilterInputStream = Maybe FilterInputStream
forall a. Maybe a
Nothing
#if ENABLE_OVERLOADING
type family ResolveFilterInputStreamMethod (t :: Symbol) (o :: *) :: * where
ResolveFilterInputStreamMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveFilterInputStreamMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveFilterInputStreamMethod "clearPending" o = Gio.InputStream.InputStreamClearPendingMethodInfo
ResolveFilterInputStreamMethod "close" o = Gio.InputStream.InputStreamCloseMethodInfo
ResolveFilterInputStreamMethod "closeAsync" o = Gio.InputStream.InputStreamCloseAsyncMethodInfo
ResolveFilterInputStreamMethod "closeFinish" o = Gio.InputStream.InputStreamCloseFinishMethodInfo
ResolveFilterInputStreamMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveFilterInputStreamMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveFilterInputStreamMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveFilterInputStreamMethod "hasPending" o = Gio.InputStream.InputStreamHasPendingMethodInfo
ResolveFilterInputStreamMethod "isClosed" o = Gio.InputStream.InputStreamIsClosedMethodInfo
ResolveFilterInputStreamMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveFilterInputStreamMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveFilterInputStreamMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveFilterInputStreamMethod "read" o = Gio.InputStream.InputStreamReadMethodInfo
ResolveFilterInputStreamMethod "readAll" o = Gio.InputStream.InputStreamReadAllMethodInfo
ResolveFilterInputStreamMethod "readAllAsync" o = Gio.InputStream.InputStreamReadAllAsyncMethodInfo
ResolveFilterInputStreamMethod "readAllFinish" o = Gio.InputStream.InputStreamReadAllFinishMethodInfo
ResolveFilterInputStreamMethod "readAsync" o = Gio.InputStream.InputStreamReadAsyncMethodInfo
ResolveFilterInputStreamMethod "readBytes" o = Gio.InputStream.InputStreamReadBytesMethodInfo
ResolveFilterInputStreamMethod "readBytesAsync" o = Gio.InputStream.InputStreamReadBytesAsyncMethodInfo
ResolveFilterInputStreamMethod "readBytesFinish" o = Gio.InputStream.InputStreamReadBytesFinishMethodInfo
ResolveFilterInputStreamMethod "readFinish" o = Gio.InputStream.InputStreamReadFinishMethodInfo
ResolveFilterInputStreamMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveFilterInputStreamMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveFilterInputStreamMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveFilterInputStreamMethod "skip" o = Gio.InputStream.InputStreamSkipMethodInfo
ResolveFilterInputStreamMethod "skipAsync" o = Gio.InputStream.InputStreamSkipAsyncMethodInfo
ResolveFilterInputStreamMethod "skipFinish" o = Gio.InputStream.InputStreamSkipFinishMethodInfo
ResolveFilterInputStreamMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveFilterInputStreamMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveFilterInputStreamMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveFilterInputStreamMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveFilterInputStreamMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveFilterInputStreamMethod "getBaseStream" o = FilterInputStreamGetBaseStreamMethodInfo
ResolveFilterInputStreamMethod "getCloseBaseStream" o = FilterInputStreamGetCloseBaseStreamMethodInfo
ResolveFilterInputStreamMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveFilterInputStreamMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveFilterInputStreamMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveFilterInputStreamMethod "setCloseBaseStream" o = FilterInputStreamSetCloseBaseStreamMethodInfo
ResolveFilterInputStreamMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveFilterInputStreamMethod "setPending" o = Gio.InputStream.InputStreamSetPendingMethodInfo
ResolveFilterInputStreamMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveFilterInputStreamMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveFilterInputStreamMethod t FilterInputStream, O.MethodInfo info FilterInputStream p) => O.IsLabelProxy t (FilterInputStream -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveFilterInputStreamMethod t FilterInputStream, O.MethodInfo info FilterInputStream p) => O.IsLabel t (FilterInputStream -> 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
getFilterInputStreamBaseStream :: (MonadIO m, IsFilterInputStream o) => o -> m Gio.InputStream.InputStream
getFilterInputStreamBaseStream :: o -> m InputStream
getFilterInputStreamBaseStream obj :: o
obj = IO InputStream -> m InputStream
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO InputStream -> m InputStream)
-> IO InputStream -> m InputStream
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe InputStream) -> IO InputStream
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getFilterInputStreamBaseStream" (IO (Maybe InputStream) -> IO InputStream)
-> IO (Maybe InputStream) -> IO InputStream
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr InputStream -> InputStream)
-> IO (Maybe InputStream)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
getObjectPropertyObject o
obj "base-stream" ManagedPtr InputStream -> InputStream
Gio.InputStream.InputStream
constructFilterInputStreamBaseStream :: (IsFilterInputStream o, Gio.InputStream.IsInputStream a) => a -> IO (GValueConstruct o)
constructFilterInputStreamBaseStream :: a -> IO (GValueConstruct o)
constructFilterInputStreamBaseStream val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
constructObjectPropertyObject "base-stream" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
#if ENABLE_OVERLOADING
data FilterInputStreamBaseStreamPropertyInfo
instance AttrInfo FilterInputStreamBaseStreamPropertyInfo where
type AttrAllowedOps FilterInputStreamBaseStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint FilterInputStreamBaseStreamPropertyInfo = Gio.InputStream.IsInputStream
type AttrBaseTypeConstraint FilterInputStreamBaseStreamPropertyInfo = IsFilterInputStream
type AttrGetType FilterInputStreamBaseStreamPropertyInfo = Gio.InputStream.InputStream
type AttrLabel FilterInputStreamBaseStreamPropertyInfo = "base-stream"
type AttrOrigin FilterInputStreamBaseStreamPropertyInfo = FilterInputStream
attrGet _ = getFilterInputStreamBaseStream
attrSet _ = undefined
attrConstruct _ = constructFilterInputStreamBaseStream
attrClear _ = undefined
#endif
getFilterInputStreamCloseBaseStream :: (MonadIO m, IsFilterInputStream o) => o -> m Bool
getFilterInputStreamCloseBaseStream :: o -> m Bool
getFilterInputStreamCloseBaseStream obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
getObjectPropertyBool o
obj "close-base-stream"
setFilterInputStreamCloseBaseStream :: (MonadIO m, IsFilterInputStream o) => o -> Bool -> m ()
setFilterInputStreamCloseBaseStream :: o -> Bool -> m ()
setFilterInputStreamCloseBaseStream obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
setObjectPropertyBool o
obj "close-base-stream" Bool
val
constructFilterInputStreamCloseBaseStream :: (IsFilterInputStream o) => Bool -> IO (GValueConstruct o)
constructFilterInputStreamCloseBaseStream :: Bool -> IO (GValueConstruct o)
constructFilterInputStreamCloseBaseStream val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
constructObjectPropertyBool "close-base-stream" Bool
val
#if ENABLE_OVERLOADING
data FilterInputStreamCloseBaseStreamPropertyInfo
instance AttrInfo FilterInputStreamCloseBaseStreamPropertyInfo where
type AttrAllowedOps FilterInputStreamCloseBaseStreamPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint FilterInputStreamCloseBaseStreamPropertyInfo = (~) Bool
type AttrBaseTypeConstraint FilterInputStreamCloseBaseStreamPropertyInfo = IsFilterInputStream
type AttrGetType FilterInputStreamCloseBaseStreamPropertyInfo = Bool
type AttrLabel FilterInputStreamCloseBaseStreamPropertyInfo = "close-base-stream"
type AttrOrigin FilterInputStreamCloseBaseStreamPropertyInfo = FilterInputStream
attrGet _ = getFilterInputStreamCloseBaseStream
attrSet _ = setFilterInputStreamCloseBaseStream
attrConstruct _ = constructFilterInputStreamCloseBaseStream
attrClear _ = undefined
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList FilterInputStream
type instance O.AttributeList FilterInputStream = FilterInputStreamAttributeList
type FilterInputStreamAttributeList = ('[ '("baseStream", FilterInputStreamBaseStreamPropertyInfo), '("closeBaseStream", FilterInputStreamCloseBaseStreamPropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
filterInputStreamBaseStream :: AttrLabelProxy "baseStream"
filterInputStreamBaseStream = AttrLabelProxy
filterInputStreamCloseBaseStream :: AttrLabelProxy "closeBaseStream"
filterInputStreamCloseBaseStream = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList FilterInputStream = FilterInputStreamSignalList
type FilterInputStreamSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "g_filter_input_stream_get_base_stream" g_filter_input_stream_get_base_stream ::
Ptr FilterInputStream ->
IO (Ptr Gio.InputStream.InputStream)
filterInputStreamGetBaseStream ::
(B.CallStack.HasCallStack, MonadIO m, IsFilterInputStream a) =>
a
-> m Gio.InputStream.InputStream
filterInputStreamGetBaseStream :: a -> m InputStream
filterInputStreamGetBaseStream stream :: a
stream = IO InputStream -> m InputStream
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO InputStream -> m InputStream)
-> IO InputStream -> m InputStream
forall a b. (a -> b) -> a -> b
$ do
Ptr FilterInputStream
stream' <- a -> IO (Ptr FilterInputStream)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stream
Ptr InputStream
result <- Ptr FilterInputStream -> IO (Ptr InputStream)
g_filter_input_stream_get_base_stream Ptr FilterInputStream
stream'
Text -> Ptr InputStream -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "filterInputStreamGetBaseStream" Ptr InputStream
result
InputStream
result' <- ((ManagedPtr InputStream -> InputStream)
-> Ptr InputStream -> IO InputStream
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr InputStream -> InputStream
Gio.InputStream.InputStream) Ptr InputStream
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stream
InputStream -> IO InputStream
forall (m :: * -> *) a. Monad m => a -> m a
return InputStream
result'
#if ENABLE_OVERLOADING
data FilterInputStreamGetBaseStreamMethodInfo
instance (signature ~ (m Gio.InputStream.InputStream), MonadIO m, IsFilterInputStream a) => O.MethodInfo FilterInputStreamGetBaseStreamMethodInfo a signature where
overloadedMethod _ = filterInputStreamGetBaseStream
#endif
foreign import ccall "g_filter_input_stream_get_close_base_stream" g_filter_input_stream_get_close_base_stream ::
Ptr FilterInputStream ->
IO CInt
filterInputStreamGetCloseBaseStream ::
(B.CallStack.HasCallStack, MonadIO m, IsFilterInputStream a) =>
a
-> m Bool
filterInputStreamGetCloseBaseStream :: a -> m Bool
filterInputStreamGetCloseBaseStream stream :: a
stream = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr FilterInputStream
stream' <- a -> IO (Ptr FilterInputStream)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stream
CInt
result <- Ptr FilterInputStream -> IO CInt
g_filter_input_stream_get_close_base_stream Ptr FilterInputStream
stream'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stream
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if ENABLE_OVERLOADING
data FilterInputStreamGetCloseBaseStreamMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFilterInputStream a) => O.MethodInfo FilterInputStreamGetCloseBaseStreamMethodInfo a signature where
overloadedMethod _ = filterInputStreamGetCloseBaseStream
#endif
foreign import ccall "g_filter_input_stream_set_close_base_stream" g_filter_input_stream_set_close_base_stream ::
Ptr FilterInputStream ->
CInt ->
IO ()
filterInputStreamSetCloseBaseStream ::
(B.CallStack.HasCallStack, MonadIO m, IsFilterInputStream a) =>
a
-> Bool
-> m ()
filterInputStreamSetCloseBaseStream :: a -> Bool -> m ()
filterInputStreamSetCloseBaseStream stream :: a
stream closeBase :: Bool
closeBase = 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 FilterInputStream
stream' <- a -> IO (Ptr FilterInputStream)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stream
let closeBase' :: CInt
closeBase' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
closeBase
Ptr FilterInputStream -> CInt -> IO ()
g_filter_input_stream_set_close_base_stream Ptr FilterInputStream
stream' CInt
closeBase'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stream
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data FilterInputStreamSetCloseBaseStreamMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsFilterInputStream a) => O.MethodInfo FilterInputStreamSetCloseBaseStreamMethodInfo a signature where
overloadedMethod _ = filterInputStreamSetCloseBaseStream
#endif