QPaintDevice.hs

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

module Graphics.UI.Qtah.Generated.Gui.QPaintDevice (
  QPaintDeviceValue (..),
  QPaintDeviceConstPtr (..),
  colorCount,
  depth,
  devicePixelRatio,
  devicePixelRatioF,
  height,
  heightMM,
  logicalDpiX,
  logicalDpiY,
  paintingActive,
  physicalDpiX,
  physicalDpiY,
  width,
  widthMM,
  QPaintDevicePtr (..),
  QPaintDeviceConst (..),
  castQPaintDeviceToConst,
  QPaintDevice (..),
  castQPaintDeviceToNonconst,
  QPaintDeviceSuper (..),
  QPaintDeviceSuperConst (..),
  QPaintDevicePaintDeviceMetric (..),
  ) where

import qualified Foreign as HoppyF
import qualified Foreign.C as HoppyFC
import qualified Foreign.Hoppy.Runtime as HoppyFHR
import Prelude (($), (.), (/=), (=<<), (==))
import qualified Prelude as HoppyP

foreign import ccall "genpop__QPaintDevice_colorCount" colorCount' ::  HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QPaintDevice_depth" depth' ::  HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QPaintDevice_devicePixelRatio" devicePixelRatio' ::  HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QPaintDevice_devicePixelRatioF" devicePixelRatioF' ::  HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CDouble
foreign import ccall "genpop__QPaintDevice_height" height' ::  HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QPaintDevice_heightMM" heightMM' ::  HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QPaintDevice_logicalDpiX" logicalDpiX' ::  HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QPaintDevice_logicalDpiY" logicalDpiY' ::  HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QPaintDevice_paintingActive" paintingActive' ::  HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CBool
foreign import ccall "genpop__QPaintDevice_physicalDpiX" physicalDpiX' ::  HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QPaintDevice_physicalDpiY" physicalDpiY' ::  HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QPaintDevice_width" width' ::  HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QPaintDevice_widthMM" widthMM' ::  HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "gendel__QPaintDevice" delete'QPaintDevice :: HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO ()
foreign import ccall "&gendel__QPaintDevice" deletePtr'QPaintDevice :: HoppyF.FunPtr (HoppyF.Ptr QPaintDeviceConst -> HoppyP.IO ())

class QPaintDeviceValue a where
  withQPaintDevicePtr :: a -> (QPaintDeviceConst -> HoppyP.IO b) -> HoppyP.IO b

instance {-# OVERLAPPABLE #-} QPaintDeviceConstPtr a => QPaintDeviceValue a where
  withQPaintDevicePtr = HoppyP.flip ($) . toQPaintDeviceConst

class (HoppyFHR.CppPtr this) => QPaintDeviceConstPtr this where
  toQPaintDeviceConst :: this -> QPaintDeviceConst

colorCount :: (QPaintDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)
colorCount arg'1 =
  withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) =<<
  (colorCount' arg'1')

depth :: (QPaintDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)
depth arg'1 =
  withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) =<<
  (depth' arg'1')

devicePixelRatio :: (QPaintDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)
devicePixelRatio arg'1 =
  withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) =<<
  (devicePixelRatio' arg'1')

devicePixelRatioF :: (QPaintDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)
devicePixelRatioF arg'1 =
  withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    HoppyP.return . HoppyP.realToFrac
  ) =<<
  (devicePixelRatioF' arg'1')

height :: (QPaintDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)
height arg'1 =
  withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) =<<
  (height' arg'1')

heightMM :: (QPaintDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)
heightMM arg'1 =
  withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) =<<
  (heightMM' arg'1')

logicalDpiX :: (QPaintDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)
logicalDpiX arg'1 =
  withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) =<<
  (logicalDpiX' arg'1')

logicalDpiY :: (QPaintDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)
logicalDpiY arg'1 =
  withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) =<<
  (logicalDpiY' arg'1')

paintingActive :: (QPaintDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)
paintingActive arg'1 =
  withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    (HoppyP.return . (/= 0))
  ) =<<
  (paintingActive' arg'1')

physicalDpiX :: (QPaintDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)
physicalDpiX arg'1 =
  withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) =<<
  (physicalDpiX' arg'1')

physicalDpiY :: (QPaintDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)
physicalDpiY arg'1 =
  withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) =<<
  (physicalDpiY' arg'1')

width :: (QPaintDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)
width arg'1 =
  withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) =<<
  (width' arg'1')

widthMM :: (QPaintDeviceValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)
widthMM arg'1 =
  withQPaintDevicePtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) =<<
  (widthMM' arg'1')

class (QPaintDeviceConstPtr this) => QPaintDevicePtr this where
  toQPaintDevice :: this -> QPaintDevice

data QPaintDeviceConst =
    QPaintDeviceConst (HoppyF.Ptr QPaintDeviceConst)
  | QPaintDeviceConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPaintDeviceConst)
  deriving (HoppyP.Show)

instance HoppyP.Eq QPaintDeviceConst where
  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y

instance HoppyP.Ord QPaintDeviceConst where
  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)

castQPaintDeviceToConst :: QPaintDevice -> QPaintDeviceConst
castQPaintDeviceToConst (QPaintDevice ptr') = QPaintDeviceConst $ HoppyF.castPtr ptr'
castQPaintDeviceToConst (QPaintDeviceGc fptr' ptr') = QPaintDeviceConstGc fptr' $ HoppyF.castPtr ptr'

instance HoppyFHR.CppPtr QPaintDeviceConst where
  nullptr = QPaintDeviceConst HoppyF.nullPtr
  
  withCppPtr (QPaintDeviceConst ptr') f' = f' ptr'
  withCppPtr (QPaintDeviceConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'
  
  toPtr (QPaintDeviceConst ptr') = ptr'
  toPtr (QPaintDeviceConstGc _ ptr') = ptr'
  
  touchCppPtr (QPaintDeviceConst _) = HoppyP.return ()
  touchCppPtr (QPaintDeviceConstGc fptr' _) = HoppyF.touchForeignPtr fptr'

instance HoppyFHR.Deletable QPaintDeviceConst where
  delete (QPaintDeviceConst ptr') = delete'QPaintDevice ptr'
  delete (QPaintDeviceConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPaintDeviceConst", " object."]
  
  toGc this'@(QPaintDeviceConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPaintDeviceConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPaintDevice :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())
  toGc this'@(QPaintDeviceConstGc {}) = HoppyP.return this'

instance QPaintDeviceConstPtr QPaintDeviceConst where
  toQPaintDeviceConst = HoppyP.id

data QPaintDevice =
    QPaintDevice (HoppyF.Ptr QPaintDevice)
  | QPaintDeviceGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QPaintDevice)
  deriving (HoppyP.Show)

instance HoppyP.Eq QPaintDevice where
  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y

instance HoppyP.Ord QPaintDevice where
  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)

castQPaintDeviceToNonconst :: QPaintDeviceConst -> QPaintDevice
castQPaintDeviceToNonconst (QPaintDeviceConst ptr') = QPaintDevice $ HoppyF.castPtr ptr'
castQPaintDeviceToNonconst (QPaintDeviceConstGc fptr' ptr') = QPaintDeviceGc fptr' $ HoppyF.castPtr ptr'

instance HoppyFHR.CppPtr QPaintDevice where
  nullptr = QPaintDevice HoppyF.nullPtr
  
  withCppPtr (QPaintDevice ptr') f' = f' ptr'
  withCppPtr (QPaintDeviceGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'
  
  toPtr (QPaintDevice ptr') = ptr'
  toPtr (QPaintDeviceGc _ ptr') = ptr'
  
  touchCppPtr (QPaintDevice _) = HoppyP.return ()
  touchCppPtr (QPaintDeviceGc fptr' _) = HoppyF.touchForeignPtr fptr'

instance HoppyFHR.Deletable QPaintDevice where
  delete (QPaintDevice ptr') = delete'QPaintDevice $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QPaintDeviceConst)
  delete (QPaintDeviceGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QPaintDevice", " object."]
  
  toGc this'@(QPaintDevice ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QPaintDeviceGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QPaintDevice :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())
  toGc this'@(QPaintDeviceGc {}) = HoppyP.return this'

instance QPaintDeviceConstPtr QPaintDevice where
  toQPaintDeviceConst (QPaintDevice ptr') = QPaintDeviceConst $ (HoppyF.castPtr :: HoppyF.Ptr QPaintDevice -> HoppyF.Ptr QPaintDeviceConst) ptr'
  toQPaintDeviceConst (QPaintDeviceGc fptr' ptr') = QPaintDeviceConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QPaintDevice -> HoppyF.Ptr QPaintDeviceConst) ptr'

instance QPaintDevicePtr QPaintDevice where
  toQPaintDevice = HoppyP.id

class QPaintDeviceSuper a where
  downToQPaintDevice :: a -> QPaintDevice


class QPaintDeviceSuperConst a where
  downToQPaintDeviceConst :: a -> QPaintDeviceConst


instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QPaintDevice)) QPaintDevice where
  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'

instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QPaintDevice)) QPaintDevice where
  decode = HoppyP.fmap QPaintDevice . HoppyF.peek

data QPaintDevicePaintDeviceMetric =
  PdmWidth
  | PdmHeight
  | PdmWidthMm
  | PdmHeightMm
  | PdmNumColors
  | PdmDepth
  | PdmDpiX
  | PdmDpiY
  | PdmPhysicalDpiX
  | PdmPhysicalDpiY
  | PdmDevicePixelRatio
  | PdmDevicePixelRatioScaled
  | UnknownQPaintDevicePaintDeviceMetric (HoppyFC.CInt)
  deriving (HoppyP.Show)

instance HoppyFHR.CppEnum (HoppyFC.CInt) QPaintDevicePaintDeviceMetric where
  fromCppEnum PdmWidth = 1
  fromCppEnum PdmHeight = 2
  fromCppEnum PdmWidthMm = 3
  fromCppEnum PdmHeightMm = 4
  fromCppEnum PdmNumColors = 5
  fromCppEnum PdmDepth = 6
  fromCppEnum PdmDpiX = 7
  fromCppEnum PdmDpiY = 8
  fromCppEnum PdmPhysicalDpiX = 9
  fromCppEnum PdmPhysicalDpiY = 10
  fromCppEnum PdmDevicePixelRatio = 11
  fromCppEnum PdmDevicePixelRatioScaled = 12
  fromCppEnum (UnknownQPaintDevicePaintDeviceMetric n) = n
  
  toCppEnum (1) = PdmWidth
  toCppEnum (2) = PdmHeight
  toCppEnum (3) = PdmWidthMm
  toCppEnum (4) = PdmHeightMm
  toCppEnum (5) = PdmNumColors
  toCppEnum (6) = PdmDepth
  toCppEnum (7) = PdmDpiX
  toCppEnum (8) = PdmDpiY
  toCppEnum (9) = PdmPhysicalDpiX
  toCppEnum (10) = PdmPhysicalDpiY
  toCppEnum (11) = PdmDevicePixelRatio
  toCppEnum (12) = PdmDevicePixelRatioScaled
  toCppEnum n = UnknownQPaintDevicePaintDeviceMetric n

instance HoppyP.Eq QPaintDevicePaintDeviceMetric where
  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y

instance HoppyP.Ord QPaintDevicePaintDeviceMetric where
  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)