module GI.Gio.Objects.BufferedOutputStream
(
BufferedOutputStream(..) ,
BufferedOutputStreamK ,
toBufferedOutputStream ,
noBufferedOutputStream ,
bufferedOutputStreamGetAutoGrow ,
bufferedOutputStreamGetBufferSize ,
bufferedOutputStreamNew ,
bufferedOutputStreamNewSized ,
bufferedOutputStreamSetAutoGrow ,
bufferedOutputStreamSetBufferSize ,
BufferedOutputStreamAutoGrowPropertyInfo,
constructBufferedOutputStreamAutoGrow ,
getBufferedOutputStreamAutoGrow ,
setBufferedOutputStreamAutoGrow ,
BufferedOutputStreamBufferSizePropertyInfo,
constructBufferedOutputStreamBufferSize ,
getBufferedOutputStreamBufferSize ,
setBufferedOutputStreamBufferSize ,
) 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 BufferedOutputStream = BufferedOutputStream (ForeignPtr BufferedOutputStream)
foreign import ccall "g_buffered_output_stream_get_type"
c_g_buffered_output_stream_get_type :: IO GType
type instance ParentTypes BufferedOutputStream = BufferedOutputStreamParentTypes
type BufferedOutputStreamParentTypes = '[FilterOutputStream, OutputStream, GObject.Object, Seekable]
instance GObject BufferedOutputStream where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_g_buffered_output_stream_get_type
class GObject o => BufferedOutputStreamK o
instance (GObject o, IsDescendantOf BufferedOutputStream o) => BufferedOutputStreamK o
toBufferedOutputStream :: BufferedOutputStreamK o => o -> IO BufferedOutputStream
toBufferedOutputStream = unsafeCastTo BufferedOutputStream
noBufferedOutputStream :: Maybe BufferedOutputStream
noBufferedOutputStream = Nothing
getBufferedOutputStreamAutoGrow :: (MonadIO m, BufferedOutputStreamK o) => o -> m Bool
getBufferedOutputStreamAutoGrow obj = liftIO $ getObjectPropertyBool obj "auto-grow"
setBufferedOutputStreamAutoGrow :: (MonadIO m, BufferedOutputStreamK o) => o -> Bool -> m ()
setBufferedOutputStreamAutoGrow obj val = liftIO $ setObjectPropertyBool obj "auto-grow" val
constructBufferedOutputStreamAutoGrow :: Bool -> IO ([Char], GValue)
constructBufferedOutputStreamAutoGrow val = constructObjectPropertyBool "auto-grow" val
data BufferedOutputStreamAutoGrowPropertyInfo
instance AttrInfo BufferedOutputStreamAutoGrowPropertyInfo where
type AttrAllowedOps BufferedOutputStreamAutoGrowPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint BufferedOutputStreamAutoGrowPropertyInfo = (~) Bool
type AttrBaseTypeConstraint BufferedOutputStreamAutoGrowPropertyInfo = BufferedOutputStreamK
type AttrGetType BufferedOutputStreamAutoGrowPropertyInfo = Bool
type AttrLabel BufferedOutputStreamAutoGrowPropertyInfo = "BufferedOutputStream::auto-grow"
attrGet _ = getBufferedOutputStreamAutoGrow
attrSet _ = setBufferedOutputStreamAutoGrow
attrConstruct _ = constructBufferedOutputStreamAutoGrow
getBufferedOutputStreamBufferSize :: (MonadIO m, BufferedOutputStreamK o) => o -> m Word32
getBufferedOutputStreamBufferSize obj = liftIO $ getObjectPropertyCUInt obj "buffer-size"
setBufferedOutputStreamBufferSize :: (MonadIO m, BufferedOutputStreamK o) => o -> Word32 -> m ()
setBufferedOutputStreamBufferSize obj val = liftIO $ setObjectPropertyCUInt obj "buffer-size" val
constructBufferedOutputStreamBufferSize :: Word32 -> IO ([Char], GValue)
constructBufferedOutputStreamBufferSize val = constructObjectPropertyCUInt "buffer-size" val
data BufferedOutputStreamBufferSizePropertyInfo
instance AttrInfo BufferedOutputStreamBufferSizePropertyInfo where
type AttrAllowedOps BufferedOutputStreamBufferSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint BufferedOutputStreamBufferSizePropertyInfo = (~) Word32
type AttrBaseTypeConstraint BufferedOutputStreamBufferSizePropertyInfo = BufferedOutputStreamK
type AttrGetType BufferedOutputStreamBufferSizePropertyInfo = Word32
type AttrLabel BufferedOutputStreamBufferSizePropertyInfo = "BufferedOutputStream::buffer-size"
attrGet _ = getBufferedOutputStreamBufferSize
attrSet _ = setBufferedOutputStreamBufferSize
attrConstruct _ = constructBufferedOutputStreamBufferSize
type instance AttributeList BufferedOutputStream = BufferedOutputStreamAttributeList
type BufferedOutputStreamAttributeList = ('[ '("auto-grow", BufferedOutputStreamAutoGrowPropertyInfo), '("base-stream", FilterOutputStreamBaseStreamPropertyInfo), '("buffer-size", BufferedOutputStreamBufferSizePropertyInfo), '("close-base-stream", FilterOutputStreamCloseBaseStreamPropertyInfo)] :: [(Symbol, *)])
type instance SignalList BufferedOutputStream = BufferedOutputStreamSignalList
type BufferedOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "g_buffered_output_stream_new" g_buffered_output_stream_new ::
Ptr OutputStream ->
IO (Ptr BufferedOutputStream)
bufferedOutputStreamNew ::
(MonadIO m, OutputStreamK a) =>
a ->
m BufferedOutputStream
bufferedOutputStreamNew base_stream = liftIO $ do
let base_stream' = unsafeManagedPtrCastPtr base_stream
result <- g_buffered_output_stream_new base_stream'
checkUnexpectedReturnNULL "g_buffered_output_stream_new" result
result' <- (wrapObject BufferedOutputStream) result
touchManagedPtr base_stream
return result'
foreign import ccall "g_buffered_output_stream_new_sized" g_buffered_output_stream_new_sized ::
Ptr OutputStream ->
Word64 ->
IO (Ptr BufferedOutputStream)
bufferedOutputStreamNewSized ::
(MonadIO m, OutputStreamK a) =>
a ->
Word64 ->
m BufferedOutputStream
bufferedOutputStreamNewSized base_stream size = liftIO $ do
let base_stream' = unsafeManagedPtrCastPtr base_stream
result <- g_buffered_output_stream_new_sized base_stream' size
checkUnexpectedReturnNULL "g_buffered_output_stream_new_sized" result
result' <- (wrapObject BufferedOutputStream) result
touchManagedPtr base_stream
return result'
foreign import ccall "g_buffered_output_stream_get_auto_grow" g_buffered_output_stream_get_auto_grow ::
Ptr BufferedOutputStream ->
IO CInt
bufferedOutputStreamGetAutoGrow ::
(MonadIO m, BufferedOutputStreamK a) =>
a ->
m Bool
bufferedOutputStreamGetAutoGrow _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_buffered_output_stream_get_auto_grow _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "g_buffered_output_stream_get_buffer_size" g_buffered_output_stream_get_buffer_size ::
Ptr BufferedOutputStream ->
IO Word64
bufferedOutputStreamGetBufferSize ::
(MonadIO m, BufferedOutputStreamK a) =>
a ->
m Word64
bufferedOutputStreamGetBufferSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_buffered_output_stream_get_buffer_size _obj'
touchManagedPtr _obj
return result
foreign import ccall "g_buffered_output_stream_set_auto_grow" g_buffered_output_stream_set_auto_grow ::
Ptr BufferedOutputStream ->
CInt ->
IO ()
bufferedOutputStreamSetAutoGrow ::
(MonadIO m, BufferedOutputStreamK a) =>
a ->
Bool ->
m ()
bufferedOutputStreamSetAutoGrow _obj auto_grow = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let auto_grow' = (fromIntegral . fromEnum) auto_grow
g_buffered_output_stream_set_auto_grow _obj' auto_grow'
touchManagedPtr _obj
return ()
foreign import ccall "g_buffered_output_stream_set_buffer_size" g_buffered_output_stream_set_buffer_size ::
Ptr BufferedOutputStream ->
Word64 ->
IO ()
bufferedOutputStreamSetBufferSize ::
(MonadIO m, BufferedOutputStreamK a) =>
a ->
Word64 ->
m ()
bufferedOutputStreamSetBufferSize _obj size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
g_buffered_output_stream_set_buffer_size _obj' size
touchManagedPtr _obj
return ()