{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Pango.Structs.AttrFloat
(
AttrFloat(..) ,
newZeroAttrFloat ,
noAttrFloat ,
#if defined(ENABLE_OVERLOADING)
ResolveAttrFloatMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
attrFloat_attr ,
#endif
getAttrFloatAttr ,
#if defined(ENABLE_OVERLOADING)
attrFloat_value ,
#endif
getAttrFloatValue ,
setAttrFloatValue ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import {-# SOURCE #-} qualified GI.Pango.Structs.Attribute as Pango.Attribute
newtype AttrFloat = AttrFloat (ManagedPtr AttrFloat)
deriving (Eq)
instance WrappedPtr AttrFloat where
wrappedPtrCalloc = callocBytes 24
wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 24 >=> wrapPtr AttrFloat)
wrappedPtrFree = Just ptr_to_g_free
newZeroAttrFloat :: MonadIO m => m AttrFloat
newZeroAttrFloat = liftIO $ wrappedPtrCalloc >>= wrapPtr AttrFloat
instance tag ~ 'AttrSet => Constructible AttrFloat tag where
new _ attrs = do
o <- newZeroAttrFloat
GI.Attributes.set o attrs
return o
noAttrFloat :: Maybe AttrFloat
noAttrFloat = Nothing
getAttrFloatAttr :: MonadIO m => AttrFloat -> m Pango.Attribute.Attribute
getAttrFloatAttr s = liftIO $ withManagedPtr s $ \ptr -> do
let val = ptr `plusPtr` 0 :: (Ptr Pango.Attribute.Attribute)
val' <- (newBoxed Pango.Attribute.Attribute) val
return val'
#if defined(ENABLE_OVERLOADING)
data AttrFloatAttrFieldInfo
instance AttrInfo AttrFloatAttrFieldInfo where
type AttrBaseTypeConstraint AttrFloatAttrFieldInfo = (~) AttrFloat
type AttrAllowedOps AttrFloatAttrFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint AttrFloatAttrFieldInfo = (~) (Ptr Pango.Attribute.Attribute)
type AttrTransferTypeConstraint AttrFloatAttrFieldInfo = (~)(Ptr Pango.Attribute.Attribute)
type AttrTransferType AttrFloatAttrFieldInfo = (Ptr Pango.Attribute.Attribute)
type AttrGetType AttrFloatAttrFieldInfo = Pango.Attribute.Attribute
type AttrLabel AttrFloatAttrFieldInfo = "attr"
type AttrOrigin AttrFloatAttrFieldInfo = AttrFloat
attrGet = getAttrFloatAttr
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
attrFloat_attr :: AttrLabelProxy "attr"
attrFloat_attr = AttrLabelProxy
#endif
getAttrFloatValue :: MonadIO m => AttrFloat -> m Double
getAttrFloatValue s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO CDouble
let val' = realToFrac val
return val'
setAttrFloatValue :: MonadIO m => AttrFloat -> Double -> m ()
setAttrFloatValue s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = realToFrac val
poke (ptr `plusPtr` 16) (val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data AttrFloatValueFieldInfo
instance AttrInfo AttrFloatValueFieldInfo where
type AttrBaseTypeConstraint AttrFloatValueFieldInfo = (~) AttrFloat
type AttrAllowedOps AttrFloatValueFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint AttrFloatValueFieldInfo = (~) Double
type AttrTransferTypeConstraint AttrFloatValueFieldInfo = (~)Double
type AttrTransferType AttrFloatValueFieldInfo = Double
type AttrGetType AttrFloatValueFieldInfo = Double
type AttrLabel AttrFloatValueFieldInfo = "value"
type AttrOrigin AttrFloatValueFieldInfo = AttrFloat
attrGet = getAttrFloatValue
attrSet = setAttrFloatValue
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
attrFloat_value :: AttrLabelProxy "value"
attrFloat_value = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList AttrFloat
type instance O.AttributeList AttrFloat = AttrFloatAttributeList
type AttrFloatAttributeList = ('[ '("attr", AttrFloatAttrFieldInfo), '("value", AttrFloatValueFieldInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveAttrFloatMethod (t :: Symbol) (o :: *) :: * where
ResolveAttrFloatMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveAttrFloatMethod t AttrFloat, O.MethodInfo info AttrFloat p) => OL.IsLabel t (AttrFloat -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif