module GI.Gio.Objects.FilterOutputStream
(
FilterOutputStream(..) ,
FilterOutputStreamK ,
toFilterOutputStream ,
noFilterOutputStream ,
filterOutputStreamGetBaseStream ,
filterOutputStreamGetCloseBaseStream ,
filterOutputStreamSetCloseBaseStream ,
FilterOutputStreamBaseStreamPropertyInfo,
constructFilterOutputStreamBaseStream ,
getFilterOutputStreamBaseStream ,
FilterOutputStreamCloseBaseStreamPropertyInfo,
constructFilterOutputStreamCloseBaseStream,
getFilterOutputStreamCloseBaseStream ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gio.Types
import GI.Gio.Callbacks
import qualified GI.GObject as GObject
newtype FilterOutputStream = FilterOutputStream (ForeignPtr FilterOutputStream)
foreign import ccall "g_filter_output_stream_get_type"
c_g_filter_output_stream_get_type :: IO GType
type instance ParentTypes FilterOutputStream = FilterOutputStreamParentTypes
type FilterOutputStreamParentTypes = '[OutputStream, GObject.Object]
instance GObject FilterOutputStream where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_g_filter_output_stream_get_type
class GObject o => FilterOutputStreamK o
instance (GObject o, IsDescendantOf FilterOutputStream o) => FilterOutputStreamK o
toFilterOutputStream :: FilterOutputStreamK o => o -> IO FilterOutputStream
toFilterOutputStream = unsafeCastTo FilterOutputStream
noFilterOutputStream :: Maybe FilterOutputStream
noFilterOutputStream = Nothing
getFilterOutputStreamBaseStream :: (MonadIO m, FilterOutputStreamK o) => o -> m OutputStream
getFilterOutputStreamBaseStream obj = liftIO $ getObjectPropertyObject obj "base-stream" OutputStream
constructFilterOutputStreamBaseStream :: (OutputStreamK a) => a -> IO ([Char], GValue)
constructFilterOutputStreamBaseStream val = constructObjectPropertyObject "base-stream" val
data FilterOutputStreamBaseStreamPropertyInfo
instance AttrInfo FilterOutputStreamBaseStreamPropertyInfo where
type AttrAllowedOps FilterOutputStreamBaseStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint FilterOutputStreamBaseStreamPropertyInfo = OutputStreamK
type AttrBaseTypeConstraint FilterOutputStreamBaseStreamPropertyInfo = FilterOutputStreamK
type AttrGetType FilterOutputStreamBaseStreamPropertyInfo = OutputStream
type AttrLabel FilterOutputStreamBaseStreamPropertyInfo = "FilterOutputStream::base-stream"
attrGet _ = getFilterOutputStreamBaseStream
attrSet _ = undefined
attrConstruct _ = constructFilterOutputStreamBaseStream
getFilterOutputStreamCloseBaseStream :: (MonadIO m, FilterOutputStreamK o) => o -> m Bool
getFilterOutputStreamCloseBaseStream obj = liftIO $ getObjectPropertyBool obj "close-base-stream"
constructFilterOutputStreamCloseBaseStream :: Bool -> IO ([Char], GValue)
constructFilterOutputStreamCloseBaseStream val = constructObjectPropertyBool "close-base-stream" val
data FilterOutputStreamCloseBaseStreamPropertyInfo
instance AttrInfo FilterOutputStreamCloseBaseStreamPropertyInfo where
type AttrAllowedOps FilterOutputStreamCloseBaseStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint FilterOutputStreamCloseBaseStreamPropertyInfo = (~) Bool
type AttrBaseTypeConstraint FilterOutputStreamCloseBaseStreamPropertyInfo = FilterOutputStreamK
type AttrGetType FilterOutputStreamCloseBaseStreamPropertyInfo = Bool
type AttrLabel FilterOutputStreamCloseBaseStreamPropertyInfo = "FilterOutputStream::close-base-stream"
attrGet _ = getFilterOutputStreamCloseBaseStream
attrSet _ = undefined
attrConstruct _ = constructFilterOutputStreamCloseBaseStream
type instance AttributeList FilterOutputStream = FilterOutputStreamAttributeList
type FilterOutputStreamAttributeList = ('[ '("base-stream", FilterOutputStreamBaseStreamPropertyInfo), '("close-base-stream", FilterOutputStreamCloseBaseStreamPropertyInfo)] :: [(Symbol, *)])
type instance SignalList FilterOutputStream = FilterOutputStreamSignalList
type FilterOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "g_filter_output_stream_get_base_stream" g_filter_output_stream_get_base_stream ::
Ptr FilterOutputStream ->
IO (Ptr OutputStream)
filterOutputStreamGetBaseStream ::
(MonadIO m, FilterOutputStreamK a) =>
a ->
m OutputStream
filterOutputStreamGetBaseStream _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_filter_output_stream_get_base_stream _obj'
checkUnexpectedReturnNULL "g_filter_output_stream_get_base_stream" result
result' <- (newObject OutputStream) result
touchManagedPtr _obj
return result'
foreign import ccall "g_filter_output_stream_get_close_base_stream" g_filter_output_stream_get_close_base_stream ::
Ptr FilterOutputStream ->
IO CInt
filterOutputStreamGetCloseBaseStream ::
(MonadIO m, FilterOutputStreamK a) =>
a ->
m Bool
filterOutputStreamGetCloseBaseStream _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_filter_output_stream_get_close_base_stream _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "g_filter_output_stream_set_close_base_stream" g_filter_output_stream_set_close_base_stream ::
Ptr FilterOutputStream ->
CInt ->
IO ()
filterOutputStreamSetCloseBaseStream ::
(MonadIO m, FilterOutputStreamK a) =>
a ->
Bool ->
m ()
filterOutputStreamSetCloseBaseStream _obj close_base = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let close_base' = (fromIntegral . fromEnum) close_base
g_filter_output_stream_set_close_base_stream _obj' close_base'
touchManagedPtr _obj
return ()