{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Pango.Structs.AttrString
(
AttrString(..) ,
newZeroAttrString ,
noAttrString ,
#if defined(ENABLE_OVERLOADING)
ResolveAttrStringMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
attrString_attr ,
#endif
getAttrStringAttr ,
#if defined(ENABLE_OVERLOADING)
attrString_value ,
#endif
clearAttrStringValue ,
getAttrStringValue ,
setAttrStringValue ,
) 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 AttrString = AttrString (ManagedPtr AttrString)
deriving (Eq)
instance WrappedPtr AttrString where
wrappedPtrCalloc = callocBytes 24
wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 24 >=> wrapPtr AttrString)
wrappedPtrFree = Just ptr_to_g_free
newZeroAttrString :: MonadIO m => m AttrString
newZeroAttrString = liftIO $ wrappedPtrCalloc >>= wrapPtr AttrString
instance tag ~ 'AttrSet => Constructible AttrString tag where
new _ attrs = do
o <- newZeroAttrString
GI.Attributes.set o attrs
return o
noAttrString :: Maybe AttrString
noAttrString = Nothing
getAttrStringAttr :: MonadIO m => AttrString -> m Pango.Attribute.Attribute
getAttrStringAttr 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 AttrStringAttrFieldInfo
instance AttrInfo AttrStringAttrFieldInfo where
type AttrBaseTypeConstraint AttrStringAttrFieldInfo = (~) AttrString
type AttrAllowedOps AttrStringAttrFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint AttrStringAttrFieldInfo = (~) (Ptr Pango.Attribute.Attribute)
type AttrTransferTypeConstraint AttrStringAttrFieldInfo = (~)(Ptr Pango.Attribute.Attribute)
type AttrTransferType AttrStringAttrFieldInfo = (Ptr Pango.Attribute.Attribute)
type AttrGetType AttrStringAttrFieldInfo = Pango.Attribute.Attribute
type AttrLabel AttrStringAttrFieldInfo = "attr"
type AttrOrigin AttrStringAttrFieldInfo = AttrString
attrGet = getAttrStringAttr
attrSet = undefined
attrConstruct = undefined
attrClear = undefined
attrTransfer = undefined
attrString_attr :: AttrLabelProxy "attr"
attrString_attr = AttrLabelProxy
#endif
getAttrStringValue :: MonadIO m => AttrString -> m (Maybe T.Text)
getAttrStringValue s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO CString
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- cstringToText val'
return val''
return result
setAttrStringValue :: MonadIO m => AttrString -> CString -> m ()
setAttrStringValue s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (val :: CString)
clearAttrStringValue :: MonadIO m => AttrString -> m ()
clearAttrStringValue s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data AttrStringValueFieldInfo
instance AttrInfo AttrStringValueFieldInfo where
type AttrBaseTypeConstraint AttrStringValueFieldInfo = (~) AttrString
type AttrAllowedOps AttrStringValueFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint AttrStringValueFieldInfo = (~) CString
type AttrTransferTypeConstraint AttrStringValueFieldInfo = (~)CString
type AttrTransferType AttrStringValueFieldInfo = CString
type AttrGetType AttrStringValueFieldInfo = Maybe T.Text
type AttrLabel AttrStringValueFieldInfo = "value"
type AttrOrigin AttrStringValueFieldInfo = AttrString
attrGet = getAttrStringValue
attrSet = setAttrStringValue
attrConstruct = undefined
attrClear = clearAttrStringValue
attrTransfer _ v = do
return v
attrString_value :: AttrLabelProxy "value"
attrString_value = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList AttrString
type instance O.AttributeList AttrString = AttrStringAttributeList
type AttrStringAttributeList = ('[ '("attr", AttrStringAttrFieldInfo), '("value", AttrStringValueFieldInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveAttrStringMethod (t :: Symbol) (o :: *) :: * where
ResolveAttrStringMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveAttrStringMethod t AttrString, O.MethodInfo info AttrString p) => OL.IsLabel t (AttrString -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif