module GI.Gio.Objects.ConverterOutputStream
(
ConverterOutputStream(..) ,
ConverterOutputStreamK ,
toConverterOutputStream ,
noConverterOutputStream ,
converterOutputStreamGetConverter ,
converterOutputStreamNew ,
ConverterOutputStreamConverterPropertyInfo,
constructConverterOutputStreamConverter ,
getConverterOutputStreamConverter ,
) 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 ConverterOutputStream = ConverterOutputStream (ForeignPtr ConverterOutputStream)
foreign import ccall "g_converter_output_stream_get_type"
c_g_converter_output_stream_get_type :: IO GType
type instance ParentTypes ConverterOutputStream = ConverterOutputStreamParentTypes
type ConverterOutputStreamParentTypes = '[FilterOutputStream, OutputStream, GObject.Object, PollableOutputStream]
instance GObject ConverterOutputStream where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_g_converter_output_stream_get_type
class GObject o => ConverterOutputStreamK o
instance (GObject o, IsDescendantOf ConverterOutputStream o) => ConverterOutputStreamK o
toConverterOutputStream :: ConverterOutputStreamK o => o -> IO ConverterOutputStream
toConverterOutputStream = unsafeCastTo ConverterOutputStream
noConverterOutputStream :: Maybe ConverterOutputStream
noConverterOutputStream = Nothing
getConverterOutputStreamConverter :: (MonadIO m, ConverterOutputStreamK o) => o -> m Converter
getConverterOutputStreamConverter obj = liftIO $ getObjectPropertyObject obj "converter" Converter
constructConverterOutputStreamConverter :: (ConverterK a) => a -> IO ([Char], GValue)
constructConverterOutputStreamConverter val = constructObjectPropertyObject "converter" val
data ConverterOutputStreamConverterPropertyInfo
instance AttrInfo ConverterOutputStreamConverterPropertyInfo where
type AttrAllowedOps ConverterOutputStreamConverterPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint ConverterOutputStreamConverterPropertyInfo = ConverterK
type AttrBaseTypeConstraint ConverterOutputStreamConverterPropertyInfo = ConverterOutputStreamK
type AttrGetType ConverterOutputStreamConverterPropertyInfo = Converter
type AttrLabel ConverterOutputStreamConverterPropertyInfo = "ConverterOutputStream::converter"
attrGet _ = getConverterOutputStreamConverter
attrSet _ = undefined
attrConstruct _ = constructConverterOutputStreamConverter
type instance AttributeList ConverterOutputStream = ConverterOutputStreamAttributeList
type ConverterOutputStreamAttributeList = ('[ '("base-stream", FilterOutputStreamBaseStreamPropertyInfo), '("close-base-stream", FilterOutputStreamCloseBaseStreamPropertyInfo), '("converter", ConverterOutputStreamConverterPropertyInfo)] :: [(Symbol, *)])
type instance SignalList ConverterOutputStream = ConverterOutputStreamSignalList
type ConverterOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "g_converter_output_stream_new" g_converter_output_stream_new ::
Ptr OutputStream ->
Ptr Converter ->
IO (Ptr ConverterOutputStream)
converterOutputStreamNew ::
(MonadIO m, OutputStreamK a, ConverterK b) =>
a ->
b ->
m ConverterOutputStream
converterOutputStreamNew base_stream converter = liftIO $ do
let base_stream' = unsafeManagedPtrCastPtr base_stream
let converter' = unsafeManagedPtrCastPtr converter
result <- g_converter_output_stream_new base_stream' converter'
checkUnexpectedReturnNULL "g_converter_output_stream_new" result
result' <- (wrapObject ConverterOutputStream) result
touchManagedPtr base_stream
touchManagedPtr converter
return result'
foreign import ccall "g_converter_output_stream_get_converter" g_converter_output_stream_get_converter ::
Ptr ConverterOutputStream ->
IO (Ptr Converter)
converterOutputStreamGetConverter ::
(MonadIO m, ConverterOutputStreamK a) =>
a ->
m Converter
converterOutputStreamGetConverter _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_converter_output_stream_get_converter _obj'
checkUnexpectedReturnNULL "g_converter_output_stream_get_converter" result
result' <- (newObject Converter) result
touchManagedPtr _obj
return result'