qtah-qt5-0.8.0: src/Graphics/UI/Qtah/Core/QIODevice.hs

{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}
---------- GENERATED FILE, EDITS WILL BE LOST ----------

{-# LANGUAGE NoMonomorphismRestriction #-}

module Graphics.UI.Qtah.Core.QIODevice (
  QIODeviceValue (..),
  QIODeviceConstPtr (..),
  QIODevicePtr (..),
  QIODeviceConst,
  QIODevice,
  castConst,
  cast,
  downCastConst,
  downCast,
  atEnd,
  bytesAvailable,
  bytesToWrite,
  canReadLine,
  close,
  commitTransaction,
  currentReadChannel,
  currentWriteChannel,
  emitAboutToClose,
  emitBytesWritten,
  emitChannelBytesWritten,
  emitChannelReadyRead,
  emitReadChannelFinished,
  emitReadyRead,
  errorString,
  isOpen,
  isReadable,
  isSequential,
  isTextModeEnabled,
  isTransactionStarted,
  isWritable,
  open,
  openMode,
  peekByteArray,
  peekRaw,
  pos,
  putChar,
  readAll,
  readByteArray,
  readChannelCount,
  readLineByteArray,
  readLineByteArrayWithSize,
  readLineRaw,
  readRaw,
  reset,
  rollbackTransaction,
  seek,
  setCurrentReadChannel,
  setCurrentWriteChannel,
  setTextModeEnabled,
  size,
  skip,
  startTransaction,
  ungetChar,
  waitForBytesWritten,
  waitForReadyRead,
  writeByteArray,
  writeChannelCount,
  writeRaw,
  writeRawWithSize,
  aboutToCloseSignal,
  bytesWrittenSignal,
  channelBytesWrittenSignal,
  channelReadyReadSignal,
  readChannelFinishedSignal,
  readyReadSignal,
  QIODeviceOpenModeFlag (..),
  QIODeviceOpenMode,
  IsQIODeviceOpenMode (..),
  notOpen,
  readOnly,
  writeOnly,
  readWrite,
  append,
  truncate,
  text,
  unbuffered,
  newOnly,
  existingOnly,
  ) where

import qualified Data.Int as HoppyDI
import qualified Foreign.Hoppy.Runtime as QtahFHR
import Graphics.UI.Qtah.Generated.Core.QIODevice
import Graphics.UI.Qtah.Internal.Listener
import qualified Graphics.UI.Qtah.Signal as QtahSignal
import Prelude (($), (>>))
import qualified Prelude as HoppyP
import qualified Prelude as QtahP


castConst = toQIODeviceConst
cast = toQIODevice
downCastConst = downToQIODeviceConst
downCast = downToQIODevice

aboutToCloseSignal :: (QIODevicePtr object) => QtahSignal.Signal object (HoppyP.IO ())
aboutToCloseSignal = QtahSignal.Signal
  { QtahSignal.internalConnectSignal = \object' fn' -> do
    listener' <- listener_new object' "2aboutToClose()" fn'
    valid' <- listener_isValid listener'
    if valid'
      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'
      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing
  , QtahSignal.internalName = "QIODevice::aboutToClose (Listener)"
  }

bytesWrittenSignal :: (QIODevicePtr object) => QtahSignal.Signal object (HoppyDI.Int64 -> HoppyP.IO ())
bytesWrittenSignal = QtahSignal.Signal
  { QtahSignal.internalConnectSignal = \object' fn' -> do
    listener' <- listenerQlonglong_new object' "2bytesWritten(int64_t)" fn'
    valid' <- listenerQlonglong_isValid listener'
    if valid'
      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'
      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing
  , QtahSignal.internalName = "QIODevice::bytesWritten (ListenerQlonglong)"
  }

channelBytesWrittenSignal :: (QIODevicePtr object) => QtahSignal.Signal object (HoppyP.Int -> HoppyDI.Int64 -> HoppyP.IO ())
channelBytesWrittenSignal = QtahSignal.Signal
  { QtahSignal.internalConnectSignal = \object' fn' -> do
    listener' <- listenerIntQlonglong_new object' "2channelBytesWritten(int,int64_t)" fn'
    valid' <- listenerIntQlonglong_isValid listener'
    if valid'
      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'
      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing
  , QtahSignal.internalName = "QIODevice::channelBytesWritten (ListenerIntQlonglong)"
  }

channelReadyReadSignal :: (QIODevicePtr object) => QtahSignal.Signal object (HoppyP.Int -> HoppyP.IO ())
channelReadyReadSignal = QtahSignal.Signal
  { QtahSignal.internalConnectSignal = \object' fn' -> do
    listener' <- listenerInt_new object' "2channelReadyRead(int)" fn'
    valid' <- listenerInt_isValid listener'
    if valid'
      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'
      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing
  , QtahSignal.internalName = "QIODevice::channelReadyRead (ListenerInt)"
  }

readChannelFinishedSignal :: (QIODevicePtr object) => QtahSignal.Signal object (HoppyP.IO ())
readChannelFinishedSignal = QtahSignal.Signal
  { QtahSignal.internalConnectSignal = \object' fn' -> do
    listener' <- listener_new object' "2readChannelFinished()" fn'
    valid' <- listener_isValid listener'
    if valid'
      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'
      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing
  , QtahSignal.internalName = "QIODevice::readChannelFinished (Listener)"
  }

readyReadSignal :: (QIODevicePtr object) => QtahSignal.Signal object (HoppyP.IO ())
readyReadSignal = QtahSignal.Signal
  { QtahSignal.internalConnectSignal = \object' fn' -> do
    listener' <- listener_new object' "2readyRead()" fn'
    valid' <- listener_isValid listener'
    if valid'
      then QtahP.fmap QtahP.Just $ QtahSignal.internalMakeConnection listener'
      else QtahFHR.delete listener' >> QtahP.return QtahP.Nothing
  , QtahSignal.internalName = "QIODevice::readyRead (Listener)"
  }