diff --git a/GI/Pango.hs b/GI/Pango.hs
deleted file mode 100644
--- a/GI/Pango.hs
+++ /dev/null
@@ -1,44 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
--}
-
-module GI.Pango
- ( module GI.Pango.Callbacks ,
- module GI.Pango.Constants ,
- module GI.Pango.Enums ,
- module GI.Pango.Flags ,
- module GI.Pango.Functions ,
- module GI.Pango.Objects ,
- module GI.Pango.Structs ,
-
-
-
- module Data.GI.Base ,
-
-
- ) where
-
-import GI.Pango.Callbacks
-import GI.Pango.Constants
-import GI.Pango.Enums
-import GI.Pango.Flags
-import GI.Pango.Functions
-import GI.Pango.Objects
-import GI.Pango.Structs
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-import Data.GI.Base
-
diff --git a/GI/Pango/Callbacks.hs b/GI/Pango/Callbacks.hs
deleted file mode 100644
--- a/GI/Pango/Callbacks.hs
+++ /dev/null
@@ -1,311 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
--}
-
-module GI.Pango.Callbacks
- (
-
- -- * Signals
--- ** AttrClassDestroyFieldCallback
- AttrClassDestroyFieldCallback ,
- AttrClassDestroyFieldCallbackC ,
- attrClassDestroyFieldCallbackClosure ,
- attrClassDestroyFieldCallbackWrapper ,
- mkAttrClassDestroyFieldCallback ,
- noAttrClassDestroyFieldCallback ,
-
-
--- ** AttrClassEqualFieldCallback
- AttrClassEqualFieldCallback ,
- AttrClassEqualFieldCallbackC ,
- attrClassEqualFieldCallbackClosure ,
- attrClassEqualFieldCallbackWrapper ,
- mkAttrClassEqualFieldCallback ,
- noAttrClassEqualFieldCallback ,
-
-
--- ** AttrFilterFunc
- AttrFilterFunc ,
- AttrFilterFuncC ,
- attrFilterFuncClosure ,
- attrFilterFuncWrapper ,
- mkAttrFilterFunc ,
- noAttrFilterFunc ,
-
-
--- ** FontsetForeachFunc
- FontsetForeachFunc ,
- FontsetForeachFuncC ,
- fontsetForeachFuncClosure ,
- fontsetForeachFuncWrapper ,
- mkFontsetForeachFunc ,
- noFontsetForeachFunc ,
-
-
--- ** IncludedModuleExitFieldCallback
- IncludedModuleExitFieldCallback ,
- IncludedModuleExitFieldCallbackC ,
- includedModuleExitFieldCallbackClosure ,
- includedModuleExitFieldCallbackWrapper ,
- mkIncludedModuleExitFieldCallback ,
- noIncludedModuleExitFieldCallback ,
-
-
--- ** IncludedModuleInitFieldCallback
- IncludedModuleInitFieldCallback ,
- IncludedModuleInitFieldCallbackC ,
- includedModuleInitFieldCallbackClosure ,
- includedModuleInitFieldCallbackWrapper ,
- mkIncludedModuleInitFieldCallback ,
- noIncludedModuleInitFieldCallback ,
-
-
--- ** IncludedModuleListFieldCallback
- IncludedModuleListFieldCallback ,
- IncludedModuleListFieldCallbackC ,
- includedModuleListFieldCallbackClosure ,
- includedModuleListFieldCallbackWrapper ,
- mkIncludedModuleListFieldCallback ,
- noIncludedModuleListFieldCallback ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-
-import qualified GI.GObject as GObject
-
--- callback IncludedModuleListFieldCallback
-includedModuleListFieldCallbackClosure :: IncludedModuleListFieldCallback -> IO Closure
-includedModuleListFieldCallbackClosure cb = newCClosure =<< mkIncludedModuleListFieldCallback wrapped
- where wrapped = includedModuleListFieldCallbackWrapper Nothing cb
-
-type IncludedModuleListFieldCallbackC =
- Ptr EngineInfo ->
- Int32 ->
- IO ()
-
-foreign import ccall "wrapper"
- mkIncludedModuleListFieldCallback :: IncludedModuleListFieldCallbackC -> IO (FunPtr IncludedModuleListFieldCallbackC)
-
-type IncludedModuleListFieldCallback =
- EngineInfo ->
- Int32 ->
- IO ()
-
-noIncludedModuleListFieldCallback :: Maybe IncludedModuleListFieldCallback
-noIncludedModuleListFieldCallback = Nothing
-
-includedModuleListFieldCallbackWrapper ::
- Maybe (Ptr (FunPtr (IncludedModuleListFieldCallbackC))) ->
- IncludedModuleListFieldCallback ->
- Ptr EngineInfo ->
- Int32 ->
- IO ()
-includedModuleListFieldCallbackWrapper funptrptr _cb engines nEngines = do
- engines' <- (newPtr EngineInfo) engines
- _cb engines' nEngines
- maybeReleaseFunPtr funptrptr
-
--- callback IncludedModuleInitFieldCallback
-includedModuleInitFieldCallbackClosure :: IncludedModuleInitFieldCallback -> IO Closure
-includedModuleInitFieldCallbackClosure cb = newCClosure =<< mkIncludedModuleInitFieldCallback wrapped
- where wrapped = includedModuleInitFieldCallbackWrapper Nothing cb
-
-type IncludedModuleInitFieldCallbackC =
- Ptr GObject.TypeModule ->
- IO ()
-
-foreign import ccall "wrapper"
- mkIncludedModuleInitFieldCallback :: IncludedModuleInitFieldCallbackC -> IO (FunPtr IncludedModuleInitFieldCallbackC)
-
-type IncludedModuleInitFieldCallback =
- GObject.TypeModule ->
- IO ()
-
-noIncludedModuleInitFieldCallback :: Maybe IncludedModuleInitFieldCallback
-noIncludedModuleInitFieldCallback = Nothing
-
-includedModuleInitFieldCallbackWrapper ::
- Maybe (Ptr (FunPtr (IncludedModuleInitFieldCallbackC))) ->
- IncludedModuleInitFieldCallback ->
- Ptr GObject.TypeModule ->
- IO ()
-includedModuleInitFieldCallbackWrapper funptrptr _cb module_ = do
- module_' <- (newObject GObject.TypeModule) module_
- _cb module_'
- maybeReleaseFunPtr funptrptr
-
--- callback IncludedModuleExitFieldCallback
-includedModuleExitFieldCallbackClosure :: IncludedModuleExitFieldCallback -> IO Closure
-includedModuleExitFieldCallbackClosure cb = newCClosure =<< mkIncludedModuleExitFieldCallback wrapped
- where wrapped = includedModuleExitFieldCallbackWrapper Nothing cb
-
-type IncludedModuleExitFieldCallbackC =
- IO ()
-
-foreign import ccall "wrapper"
- mkIncludedModuleExitFieldCallback :: IncludedModuleExitFieldCallbackC -> IO (FunPtr IncludedModuleExitFieldCallbackC)
-
-type IncludedModuleExitFieldCallback =
- IO ()
-
-noIncludedModuleExitFieldCallback :: Maybe IncludedModuleExitFieldCallback
-noIncludedModuleExitFieldCallback = Nothing
-
-includedModuleExitFieldCallbackWrapper ::
- Maybe (Ptr (FunPtr (IncludedModuleExitFieldCallbackC))) ->
- IncludedModuleExitFieldCallback ->
- IO ()
-includedModuleExitFieldCallbackWrapper funptrptr _cb = do
- _cb
- maybeReleaseFunPtr funptrptr
-
--- callback FontsetForeachFunc
-fontsetForeachFuncClosure :: FontsetForeachFunc -> IO Closure
-fontsetForeachFuncClosure cb = newCClosure =<< mkFontsetForeachFunc wrapped
- where wrapped = fontsetForeachFuncWrapper Nothing cb
-
-type FontsetForeachFuncC =
- Ptr Fontset ->
- Ptr Font ->
- Ptr () ->
- IO CInt
-
-foreign import ccall "wrapper"
- mkFontsetForeachFunc :: FontsetForeachFuncC -> IO (FunPtr FontsetForeachFuncC)
-
-type FontsetForeachFunc =
- Fontset ->
- Font ->
- IO Bool
-
-noFontsetForeachFunc :: Maybe FontsetForeachFunc
-noFontsetForeachFunc = Nothing
-
-fontsetForeachFuncWrapper ::
- Maybe (Ptr (FunPtr (FontsetForeachFuncC))) ->
- FontsetForeachFunc ->
- Ptr Fontset ->
- Ptr Font ->
- Ptr () ->
- IO CInt
-fontsetForeachFuncWrapper funptrptr _cb fontset font _ = do
- fontset' <- (newObject Fontset) fontset
- font' <- (newObject Font) font
- result <- _cb fontset' font'
- maybeReleaseFunPtr funptrptr
- let result' = (fromIntegral . fromEnum) result
- return result'
-
--- callback AttrFilterFunc
-attrFilterFuncClosure :: AttrFilterFunc -> IO Closure
-attrFilterFuncClosure cb = newCClosure =<< mkAttrFilterFunc wrapped
- where wrapped = attrFilterFuncWrapper Nothing cb
-
-type AttrFilterFuncC =
- Ptr Attribute ->
- Ptr () ->
- IO CInt
-
-foreign import ccall "wrapper"
- mkAttrFilterFunc :: AttrFilterFuncC -> IO (FunPtr AttrFilterFuncC)
-
-type AttrFilterFunc =
- Attribute ->
- IO Bool
-
-noAttrFilterFunc :: Maybe AttrFilterFunc
-noAttrFilterFunc = Nothing
-
-attrFilterFuncWrapper ::
- Maybe (Ptr (FunPtr (AttrFilterFuncC))) ->
- AttrFilterFunc ->
- Ptr Attribute ->
- Ptr () ->
- IO CInt
-attrFilterFuncWrapper funptrptr _cb attribute _ = do
- attribute' <- (newPtr Attribute) attribute
- result <- _cb attribute'
- maybeReleaseFunPtr funptrptr
- let result' = (fromIntegral . fromEnum) result
- return result'
-
--- callback AttrClassEqualFieldCallback
-attrClassEqualFieldCallbackClosure :: AttrClassEqualFieldCallback -> IO Closure
-attrClassEqualFieldCallbackClosure cb = newCClosure =<< mkAttrClassEqualFieldCallback wrapped
- where wrapped = attrClassEqualFieldCallbackWrapper Nothing cb
-
-type AttrClassEqualFieldCallbackC =
- Ptr Attribute ->
- Ptr Attribute ->
- IO CInt
-
-foreign import ccall "wrapper"
- mkAttrClassEqualFieldCallback :: AttrClassEqualFieldCallbackC -> IO (FunPtr AttrClassEqualFieldCallbackC)
-
-type AttrClassEqualFieldCallback =
- Attribute ->
- Attribute ->
- IO Bool
-
-noAttrClassEqualFieldCallback :: Maybe AttrClassEqualFieldCallback
-noAttrClassEqualFieldCallback = Nothing
-
-attrClassEqualFieldCallbackWrapper ::
- Maybe (Ptr (FunPtr (AttrClassEqualFieldCallbackC))) ->
- AttrClassEqualFieldCallback ->
- Ptr Attribute ->
- Ptr Attribute ->
- IO CInt
-attrClassEqualFieldCallbackWrapper funptrptr _cb attr1 attr2 = do
- attr1' <- (newPtr Attribute) attr1
- attr2' <- (newPtr Attribute) attr2
- result <- _cb attr1' attr2'
- maybeReleaseFunPtr funptrptr
- let result' = (fromIntegral . fromEnum) result
- return result'
-
--- callback AttrClassDestroyFieldCallback
-attrClassDestroyFieldCallbackClosure :: AttrClassDestroyFieldCallback -> IO Closure
-attrClassDestroyFieldCallbackClosure cb = newCClosure =<< mkAttrClassDestroyFieldCallback wrapped
- where wrapped = attrClassDestroyFieldCallbackWrapper Nothing cb
-
-type AttrClassDestroyFieldCallbackC =
- Ptr Attribute ->
- IO ()
-
-foreign import ccall "wrapper"
- mkAttrClassDestroyFieldCallback :: AttrClassDestroyFieldCallbackC -> IO (FunPtr AttrClassDestroyFieldCallbackC)
-
-type AttrClassDestroyFieldCallback =
- Attribute ->
- IO ()
-
-noAttrClassDestroyFieldCallback :: Maybe AttrClassDestroyFieldCallback
-noAttrClassDestroyFieldCallback = Nothing
-
-attrClassDestroyFieldCallbackWrapper ::
- Maybe (Ptr (FunPtr (AttrClassDestroyFieldCallbackC))) ->
- AttrClassDestroyFieldCallback ->
- Ptr Attribute ->
- IO ()
-attrClassDestroyFieldCallbackWrapper funptrptr _cb attr = do
- attr' <- (newPtr Attribute) attr
- _cb attr'
- maybeReleaseFunPtr funptrptr
-
-
diff --git a/GI/Pango/Constants.hs b/GI/Pango/Constants.hs
deleted file mode 100644
--- a/GI/Pango/Constants.hs
+++ /dev/null
@@ -1,73 +0,0 @@
-{-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-}
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
--}
-
-module GI.Pango.Constants
- (
- pattern UNKNOWN_GLYPH_WIDTH ,
- pattern UNKNOWN_GLYPH_HEIGHT ,
- pattern SCALE ,
- pattern RENDER_TYPE_NONE ,
- pattern GLYPH_UNKNOWN_FLAG ,
- pattern GLYPH_INVALID_INPUT ,
- pattern GLYPH_EMPTY ,
- pattern ENGINE_TYPE_SHAPE ,
- pattern ENGINE_TYPE_LANG ,
- pattern ATTR_INDEX_FROM_TEXT_BEGINNING ,
- pattern ANALYSIS_FLAG_IS_ELLIPSIS ,
- pattern ANALYSIS_FLAG_CENTERED_BASELINE ,
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-
-pattern UNKNOWN_GLYPH_WIDTH = 10 :: Int32
-
-
-pattern UNKNOWN_GLYPH_HEIGHT = 14 :: Int32
-
-
-pattern SCALE = 1024 :: Int32
-
-{-# DEPRECATED RENDER_TYPE_NONE ["(Since version 1.38)"]#-}
-pattern RENDER_TYPE_NONE = "PangoRenderNone" :: T.Text
-
-
-pattern GLYPH_UNKNOWN_FLAG = 268435456 :: Word32
-
-
-pattern GLYPH_INVALID_INPUT = 4294967295 :: Word32
-
-
-pattern GLYPH_EMPTY = 268435455 :: Word32
-
-{-# DEPRECATED ENGINE_TYPE_SHAPE ["(Since version 1.38)"]#-}
-pattern ENGINE_TYPE_SHAPE = "PangoEngineShape" :: T.Text
-
-{-# DEPRECATED ENGINE_TYPE_LANG ["(Since version 1.38)"]#-}
-pattern ENGINE_TYPE_LANG = "PangoEngineLang" :: T.Text
-
-
-pattern ATTR_INDEX_FROM_TEXT_BEGINNING = 0 :: Int32
-
-
-pattern ANALYSIS_FLAG_IS_ELLIPSIS = 2 :: Int32
-
-
-pattern ANALYSIS_FLAG_CENTERED_BASELINE = 1 :: Int32
-
-
diff --git a/GI/Pango/Enums.hs b/GI/Pango/Enums.hs
deleted file mode 100644
--- a/GI/Pango/Enums.hs
+++ /dev/null
@@ -1,930 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
--}
-
-module GI.Pango.Enums
- (
-
--- * Exported types
- WrapMode(..) ,
- Weight(..) ,
- Variant(..) ,
- Underline(..) ,
- TabAlign(..) ,
- Style(..) ,
- Stretch(..) ,
- Script(..) ,
- RenderPart(..) ,
- GravityHint(..) ,
- Gravity(..) ,
- EllipsizeMode(..) ,
- Direction(..) ,
- CoverageLevel(..) ,
- BidiType(..) ,
- AttrType(..) ,
- Alignment(..) ,
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-
-
-
--- Enum WrapMode
-
-data WrapMode =
- WrapModeWord
- | WrapModeChar
- | WrapModeWordChar
- | AnotherWrapMode Int
- deriving (Show, Eq)
-
-instance Enum WrapMode where
- fromEnum WrapModeWord = 0
- fromEnum WrapModeChar = 1
- fromEnum WrapModeWordChar = 2
- fromEnum (AnotherWrapMode k) = k
-
- toEnum 0 = WrapModeWord
- toEnum 1 = WrapModeChar
- toEnum 2 = WrapModeWordChar
- toEnum k = AnotherWrapMode k
-
-foreign import ccall "pango_wrap_mode_get_type" c_pango_wrap_mode_get_type ::
- IO GType
-
-instance BoxedEnum WrapMode where
- boxedEnumType _ = c_pango_wrap_mode_get_type
-
--- Enum Weight
-
-data Weight =
- WeightThin
- | WeightUltralight
- | WeightLight
- | WeightSemilight
- | WeightBook
- | WeightNormal
- | WeightMedium
- | WeightSemibold
- | WeightBold
- | WeightUltrabold
- | WeightHeavy
- | WeightUltraheavy
- | AnotherWeight Int
- deriving (Show, Eq)
-
-instance Enum Weight where
- fromEnum WeightThin = 100
- fromEnum WeightUltralight = 200
- fromEnum WeightLight = 300
- fromEnum WeightSemilight = 350
- fromEnum WeightBook = 380
- fromEnum WeightNormal = 400
- fromEnum WeightMedium = 500
- fromEnum WeightSemibold = 600
- fromEnum WeightBold = 700
- fromEnum WeightUltrabold = 800
- fromEnum WeightHeavy = 900
- fromEnum WeightUltraheavy = 1000
- fromEnum (AnotherWeight k) = k
-
- toEnum 100 = WeightThin
- toEnum 200 = WeightUltralight
- toEnum 300 = WeightLight
- toEnum 350 = WeightSemilight
- toEnum 380 = WeightBook
- toEnum 400 = WeightNormal
- toEnum 500 = WeightMedium
- toEnum 600 = WeightSemibold
- toEnum 700 = WeightBold
- toEnum 800 = WeightUltrabold
- toEnum 900 = WeightHeavy
- toEnum 1000 = WeightUltraheavy
- toEnum k = AnotherWeight k
-
-foreign import ccall "pango_weight_get_type" c_pango_weight_get_type ::
- IO GType
-
-instance BoxedEnum Weight where
- boxedEnumType _ = c_pango_weight_get_type
-
--- Enum Variant
-
-data Variant =
- VariantNormal
- | VariantSmallCaps
- | AnotherVariant Int
- deriving (Show, Eq)
-
-instance Enum Variant where
- fromEnum VariantNormal = 0
- fromEnum VariantSmallCaps = 1
- fromEnum (AnotherVariant k) = k
-
- toEnum 0 = VariantNormal
- toEnum 1 = VariantSmallCaps
- toEnum k = AnotherVariant k
-
-foreign import ccall "pango_variant_get_type" c_pango_variant_get_type ::
- IO GType
-
-instance BoxedEnum Variant where
- boxedEnumType _ = c_pango_variant_get_type
-
--- Enum Underline
-
-data Underline =
- UnderlineNone
- | UnderlineSingle
- | UnderlineDouble
- | UnderlineLow
- | UnderlineError
- | AnotherUnderline Int
- deriving (Show, Eq)
-
-instance Enum Underline where
- fromEnum UnderlineNone = 0
- fromEnum UnderlineSingle = 1
- fromEnum UnderlineDouble = 2
- fromEnum UnderlineLow = 3
- fromEnum UnderlineError = 4
- fromEnum (AnotherUnderline k) = k
-
- toEnum 0 = UnderlineNone
- toEnum 1 = UnderlineSingle
- toEnum 2 = UnderlineDouble
- toEnum 3 = UnderlineLow
- toEnum 4 = UnderlineError
- toEnum k = AnotherUnderline k
-
-foreign import ccall "pango_underline_get_type" c_pango_underline_get_type ::
- IO GType
-
-instance BoxedEnum Underline where
- boxedEnumType _ = c_pango_underline_get_type
-
--- Enum TabAlign
-
-data TabAlign =
- TabAlignLeft
- | AnotherTabAlign Int
- deriving (Show, Eq)
-
-instance Enum TabAlign where
- fromEnum TabAlignLeft = 0
- fromEnum (AnotherTabAlign k) = k
-
- toEnum 0 = TabAlignLeft
- toEnum k = AnotherTabAlign k
-
-foreign import ccall "pango_tab_align_get_type" c_pango_tab_align_get_type ::
- IO GType
-
-instance BoxedEnum TabAlign where
- boxedEnumType _ = c_pango_tab_align_get_type
-
--- Enum Style
-
-data Style =
- StyleNormal
- | StyleOblique
- | StyleItalic
- | AnotherStyle Int
- deriving (Show, Eq)
-
-instance Enum Style where
- fromEnum StyleNormal = 0
- fromEnum StyleOblique = 1
- fromEnum StyleItalic = 2
- fromEnum (AnotherStyle k) = k
-
- toEnum 0 = StyleNormal
- toEnum 1 = StyleOblique
- toEnum 2 = StyleItalic
- toEnum k = AnotherStyle k
-
-foreign import ccall "pango_style_get_type" c_pango_style_get_type ::
- IO GType
-
-instance BoxedEnum Style where
- boxedEnumType _ = c_pango_style_get_type
-
--- Enum Stretch
-
-data Stretch =
- StretchUltraCondensed
- | StretchExtraCondensed
- | StretchCondensed
- | StretchSemiCondensed
- | StretchNormal
- | StretchSemiExpanded
- | StretchExpanded
- | StretchExtraExpanded
- | StretchUltraExpanded
- | AnotherStretch Int
- deriving (Show, Eq)
-
-instance Enum Stretch where
- fromEnum StretchUltraCondensed = 0
- fromEnum StretchExtraCondensed = 1
- fromEnum StretchCondensed = 2
- fromEnum StretchSemiCondensed = 3
- fromEnum StretchNormal = 4
- fromEnum StretchSemiExpanded = 5
- fromEnum StretchExpanded = 6
- fromEnum StretchExtraExpanded = 7
- fromEnum StretchUltraExpanded = 8
- fromEnum (AnotherStretch k) = k
-
- toEnum 0 = StretchUltraCondensed
- toEnum 1 = StretchExtraCondensed
- toEnum 2 = StretchCondensed
- toEnum 3 = StretchSemiCondensed
- toEnum 4 = StretchNormal
- toEnum 5 = StretchSemiExpanded
- toEnum 6 = StretchExpanded
- toEnum 7 = StretchExtraExpanded
- toEnum 8 = StretchUltraExpanded
- toEnum k = AnotherStretch k
-
-foreign import ccall "pango_stretch_get_type" c_pango_stretch_get_type ::
- IO GType
-
-instance BoxedEnum Stretch where
- boxedEnumType _ = c_pango_stretch_get_type
-
--- Enum Script
-
-data Script =
- ScriptInvalidCode
- | ScriptCommon
- | ScriptInherited
- | ScriptArabic
- | ScriptArmenian
- | ScriptBengali
- | ScriptBopomofo
- | ScriptCherokee
- | ScriptCoptic
- | ScriptCyrillic
- | ScriptDeseret
- | ScriptDevanagari
- | ScriptEthiopic
- | ScriptGeorgian
- | ScriptGothic
- | ScriptGreek
- | ScriptGujarati
- | ScriptGurmukhi
- | ScriptHan
- | ScriptHangul
- | ScriptHebrew
- | ScriptHiragana
- | ScriptKannada
- | ScriptKatakana
- | ScriptKhmer
- | ScriptLao
- | ScriptLatin
- | ScriptMalayalam
- | ScriptMongolian
- | ScriptMyanmar
- | ScriptOgham
- | ScriptOldItalic
- | ScriptOriya
- | ScriptRunic
- | ScriptSinhala
- | ScriptSyriac
- | ScriptTamil
- | ScriptTelugu
- | ScriptThaana
- | ScriptThai
- | ScriptTibetan
- | ScriptCanadianAboriginal
- | ScriptYi
- | ScriptTagalog
- | ScriptHanunoo
- | ScriptBuhid
- | ScriptTagbanwa
- | ScriptBraille
- | ScriptCypriot
- | ScriptLimbu
- | ScriptOsmanya
- | ScriptShavian
- | ScriptLinearB
- | ScriptTaiLe
- | ScriptUgaritic
- | ScriptNewTaiLue
- | ScriptBuginese
- | ScriptGlagolitic
- | ScriptTifinagh
- | ScriptSylotiNagri
- | ScriptOldPersian
- | ScriptKharoshthi
- | ScriptUnknown
- | ScriptBalinese
- | ScriptCuneiform
- | ScriptPhoenician
- | ScriptPhagsPa
- | ScriptNko
- | ScriptKayahLi
- | ScriptLepcha
- | ScriptRejang
- | ScriptSundanese
- | ScriptSaurashtra
- | ScriptCham
- | ScriptOlChiki
- | ScriptVai
- | ScriptCarian
- | ScriptLycian
- | ScriptLydian
- | ScriptBatak
- | ScriptBrahmi
- | ScriptMandaic
- | ScriptChakma
- | ScriptMeroiticCursive
- | ScriptMeroiticHieroglyphs
- | ScriptMiao
- | ScriptSharada
- | ScriptSoraSompeng
- | ScriptTakri
- | AnotherScript Int
- deriving (Show, Eq)
-
-instance Enum Script where
- fromEnum ScriptInvalidCode = -1
- fromEnum ScriptCommon = 0
- fromEnum ScriptInherited = 1
- fromEnum ScriptArabic = 2
- fromEnum ScriptArmenian = 3
- fromEnum ScriptBengali = 4
- fromEnum ScriptBopomofo = 5
- fromEnum ScriptCherokee = 6
- fromEnum ScriptCoptic = 7
- fromEnum ScriptCyrillic = 8
- fromEnum ScriptDeseret = 9
- fromEnum ScriptDevanagari = 10
- fromEnum ScriptEthiopic = 11
- fromEnum ScriptGeorgian = 12
- fromEnum ScriptGothic = 13
- fromEnum ScriptGreek = 14
- fromEnum ScriptGujarati = 15
- fromEnum ScriptGurmukhi = 16
- fromEnum ScriptHan = 17
- fromEnum ScriptHangul = 18
- fromEnum ScriptHebrew = 19
- fromEnum ScriptHiragana = 20
- fromEnum ScriptKannada = 21
- fromEnum ScriptKatakana = 22
- fromEnum ScriptKhmer = 23
- fromEnum ScriptLao = 24
- fromEnum ScriptLatin = 25
- fromEnum ScriptMalayalam = 26
- fromEnum ScriptMongolian = 27
- fromEnum ScriptMyanmar = 28
- fromEnum ScriptOgham = 29
- fromEnum ScriptOldItalic = 30
- fromEnum ScriptOriya = 31
- fromEnum ScriptRunic = 32
- fromEnum ScriptSinhala = 33
- fromEnum ScriptSyriac = 34
- fromEnum ScriptTamil = 35
- fromEnum ScriptTelugu = 36
- fromEnum ScriptThaana = 37
- fromEnum ScriptThai = 38
- fromEnum ScriptTibetan = 39
- fromEnum ScriptCanadianAboriginal = 40
- fromEnum ScriptYi = 41
- fromEnum ScriptTagalog = 42
- fromEnum ScriptHanunoo = 43
- fromEnum ScriptBuhid = 44
- fromEnum ScriptTagbanwa = 45
- fromEnum ScriptBraille = 46
- fromEnum ScriptCypriot = 47
- fromEnum ScriptLimbu = 48
- fromEnum ScriptOsmanya = 49
- fromEnum ScriptShavian = 50
- fromEnum ScriptLinearB = 51
- fromEnum ScriptTaiLe = 52
- fromEnum ScriptUgaritic = 53
- fromEnum ScriptNewTaiLue = 54
- fromEnum ScriptBuginese = 55
- fromEnum ScriptGlagolitic = 56
- fromEnum ScriptTifinagh = 57
- fromEnum ScriptSylotiNagri = 58
- fromEnum ScriptOldPersian = 59
- fromEnum ScriptKharoshthi = 60
- fromEnum ScriptUnknown = 61
- fromEnum ScriptBalinese = 62
- fromEnum ScriptCuneiform = 63
- fromEnum ScriptPhoenician = 64
- fromEnum ScriptPhagsPa = 65
- fromEnum ScriptNko = 66
- fromEnum ScriptKayahLi = 67
- fromEnum ScriptLepcha = 68
- fromEnum ScriptRejang = 69
- fromEnum ScriptSundanese = 70
- fromEnum ScriptSaurashtra = 71
- fromEnum ScriptCham = 72
- fromEnum ScriptOlChiki = 73
- fromEnum ScriptVai = 74
- fromEnum ScriptCarian = 75
- fromEnum ScriptLycian = 76
- fromEnum ScriptLydian = 77
- fromEnum ScriptBatak = 78
- fromEnum ScriptBrahmi = 79
- fromEnum ScriptMandaic = 80
- fromEnum ScriptChakma = 81
- fromEnum ScriptMeroiticCursive = 82
- fromEnum ScriptMeroiticHieroglyphs = 83
- fromEnum ScriptMiao = 84
- fromEnum ScriptSharada = 85
- fromEnum ScriptSoraSompeng = 86
- fromEnum ScriptTakri = 87
- fromEnum (AnotherScript k) = k
-
- toEnum -1 = ScriptInvalidCode
- toEnum 0 = ScriptCommon
- toEnum 1 = ScriptInherited
- toEnum 2 = ScriptArabic
- toEnum 3 = ScriptArmenian
- toEnum 4 = ScriptBengali
- toEnum 5 = ScriptBopomofo
- toEnum 6 = ScriptCherokee
- toEnum 7 = ScriptCoptic
- toEnum 8 = ScriptCyrillic
- toEnum 9 = ScriptDeseret
- toEnum 10 = ScriptDevanagari
- toEnum 11 = ScriptEthiopic
- toEnum 12 = ScriptGeorgian
- toEnum 13 = ScriptGothic
- toEnum 14 = ScriptGreek
- toEnum 15 = ScriptGujarati
- toEnum 16 = ScriptGurmukhi
- toEnum 17 = ScriptHan
- toEnum 18 = ScriptHangul
- toEnum 19 = ScriptHebrew
- toEnum 20 = ScriptHiragana
- toEnum 21 = ScriptKannada
- toEnum 22 = ScriptKatakana
- toEnum 23 = ScriptKhmer
- toEnum 24 = ScriptLao
- toEnum 25 = ScriptLatin
- toEnum 26 = ScriptMalayalam
- toEnum 27 = ScriptMongolian
- toEnum 28 = ScriptMyanmar
- toEnum 29 = ScriptOgham
- toEnum 30 = ScriptOldItalic
- toEnum 31 = ScriptOriya
- toEnum 32 = ScriptRunic
- toEnum 33 = ScriptSinhala
- toEnum 34 = ScriptSyriac
- toEnum 35 = ScriptTamil
- toEnum 36 = ScriptTelugu
- toEnum 37 = ScriptThaana
- toEnum 38 = ScriptThai
- toEnum 39 = ScriptTibetan
- toEnum 40 = ScriptCanadianAboriginal
- toEnum 41 = ScriptYi
- toEnum 42 = ScriptTagalog
- toEnum 43 = ScriptHanunoo
- toEnum 44 = ScriptBuhid
- toEnum 45 = ScriptTagbanwa
- toEnum 46 = ScriptBraille
- toEnum 47 = ScriptCypriot
- toEnum 48 = ScriptLimbu
- toEnum 49 = ScriptOsmanya
- toEnum 50 = ScriptShavian
- toEnum 51 = ScriptLinearB
- toEnum 52 = ScriptTaiLe
- toEnum 53 = ScriptUgaritic
- toEnum 54 = ScriptNewTaiLue
- toEnum 55 = ScriptBuginese
- toEnum 56 = ScriptGlagolitic
- toEnum 57 = ScriptTifinagh
- toEnum 58 = ScriptSylotiNagri
- toEnum 59 = ScriptOldPersian
- toEnum 60 = ScriptKharoshthi
- toEnum 61 = ScriptUnknown
- toEnum 62 = ScriptBalinese
- toEnum 63 = ScriptCuneiform
- toEnum 64 = ScriptPhoenician
- toEnum 65 = ScriptPhagsPa
- toEnum 66 = ScriptNko
- toEnum 67 = ScriptKayahLi
- toEnum 68 = ScriptLepcha
- toEnum 69 = ScriptRejang
- toEnum 70 = ScriptSundanese
- toEnum 71 = ScriptSaurashtra
- toEnum 72 = ScriptCham
- toEnum 73 = ScriptOlChiki
- toEnum 74 = ScriptVai
- toEnum 75 = ScriptCarian
- toEnum 76 = ScriptLycian
- toEnum 77 = ScriptLydian
- toEnum 78 = ScriptBatak
- toEnum 79 = ScriptBrahmi
- toEnum 80 = ScriptMandaic
- toEnum 81 = ScriptChakma
- toEnum 82 = ScriptMeroiticCursive
- toEnum 83 = ScriptMeroiticHieroglyphs
- toEnum 84 = ScriptMiao
- toEnum 85 = ScriptSharada
- toEnum 86 = ScriptSoraSompeng
- toEnum 87 = ScriptTakri
- toEnum k = AnotherScript k
-
-foreign import ccall "pango_script_get_type" c_pango_script_get_type ::
- IO GType
-
-instance BoxedEnum Script where
- boxedEnumType _ = c_pango_script_get_type
-
--- Enum RenderPart
-
-data RenderPart =
- RenderPartForeground
- | RenderPartBackground
- | RenderPartUnderline
- | RenderPartStrikethrough
- | AnotherRenderPart Int
- deriving (Show, Eq)
-
-instance Enum RenderPart where
- fromEnum RenderPartForeground = 0
- fromEnum RenderPartBackground = 1
- fromEnum RenderPartUnderline = 2
- fromEnum RenderPartStrikethrough = 3
- fromEnum (AnotherRenderPart k) = k
-
- toEnum 0 = RenderPartForeground
- toEnum 1 = RenderPartBackground
- toEnum 2 = RenderPartUnderline
- toEnum 3 = RenderPartStrikethrough
- toEnum k = AnotherRenderPart k
-
-foreign import ccall "pango_render_part_get_type" c_pango_render_part_get_type ::
- IO GType
-
-instance BoxedEnum RenderPart where
- boxedEnumType _ = c_pango_render_part_get_type
-
--- Enum GravityHint
-
-data GravityHint =
- GravityHintNatural
- | GravityHintStrong
- | GravityHintLine
- | AnotherGravityHint Int
- deriving (Show, Eq)
-
-instance Enum GravityHint where
- fromEnum GravityHintNatural = 0
- fromEnum GravityHintStrong = 1
- fromEnum GravityHintLine = 2
- fromEnum (AnotherGravityHint k) = k
-
- toEnum 0 = GravityHintNatural
- toEnum 1 = GravityHintStrong
- toEnum 2 = GravityHintLine
- toEnum k = AnotherGravityHint k
-
-foreign import ccall "pango_gravity_hint_get_type" c_pango_gravity_hint_get_type ::
- IO GType
-
-instance BoxedEnum GravityHint where
- boxedEnumType _ = c_pango_gravity_hint_get_type
-
--- Enum Gravity
-
-data Gravity =
- GravitySouth
- | GravityEast
- | GravityNorth
- | GravityWest
- | GravityAuto
- | AnotherGravity Int
- deriving (Show, Eq)
-
-instance Enum Gravity where
- fromEnum GravitySouth = 0
- fromEnum GravityEast = 1
- fromEnum GravityNorth = 2
- fromEnum GravityWest = 3
- fromEnum GravityAuto = 4
- fromEnum (AnotherGravity k) = k
-
- toEnum 0 = GravitySouth
- toEnum 1 = GravityEast
- toEnum 2 = GravityNorth
- toEnum 3 = GravityWest
- toEnum 4 = GravityAuto
- toEnum k = AnotherGravity k
-
-foreign import ccall "pango_gravity_get_type" c_pango_gravity_get_type ::
- IO GType
-
-instance BoxedEnum Gravity where
- boxedEnumType _ = c_pango_gravity_get_type
-
--- Enum EllipsizeMode
-
-data EllipsizeMode =
- EllipsizeModeNone
- | EllipsizeModeStart
- | EllipsizeModeMiddle
- | EllipsizeModeEnd
- | AnotherEllipsizeMode Int
- deriving (Show, Eq)
-
-instance Enum EllipsizeMode where
- fromEnum EllipsizeModeNone = 0
- fromEnum EllipsizeModeStart = 1
- fromEnum EllipsizeModeMiddle = 2
- fromEnum EllipsizeModeEnd = 3
- fromEnum (AnotherEllipsizeMode k) = k
-
- toEnum 0 = EllipsizeModeNone
- toEnum 1 = EllipsizeModeStart
- toEnum 2 = EllipsizeModeMiddle
- toEnum 3 = EllipsizeModeEnd
- toEnum k = AnotherEllipsizeMode k
-
-foreign import ccall "pango_ellipsize_mode_get_type" c_pango_ellipsize_mode_get_type ::
- IO GType
-
-instance BoxedEnum EllipsizeMode where
- boxedEnumType _ = c_pango_ellipsize_mode_get_type
-
--- Enum Direction
-
-data Direction =
- DirectionLtr
- | DirectionRtl
- | DirectionTtbLtr
- | DirectionTtbRtl
- | DirectionWeakLtr
- | DirectionWeakRtl
- | DirectionNeutral
- | AnotherDirection Int
- deriving (Show, Eq)
-
-instance Enum Direction where
- fromEnum DirectionLtr = 0
- fromEnum DirectionRtl = 1
- fromEnum DirectionTtbLtr = 2
- fromEnum DirectionTtbRtl = 3
- fromEnum DirectionWeakLtr = 4
- fromEnum DirectionWeakRtl = 5
- fromEnum DirectionNeutral = 6
- fromEnum (AnotherDirection k) = k
-
- toEnum 0 = DirectionLtr
- toEnum 1 = DirectionRtl
- toEnum 2 = DirectionTtbLtr
- toEnum 3 = DirectionTtbRtl
- toEnum 4 = DirectionWeakLtr
- toEnum 5 = DirectionWeakRtl
- toEnum 6 = DirectionNeutral
- toEnum k = AnotherDirection k
-
-foreign import ccall "pango_direction_get_type" c_pango_direction_get_type ::
- IO GType
-
-instance BoxedEnum Direction where
- boxedEnumType _ = c_pango_direction_get_type
-
--- Enum CoverageLevel
-
-data CoverageLevel =
- CoverageLevelNone
- | CoverageLevelFallback
- | CoverageLevelApproximate
- | CoverageLevelExact
- | AnotherCoverageLevel Int
- deriving (Show, Eq)
-
-instance Enum CoverageLevel where
- fromEnum CoverageLevelNone = 0
- fromEnum CoverageLevelFallback = 1
- fromEnum CoverageLevelApproximate = 2
- fromEnum CoverageLevelExact = 3
- fromEnum (AnotherCoverageLevel k) = k
-
- toEnum 0 = CoverageLevelNone
- toEnum 1 = CoverageLevelFallback
- toEnum 2 = CoverageLevelApproximate
- toEnum 3 = CoverageLevelExact
- toEnum k = AnotherCoverageLevel k
-
-foreign import ccall "pango_coverage_level_get_type" c_pango_coverage_level_get_type ::
- IO GType
-
-instance BoxedEnum CoverageLevel where
- boxedEnumType _ = c_pango_coverage_level_get_type
-
--- Enum BidiType
-
-data BidiType =
- BidiTypeL
- | BidiTypeLre
- | BidiTypeLro
- | BidiTypeR
- | BidiTypeAl
- | BidiTypeRle
- | BidiTypeRlo
- | BidiTypePdf
- | BidiTypeEn
- | BidiTypeEs
- | BidiTypeEt
- | BidiTypeAn
- | BidiTypeCs
- | BidiTypeNsm
- | BidiTypeBn
- | BidiTypeB
- | BidiTypeS
- | BidiTypeWs
- | BidiTypeOn
- | AnotherBidiType Int
- deriving (Show, Eq)
-
-instance Enum BidiType where
- fromEnum BidiTypeL = 0
- fromEnum BidiTypeLre = 1
- fromEnum BidiTypeLro = 2
- fromEnum BidiTypeR = 3
- fromEnum BidiTypeAl = 4
- fromEnum BidiTypeRle = 5
- fromEnum BidiTypeRlo = 6
- fromEnum BidiTypePdf = 7
- fromEnum BidiTypeEn = 8
- fromEnum BidiTypeEs = 9
- fromEnum BidiTypeEt = 10
- fromEnum BidiTypeAn = 11
- fromEnum BidiTypeCs = 12
- fromEnum BidiTypeNsm = 13
- fromEnum BidiTypeBn = 14
- fromEnum BidiTypeB = 15
- fromEnum BidiTypeS = 16
- fromEnum BidiTypeWs = 17
- fromEnum BidiTypeOn = 18
- fromEnum (AnotherBidiType k) = k
-
- toEnum 0 = BidiTypeL
- toEnum 1 = BidiTypeLre
- toEnum 2 = BidiTypeLro
- toEnum 3 = BidiTypeR
- toEnum 4 = BidiTypeAl
- toEnum 5 = BidiTypeRle
- toEnum 6 = BidiTypeRlo
- toEnum 7 = BidiTypePdf
- toEnum 8 = BidiTypeEn
- toEnum 9 = BidiTypeEs
- toEnum 10 = BidiTypeEt
- toEnum 11 = BidiTypeAn
- toEnum 12 = BidiTypeCs
- toEnum 13 = BidiTypeNsm
- toEnum 14 = BidiTypeBn
- toEnum 15 = BidiTypeB
- toEnum 16 = BidiTypeS
- toEnum 17 = BidiTypeWs
- toEnum 18 = BidiTypeOn
- toEnum k = AnotherBidiType k
-
-foreign import ccall "pango_bidi_type_get_type" c_pango_bidi_type_get_type ::
- IO GType
-
-instance BoxedEnum BidiType where
- boxedEnumType _ = c_pango_bidi_type_get_type
-
--- Enum AttrType
-
-data AttrType =
- AttrTypeInvalid
- | AttrTypeLanguage
- | AttrTypeFamily
- | AttrTypeStyle
- | AttrTypeWeight
- | AttrTypeVariant
- | AttrTypeStretch
- | AttrTypeSize
- | AttrTypeFontDesc
- | AttrTypeForeground
- | AttrTypeBackground
- | AttrTypeUnderline
- | AttrTypeStrikethrough
- | AttrTypeRise
- | AttrTypeShape
- | AttrTypeScale
- | AttrTypeFallback
- | AttrTypeLetterSpacing
- | AttrTypeUnderlineColor
- | AttrTypeStrikethroughColor
- | AttrTypeAbsoluteSize
- | AttrTypeGravity
- | AttrTypeGravityHint
- | AttrTypeFontFeatures
- | AttrTypeForegroundAlpha
- | AttrTypeBackgroundAlpha
- | AnotherAttrType Int
- deriving (Show, Eq)
-
-instance Enum AttrType where
- fromEnum AttrTypeInvalid = 0
- fromEnum AttrTypeLanguage = 1
- fromEnum AttrTypeFamily = 2
- fromEnum AttrTypeStyle = 3
- fromEnum AttrTypeWeight = 4
- fromEnum AttrTypeVariant = 5
- fromEnum AttrTypeStretch = 6
- fromEnum AttrTypeSize = 7
- fromEnum AttrTypeFontDesc = 8
- fromEnum AttrTypeForeground = 9
- fromEnum AttrTypeBackground = 10
- fromEnum AttrTypeUnderline = 11
- fromEnum AttrTypeStrikethrough = 12
- fromEnum AttrTypeRise = 13
- fromEnum AttrTypeShape = 14
- fromEnum AttrTypeScale = 15
- fromEnum AttrTypeFallback = 16
- fromEnum AttrTypeLetterSpacing = 17
- fromEnum AttrTypeUnderlineColor = 18
- fromEnum AttrTypeStrikethroughColor = 19
- fromEnum AttrTypeAbsoluteSize = 20
- fromEnum AttrTypeGravity = 21
- fromEnum AttrTypeGravityHint = 22
- fromEnum AttrTypeFontFeatures = 23
- fromEnum AttrTypeForegroundAlpha = 24
- fromEnum AttrTypeBackgroundAlpha = 25
- fromEnum (AnotherAttrType k) = k
-
- toEnum 0 = AttrTypeInvalid
- toEnum 1 = AttrTypeLanguage
- toEnum 2 = AttrTypeFamily
- toEnum 3 = AttrTypeStyle
- toEnum 4 = AttrTypeWeight
- toEnum 5 = AttrTypeVariant
- toEnum 6 = AttrTypeStretch
- toEnum 7 = AttrTypeSize
- toEnum 8 = AttrTypeFontDesc
- toEnum 9 = AttrTypeForeground
- toEnum 10 = AttrTypeBackground
- toEnum 11 = AttrTypeUnderline
- toEnum 12 = AttrTypeStrikethrough
- toEnum 13 = AttrTypeRise
- toEnum 14 = AttrTypeShape
- toEnum 15 = AttrTypeScale
- toEnum 16 = AttrTypeFallback
- toEnum 17 = AttrTypeLetterSpacing
- toEnum 18 = AttrTypeUnderlineColor
- toEnum 19 = AttrTypeStrikethroughColor
- toEnum 20 = AttrTypeAbsoluteSize
- toEnum 21 = AttrTypeGravity
- toEnum 22 = AttrTypeGravityHint
- toEnum 23 = AttrTypeFontFeatures
- toEnum 24 = AttrTypeForegroundAlpha
- toEnum 25 = AttrTypeBackgroundAlpha
- toEnum k = AnotherAttrType k
-
-foreign import ccall "pango_attr_type_get_type" c_pango_attr_type_get_type ::
- IO GType
-
-instance BoxedEnum AttrType where
- boxedEnumType _ = c_pango_attr_type_get_type
-
--- Enum Alignment
-
-data Alignment =
- AlignmentLeft
- | AlignmentCenter
- | AlignmentRight
- | AnotherAlignment Int
- deriving (Show, Eq)
-
-instance Enum Alignment where
- fromEnum AlignmentLeft = 0
- fromEnum AlignmentCenter = 1
- fromEnum AlignmentRight = 2
- fromEnum (AnotherAlignment k) = k
-
- toEnum 0 = AlignmentLeft
- toEnum 1 = AlignmentCenter
- toEnum 2 = AlignmentRight
- toEnum k = AnotherAlignment k
-
-foreign import ccall "pango_alignment_get_type" c_pango_alignment_get_type ::
- IO GType
-
-instance BoxedEnum Alignment where
- boxedEnumType _ = c_pango_alignment_get_type
-
-
diff --git a/GI/Pango/Flags.hs b/GI/Pango/Flags.hs
deleted file mode 100644
--- a/GI/Pango/Flags.hs
+++ /dev/null
@@ -1,68 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
--}
-
-module GI.Pango.Flags
- (
-
--- * Exported types
- FontMask(..) ,
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-
-
-
--- Flags FontMask
-
-data FontMask =
- FontMaskFamily
- | FontMaskStyle
- | FontMaskVariant
- | FontMaskWeight
- | FontMaskStretch
- | FontMaskSize
- | FontMaskGravity
- | AnotherFontMask Int
- deriving (Show, Eq)
-
-instance Enum FontMask where
- fromEnum FontMaskFamily = 1
- fromEnum FontMaskStyle = 2
- fromEnum FontMaskVariant = 4
- fromEnum FontMaskWeight = 8
- fromEnum FontMaskStretch = 16
- fromEnum FontMaskSize = 32
- fromEnum FontMaskGravity = 64
- fromEnum (AnotherFontMask k) = k
-
- toEnum 1 = FontMaskFamily
- toEnum 2 = FontMaskStyle
- toEnum 4 = FontMaskVariant
- toEnum 8 = FontMaskWeight
- toEnum 16 = FontMaskStretch
- toEnum 32 = FontMaskSize
- toEnum 64 = FontMaskGravity
- toEnum k = AnotherFontMask k
-
-foreign import ccall "pango_font_mask_get_type" c_pango_font_mask_get_type ::
- IO GType
-
-instance BoxedFlags FontMask where
- boxedFlagsType _ = c_pango_font_mask_get_type
-
-instance IsGFlag FontMask
-
-
diff --git a/GI/Pango/Functions.hs b/GI/Pango/Functions.hs
deleted file mode 100644
--- a/GI/Pango/Functions.hs
+++ /dev/null
@@ -1,2036 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
--}
-
-module GI.Pango.Functions
- (
-
- -- * Methods
--- ** attrBackgroundAlphaNew
- attrBackgroundAlphaNew ,
-
-
--- ** attrBackgroundNew
- attrBackgroundNew ,
-
-
--- ** attrFallbackNew
- attrFallbackNew ,
-
-
--- ** attrFamilyNew
- attrFamilyNew ,
-
-
--- ** attrForegroundAlphaNew
- attrForegroundAlphaNew ,
-
-
--- ** attrForegroundNew
- attrForegroundNew ,
-
-
--- ** attrGravityHintNew
- attrGravityHintNew ,
-
-
--- ** attrGravityNew
- attrGravityNew ,
-
-
--- ** attrLetterSpacingNew
- attrLetterSpacingNew ,
-
-
--- ** attrRiseNew
- attrRiseNew ,
-
-
--- ** attrScaleNew
- attrScaleNew ,
-
-
--- ** attrStretchNew
- attrStretchNew ,
-
-
--- ** attrStrikethroughColorNew
- attrStrikethroughColorNew ,
-
-
--- ** attrStrikethroughNew
- attrStrikethroughNew ,
-
-
--- ** attrStyleNew
- attrStyleNew ,
-
-
--- ** attrUnderlineColorNew
- attrUnderlineColorNew ,
-
-
--- ** attrUnderlineNew
- attrUnderlineNew ,
-
-
--- ** attrVariantNew
- attrVariantNew ,
-
-
--- ** attrWeightNew
- attrWeightNew ,
-
-
--- ** break
- break ,
-
-
--- ** configKeyGet
- configKeyGet ,
-
-
--- ** configKeyGetSystem
- configKeyGetSystem ,
-
-
--- ** defaultBreak
- defaultBreak ,
-
-
--- ** extentsToPixels
- extentsToPixels ,
-
-
--- ** findBaseDir
- findBaseDir ,
-
-
--- ** findParagraphBoundary
- findParagraphBoundary ,
-
-
--- ** getLibSubdirectory
- getLibSubdirectory ,
-
-
--- ** getLogAttrs
- getLogAttrs ,
-
-
--- ** getMirrorChar
- getMirrorChar ,
-
-
--- ** getSysconfSubdirectory
- getSysconfSubdirectory ,
-
-
--- ** isZeroWidth
- isZeroWidth ,
-
-
--- ** itemize
- itemize ,
-
-
--- ** itemizeWithBaseDir
- itemizeWithBaseDir ,
-
-
--- ** log2visGetEmbeddingLevels
- log2visGetEmbeddingLevels ,
-
-
--- ** lookupAliases
- lookupAliases ,
-
-
--- ** markupParserFinish
- markupParserFinish ,
-
-
--- ** markupParserNew
- markupParserNew ,
-
-
--- ** moduleRegister
- moduleRegister ,
-
-
--- ** parseEnum
- parseEnum ,
-
-
--- ** parseMarkup
- parseMarkup ,
-
-
--- ** parseStretch
- parseStretch ,
-
-
--- ** parseStyle
- parseStyle ,
-
-
--- ** parseVariant
- parseVariant ,
-
-
--- ** parseWeight
- parseWeight ,
-
-
--- ** quantizeLineGeometry
- quantizeLineGeometry ,
-
-
--- ** readLine
- readLine ,
-
-
--- ** reorderItems
- reorderItems ,
-
-
--- ** scanInt
- scanInt ,
-
-
--- ** scanString
- scanString ,
-
-
--- ** scanWord
- scanWord ,
-
-
--- ** shape
- shape ,
-
-
--- ** shapeFull
- shapeFull ,
-
-
--- ** skipSpace
- skipSpace ,
-
-
--- ** splitFileList
- splitFileList ,
-
-
--- ** trimString
- trimString ,
-
-
--- ** unicharDirection
- unicharDirection ,
-
-
--- ** unitsFromDouble
- unitsFromDouble ,
-
-
--- ** unitsToDouble
- unitsToDouble ,
-
-
--- ** version
- version ,
-
-
--- ** versionCheck
- versionCheck ,
-
-
--- ** versionString
- versionString ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-import qualified GI.GLib as GLib
-
--- function pango_version_string
--- Args : []
--- Lengths : []
--- returnType : Just (TBasicType TUTF8)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_version_string" pango_version_string ::
- IO CString
-
-
-versionString ::
- (MonadIO m) =>
- m T.Text -- result
-versionString = liftIO $ do
- result <- pango_version_string
- checkUnexpectedReturnNULL "pango_version_string" result
- result' <- cstringToText result
- return result'
-
-
--- function pango_version_check
--- Args : [Arg {argCName = "required_major", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "required_minor", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "required_micro", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TUTF8)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_version_check" pango_version_check ::
- Int32 -> -- required_major : TBasicType TInt
- Int32 -> -- required_minor : TBasicType TInt
- Int32 -> -- required_micro : TBasicType TInt
- IO CString
-
-
-versionCheck ::
- (MonadIO m) =>
- Int32 -- requiredMajor
- -> Int32 -- requiredMinor
- -> Int32 -- requiredMicro
- -> m (Maybe T.Text) -- result
-versionCheck requiredMajor requiredMinor requiredMicro = liftIO $ do
- result <- pango_version_check requiredMajor requiredMinor requiredMicro
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- cstringToText result'
- return result''
- return maybeResult
-
-
--- function pango_version
--- Args : []
--- Lengths : []
--- returnType : Just (TBasicType TInt)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_version" pango_version ::
- IO Int32
-
-
-version ::
- (MonadIO m) =>
- m Int32 -- result
-version = liftIO $ do
- result <- pango_version
- return result
-
-
--- function pango_units_to_double
--- Args : [Arg {argCName = "i", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TDouble)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_units_to_double" pango_units_to_double ::
- Int32 -> -- i : TBasicType TInt
- IO CDouble
-
-
-unitsToDouble ::
- (MonadIO m) =>
- Int32 -- i
- -> m Double -- result
-unitsToDouble i = liftIO $ do
- result <- pango_units_to_double i
- let result' = realToFrac result
- return result'
-
-
--- function pango_units_from_double
--- Args : [Arg {argCName = "d", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TInt)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_units_from_double" pango_units_from_double ::
- CDouble -> -- d : TBasicType TDouble
- IO Int32
-
-
-unitsFromDouble ::
- (MonadIO m) =>
- Double -- d
- -> m Int32 -- result
-unitsFromDouble d = liftIO $ do
- let d' = realToFrac d
- result <- pango_units_from_double d'
- return result
-
-
--- function pango_unichar_direction
--- Args : [Arg {argCName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Direction")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_unichar_direction" pango_unichar_direction ::
- CInt -> -- ch : TBasicType TUniChar
- IO CUInt
-
-
-unicharDirection ::
- (MonadIO m) =>
- Char -- ch
- -> m Direction -- result
-unicharDirection ch = liftIO $ do
- let ch' = (fromIntegral . ord) ch
- result <- pango_unichar_direction ch'
- let result' = (toEnum . fromIntegral) result
- return result'
-
-
--- function pango_trim_string
--- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TUTF8)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_trim_string" pango_trim_string ::
- CString -> -- str : TBasicType TUTF8
- IO CString
-
-{-# DEPRECATED trimString ["(Since version 1.38)"]#-}
-trimString ::
- (MonadIO m) =>
- T.Text -- str
- -> m T.Text -- result
-trimString str = liftIO $ do
- str' <- textToCString str
- result <- pango_trim_string str'
- checkUnexpectedReturnNULL "pango_trim_string" result
- result' <- cstringToText result
- freeMem result
- freeMem str'
- return result'
-
-
--- function pango_split_file_list
--- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8))
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_split_file_list" pango_split_file_list ::
- CString -> -- str : TBasicType TUTF8
- IO (Ptr CString)
-
-{-# DEPRECATED splitFileList ["(Since version 1.38)"]#-}
-splitFileList ::
- (MonadIO m) =>
- T.Text -- str
- -> m [T.Text] -- result
-splitFileList str = liftIO $ do
- str' <- textToCString str
- result <- pango_split_file_list str'
- checkUnexpectedReturnNULL "pango_split_file_list" result
- result' <- unpackZeroTerminatedUTF8CArray result
- mapZeroTerminatedCArray freeMem result
- freeMem result
- freeMem str'
- return result'
-
-
--- function pango_skip_space
--- Args : [Arg {argCName = "pos", argType = TBasicType TUTF8, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_skip_space" pango_skip_space ::
- Ptr CString -> -- pos : TBasicType TUTF8
- IO CInt
-
-{-# DEPRECATED skipSpace ["(Since version 1.38)"]#-}
-skipSpace ::
- (MonadIO m) =>
- T.Text -- pos
- -> m (Bool,T.Text) -- result
-skipSpace pos = liftIO $ do
- pos' <- textToCString pos
- pos'' <- allocMem :: IO (Ptr CString)
- poke pos'' pos'
- result <- pango_skip_space pos''
- let result' = (/= 0) result
- pos''' <- peek pos''
- pos'''' <- cstringToText pos'''
- freeMem pos'''
- freeMem pos''
- return (result', pos'''')
-
-
--- function pango_shape_full
--- Args : [Arg {argCName = "item_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item_length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "paragraph_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "paragraph_length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "glyphs", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_shape_full" pango_shape_full ::
- CString -> -- item_text : TBasicType TUTF8
- Int32 -> -- item_length : TBasicType TInt
- CString -> -- paragraph_text : TBasicType TUTF8
- Int32 -> -- paragraph_length : TBasicType TInt
- Ptr Analysis -> -- analysis : TInterface "Pango" "Analysis"
- Ptr GlyphString -> -- glyphs : TInterface "Pango" "GlyphString"
- IO ()
-
-
-shapeFull ::
- (MonadIO m) =>
- T.Text -- itemText
- -> Int32 -- itemLength
- -> Maybe (T.Text) -- paragraphText
- -> Int32 -- paragraphLength
- -> Analysis -- analysis
- -> GlyphString -- glyphs
- -> m () -- result
-shapeFull itemText itemLength paragraphText paragraphLength analysis glyphs = liftIO $ do
- itemText' <- textToCString itemText
- maybeParagraphText <- case paragraphText of
- Nothing -> return nullPtr
- Just jParagraphText -> do
- jParagraphText' <- textToCString jParagraphText
- return jParagraphText'
- let analysis' = unsafeManagedPtrGetPtr analysis
- let glyphs' = unsafeManagedPtrGetPtr glyphs
- pango_shape_full itemText' itemLength maybeParagraphText paragraphLength analysis' glyphs'
- touchManagedPtr analysis
- touchManagedPtr glyphs
- freeMem itemText'
- freeMem maybeParagraphText
- return ()
-
-
--- function pango_shape
--- Args : [Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "glyphs", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_shape" pango_shape ::
- CString -> -- text : TBasicType TUTF8
- Int32 -> -- length : TBasicType TInt
- Ptr Analysis -> -- analysis : TInterface "Pango" "Analysis"
- Ptr GlyphString -> -- glyphs : TInterface "Pango" "GlyphString"
- IO ()
-
-
-shape ::
- (MonadIO m) =>
- T.Text -- text
- -> Int32 -- length_
- -> Analysis -- analysis
- -> GlyphString -- glyphs
- -> m () -- result
-shape text length_ analysis glyphs = liftIO $ do
- text' <- textToCString text
- let analysis' = unsafeManagedPtrGetPtr analysis
- let glyphs' = unsafeManagedPtrGetPtr glyphs
- pango_shape text' length_ analysis' glyphs'
- touchManagedPtr analysis
- touchManagedPtr glyphs
- freeMem text'
- return ()
-
-
--- function pango_scan_word
--- Args : [Arg {argCName = "pos", argType = TBasicType TUTF8, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "out", argType = TInterface "GLib" "String", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_scan_word" pango_scan_word ::
- Ptr CString -> -- pos : TBasicType TUTF8
- Ptr GLib.String -> -- out : TInterface "GLib" "String"
- IO CInt
-
-{-# DEPRECATED scanWord ["(Since version 1.38)"]#-}
-scanWord ::
- (MonadIO m) =>
- T.Text -- pos
- -> m (Bool,T.Text,GLib.String) -- result
-scanWord pos = liftIO $ do
- pos' <- textToCString pos
- pos'' <- allocMem :: IO (Ptr CString)
- poke pos'' pos'
- out <- callocBoxedBytes 24 :: IO (Ptr GLib.String)
- result <- pango_scan_word pos'' out
- let result' = (/= 0) result
- pos''' <- peek pos''
- pos'''' <- cstringToText pos'''
- freeMem pos'''
- out' <- (wrapBoxed GLib.String) out
- freeMem pos''
- return (result', pos'''', out')
-
-
--- function pango_scan_string
--- Args : [Arg {argCName = "pos", argType = TBasicType TUTF8, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "out", argType = TInterface "GLib" "String", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_scan_string" pango_scan_string ::
- Ptr CString -> -- pos : TBasicType TUTF8
- Ptr GLib.String -> -- out : TInterface "GLib" "String"
- IO CInt
-
-{-# DEPRECATED scanString ["(Since version 1.38)"]#-}
-scanString ::
- (MonadIO m) =>
- T.Text -- pos
- -> m (Bool,T.Text,GLib.String) -- result
-scanString pos = liftIO $ do
- pos' <- textToCString pos
- pos'' <- allocMem :: IO (Ptr CString)
- poke pos'' pos'
- out <- callocBoxedBytes 24 :: IO (Ptr GLib.String)
- result <- pango_scan_string pos'' out
- let result' = (/= 0) result
- pos''' <- peek pos''
- pos'''' <- cstringToText pos'''
- freeMem pos'''
- out' <- (wrapBoxed GLib.String) out
- freeMem pos''
- return (result', pos'''', out')
-
-
--- function pango_scan_int
--- Args : [Arg {argCName = "pos", argType = TBasicType TUTF8, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "out", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_scan_int" pango_scan_int ::
- Ptr CString -> -- pos : TBasicType TUTF8
- Ptr Int32 -> -- out : TBasicType TInt
- IO CInt
-
-{-# DEPRECATED scanInt ["(Since version 1.38)"]#-}
-scanInt ::
- (MonadIO m) =>
- T.Text -- pos
- -> m (Bool,T.Text,Int32) -- result
-scanInt pos = liftIO $ do
- pos' <- textToCString pos
- pos'' <- allocMem :: IO (Ptr CString)
- poke pos'' pos'
- out <- allocMem :: IO (Ptr Int32)
- result <- pango_scan_int pos'' out
- let result' = (/= 0) result
- pos''' <- peek pos''
- pos'''' <- cstringToText pos'''
- freeMem pos'''
- out' <- peek out
- freeMem pos''
- freeMem out
- return (result', pos'''', out')
-
-
--- function pango_reorder_items
--- Args : [Arg {argCName = "logical_items", argType = TGList (TInterface "Pango" "Item"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TGList (TInterface "Pango" "Item"))
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_reorder_items" pango_reorder_items ::
- Ptr (GList (Ptr Item)) -> -- logical_items : TGList (TInterface "Pango" "Item")
- IO (Ptr (GList (Ptr Item)))
-
-
-reorderItems ::
- (MonadIO m) =>
- [Item] -- logicalItems
- -> m [Item] -- result
-reorderItems logicalItems = liftIO $ do
- let logicalItems' = map unsafeManagedPtrGetPtr logicalItems
- logicalItems'' <- packGList logicalItems'
- result <- pango_reorder_items logicalItems''
- result' <- unpackGList result
- result'' <- mapM (wrapBoxed Item) result'
- g_list_free result
- mapM_ touchManagedPtr logicalItems
- g_list_free logicalItems''
- return result''
-
-
--- function pango_read_line
--- Args : [Arg {argCName = "stream", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TInterface "GLib" "String", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TInt)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_read_line" pango_read_line ::
- Ptr () -> -- stream : TBasicType TPtr
- Ptr GLib.String -> -- str : TInterface "GLib" "String"
- IO Int32
-
-{-# DEPRECATED readLine ["(Since version 1.38)"]#-}
-readLine ::
- (MonadIO m) =>
- Ptr () -- stream
- -> m (Int32,GLib.String) -- result
-readLine stream = liftIO $ do
- str <- callocBoxedBytes 24 :: IO (Ptr GLib.String)
- result <- pango_read_line stream str
- str' <- (wrapBoxed GLib.String) str
- return (result, str')
-
-
--- function pango_quantize_line_geometry
--- Args : [Arg {argCName = "thickness", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_quantize_line_geometry" pango_quantize_line_geometry ::
- Ptr Int32 -> -- thickness : TBasicType TInt
- Ptr Int32 -> -- position : TBasicType TInt
- IO ()
-
-
-quantizeLineGeometry ::
- (MonadIO m) =>
- Int32 -- thickness
- -> Int32 -- position
- -> m (Int32,Int32) -- result
-quantizeLineGeometry thickness position = liftIO $ do
- thickness' <- allocMem :: IO (Ptr Int32)
- poke thickness' thickness
- position' <- allocMem :: IO (Ptr Int32)
- poke position' position
- pango_quantize_line_geometry thickness' position'
- thickness'' <- peek thickness'
- position'' <- peek position'
- freeMem thickness'
- freeMem position'
- return (thickness'', position'')
-
-
--- function pango_parse_weight
--- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "weight", argType = TInterface "Pango" "Weight", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_parse_weight" pango_parse_weight ::
- CString -> -- str : TBasicType TUTF8
- Ptr CUInt -> -- weight : TInterface "Pango" "Weight"
- CInt -> -- warn : TBasicType TBoolean
- IO CInt
-
-
-parseWeight ::
- (MonadIO m) =>
- T.Text -- str
- -> Bool -- warn
- -> m (Bool,Weight) -- result
-parseWeight str warn = liftIO $ do
- str' <- textToCString str
- weight <- allocMem :: IO (Ptr CUInt)
- let warn' = (fromIntegral . fromEnum) warn
- result <- pango_parse_weight str' weight warn'
- let result' = (/= 0) result
- weight' <- peek weight
- let weight'' = (toEnum . fromIntegral) weight'
- freeMem str'
- freeMem weight
- return (result', weight'')
-
-
--- function pango_parse_variant
--- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "variant", argType = TInterface "Pango" "Variant", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_parse_variant" pango_parse_variant ::
- CString -> -- str : TBasicType TUTF8
- Ptr CUInt -> -- variant : TInterface "Pango" "Variant"
- CInt -> -- warn : TBasicType TBoolean
- IO CInt
-
-
-parseVariant ::
- (MonadIO m) =>
- T.Text -- str
- -> Bool -- warn
- -> m (Bool,Variant) -- result
-parseVariant str warn = liftIO $ do
- str' <- textToCString str
- variant <- allocMem :: IO (Ptr CUInt)
- let warn' = (fromIntegral . fromEnum) warn
- result <- pango_parse_variant str' variant warn'
- let result' = (/= 0) result
- variant' <- peek variant
- let variant'' = (toEnum . fromIntegral) variant'
- freeMem str'
- freeMem variant
- return (result', variant'')
-
-
--- function pango_parse_style
--- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Pango" "Style", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_parse_style" pango_parse_style ::
- CString -> -- str : TBasicType TUTF8
- Ptr CUInt -> -- style : TInterface "Pango" "Style"
- CInt -> -- warn : TBasicType TBoolean
- IO CInt
-
-
-parseStyle ::
- (MonadIO m) =>
- T.Text -- str
- -> Bool -- warn
- -> m (Bool,Style) -- result
-parseStyle str warn = liftIO $ do
- str' <- textToCString str
- style <- allocMem :: IO (Ptr CUInt)
- let warn' = (fromIntegral . fromEnum) warn
- result <- pango_parse_style str' style warn'
- let result' = (/= 0) result
- style' <- peek style
- let style'' = (toEnum . fromIntegral) style'
- freeMem str'
- freeMem style
- return (result', style'')
-
-
--- function pango_parse_stretch
--- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stretch", argType = TInterface "Pango" "Stretch", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_parse_stretch" pango_parse_stretch ::
- CString -> -- str : TBasicType TUTF8
- Ptr CUInt -> -- stretch : TInterface "Pango" "Stretch"
- CInt -> -- warn : TBasicType TBoolean
- IO CInt
-
-
-parseStretch ::
- (MonadIO m) =>
- T.Text -- str
- -> Bool -- warn
- -> m (Bool,Stretch) -- result
-parseStretch str warn = liftIO $ do
- str' <- textToCString str
- stretch <- allocMem :: IO (Ptr CUInt)
- let warn' = (fromIntegral . fromEnum) warn
- result <- pango_parse_stretch str' stretch warn'
- let result' = (/= 0) result
- stretch' <- peek stretch
- let stretch'' = (toEnum . fromIntegral) stretch'
- freeMem str'
- freeMem stretch
- return (result', stretch'')
-
-
--- function pango_parse_markup
--- Args : [Arg {argCName = "markup_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_marker", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_list", argType = TInterface "Pango" "AttrList", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accel_char", argType = TBasicType TUniChar, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : True
--- Skip return : False
-
-foreign import ccall "pango_parse_markup" pango_parse_markup ::
- CString -> -- markup_text : TBasicType TUTF8
- Int32 -> -- length : TBasicType TInt
- CInt -> -- accel_marker : TBasicType TUniChar
- Ptr (Ptr AttrList) -> -- attr_list : TInterface "Pango" "AttrList"
- Ptr CString -> -- text : TBasicType TUTF8
- Ptr CInt -> -- accel_char : TBasicType TUniChar
- Ptr (Ptr GError) -> -- error
- IO CInt
-
-
-parseMarkup ::
- (MonadIO m) =>
- T.Text -- markupText
- -> Int32 -- length_
- -> Char -- accelMarker
- -> m (AttrList,T.Text,Char) -- result
-parseMarkup markupText length_ accelMarker = liftIO $ do
- markupText' <- textToCString markupText
- let accelMarker' = (fromIntegral . ord) accelMarker
- attrList <- allocMem :: IO (Ptr (Ptr AttrList))
- text <- allocMem :: IO (Ptr CString)
- accelChar <- allocMem :: IO (Ptr CInt)
- onException (do
- _ <- propagateGError $ pango_parse_markup markupText' length_ accelMarker' attrList text accelChar
- attrList' <- peek attrList
- attrList'' <- (wrapBoxed AttrList) attrList'
- text' <- peek text
- text'' <- cstringToText text'
- freeMem text'
- accelChar' <- peek accelChar
- let accelChar'' = (chr . fromIntegral) accelChar'
- freeMem markupText'
- freeMem attrList
- freeMem text
- freeMem accelChar
- return (attrList'', text'', accelChar'')
- ) (do
- freeMem markupText'
- freeMem attrList
- freeMem text
- freeMem accelChar
- )
-
-
--- function pango_parse_enum
--- Args : [Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "warn", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "possible_values", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_parse_enum" pango_parse_enum ::
- CGType -> -- type : TBasicType TGType
- CString -> -- str : TBasicType TUTF8
- Ptr Int32 -> -- value : TBasicType TInt
- CInt -> -- warn : TBasicType TBoolean
- Ptr CString -> -- possible_values : TBasicType TUTF8
- IO CInt
-
-{-# DEPRECATED parseEnum ["(Since version 1.38)"]#-}
-parseEnum ::
- (MonadIO m) =>
- GType -- type_
- -> Maybe (T.Text) -- str
- -> Bool -- warn
- -> m (Bool,Int32,T.Text) -- result
-parseEnum type_ str warn = liftIO $ do
- let type_' = gtypeToCGType type_
- maybeStr <- case str of
- Nothing -> return nullPtr
- Just jStr -> do
- jStr' <- textToCString jStr
- return jStr'
- value <- allocMem :: IO (Ptr Int32)
- let warn' = (fromIntegral . fromEnum) warn
- possibleValues <- allocMem :: IO (Ptr CString)
- result <- pango_parse_enum type_' maybeStr value warn' possibleValues
- let result' = (/= 0) result
- value' <- peek value
- possibleValues' <- peek possibleValues
- possibleValues'' <- cstringToText possibleValues'
- freeMem possibleValues'
- freeMem maybeStr
- freeMem value
- freeMem possibleValues
- return (result', value', possibleValues'')
-
-
--- function pango_module_register
--- Args : [Arg {argCName = "module", argType = TInterface "Pango" "IncludedModule", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_module_register" pango_module_register ::
- Ptr IncludedModule -> -- module : TInterface "Pango" "IncludedModule"
- IO ()
-
-{-# DEPRECATED moduleRegister ["(Since version 1.38)"]#-}
-moduleRegister ::
- (MonadIO m) =>
- IncludedModule -- module_
- -> m () -- result
-moduleRegister module_ = liftIO $ do
- let module_' = unsafeManagedPtrGetPtr module_
- pango_module_register module_'
- touchManagedPtr module_
- return ()
-
-
--- function pango_markup_parser_new
--- Args : [Arg {argCName = "accel_marker", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "GLib" "MarkupParseContext")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_markup_parser_new" pango_markup_parser_new ::
- CInt -> -- accel_marker : TBasicType TUniChar
- IO (Ptr GLib.MarkupParseContext)
-
-
-markupParserNew ::
- (MonadIO m) =>
- Char -- accelMarker
- -> m GLib.MarkupParseContext -- result
-markupParserNew accelMarker = liftIO $ do
- let accelMarker' = (fromIntegral . ord) accelMarker
- result <- pango_markup_parser_new accelMarker'
- checkUnexpectedReturnNULL "pango_markup_parser_new" result
- result' <- (newBoxed GLib.MarkupParseContext) result
- return result'
-
-
--- function pango_markup_parser_finish
--- Args : [Arg {argCName = "context", argType = TInterface "GLib" "MarkupParseContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_list", argType = TInterface "Pango" "AttrList", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "accel_char", argType = TBasicType TUniChar, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : True
--- Skip return : False
-
-foreign import ccall "pango_markup_parser_finish" pango_markup_parser_finish ::
- Ptr GLib.MarkupParseContext -> -- context : TInterface "GLib" "MarkupParseContext"
- Ptr (Ptr AttrList) -> -- attr_list : TInterface "Pango" "AttrList"
- Ptr CString -> -- text : TBasicType TUTF8
- Ptr CInt -> -- accel_char : TBasicType TUniChar
- Ptr (Ptr GError) -> -- error
- IO CInt
-
-
-markupParserFinish ::
- (MonadIO m) =>
- GLib.MarkupParseContext -- context
- -> m (AttrList,T.Text,Char) -- result
-markupParserFinish context = liftIO $ do
- let context' = unsafeManagedPtrGetPtr context
- attrList <- allocMem :: IO (Ptr (Ptr AttrList))
- text <- allocMem :: IO (Ptr CString)
- accelChar <- allocMem :: IO (Ptr CInt)
- onException (do
- _ <- propagateGError $ pango_markup_parser_finish context' attrList text accelChar
- attrList' <- peek attrList
- attrList'' <- (wrapBoxed AttrList) attrList'
- text' <- peek text
- text'' <- cstringToText text'
- freeMem text'
- accelChar' <- peek accelChar
- let accelChar'' = (chr . fromIntegral) accelChar'
- touchManagedPtr context
- freeMem attrList
- freeMem text
- freeMem accelChar
- return (attrList'', text'', accelChar'')
- ) (do
- freeMem attrList
- freeMem text
- freeMem accelChar
- )
-
-
--- function pango_lookup_aliases
--- Args : [Arg {argCName = "fontname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "families", argType = TCArray False (-1) 2 (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_families", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : [Arg {argCName = "n_families", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_lookup_aliases" pango_lookup_aliases ::
- CString -> -- fontname : TBasicType TUTF8
- Ptr (Ptr CString) -> -- families : TCArray False (-1) 2 (TBasicType TUTF8)
- Ptr Int32 -> -- n_families : TBasicType TInt
- IO ()
-
-{-# DEPRECATED lookupAliases ["(Since version 1.32)","This function is not thread-safe."]#-}
-lookupAliases ::
- (MonadIO m) =>
- T.Text -- fontname
- -> m ([T.Text]) -- result
-lookupAliases fontname = liftIO $ do
- fontname' <- textToCString fontname
- families <- allocMem :: IO (Ptr (Ptr CString))
- nFamilies <- allocMem :: IO (Ptr Int32)
- pango_lookup_aliases fontname' families nFamilies
- nFamilies' <- peek nFamilies
- families' <- peek families
- families'' <- (unpackUTF8CArrayWithLength nFamilies') families'
- (mapCArrayWithLength nFamilies') freeMem families'
- freeMem families'
- freeMem fontname'
- freeMem families
- freeMem nFamilies
- return families''
-
-
--- function pango_log2vis_get_embedding_levels
--- Args : [Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pbase_dir", argType = TInterface "Pango" "Direction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TUInt8)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_log2vis_get_embedding_levels" pango_log2vis_get_embedding_levels ::
- CString -> -- text : TBasicType TUTF8
- Int32 -> -- length : TBasicType TInt
- CUInt -> -- pbase_dir : TInterface "Pango" "Direction"
- IO Word8
-
-
-log2visGetEmbeddingLevels ::
- (MonadIO m) =>
- T.Text -- text
- -> Int32 -- length_
- -> Direction -- pbaseDir
- -> m Word8 -- result
-log2visGetEmbeddingLevels text length_ pbaseDir = liftIO $ do
- text' <- textToCString text
- let pbaseDir' = (fromIntegral . fromEnum) pbaseDir
- result <- pango_log2vis_get_embedding_levels text' length_ pbaseDir'
- freeMem text'
- return result
-
-
--- function pango_itemize_with_base_dir
--- Args : [Arg {argCName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "base_dir", argType = TInterface "Pango" "Direction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cached_iter", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TGList (TInterface "Pango" "Item"))
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_itemize_with_base_dir" pango_itemize_with_base_dir ::
- Ptr Context -> -- context : TInterface "Pango" "Context"
- CUInt -> -- base_dir : TInterface "Pango" "Direction"
- CString -> -- text : TBasicType TUTF8
- Int32 -> -- start_index : TBasicType TInt
- Int32 -> -- length : TBasicType TInt
- Ptr AttrList -> -- attrs : TInterface "Pango" "AttrList"
- Ptr AttrIterator -> -- cached_iter : TInterface "Pango" "AttrIterator"
- IO (Ptr (GList (Ptr Item)))
-
-
-itemizeWithBaseDir ::
- (MonadIO m, ContextK a) =>
- a -- context
- -> Direction -- baseDir
- -> T.Text -- text
- -> Int32 -- startIndex
- -> Int32 -- length_
- -> AttrList -- attrs
- -> Maybe (AttrIterator) -- cachedIter
- -> m [Item] -- result
-itemizeWithBaseDir context baseDir text startIndex length_ attrs cachedIter = liftIO $ do
- let context' = unsafeManagedPtrCastPtr context
- let baseDir' = (fromIntegral . fromEnum) baseDir
- text' <- textToCString text
- let attrs' = unsafeManagedPtrGetPtr attrs
- maybeCachedIter <- case cachedIter of
- Nothing -> return nullPtr
- Just jCachedIter -> do
- let jCachedIter' = unsafeManagedPtrGetPtr jCachedIter
- return jCachedIter'
- result <- pango_itemize_with_base_dir context' baseDir' text' startIndex length_ attrs' maybeCachedIter
- result' <- unpackGList result
- result'' <- mapM (wrapBoxed Item) result'
- g_list_free result
- touchManagedPtr context
- touchManagedPtr attrs
- whenJust cachedIter touchManagedPtr
- freeMem text'
- return result''
-
-
--- function pango_itemize
--- Args : [Arg {argCName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cached_iter", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TGList (TInterface "Pango" "Item"))
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_itemize" pango_itemize ::
- Ptr Context -> -- context : TInterface "Pango" "Context"
- CString -> -- text : TBasicType TUTF8
- Int32 -> -- start_index : TBasicType TInt
- Int32 -> -- length : TBasicType TInt
- Ptr AttrList -> -- attrs : TInterface "Pango" "AttrList"
- Ptr AttrIterator -> -- cached_iter : TInterface "Pango" "AttrIterator"
- IO (Ptr (GList (Ptr Item)))
-
-
-itemize ::
- (MonadIO m, ContextK a) =>
- a -- context
- -> T.Text -- text
- -> Int32 -- startIndex
- -> Int32 -- length_
- -> AttrList -- attrs
- -> Maybe (AttrIterator) -- cachedIter
- -> m [Item] -- result
-itemize context text startIndex length_ attrs cachedIter = liftIO $ do
- let context' = unsafeManagedPtrCastPtr context
- text' <- textToCString text
- let attrs' = unsafeManagedPtrGetPtr attrs
- maybeCachedIter <- case cachedIter of
- Nothing -> return nullPtr
- Just jCachedIter -> do
- let jCachedIter' = unsafeManagedPtrGetPtr jCachedIter
- return jCachedIter'
- result <- pango_itemize context' text' startIndex length_ attrs' maybeCachedIter
- result' <- unpackGList result
- result'' <- mapM (wrapBoxed Item) result'
- g_list_free result
- touchManagedPtr context
- touchManagedPtr attrs
- whenJust cachedIter touchManagedPtr
- freeMem text'
- return result''
-
-
--- function pango_is_zero_width
--- Args : [Arg {argCName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_is_zero_width" pango_is_zero_width ::
- CInt -> -- ch : TBasicType TUniChar
- IO CInt
-
-
-isZeroWidth ::
- (MonadIO m) =>
- Char -- ch
- -> m Bool -- result
-isZeroWidth ch = liftIO $ do
- let ch' = (fromIntegral . ord) ch
- result <- pango_is_zero_width ch'
- let result' = (/= 0) result
- return result'
-
-
--- function pango_get_sysconf_subdirectory
--- Args : []
--- Lengths : []
--- returnType : Just (TBasicType TUTF8)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_get_sysconf_subdirectory" pango_get_sysconf_subdirectory ::
- IO CString
-
-{-# DEPRECATED getSysconfSubdirectory ["(Since version 1.38)"]#-}
-getSysconfSubdirectory ::
- (MonadIO m) =>
- m T.Text -- result
-getSysconfSubdirectory = liftIO $ do
- result <- pango_get_sysconf_subdirectory
- checkUnexpectedReturnNULL "pango_get_sysconf_subdirectory" result
- result' <- cstringToText result
- return result'
-
-
--- function pango_get_mirror_char
--- Args : [Arg {argCName = "ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mirrored_ch", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_get_mirror_char" pango_get_mirror_char ::
- CInt -> -- ch : TBasicType TUniChar
- CInt -> -- mirrored_ch : TBasicType TUniChar
- IO CInt
-
-
-getMirrorChar ::
- (MonadIO m) =>
- Char -- ch
- -> Char -- mirroredCh
- -> m Bool -- result
-getMirrorChar ch mirroredCh = liftIO $ do
- let ch' = (fromIntegral . ord) ch
- let mirroredCh' = (fromIntegral . ord) mirroredCh
- result <- pango_get_mirror_char ch' mirroredCh'
- let result' = (/= 0) result
- return result'
-
-
--- function pango_get_log_attrs
--- Args : [Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "level", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "log_attrs", argType = TCArray False (-1) 5 (TInterface "Pango" "LogAttr"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attrs_len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : [Arg {argCName = "attrs_len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_get_log_attrs" pango_get_log_attrs ::
- CString -> -- text : TBasicType TUTF8
- Int32 -> -- length : TBasicType TInt
- Int32 -> -- level : TBasicType TInt
- Ptr Language -> -- language : TInterface "Pango" "Language"
- Ptr LogAttr -> -- log_attrs : TCArray False (-1) 5 (TInterface "Pango" "LogAttr")
- Int32 -> -- attrs_len : TBasicType TInt
- IO ()
-
-
-getLogAttrs ::
- (MonadIO m) =>
- T.Text -- text
- -> Int32 -- length_
- -> Int32 -- level
- -> Language -- language
- -> [LogAttr] -- logAttrs
- -> m () -- result
-getLogAttrs text length_ level language logAttrs = liftIO $ do
- let attrsLen = fromIntegral $ length logAttrs
- text' <- textToCString text
- let language' = unsafeManagedPtrGetPtr language
- let logAttrs' = map unsafeManagedPtrGetPtr logAttrs
- logAttrs'' <- packBlockArray 52 logAttrs'
- pango_get_log_attrs text' length_ level language' logAttrs'' attrsLen
- touchManagedPtr language
- mapM_ touchManagedPtr logAttrs
- freeMem text'
- freeMem logAttrs''
- return ()
-
-
--- function pango_get_lib_subdirectory
--- Args : []
--- Lengths : []
--- returnType : Just (TBasicType TUTF8)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_get_lib_subdirectory" pango_get_lib_subdirectory ::
- IO CString
-
-{-# DEPRECATED getLibSubdirectory ["(Since version 1.38)"]#-}
-getLibSubdirectory ::
- (MonadIO m) =>
- m T.Text -- result
-getLibSubdirectory = liftIO $ do
- result <- pango_get_lib_subdirectory
- checkUnexpectedReturnNULL "pango_get_lib_subdirectory" result
- result' <- cstringToText result
- return result'
-
-
--- function pango_find_paragraph_boundary
--- Args : [Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "paragraph_delimiter_index", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "next_paragraph_start", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_find_paragraph_boundary" pango_find_paragraph_boundary ::
- CString -> -- text : TBasicType TUTF8
- Int32 -> -- length : TBasicType TInt
- Ptr Int32 -> -- paragraph_delimiter_index : TBasicType TInt
- Ptr Int32 -> -- next_paragraph_start : TBasicType TInt
- IO ()
-
-
-findParagraphBoundary ::
- (MonadIO m) =>
- T.Text -- text
- -> Int32 -- length_
- -> m (Int32,Int32) -- result
-findParagraphBoundary text length_ = liftIO $ do
- text' <- textToCString text
- paragraphDelimiterIndex <- allocMem :: IO (Ptr Int32)
- nextParagraphStart <- allocMem :: IO (Ptr Int32)
- pango_find_paragraph_boundary text' length_ paragraphDelimiterIndex nextParagraphStart
- paragraphDelimiterIndex' <- peek paragraphDelimiterIndex
- nextParagraphStart' <- peek nextParagraphStart
- freeMem text'
- freeMem paragraphDelimiterIndex
- freeMem nextParagraphStart
- return (paragraphDelimiterIndex', nextParagraphStart')
-
-
--- function pango_find_base_dir
--- Args : [Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Direction")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_find_base_dir" pango_find_base_dir ::
- CString -> -- text : TBasicType TUTF8
- Int32 -> -- length : TBasicType TInt
- IO CUInt
-
-
-findBaseDir ::
- (MonadIO m) =>
- T.Text -- text
- -> Int32 -- length_
- -> m Direction -- result
-findBaseDir text length_ = liftIO $ do
- text' <- textToCString text
- result <- pango_find_base_dir text' length_
- let result' = (toEnum . fromIntegral) result
- freeMem text'
- return result'
-
-
--- function pango_extents_to_pixels
--- Args : [Arg {argCName = "inclusive", argType = TInterface "Pango" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "nearest", argType = TInterface "Pango" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_extents_to_pixels" pango_extents_to_pixels ::
- Ptr Rectangle -> -- inclusive : TInterface "Pango" "Rectangle"
- Ptr Rectangle -> -- nearest : TInterface "Pango" "Rectangle"
- IO ()
-
-
-extentsToPixels ::
- (MonadIO m) =>
- Maybe (Rectangle) -- inclusive
- -> Maybe (Rectangle) -- nearest
- -> m () -- result
-extentsToPixels inclusive nearest = liftIO $ do
- maybeInclusive <- case inclusive of
- Nothing -> return nullPtr
- Just jInclusive -> do
- let jInclusive' = unsafeManagedPtrGetPtr jInclusive
- return jInclusive'
- maybeNearest <- case nearest of
- Nothing -> return nullPtr
- Just jNearest -> do
- let jNearest' = unsafeManagedPtrGetPtr jNearest
- return jNearest'
- pango_extents_to_pixels maybeInclusive maybeNearest
- whenJust inclusive touchManagedPtr
- whenJust nearest touchManagedPtr
- return ()
-
-
--- function pango_default_break
--- Args : [Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attrs", argType = TInterface "Pango" "LogAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attrs_len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_default_break" pango_default_break ::
- CString -> -- text : TBasicType TUTF8
- Int32 -> -- length : TBasicType TInt
- Ptr Analysis -> -- analysis : TInterface "Pango" "Analysis"
- Ptr LogAttr -> -- attrs : TInterface "Pango" "LogAttr"
- Int32 -> -- attrs_len : TBasicType TInt
- IO ()
-
-
-defaultBreak ::
- (MonadIO m) =>
- T.Text -- text
- -> Int32 -- length_
- -> Maybe (Analysis) -- analysis
- -> LogAttr -- attrs
- -> Int32 -- attrsLen
- -> m () -- result
-defaultBreak text length_ analysis attrs attrsLen = liftIO $ do
- text' <- textToCString text
- maybeAnalysis <- case analysis of
- Nothing -> return nullPtr
- Just jAnalysis -> do
- let jAnalysis' = unsafeManagedPtrGetPtr jAnalysis
- return jAnalysis'
- let attrs' = unsafeManagedPtrGetPtr attrs
- pango_default_break text' length_ maybeAnalysis attrs' attrsLen
- whenJust analysis touchManagedPtr
- touchManagedPtr attrs
- freeMem text'
- return ()
-
-
--- function pango_config_key_get_system
--- Args : [Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TUTF8)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_config_key_get_system" pango_config_key_get_system ::
- CString -> -- key : TBasicType TUTF8
- IO CString
-
-{-# DEPRECATED configKeyGetSystem ["(Since version 1.38)"]#-}
-configKeyGetSystem ::
- (MonadIO m) =>
- T.Text -- key
- -> m T.Text -- result
-configKeyGetSystem key = liftIO $ do
- key' <- textToCString key
- result <- pango_config_key_get_system key'
- checkUnexpectedReturnNULL "pango_config_key_get_system" result
- result' <- cstringToText result
- freeMem result
- freeMem key'
- return result'
-
-
--- function pango_config_key_get
--- Args : [Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TUTF8)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_config_key_get" pango_config_key_get ::
- CString -> -- key : TBasicType TUTF8
- IO CString
-
-{-# DEPRECATED configKeyGet ["(Since version 1.38)"]#-}
-configKeyGet ::
- (MonadIO m) =>
- T.Text -- key
- -> m T.Text -- result
-configKeyGet key = liftIO $ do
- key' <- textToCString key
- result <- pango_config_key_get key'
- checkUnexpectedReturnNULL "pango_config_key_get" result
- result' <- cstringToText result
- freeMem result
- freeMem key'
- return result'
-
-
--- function pango_break
--- Args : [Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attrs", argType = TCArray False (-1) 4 (TInterface "Pango" "LogAttr"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attrs_len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : [Arg {argCName = "attrs_len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_break" pango_break ::
- CString -> -- text : TBasicType TUTF8
- Int32 -> -- length : TBasicType TInt
- Ptr Analysis -> -- analysis : TInterface "Pango" "Analysis"
- Ptr LogAttr -> -- attrs : TCArray False (-1) 4 (TInterface "Pango" "LogAttr")
- Int32 -> -- attrs_len : TBasicType TInt
- IO ()
-
-
-break ::
- (MonadIO m) =>
- T.Text -- text
- -> Int32 -- length_
- -> Analysis -- analysis
- -> [LogAttr] -- attrs
- -> m () -- result
-break text length_ analysis attrs = liftIO $ do
- let attrsLen = fromIntegral $ length attrs
- text' <- textToCString text
- let analysis' = unsafeManagedPtrGetPtr analysis
- let attrs' = map unsafeManagedPtrGetPtr attrs
- attrs'' <- packBlockArray 52 attrs'
- pango_break text' length_ analysis' attrs'' attrsLen
- touchManagedPtr analysis
- mapM_ touchManagedPtr attrs
- freeMem text'
- freeMem attrs''
- return ()
-
-
--- function pango_attr_weight_new
--- Args : [Arg {argCName = "weight", argType = TInterface "Pango" "Weight", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Attribute")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_weight_new" pango_attr_weight_new ::
- CUInt -> -- weight : TInterface "Pango" "Weight"
- IO (Ptr Attribute)
-
-
-attrWeightNew ::
- (MonadIO m) =>
- Weight -- weight
- -> m Attribute -- result
-attrWeightNew weight = liftIO $ do
- let weight' = (fromIntegral . fromEnum) weight
- result <- pango_attr_weight_new weight'
- checkUnexpectedReturnNULL "pango_attr_weight_new" result
- result' <- (wrapPtr Attribute) result
- return result'
-
-
--- function pango_attr_variant_new
--- Args : [Arg {argCName = "variant", argType = TInterface "Pango" "Variant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Attribute")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_variant_new" pango_attr_variant_new ::
- CUInt -> -- variant : TInterface "Pango" "Variant"
- IO (Ptr Attribute)
-
-
-attrVariantNew ::
- (MonadIO m) =>
- Variant -- variant
- -> m Attribute -- result
-attrVariantNew variant = liftIO $ do
- let variant' = (fromIntegral . fromEnum) variant
- result <- pango_attr_variant_new variant'
- checkUnexpectedReturnNULL "pango_attr_variant_new" result
- result' <- (wrapPtr Attribute) result
- return result'
-
-
--- function pango_attr_underline_new
--- Args : [Arg {argCName = "underline", argType = TInterface "Pango" "Underline", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Attribute")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_underline_new" pango_attr_underline_new ::
- CUInt -> -- underline : TInterface "Pango" "Underline"
- IO (Ptr Attribute)
-
-
-attrUnderlineNew ::
- (MonadIO m) =>
- Underline -- underline
- -> m Attribute -- result
-attrUnderlineNew underline = liftIO $ do
- let underline' = (fromIntegral . fromEnum) underline
- result <- pango_attr_underline_new underline'
- checkUnexpectedReturnNULL "pango_attr_underline_new" result
- result' <- (wrapPtr Attribute) result
- return result'
-
-
--- function pango_attr_underline_color_new
--- Args : [Arg {argCName = "red", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "green", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blue", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Attribute")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_underline_color_new" pango_attr_underline_color_new ::
- Word16 -> -- red : TBasicType TUInt16
- Word16 -> -- green : TBasicType TUInt16
- Word16 -> -- blue : TBasicType TUInt16
- IO (Ptr Attribute)
-
-
-attrUnderlineColorNew ::
- (MonadIO m) =>
- Word16 -- red
- -> Word16 -- green
- -> Word16 -- blue
- -> m Attribute -- result
-attrUnderlineColorNew red green blue = liftIO $ do
- result <- pango_attr_underline_color_new red green blue
- checkUnexpectedReturnNULL "pango_attr_underline_color_new" result
- result' <- (wrapPtr Attribute) result
- return result'
-
-
--- function pango_attr_style_new
--- Args : [Arg {argCName = "style", argType = TInterface "Pango" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Attribute")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_style_new" pango_attr_style_new ::
- CUInt -> -- style : TInterface "Pango" "Style"
- IO (Ptr Attribute)
-
-
-attrStyleNew ::
- (MonadIO m) =>
- Style -- style
- -> m Attribute -- result
-attrStyleNew style = liftIO $ do
- let style' = (fromIntegral . fromEnum) style
- result <- pango_attr_style_new style'
- checkUnexpectedReturnNULL "pango_attr_style_new" result
- result' <- (wrapPtr Attribute) result
- return result'
-
-
--- function pango_attr_strikethrough_new
--- Args : [Arg {argCName = "strikethrough", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Attribute")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_strikethrough_new" pango_attr_strikethrough_new ::
- CInt -> -- strikethrough : TBasicType TBoolean
- IO (Ptr Attribute)
-
-
-attrStrikethroughNew ::
- (MonadIO m) =>
- Bool -- strikethrough
- -> m Attribute -- result
-attrStrikethroughNew strikethrough = liftIO $ do
- let strikethrough' = (fromIntegral . fromEnum) strikethrough
- result <- pango_attr_strikethrough_new strikethrough'
- checkUnexpectedReturnNULL "pango_attr_strikethrough_new" result
- result' <- (wrapPtr Attribute) result
- return result'
-
-
--- function pango_attr_strikethrough_color_new
--- Args : [Arg {argCName = "red", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "green", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blue", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Attribute")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_strikethrough_color_new" pango_attr_strikethrough_color_new ::
- Word16 -> -- red : TBasicType TUInt16
- Word16 -> -- green : TBasicType TUInt16
- Word16 -> -- blue : TBasicType TUInt16
- IO (Ptr Attribute)
-
-
-attrStrikethroughColorNew ::
- (MonadIO m) =>
- Word16 -- red
- -> Word16 -- green
- -> Word16 -- blue
- -> m Attribute -- result
-attrStrikethroughColorNew red green blue = liftIO $ do
- result <- pango_attr_strikethrough_color_new red green blue
- checkUnexpectedReturnNULL "pango_attr_strikethrough_color_new" result
- result' <- (wrapPtr Attribute) result
- return result'
-
-
--- function pango_attr_stretch_new
--- Args : [Arg {argCName = "stretch", argType = TInterface "Pango" "Stretch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Attribute")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_stretch_new" pango_attr_stretch_new ::
- CUInt -> -- stretch : TInterface "Pango" "Stretch"
- IO (Ptr Attribute)
-
-
-attrStretchNew ::
- (MonadIO m) =>
- Stretch -- stretch
- -> m Attribute -- result
-attrStretchNew stretch = liftIO $ do
- let stretch' = (fromIntegral . fromEnum) stretch
- result <- pango_attr_stretch_new stretch'
- checkUnexpectedReturnNULL "pango_attr_stretch_new" result
- result' <- (wrapPtr Attribute) result
- return result'
-
-
--- function pango_attr_scale_new
--- Args : [Arg {argCName = "scale_factor", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Attribute")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_scale_new" pango_attr_scale_new ::
- CDouble -> -- scale_factor : TBasicType TDouble
- IO (Ptr Attribute)
-
-
-attrScaleNew ::
- (MonadIO m) =>
- Double -- scaleFactor
- -> m Attribute -- result
-attrScaleNew scaleFactor = liftIO $ do
- let scaleFactor' = realToFrac scaleFactor
- result <- pango_attr_scale_new scaleFactor'
- checkUnexpectedReturnNULL "pango_attr_scale_new" result
- result' <- (wrapPtr Attribute) result
- return result'
-
-
--- function pango_attr_rise_new
--- Args : [Arg {argCName = "rise", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Attribute")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_rise_new" pango_attr_rise_new ::
- Int32 -> -- rise : TBasicType TInt
- IO (Ptr Attribute)
-
-
-attrRiseNew ::
- (MonadIO m) =>
- Int32 -- rise
- -> m Attribute -- result
-attrRiseNew rise = liftIO $ do
- result <- pango_attr_rise_new rise
- checkUnexpectedReturnNULL "pango_attr_rise_new" result
- result' <- (wrapPtr Attribute) result
- return result'
-
-
--- function pango_attr_letter_spacing_new
--- Args : [Arg {argCName = "letter_spacing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Attribute")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_letter_spacing_new" pango_attr_letter_spacing_new ::
- Int32 -> -- letter_spacing : TBasicType TInt
- IO (Ptr Attribute)
-
-
-attrLetterSpacingNew ::
- (MonadIO m) =>
- Int32 -- letterSpacing
- -> m Attribute -- result
-attrLetterSpacingNew letterSpacing = liftIO $ do
- result <- pango_attr_letter_spacing_new letterSpacing
- checkUnexpectedReturnNULL "pango_attr_letter_spacing_new" result
- result' <- (wrapPtr Attribute) result
- return result'
-
-
--- function pango_attr_gravity_new
--- Args : [Arg {argCName = "gravity", argType = TInterface "Pango" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Attribute")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_gravity_new" pango_attr_gravity_new ::
- CUInt -> -- gravity : TInterface "Pango" "Gravity"
- IO (Ptr Attribute)
-
-
-attrGravityNew ::
- (MonadIO m) =>
- Gravity -- gravity
- -> m Attribute -- result
-attrGravityNew gravity = liftIO $ do
- let gravity' = (fromIntegral . fromEnum) gravity
- result <- pango_attr_gravity_new gravity'
- checkUnexpectedReturnNULL "pango_attr_gravity_new" result
- result' <- (wrapPtr Attribute) result
- return result'
-
-
--- function pango_attr_gravity_hint_new
--- Args : [Arg {argCName = "hint", argType = TInterface "Pango" "GravityHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Attribute")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_gravity_hint_new" pango_attr_gravity_hint_new ::
- CUInt -> -- hint : TInterface "Pango" "GravityHint"
- IO (Ptr Attribute)
-
-
-attrGravityHintNew ::
- (MonadIO m) =>
- GravityHint -- hint
- -> m Attribute -- result
-attrGravityHintNew hint = liftIO $ do
- let hint' = (fromIntegral . fromEnum) hint
- result <- pango_attr_gravity_hint_new hint'
- checkUnexpectedReturnNULL "pango_attr_gravity_hint_new" result
- result' <- (wrapPtr Attribute) result
- return result'
-
-
--- function pango_attr_foreground_new
--- Args : [Arg {argCName = "red", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "green", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blue", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Attribute")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_foreground_new" pango_attr_foreground_new ::
- Word16 -> -- red : TBasicType TUInt16
- Word16 -> -- green : TBasicType TUInt16
- Word16 -> -- blue : TBasicType TUInt16
- IO (Ptr Attribute)
-
-
-attrForegroundNew ::
- (MonadIO m) =>
- Word16 -- red
- -> Word16 -- green
- -> Word16 -- blue
- -> m Attribute -- result
-attrForegroundNew red green blue = liftIO $ do
- result <- pango_attr_foreground_new red green blue
- checkUnexpectedReturnNULL "pango_attr_foreground_new" result
- result' <- (wrapPtr Attribute) result
- return result'
-
-
--- function pango_attr_foreground_alpha_new
--- Args : [Arg {argCName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Attribute")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_foreground_alpha_new" pango_attr_foreground_alpha_new ::
- Word16 -> -- alpha : TBasicType TUInt16
- IO (Ptr Attribute)
-
-
-attrForegroundAlphaNew ::
- (MonadIO m) =>
- Word16 -- alpha
- -> m Attribute -- result
-attrForegroundAlphaNew alpha = liftIO $ do
- result <- pango_attr_foreground_alpha_new alpha
- checkUnexpectedReturnNULL "pango_attr_foreground_alpha_new" result
- result' <- (wrapPtr Attribute) result
- return result'
-
-
--- function pango_attr_family_new
--- Args : [Arg {argCName = "family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Attribute")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_family_new" pango_attr_family_new ::
- CString -> -- family : TBasicType TUTF8
- IO (Ptr Attribute)
-
-
-attrFamilyNew ::
- (MonadIO m) =>
- T.Text -- family
- -> m Attribute -- result
-attrFamilyNew family = liftIO $ do
- family' <- textToCString family
- result <- pango_attr_family_new family'
- checkUnexpectedReturnNULL "pango_attr_family_new" result
- result' <- (wrapPtr Attribute) result
- freeMem family'
- return result'
-
-
--- function pango_attr_fallback_new
--- Args : [Arg {argCName = "enable_fallback", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Attribute")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_fallback_new" pango_attr_fallback_new ::
- CInt -> -- enable_fallback : TBasicType TBoolean
- IO (Ptr Attribute)
-
-
-attrFallbackNew ::
- (MonadIO m) =>
- Bool -- enableFallback
- -> m Attribute -- result
-attrFallbackNew enableFallback = liftIO $ do
- let enableFallback' = (fromIntegral . fromEnum) enableFallback
- result <- pango_attr_fallback_new enableFallback'
- checkUnexpectedReturnNULL "pango_attr_fallback_new" result
- result' <- (wrapPtr Attribute) result
- return result'
-
-
--- function pango_attr_background_new
--- Args : [Arg {argCName = "red", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "green", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blue", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Attribute")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_background_new" pango_attr_background_new ::
- Word16 -> -- red : TBasicType TUInt16
- Word16 -> -- green : TBasicType TUInt16
- Word16 -> -- blue : TBasicType TUInt16
- IO (Ptr Attribute)
-
-
-attrBackgroundNew ::
- (MonadIO m) =>
- Word16 -- red
- -> Word16 -- green
- -> Word16 -- blue
- -> m Attribute -- result
-attrBackgroundNew red green blue = liftIO $ do
- result <- pango_attr_background_new red green blue
- checkUnexpectedReturnNULL "pango_attr_background_new" result
- result' <- (wrapPtr Attribute) result
- return result'
-
-
--- function pango_attr_background_alpha_new
--- Args : [Arg {argCName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Attribute")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_background_alpha_new" pango_attr_background_alpha_new ::
- Word16 -> -- alpha : TBasicType TUInt16
- IO (Ptr Attribute)
-
-
-attrBackgroundAlphaNew ::
- (MonadIO m) =>
- Word16 -- alpha
- -> m Attribute -- result
-attrBackgroundAlphaNew alpha = liftIO $ do
- result <- pango_attr_background_alpha_new alpha
- checkUnexpectedReturnNULL "pango_attr_background_alpha_new" result
- result' <- (wrapPtr Attribute) result
- return result'
-
-
-
diff --git a/GI/Pango/Objects.hs b/GI/Pango/Objects.hs
deleted file mode 100644
--- a/GI/Pango/Objects.hs
+++ /dev/null
@@ -1,49 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
--}
-
-module GI.Pango.Objects
- ( module GI.Pango.Objects.Context ,
- module GI.Pango.Objects.Engine ,
- module GI.Pango.Objects.EngineLang ,
- module GI.Pango.Objects.EngineShape ,
- module GI.Pango.Objects.Font ,
- module GI.Pango.Objects.FontFace ,
- module GI.Pango.Objects.FontFamily ,
- module GI.Pango.Objects.FontMap ,
- module GI.Pango.Objects.Fontset ,
- module GI.Pango.Objects.FontsetSimple ,
- module GI.Pango.Objects.Layout ,
- module GI.Pango.Objects.Renderer ,
-
-
- ) where
-
-import GI.Pango.Objects.Context
-import GI.Pango.Objects.Engine
-import GI.Pango.Objects.EngineLang
-import GI.Pango.Objects.EngineShape
-import GI.Pango.Objects.Font
-import GI.Pango.Objects.FontFace
-import GI.Pango.Objects.FontFamily
-import GI.Pango.Objects.FontMap
-import GI.Pango.Objects.Fontset
-import GI.Pango.Objects.FontsetSimple
-import GI.Pango.Objects.Layout
-import GI.Pango.Objects.Renderer
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-
diff --git a/GI/Pango/Objects/Context.hs b/GI/Pango/Objects/Context.hs
deleted file mode 100644
--- a/GI/Pango/Objects/Context.hs
+++ /dev/null
@@ -1,902 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
--}
-
-module GI.Pango.Objects.Context
- (
-
--- * Exported types
- Context(..) ,
- ContextK ,
- toContext ,
- noContext ,
-
-
- -- * Methods
--- ** contextChanged
- ContextChangedMethodInfo ,
- contextChanged ,
-
-
--- ** contextGetBaseDir
- ContextGetBaseDirMethodInfo ,
- contextGetBaseDir ,
-
-
--- ** contextGetBaseGravity
- ContextGetBaseGravityMethodInfo ,
- contextGetBaseGravity ,
-
-
--- ** contextGetFontDescription
- ContextGetFontDescriptionMethodInfo ,
- contextGetFontDescription ,
-
-
--- ** contextGetFontMap
- ContextGetFontMapMethodInfo ,
- contextGetFontMap ,
-
-
--- ** contextGetGravity
- ContextGetGravityMethodInfo ,
- contextGetGravity ,
-
-
--- ** contextGetGravityHint
- ContextGetGravityHintMethodInfo ,
- contextGetGravityHint ,
-
-
--- ** contextGetLanguage
- ContextGetLanguageMethodInfo ,
- contextGetLanguage ,
-
-
--- ** contextGetMatrix
- ContextGetMatrixMethodInfo ,
- contextGetMatrix ,
-
-
--- ** contextGetMetrics
- ContextGetMetricsMethodInfo ,
- contextGetMetrics ,
-
-
--- ** contextGetSerial
- ContextGetSerialMethodInfo ,
- contextGetSerial ,
-
-
--- ** contextListFamilies
- ContextListFamiliesMethodInfo ,
- contextListFamilies ,
-
-
--- ** contextLoadFont
- ContextLoadFontMethodInfo ,
- contextLoadFont ,
-
-
--- ** contextLoadFontset
- ContextLoadFontsetMethodInfo ,
- contextLoadFontset ,
-
-
--- ** contextNew
- contextNew ,
-
-
--- ** contextSetBaseDir
- ContextSetBaseDirMethodInfo ,
- contextSetBaseDir ,
-
-
--- ** contextSetBaseGravity
- ContextSetBaseGravityMethodInfo ,
- contextSetBaseGravity ,
-
-
--- ** contextSetFontDescription
- ContextSetFontDescriptionMethodInfo ,
- contextSetFontDescription ,
-
-
--- ** contextSetFontMap
- ContextSetFontMapMethodInfo ,
- contextSetFontMap ,
-
-
--- ** contextSetGravityHint
- ContextSetGravityHintMethodInfo ,
- contextSetGravityHint ,
-
-
--- ** contextSetLanguage
- ContextSetLanguageMethodInfo ,
- contextSetLanguage ,
-
-
--- ** contextSetMatrix
- ContextSetMatrixMethodInfo ,
- contextSetMatrix ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-import qualified GI.GObject as GObject
-
-newtype Context = Context (ForeignPtr Context)
-foreign import ccall "pango_context_get_type"
- c_pango_context_get_type :: IO GType
-
-type instance ParentTypes Context = ContextParentTypes
-type ContextParentTypes = '[GObject.Object]
-
-instance GObject Context where
- gobjectIsInitiallyUnowned _ = False
- gobjectType _ = c_pango_context_get_type
-
-
-class GObject o => ContextK o
-instance (GObject o, IsDescendantOf Context o) => ContextK o
-
-toContext :: ContextK o => o -> IO Context
-toContext = unsafeCastTo Context
-
-noContext :: Maybe Context
-noContext = Nothing
-
-type family ResolveContextMethod (t :: Symbol) (o :: *) :: * where
- ResolveContextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
- ResolveContextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
- ResolveContextMethod "changed" o = ContextChangedMethodInfo
- ResolveContextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
- ResolveContextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
- ResolveContextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
- ResolveContextMethod "listFamilies" o = ContextListFamiliesMethodInfo
- ResolveContextMethod "loadFont" o = ContextLoadFontMethodInfo
- ResolveContextMethod "loadFontset" o = ContextLoadFontsetMethodInfo
- ResolveContextMethod "notify" o = GObject.ObjectNotifyMethodInfo
- ResolveContextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
- ResolveContextMethod "ref" o = GObject.ObjectRefMethodInfo
- ResolveContextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
- ResolveContextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
- ResolveContextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
- ResolveContextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
- ResolveContextMethod "stealData" o = GObject.ObjectStealDataMethodInfo
- ResolveContextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
- ResolveContextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
- ResolveContextMethod "unref" o = GObject.ObjectUnrefMethodInfo
- ResolveContextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
- ResolveContextMethod "getBaseDir" o = ContextGetBaseDirMethodInfo
- ResolveContextMethod "getBaseGravity" o = ContextGetBaseGravityMethodInfo
- ResolveContextMethod "getData" o = GObject.ObjectGetDataMethodInfo
- ResolveContextMethod "getFontDescription" o = ContextGetFontDescriptionMethodInfo
- ResolveContextMethod "getFontMap" o = ContextGetFontMapMethodInfo
- ResolveContextMethod "getGravity" o = ContextGetGravityMethodInfo
- ResolveContextMethod "getGravityHint" o = ContextGetGravityHintMethodInfo
- ResolveContextMethod "getLanguage" o = ContextGetLanguageMethodInfo
- ResolveContextMethod "getMatrix" o = ContextGetMatrixMethodInfo
- ResolveContextMethod "getMetrics" o = ContextGetMetricsMethodInfo
- ResolveContextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
- ResolveContextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
- ResolveContextMethod "getSerial" o = ContextGetSerialMethodInfo
- ResolveContextMethod "setBaseDir" o = ContextSetBaseDirMethodInfo
- ResolveContextMethod "setBaseGravity" o = ContextSetBaseGravityMethodInfo
- ResolveContextMethod "setData" o = GObject.ObjectSetDataMethodInfo
- ResolveContextMethod "setFontDescription" o = ContextSetFontDescriptionMethodInfo
- ResolveContextMethod "setFontMap" o = ContextSetFontMapMethodInfo
- ResolveContextMethod "setGravityHint" o = ContextSetGravityHintMethodInfo
- ResolveContextMethod "setLanguage" o = ContextSetLanguageMethodInfo
- ResolveContextMethod "setMatrix" o = ContextSetMatrixMethodInfo
- ResolveContextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
- ResolveContextMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveContextMethod t Context, MethodInfo info Context p) => IsLabelProxy t (Context -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveContextMethod t Context, MethodInfo info Context p) => IsLabel t (Context -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-type instance AttributeList Context = ContextAttributeList
-type ContextAttributeList = ('[ ] :: [(Symbol, *)])
-
-type instance SignalList Context = ContextSignalList
-type ContextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])
-
--- method Context::new
--- method type : Constructor
--- Args : []
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Context")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_context_new" pango_context_new ::
- IO (Ptr Context)
-
-
-contextNew ::
- (MonadIO m) =>
- m Context -- result
-contextNew = liftIO $ do
- result <- pango_context_new
- checkUnexpectedReturnNULL "pango_context_new" result
- result' <- (wrapObject Context) result
- return result'
-
--- method Context::changed
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_context_changed" pango_context_changed ::
- Ptr Context -> -- _obj : TInterface "Pango" "Context"
- IO ()
-
-
-contextChanged ::
- (MonadIO m, ContextK a) =>
- a -- _obj
- -> m () -- result
-contextChanged _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- pango_context_changed _obj'
- touchManagedPtr _obj
- return ()
-
-data ContextChangedMethodInfo
-instance (signature ~ (m ()), MonadIO m, ContextK a) => MethodInfo ContextChangedMethodInfo a signature where
- overloadedMethod _ = contextChanged
-
--- method Context::get_base_dir
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Direction")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_context_get_base_dir" pango_context_get_base_dir ::
- Ptr Context -> -- _obj : TInterface "Pango" "Context"
- IO CUInt
-
-
-contextGetBaseDir ::
- (MonadIO m, ContextK a) =>
- a -- _obj
- -> m Direction -- result
-contextGetBaseDir _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_context_get_base_dir _obj'
- let result' = (toEnum . fromIntegral) result
- touchManagedPtr _obj
- return result'
-
-data ContextGetBaseDirMethodInfo
-instance (signature ~ (m Direction), MonadIO m, ContextK a) => MethodInfo ContextGetBaseDirMethodInfo a signature where
- overloadedMethod _ = contextGetBaseDir
-
--- method Context::get_base_gravity
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Gravity")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_context_get_base_gravity" pango_context_get_base_gravity ::
- Ptr Context -> -- _obj : TInterface "Pango" "Context"
- IO CUInt
-
-
-contextGetBaseGravity ::
- (MonadIO m, ContextK a) =>
- a -- _obj
- -> m Gravity -- result
-contextGetBaseGravity _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_context_get_base_gravity _obj'
- let result' = (toEnum . fromIntegral) result
- touchManagedPtr _obj
- return result'
-
-data ContextGetBaseGravityMethodInfo
-instance (signature ~ (m Gravity), MonadIO m, ContextK a) => MethodInfo ContextGetBaseGravityMethodInfo a signature where
- overloadedMethod _ = contextGetBaseGravity
-
--- method Context::get_font_description
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "FontDescription")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_context_get_font_description" pango_context_get_font_description ::
- Ptr Context -> -- _obj : TInterface "Pango" "Context"
- IO (Ptr FontDescription)
-
-
-contextGetFontDescription ::
- (MonadIO m, ContextK a) =>
- a -- _obj
- -> m FontDescription -- result
-contextGetFontDescription _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_context_get_font_description _obj'
- checkUnexpectedReturnNULL "pango_context_get_font_description" result
- result' <- (newBoxed FontDescription) result
- touchManagedPtr _obj
- return result'
-
-data ContextGetFontDescriptionMethodInfo
-instance (signature ~ (m FontDescription), MonadIO m, ContextK a) => MethodInfo ContextGetFontDescriptionMethodInfo a signature where
- overloadedMethod _ = contextGetFontDescription
-
--- method Context::get_font_map
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "FontMap")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_context_get_font_map" pango_context_get_font_map ::
- Ptr Context -> -- _obj : TInterface "Pango" "Context"
- IO (Ptr FontMap)
-
-
-contextGetFontMap ::
- (MonadIO m, ContextK a) =>
- a -- _obj
- -> m FontMap -- result
-contextGetFontMap _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_context_get_font_map _obj'
- checkUnexpectedReturnNULL "pango_context_get_font_map" result
- result' <- (newObject FontMap) result
- touchManagedPtr _obj
- return result'
-
-data ContextGetFontMapMethodInfo
-instance (signature ~ (m FontMap), MonadIO m, ContextK a) => MethodInfo ContextGetFontMapMethodInfo a signature where
- overloadedMethod _ = contextGetFontMap
-
--- method Context::get_gravity
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Gravity")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_context_get_gravity" pango_context_get_gravity ::
- Ptr Context -> -- _obj : TInterface "Pango" "Context"
- IO CUInt
-
-
-contextGetGravity ::
- (MonadIO m, ContextK a) =>
- a -- _obj
- -> m Gravity -- result
-contextGetGravity _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_context_get_gravity _obj'
- let result' = (toEnum . fromIntegral) result
- touchManagedPtr _obj
- return result'
-
-data ContextGetGravityMethodInfo
-instance (signature ~ (m Gravity), MonadIO m, ContextK a) => MethodInfo ContextGetGravityMethodInfo a signature where
- overloadedMethod _ = contextGetGravity
-
--- method Context::get_gravity_hint
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "GravityHint")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_context_get_gravity_hint" pango_context_get_gravity_hint ::
- Ptr Context -> -- _obj : TInterface "Pango" "Context"
- IO CUInt
-
-
-contextGetGravityHint ::
- (MonadIO m, ContextK a) =>
- a -- _obj
- -> m GravityHint -- result
-contextGetGravityHint _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_context_get_gravity_hint _obj'
- let result' = (toEnum . fromIntegral) result
- touchManagedPtr _obj
- return result'
-
-data ContextGetGravityHintMethodInfo
-instance (signature ~ (m GravityHint), MonadIO m, ContextK a) => MethodInfo ContextGetGravityHintMethodInfo a signature where
- overloadedMethod _ = contextGetGravityHint
-
--- method Context::get_language
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Language")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_context_get_language" pango_context_get_language ::
- Ptr Context -> -- _obj : TInterface "Pango" "Context"
- IO (Ptr Language)
-
-
-contextGetLanguage ::
- (MonadIO m, ContextK a) =>
- a -- _obj
- -> m Language -- result
-contextGetLanguage _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_context_get_language _obj'
- checkUnexpectedReturnNULL "pango_context_get_language" result
- result' <- (wrapBoxed Language) result
- touchManagedPtr _obj
- return result'
-
-data ContextGetLanguageMethodInfo
-instance (signature ~ (m Language), MonadIO m, ContextK a) => MethodInfo ContextGetLanguageMethodInfo a signature where
- overloadedMethod _ = contextGetLanguage
-
--- method Context::get_matrix
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Matrix")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_context_get_matrix" pango_context_get_matrix ::
- Ptr Context -> -- _obj : TInterface "Pango" "Context"
- IO (Ptr Matrix)
-
-
-contextGetMatrix ::
- (MonadIO m, ContextK a) =>
- a -- _obj
- -> m (Maybe Matrix) -- result
-contextGetMatrix _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_context_get_matrix _obj'
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (newBoxed Matrix) result'
- return result''
- touchManagedPtr _obj
- return maybeResult
-
-data ContextGetMatrixMethodInfo
-instance (signature ~ (m (Maybe Matrix)), MonadIO m, ContextK a) => MethodInfo ContextGetMatrixMethodInfo a signature where
- overloadedMethod _ = contextGetMatrix
-
--- method Context::get_metrics
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "FontMetrics")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_context_get_metrics" pango_context_get_metrics ::
- Ptr Context -> -- _obj : TInterface "Pango" "Context"
- Ptr FontDescription -> -- desc : TInterface "Pango" "FontDescription"
- Ptr Language -> -- language : TInterface "Pango" "Language"
- IO (Ptr FontMetrics)
-
-
-contextGetMetrics ::
- (MonadIO m, ContextK a) =>
- a -- _obj
- -> Maybe (FontDescription) -- desc
- -> Maybe (Language) -- language
- -> m FontMetrics -- result
-contextGetMetrics _obj desc language = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- maybeDesc <- case desc of
- Nothing -> return nullPtr
- Just jDesc -> do
- let jDesc' = unsafeManagedPtrGetPtr jDesc
- return jDesc'
- maybeLanguage <- case language of
- Nothing -> return nullPtr
- Just jLanguage -> do
- let jLanguage' = unsafeManagedPtrGetPtr jLanguage
- return jLanguage'
- result <- pango_context_get_metrics _obj' maybeDesc maybeLanguage
- checkUnexpectedReturnNULL "pango_context_get_metrics" result
- result' <- (wrapBoxed FontMetrics) result
- touchManagedPtr _obj
- whenJust desc touchManagedPtr
- whenJust language touchManagedPtr
- return result'
-
-data ContextGetMetricsMethodInfo
-instance (signature ~ (Maybe (FontDescription) -> Maybe (Language) -> m FontMetrics), MonadIO m, ContextK a) => MethodInfo ContextGetMetricsMethodInfo a signature where
- overloadedMethod _ = contextGetMetrics
-
--- method Context::get_serial
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TUInt)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_context_get_serial" pango_context_get_serial ::
- Ptr Context -> -- _obj : TInterface "Pango" "Context"
- IO Word32
-
-
-contextGetSerial ::
- (MonadIO m, ContextK a) =>
- a -- _obj
- -> m Word32 -- result
-contextGetSerial _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_context_get_serial _obj'
- touchManagedPtr _obj
- return result
-
-data ContextGetSerialMethodInfo
-instance (signature ~ (m Word32), MonadIO m, ContextK a) => MethodInfo ContextGetSerialMethodInfo a signature where
- overloadedMethod _ = contextGetSerial
-
--- method Context::list_families
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "families", argType = TCArray False (-1) 2 (TInterface "Pango" "FontFamily"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer},Arg {argCName = "n_families", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : [Arg {argCName = "n_families", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_context_list_families" pango_context_list_families ::
- Ptr Context -> -- _obj : TInterface "Pango" "Context"
- Ptr (Ptr (Ptr FontFamily)) -> -- families : TCArray False (-1) 2 (TInterface "Pango" "FontFamily")
- Ptr Int32 -> -- n_families : TBasicType TInt
- IO ()
-
-
-contextListFamilies ::
- (MonadIO m, ContextK a) =>
- a -- _obj
- -> m ([FontFamily]) -- result
-contextListFamilies _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- families <- allocMem :: IO (Ptr (Ptr (Ptr FontFamily)))
- nFamilies <- allocMem :: IO (Ptr Int32)
- pango_context_list_families _obj' families nFamilies
- nFamilies' <- peek nFamilies
- families' <- peek families
- families'' <- (unpackPtrArrayWithLength nFamilies') families'
- families''' <- mapM (newObject FontFamily) families''
- freeMem families'
- touchManagedPtr _obj
- freeMem families
- freeMem nFamilies
- return families'''
-
-data ContextListFamiliesMethodInfo
-instance (signature ~ (m ([FontFamily])), MonadIO m, ContextK a) => MethodInfo ContextListFamiliesMethodInfo a signature where
- overloadedMethod _ = contextListFamilies
-
--- method Context::load_font
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Font")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_context_load_font" pango_context_load_font ::
- Ptr Context -> -- _obj : TInterface "Pango" "Context"
- Ptr FontDescription -> -- desc : TInterface "Pango" "FontDescription"
- IO (Ptr Font)
-
-
-contextLoadFont ::
- (MonadIO m, ContextK a) =>
- a -- _obj
- -> FontDescription -- desc
- -> m (Maybe Font) -- result
-contextLoadFont _obj desc = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let desc' = unsafeManagedPtrGetPtr desc
- result <- pango_context_load_font _obj' desc'
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (wrapObject Font) result'
- return result''
- touchManagedPtr _obj
- touchManagedPtr desc
- return maybeResult
-
-data ContextLoadFontMethodInfo
-instance (signature ~ (FontDescription -> m (Maybe Font)), MonadIO m, ContextK a) => MethodInfo ContextLoadFontMethodInfo a signature where
- overloadedMethod _ = contextLoadFont
-
--- method Context::load_fontset
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Fontset")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_context_load_fontset" pango_context_load_fontset ::
- Ptr Context -> -- _obj : TInterface "Pango" "Context"
- Ptr FontDescription -> -- desc : TInterface "Pango" "FontDescription"
- Ptr Language -> -- language : TInterface "Pango" "Language"
- IO (Ptr Fontset)
-
-
-contextLoadFontset ::
- (MonadIO m, ContextK a) =>
- a -- _obj
- -> FontDescription -- desc
- -> Language -- language
- -> m (Maybe Fontset) -- result
-contextLoadFontset _obj desc language = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let desc' = unsafeManagedPtrGetPtr desc
- let language' = unsafeManagedPtrGetPtr language
- result <- pango_context_load_fontset _obj' desc' language'
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (wrapObject Fontset) result'
- return result''
- touchManagedPtr _obj
- touchManagedPtr desc
- touchManagedPtr language
- return maybeResult
-
-data ContextLoadFontsetMethodInfo
-instance (signature ~ (FontDescription -> Language -> m (Maybe Fontset)), MonadIO m, ContextK a) => MethodInfo ContextLoadFontsetMethodInfo a signature where
- overloadedMethod _ = contextLoadFontset
-
--- method Context::set_base_dir
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Pango" "Direction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_context_set_base_dir" pango_context_set_base_dir ::
- Ptr Context -> -- _obj : TInterface "Pango" "Context"
- CUInt -> -- direction : TInterface "Pango" "Direction"
- IO ()
-
-
-contextSetBaseDir ::
- (MonadIO m, ContextK a) =>
- a -- _obj
- -> Direction -- direction
- -> m () -- result
-contextSetBaseDir _obj direction = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let direction' = (fromIntegral . fromEnum) direction
- pango_context_set_base_dir _obj' direction'
- touchManagedPtr _obj
- return ()
-
-data ContextSetBaseDirMethodInfo
-instance (signature ~ (Direction -> m ()), MonadIO m, ContextK a) => MethodInfo ContextSetBaseDirMethodInfo a signature where
- overloadedMethod _ = contextSetBaseDir
-
--- method Context::set_base_gravity
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gravity", argType = TInterface "Pango" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_context_set_base_gravity" pango_context_set_base_gravity ::
- Ptr Context -> -- _obj : TInterface "Pango" "Context"
- CUInt -> -- gravity : TInterface "Pango" "Gravity"
- IO ()
-
-
-contextSetBaseGravity ::
- (MonadIO m, ContextK a) =>
- a -- _obj
- -> Gravity -- gravity
- -> m () -- result
-contextSetBaseGravity _obj gravity = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let gravity' = (fromIntegral . fromEnum) gravity
- pango_context_set_base_gravity _obj' gravity'
- touchManagedPtr _obj
- return ()
-
-data ContextSetBaseGravityMethodInfo
-instance (signature ~ (Gravity -> m ()), MonadIO m, ContextK a) => MethodInfo ContextSetBaseGravityMethodInfo a signature where
- overloadedMethod _ = contextSetBaseGravity
-
--- method Context::set_font_description
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_context_set_font_description" pango_context_set_font_description ::
- Ptr Context -> -- _obj : TInterface "Pango" "Context"
- Ptr FontDescription -> -- desc : TInterface "Pango" "FontDescription"
- IO ()
-
-
-contextSetFontDescription ::
- (MonadIO m, ContextK a) =>
- a -- _obj
- -> FontDescription -- desc
- -> m () -- result
-contextSetFontDescription _obj desc = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let desc' = unsafeManagedPtrGetPtr desc
- pango_context_set_font_description _obj' desc'
- touchManagedPtr _obj
- touchManagedPtr desc
- return ()
-
-data ContextSetFontDescriptionMethodInfo
-instance (signature ~ (FontDescription -> m ()), MonadIO m, ContextK a) => MethodInfo ContextSetFontDescriptionMethodInfo a signature where
- overloadedMethod _ = contextSetFontDescription
-
--- method Context::set_font_map
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font_map", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_context_set_font_map" pango_context_set_font_map ::
- Ptr Context -> -- _obj : TInterface "Pango" "Context"
- Ptr FontMap -> -- font_map : TInterface "Pango" "FontMap"
- IO ()
-
-
-contextSetFontMap ::
- (MonadIO m, ContextK a, FontMapK b) =>
- a -- _obj
- -> b -- fontMap
- -> m () -- result
-contextSetFontMap _obj fontMap = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let fontMap' = unsafeManagedPtrCastPtr fontMap
- pango_context_set_font_map _obj' fontMap'
- touchManagedPtr _obj
- touchManagedPtr fontMap
- return ()
-
-data ContextSetFontMapMethodInfo
-instance (signature ~ (b -> m ()), MonadIO m, ContextK a, FontMapK b) => MethodInfo ContextSetFontMapMethodInfo a signature where
- overloadedMethod _ = contextSetFontMap
-
--- method Context::set_gravity_hint
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hint", argType = TInterface "Pango" "GravityHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_context_set_gravity_hint" pango_context_set_gravity_hint ::
- Ptr Context -> -- _obj : TInterface "Pango" "Context"
- CUInt -> -- hint : TInterface "Pango" "GravityHint"
- IO ()
-
-
-contextSetGravityHint ::
- (MonadIO m, ContextK a) =>
- a -- _obj
- -> GravityHint -- hint
- -> m () -- result
-contextSetGravityHint _obj hint = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let hint' = (fromIntegral . fromEnum) hint
- pango_context_set_gravity_hint _obj' hint'
- touchManagedPtr _obj
- return ()
-
-data ContextSetGravityHintMethodInfo
-instance (signature ~ (GravityHint -> m ()), MonadIO m, ContextK a) => MethodInfo ContextSetGravityHintMethodInfo a signature where
- overloadedMethod _ = contextSetGravityHint
-
--- method Context::set_language
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_context_set_language" pango_context_set_language ::
- Ptr Context -> -- _obj : TInterface "Pango" "Context"
- Ptr Language -> -- language : TInterface "Pango" "Language"
- IO ()
-
-
-contextSetLanguage ::
- (MonadIO m, ContextK a) =>
- a -- _obj
- -> Language -- language
- -> m () -- result
-contextSetLanguage _obj language = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let language' = unsafeManagedPtrGetPtr language
- pango_context_set_language _obj' language'
- touchManagedPtr _obj
- touchManagedPtr language
- return ()
-
-data ContextSetLanguageMethodInfo
-instance (signature ~ (Language -> m ()), MonadIO m, ContextK a) => MethodInfo ContextSetLanguageMethodInfo a signature where
- overloadedMethod _ = contextSetLanguage
-
--- method Context::set_matrix
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "matrix", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_context_set_matrix" pango_context_set_matrix ::
- Ptr Context -> -- _obj : TInterface "Pango" "Context"
- Ptr Matrix -> -- matrix : TInterface "Pango" "Matrix"
- IO ()
-
-
-contextSetMatrix ::
- (MonadIO m, ContextK a) =>
- a -- _obj
- -> Maybe (Matrix) -- matrix
- -> m () -- result
-contextSetMatrix _obj matrix = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- maybeMatrix <- case matrix of
- Nothing -> return nullPtr
- Just jMatrix -> do
- let jMatrix' = unsafeManagedPtrGetPtr jMatrix
- return jMatrix'
- pango_context_set_matrix _obj' maybeMatrix
- touchManagedPtr _obj
- whenJust matrix touchManagedPtr
- return ()
-
-data ContextSetMatrixMethodInfo
-instance (signature ~ (Maybe (Matrix) -> m ()), MonadIO m, ContextK a) => MethodInfo ContextSetMatrixMethodInfo a signature where
- overloadedMethod _ = contextSetMatrix
-
-
diff --git a/GI/Pango/Objects/Context.hs-boot b/GI/Pango/Objects/Context.hs-boot
deleted file mode 100644
--- a/GI/Pango/Objects/Context.hs-boot
+++ /dev/null
@@ -1,34 +0,0 @@
-module GI.Pango.Objects.Context where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype Context = Context (ForeignPtr Context)
-instance GObject Context where
-class GObject o => ContextK o
-instance (GObject o, IsDescendantOf Context o) => ContextK o
-data ContextChangedMethodInfo
-data ContextGetBaseDirMethodInfo
-data ContextGetBaseGravityMethodInfo
-data ContextGetFontDescriptionMethodInfo
-data ContextGetFontMapMethodInfo
-data ContextGetGravityMethodInfo
-data ContextGetGravityHintMethodInfo
-data ContextGetLanguageMethodInfo
-data ContextGetMatrixMethodInfo
-data ContextGetMetricsMethodInfo
-data ContextGetSerialMethodInfo
-data ContextListFamiliesMethodInfo
-data ContextLoadFontMethodInfo
-data ContextLoadFontsetMethodInfo
-data ContextSetBaseDirMethodInfo
-data ContextSetBaseGravityMethodInfo
-data ContextSetFontDescriptionMethodInfo
-data ContextSetFontMapMethodInfo
-data ContextSetGravityHintMethodInfo
-data ContextSetLanguageMethodInfo
-data ContextSetMatrixMethodInfo
diff --git a/GI/Pango/Objects/Engine.hs b/GI/Pango/Objects/Engine.hs
deleted file mode 100644
--- a/GI/Pango/Objects/Engine.hs
+++ /dev/null
@@ -1,92 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
--}
-
-module GI.Pango.Objects.Engine
- (
-
--- * Exported types
- Engine(..) ,
- EngineK ,
- toEngine ,
- noEngine ,
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-import qualified GI.GObject as GObject
-
-newtype Engine = Engine (ForeignPtr Engine)
-foreign import ccall "pango_engine_get_type"
- c_pango_engine_get_type :: IO GType
-
-type instance ParentTypes Engine = EngineParentTypes
-type EngineParentTypes = '[GObject.Object]
-
-instance GObject Engine where
- gobjectIsInitiallyUnowned _ = False
- gobjectType _ = c_pango_engine_get_type
-
-
-class GObject o => EngineK o
-instance (GObject o, IsDescendantOf Engine o) => EngineK o
-
-toEngine :: EngineK o => o -> IO Engine
-toEngine = unsafeCastTo Engine
-
-noEngine :: Maybe Engine
-noEngine = Nothing
-
-type family ResolveEngineMethod (t :: Symbol) (o :: *) :: * where
- ResolveEngineMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
- ResolveEngineMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
- ResolveEngineMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
- ResolveEngineMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
- ResolveEngineMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
- ResolveEngineMethod "notify" o = GObject.ObjectNotifyMethodInfo
- ResolveEngineMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
- ResolveEngineMethod "ref" o = GObject.ObjectRefMethodInfo
- ResolveEngineMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
- ResolveEngineMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
- ResolveEngineMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
- ResolveEngineMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
- ResolveEngineMethod "stealData" o = GObject.ObjectStealDataMethodInfo
- ResolveEngineMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
- ResolveEngineMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
- ResolveEngineMethod "unref" o = GObject.ObjectUnrefMethodInfo
- ResolveEngineMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
- ResolveEngineMethod "getData" o = GObject.ObjectGetDataMethodInfo
- ResolveEngineMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
- ResolveEngineMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
- ResolveEngineMethod "setData" o = GObject.ObjectSetDataMethodInfo
- ResolveEngineMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
- ResolveEngineMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveEngineMethod t Engine, MethodInfo info Engine p) => IsLabelProxy t (Engine -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveEngineMethod t Engine, MethodInfo info Engine p) => IsLabel t (Engine -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-type instance AttributeList Engine = EngineAttributeList
-type EngineAttributeList = ('[ ] :: [(Symbol, *)])
-
-type instance SignalList Engine = EngineSignalList
-type EngineSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])
-
-
diff --git a/GI/Pango/Objects/Engine.hs-boot b/GI/Pango/Objects/Engine.hs-boot
deleted file mode 100644
--- a/GI/Pango/Objects/Engine.hs-boot
+++ /dev/null
@@ -1,13 +0,0 @@
-module GI.Pango.Objects.Engine where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype Engine = Engine (ForeignPtr Engine)
-instance GObject Engine where
-class GObject o => EngineK o
-instance (GObject o, IsDescendantOf Engine o) => EngineK o
diff --git a/GI/Pango/Objects/EngineLang.hs b/GI/Pango/Objects/EngineLang.hs
deleted file mode 100644
--- a/GI/Pango/Objects/EngineLang.hs
+++ /dev/null
@@ -1,92 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
--}
-
-module GI.Pango.Objects.EngineLang
- (
-
--- * Exported types
- EngineLang(..) ,
- EngineLangK ,
- toEngineLang ,
- noEngineLang ,
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-import qualified GI.GObject as GObject
-
-newtype EngineLang = EngineLang (ForeignPtr EngineLang)
-foreign import ccall "pango_engine_lang_get_type"
- c_pango_engine_lang_get_type :: IO GType
-
-type instance ParentTypes EngineLang = EngineLangParentTypes
-type EngineLangParentTypes = '[Engine, GObject.Object]
-
-instance GObject EngineLang where
- gobjectIsInitiallyUnowned _ = False
- gobjectType _ = c_pango_engine_lang_get_type
-
-
-class GObject o => EngineLangK o
-instance (GObject o, IsDescendantOf EngineLang o) => EngineLangK o
-
-toEngineLang :: EngineLangK o => o -> IO EngineLang
-toEngineLang = unsafeCastTo EngineLang
-
-noEngineLang :: Maybe EngineLang
-noEngineLang = Nothing
-
-type family ResolveEngineLangMethod (t :: Symbol) (o :: *) :: * where
- ResolveEngineLangMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
- ResolveEngineLangMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
- ResolveEngineLangMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
- ResolveEngineLangMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
- ResolveEngineLangMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
- ResolveEngineLangMethod "notify" o = GObject.ObjectNotifyMethodInfo
- ResolveEngineLangMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
- ResolveEngineLangMethod "ref" o = GObject.ObjectRefMethodInfo
- ResolveEngineLangMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
- ResolveEngineLangMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
- ResolveEngineLangMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
- ResolveEngineLangMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
- ResolveEngineLangMethod "stealData" o = GObject.ObjectStealDataMethodInfo
- ResolveEngineLangMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
- ResolveEngineLangMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
- ResolveEngineLangMethod "unref" o = GObject.ObjectUnrefMethodInfo
- ResolveEngineLangMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
- ResolveEngineLangMethod "getData" o = GObject.ObjectGetDataMethodInfo
- ResolveEngineLangMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
- ResolveEngineLangMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
- ResolveEngineLangMethod "setData" o = GObject.ObjectSetDataMethodInfo
- ResolveEngineLangMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
- ResolveEngineLangMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveEngineLangMethod t EngineLang, MethodInfo info EngineLang p) => IsLabelProxy t (EngineLang -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveEngineLangMethod t EngineLang, MethodInfo info EngineLang p) => IsLabel t (EngineLang -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-type instance AttributeList EngineLang = EngineLangAttributeList
-type EngineLangAttributeList = ('[ ] :: [(Symbol, *)])
-
-type instance SignalList EngineLang = EngineLangSignalList
-type EngineLangSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])
-
-
diff --git a/GI/Pango/Objects/EngineLang.hs-boot b/GI/Pango/Objects/EngineLang.hs-boot
deleted file mode 100644
--- a/GI/Pango/Objects/EngineLang.hs-boot
+++ /dev/null
@@ -1,13 +0,0 @@
-module GI.Pango.Objects.EngineLang where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype EngineLang = EngineLang (ForeignPtr EngineLang)
-instance GObject EngineLang where
-class GObject o => EngineLangK o
-instance (GObject o, IsDescendantOf EngineLang o) => EngineLangK o
diff --git a/GI/Pango/Objects/EngineShape.hs b/GI/Pango/Objects/EngineShape.hs
deleted file mode 100644
--- a/GI/Pango/Objects/EngineShape.hs
+++ /dev/null
@@ -1,92 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
--}
-
-module GI.Pango.Objects.EngineShape
- (
-
--- * Exported types
- EngineShape(..) ,
- EngineShapeK ,
- toEngineShape ,
- noEngineShape ,
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-import qualified GI.GObject as GObject
-
-newtype EngineShape = EngineShape (ForeignPtr EngineShape)
-foreign import ccall "pango_engine_shape_get_type"
- c_pango_engine_shape_get_type :: IO GType
-
-type instance ParentTypes EngineShape = EngineShapeParentTypes
-type EngineShapeParentTypes = '[Engine, GObject.Object]
-
-instance GObject EngineShape where
- gobjectIsInitiallyUnowned _ = False
- gobjectType _ = c_pango_engine_shape_get_type
-
-
-class GObject o => EngineShapeK o
-instance (GObject o, IsDescendantOf EngineShape o) => EngineShapeK o
-
-toEngineShape :: EngineShapeK o => o -> IO EngineShape
-toEngineShape = unsafeCastTo EngineShape
-
-noEngineShape :: Maybe EngineShape
-noEngineShape = Nothing
-
-type family ResolveEngineShapeMethod (t :: Symbol) (o :: *) :: * where
- ResolveEngineShapeMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
- ResolveEngineShapeMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
- ResolveEngineShapeMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
- ResolveEngineShapeMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
- ResolveEngineShapeMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
- ResolveEngineShapeMethod "notify" o = GObject.ObjectNotifyMethodInfo
- ResolveEngineShapeMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
- ResolveEngineShapeMethod "ref" o = GObject.ObjectRefMethodInfo
- ResolveEngineShapeMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
- ResolveEngineShapeMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
- ResolveEngineShapeMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
- ResolveEngineShapeMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
- ResolveEngineShapeMethod "stealData" o = GObject.ObjectStealDataMethodInfo
- ResolveEngineShapeMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
- ResolveEngineShapeMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
- ResolveEngineShapeMethod "unref" o = GObject.ObjectUnrefMethodInfo
- ResolveEngineShapeMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
- ResolveEngineShapeMethod "getData" o = GObject.ObjectGetDataMethodInfo
- ResolveEngineShapeMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
- ResolveEngineShapeMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
- ResolveEngineShapeMethod "setData" o = GObject.ObjectSetDataMethodInfo
- ResolveEngineShapeMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
- ResolveEngineShapeMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveEngineShapeMethod t EngineShape, MethodInfo info EngineShape p) => IsLabelProxy t (EngineShape -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveEngineShapeMethod t EngineShape, MethodInfo info EngineShape p) => IsLabel t (EngineShape -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-type instance AttributeList EngineShape = EngineShapeAttributeList
-type EngineShapeAttributeList = ('[ ] :: [(Symbol, *)])
-
-type instance SignalList EngineShape = EngineShapeSignalList
-type EngineShapeSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])
-
-
diff --git a/GI/Pango/Objects/EngineShape.hs-boot b/GI/Pango/Objects/EngineShape.hs-boot
deleted file mode 100644
--- a/GI/Pango/Objects/EngineShape.hs-boot
+++ /dev/null
@@ -1,13 +0,0 @@
-module GI.Pango.Objects.EngineShape where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype EngineShape = EngineShape (ForeignPtr EngineShape)
-instance GObject EngineShape where
-class GObject o => EngineShapeK o
-instance (GObject o, IsDescendantOf EngineShape o) => EngineShapeK o
diff --git a/GI/Pango/Objects/Font.hs b/GI/Pango/Objects/Font.hs
deleted file mode 100644
--- a/GI/Pango/Objects/Font.hs
+++ /dev/null
@@ -1,321 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
--}
-
-module GI.Pango.Objects.Font
- (
-
--- * Exported types
- Font(..) ,
- FontK ,
- toFont ,
- noFont ,
-
-
- -- * Methods
--- ** fontDescribe
- FontDescribeMethodInfo ,
- fontDescribe ,
-
-
--- ** fontDescribeWithAbsoluteSize
- FontDescribeWithAbsoluteSizeMethodInfo ,
- fontDescribeWithAbsoluteSize ,
-
-
--- ** fontDescriptionsFree
- fontDescriptionsFree ,
-
-
--- ** fontGetFontMap
- FontGetFontMapMethodInfo ,
- fontGetFontMap ,
-
-
--- ** fontGetGlyphExtents
- FontGetGlyphExtentsMethodInfo ,
- fontGetGlyphExtents ,
-
-
--- ** fontGetMetrics
- FontGetMetricsMethodInfo ,
- fontGetMetrics ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-import qualified GI.GObject as GObject
-
-newtype Font = Font (ForeignPtr Font)
-foreign import ccall "pango_font_get_type"
- c_pango_font_get_type :: IO GType
-
-type instance ParentTypes Font = FontParentTypes
-type FontParentTypes = '[GObject.Object]
-
-instance GObject Font where
- gobjectIsInitiallyUnowned _ = False
- gobjectType _ = c_pango_font_get_type
-
-
-class GObject o => FontK o
-instance (GObject o, IsDescendantOf Font o) => FontK o
-
-toFont :: FontK o => o -> IO Font
-toFont = unsafeCastTo Font
-
-noFont :: Maybe Font
-noFont = Nothing
-
-type family ResolveFontMethod (t :: Symbol) (o :: *) :: * where
- ResolveFontMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
- ResolveFontMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
- ResolveFontMethod "describe" o = FontDescribeMethodInfo
- ResolveFontMethod "describeWithAbsoluteSize" o = FontDescribeWithAbsoluteSizeMethodInfo
- ResolveFontMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
- ResolveFontMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
- ResolveFontMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
- ResolveFontMethod "notify" o = GObject.ObjectNotifyMethodInfo
- ResolveFontMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
- ResolveFontMethod "ref" o = GObject.ObjectRefMethodInfo
- ResolveFontMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
- ResolveFontMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
- ResolveFontMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
- ResolveFontMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
- ResolveFontMethod "stealData" o = GObject.ObjectStealDataMethodInfo
- ResolveFontMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
- ResolveFontMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
- ResolveFontMethod "unref" o = GObject.ObjectUnrefMethodInfo
- ResolveFontMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
- ResolveFontMethod "getData" o = GObject.ObjectGetDataMethodInfo
- ResolveFontMethod "getFontMap" o = FontGetFontMapMethodInfo
- ResolveFontMethod "getGlyphExtents" o = FontGetGlyphExtentsMethodInfo
- ResolveFontMethod "getMetrics" o = FontGetMetricsMethodInfo
- ResolveFontMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
- ResolveFontMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
- ResolveFontMethod "setData" o = GObject.ObjectSetDataMethodInfo
- ResolveFontMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
- ResolveFontMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveFontMethod t Font, MethodInfo info Font p) => IsLabelProxy t (Font -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveFontMethod t Font, MethodInfo info Font p) => IsLabel t (Font -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-type instance AttributeList Font = FontAttributeList
-type FontAttributeList = ('[ ] :: [(Symbol, *)])
-
-type instance SignalList Font = FontSignalList
-type FontSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])
-
--- method Font::describe
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "FontDescription")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_describe" pango_font_describe ::
- Ptr Font -> -- _obj : TInterface "Pango" "Font"
- IO (Ptr FontDescription)
-
-
-fontDescribe ::
- (MonadIO m, FontK a) =>
- a -- _obj
- -> m FontDescription -- result
-fontDescribe _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_font_describe _obj'
- checkUnexpectedReturnNULL "pango_font_describe" result
- result' <- (wrapBoxed FontDescription) result
- touchManagedPtr _obj
- return result'
-
-data FontDescribeMethodInfo
-instance (signature ~ (m FontDescription), MonadIO m, FontK a) => MethodInfo FontDescribeMethodInfo a signature where
- overloadedMethod _ = fontDescribe
-
--- method Font::describe_with_absolute_size
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "FontDescription")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_describe_with_absolute_size" pango_font_describe_with_absolute_size ::
- Ptr Font -> -- _obj : TInterface "Pango" "Font"
- IO (Ptr FontDescription)
-
-
-fontDescribeWithAbsoluteSize ::
- (MonadIO m, FontK a) =>
- a -- _obj
- -> m FontDescription -- result
-fontDescribeWithAbsoluteSize _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_font_describe_with_absolute_size _obj'
- checkUnexpectedReturnNULL "pango_font_describe_with_absolute_size" result
- result' <- (wrapBoxed FontDescription) result
- touchManagedPtr _obj
- return result'
-
-data FontDescribeWithAbsoluteSizeMethodInfo
-instance (signature ~ (m FontDescription), MonadIO m, FontK a) => MethodInfo FontDescribeWithAbsoluteSizeMethodInfo a signature where
- overloadedMethod _ = fontDescribeWithAbsoluteSize
-
--- method Font::get_font_map
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "FontMap")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_get_font_map" pango_font_get_font_map ::
- Ptr Font -> -- _obj : TInterface "Pango" "Font"
- IO (Ptr FontMap)
-
-
-fontGetFontMap ::
- (MonadIO m, FontK a) =>
- a -- _obj
- -> m (Maybe FontMap) -- result
-fontGetFontMap _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_font_get_font_map _obj'
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (newObject FontMap) result'
- return result''
- touchManagedPtr _obj
- return maybeResult
-
-data FontGetFontMapMethodInfo
-instance (signature ~ (m (Maybe FontMap)), MonadIO m, FontK a) => MethodInfo FontGetFontMapMethodInfo a signature where
- overloadedMethod _ = fontGetFontMap
-
--- method Font::get_glyph_extents
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "glyph", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_get_glyph_extents" pango_font_get_glyph_extents ::
- Ptr Font -> -- _obj : TInterface "Pango" "Font"
- Word32 -> -- glyph : TBasicType TUInt32
- Ptr Rectangle -> -- ink_rect : TInterface "Pango" "Rectangle"
- Ptr Rectangle -> -- logical_rect : TInterface "Pango" "Rectangle"
- IO ()
-
-
-fontGetGlyphExtents ::
- (MonadIO m, FontK a) =>
- a -- _obj
- -> Word32 -- glyph
- -> m (Rectangle,Rectangle) -- result
-fontGetGlyphExtents _obj glyph = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- inkRect <- callocBytes 16 :: IO (Ptr Rectangle)
- logicalRect <- callocBytes 16 :: IO (Ptr Rectangle)
- pango_font_get_glyph_extents _obj' glyph inkRect logicalRect
- inkRect' <- (wrapPtr Rectangle) inkRect
- logicalRect' <- (wrapPtr Rectangle) logicalRect
- touchManagedPtr _obj
- return (inkRect', logicalRect')
-
-data FontGetGlyphExtentsMethodInfo
-instance (signature ~ (Word32 -> m (Rectangle,Rectangle)), MonadIO m, FontK a) => MethodInfo FontGetGlyphExtentsMethodInfo a signature where
- overloadedMethod _ = fontGetGlyphExtents
-
--- method Font::get_metrics
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "FontMetrics")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_get_metrics" pango_font_get_metrics ::
- Ptr Font -> -- _obj : TInterface "Pango" "Font"
- Ptr Language -> -- language : TInterface "Pango" "Language"
- IO (Ptr FontMetrics)
-
-
-fontGetMetrics ::
- (MonadIO m, FontK a) =>
- a -- _obj
- -> Maybe (Language) -- language
- -> m FontMetrics -- result
-fontGetMetrics _obj language = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- maybeLanguage <- case language of
- Nothing -> return nullPtr
- Just jLanguage -> do
- let jLanguage' = unsafeManagedPtrGetPtr jLanguage
- return jLanguage'
- result <- pango_font_get_metrics _obj' maybeLanguage
- checkUnexpectedReturnNULL "pango_font_get_metrics" result
- result' <- (wrapBoxed FontMetrics) result
- touchManagedPtr _obj
- whenJust language touchManagedPtr
- return result'
-
-data FontGetMetricsMethodInfo
-instance (signature ~ (Maybe (Language) -> m FontMetrics), MonadIO m, FontK a) => MethodInfo FontGetMetricsMethodInfo a signature where
- overloadedMethod _ = fontGetMetrics
-
--- method Font::descriptions_free
--- method type : MemberFunction
--- Args : [Arg {argCName = "descs", argType = TCArray False (-1) 1 (TInterface "Pango" "FontDescription"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_descs", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : [Arg {argCName = "n_descs", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_descriptions_free" pango_font_descriptions_free ::
- Ptr (Ptr FontDescription) -> -- descs : TCArray False (-1) 1 (TInterface "Pango" "FontDescription")
- Int32 -> -- n_descs : TBasicType TInt
- IO ()
-
-
-fontDescriptionsFree ::
- (MonadIO m) =>
- Maybe ([FontDescription]) -- descs
- -> m () -- result
-fontDescriptionsFree descs = liftIO $ do
- let nDescs = case descs of
- Nothing -> 0
- Just jDescs -> fromIntegral $ length jDescs
- maybeDescs <- case descs of
- Nothing -> return nullPtr
- Just jDescs -> do
- jDescs' <- mapM copyBoxed jDescs
- jDescs'' <- packPtrArray jDescs'
- return jDescs''
- pango_font_descriptions_free maybeDescs nDescs
- whenJust descs (mapM_ touchManagedPtr)
- return ()
-
-
diff --git a/GI/Pango/Objects/Font.hs-boot b/GI/Pango/Objects/Font.hs-boot
deleted file mode 100644
--- a/GI/Pango/Objects/Font.hs-boot
+++ /dev/null
@@ -1,18 +0,0 @@
-module GI.Pango.Objects.Font where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype Font = Font (ForeignPtr Font)
-instance GObject Font where
-class GObject o => FontK o
-instance (GObject o, IsDescendantOf Font o) => FontK o
-data FontDescribeMethodInfo
-data FontDescribeWithAbsoluteSizeMethodInfo
-data FontGetFontMapMethodInfo
-data FontGetGlyphExtentsMethodInfo
-data FontGetMetricsMethodInfo
diff --git a/GI/Pango/Objects/FontFace.hs b/GI/Pango/Objects/FontFace.hs
deleted file mode 100644
--- a/GI/Pango/Objects/FontFace.hs
+++ /dev/null
@@ -1,244 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
--}
-
-module GI.Pango.Objects.FontFace
- (
-
--- * Exported types
- FontFace(..) ,
- FontFaceK ,
- toFontFace ,
- noFontFace ,
-
-
- -- * Methods
--- ** fontFaceDescribe
- FontFaceDescribeMethodInfo ,
- fontFaceDescribe ,
-
-
--- ** fontFaceGetFaceName
- FontFaceGetFaceNameMethodInfo ,
- fontFaceGetFaceName ,
-
-
--- ** fontFaceIsSynthesized
- FontFaceIsSynthesizedMethodInfo ,
- fontFaceIsSynthesized ,
-
-
--- ** fontFaceListSizes
- FontFaceListSizesMethodInfo ,
- fontFaceListSizes ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-import qualified GI.GObject as GObject
-
-newtype FontFace = FontFace (ForeignPtr FontFace)
-foreign import ccall "pango_font_face_get_type"
- c_pango_font_face_get_type :: IO GType
-
-type instance ParentTypes FontFace = FontFaceParentTypes
-type FontFaceParentTypes = '[GObject.Object]
-
-instance GObject FontFace where
- gobjectIsInitiallyUnowned _ = False
- gobjectType _ = c_pango_font_face_get_type
-
-
-class GObject o => FontFaceK o
-instance (GObject o, IsDescendantOf FontFace o) => FontFaceK o
-
-toFontFace :: FontFaceK o => o -> IO FontFace
-toFontFace = unsafeCastTo FontFace
-
-noFontFace :: Maybe FontFace
-noFontFace = Nothing
-
-type family ResolveFontFaceMethod (t :: Symbol) (o :: *) :: * where
- ResolveFontFaceMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
- ResolveFontFaceMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
- ResolveFontFaceMethod "describe" o = FontFaceDescribeMethodInfo
- ResolveFontFaceMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
- ResolveFontFaceMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
- ResolveFontFaceMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
- ResolveFontFaceMethod "isSynthesized" o = FontFaceIsSynthesizedMethodInfo
- ResolveFontFaceMethod "listSizes" o = FontFaceListSizesMethodInfo
- ResolveFontFaceMethod "notify" o = GObject.ObjectNotifyMethodInfo
- ResolveFontFaceMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
- ResolveFontFaceMethod "ref" o = GObject.ObjectRefMethodInfo
- ResolveFontFaceMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
- ResolveFontFaceMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
- ResolveFontFaceMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
- ResolveFontFaceMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
- ResolveFontFaceMethod "stealData" o = GObject.ObjectStealDataMethodInfo
- ResolveFontFaceMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
- ResolveFontFaceMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
- ResolveFontFaceMethod "unref" o = GObject.ObjectUnrefMethodInfo
- ResolveFontFaceMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
- ResolveFontFaceMethod "getData" o = GObject.ObjectGetDataMethodInfo
- ResolveFontFaceMethod "getFaceName" o = FontFaceGetFaceNameMethodInfo
- ResolveFontFaceMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
- ResolveFontFaceMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
- ResolveFontFaceMethod "setData" o = GObject.ObjectSetDataMethodInfo
- ResolveFontFaceMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
- ResolveFontFaceMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveFontFaceMethod t FontFace, MethodInfo info FontFace p) => IsLabelProxy t (FontFace -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveFontFaceMethod t FontFace, MethodInfo info FontFace p) => IsLabel t (FontFace -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-type instance AttributeList FontFace = FontFaceAttributeList
-type FontFaceAttributeList = ('[ ] :: [(Symbol, *)])
-
-type instance SignalList FontFace = FontFaceSignalList
-type FontFaceSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])
-
--- method FontFace::describe
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontFace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "FontDescription")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_face_describe" pango_font_face_describe ::
- Ptr FontFace -> -- _obj : TInterface "Pango" "FontFace"
- IO (Ptr FontDescription)
-
-
-fontFaceDescribe ::
- (MonadIO m, FontFaceK a) =>
- a -- _obj
- -> m FontDescription -- result
-fontFaceDescribe _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_font_face_describe _obj'
- checkUnexpectedReturnNULL "pango_font_face_describe" result
- result' <- (wrapBoxed FontDescription) result
- touchManagedPtr _obj
- return result'
-
-data FontFaceDescribeMethodInfo
-instance (signature ~ (m FontDescription), MonadIO m, FontFaceK a) => MethodInfo FontFaceDescribeMethodInfo a signature where
- overloadedMethod _ = fontFaceDescribe
-
--- method FontFace::get_face_name
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontFace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TUTF8)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_face_get_face_name" pango_font_face_get_face_name ::
- Ptr FontFace -> -- _obj : TInterface "Pango" "FontFace"
- IO CString
-
-
-fontFaceGetFaceName ::
- (MonadIO m, FontFaceK a) =>
- a -- _obj
- -> m T.Text -- result
-fontFaceGetFaceName _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_font_face_get_face_name _obj'
- checkUnexpectedReturnNULL "pango_font_face_get_face_name" result
- result' <- cstringToText result
- touchManagedPtr _obj
- return result'
-
-data FontFaceGetFaceNameMethodInfo
-instance (signature ~ (m T.Text), MonadIO m, FontFaceK a) => MethodInfo FontFaceGetFaceNameMethodInfo a signature where
- overloadedMethod _ = fontFaceGetFaceName
-
--- method FontFace::is_synthesized
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontFace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_face_is_synthesized" pango_font_face_is_synthesized ::
- Ptr FontFace -> -- _obj : TInterface "Pango" "FontFace"
- IO CInt
-
-
-fontFaceIsSynthesized ::
- (MonadIO m, FontFaceK a) =>
- a -- _obj
- -> m Bool -- result
-fontFaceIsSynthesized _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_font_face_is_synthesized _obj'
- let result' = (/= 0) result
- touchManagedPtr _obj
- return result'
-
-data FontFaceIsSynthesizedMethodInfo
-instance (signature ~ (m Bool), MonadIO m, FontFaceK a) => MethodInfo FontFaceIsSynthesizedMethodInfo a signature where
- overloadedMethod _ = fontFaceIsSynthesized
-
--- method FontFace::list_sizes
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontFace", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sizes", argType = TCArray False (-1) 2 (TBasicType TInt), direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_sizes", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : [Arg {argCName = "n_sizes", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_face_list_sizes" pango_font_face_list_sizes ::
- Ptr FontFace -> -- _obj : TInterface "Pango" "FontFace"
- Ptr (Ptr Int32) -> -- sizes : TCArray False (-1) 2 (TBasicType TInt)
- Ptr Int32 -> -- n_sizes : TBasicType TInt
- IO ()
-
-
-fontFaceListSizes ::
- (MonadIO m, FontFaceK a) =>
- a -- _obj
- -> m ((Maybe [Int32])) -- result
-fontFaceListSizes _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- sizes <- allocMem :: IO (Ptr (Ptr Int32))
- nSizes <- allocMem :: IO (Ptr Int32)
- pango_font_face_list_sizes _obj' sizes nSizes
- nSizes' <- peek nSizes
- sizes' <- peek sizes
- maybeSizes' <- convertIfNonNull sizes' $ \sizes'' -> do
- sizes''' <- (unpackStorableArrayWithLength nSizes') sizes''
- freeMem sizes''
- return sizes'''
- touchManagedPtr _obj
- freeMem sizes
- freeMem nSizes
- return maybeSizes'
-
-data FontFaceListSizesMethodInfo
-instance (signature ~ (m ((Maybe [Int32]))), MonadIO m, FontFaceK a) => MethodInfo FontFaceListSizesMethodInfo a signature where
- overloadedMethod _ = fontFaceListSizes
-
-
diff --git a/GI/Pango/Objects/FontFace.hs-boot b/GI/Pango/Objects/FontFace.hs-boot
deleted file mode 100644
--- a/GI/Pango/Objects/FontFace.hs-boot
+++ /dev/null
@@ -1,17 +0,0 @@
-module GI.Pango.Objects.FontFace where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype FontFace = FontFace (ForeignPtr FontFace)
-instance GObject FontFace where
-class GObject o => FontFaceK o
-instance (GObject o, IsDescendantOf FontFace o) => FontFaceK o
-data FontFaceDescribeMethodInfo
-data FontFaceGetFaceNameMethodInfo
-data FontFaceIsSynthesizedMethodInfo
-data FontFaceListSizesMethodInfo
diff --git a/GI/Pango/Objects/FontFamily.hs b/GI/Pango/Objects/FontFamily.hs
deleted file mode 100644
--- a/GI/Pango/Objects/FontFamily.hs
+++ /dev/null
@@ -1,208 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
--}
-
-module GI.Pango.Objects.FontFamily
- (
-
--- * Exported types
- FontFamily(..) ,
- FontFamilyK ,
- toFontFamily ,
- noFontFamily ,
-
-
- -- * Methods
--- ** fontFamilyGetName
- FontFamilyGetNameMethodInfo ,
- fontFamilyGetName ,
-
-
--- ** fontFamilyIsMonospace
- FontFamilyIsMonospaceMethodInfo ,
- fontFamilyIsMonospace ,
-
-
--- ** fontFamilyListFaces
- FontFamilyListFacesMethodInfo ,
- fontFamilyListFaces ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-import qualified GI.GObject as GObject
-
-newtype FontFamily = FontFamily (ForeignPtr FontFamily)
-foreign import ccall "pango_font_family_get_type"
- c_pango_font_family_get_type :: IO GType
-
-type instance ParentTypes FontFamily = FontFamilyParentTypes
-type FontFamilyParentTypes = '[GObject.Object]
-
-instance GObject FontFamily where
- gobjectIsInitiallyUnowned _ = False
- gobjectType _ = c_pango_font_family_get_type
-
-
-class GObject o => FontFamilyK o
-instance (GObject o, IsDescendantOf FontFamily o) => FontFamilyK o
-
-toFontFamily :: FontFamilyK o => o -> IO FontFamily
-toFontFamily = unsafeCastTo FontFamily
-
-noFontFamily :: Maybe FontFamily
-noFontFamily = Nothing
-
-type family ResolveFontFamilyMethod (t :: Symbol) (o :: *) :: * where
- ResolveFontFamilyMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
- ResolveFontFamilyMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
- ResolveFontFamilyMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
- ResolveFontFamilyMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
- ResolveFontFamilyMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
- ResolveFontFamilyMethod "isMonospace" o = FontFamilyIsMonospaceMethodInfo
- ResolveFontFamilyMethod "listFaces" o = FontFamilyListFacesMethodInfo
- ResolveFontFamilyMethod "notify" o = GObject.ObjectNotifyMethodInfo
- ResolveFontFamilyMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
- ResolveFontFamilyMethod "ref" o = GObject.ObjectRefMethodInfo
- ResolveFontFamilyMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
- ResolveFontFamilyMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
- ResolveFontFamilyMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
- ResolveFontFamilyMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
- ResolveFontFamilyMethod "stealData" o = GObject.ObjectStealDataMethodInfo
- ResolveFontFamilyMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
- ResolveFontFamilyMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
- ResolveFontFamilyMethod "unref" o = GObject.ObjectUnrefMethodInfo
- ResolveFontFamilyMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
- ResolveFontFamilyMethod "getData" o = GObject.ObjectGetDataMethodInfo
- ResolveFontFamilyMethod "getName" o = FontFamilyGetNameMethodInfo
- ResolveFontFamilyMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
- ResolveFontFamilyMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
- ResolveFontFamilyMethod "setData" o = GObject.ObjectSetDataMethodInfo
- ResolveFontFamilyMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
- ResolveFontFamilyMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveFontFamilyMethod t FontFamily, MethodInfo info FontFamily p) => IsLabelProxy t (FontFamily -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveFontFamilyMethod t FontFamily, MethodInfo info FontFamily p) => IsLabel t (FontFamily -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-type instance AttributeList FontFamily = FontFamilyAttributeList
-type FontFamilyAttributeList = ('[ ] :: [(Symbol, *)])
-
-type instance SignalList FontFamily = FontFamilySignalList
-type FontFamilySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])
-
--- method FontFamily::get_name
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TUTF8)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_family_get_name" pango_font_family_get_name ::
- Ptr FontFamily -> -- _obj : TInterface "Pango" "FontFamily"
- IO CString
-
-
-fontFamilyGetName ::
- (MonadIO m, FontFamilyK a) =>
- a -- _obj
- -> m T.Text -- result
-fontFamilyGetName _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_font_family_get_name _obj'
- checkUnexpectedReturnNULL "pango_font_family_get_name" result
- result' <- cstringToText result
- touchManagedPtr _obj
- return result'
-
-data FontFamilyGetNameMethodInfo
-instance (signature ~ (m T.Text), MonadIO m, FontFamilyK a) => MethodInfo FontFamilyGetNameMethodInfo a signature where
- overloadedMethod _ = fontFamilyGetName
-
--- method FontFamily::is_monospace
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_family_is_monospace" pango_font_family_is_monospace ::
- Ptr FontFamily -> -- _obj : TInterface "Pango" "FontFamily"
- IO CInt
-
-
-fontFamilyIsMonospace ::
- (MonadIO m, FontFamilyK a) =>
- a -- _obj
- -> m Bool -- result
-fontFamilyIsMonospace _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_font_family_is_monospace _obj'
- let result' = (/= 0) result
- touchManagedPtr _obj
- return result'
-
-data FontFamilyIsMonospaceMethodInfo
-instance (signature ~ (m Bool), MonadIO m, FontFamilyK a) => MethodInfo FontFamilyIsMonospaceMethodInfo a signature where
- overloadedMethod _ = fontFamilyIsMonospace
-
--- method FontFamily::list_faces
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "faces", argType = TCArray False (-1) 2 (TInterface "Pango" "FontFace"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer},Arg {argCName = "n_faces", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : [Arg {argCName = "n_faces", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_family_list_faces" pango_font_family_list_faces ::
- Ptr FontFamily -> -- _obj : TInterface "Pango" "FontFamily"
- Ptr (Ptr (Ptr FontFace)) -> -- faces : TCArray False (-1) 2 (TInterface "Pango" "FontFace")
- Ptr Int32 -> -- n_faces : TBasicType TInt
- IO ()
-
-
-fontFamilyListFaces ::
- (MonadIO m, FontFamilyK a) =>
- a -- _obj
- -> m ([FontFace]) -- result
-fontFamilyListFaces _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- faces <- allocMem :: IO (Ptr (Ptr (Ptr FontFace)))
- nFaces <- allocMem :: IO (Ptr Int32)
- pango_font_family_list_faces _obj' faces nFaces
- nFaces' <- peek nFaces
- faces' <- peek faces
- faces'' <- (unpackPtrArrayWithLength nFaces') faces'
- faces''' <- mapM (newObject FontFace) faces''
- freeMem faces'
- touchManagedPtr _obj
- freeMem faces
- freeMem nFaces
- return faces'''
-
-data FontFamilyListFacesMethodInfo
-instance (signature ~ (m ([FontFace])), MonadIO m, FontFamilyK a) => MethodInfo FontFamilyListFacesMethodInfo a signature where
- overloadedMethod _ = fontFamilyListFaces
-
-
diff --git a/GI/Pango/Objects/FontFamily.hs-boot b/GI/Pango/Objects/FontFamily.hs-boot
deleted file mode 100644
--- a/GI/Pango/Objects/FontFamily.hs-boot
+++ /dev/null
@@ -1,16 +0,0 @@
-module GI.Pango.Objects.FontFamily where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype FontFamily = FontFamily (ForeignPtr FontFamily)
-instance GObject FontFamily where
-class GObject o => FontFamilyK o
-instance (GObject o, IsDescendantOf FontFamily o) => FontFamilyK o
-data FontFamilyGetNameMethodInfo
-data FontFamilyIsMonospaceMethodInfo
-data FontFamilyListFacesMethodInfo
diff --git a/GI/Pango/Objects/FontMap.hs b/GI/Pango/Objects/FontMap.hs
deleted file mode 100644
--- a/GI/Pango/Objects/FontMap.hs
+++ /dev/null
@@ -1,367 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
--}
-
-module GI.Pango.Objects.FontMap
- (
-
--- * Exported types
- FontMap(..) ,
- FontMapK ,
- toFontMap ,
- noFontMap ,
-
-
- -- * Methods
--- ** fontMapChanged
- FontMapChangedMethodInfo ,
- fontMapChanged ,
-
-
--- ** fontMapCreateContext
- FontMapCreateContextMethodInfo ,
- fontMapCreateContext ,
-
-
--- ** fontMapGetSerial
- FontMapGetSerialMethodInfo ,
- fontMapGetSerial ,
-
-
--- ** fontMapGetShapeEngineType
- FontMapGetShapeEngineTypeMethodInfo ,
- fontMapGetShapeEngineType ,
-
-
--- ** fontMapListFamilies
- FontMapListFamiliesMethodInfo ,
- fontMapListFamilies ,
-
-
--- ** fontMapLoadFont
- FontMapLoadFontMethodInfo ,
- fontMapLoadFont ,
-
-
--- ** fontMapLoadFontset
- FontMapLoadFontsetMethodInfo ,
- fontMapLoadFontset ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-import qualified GI.GObject as GObject
-
-newtype FontMap = FontMap (ForeignPtr FontMap)
-foreign import ccall "pango_font_map_get_type"
- c_pango_font_map_get_type :: IO GType
-
-type instance ParentTypes FontMap = FontMapParentTypes
-type FontMapParentTypes = '[GObject.Object]
-
-instance GObject FontMap where
- gobjectIsInitiallyUnowned _ = False
- gobjectType _ = c_pango_font_map_get_type
-
-
-class GObject o => FontMapK o
-instance (GObject o, IsDescendantOf FontMap o) => FontMapK o
-
-toFontMap :: FontMapK o => o -> IO FontMap
-toFontMap = unsafeCastTo FontMap
-
-noFontMap :: Maybe FontMap
-noFontMap = Nothing
-
-type family ResolveFontMapMethod (t :: Symbol) (o :: *) :: * where
- ResolveFontMapMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
- ResolveFontMapMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
- ResolveFontMapMethod "changed" o = FontMapChangedMethodInfo
- ResolveFontMapMethod "createContext" o = FontMapCreateContextMethodInfo
- ResolveFontMapMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
- ResolveFontMapMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
- ResolveFontMapMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
- ResolveFontMapMethod "listFamilies" o = FontMapListFamiliesMethodInfo
- ResolveFontMapMethod "loadFont" o = FontMapLoadFontMethodInfo
- ResolveFontMapMethod "loadFontset" o = FontMapLoadFontsetMethodInfo
- ResolveFontMapMethod "notify" o = GObject.ObjectNotifyMethodInfo
- ResolveFontMapMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
- ResolveFontMapMethod "ref" o = GObject.ObjectRefMethodInfo
- ResolveFontMapMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
- ResolveFontMapMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
- ResolveFontMapMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
- ResolveFontMapMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
- ResolveFontMapMethod "stealData" o = GObject.ObjectStealDataMethodInfo
- ResolveFontMapMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
- ResolveFontMapMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
- ResolveFontMapMethod "unref" o = GObject.ObjectUnrefMethodInfo
- ResolveFontMapMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
- ResolveFontMapMethod "getData" o = GObject.ObjectGetDataMethodInfo
- ResolveFontMapMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
- ResolveFontMapMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
- ResolveFontMapMethod "getSerial" o = FontMapGetSerialMethodInfo
- ResolveFontMapMethod "getShapeEngineType" o = FontMapGetShapeEngineTypeMethodInfo
- ResolveFontMapMethod "setData" o = GObject.ObjectSetDataMethodInfo
- ResolveFontMapMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
- ResolveFontMapMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveFontMapMethod t FontMap, MethodInfo info FontMap p) => IsLabelProxy t (FontMap -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveFontMapMethod t FontMap, MethodInfo info FontMap p) => IsLabel t (FontMap -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-type instance AttributeList FontMap = FontMapAttributeList
-type FontMapAttributeList = ('[ ] :: [(Symbol, *)])
-
-type instance SignalList FontMap = FontMapSignalList
-type FontMapSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])
-
--- method FontMap::changed
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_map_changed" pango_font_map_changed ::
- Ptr FontMap -> -- _obj : TInterface "Pango" "FontMap"
- IO ()
-
-
-fontMapChanged ::
- (MonadIO m, FontMapK a) =>
- a -- _obj
- -> m () -- result
-fontMapChanged _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- pango_font_map_changed _obj'
- touchManagedPtr _obj
- return ()
-
-data FontMapChangedMethodInfo
-instance (signature ~ (m ()), MonadIO m, FontMapK a) => MethodInfo FontMapChangedMethodInfo a signature where
- overloadedMethod _ = fontMapChanged
-
--- method FontMap::create_context
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Context")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_map_create_context" pango_font_map_create_context ::
- Ptr FontMap -> -- _obj : TInterface "Pango" "FontMap"
- IO (Ptr Context)
-
-
-fontMapCreateContext ::
- (MonadIO m, FontMapK a) =>
- a -- _obj
- -> m Context -- result
-fontMapCreateContext _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_font_map_create_context _obj'
- checkUnexpectedReturnNULL "pango_font_map_create_context" result
- result' <- (wrapObject Context) result
- touchManagedPtr _obj
- return result'
-
-data FontMapCreateContextMethodInfo
-instance (signature ~ (m Context), MonadIO m, FontMapK a) => MethodInfo FontMapCreateContextMethodInfo a signature where
- overloadedMethod _ = fontMapCreateContext
-
--- method FontMap::get_serial
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TUInt)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_map_get_serial" pango_font_map_get_serial ::
- Ptr FontMap -> -- _obj : TInterface "Pango" "FontMap"
- IO Word32
-
-
-fontMapGetSerial ::
- (MonadIO m, FontMapK a) =>
- a -- _obj
- -> m Word32 -- result
-fontMapGetSerial _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_font_map_get_serial _obj'
- touchManagedPtr _obj
- return result
-
-data FontMapGetSerialMethodInfo
-instance (signature ~ (m Word32), MonadIO m, FontMapK a) => MethodInfo FontMapGetSerialMethodInfo a signature where
- overloadedMethod _ = fontMapGetSerial
-
--- method FontMap::get_shape_engine_type
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TUTF8)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_map_get_shape_engine_type" pango_font_map_get_shape_engine_type ::
- Ptr FontMap -> -- _obj : TInterface "Pango" "FontMap"
- IO CString
-
-{-# DEPRECATED fontMapGetShapeEngineType ["(Since version 1.38)"]#-}
-fontMapGetShapeEngineType ::
- (MonadIO m, FontMapK a) =>
- a -- _obj
- -> m T.Text -- result
-fontMapGetShapeEngineType _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_font_map_get_shape_engine_type _obj'
- checkUnexpectedReturnNULL "pango_font_map_get_shape_engine_type" result
- result' <- cstringToText result
- touchManagedPtr _obj
- return result'
-
-data FontMapGetShapeEngineTypeMethodInfo
-instance (signature ~ (m T.Text), MonadIO m, FontMapK a) => MethodInfo FontMapGetShapeEngineTypeMethodInfo a signature where
- overloadedMethod _ = fontMapGetShapeEngineType
-
--- method FontMap::list_families
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "families", argType = TCArray False (-1) 2 (TInterface "Pango" "FontFamily"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer},Arg {argCName = "n_families", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : [Arg {argCName = "n_families", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_map_list_families" pango_font_map_list_families ::
- Ptr FontMap -> -- _obj : TInterface "Pango" "FontMap"
- Ptr (Ptr (Ptr FontFamily)) -> -- families : TCArray False (-1) 2 (TInterface "Pango" "FontFamily")
- Ptr Int32 -> -- n_families : TBasicType TInt
- IO ()
-
-
-fontMapListFamilies ::
- (MonadIO m, FontMapK a) =>
- a -- _obj
- -> m ([FontFamily]) -- result
-fontMapListFamilies _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- families <- allocMem :: IO (Ptr (Ptr (Ptr FontFamily)))
- nFamilies <- allocMem :: IO (Ptr Int32)
- pango_font_map_list_families _obj' families nFamilies
- nFamilies' <- peek nFamilies
- families' <- peek families
- families'' <- (unpackPtrArrayWithLength nFamilies') families'
- families''' <- mapM (newObject FontFamily) families''
- freeMem families'
- touchManagedPtr _obj
- freeMem families
- freeMem nFamilies
- return families'''
-
-data FontMapListFamiliesMethodInfo
-instance (signature ~ (m ([FontFamily])), MonadIO m, FontMapK a) => MethodInfo FontMapListFamiliesMethodInfo a signature where
- overloadedMethod _ = fontMapListFamilies
-
--- method FontMap::load_font
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Font")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_map_load_font" pango_font_map_load_font ::
- Ptr FontMap -> -- _obj : TInterface "Pango" "FontMap"
- Ptr Context -> -- context : TInterface "Pango" "Context"
- Ptr FontDescription -> -- desc : TInterface "Pango" "FontDescription"
- IO (Ptr Font)
-
-
-fontMapLoadFont ::
- (MonadIO m, FontMapK a, ContextK b) =>
- a -- _obj
- -> b -- context
- -> FontDescription -- desc
- -> m (Maybe Font) -- result
-fontMapLoadFont _obj context desc = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let context' = unsafeManagedPtrCastPtr context
- let desc' = unsafeManagedPtrGetPtr desc
- result <- pango_font_map_load_font _obj' context' desc'
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (wrapObject Font) result'
- return result''
- touchManagedPtr _obj
- touchManagedPtr context
- touchManagedPtr desc
- return maybeResult
-
-data FontMapLoadFontMethodInfo
-instance (signature ~ (b -> FontDescription -> m (Maybe Font)), MonadIO m, FontMapK a, ContextK b) => MethodInfo FontMapLoadFontMethodInfo a signature where
- overloadedMethod _ = fontMapLoadFont
-
--- method FontMap::load_fontset
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Fontset")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_map_load_fontset" pango_font_map_load_fontset ::
- Ptr FontMap -> -- _obj : TInterface "Pango" "FontMap"
- Ptr Context -> -- context : TInterface "Pango" "Context"
- Ptr FontDescription -> -- desc : TInterface "Pango" "FontDescription"
- Ptr Language -> -- language : TInterface "Pango" "Language"
- IO (Ptr Fontset)
-
-
-fontMapLoadFontset ::
- (MonadIO m, FontMapK a, ContextK b) =>
- a -- _obj
- -> b -- context
- -> FontDescription -- desc
- -> Language -- language
- -> m (Maybe Fontset) -- result
-fontMapLoadFontset _obj context desc language = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let context' = unsafeManagedPtrCastPtr context
- let desc' = unsafeManagedPtrGetPtr desc
- let language' = unsafeManagedPtrGetPtr language
- result <- pango_font_map_load_fontset _obj' context' desc' language'
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (wrapObject Fontset) result'
- return result''
- touchManagedPtr _obj
- touchManagedPtr context
- touchManagedPtr desc
- touchManagedPtr language
- return maybeResult
-
-data FontMapLoadFontsetMethodInfo
-instance (signature ~ (b -> FontDescription -> Language -> m (Maybe Fontset)), MonadIO m, FontMapK a, ContextK b) => MethodInfo FontMapLoadFontsetMethodInfo a signature where
- overloadedMethod _ = fontMapLoadFontset
-
-
diff --git a/GI/Pango/Objects/FontMap.hs-boot b/GI/Pango/Objects/FontMap.hs-boot
deleted file mode 100644
--- a/GI/Pango/Objects/FontMap.hs-boot
+++ /dev/null
@@ -1,20 +0,0 @@
-module GI.Pango.Objects.FontMap where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype FontMap = FontMap (ForeignPtr FontMap)
-instance GObject FontMap where
-class GObject o => FontMapK o
-instance (GObject o, IsDescendantOf FontMap o) => FontMapK o
-data FontMapChangedMethodInfo
-data FontMapCreateContextMethodInfo
-data FontMapGetSerialMethodInfo
-data FontMapGetShapeEngineTypeMethodInfo
-data FontMapListFamiliesMethodInfo
-data FontMapLoadFontMethodInfo
-data FontMapLoadFontsetMethodInfo
diff --git a/GI/Pango/Objects/Fontset.hs b/GI/Pango/Objects/Fontset.hs
deleted file mode 100644
--- a/GI/Pango/Objects/Fontset.hs
+++ /dev/null
@@ -1,206 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
--}
-
-module GI.Pango.Objects.Fontset
- (
-
--- * Exported types
- Fontset(..) ,
- FontsetK ,
- toFontset ,
- noFontset ,
-
-
- -- * Methods
--- ** fontsetForeach
- FontsetForeachMethodInfo ,
- fontsetForeach ,
-
-
--- ** fontsetGetFont
- FontsetGetFontMethodInfo ,
- fontsetGetFont ,
-
-
--- ** fontsetGetMetrics
- FontsetGetMetricsMethodInfo ,
- fontsetGetMetrics ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-import qualified GI.GObject as GObject
-
-newtype Fontset = Fontset (ForeignPtr Fontset)
-foreign import ccall "pango_fontset_get_type"
- c_pango_fontset_get_type :: IO GType
-
-type instance ParentTypes Fontset = FontsetParentTypes
-type FontsetParentTypes = '[GObject.Object]
-
-instance GObject Fontset where
- gobjectIsInitiallyUnowned _ = False
- gobjectType _ = c_pango_fontset_get_type
-
-
-class GObject o => FontsetK o
-instance (GObject o, IsDescendantOf Fontset o) => FontsetK o
-
-toFontset :: FontsetK o => o -> IO Fontset
-toFontset = unsafeCastTo Fontset
-
-noFontset :: Maybe Fontset
-noFontset = Nothing
-
-type family ResolveFontsetMethod (t :: Symbol) (o :: *) :: * where
- ResolveFontsetMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
- ResolveFontsetMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
- ResolveFontsetMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
- ResolveFontsetMethod "foreach" o = FontsetForeachMethodInfo
- ResolveFontsetMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
- ResolveFontsetMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
- ResolveFontsetMethod "notify" o = GObject.ObjectNotifyMethodInfo
- ResolveFontsetMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
- ResolveFontsetMethod "ref" o = GObject.ObjectRefMethodInfo
- ResolveFontsetMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
- ResolveFontsetMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
- ResolveFontsetMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
- ResolveFontsetMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
- ResolveFontsetMethod "stealData" o = GObject.ObjectStealDataMethodInfo
- ResolveFontsetMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
- ResolveFontsetMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
- ResolveFontsetMethod "unref" o = GObject.ObjectUnrefMethodInfo
- ResolveFontsetMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
- ResolveFontsetMethod "getData" o = GObject.ObjectGetDataMethodInfo
- ResolveFontsetMethod "getFont" o = FontsetGetFontMethodInfo
- ResolveFontsetMethod "getMetrics" o = FontsetGetMetricsMethodInfo
- ResolveFontsetMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
- ResolveFontsetMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
- ResolveFontsetMethod "setData" o = GObject.ObjectSetDataMethodInfo
- ResolveFontsetMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
- ResolveFontsetMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveFontsetMethod t Fontset, MethodInfo info Fontset p) => IsLabelProxy t (Fontset -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveFontsetMethod t Fontset, MethodInfo info Fontset p) => IsLabel t (Fontset -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-type instance AttributeList Fontset = FontsetAttributeList
-type FontsetAttributeList = ('[ ] :: [(Symbol, *)])
-
-type instance SignalList Fontset = FontsetSignalList
-type FontsetSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])
-
--- method Fontset::foreach
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Fontset", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Pango" "FontsetForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_fontset_foreach" pango_fontset_foreach ::
- Ptr Fontset -> -- _obj : TInterface "Pango" "Fontset"
- FunPtr FontsetForeachFuncC -> -- func : TInterface "Pango" "FontsetForeachFunc"
- Ptr () -> -- data : TBasicType TPtr
- IO ()
-
-
-fontsetForeach ::
- (MonadIO m, FontsetK a) =>
- a -- _obj
- -> FontsetForeachFunc -- func
- -> m () -- result
-fontsetForeach _obj func = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- func' <- mkFontsetForeachFunc (fontsetForeachFuncWrapper Nothing func)
- let data_ = nullPtr
- pango_fontset_foreach _obj' func' data_
- safeFreeFunPtr $ castFunPtrToPtr func'
- touchManagedPtr _obj
- return ()
-
-data FontsetForeachMethodInfo
-instance (signature ~ (FontsetForeachFunc -> m ()), MonadIO m, FontsetK a) => MethodInfo FontsetForeachMethodInfo a signature where
- overloadedMethod _ = fontsetForeach
-
--- method Fontset::get_font
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Fontset", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wc", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Font")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_fontset_get_font" pango_fontset_get_font ::
- Ptr Fontset -> -- _obj : TInterface "Pango" "Fontset"
- Word32 -> -- wc : TBasicType TUInt
- IO (Ptr Font)
-
-
-fontsetGetFont ::
- (MonadIO m, FontsetK a) =>
- a -- _obj
- -> Word32 -- wc
- -> m Font -- result
-fontsetGetFont _obj wc = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_fontset_get_font _obj' wc
- checkUnexpectedReturnNULL "pango_fontset_get_font" result
- result' <- (wrapObject Font) result
- touchManagedPtr _obj
- return result'
-
-data FontsetGetFontMethodInfo
-instance (signature ~ (Word32 -> m Font), MonadIO m, FontsetK a) => MethodInfo FontsetGetFontMethodInfo a signature where
- overloadedMethod _ = fontsetGetFont
-
--- method Fontset::get_metrics
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Fontset", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "FontMetrics")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_fontset_get_metrics" pango_fontset_get_metrics ::
- Ptr Fontset -> -- _obj : TInterface "Pango" "Fontset"
- IO (Ptr FontMetrics)
-
-
-fontsetGetMetrics ::
- (MonadIO m, FontsetK a) =>
- a -- _obj
- -> m FontMetrics -- result
-fontsetGetMetrics _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_fontset_get_metrics _obj'
- checkUnexpectedReturnNULL "pango_fontset_get_metrics" result
- result' <- (wrapBoxed FontMetrics) result
- touchManagedPtr _obj
- return result'
-
-data FontsetGetMetricsMethodInfo
-instance (signature ~ (m FontMetrics), MonadIO m, FontsetK a) => MethodInfo FontsetGetMetricsMethodInfo a signature where
- overloadedMethod _ = fontsetGetMetrics
-
-
diff --git a/GI/Pango/Objects/Fontset.hs-boot b/GI/Pango/Objects/Fontset.hs-boot
deleted file mode 100644
--- a/GI/Pango/Objects/Fontset.hs-boot
+++ /dev/null
@@ -1,16 +0,0 @@
-module GI.Pango.Objects.Fontset where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype Fontset = Fontset (ForeignPtr Fontset)
-instance GObject Fontset where
-class GObject o => FontsetK o
-instance (GObject o, IsDescendantOf Fontset o) => FontsetK o
-data FontsetForeachMethodInfo
-data FontsetGetFontMethodInfo
-data FontsetGetMetricsMethodInfo
diff --git a/GI/Pango/Objects/FontsetSimple.hs b/GI/Pango/Objects/FontsetSimple.hs
deleted file mode 100644
--- a/GI/Pango/Objects/FontsetSimple.hs
+++ /dev/null
@@ -1,197 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
--}
-
-module GI.Pango.Objects.FontsetSimple
- (
-
--- * Exported types
- FontsetSimple(..) ,
- FontsetSimpleK ,
- toFontsetSimple ,
- noFontsetSimple ,
-
-
- -- * Methods
--- ** fontsetSimpleAppend
- FontsetSimpleAppendMethodInfo ,
- fontsetSimpleAppend ,
-
-
--- ** fontsetSimpleNew
- fontsetSimpleNew ,
-
-
--- ** fontsetSimpleSize
- FontsetSimpleSizeMethodInfo ,
- fontsetSimpleSize ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-import qualified GI.GObject as GObject
-
-newtype FontsetSimple = FontsetSimple (ForeignPtr FontsetSimple)
-foreign import ccall "pango_fontset_simple_get_type"
- c_pango_fontset_simple_get_type :: IO GType
-
-type instance ParentTypes FontsetSimple = FontsetSimpleParentTypes
-type FontsetSimpleParentTypes = '[Fontset, GObject.Object]
-
-instance GObject FontsetSimple where
- gobjectIsInitiallyUnowned _ = False
- gobjectType _ = c_pango_fontset_simple_get_type
-
-
-class GObject o => FontsetSimpleK o
-instance (GObject o, IsDescendantOf FontsetSimple o) => FontsetSimpleK o
-
-toFontsetSimple :: FontsetSimpleK o => o -> IO FontsetSimple
-toFontsetSimple = unsafeCastTo FontsetSimple
-
-noFontsetSimple :: Maybe FontsetSimple
-noFontsetSimple = Nothing
-
-type family ResolveFontsetSimpleMethod (t :: Symbol) (o :: *) :: * where
- ResolveFontsetSimpleMethod "append" o = FontsetSimpleAppendMethodInfo
- ResolveFontsetSimpleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
- ResolveFontsetSimpleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
- ResolveFontsetSimpleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
- ResolveFontsetSimpleMethod "foreach" o = FontsetForeachMethodInfo
- ResolveFontsetSimpleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
- ResolveFontsetSimpleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
- ResolveFontsetSimpleMethod "notify" o = GObject.ObjectNotifyMethodInfo
- ResolveFontsetSimpleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
- ResolveFontsetSimpleMethod "ref" o = GObject.ObjectRefMethodInfo
- ResolveFontsetSimpleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
- ResolveFontsetSimpleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
- ResolveFontsetSimpleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
- ResolveFontsetSimpleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
- ResolveFontsetSimpleMethod "size" o = FontsetSimpleSizeMethodInfo
- ResolveFontsetSimpleMethod "stealData" o = GObject.ObjectStealDataMethodInfo
- ResolveFontsetSimpleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
- ResolveFontsetSimpleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
- ResolveFontsetSimpleMethod "unref" o = GObject.ObjectUnrefMethodInfo
- ResolveFontsetSimpleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
- ResolveFontsetSimpleMethod "getData" o = GObject.ObjectGetDataMethodInfo
- ResolveFontsetSimpleMethod "getFont" o = FontsetGetFontMethodInfo
- ResolveFontsetSimpleMethod "getMetrics" o = FontsetGetMetricsMethodInfo
- ResolveFontsetSimpleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
- ResolveFontsetSimpleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
- ResolveFontsetSimpleMethod "setData" o = GObject.ObjectSetDataMethodInfo
- ResolveFontsetSimpleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
- ResolveFontsetSimpleMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveFontsetSimpleMethod t FontsetSimple, MethodInfo info FontsetSimple p) => IsLabelProxy t (FontsetSimple -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveFontsetSimpleMethod t FontsetSimple, MethodInfo info FontsetSimple p) => IsLabel t (FontsetSimple -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-type instance AttributeList FontsetSimple = FontsetSimpleAttributeList
-type FontsetSimpleAttributeList = ('[ ] :: [(Symbol, *)])
-
-type instance SignalList FontsetSimple = FontsetSimpleSignalList
-type FontsetSimpleSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])
-
--- method FontsetSimple::new
--- method type : Constructor
--- Args : [Arg {argCName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "FontsetSimple")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_fontset_simple_new" pango_fontset_simple_new ::
- Ptr Language -> -- language : TInterface "Pango" "Language"
- IO (Ptr FontsetSimple)
-
-
-fontsetSimpleNew ::
- (MonadIO m) =>
- Language -- language
- -> m FontsetSimple -- result
-fontsetSimpleNew language = liftIO $ do
- let language' = unsafeManagedPtrGetPtr language
- result <- pango_fontset_simple_new language'
- checkUnexpectedReturnNULL "pango_fontset_simple_new" result
- result' <- (wrapObject FontsetSimple) result
- touchManagedPtr language
- return result'
-
--- method FontsetSimple::append
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontsetSimple", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_fontset_simple_append" pango_fontset_simple_append ::
- Ptr FontsetSimple -> -- _obj : TInterface "Pango" "FontsetSimple"
- Ptr Font -> -- font : TInterface "Pango" "Font"
- IO ()
-
-
-fontsetSimpleAppend ::
- (MonadIO m, FontsetSimpleK a, FontK b) =>
- a -- _obj
- -> b -- font
- -> m () -- result
-fontsetSimpleAppend _obj font = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let font' = unsafeManagedPtrCastPtr font
- pango_fontset_simple_append _obj' font'
- touchManagedPtr _obj
- touchManagedPtr font
- return ()
-
-data FontsetSimpleAppendMethodInfo
-instance (signature ~ (b -> m ()), MonadIO m, FontsetSimpleK a, FontK b) => MethodInfo FontsetSimpleAppendMethodInfo a signature where
- overloadedMethod _ = fontsetSimpleAppend
-
--- method FontsetSimple::size
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontsetSimple", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TInt)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_fontset_simple_size" pango_fontset_simple_size ::
- Ptr FontsetSimple -> -- _obj : TInterface "Pango" "FontsetSimple"
- IO Int32
-
-
-fontsetSimpleSize ::
- (MonadIO m, FontsetSimpleK a) =>
- a -- _obj
- -> m Int32 -- result
-fontsetSimpleSize _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_fontset_simple_size _obj'
- touchManagedPtr _obj
- return result
-
-data FontsetSimpleSizeMethodInfo
-instance (signature ~ (m Int32), MonadIO m, FontsetSimpleK a) => MethodInfo FontsetSimpleSizeMethodInfo a signature where
- overloadedMethod _ = fontsetSimpleSize
-
-
diff --git a/GI/Pango/Objects/FontsetSimple.hs-boot b/GI/Pango/Objects/FontsetSimple.hs-boot
deleted file mode 100644
--- a/GI/Pango/Objects/FontsetSimple.hs-boot
+++ /dev/null
@@ -1,15 +0,0 @@
-module GI.Pango.Objects.FontsetSimple where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype FontsetSimple = FontsetSimple (ForeignPtr FontsetSimple)
-instance GObject FontsetSimple where
-class GObject o => FontsetSimpleK o
-instance (GObject o, IsDescendantOf FontsetSimple o) => FontsetSimpleK o
-data FontsetSimpleAppendMethodInfo
-data FontsetSimpleSizeMethodInfo
diff --git a/GI/Pango/Objects/Layout.hs b/GI/Pango/Objects/Layout.hs
deleted file mode 100644
--- a/GI/Pango/Objects/Layout.hs
+++ /dev/null
@@ -1,2188 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
--}
-
-module GI.Pango.Objects.Layout
- (
-
--- * Exported types
- Layout(..) ,
- LayoutK ,
- toLayout ,
- noLayout ,
-
-
- -- * Methods
--- ** layoutContextChanged
- LayoutContextChangedMethodInfo ,
- layoutContextChanged ,
-
-
--- ** layoutCopy
- LayoutCopyMethodInfo ,
- layoutCopy ,
-
-
--- ** layoutGetAlignment
- LayoutGetAlignmentMethodInfo ,
- layoutGetAlignment ,
-
-
--- ** layoutGetAttributes
- LayoutGetAttributesMethodInfo ,
- layoutGetAttributes ,
-
-
--- ** layoutGetAutoDir
- LayoutGetAutoDirMethodInfo ,
- layoutGetAutoDir ,
-
-
--- ** layoutGetBaseline
- LayoutGetBaselineMethodInfo ,
- layoutGetBaseline ,
-
-
--- ** layoutGetCharacterCount
- LayoutGetCharacterCountMethodInfo ,
- layoutGetCharacterCount ,
-
-
--- ** layoutGetContext
- LayoutGetContextMethodInfo ,
- layoutGetContext ,
-
-
--- ** layoutGetCursorPos
- LayoutGetCursorPosMethodInfo ,
- layoutGetCursorPos ,
-
-
--- ** layoutGetEllipsize
- LayoutGetEllipsizeMethodInfo ,
- layoutGetEllipsize ,
-
-
--- ** layoutGetExtents
- LayoutGetExtentsMethodInfo ,
- layoutGetExtents ,
-
-
--- ** layoutGetFontDescription
- LayoutGetFontDescriptionMethodInfo ,
- layoutGetFontDescription ,
-
-
--- ** layoutGetHeight
- LayoutGetHeightMethodInfo ,
- layoutGetHeight ,
-
-
--- ** layoutGetIndent
- LayoutGetIndentMethodInfo ,
- layoutGetIndent ,
-
-
--- ** layoutGetIter
- LayoutGetIterMethodInfo ,
- layoutGetIter ,
-
-
--- ** layoutGetJustify
- LayoutGetJustifyMethodInfo ,
- layoutGetJustify ,
-
-
--- ** layoutGetLine
- LayoutGetLineMethodInfo ,
- layoutGetLine ,
-
-
--- ** layoutGetLineCount
- LayoutGetLineCountMethodInfo ,
- layoutGetLineCount ,
-
-
--- ** layoutGetLineReadonly
- LayoutGetLineReadonlyMethodInfo ,
- layoutGetLineReadonly ,
-
-
--- ** layoutGetLines
- LayoutGetLinesMethodInfo ,
- layoutGetLines ,
-
-
--- ** layoutGetLinesReadonly
- LayoutGetLinesReadonlyMethodInfo ,
- layoutGetLinesReadonly ,
-
-
--- ** layoutGetLogAttrs
- LayoutGetLogAttrsMethodInfo ,
- layoutGetLogAttrs ,
-
-
--- ** layoutGetLogAttrsReadonly
- LayoutGetLogAttrsReadonlyMethodInfo ,
- layoutGetLogAttrsReadonly ,
-
-
--- ** layoutGetPixelExtents
- LayoutGetPixelExtentsMethodInfo ,
- layoutGetPixelExtents ,
-
-
--- ** layoutGetPixelSize
- LayoutGetPixelSizeMethodInfo ,
- layoutGetPixelSize ,
-
-
--- ** layoutGetSerial
- LayoutGetSerialMethodInfo ,
- layoutGetSerial ,
-
-
--- ** layoutGetSingleParagraphMode
- LayoutGetSingleParagraphModeMethodInfo ,
- layoutGetSingleParagraphMode ,
-
-
--- ** layoutGetSize
- LayoutGetSizeMethodInfo ,
- layoutGetSize ,
-
-
--- ** layoutGetSpacing
- LayoutGetSpacingMethodInfo ,
- layoutGetSpacing ,
-
-
--- ** layoutGetTabs
- LayoutGetTabsMethodInfo ,
- layoutGetTabs ,
-
-
--- ** layoutGetText
- LayoutGetTextMethodInfo ,
- layoutGetText ,
-
-
--- ** layoutGetUnknownGlyphsCount
- LayoutGetUnknownGlyphsCountMethodInfo ,
- layoutGetUnknownGlyphsCount ,
-
-
--- ** layoutGetWidth
- LayoutGetWidthMethodInfo ,
- layoutGetWidth ,
-
-
--- ** layoutGetWrap
- LayoutGetWrapMethodInfo ,
- layoutGetWrap ,
-
-
--- ** layoutIndexToLineX
- LayoutIndexToLineXMethodInfo ,
- layoutIndexToLineX ,
-
-
--- ** layoutIndexToPos
- LayoutIndexToPosMethodInfo ,
- layoutIndexToPos ,
-
-
--- ** layoutIsEllipsized
- LayoutIsEllipsizedMethodInfo ,
- layoutIsEllipsized ,
-
-
--- ** layoutIsWrapped
- LayoutIsWrappedMethodInfo ,
- layoutIsWrapped ,
-
-
--- ** layoutMoveCursorVisually
- LayoutMoveCursorVisuallyMethodInfo ,
- layoutMoveCursorVisually ,
-
-
--- ** layoutNew
- layoutNew ,
-
-
--- ** layoutSetAlignment
- LayoutSetAlignmentMethodInfo ,
- layoutSetAlignment ,
-
-
--- ** layoutSetAttributes
- LayoutSetAttributesMethodInfo ,
- layoutSetAttributes ,
-
-
--- ** layoutSetAutoDir
- LayoutSetAutoDirMethodInfo ,
- layoutSetAutoDir ,
-
-
--- ** layoutSetEllipsize
- LayoutSetEllipsizeMethodInfo ,
- layoutSetEllipsize ,
-
-
--- ** layoutSetFontDescription
- LayoutSetFontDescriptionMethodInfo ,
- layoutSetFontDescription ,
-
-
--- ** layoutSetHeight
- LayoutSetHeightMethodInfo ,
- layoutSetHeight ,
-
-
--- ** layoutSetIndent
- LayoutSetIndentMethodInfo ,
- layoutSetIndent ,
-
-
--- ** layoutSetJustify
- LayoutSetJustifyMethodInfo ,
- layoutSetJustify ,
-
-
--- ** layoutSetMarkup
- LayoutSetMarkupMethodInfo ,
- layoutSetMarkup ,
-
-
--- ** layoutSetMarkupWithAccel
- LayoutSetMarkupWithAccelMethodInfo ,
- layoutSetMarkupWithAccel ,
-
-
--- ** layoutSetSingleParagraphMode
- LayoutSetSingleParagraphModeMethodInfo ,
- layoutSetSingleParagraphMode ,
-
-
--- ** layoutSetSpacing
- LayoutSetSpacingMethodInfo ,
- layoutSetSpacing ,
-
-
--- ** layoutSetTabs
- LayoutSetTabsMethodInfo ,
- layoutSetTabs ,
-
-
--- ** layoutSetText
- LayoutSetTextMethodInfo ,
- layoutSetText ,
-
-
--- ** layoutSetWidth
- LayoutSetWidthMethodInfo ,
- layoutSetWidth ,
-
-
--- ** layoutSetWrap
- LayoutSetWrapMethodInfo ,
- layoutSetWrap ,
-
-
--- ** layoutXyToIndex
- LayoutXyToIndexMethodInfo ,
- layoutXyToIndex ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-import qualified GI.GObject as GObject
-
-newtype Layout = Layout (ForeignPtr Layout)
-foreign import ccall "pango_layout_get_type"
- c_pango_layout_get_type :: IO GType
-
-type instance ParentTypes Layout = LayoutParentTypes
-type LayoutParentTypes = '[GObject.Object]
-
-instance GObject Layout where
- gobjectIsInitiallyUnowned _ = False
- gobjectType _ = c_pango_layout_get_type
-
-
-class GObject o => LayoutK o
-instance (GObject o, IsDescendantOf Layout o) => LayoutK o
-
-toLayout :: LayoutK o => o -> IO Layout
-toLayout = unsafeCastTo Layout
-
-noLayout :: Maybe Layout
-noLayout = Nothing
-
-type family ResolveLayoutMethod (t :: Symbol) (o :: *) :: * where
- ResolveLayoutMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
- ResolveLayoutMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
- ResolveLayoutMethod "contextChanged" o = LayoutContextChangedMethodInfo
- ResolveLayoutMethod "copy" o = LayoutCopyMethodInfo
- ResolveLayoutMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
- ResolveLayoutMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
- ResolveLayoutMethod "indexToLineX" o = LayoutIndexToLineXMethodInfo
- ResolveLayoutMethod "indexToPos" o = LayoutIndexToPosMethodInfo
- ResolveLayoutMethod "isEllipsized" o = LayoutIsEllipsizedMethodInfo
- ResolveLayoutMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
- ResolveLayoutMethod "isWrapped" o = LayoutIsWrappedMethodInfo
- ResolveLayoutMethod "moveCursorVisually" o = LayoutMoveCursorVisuallyMethodInfo
- ResolveLayoutMethod "notify" o = GObject.ObjectNotifyMethodInfo
- ResolveLayoutMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
- ResolveLayoutMethod "ref" o = GObject.ObjectRefMethodInfo
- ResolveLayoutMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
- ResolveLayoutMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
- ResolveLayoutMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
- ResolveLayoutMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
- ResolveLayoutMethod "stealData" o = GObject.ObjectStealDataMethodInfo
- ResolveLayoutMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
- ResolveLayoutMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
- ResolveLayoutMethod "unref" o = GObject.ObjectUnrefMethodInfo
- ResolveLayoutMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
- ResolveLayoutMethod "xyToIndex" o = LayoutXyToIndexMethodInfo
- ResolveLayoutMethod "getAlignment" o = LayoutGetAlignmentMethodInfo
- ResolveLayoutMethod "getAttributes" o = LayoutGetAttributesMethodInfo
- ResolveLayoutMethod "getAutoDir" o = LayoutGetAutoDirMethodInfo
- ResolveLayoutMethod "getBaseline" o = LayoutGetBaselineMethodInfo
- ResolveLayoutMethod "getCharacterCount" o = LayoutGetCharacterCountMethodInfo
- ResolveLayoutMethod "getContext" o = LayoutGetContextMethodInfo
- ResolveLayoutMethod "getCursorPos" o = LayoutGetCursorPosMethodInfo
- ResolveLayoutMethod "getData" o = GObject.ObjectGetDataMethodInfo
- ResolveLayoutMethod "getEllipsize" o = LayoutGetEllipsizeMethodInfo
- ResolveLayoutMethod "getExtents" o = LayoutGetExtentsMethodInfo
- ResolveLayoutMethod "getFontDescription" o = LayoutGetFontDescriptionMethodInfo
- ResolveLayoutMethod "getHeight" o = LayoutGetHeightMethodInfo
- ResolveLayoutMethod "getIndent" o = LayoutGetIndentMethodInfo
- ResolveLayoutMethod "getIter" o = LayoutGetIterMethodInfo
- ResolveLayoutMethod "getJustify" o = LayoutGetJustifyMethodInfo
- ResolveLayoutMethod "getLine" o = LayoutGetLineMethodInfo
- ResolveLayoutMethod "getLineCount" o = LayoutGetLineCountMethodInfo
- ResolveLayoutMethod "getLineReadonly" o = LayoutGetLineReadonlyMethodInfo
- ResolveLayoutMethod "getLines" o = LayoutGetLinesMethodInfo
- ResolveLayoutMethod "getLinesReadonly" o = LayoutGetLinesReadonlyMethodInfo
- ResolveLayoutMethod "getLogAttrs" o = LayoutGetLogAttrsMethodInfo
- ResolveLayoutMethod "getLogAttrsReadonly" o = LayoutGetLogAttrsReadonlyMethodInfo
- ResolveLayoutMethod "getPixelExtents" o = LayoutGetPixelExtentsMethodInfo
- ResolveLayoutMethod "getPixelSize" o = LayoutGetPixelSizeMethodInfo
- ResolveLayoutMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
- ResolveLayoutMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
- ResolveLayoutMethod "getSerial" o = LayoutGetSerialMethodInfo
- ResolveLayoutMethod "getSingleParagraphMode" o = LayoutGetSingleParagraphModeMethodInfo
- ResolveLayoutMethod "getSize" o = LayoutGetSizeMethodInfo
- ResolveLayoutMethod "getSpacing" o = LayoutGetSpacingMethodInfo
- ResolveLayoutMethod "getTabs" o = LayoutGetTabsMethodInfo
- ResolveLayoutMethod "getText" o = LayoutGetTextMethodInfo
- ResolveLayoutMethod "getUnknownGlyphsCount" o = LayoutGetUnknownGlyphsCountMethodInfo
- ResolveLayoutMethod "getWidth" o = LayoutGetWidthMethodInfo
- ResolveLayoutMethod "getWrap" o = LayoutGetWrapMethodInfo
- ResolveLayoutMethod "setAlignment" o = LayoutSetAlignmentMethodInfo
- ResolveLayoutMethod "setAttributes" o = LayoutSetAttributesMethodInfo
- ResolveLayoutMethod "setAutoDir" o = LayoutSetAutoDirMethodInfo
- ResolveLayoutMethod "setData" o = GObject.ObjectSetDataMethodInfo
- ResolveLayoutMethod "setEllipsize" o = LayoutSetEllipsizeMethodInfo
- ResolveLayoutMethod "setFontDescription" o = LayoutSetFontDescriptionMethodInfo
- ResolveLayoutMethod "setHeight" o = LayoutSetHeightMethodInfo
- ResolveLayoutMethod "setIndent" o = LayoutSetIndentMethodInfo
- ResolveLayoutMethod "setJustify" o = LayoutSetJustifyMethodInfo
- ResolveLayoutMethod "setMarkup" o = LayoutSetMarkupMethodInfo
- ResolveLayoutMethod "setMarkupWithAccel" o = LayoutSetMarkupWithAccelMethodInfo
- ResolveLayoutMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
- ResolveLayoutMethod "setSingleParagraphMode" o = LayoutSetSingleParagraphModeMethodInfo
- ResolveLayoutMethod "setSpacing" o = LayoutSetSpacingMethodInfo
- ResolveLayoutMethod "setTabs" o = LayoutSetTabsMethodInfo
- ResolveLayoutMethod "setText" o = LayoutSetTextMethodInfo
- ResolveLayoutMethod "setWidth" o = LayoutSetWidthMethodInfo
- ResolveLayoutMethod "setWrap" o = LayoutSetWrapMethodInfo
- ResolveLayoutMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveLayoutMethod t Layout, MethodInfo info Layout p) => IsLabelProxy t (Layout -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveLayoutMethod t Layout, MethodInfo info Layout p) => IsLabel t (Layout -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-type instance AttributeList Layout = LayoutAttributeList
-type LayoutAttributeList = ('[ ] :: [(Symbol, *)])
-
-type instance SignalList Layout = LayoutSignalList
-type LayoutSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])
-
--- method Layout::new
--- method type : Constructor
--- Args : [Arg {argCName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Layout")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_new" pango_layout_new ::
- Ptr Context -> -- context : TInterface "Pango" "Context"
- IO (Ptr Layout)
-
-
-layoutNew ::
- (MonadIO m, ContextK a) =>
- a -- context
- -> m Layout -- result
-layoutNew context = liftIO $ do
- let context' = unsafeManagedPtrCastPtr context
- result <- pango_layout_new context'
- checkUnexpectedReturnNULL "pango_layout_new" result
- result' <- (wrapObject Layout) result
- touchManagedPtr context
- return result'
-
--- method Layout::context_changed
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_context_changed" pango_layout_context_changed ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- IO ()
-
-
-layoutContextChanged ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m () -- result
-layoutContextChanged _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- pango_layout_context_changed _obj'
- touchManagedPtr _obj
- return ()
-
-data LayoutContextChangedMethodInfo
-instance (signature ~ (m ()), MonadIO m, LayoutK a) => MethodInfo LayoutContextChangedMethodInfo a signature where
- overloadedMethod _ = layoutContextChanged
-
--- method Layout::copy
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Layout")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_copy" pango_layout_copy ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- IO (Ptr Layout)
-
-
-layoutCopy ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m Layout -- result
-layoutCopy _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_layout_copy _obj'
- checkUnexpectedReturnNULL "pango_layout_copy" result
- result' <- (wrapObject Layout) result
- touchManagedPtr _obj
- return result'
-
-data LayoutCopyMethodInfo
-instance (signature ~ (m Layout), MonadIO m, LayoutK a) => MethodInfo LayoutCopyMethodInfo a signature where
- overloadedMethod _ = layoutCopy
-
--- method Layout::get_alignment
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Alignment")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_alignment" pango_layout_get_alignment ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- IO CUInt
-
-
-layoutGetAlignment ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m Alignment -- result
-layoutGetAlignment _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_layout_get_alignment _obj'
- let result' = (toEnum . fromIntegral) result
- touchManagedPtr _obj
- return result'
-
-data LayoutGetAlignmentMethodInfo
-instance (signature ~ (m Alignment), MonadIO m, LayoutK a) => MethodInfo LayoutGetAlignmentMethodInfo a signature where
- overloadedMethod _ = layoutGetAlignment
-
--- method Layout::get_attributes
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "AttrList")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_attributes" pango_layout_get_attributes ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- IO (Ptr AttrList)
-
-
-layoutGetAttributes ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m AttrList -- result
-layoutGetAttributes _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_layout_get_attributes _obj'
- checkUnexpectedReturnNULL "pango_layout_get_attributes" result
- result' <- (newBoxed AttrList) result
- touchManagedPtr _obj
- return result'
-
-data LayoutGetAttributesMethodInfo
-instance (signature ~ (m AttrList), MonadIO m, LayoutK a) => MethodInfo LayoutGetAttributesMethodInfo a signature where
- overloadedMethod _ = layoutGetAttributes
-
--- method Layout::get_auto_dir
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_auto_dir" pango_layout_get_auto_dir ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- IO CInt
-
-
-layoutGetAutoDir ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m Bool -- result
-layoutGetAutoDir _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_layout_get_auto_dir _obj'
- let result' = (/= 0) result
- touchManagedPtr _obj
- return result'
-
-data LayoutGetAutoDirMethodInfo
-instance (signature ~ (m Bool), MonadIO m, LayoutK a) => MethodInfo LayoutGetAutoDirMethodInfo a signature where
- overloadedMethod _ = layoutGetAutoDir
-
--- method Layout::get_baseline
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TInt)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_baseline" pango_layout_get_baseline ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- IO Int32
-
-
-layoutGetBaseline ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m Int32 -- result
-layoutGetBaseline _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_layout_get_baseline _obj'
- touchManagedPtr _obj
- return result
-
-data LayoutGetBaselineMethodInfo
-instance (signature ~ (m Int32), MonadIO m, LayoutK a) => MethodInfo LayoutGetBaselineMethodInfo a signature where
- overloadedMethod _ = layoutGetBaseline
-
--- method Layout::get_character_count
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TInt)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_character_count" pango_layout_get_character_count ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- IO Int32
-
-
-layoutGetCharacterCount ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m Int32 -- result
-layoutGetCharacterCount _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_layout_get_character_count _obj'
- touchManagedPtr _obj
- return result
-
-data LayoutGetCharacterCountMethodInfo
-instance (signature ~ (m Int32), MonadIO m, LayoutK a) => MethodInfo LayoutGetCharacterCountMethodInfo a signature where
- overloadedMethod _ = layoutGetCharacterCount
-
--- method Layout::get_context
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Context")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_context" pango_layout_get_context ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- IO (Ptr Context)
-
-
-layoutGetContext ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m Context -- result
-layoutGetContext _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_layout_get_context _obj'
- checkUnexpectedReturnNULL "pango_layout_get_context" result
- result' <- (newObject Context) result
- touchManagedPtr _obj
- return result'
-
-data LayoutGetContextMethodInfo
-instance (signature ~ (m Context), MonadIO m, LayoutK a) => MethodInfo LayoutGetContextMethodInfo a signature where
- overloadedMethod _ = layoutGetContext
-
--- method Layout::get_cursor_pos
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "strong_pos", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "weak_pos", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_cursor_pos" pango_layout_get_cursor_pos ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- Int32 -> -- index_ : TBasicType TInt
- Ptr Rectangle -> -- strong_pos : TInterface "Pango" "Rectangle"
- Ptr Rectangle -> -- weak_pos : TInterface "Pango" "Rectangle"
- IO ()
-
-
-layoutGetCursorPos ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> Int32 -- index_
- -> m (Rectangle,Rectangle) -- result
-layoutGetCursorPos _obj index_ = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- strongPos <- callocBytes 16 :: IO (Ptr Rectangle)
- weakPos <- callocBytes 16 :: IO (Ptr Rectangle)
- pango_layout_get_cursor_pos _obj' index_ strongPos weakPos
- strongPos' <- (wrapPtr Rectangle) strongPos
- weakPos' <- (wrapPtr Rectangle) weakPos
- touchManagedPtr _obj
- return (strongPos', weakPos')
-
-data LayoutGetCursorPosMethodInfo
-instance (signature ~ (Int32 -> m (Rectangle,Rectangle)), MonadIO m, LayoutK a) => MethodInfo LayoutGetCursorPosMethodInfo a signature where
- overloadedMethod _ = layoutGetCursorPos
-
--- method Layout::get_ellipsize
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "EllipsizeMode")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_ellipsize" pango_layout_get_ellipsize ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- IO CUInt
-
-
-layoutGetEllipsize ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m EllipsizeMode -- result
-layoutGetEllipsize _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_layout_get_ellipsize _obj'
- let result' = (toEnum . fromIntegral) result
- touchManagedPtr _obj
- return result'
-
-data LayoutGetEllipsizeMethodInfo
-instance (signature ~ (m EllipsizeMode), MonadIO m, LayoutK a) => MethodInfo LayoutGetEllipsizeMethodInfo a signature where
- overloadedMethod _ = layoutGetEllipsize
-
--- method Layout::get_extents
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_extents" pango_layout_get_extents ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- Ptr Rectangle -> -- ink_rect : TInterface "Pango" "Rectangle"
- Ptr Rectangle -> -- logical_rect : TInterface "Pango" "Rectangle"
- IO ()
-
-
-layoutGetExtents ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m (Rectangle,Rectangle) -- result
-layoutGetExtents _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- inkRect <- callocBytes 16 :: IO (Ptr Rectangle)
- logicalRect <- callocBytes 16 :: IO (Ptr Rectangle)
- pango_layout_get_extents _obj' inkRect logicalRect
- inkRect' <- (wrapPtr Rectangle) inkRect
- logicalRect' <- (wrapPtr Rectangle) logicalRect
- touchManagedPtr _obj
- return (inkRect', logicalRect')
-
-data LayoutGetExtentsMethodInfo
-instance (signature ~ (m (Rectangle,Rectangle)), MonadIO m, LayoutK a) => MethodInfo LayoutGetExtentsMethodInfo a signature where
- overloadedMethod _ = layoutGetExtents
-
--- method Layout::get_font_description
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "FontDescription")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_font_description" pango_layout_get_font_description ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- IO (Ptr FontDescription)
-
-
-layoutGetFontDescription ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m (Maybe FontDescription) -- result
-layoutGetFontDescription _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_layout_get_font_description _obj'
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (newBoxed FontDescription) result'
- return result''
- touchManagedPtr _obj
- return maybeResult
-
-data LayoutGetFontDescriptionMethodInfo
-instance (signature ~ (m (Maybe FontDescription)), MonadIO m, LayoutK a) => MethodInfo LayoutGetFontDescriptionMethodInfo a signature where
- overloadedMethod _ = layoutGetFontDescription
-
--- method Layout::get_height
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TInt)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_height" pango_layout_get_height ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- IO Int32
-
-
-layoutGetHeight ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m Int32 -- result
-layoutGetHeight _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_layout_get_height _obj'
- touchManagedPtr _obj
- return result
-
-data LayoutGetHeightMethodInfo
-instance (signature ~ (m Int32), MonadIO m, LayoutK a) => MethodInfo LayoutGetHeightMethodInfo a signature where
- overloadedMethod _ = layoutGetHeight
-
--- method Layout::get_indent
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TInt)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_indent" pango_layout_get_indent ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- IO Int32
-
-
-layoutGetIndent ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m Int32 -- result
-layoutGetIndent _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_layout_get_indent _obj'
- touchManagedPtr _obj
- return result
-
-data LayoutGetIndentMethodInfo
-instance (signature ~ (m Int32), MonadIO m, LayoutK a) => MethodInfo LayoutGetIndentMethodInfo a signature where
- overloadedMethod _ = layoutGetIndent
-
--- method Layout::get_iter
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "LayoutIter")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_iter" pango_layout_get_iter ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- IO (Ptr LayoutIter)
-
-
-layoutGetIter ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m LayoutIter -- result
-layoutGetIter _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_layout_get_iter _obj'
- checkUnexpectedReturnNULL "pango_layout_get_iter" result
- result' <- (wrapBoxed LayoutIter) result
- touchManagedPtr _obj
- return result'
-
-data LayoutGetIterMethodInfo
-instance (signature ~ (m LayoutIter), MonadIO m, LayoutK a) => MethodInfo LayoutGetIterMethodInfo a signature where
- overloadedMethod _ = layoutGetIter
-
--- method Layout::get_justify
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_justify" pango_layout_get_justify ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- IO CInt
-
-
-layoutGetJustify ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m Bool -- result
-layoutGetJustify _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_layout_get_justify _obj'
- let result' = (/= 0) result
- touchManagedPtr _obj
- return result'
-
-data LayoutGetJustifyMethodInfo
-instance (signature ~ (m Bool), MonadIO m, LayoutK a) => MethodInfo LayoutGetJustifyMethodInfo a signature where
- overloadedMethod _ = layoutGetJustify
-
--- method Layout::get_line
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "line", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "LayoutLine")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_line" pango_layout_get_line ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- Int32 -> -- line : TBasicType TInt
- IO (Ptr LayoutLine)
-
-
-layoutGetLine ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> Int32 -- line
- -> m (Maybe LayoutLine) -- result
-layoutGetLine _obj line = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_layout_get_line _obj' line
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (newBoxed LayoutLine) result'
- return result''
- touchManagedPtr _obj
- return maybeResult
-
-data LayoutGetLineMethodInfo
-instance (signature ~ (Int32 -> m (Maybe LayoutLine)), MonadIO m, LayoutK a) => MethodInfo LayoutGetLineMethodInfo a signature where
- overloadedMethod _ = layoutGetLine
-
--- method Layout::get_line_count
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TInt)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_line_count" pango_layout_get_line_count ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- IO Int32
-
-
-layoutGetLineCount ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m Int32 -- result
-layoutGetLineCount _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_layout_get_line_count _obj'
- touchManagedPtr _obj
- return result
-
-data LayoutGetLineCountMethodInfo
-instance (signature ~ (m Int32), MonadIO m, LayoutK a) => MethodInfo LayoutGetLineCountMethodInfo a signature where
- overloadedMethod _ = layoutGetLineCount
-
--- method Layout::get_line_readonly
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "line", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "LayoutLine")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_line_readonly" pango_layout_get_line_readonly ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- Int32 -> -- line : TBasicType TInt
- IO (Ptr LayoutLine)
-
-
-layoutGetLineReadonly ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> Int32 -- line
- -> m (Maybe LayoutLine) -- result
-layoutGetLineReadonly _obj line = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_layout_get_line_readonly _obj' line
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (newBoxed LayoutLine) result'
- return result''
- touchManagedPtr _obj
- return maybeResult
-
-data LayoutGetLineReadonlyMethodInfo
-instance (signature ~ (Int32 -> m (Maybe LayoutLine)), MonadIO m, LayoutK a) => MethodInfo LayoutGetLineReadonlyMethodInfo a signature where
- overloadedMethod _ = layoutGetLineReadonly
-
--- method Layout::get_lines
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TGSList (TInterface "Pango" "LayoutLine"))
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_lines" pango_layout_get_lines ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- IO (Ptr (GSList (Ptr LayoutLine)))
-
-
-layoutGetLines ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m [LayoutLine] -- result
-layoutGetLines _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_layout_get_lines _obj'
- result' <- unpackGSList result
- result'' <- mapM (newBoxed LayoutLine) result'
- touchManagedPtr _obj
- return result''
-
-data LayoutGetLinesMethodInfo
-instance (signature ~ (m [LayoutLine]), MonadIO m, LayoutK a) => MethodInfo LayoutGetLinesMethodInfo a signature where
- overloadedMethod _ = layoutGetLines
-
--- method Layout::get_lines_readonly
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TGSList (TInterface "Pango" "LayoutLine"))
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_lines_readonly" pango_layout_get_lines_readonly ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- IO (Ptr (GSList (Ptr LayoutLine)))
-
-
-layoutGetLinesReadonly ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m [LayoutLine] -- result
-layoutGetLinesReadonly _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_layout_get_lines_readonly _obj'
- result' <- unpackGSList result
- result'' <- mapM (newBoxed LayoutLine) result'
- touchManagedPtr _obj
- return result''
-
-data LayoutGetLinesReadonlyMethodInfo
-instance (signature ~ (m [LayoutLine]), MonadIO m, LayoutK a) => MethodInfo LayoutGetLinesReadonlyMethodInfo a signature where
- overloadedMethod _ = layoutGetLinesReadonly
-
--- method Layout::get_log_attrs
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attrs", argType = TCArray False (-1) 2 (TInterface "Pango" "LogAttr"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer},Arg {argCName = "n_attrs", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : [Arg {argCName = "n_attrs", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_log_attrs" pango_layout_get_log_attrs ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- Ptr (Ptr LogAttr) -> -- attrs : TCArray False (-1) 2 (TInterface "Pango" "LogAttr")
- Ptr Int32 -> -- n_attrs : TBasicType TInt
- IO ()
-
-
-layoutGetLogAttrs ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m ([LogAttr]) -- result
-layoutGetLogAttrs _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- attrs <- allocMem :: IO (Ptr (Ptr LogAttr))
- nAttrs <- allocMem :: IO (Ptr Int32)
- pango_layout_get_log_attrs _obj' attrs nAttrs
- nAttrs' <- peek nAttrs
- attrs' <- peek attrs
- attrs'' <- (unpackBlockArrayWithLength 52 nAttrs') attrs'
- attrs''' <- mapM (newPtr LogAttr) attrs''
- freeMem attrs'
- touchManagedPtr _obj
- freeMem attrs
- freeMem nAttrs
- return attrs'''
-
-data LayoutGetLogAttrsMethodInfo
-instance (signature ~ (m ([LogAttr])), MonadIO m, LayoutK a) => MethodInfo LayoutGetLogAttrsMethodInfo a signature where
- overloadedMethod _ = layoutGetLogAttrs
-
--- method Layout::get_log_attrs_readonly
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_attrs", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : [Arg {argCName = "n_attrs", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- returnType : Just (TCArray False (-1) 1 (TInterface "Pango" "LogAttr"))
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_log_attrs_readonly" pango_layout_get_log_attrs_readonly ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- Ptr Int32 -> -- n_attrs : TBasicType TInt
- IO (Ptr LogAttr)
-
-
-layoutGetLogAttrsReadonly ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m [LogAttr] -- result
-layoutGetLogAttrsReadonly _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- nAttrs <- allocMem :: IO (Ptr Int32)
- result <- pango_layout_get_log_attrs_readonly _obj' nAttrs
- nAttrs' <- peek nAttrs
- checkUnexpectedReturnNULL "pango_layout_get_log_attrs_readonly" result
- result' <- (unpackBlockArrayWithLength 52 nAttrs') result
- result'' <- mapM (newPtr LogAttr) result'
- touchManagedPtr _obj
- freeMem nAttrs
- return result''
-
-data LayoutGetLogAttrsReadonlyMethodInfo
-instance (signature ~ (m [LogAttr]), MonadIO m, LayoutK a) => MethodInfo LayoutGetLogAttrsReadonlyMethodInfo a signature where
- overloadedMethod _ = layoutGetLogAttrsReadonly
-
--- method Layout::get_pixel_extents
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_pixel_extents" pango_layout_get_pixel_extents ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- Ptr Rectangle -> -- ink_rect : TInterface "Pango" "Rectangle"
- Ptr Rectangle -> -- logical_rect : TInterface "Pango" "Rectangle"
- IO ()
-
-
-layoutGetPixelExtents ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m (Rectangle,Rectangle) -- result
-layoutGetPixelExtents _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- inkRect <- callocBytes 16 :: IO (Ptr Rectangle)
- logicalRect <- callocBytes 16 :: IO (Ptr Rectangle)
- pango_layout_get_pixel_extents _obj' inkRect logicalRect
- inkRect' <- (wrapPtr Rectangle) inkRect
- logicalRect' <- (wrapPtr Rectangle) logicalRect
- touchManagedPtr _obj
- return (inkRect', logicalRect')
-
-data LayoutGetPixelExtentsMethodInfo
-instance (signature ~ (m (Rectangle,Rectangle)), MonadIO m, LayoutK a) => MethodInfo LayoutGetPixelExtentsMethodInfo a signature where
- overloadedMethod _ = layoutGetPixelExtents
-
--- method Layout::get_pixel_size
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_pixel_size" pango_layout_get_pixel_size ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- Ptr Int32 -> -- width : TBasicType TInt
- Ptr Int32 -> -- height : TBasicType TInt
- IO ()
-
-
-layoutGetPixelSize ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m (Int32,Int32) -- result
-layoutGetPixelSize _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- width <- allocMem :: IO (Ptr Int32)
- height <- allocMem :: IO (Ptr Int32)
- pango_layout_get_pixel_size _obj' width height
- width' <- peek width
- height' <- peek height
- touchManagedPtr _obj
- freeMem width
- freeMem height
- return (width', height')
-
-data LayoutGetPixelSizeMethodInfo
-instance (signature ~ (m (Int32,Int32)), MonadIO m, LayoutK a) => MethodInfo LayoutGetPixelSizeMethodInfo a signature where
- overloadedMethod _ = layoutGetPixelSize
-
--- method Layout::get_serial
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TUInt)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_serial" pango_layout_get_serial ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- IO Word32
-
-
-layoutGetSerial ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m Word32 -- result
-layoutGetSerial _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_layout_get_serial _obj'
- touchManagedPtr _obj
- return result
-
-data LayoutGetSerialMethodInfo
-instance (signature ~ (m Word32), MonadIO m, LayoutK a) => MethodInfo LayoutGetSerialMethodInfo a signature where
- overloadedMethod _ = layoutGetSerial
-
--- method Layout::get_single_paragraph_mode
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_single_paragraph_mode" pango_layout_get_single_paragraph_mode ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- IO CInt
-
-
-layoutGetSingleParagraphMode ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m Bool -- result
-layoutGetSingleParagraphMode _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_layout_get_single_paragraph_mode _obj'
- let result' = (/= 0) result
- touchManagedPtr _obj
- return result'
-
-data LayoutGetSingleParagraphModeMethodInfo
-instance (signature ~ (m Bool), MonadIO m, LayoutK a) => MethodInfo LayoutGetSingleParagraphModeMethodInfo a signature where
- overloadedMethod _ = layoutGetSingleParagraphMode
-
--- method Layout::get_size
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_size" pango_layout_get_size ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- Ptr Int32 -> -- width : TBasicType TInt
- Ptr Int32 -> -- height : TBasicType TInt
- IO ()
-
-
-layoutGetSize ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m (Int32,Int32) -- result
-layoutGetSize _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- width <- allocMem :: IO (Ptr Int32)
- height <- allocMem :: IO (Ptr Int32)
- pango_layout_get_size _obj' width height
- width' <- peek width
- height' <- peek height
- touchManagedPtr _obj
- freeMem width
- freeMem height
- return (width', height')
-
-data LayoutGetSizeMethodInfo
-instance (signature ~ (m (Int32,Int32)), MonadIO m, LayoutK a) => MethodInfo LayoutGetSizeMethodInfo a signature where
- overloadedMethod _ = layoutGetSize
-
--- method Layout::get_spacing
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TInt)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_spacing" pango_layout_get_spacing ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- IO Int32
-
-
-layoutGetSpacing ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m Int32 -- result
-layoutGetSpacing _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_layout_get_spacing _obj'
- touchManagedPtr _obj
- return result
-
-data LayoutGetSpacingMethodInfo
-instance (signature ~ (m Int32), MonadIO m, LayoutK a) => MethodInfo LayoutGetSpacingMethodInfo a signature where
- overloadedMethod _ = layoutGetSpacing
-
--- method Layout::get_tabs
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "TabArray")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_tabs" pango_layout_get_tabs ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- IO (Ptr TabArray)
-
-
-layoutGetTabs ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m (Maybe TabArray) -- result
-layoutGetTabs _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_layout_get_tabs _obj'
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (wrapBoxed TabArray) result'
- return result''
- touchManagedPtr _obj
- return maybeResult
-
-data LayoutGetTabsMethodInfo
-instance (signature ~ (m (Maybe TabArray)), MonadIO m, LayoutK a) => MethodInfo LayoutGetTabsMethodInfo a signature where
- overloadedMethod _ = layoutGetTabs
-
--- method Layout::get_text
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TUTF8)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_text" pango_layout_get_text ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- IO CString
-
-
-layoutGetText ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m T.Text -- result
-layoutGetText _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_layout_get_text _obj'
- checkUnexpectedReturnNULL "pango_layout_get_text" result
- result' <- cstringToText result
- touchManagedPtr _obj
- return result'
-
-data LayoutGetTextMethodInfo
-instance (signature ~ (m T.Text), MonadIO m, LayoutK a) => MethodInfo LayoutGetTextMethodInfo a signature where
- overloadedMethod _ = layoutGetText
-
--- method Layout::get_unknown_glyphs_count
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TInt)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_unknown_glyphs_count" pango_layout_get_unknown_glyphs_count ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- IO Int32
-
-
-layoutGetUnknownGlyphsCount ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m Int32 -- result
-layoutGetUnknownGlyphsCount _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_layout_get_unknown_glyphs_count _obj'
- touchManagedPtr _obj
- return result
-
-data LayoutGetUnknownGlyphsCountMethodInfo
-instance (signature ~ (m Int32), MonadIO m, LayoutK a) => MethodInfo LayoutGetUnknownGlyphsCountMethodInfo a signature where
- overloadedMethod _ = layoutGetUnknownGlyphsCount
-
--- method Layout::get_width
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TInt)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_width" pango_layout_get_width ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- IO Int32
-
-
-layoutGetWidth ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m Int32 -- result
-layoutGetWidth _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_layout_get_width _obj'
- touchManagedPtr _obj
- return result
-
-data LayoutGetWidthMethodInfo
-instance (signature ~ (m Int32), MonadIO m, LayoutK a) => MethodInfo LayoutGetWidthMethodInfo a signature where
- overloadedMethod _ = layoutGetWidth
-
--- method Layout::get_wrap
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "WrapMode")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_get_wrap" pango_layout_get_wrap ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- IO CUInt
-
-
-layoutGetWrap ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m WrapMode -- result
-layoutGetWrap _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_layout_get_wrap _obj'
- let result' = (toEnum . fromIntegral) result
- touchManagedPtr _obj
- return result'
-
-data LayoutGetWrapMethodInfo
-instance (signature ~ (m WrapMode), MonadIO m, LayoutK a) => MethodInfo LayoutGetWrapMethodInfo a signature where
- overloadedMethod _ = layoutGetWrap
-
--- method Layout::index_to_line_x
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "trailing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "line", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "x_pos", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_index_to_line_x" pango_layout_index_to_line_x ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- Int32 -> -- index_ : TBasicType TInt
- CInt -> -- trailing : TBasicType TBoolean
- Ptr Int32 -> -- line : TBasicType TInt
- Ptr Int32 -> -- x_pos : TBasicType TInt
- IO ()
-
-
-layoutIndexToLineX ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> Int32 -- index_
- -> Bool -- trailing
- -> m (Int32,Int32) -- result
-layoutIndexToLineX _obj index_ trailing = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let trailing' = (fromIntegral . fromEnum) trailing
- line <- allocMem :: IO (Ptr Int32)
- xPos <- allocMem :: IO (Ptr Int32)
- pango_layout_index_to_line_x _obj' index_ trailing' line xPos
- line' <- peek line
- xPos' <- peek xPos
- touchManagedPtr _obj
- freeMem line
- freeMem xPos
- return (line', xPos')
-
-data LayoutIndexToLineXMethodInfo
-instance (signature ~ (Int32 -> Bool -> m (Int32,Int32)), MonadIO m, LayoutK a) => MethodInfo LayoutIndexToLineXMethodInfo a signature where
- overloadedMethod _ = layoutIndexToLineX
-
--- method Layout::index_to_pos
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_index_to_pos" pango_layout_index_to_pos ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- Int32 -> -- index_ : TBasicType TInt
- Ptr Rectangle -> -- pos : TInterface "Pango" "Rectangle"
- IO ()
-
-
-layoutIndexToPos ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> Int32 -- index_
- -> m (Rectangle) -- result
-layoutIndexToPos _obj index_ = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- pos <- callocBytes 16 :: IO (Ptr Rectangle)
- pango_layout_index_to_pos _obj' index_ pos
- pos' <- (wrapPtr Rectangle) pos
- touchManagedPtr _obj
- return pos'
-
-data LayoutIndexToPosMethodInfo
-instance (signature ~ (Int32 -> m (Rectangle)), MonadIO m, LayoutK a) => MethodInfo LayoutIndexToPosMethodInfo a signature where
- overloadedMethod _ = layoutIndexToPos
-
--- method Layout::is_ellipsized
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_is_ellipsized" pango_layout_is_ellipsized ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- IO CInt
-
-
-layoutIsEllipsized ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m Bool -- result
-layoutIsEllipsized _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_layout_is_ellipsized _obj'
- let result' = (/= 0) result
- touchManagedPtr _obj
- return result'
-
-data LayoutIsEllipsizedMethodInfo
-instance (signature ~ (m Bool), MonadIO m, LayoutK a) => MethodInfo LayoutIsEllipsizedMethodInfo a signature where
- overloadedMethod _ = layoutIsEllipsized
-
--- method Layout::is_wrapped
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_is_wrapped" pango_layout_is_wrapped ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- IO CInt
-
-
-layoutIsWrapped ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> m Bool -- result
-layoutIsWrapped _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_layout_is_wrapped _obj'
- let result' = (/= 0) result
- touchManagedPtr _obj
- return result'
-
-data LayoutIsWrappedMethodInfo
-instance (signature ~ (m Bool), MonadIO m, LayoutK a) => MethodInfo LayoutIsWrappedMethodInfo a signature where
- overloadedMethod _ = layoutIsWrapped
-
--- method Layout::move_cursor_visually
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "strong", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "old_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "old_trailing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_index", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "new_trailing", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_move_cursor_visually" pango_layout_move_cursor_visually ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- CInt -> -- strong : TBasicType TBoolean
- Int32 -> -- old_index : TBasicType TInt
- Int32 -> -- old_trailing : TBasicType TInt
- Int32 -> -- direction : TBasicType TInt
- Ptr Int32 -> -- new_index : TBasicType TInt
- Ptr Int32 -> -- new_trailing : TBasicType TInt
- IO ()
-
-
-layoutMoveCursorVisually ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> Bool -- strong
- -> Int32 -- oldIndex
- -> Int32 -- oldTrailing
- -> Int32 -- direction
- -> m (Int32,Int32) -- result
-layoutMoveCursorVisually _obj strong oldIndex oldTrailing direction = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let strong' = (fromIntegral . fromEnum) strong
- newIndex <- allocMem :: IO (Ptr Int32)
- newTrailing <- allocMem :: IO (Ptr Int32)
- pango_layout_move_cursor_visually _obj' strong' oldIndex oldTrailing direction newIndex newTrailing
- newIndex' <- peek newIndex
- newTrailing' <- peek newTrailing
- touchManagedPtr _obj
- freeMem newIndex
- freeMem newTrailing
- return (newIndex', newTrailing')
-
-data LayoutMoveCursorVisuallyMethodInfo
-instance (signature ~ (Bool -> Int32 -> Int32 -> Int32 -> m (Int32,Int32)), MonadIO m, LayoutK a) => MethodInfo LayoutMoveCursorVisuallyMethodInfo a signature where
- overloadedMethod _ = layoutMoveCursorVisually
-
--- method Layout::set_alignment
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "alignment", argType = TInterface "Pango" "Alignment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_set_alignment" pango_layout_set_alignment ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- CUInt -> -- alignment : TInterface "Pango" "Alignment"
- IO ()
-
-
-layoutSetAlignment ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> Alignment -- alignment
- -> m () -- result
-layoutSetAlignment _obj alignment = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let alignment' = (fromIntegral . fromEnum) alignment
- pango_layout_set_alignment _obj' alignment'
- touchManagedPtr _obj
- return ()
-
-data LayoutSetAlignmentMethodInfo
-instance (signature ~ (Alignment -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetAlignmentMethodInfo a signature where
- overloadedMethod _ = layoutSetAlignment
-
--- method Layout::set_attributes
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attrs", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_set_attributes" pango_layout_set_attributes ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- Ptr AttrList -> -- attrs : TInterface "Pango" "AttrList"
- IO ()
-
-
-layoutSetAttributes ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> Maybe (AttrList) -- attrs
- -> m () -- result
-layoutSetAttributes _obj attrs = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- maybeAttrs <- case attrs of
- Nothing -> return nullPtr
- Just jAttrs -> do
- let jAttrs' = unsafeManagedPtrGetPtr jAttrs
- return jAttrs'
- pango_layout_set_attributes _obj' maybeAttrs
- touchManagedPtr _obj
- whenJust attrs touchManagedPtr
- return ()
-
-data LayoutSetAttributesMethodInfo
-instance (signature ~ (Maybe (AttrList) -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetAttributesMethodInfo a signature where
- overloadedMethod _ = layoutSetAttributes
-
--- method Layout::set_auto_dir
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auto_dir", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_set_auto_dir" pango_layout_set_auto_dir ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- CInt -> -- auto_dir : TBasicType TBoolean
- IO ()
-
-
-layoutSetAutoDir ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> Bool -- autoDir
- -> m () -- result
-layoutSetAutoDir _obj autoDir = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let autoDir' = (fromIntegral . fromEnum) autoDir
- pango_layout_set_auto_dir _obj' autoDir'
- touchManagedPtr _obj
- return ()
-
-data LayoutSetAutoDirMethodInfo
-instance (signature ~ (Bool -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetAutoDirMethodInfo a signature where
- overloadedMethod _ = layoutSetAutoDir
-
--- method Layout::set_ellipsize
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ellipsize", argType = TInterface "Pango" "EllipsizeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_set_ellipsize" pango_layout_set_ellipsize ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- CUInt -> -- ellipsize : TInterface "Pango" "EllipsizeMode"
- IO ()
-
-
-layoutSetEllipsize ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> EllipsizeMode -- ellipsize
- -> m () -- result
-layoutSetEllipsize _obj ellipsize = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let ellipsize' = (fromIntegral . fromEnum) ellipsize
- pango_layout_set_ellipsize _obj' ellipsize'
- touchManagedPtr _obj
- return ()
-
-data LayoutSetEllipsizeMethodInfo
-instance (signature ~ (EllipsizeMode -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetEllipsizeMethodInfo a signature where
- overloadedMethod _ = layoutSetEllipsize
-
--- method Layout::set_font_description
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_set_font_description" pango_layout_set_font_description ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- Ptr FontDescription -> -- desc : TInterface "Pango" "FontDescription"
- IO ()
-
-
-layoutSetFontDescription ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> Maybe (FontDescription) -- desc
- -> m () -- result
-layoutSetFontDescription _obj desc = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- maybeDesc <- case desc of
- Nothing -> return nullPtr
- Just jDesc -> do
- let jDesc' = unsafeManagedPtrGetPtr jDesc
- return jDesc'
- pango_layout_set_font_description _obj' maybeDesc
- touchManagedPtr _obj
- whenJust desc touchManagedPtr
- return ()
-
-data LayoutSetFontDescriptionMethodInfo
-instance (signature ~ (Maybe (FontDescription) -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetFontDescriptionMethodInfo a signature where
- overloadedMethod _ = layoutSetFontDescription
-
--- method Layout::set_height
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_set_height" pango_layout_set_height ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- Int32 -> -- height : TBasicType TInt
- IO ()
-
-
-layoutSetHeight ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> Int32 -- height
- -> m () -- result
-layoutSetHeight _obj height = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- pango_layout_set_height _obj' height
- touchManagedPtr _obj
- return ()
-
-data LayoutSetHeightMethodInfo
-instance (signature ~ (Int32 -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetHeightMethodInfo a signature where
- overloadedMethod _ = layoutSetHeight
-
--- method Layout::set_indent
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "indent", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_set_indent" pango_layout_set_indent ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- Int32 -> -- indent : TBasicType TInt
- IO ()
-
-
-layoutSetIndent ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> Int32 -- indent
- -> m () -- result
-layoutSetIndent _obj indent = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- pango_layout_set_indent _obj' indent
- touchManagedPtr _obj
- return ()
-
-data LayoutSetIndentMethodInfo
-instance (signature ~ (Int32 -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetIndentMethodInfo a signature where
- overloadedMethod _ = layoutSetIndent
-
--- method Layout::set_justify
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "justify", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_set_justify" pango_layout_set_justify ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- CInt -> -- justify : TBasicType TBoolean
- IO ()
-
-
-layoutSetJustify ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> Bool -- justify
- -> m () -- result
-layoutSetJustify _obj justify = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let justify' = (fromIntegral . fromEnum) justify
- pango_layout_set_justify _obj' justify'
- touchManagedPtr _obj
- return ()
-
-data LayoutSetJustifyMethodInfo
-instance (signature ~ (Bool -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetJustifyMethodInfo a signature where
- overloadedMethod _ = layoutSetJustify
-
--- method Layout::set_markup
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_set_markup" pango_layout_set_markup ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- CString -> -- markup : TBasicType TUTF8
- Int32 -> -- length : TBasicType TInt
- IO ()
-
-
-layoutSetMarkup ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> T.Text -- markup
- -> Int32 -- length_
- -> m () -- result
-layoutSetMarkup _obj markup length_ = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- markup' <- textToCString markup
- pango_layout_set_markup _obj' markup' length_
- touchManagedPtr _obj
- freeMem markup'
- return ()
-
-data LayoutSetMarkupMethodInfo
-instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetMarkupMethodInfo a signature where
- overloadedMethod _ = layoutSetMarkup
-
--- method Layout::set_markup_with_accel
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_marker", argType = TBasicType TUniChar, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accel_char", argType = TBasicType TUniChar, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_set_markup_with_accel" pango_layout_set_markup_with_accel ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- CString -> -- markup : TBasicType TUTF8
- Int32 -> -- length : TBasicType TInt
- CInt -> -- accel_marker : TBasicType TUniChar
- Ptr CInt -> -- accel_char : TBasicType TUniChar
- IO ()
-
-
-layoutSetMarkupWithAccel ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> T.Text -- markup
- -> Int32 -- length_
- -> Char -- accelMarker
- -> m (Char) -- result
-layoutSetMarkupWithAccel _obj markup length_ accelMarker = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- markup' <- textToCString markup
- let accelMarker' = (fromIntegral . ord) accelMarker
- accelChar <- allocMem :: IO (Ptr CInt)
- pango_layout_set_markup_with_accel _obj' markup' length_ accelMarker' accelChar
- accelChar' <- peek accelChar
- let accelChar'' = (chr . fromIntegral) accelChar'
- touchManagedPtr _obj
- freeMem markup'
- freeMem accelChar
- return accelChar''
-
-data LayoutSetMarkupWithAccelMethodInfo
-instance (signature ~ (T.Text -> Int32 -> Char -> m (Char)), MonadIO m, LayoutK a) => MethodInfo LayoutSetMarkupWithAccelMethodInfo a signature where
- overloadedMethod _ = layoutSetMarkupWithAccel
-
--- method Layout::set_single_paragraph_mode
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_set_single_paragraph_mode" pango_layout_set_single_paragraph_mode ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- CInt -> -- setting : TBasicType TBoolean
- IO ()
-
-
-layoutSetSingleParagraphMode ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> Bool -- setting
- -> m () -- result
-layoutSetSingleParagraphMode _obj setting = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let setting' = (fromIntegral . fromEnum) setting
- pango_layout_set_single_paragraph_mode _obj' setting'
- touchManagedPtr _obj
- return ()
-
-data LayoutSetSingleParagraphModeMethodInfo
-instance (signature ~ (Bool -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetSingleParagraphModeMethodInfo a signature where
- overloadedMethod _ = layoutSetSingleParagraphMode
-
--- method Layout::set_spacing
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_set_spacing" pango_layout_set_spacing ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- Int32 -> -- spacing : TBasicType TInt
- IO ()
-
-
-layoutSetSpacing ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> Int32 -- spacing
- -> m () -- result
-layoutSetSpacing _obj spacing = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- pango_layout_set_spacing _obj' spacing
- touchManagedPtr _obj
- return ()
-
-data LayoutSetSpacingMethodInfo
-instance (signature ~ (Int32 -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetSpacingMethodInfo a signature where
- overloadedMethod _ = layoutSetSpacing
-
--- method Layout::set_tabs
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tabs", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_set_tabs" pango_layout_set_tabs ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- Ptr TabArray -> -- tabs : TInterface "Pango" "TabArray"
- IO ()
-
-
-layoutSetTabs ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> Maybe (TabArray) -- tabs
- -> m () -- result
-layoutSetTabs _obj tabs = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- maybeTabs <- case tabs of
- Nothing -> return nullPtr
- Just jTabs -> do
- let jTabs' = unsafeManagedPtrGetPtr jTabs
- return jTabs'
- pango_layout_set_tabs _obj' maybeTabs
- touchManagedPtr _obj
- whenJust tabs touchManagedPtr
- return ()
-
-data LayoutSetTabsMethodInfo
-instance (signature ~ (Maybe (TabArray) -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetTabsMethodInfo a signature where
- overloadedMethod _ = layoutSetTabs
-
--- method Layout::set_text
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_set_text" pango_layout_set_text ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- CString -> -- text : TBasicType TUTF8
- Int32 -> -- length : TBasicType TInt
- IO ()
-
-
-layoutSetText ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> T.Text -- text
- -> Int32 -- length_
- -> m () -- result
-layoutSetText _obj text length_ = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- text' <- textToCString text
- pango_layout_set_text _obj' text' length_
- touchManagedPtr _obj
- freeMem text'
- return ()
-
-data LayoutSetTextMethodInfo
-instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetTextMethodInfo a signature where
- overloadedMethod _ = layoutSetText
-
--- method Layout::set_width
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_set_width" pango_layout_set_width ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- Int32 -> -- width : TBasicType TInt
- IO ()
-
-
-layoutSetWidth ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> Int32 -- width
- -> m () -- result
-layoutSetWidth _obj width = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- pango_layout_set_width _obj' width
- touchManagedPtr _obj
- return ()
-
-data LayoutSetWidthMethodInfo
-instance (signature ~ (Int32 -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetWidthMethodInfo a signature where
- overloadedMethod _ = layoutSetWidth
-
--- method Layout::set_wrap
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "wrap", argType = TInterface "Pango" "WrapMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_set_wrap" pango_layout_set_wrap ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- CUInt -> -- wrap : TInterface "Pango" "WrapMode"
- IO ()
-
-
-layoutSetWrap ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> WrapMode -- wrap
- -> m () -- result
-layoutSetWrap _obj wrap = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let wrap' = (fromIntegral . fromEnum) wrap
- pango_layout_set_wrap _obj' wrap'
- touchManagedPtr _obj
- return ()
-
-data LayoutSetWrapMethodInfo
-instance (signature ~ (WrapMode -> m ()), MonadIO m, LayoutK a) => MethodInfo LayoutSetWrapMethodInfo a signature where
- overloadedMethod _ = layoutSetWrap
-
--- method Layout::xy_to_index
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "trailing", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_xy_to_index" pango_layout_xy_to_index ::
- Ptr Layout -> -- _obj : TInterface "Pango" "Layout"
- Int32 -> -- x : TBasicType TInt
- Int32 -> -- y : TBasicType TInt
- Ptr Int32 -> -- index_ : TBasicType TInt
- Ptr Int32 -> -- trailing : TBasicType TInt
- IO CInt
-
-
-layoutXyToIndex ::
- (MonadIO m, LayoutK a) =>
- a -- _obj
- -> Int32 -- x
- -> Int32 -- y
- -> m (Bool,Int32,Int32) -- result
-layoutXyToIndex _obj x y = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- index_ <- allocMem :: IO (Ptr Int32)
- trailing <- allocMem :: IO (Ptr Int32)
- result <- pango_layout_xy_to_index _obj' x y index_ trailing
- let result' = (/= 0) result
- index_' <- peek index_
- trailing' <- peek trailing
- touchManagedPtr _obj
- freeMem index_
- freeMem trailing
- return (result', index_', trailing')
-
-data LayoutXyToIndexMethodInfo
-instance (signature ~ (Int32 -> Int32 -> m (Bool,Int32,Int32)), MonadIO m, LayoutK a) => MethodInfo LayoutXyToIndexMethodInfo a signature where
- overloadedMethod _ = layoutXyToIndex
-
-
diff --git a/GI/Pango/Objects/Layout.hs-boot b/GI/Pango/Objects/Layout.hs-boot
deleted file mode 100644
--- a/GI/Pango/Objects/Layout.hs-boot
+++ /dev/null
@@ -1,69 +0,0 @@
-module GI.Pango.Objects.Layout where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype Layout = Layout (ForeignPtr Layout)
-instance GObject Layout where
-class GObject o => LayoutK o
-instance (GObject o, IsDescendantOf Layout o) => LayoutK o
-data LayoutContextChangedMethodInfo
-data LayoutCopyMethodInfo
-data LayoutGetAlignmentMethodInfo
-data LayoutGetAttributesMethodInfo
-data LayoutGetAutoDirMethodInfo
-data LayoutGetBaselineMethodInfo
-data LayoutGetCharacterCountMethodInfo
-data LayoutGetContextMethodInfo
-data LayoutGetCursorPosMethodInfo
-data LayoutGetEllipsizeMethodInfo
-data LayoutGetExtentsMethodInfo
-data LayoutGetFontDescriptionMethodInfo
-data LayoutGetHeightMethodInfo
-data LayoutGetIndentMethodInfo
-data LayoutGetIterMethodInfo
-data LayoutGetJustifyMethodInfo
-data LayoutGetLineMethodInfo
-data LayoutGetLineCountMethodInfo
-data LayoutGetLineReadonlyMethodInfo
-data LayoutGetLinesMethodInfo
-data LayoutGetLinesReadonlyMethodInfo
-data LayoutGetLogAttrsMethodInfo
-data LayoutGetLogAttrsReadonlyMethodInfo
-data LayoutGetPixelExtentsMethodInfo
-data LayoutGetPixelSizeMethodInfo
-data LayoutGetSerialMethodInfo
-data LayoutGetSingleParagraphModeMethodInfo
-data LayoutGetSizeMethodInfo
-data LayoutGetSpacingMethodInfo
-data LayoutGetTabsMethodInfo
-data LayoutGetTextMethodInfo
-data LayoutGetUnknownGlyphsCountMethodInfo
-data LayoutGetWidthMethodInfo
-data LayoutGetWrapMethodInfo
-data LayoutIndexToLineXMethodInfo
-data LayoutIndexToPosMethodInfo
-data LayoutIsEllipsizedMethodInfo
-data LayoutIsWrappedMethodInfo
-data LayoutMoveCursorVisuallyMethodInfo
-data LayoutSetAlignmentMethodInfo
-data LayoutSetAttributesMethodInfo
-data LayoutSetAutoDirMethodInfo
-data LayoutSetEllipsizeMethodInfo
-data LayoutSetFontDescriptionMethodInfo
-data LayoutSetHeightMethodInfo
-data LayoutSetIndentMethodInfo
-data LayoutSetJustifyMethodInfo
-data LayoutSetMarkupMethodInfo
-data LayoutSetMarkupWithAccelMethodInfo
-data LayoutSetSingleParagraphModeMethodInfo
-data LayoutSetSpacingMethodInfo
-data LayoutSetTabsMethodInfo
-data LayoutSetTextMethodInfo
-data LayoutSetWidthMethodInfo
-data LayoutSetWrapMethodInfo
-data LayoutXyToIndexMethodInfo
diff --git a/GI/Pango/Objects/Renderer.hs b/GI/Pango/Objects/Renderer.hs
deleted file mode 100644
--- a/GI/Pango/Objects/Renderer.hs
+++ /dev/null
@@ -1,863 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
--}
-
-module GI.Pango.Objects.Renderer
- (
-
--- * Exported types
- Renderer(..) ,
- RendererK ,
- toRenderer ,
- noRenderer ,
-
-
- -- * Methods
--- ** rendererActivate
- RendererActivateMethodInfo ,
- rendererActivate ,
-
-
--- ** rendererDeactivate
- RendererDeactivateMethodInfo ,
- rendererDeactivate ,
-
-
--- ** rendererDrawErrorUnderline
- RendererDrawErrorUnderlineMethodInfo ,
- rendererDrawErrorUnderline ,
-
-
--- ** rendererDrawGlyph
- RendererDrawGlyphMethodInfo ,
- rendererDrawGlyph ,
-
-
--- ** rendererDrawGlyphItem
- RendererDrawGlyphItemMethodInfo ,
- rendererDrawGlyphItem ,
-
-
--- ** rendererDrawGlyphs
- RendererDrawGlyphsMethodInfo ,
- rendererDrawGlyphs ,
-
-
--- ** rendererDrawLayout
- RendererDrawLayoutMethodInfo ,
- rendererDrawLayout ,
-
-
--- ** rendererDrawLayoutLine
- RendererDrawLayoutLineMethodInfo ,
- rendererDrawLayoutLine ,
-
-
--- ** rendererDrawRectangle
- RendererDrawRectangleMethodInfo ,
- rendererDrawRectangle ,
-
-
--- ** rendererDrawTrapezoid
- RendererDrawTrapezoidMethodInfo ,
- rendererDrawTrapezoid ,
-
-
--- ** rendererGetAlpha
- RendererGetAlphaMethodInfo ,
- rendererGetAlpha ,
-
-
--- ** rendererGetColor
- RendererGetColorMethodInfo ,
- rendererGetColor ,
-
-
--- ** rendererGetLayout
- RendererGetLayoutMethodInfo ,
- rendererGetLayout ,
-
-
--- ** rendererGetLayoutLine
- RendererGetLayoutLineMethodInfo ,
- rendererGetLayoutLine ,
-
-
--- ** rendererGetMatrix
- RendererGetMatrixMethodInfo ,
- rendererGetMatrix ,
-
-
--- ** rendererPartChanged
- RendererPartChangedMethodInfo ,
- rendererPartChanged ,
-
-
--- ** rendererSetAlpha
- RendererSetAlphaMethodInfo ,
- rendererSetAlpha ,
-
-
--- ** rendererSetColor
- RendererSetColorMethodInfo ,
- rendererSetColor ,
-
-
--- ** rendererSetMatrix
- RendererSetMatrixMethodInfo ,
- rendererSetMatrix ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-import qualified GI.GObject as GObject
-
-newtype Renderer = Renderer (ForeignPtr Renderer)
-foreign import ccall "pango_renderer_get_type"
- c_pango_renderer_get_type :: IO GType
-
-type instance ParentTypes Renderer = RendererParentTypes
-type RendererParentTypes = '[GObject.Object]
-
-instance GObject Renderer where
- gobjectIsInitiallyUnowned _ = False
- gobjectType _ = c_pango_renderer_get_type
-
-
-class GObject o => RendererK o
-instance (GObject o, IsDescendantOf Renderer o) => RendererK o
-
-toRenderer :: RendererK o => o -> IO Renderer
-toRenderer = unsafeCastTo Renderer
-
-noRenderer :: Maybe Renderer
-noRenderer = Nothing
-
-type family ResolveRendererMethod (t :: Symbol) (o :: *) :: * where
- ResolveRendererMethod "activate" o = RendererActivateMethodInfo
- ResolveRendererMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
- ResolveRendererMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
- ResolveRendererMethod "deactivate" o = RendererDeactivateMethodInfo
- ResolveRendererMethod "drawErrorUnderline" o = RendererDrawErrorUnderlineMethodInfo
- ResolveRendererMethod "drawGlyph" o = RendererDrawGlyphMethodInfo
- ResolveRendererMethod "drawGlyphItem" o = RendererDrawGlyphItemMethodInfo
- ResolveRendererMethod "drawGlyphs" o = RendererDrawGlyphsMethodInfo
- ResolveRendererMethod "drawLayout" o = RendererDrawLayoutMethodInfo
- ResolveRendererMethod "drawLayoutLine" o = RendererDrawLayoutLineMethodInfo
- ResolveRendererMethod "drawRectangle" o = RendererDrawRectangleMethodInfo
- ResolveRendererMethod "drawTrapezoid" o = RendererDrawTrapezoidMethodInfo
- ResolveRendererMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
- ResolveRendererMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
- ResolveRendererMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
- ResolveRendererMethod "notify" o = GObject.ObjectNotifyMethodInfo
- ResolveRendererMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
- ResolveRendererMethod "partChanged" o = RendererPartChangedMethodInfo
- ResolveRendererMethod "ref" o = GObject.ObjectRefMethodInfo
- ResolveRendererMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
- ResolveRendererMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
- ResolveRendererMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
- ResolveRendererMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
- ResolveRendererMethod "stealData" o = GObject.ObjectStealDataMethodInfo
- ResolveRendererMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
- ResolveRendererMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
- ResolveRendererMethod "unref" o = GObject.ObjectUnrefMethodInfo
- ResolveRendererMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo
- ResolveRendererMethod "getAlpha" o = RendererGetAlphaMethodInfo
- ResolveRendererMethod "getColor" o = RendererGetColorMethodInfo
- ResolveRendererMethod "getData" o = GObject.ObjectGetDataMethodInfo
- ResolveRendererMethod "getLayout" o = RendererGetLayoutMethodInfo
- ResolveRendererMethod "getLayoutLine" o = RendererGetLayoutLineMethodInfo
- ResolveRendererMethod "getMatrix" o = RendererGetMatrixMethodInfo
- ResolveRendererMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo
- ResolveRendererMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo
- ResolveRendererMethod "setAlpha" o = RendererSetAlphaMethodInfo
- ResolveRendererMethod "setColor" o = RendererSetColorMethodInfo
- ResolveRendererMethod "setData" o = GObject.ObjectSetDataMethodInfo
- ResolveRendererMethod "setMatrix" o = RendererSetMatrixMethodInfo
- ResolveRendererMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
- ResolveRendererMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveRendererMethod t Renderer, MethodInfo info Renderer p) => IsLabelProxy t (Renderer -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveRendererMethod t Renderer, MethodInfo info Renderer p) => IsLabel t (Renderer -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-type instance AttributeList Renderer = RendererAttributeList
-type RendererAttributeList = ('[ ] :: [(Symbol, *)])
-
-type instance SignalList Renderer = RendererSignalList
-type RendererSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])
-
--- method Renderer::activate
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_renderer_activate" pango_renderer_activate ::
- Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer"
- IO ()
-
-
-rendererActivate ::
- (MonadIO m, RendererK a) =>
- a -- _obj
- -> m () -- result
-rendererActivate _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- pango_renderer_activate _obj'
- touchManagedPtr _obj
- return ()
-
-data RendererActivateMethodInfo
-instance (signature ~ (m ()), MonadIO m, RendererK a) => MethodInfo RendererActivateMethodInfo a signature where
- overloadedMethod _ = rendererActivate
-
--- method Renderer::deactivate
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_renderer_deactivate" pango_renderer_deactivate ::
- Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer"
- IO ()
-
-
-rendererDeactivate ::
- (MonadIO m, RendererK a) =>
- a -- _obj
- -> m () -- result
-rendererDeactivate _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- pango_renderer_deactivate _obj'
- touchManagedPtr _obj
- return ()
-
-data RendererDeactivateMethodInfo
-instance (signature ~ (m ()), MonadIO m, RendererK a) => MethodInfo RendererDeactivateMethodInfo a signature where
- overloadedMethod _ = rendererDeactivate
-
--- method Renderer::draw_error_underline
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_renderer_draw_error_underline" pango_renderer_draw_error_underline ::
- Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer"
- Int32 -> -- x : TBasicType TInt
- Int32 -> -- y : TBasicType TInt
- Int32 -> -- width : TBasicType TInt
- Int32 -> -- height : TBasicType TInt
- IO ()
-
-
-rendererDrawErrorUnderline ::
- (MonadIO m, RendererK a) =>
- a -- _obj
- -> Int32 -- x
- -> Int32 -- y
- -> Int32 -- width
- -> Int32 -- height
- -> m () -- result
-rendererDrawErrorUnderline _obj x y width height = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- pango_renderer_draw_error_underline _obj' x y width height
- touchManagedPtr _obj
- return ()
-
-data RendererDrawErrorUnderlineMethodInfo
-instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> m ()), MonadIO m, RendererK a) => MethodInfo RendererDrawErrorUnderlineMethodInfo a signature where
- overloadedMethod _ = rendererDrawErrorUnderline
-
--- method Renderer::draw_glyph
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "glyph", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_renderer_draw_glyph" pango_renderer_draw_glyph ::
- Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer"
- Ptr Font -> -- font : TInterface "Pango" "Font"
- Word32 -> -- glyph : TBasicType TUInt32
- CDouble -> -- x : TBasicType TDouble
- CDouble -> -- y : TBasicType TDouble
- IO ()
-
-
-rendererDrawGlyph ::
- (MonadIO m, RendererK a, FontK b) =>
- a -- _obj
- -> b -- font
- -> Word32 -- glyph
- -> Double -- x
- -> Double -- y
- -> m () -- result
-rendererDrawGlyph _obj font glyph x y = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let font' = unsafeManagedPtrCastPtr font
- let x' = realToFrac x
- let y' = realToFrac y
- pango_renderer_draw_glyph _obj' font' glyph x' y'
- touchManagedPtr _obj
- touchManagedPtr font
- return ()
-
-data RendererDrawGlyphMethodInfo
-instance (signature ~ (b -> Word32 -> Double -> Double -> m ()), MonadIO m, RendererK a, FontK b) => MethodInfo RendererDrawGlyphMethodInfo a signature where
- overloadedMethod _ = rendererDrawGlyph
-
--- method Renderer::draw_glyph_item
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "glyph_item", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_renderer_draw_glyph_item" pango_renderer_draw_glyph_item ::
- Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer"
- CString -> -- text : TBasicType TUTF8
- Ptr GlyphItem -> -- glyph_item : TInterface "Pango" "GlyphItem"
- Int32 -> -- x : TBasicType TInt
- Int32 -> -- y : TBasicType TInt
- IO ()
-
-
-rendererDrawGlyphItem ::
- (MonadIO m, RendererK a) =>
- a -- _obj
- -> Maybe (T.Text) -- text
- -> GlyphItem -- glyphItem
- -> Int32 -- x
- -> Int32 -- y
- -> m () -- result
-rendererDrawGlyphItem _obj text glyphItem x y = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- maybeText <- case text of
- Nothing -> return nullPtr
- Just jText -> do
- jText' <- textToCString jText
- return jText'
- let glyphItem' = unsafeManagedPtrGetPtr glyphItem
- pango_renderer_draw_glyph_item _obj' maybeText glyphItem' x y
- touchManagedPtr _obj
- touchManagedPtr glyphItem
- freeMem maybeText
- return ()
-
-data RendererDrawGlyphItemMethodInfo
-instance (signature ~ (Maybe (T.Text) -> GlyphItem -> Int32 -> Int32 -> m ()), MonadIO m, RendererK a) => MethodInfo RendererDrawGlyphItemMethodInfo a signature where
- overloadedMethod _ = rendererDrawGlyphItem
-
--- method Renderer::draw_glyphs
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "glyphs", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_renderer_draw_glyphs" pango_renderer_draw_glyphs ::
- Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer"
- Ptr Font -> -- font : TInterface "Pango" "Font"
- Ptr GlyphString -> -- glyphs : TInterface "Pango" "GlyphString"
- Int32 -> -- x : TBasicType TInt
- Int32 -> -- y : TBasicType TInt
- IO ()
-
-
-rendererDrawGlyphs ::
- (MonadIO m, RendererK a, FontK b) =>
- a -- _obj
- -> b -- font
- -> GlyphString -- glyphs
- -> Int32 -- x
- -> Int32 -- y
- -> m () -- result
-rendererDrawGlyphs _obj font glyphs x y = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let font' = unsafeManagedPtrCastPtr font
- let glyphs' = unsafeManagedPtrGetPtr glyphs
- pango_renderer_draw_glyphs _obj' font' glyphs' x y
- touchManagedPtr _obj
- touchManagedPtr font
- touchManagedPtr glyphs
- return ()
-
-data RendererDrawGlyphsMethodInfo
-instance (signature ~ (b -> GlyphString -> Int32 -> Int32 -> m ()), MonadIO m, RendererK a, FontK b) => MethodInfo RendererDrawGlyphsMethodInfo a signature where
- overloadedMethod _ = rendererDrawGlyphs
-
--- method Renderer::draw_layout
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "layout", argType = TInterface "Pango" "Layout", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_renderer_draw_layout" pango_renderer_draw_layout ::
- Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer"
- Ptr Layout -> -- layout : TInterface "Pango" "Layout"
- Int32 -> -- x : TBasicType TInt
- Int32 -> -- y : TBasicType TInt
- IO ()
-
-
-rendererDrawLayout ::
- (MonadIO m, RendererK a, LayoutK b) =>
- a -- _obj
- -> b -- layout
- -> Int32 -- x
- -> Int32 -- y
- -> m () -- result
-rendererDrawLayout _obj layout x y = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let layout' = unsafeManagedPtrCastPtr layout
- pango_renderer_draw_layout _obj' layout' x y
- touchManagedPtr _obj
- touchManagedPtr layout
- return ()
-
-data RendererDrawLayoutMethodInfo
-instance (signature ~ (b -> Int32 -> Int32 -> m ()), MonadIO m, RendererK a, LayoutK b) => MethodInfo RendererDrawLayoutMethodInfo a signature where
- overloadedMethod _ = rendererDrawLayout
-
--- method Renderer::draw_layout_line
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "line", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_renderer_draw_layout_line" pango_renderer_draw_layout_line ::
- Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer"
- Ptr LayoutLine -> -- line : TInterface "Pango" "LayoutLine"
- Int32 -> -- x : TBasicType TInt
- Int32 -> -- y : TBasicType TInt
- IO ()
-
-
-rendererDrawLayoutLine ::
- (MonadIO m, RendererK a) =>
- a -- _obj
- -> LayoutLine -- line
- -> Int32 -- x
- -> Int32 -- y
- -> m () -- result
-rendererDrawLayoutLine _obj line x y = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let line' = unsafeManagedPtrGetPtr line
- pango_renderer_draw_layout_line _obj' line' x y
- touchManagedPtr _obj
- touchManagedPtr line
- return ()
-
-data RendererDrawLayoutLineMethodInfo
-instance (signature ~ (LayoutLine -> Int32 -> Int32 -> m ()), MonadIO m, RendererK a) => MethodInfo RendererDrawLayoutLineMethodInfo a signature where
- overloadedMethod _ = rendererDrawLayoutLine
-
--- method Renderer::draw_rectangle
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_renderer_draw_rectangle" pango_renderer_draw_rectangle ::
- Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer"
- CUInt -> -- part : TInterface "Pango" "RenderPart"
- Int32 -> -- x : TBasicType TInt
- Int32 -> -- y : TBasicType TInt
- Int32 -> -- width : TBasicType TInt
- Int32 -> -- height : TBasicType TInt
- IO ()
-
-
-rendererDrawRectangle ::
- (MonadIO m, RendererK a) =>
- a -- _obj
- -> RenderPart -- part
- -> Int32 -- x
- -> Int32 -- y
- -> Int32 -- width
- -> Int32 -- height
- -> m () -- result
-rendererDrawRectangle _obj part x y width height = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let part' = (fromIntegral . fromEnum) part
- pango_renderer_draw_rectangle _obj' part' x y width height
- touchManagedPtr _obj
- return ()
-
-data RendererDrawRectangleMethodInfo
-instance (signature ~ (RenderPart -> Int32 -> Int32 -> Int32 -> Int32 -> m ()), MonadIO m, RendererK a) => MethodInfo RendererDrawRectangleMethodInfo a signature where
- overloadedMethod _ = rendererDrawRectangle
-
--- method Renderer::draw_trapezoid
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y1_", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x11", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x21", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y2", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x12", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x22", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_renderer_draw_trapezoid" pango_renderer_draw_trapezoid ::
- Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer"
- CUInt -> -- part : TInterface "Pango" "RenderPart"
- CDouble -> -- y1_ : TBasicType TDouble
- CDouble -> -- x11 : TBasicType TDouble
- CDouble -> -- x21 : TBasicType TDouble
- CDouble -> -- y2 : TBasicType TDouble
- CDouble -> -- x12 : TBasicType TDouble
- CDouble -> -- x22 : TBasicType TDouble
- IO ()
-
-
-rendererDrawTrapezoid ::
- (MonadIO m, RendererK a) =>
- a -- _obj
- -> RenderPart -- part
- -> Double -- y1_
- -> Double -- x11
- -> Double -- x21
- -> Double -- y2
- -> Double -- x12
- -> Double -- x22
- -> m () -- result
-rendererDrawTrapezoid _obj part y1_ x11 x21 y2 x12 x22 = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let part' = (fromIntegral . fromEnum) part
- let y1_' = realToFrac y1_
- let x11' = realToFrac x11
- let x21' = realToFrac x21
- let y2' = realToFrac y2
- let x12' = realToFrac x12
- let x22' = realToFrac x22
- pango_renderer_draw_trapezoid _obj' part' y1_' x11' x21' y2' x12' x22'
- touchManagedPtr _obj
- return ()
-
-data RendererDrawTrapezoidMethodInfo
-instance (signature ~ (RenderPart -> Double -> Double -> Double -> Double -> Double -> Double -> m ()), MonadIO m, RendererK a) => MethodInfo RendererDrawTrapezoidMethodInfo a signature where
- overloadedMethod _ = rendererDrawTrapezoid
-
--- method Renderer::get_alpha
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TUInt16)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_renderer_get_alpha" pango_renderer_get_alpha ::
- Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer"
- CUInt -> -- part : TInterface "Pango" "RenderPart"
- IO Word16
-
-
-rendererGetAlpha ::
- (MonadIO m, RendererK a) =>
- a -- _obj
- -> RenderPart -- part
- -> m Word16 -- result
-rendererGetAlpha _obj part = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let part' = (fromIntegral . fromEnum) part
- result <- pango_renderer_get_alpha _obj' part'
- touchManagedPtr _obj
- return result
-
-data RendererGetAlphaMethodInfo
-instance (signature ~ (RenderPart -> m Word16), MonadIO m, RendererK a) => MethodInfo RendererGetAlphaMethodInfo a signature where
- overloadedMethod _ = rendererGetAlpha
-
--- method Renderer::get_color
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Color")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_renderer_get_color" pango_renderer_get_color ::
- Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer"
- CUInt -> -- part : TInterface "Pango" "RenderPart"
- IO (Ptr Color)
-
-
-rendererGetColor ::
- (MonadIO m, RendererK a) =>
- a -- _obj
- -> RenderPart -- part
- -> m (Maybe Color) -- result
-rendererGetColor _obj part = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let part' = (fromIntegral . fromEnum) part
- result <- pango_renderer_get_color _obj' part'
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (newBoxed Color) result'
- return result''
- touchManagedPtr _obj
- return maybeResult
-
-data RendererGetColorMethodInfo
-instance (signature ~ (RenderPart -> m (Maybe Color)), MonadIO m, RendererK a) => MethodInfo RendererGetColorMethodInfo a signature where
- overloadedMethod _ = rendererGetColor
-
--- method Renderer::get_layout
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Layout")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_renderer_get_layout" pango_renderer_get_layout ::
- Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer"
- IO (Ptr Layout)
-
-
-rendererGetLayout ::
- (MonadIO m, RendererK a) =>
- a -- _obj
- -> m (Maybe Layout) -- result
-rendererGetLayout _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_renderer_get_layout _obj'
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (newObject Layout) result'
- return result''
- touchManagedPtr _obj
- return maybeResult
-
-data RendererGetLayoutMethodInfo
-instance (signature ~ (m (Maybe Layout)), MonadIO m, RendererK a) => MethodInfo RendererGetLayoutMethodInfo a signature where
- overloadedMethod _ = rendererGetLayout
-
--- method Renderer::get_layout_line
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "LayoutLine")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_renderer_get_layout_line" pango_renderer_get_layout_line ::
- Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer"
- IO (Ptr LayoutLine)
-
-
-rendererGetLayoutLine ::
- (MonadIO m, RendererK a) =>
- a -- _obj
- -> m (Maybe LayoutLine) -- result
-rendererGetLayoutLine _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_renderer_get_layout_line _obj'
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (newBoxed LayoutLine) result'
- return result''
- touchManagedPtr _obj
- return maybeResult
-
-data RendererGetLayoutLineMethodInfo
-instance (signature ~ (m (Maybe LayoutLine)), MonadIO m, RendererK a) => MethodInfo RendererGetLayoutLineMethodInfo a signature where
- overloadedMethod _ = rendererGetLayoutLine
-
--- method Renderer::get_matrix
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Matrix")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_renderer_get_matrix" pango_renderer_get_matrix ::
- Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer"
- IO (Ptr Matrix)
-
-
-rendererGetMatrix ::
- (MonadIO m, RendererK a) =>
- a -- _obj
- -> m (Maybe Matrix) -- result
-rendererGetMatrix _obj = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- result <- pango_renderer_get_matrix _obj'
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (newBoxed Matrix) result'
- return result''
- touchManagedPtr _obj
- return maybeResult
-
-data RendererGetMatrixMethodInfo
-instance (signature ~ (m (Maybe Matrix)), MonadIO m, RendererK a) => MethodInfo RendererGetMatrixMethodInfo a signature where
- overloadedMethod _ = rendererGetMatrix
-
--- method Renderer::part_changed
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_renderer_part_changed" pango_renderer_part_changed ::
- Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer"
- CUInt -> -- part : TInterface "Pango" "RenderPart"
- IO ()
-
-
-rendererPartChanged ::
- (MonadIO m, RendererK a) =>
- a -- _obj
- -> RenderPart -- part
- -> m () -- result
-rendererPartChanged _obj part = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let part' = (fromIntegral . fromEnum) part
- pango_renderer_part_changed _obj' part'
- touchManagedPtr _obj
- return ()
-
-data RendererPartChangedMethodInfo
-instance (signature ~ (RenderPart -> m ()), MonadIO m, RendererK a) => MethodInfo RendererPartChangedMethodInfo a signature where
- overloadedMethod _ = rendererPartChanged
-
--- method Renderer::set_alpha
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "alpha", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_renderer_set_alpha" pango_renderer_set_alpha ::
- Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer"
- CUInt -> -- part : TInterface "Pango" "RenderPart"
- Word16 -> -- alpha : TBasicType TUInt16
- IO ()
-
-
-rendererSetAlpha ::
- (MonadIO m, RendererK a) =>
- a -- _obj
- -> RenderPart -- part
- -> Word16 -- alpha
- -> m () -- result
-rendererSetAlpha _obj part alpha = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let part' = (fromIntegral . fromEnum) part
- pango_renderer_set_alpha _obj' part' alpha
- touchManagedPtr _obj
- return ()
-
-data RendererSetAlphaMethodInfo
-instance (signature ~ (RenderPart -> Word16 -> m ()), MonadIO m, RendererK a) => MethodInfo RendererSetAlphaMethodInfo a signature where
- overloadedMethod _ = rendererSetAlpha
-
--- method Renderer::set_color
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "part", argType = TInterface "Pango" "RenderPart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Pango" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_renderer_set_color" pango_renderer_set_color ::
- Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer"
- CUInt -> -- part : TInterface "Pango" "RenderPart"
- Ptr Color -> -- color : TInterface "Pango" "Color"
- IO ()
-
-
-rendererSetColor ::
- (MonadIO m, RendererK a) =>
- a -- _obj
- -> RenderPart -- part
- -> Maybe (Color) -- color
- -> m () -- result
-rendererSetColor _obj part color = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- let part' = (fromIntegral . fromEnum) part
- maybeColor <- case color of
- Nothing -> return nullPtr
- Just jColor -> do
- let jColor' = unsafeManagedPtrGetPtr jColor
- return jColor'
- pango_renderer_set_color _obj' part' maybeColor
- touchManagedPtr _obj
- whenJust color touchManagedPtr
- return ()
-
-data RendererSetColorMethodInfo
-instance (signature ~ (RenderPart -> Maybe (Color) -> m ()), MonadIO m, RendererK a) => MethodInfo RendererSetColorMethodInfo a signature where
- overloadedMethod _ = rendererSetColor
-
--- method Renderer::set_matrix
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Renderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "matrix", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_renderer_set_matrix" pango_renderer_set_matrix ::
- Ptr Renderer -> -- _obj : TInterface "Pango" "Renderer"
- Ptr Matrix -> -- matrix : TInterface "Pango" "Matrix"
- IO ()
-
-
-rendererSetMatrix ::
- (MonadIO m, RendererK a) =>
- a -- _obj
- -> Maybe (Matrix) -- matrix
- -> m () -- result
-rendererSetMatrix _obj matrix = liftIO $ do
- let _obj' = unsafeManagedPtrCastPtr _obj
- maybeMatrix <- case matrix of
- Nothing -> return nullPtr
- Just jMatrix -> do
- let jMatrix' = unsafeManagedPtrGetPtr jMatrix
- return jMatrix'
- pango_renderer_set_matrix _obj' maybeMatrix
- touchManagedPtr _obj
- whenJust matrix touchManagedPtr
- return ()
-
-data RendererSetMatrixMethodInfo
-instance (signature ~ (Maybe (Matrix) -> m ()), MonadIO m, RendererK a) => MethodInfo RendererSetMatrixMethodInfo a signature where
- overloadedMethod _ = rendererSetMatrix
-
-
diff --git a/GI/Pango/Objects/Renderer.hs-boot b/GI/Pango/Objects/Renderer.hs-boot
deleted file mode 100644
--- a/GI/Pango/Objects/Renderer.hs-boot
+++ /dev/null
@@ -1,32 +0,0 @@
-module GI.Pango.Objects.Renderer where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype Renderer = Renderer (ForeignPtr Renderer)
-instance GObject Renderer where
-class GObject o => RendererK o
-instance (GObject o, IsDescendantOf Renderer o) => RendererK o
-data RendererActivateMethodInfo
-data RendererDeactivateMethodInfo
-data RendererDrawErrorUnderlineMethodInfo
-data RendererDrawGlyphMethodInfo
-data RendererDrawGlyphItemMethodInfo
-data RendererDrawGlyphsMethodInfo
-data RendererDrawLayoutMethodInfo
-data RendererDrawLayoutLineMethodInfo
-data RendererDrawRectangleMethodInfo
-data RendererDrawTrapezoidMethodInfo
-data RendererGetAlphaMethodInfo
-data RendererGetColorMethodInfo
-data RendererGetLayoutMethodInfo
-data RendererGetLayoutLineMethodInfo
-data RendererGetMatrixMethodInfo
-data RendererPartChangedMethodInfo
-data RendererSetAlphaMethodInfo
-data RendererSetColorMethodInfo
-data RendererSetMatrixMethodInfo
diff --git a/GI/Pango/Structs.hs b/GI/Pango/Structs.hs
deleted file mode 100644
--- a/GI/Pango/Structs.hs
+++ /dev/null
@@ -1,103 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
--}
-
-module GI.Pango.Structs
- ( module GI.Pango.Structs.Analysis ,
- module GI.Pango.Structs.AttrClass ,
- module GI.Pango.Structs.AttrColor ,
- module GI.Pango.Structs.AttrFloat ,
- module GI.Pango.Structs.AttrFontDesc ,
- module GI.Pango.Structs.AttrFontFeatures,
- module GI.Pango.Structs.AttrInt ,
- module GI.Pango.Structs.AttrIterator ,
- module GI.Pango.Structs.AttrLanguage ,
- module GI.Pango.Structs.AttrList ,
- module GI.Pango.Structs.AttrShape ,
- module GI.Pango.Structs.AttrSize ,
- module GI.Pango.Structs.AttrString ,
- module GI.Pango.Structs.Attribute ,
- module GI.Pango.Structs.Color ,
- module GI.Pango.Structs.Coverage ,
- module GI.Pango.Structs.EngineInfo ,
- module GI.Pango.Structs.EngineScriptInfo,
- module GI.Pango.Structs.FontDescription ,
- module GI.Pango.Structs.FontMetrics ,
- module GI.Pango.Structs.GlyphGeometry ,
- module GI.Pango.Structs.GlyphInfo ,
- module GI.Pango.Structs.GlyphItem ,
- module GI.Pango.Structs.GlyphItemIter ,
- module GI.Pango.Structs.GlyphString ,
- module GI.Pango.Structs.GlyphVisAttr ,
- module GI.Pango.Structs.IncludedModule ,
- module GI.Pango.Structs.Item ,
- module GI.Pango.Structs.Language ,
- module GI.Pango.Structs.LayoutIter ,
- module GI.Pango.Structs.LayoutLine ,
- module GI.Pango.Structs.LogAttr ,
- module GI.Pango.Structs.Map ,
- module GI.Pango.Structs.MapEntry ,
- module GI.Pango.Structs.Matrix ,
- module GI.Pango.Structs.Rectangle ,
- module GI.Pango.Structs.ScriptForLang ,
- module GI.Pango.Structs.ScriptIter ,
- module GI.Pango.Structs.TabArray ,
-
-
- ) where
-
-import GI.Pango.Structs.Analysis
-import GI.Pango.Structs.AttrClass
-import GI.Pango.Structs.AttrColor
-import GI.Pango.Structs.AttrFloat
-import GI.Pango.Structs.AttrFontDesc
-import GI.Pango.Structs.AttrFontFeatures
-import GI.Pango.Structs.AttrInt
-import GI.Pango.Structs.AttrIterator
-import GI.Pango.Structs.AttrLanguage
-import GI.Pango.Structs.AttrList
-import GI.Pango.Structs.AttrShape
-import GI.Pango.Structs.AttrSize
-import GI.Pango.Structs.AttrString
-import GI.Pango.Structs.Attribute
-import GI.Pango.Structs.Color
-import GI.Pango.Structs.Coverage
-import GI.Pango.Structs.EngineInfo
-import GI.Pango.Structs.EngineScriptInfo
-import GI.Pango.Structs.FontDescription
-import GI.Pango.Structs.FontMetrics
-import GI.Pango.Structs.GlyphGeometry
-import GI.Pango.Structs.GlyphInfo
-import GI.Pango.Structs.GlyphItem
-import GI.Pango.Structs.GlyphItemIter
-import GI.Pango.Structs.GlyphString
-import GI.Pango.Structs.GlyphVisAttr
-import GI.Pango.Structs.IncludedModule
-import GI.Pango.Structs.Item
-import GI.Pango.Structs.Language
-import GI.Pango.Structs.LayoutIter
-import GI.Pango.Structs.LayoutLine
-import GI.Pango.Structs.LogAttr
-import GI.Pango.Structs.Map
-import GI.Pango.Structs.MapEntry
-import GI.Pango.Structs.Matrix
-import GI.Pango.Structs.Rectangle
-import GI.Pango.Structs.ScriptForLang
-import GI.Pango.Structs.ScriptIter
-import GI.Pango.Structs.TabArray
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-
diff --git a/GI/Pango/Structs/Analysis.hs b/GI/Pango/Structs/Analysis.hs
deleted file mode 100644
--- a/GI/Pango/Structs/Analysis.hs
+++ /dev/null
@@ -1,388 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-The #PangoAnalysis structure stores information about
-the properties of a segment of text.
--}
-
-module GI.Pango.Structs.Analysis
- (
-
--- * Exported types
- Analysis(..) ,
- newZeroAnalysis ,
- noAnalysis ,
-
-
- -- * Properties
--- ** ExtraAttrs
- analysisClearExtraAttrs ,
- analysisExtraAttrs ,
- analysisReadExtraAttrs ,
- analysisWriteExtraAttrs ,
-
-
--- ** Flags
- analysisFlags ,
- analysisReadFlags ,
- analysisWriteFlags ,
-
-
--- ** Font
- analysisClearFont ,
- analysisFont ,
- analysisReadFont ,
- analysisWriteFont ,
-
-
--- ** Gravity
- analysisGravity ,
- analysisReadGravity ,
- analysisWriteGravity ,
-
-
--- ** LangEngine
- analysisClearLangEngine ,
- analysisLangEngine ,
- analysisReadLangEngine ,
- analysisWriteLangEngine ,
-
-
--- ** Language
- analysisClearLanguage ,
- analysisLanguage ,
- analysisReadLanguage ,
- analysisWriteLanguage ,
-
-
--- ** Level
- analysisLevel ,
- analysisReadLevel ,
- analysisWriteLevel ,
-
-
--- ** Script
- analysisReadScript ,
- analysisScript ,
- analysisWriteScript ,
-
-
--- ** ShapeEngine
- analysisClearShapeEngine ,
- analysisReadShapeEngine ,
- analysisShapeEngine ,
- analysisWriteShapeEngine ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype Analysis = Analysis (ForeignPtr Analysis)
-instance WrappedPtr Analysis where
- wrappedPtrCalloc = callocBytes 48
- wrappedPtrCopy = copyPtr 48
- wrappedPtrFree = Just ptr_to_g_free
-
--- | Construct a `Analysis` struct initialized to zero.
-newZeroAnalysis :: MonadIO m => m Analysis
-newZeroAnalysis = liftIO $ wrappedPtrCalloc >>= wrapPtr Analysis
-
-instance tag ~ 'AttrSet => Constructible Analysis tag where
- new _ attrs = do
- o <- newZeroAnalysis
- GI.Attributes.set o attrs
- return o
-
-
-noAnalysis :: Maybe Analysis
-noAnalysis = Nothing
-
-analysisReadShapeEngine :: MonadIO m => Analysis -> m (Maybe EngineShape)
-analysisReadShapeEngine s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 0) :: IO (Ptr EngineShape)
- result <- convertIfNonNull val $ \val' -> do
- val'' <- (newObject EngineShape) val'
- return val''
- return result
-
-analysisWriteShapeEngine :: MonadIO m => Analysis -> Ptr EngineShape -> m ()
-analysisWriteShapeEngine s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (val :: Ptr EngineShape)
-
-analysisClearShapeEngine :: MonadIO m => Analysis -> m ()
-analysisClearShapeEngine s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (nullPtr :: Ptr EngineShape)
-
-data AnalysisShapeEngineFieldInfo
-instance AttrInfo AnalysisShapeEngineFieldInfo where
- type AttrAllowedOps AnalysisShapeEngineFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint AnalysisShapeEngineFieldInfo = (~) (Ptr EngineShape)
- type AttrBaseTypeConstraint AnalysisShapeEngineFieldInfo = (~) Analysis
- type AttrGetType AnalysisShapeEngineFieldInfo = Maybe EngineShape
- type AttrLabel AnalysisShapeEngineFieldInfo = "shape_engine"
- attrGet _ = analysisReadShapeEngine
- attrSet _ = analysisWriteShapeEngine
- attrConstruct = undefined
- attrClear _ = analysisClearShapeEngine
-
-analysisShapeEngine :: AttrLabelProxy "shapeEngine"
-analysisShapeEngine = AttrLabelProxy
-
-
-analysisReadLangEngine :: MonadIO m => Analysis -> m (Maybe EngineLang)
-analysisReadLangEngine s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 8) :: IO (Ptr EngineLang)
- result <- convertIfNonNull val $ \val' -> do
- val'' <- (newObject EngineLang) val'
- return val''
- return result
-
-analysisWriteLangEngine :: MonadIO m => Analysis -> Ptr EngineLang -> m ()
-analysisWriteLangEngine s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 8) (val :: Ptr EngineLang)
-
-analysisClearLangEngine :: MonadIO m => Analysis -> m ()
-analysisClearLangEngine s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 8) (nullPtr :: Ptr EngineLang)
-
-data AnalysisLangEngineFieldInfo
-instance AttrInfo AnalysisLangEngineFieldInfo where
- type AttrAllowedOps AnalysisLangEngineFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint AnalysisLangEngineFieldInfo = (~) (Ptr EngineLang)
- type AttrBaseTypeConstraint AnalysisLangEngineFieldInfo = (~) Analysis
- type AttrGetType AnalysisLangEngineFieldInfo = Maybe EngineLang
- type AttrLabel AnalysisLangEngineFieldInfo = "lang_engine"
- attrGet _ = analysisReadLangEngine
- attrSet _ = analysisWriteLangEngine
- attrConstruct = undefined
- attrClear _ = analysisClearLangEngine
-
-analysisLangEngine :: AttrLabelProxy "langEngine"
-analysisLangEngine = AttrLabelProxy
-
-
-analysisReadFont :: MonadIO m => Analysis -> m (Maybe Font)
-analysisReadFont s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 16) :: IO (Ptr Font)
- result <- convertIfNonNull val $ \val' -> do
- val'' <- (newObject Font) val'
- return val''
- return result
-
-analysisWriteFont :: MonadIO m => Analysis -> Ptr Font -> m ()
-analysisWriteFont s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 16) (val :: Ptr Font)
-
-analysisClearFont :: MonadIO m => Analysis -> m ()
-analysisClearFont s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 16) (nullPtr :: Ptr Font)
-
-data AnalysisFontFieldInfo
-instance AttrInfo AnalysisFontFieldInfo where
- type AttrAllowedOps AnalysisFontFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint AnalysisFontFieldInfo = (~) (Ptr Font)
- type AttrBaseTypeConstraint AnalysisFontFieldInfo = (~) Analysis
- type AttrGetType AnalysisFontFieldInfo = Maybe Font
- type AttrLabel AnalysisFontFieldInfo = "font"
- attrGet _ = analysisReadFont
- attrSet _ = analysisWriteFont
- attrConstruct = undefined
- attrClear _ = analysisClearFont
-
-analysisFont :: AttrLabelProxy "font"
-analysisFont = AttrLabelProxy
-
-
-analysisReadLevel :: MonadIO m => Analysis -> m Word8
-analysisReadLevel s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 24) :: IO Word8
- return val
-
-analysisWriteLevel :: MonadIO m => Analysis -> Word8 -> m ()
-analysisWriteLevel s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 24) (val :: Word8)
-
-data AnalysisLevelFieldInfo
-instance AttrInfo AnalysisLevelFieldInfo where
- type AttrAllowedOps AnalysisLevelFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint AnalysisLevelFieldInfo = (~) Word8
- type AttrBaseTypeConstraint AnalysisLevelFieldInfo = (~) Analysis
- type AttrGetType AnalysisLevelFieldInfo = Word8
- type AttrLabel AnalysisLevelFieldInfo = "level"
- attrGet _ = analysisReadLevel
- attrSet _ = analysisWriteLevel
- attrConstruct = undefined
- attrClear _ = undefined
-
-analysisLevel :: AttrLabelProxy "level"
-analysisLevel = AttrLabelProxy
-
-
-analysisReadGravity :: MonadIO m => Analysis -> m Word8
-analysisReadGravity s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 25) :: IO Word8
- return val
-
-analysisWriteGravity :: MonadIO m => Analysis -> Word8 -> m ()
-analysisWriteGravity s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 25) (val :: Word8)
-
-data AnalysisGravityFieldInfo
-instance AttrInfo AnalysisGravityFieldInfo where
- type AttrAllowedOps AnalysisGravityFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint AnalysisGravityFieldInfo = (~) Word8
- type AttrBaseTypeConstraint AnalysisGravityFieldInfo = (~) Analysis
- type AttrGetType AnalysisGravityFieldInfo = Word8
- type AttrLabel AnalysisGravityFieldInfo = "gravity"
- attrGet _ = analysisReadGravity
- attrSet _ = analysisWriteGravity
- attrConstruct = undefined
- attrClear _ = undefined
-
-analysisGravity :: AttrLabelProxy "gravity"
-analysisGravity = AttrLabelProxy
-
-
-analysisReadFlags :: MonadIO m => Analysis -> m Word8
-analysisReadFlags s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 26) :: IO Word8
- return val
-
-analysisWriteFlags :: MonadIO m => Analysis -> Word8 -> m ()
-analysisWriteFlags s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 26) (val :: Word8)
-
-data AnalysisFlagsFieldInfo
-instance AttrInfo AnalysisFlagsFieldInfo where
- type AttrAllowedOps AnalysisFlagsFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint AnalysisFlagsFieldInfo = (~) Word8
- type AttrBaseTypeConstraint AnalysisFlagsFieldInfo = (~) Analysis
- type AttrGetType AnalysisFlagsFieldInfo = Word8
- type AttrLabel AnalysisFlagsFieldInfo = "flags"
- attrGet _ = analysisReadFlags
- attrSet _ = analysisWriteFlags
- attrConstruct = undefined
- attrClear _ = undefined
-
-analysisFlags :: AttrLabelProxy "flags"
-analysisFlags = AttrLabelProxy
-
-
-analysisReadScript :: MonadIO m => Analysis -> m Word8
-analysisReadScript s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 27) :: IO Word8
- return val
-
-analysisWriteScript :: MonadIO m => Analysis -> Word8 -> m ()
-analysisWriteScript s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 27) (val :: Word8)
-
-data AnalysisScriptFieldInfo
-instance AttrInfo AnalysisScriptFieldInfo where
- type AttrAllowedOps AnalysisScriptFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint AnalysisScriptFieldInfo = (~) Word8
- type AttrBaseTypeConstraint AnalysisScriptFieldInfo = (~) Analysis
- type AttrGetType AnalysisScriptFieldInfo = Word8
- type AttrLabel AnalysisScriptFieldInfo = "script"
- attrGet _ = analysisReadScript
- attrSet _ = analysisWriteScript
- attrConstruct = undefined
- attrClear _ = undefined
-
-analysisScript :: AttrLabelProxy "script"
-analysisScript = AttrLabelProxy
-
-
-analysisReadLanguage :: MonadIO m => Analysis -> m (Maybe Language)
-analysisReadLanguage s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 32) :: IO (Ptr Language)
- result <- convertIfNonNull val $ \val' -> do
- val'' <- (newBoxed Language) val'
- return val''
- return result
-
-analysisWriteLanguage :: MonadIO m => Analysis -> Ptr Language -> m ()
-analysisWriteLanguage s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 32) (val :: Ptr Language)
-
-analysisClearLanguage :: MonadIO m => Analysis -> m ()
-analysisClearLanguage s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 32) (nullPtr :: Ptr Language)
-
-data AnalysisLanguageFieldInfo
-instance AttrInfo AnalysisLanguageFieldInfo where
- type AttrAllowedOps AnalysisLanguageFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint AnalysisLanguageFieldInfo = (~) (Ptr Language)
- type AttrBaseTypeConstraint AnalysisLanguageFieldInfo = (~) Analysis
- type AttrGetType AnalysisLanguageFieldInfo = Maybe Language
- type AttrLabel AnalysisLanguageFieldInfo = "language"
- attrGet _ = analysisReadLanguage
- attrSet _ = analysisWriteLanguage
- attrConstruct = undefined
- attrClear _ = analysisClearLanguage
-
-analysisLanguage :: AttrLabelProxy "language"
-analysisLanguage = AttrLabelProxy
-
-
-analysisReadExtraAttrs :: MonadIO m => Analysis -> m ([Ptr ()])
-analysisReadExtraAttrs s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 40) :: IO (Ptr (GSList (Ptr ())))
- val' <- unpackGSList val
- return val'
-
-analysisWriteExtraAttrs :: MonadIO m => Analysis -> Ptr (GSList (Ptr ())) -> m ()
-analysisWriteExtraAttrs s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 40) (val :: Ptr (GSList (Ptr ())))
-
-analysisClearExtraAttrs :: MonadIO m => Analysis -> m ()
-analysisClearExtraAttrs s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 40) (nullPtr :: Ptr (GSList (Ptr ())))
-
-data AnalysisExtraAttrsFieldInfo
-instance AttrInfo AnalysisExtraAttrsFieldInfo where
- type AttrAllowedOps AnalysisExtraAttrsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint AnalysisExtraAttrsFieldInfo = (~) (Ptr (GSList (Ptr ())))
- type AttrBaseTypeConstraint AnalysisExtraAttrsFieldInfo = (~) Analysis
- type AttrGetType AnalysisExtraAttrsFieldInfo = [Ptr ()]
- type AttrLabel AnalysisExtraAttrsFieldInfo = "extra_attrs"
- attrGet _ = analysisReadExtraAttrs
- attrSet _ = analysisWriteExtraAttrs
- attrConstruct = undefined
- attrClear _ = analysisClearExtraAttrs
-
-analysisExtraAttrs :: AttrLabelProxy "extraAttrs"
-analysisExtraAttrs = AttrLabelProxy
-
-
-
-type instance AttributeList Analysis = AnalysisAttributeList
-type AnalysisAttributeList = ('[ '("shapeEngine", AnalysisShapeEngineFieldInfo), '("langEngine", AnalysisLangEngineFieldInfo), '("font", AnalysisFontFieldInfo), '("level", AnalysisLevelFieldInfo), '("gravity", AnalysisGravityFieldInfo), '("flags", AnalysisFlagsFieldInfo), '("script", AnalysisScriptFieldInfo), '("language", AnalysisLanguageFieldInfo), '("extraAttrs", AnalysisExtraAttrsFieldInfo)] :: [(Symbol, *)])
-
-type family ResolveAnalysisMethod (t :: Symbol) (o :: *) :: * where
- ResolveAnalysisMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveAnalysisMethod t Analysis, MethodInfo info Analysis p) => IsLabelProxy t (Analysis -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveAnalysisMethod t Analysis, MethodInfo info Analysis p) => IsLabel t (Analysis -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/Analysis.hs-boot b/GI/Pango/Structs/Analysis.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/Analysis.hs-boot
+++ /dev/null
@@ -1,11 +0,0 @@
-module GI.Pango.Structs.Analysis where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype Analysis = Analysis (ForeignPtr Analysis)
-instance WrappedPtr Analysis where
diff --git a/GI/Pango/Structs/AttrClass.hs b/GI/Pango/Structs/AttrClass.hs
deleted file mode 100644
--- a/GI/Pango/Structs/AttrClass.hs
+++ /dev/null
@@ -1,108 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-The #PangoAttrClass structure stores the type and operations for
-a particular type of attribute. The functions in this structure should
-not be called directly. Instead, one should use the wrapper functions
-provided for #PangoAttribute.
--}
-
-module GI.Pango.Structs.AttrClass
- (
-
--- * Exported types
- AttrClass(..) ,
- newZeroAttrClass ,
- noAttrClass ,
-
-
- -- * Properties
--- ** Type
- attrClassReadType ,
- attrClassType ,
- attrClassWriteType ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype AttrClass = AttrClass (ForeignPtr AttrClass)
-instance WrappedPtr AttrClass where
- wrappedPtrCalloc = callocBytes 32
- wrappedPtrCopy = copyPtr 32
- wrappedPtrFree = Just ptr_to_g_free
-
--- | Construct a `AttrClass` struct initialized to zero.
-newZeroAttrClass :: MonadIO m => m AttrClass
-newZeroAttrClass = liftIO $ wrappedPtrCalloc >>= wrapPtr AttrClass
-
-instance tag ~ 'AttrSet => Constructible AttrClass tag where
- new _ attrs = do
- o <- newZeroAttrClass
- GI.Attributes.set o attrs
- return o
-
-
-noAttrClass :: Maybe AttrClass
-noAttrClass = Nothing
-
-attrClassReadType :: MonadIO m => AttrClass -> m AttrType
-attrClassReadType s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 0) :: IO CUInt
- let val' = (toEnum . fromIntegral) val
- return val'
-
-attrClassWriteType :: MonadIO m => AttrClass -> AttrType -> m ()
-attrClassWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do
- let val' = (fromIntegral . fromEnum) val
- poke (ptr `plusPtr` 0) (val' :: CUInt)
-
-data AttrClassTypeFieldInfo
-instance AttrInfo AttrClassTypeFieldInfo where
- type AttrAllowedOps AttrClassTypeFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint AttrClassTypeFieldInfo = (~) AttrType
- type AttrBaseTypeConstraint AttrClassTypeFieldInfo = (~) AttrClass
- type AttrGetType AttrClassTypeFieldInfo = AttrType
- type AttrLabel AttrClassTypeFieldInfo = "type"
- attrGet _ = attrClassReadType
- attrSet _ = attrClassWriteType
- attrConstruct = undefined
- attrClear _ = undefined
-
-attrClassType :: AttrLabelProxy "type"
-attrClassType = AttrLabelProxy
-
-
--- XXX Skipped attribute for "AttrClass:destroy" :: Not implemented: "Wrapping foreign callbacks is not supported yet"
--- XXX Skipped attribute for "AttrClass:equal" :: Not implemented: "Wrapping foreign callbacks is not supported yet"
-
-type instance AttributeList AttrClass = AttrClassAttributeList
-type AttrClassAttributeList = ('[ '("type", AttrClassTypeFieldInfo)] :: [(Symbol, *)])
-
-type family ResolveAttrClassMethod (t :: Symbol) (o :: *) :: * where
- ResolveAttrClassMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveAttrClassMethod t AttrClass, MethodInfo info AttrClass p) => IsLabelProxy t (AttrClass -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveAttrClassMethod t AttrClass, MethodInfo info AttrClass p) => IsLabel t (AttrClass -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/AttrClass.hs-boot b/GI/Pango/Structs/AttrClass.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/AttrClass.hs-boot
+++ /dev/null
@@ -1,11 +0,0 @@
-module GI.Pango.Structs.AttrClass where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype AttrClass = AttrClass (ForeignPtr AttrClass)
-instance WrappedPtr AttrClass where
diff --git a/GI/Pango/Structs/AttrColor.hs b/GI/Pango/Structs/AttrColor.hs
deleted file mode 100644
--- a/GI/Pango/Structs/AttrColor.hs
+++ /dev/null
@@ -1,149 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-The #PangoAttrColor structure is used to represent attributes that
-are colors.
--}
-
-module GI.Pango.Structs.AttrColor
- (
-
--- * Exported types
- AttrColor(..) ,
- newZeroAttrColor ,
- noAttrColor ,
-
-
- -- * Properties
--- ** Attr
- attrColorAttr ,
- attrColorClearAttr ,
- attrColorReadAttr ,
- attrColorWriteAttr ,
-
-
--- ** Color
- attrColorClearColor ,
- attrColorColor ,
- attrColorReadColor ,
- attrColorWriteColor ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype AttrColor = AttrColor (ForeignPtr AttrColor)
-instance WrappedPtr AttrColor where
- wrappedPtrCalloc = callocBytes 24
- wrappedPtrCopy = copyPtr 24
- wrappedPtrFree = Just ptr_to_g_free
-
--- | Construct a `AttrColor` struct initialized to zero.
-newZeroAttrColor :: MonadIO m => m AttrColor
-newZeroAttrColor = liftIO $ wrappedPtrCalloc >>= wrapPtr AttrColor
-
-instance tag ~ 'AttrSet => Constructible AttrColor tag where
- new _ attrs = do
- o <- newZeroAttrColor
- GI.Attributes.set o attrs
- return o
-
-
-noAttrColor :: Maybe AttrColor
-noAttrColor = Nothing
-
-attrColorReadAttr :: MonadIO m => AttrColor -> m (Maybe Attribute)
-attrColorReadAttr s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)
- result <- convertIfNonNull val $ \val' -> do
- val'' <- (newPtr Attribute) val'
- return val''
- return result
-
-attrColorWriteAttr :: MonadIO m => AttrColor -> Ptr Attribute -> m ()
-attrColorWriteAttr s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (val :: Ptr Attribute)
-
-attrColorClearAttr :: MonadIO m => AttrColor -> m ()
-attrColorClearAttr s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (nullPtr :: Ptr Attribute)
-
-data AttrColorAttrFieldInfo
-instance AttrInfo AttrColorAttrFieldInfo where
- type AttrAllowedOps AttrColorAttrFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint AttrColorAttrFieldInfo = (~) (Ptr Attribute)
- type AttrBaseTypeConstraint AttrColorAttrFieldInfo = (~) AttrColor
- type AttrGetType AttrColorAttrFieldInfo = Maybe Attribute
- type AttrLabel AttrColorAttrFieldInfo = "attr"
- attrGet _ = attrColorReadAttr
- attrSet _ = attrColorWriteAttr
- attrConstruct = undefined
- attrClear _ = attrColorClearAttr
-
-attrColorAttr :: AttrLabelProxy "attr"
-attrColorAttr = AttrLabelProxy
-
-
-attrColorReadColor :: MonadIO m => AttrColor -> m (Maybe Color)
-attrColorReadColor s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 16) :: IO (Ptr Color)
- result <- convertIfNonNull val $ \val' -> do
- val'' <- (newBoxed Color) val'
- return val''
- return result
-
-attrColorWriteColor :: MonadIO m => AttrColor -> Ptr Color -> m ()
-attrColorWriteColor s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 16) (val :: Ptr Color)
-
-attrColorClearColor :: MonadIO m => AttrColor -> m ()
-attrColorClearColor s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 16) (nullPtr :: Ptr Color)
-
-data AttrColorColorFieldInfo
-instance AttrInfo AttrColorColorFieldInfo where
- type AttrAllowedOps AttrColorColorFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint AttrColorColorFieldInfo = (~) (Ptr Color)
- type AttrBaseTypeConstraint AttrColorColorFieldInfo = (~) AttrColor
- type AttrGetType AttrColorColorFieldInfo = Maybe Color
- type AttrLabel AttrColorColorFieldInfo = "color"
- attrGet _ = attrColorReadColor
- attrSet _ = attrColorWriteColor
- attrConstruct = undefined
- attrClear _ = attrColorClearColor
-
-attrColorColor :: AttrLabelProxy "color"
-attrColorColor = AttrLabelProxy
-
-
-
-type instance AttributeList AttrColor = AttrColorAttributeList
-type AttrColorAttributeList = ('[ '("attr", AttrColorAttrFieldInfo), '("color", AttrColorColorFieldInfo)] :: [(Symbol, *)])
-
-type family ResolveAttrColorMethod (t :: Symbol) (o :: *) :: * where
- ResolveAttrColorMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveAttrColorMethod t AttrColor, MethodInfo info AttrColor p) => IsLabelProxy t (AttrColor -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveAttrColorMethod t AttrColor, MethodInfo info AttrColor p) => IsLabel t (AttrColor -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/AttrColor.hs-boot b/GI/Pango/Structs/AttrColor.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/AttrColor.hs-boot
+++ /dev/null
@@ -1,11 +0,0 @@
-module GI.Pango.Structs.AttrColor where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype AttrColor = AttrColor (ForeignPtr AttrColor)
-instance WrappedPtr AttrColor where
diff --git a/GI/Pango/Structs/AttrFloat.hs b/GI/Pango/Structs/AttrFloat.hs
deleted file mode 100644
--- a/GI/Pango/Structs/AttrFloat.hs
+++ /dev/null
@@ -1,143 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-The #PangoAttrFloat structure is used to represent attributes with
-a float or double value.
--}
-
-module GI.Pango.Structs.AttrFloat
- (
-
--- * Exported types
- AttrFloat(..) ,
- newZeroAttrFloat ,
- noAttrFloat ,
-
-
- -- * Properties
--- ** Attr
- attrFloatAttr ,
- attrFloatClearAttr ,
- attrFloatReadAttr ,
- attrFloatWriteAttr ,
-
-
--- ** Value
- attrFloatReadValue ,
- attrFloatValue ,
- attrFloatWriteValue ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype AttrFloat = AttrFloat (ForeignPtr AttrFloat)
-instance WrappedPtr AttrFloat where
- wrappedPtrCalloc = callocBytes 24
- wrappedPtrCopy = copyPtr 24
- wrappedPtrFree = Just ptr_to_g_free
-
--- | Construct a `AttrFloat` struct initialized to zero.
-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
-
-attrFloatReadAttr :: MonadIO m => AttrFloat -> m (Maybe Attribute)
-attrFloatReadAttr s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)
- result <- convertIfNonNull val $ \val' -> do
- val'' <- (newPtr Attribute) val'
- return val''
- return result
-
-attrFloatWriteAttr :: MonadIO m => AttrFloat -> Ptr Attribute -> m ()
-attrFloatWriteAttr s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (val :: Ptr Attribute)
-
-attrFloatClearAttr :: MonadIO m => AttrFloat -> m ()
-attrFloatClearAttr s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (nullPtr :: Ptr Attribute)
-
-data AttrFloatAttrFieldInfo
-instance AttrInfo AttrFloatAttrFieldInfo where
- type AttrAllowedOps AttrFloatAttrFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint AttrFloatAttrFieldInfo = (~) (Ptr Attribute)
- type AttrBaseTypeConstraint AttrFloatAttrFieldInfo = (~) AttrFloat
- type AttrGetType AttrFloatAttrFieldInfo = Maybe Attribute
- type AttrLabel AttrFloatAttrFieldInfo = "attr"
- attrGet _ = attrFloatReadAttr
- attrSet _ = attrFloatWriteAttr
- attrConstruct = undefined
- attrClear _ = attrFloatClearAttr
-
-attrFloatAttr :: AttrLabelProxy "attr"
-attrFloatAttr = AttrLabelProxy
-
-
-attrFloatReadValue :: MonadIO m => AttrFloat -> m Double
-attrFloatReadValue s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 16) :: IO CDouble
- let val' = realToFrac val
- return val'
-
-attrFloatWriteValue :: MonadIO m => AttrFloat -> Double -> m ()
-attrFloatWriteValue s val = liftIO $ withManagedPtr s $ \ptr -> do
- let val' = realToFrac val
- poke (ptr `plusPtr` 16) (val' :: CDouble)
-
-data AttrFloatValueFieldInfo
-instance AttrInfo AttrFloatValueFieldInfo where
- type AttrAllowedOps AttrFloatValueFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint AttrFloatValueFieldInfo = (~) Double
- type AttrBaseTypeConstraint AttrFloatValueFieldInfo = (~) AttrFloat
- type AttrGetType AttrFloatValueFieldInfo = Double
- type AttrLabel AttrFloatValueFieldInfo = "value"
- attrGet _ = attrFloatReadValue
- attrSet _ = attrFloatWriteValue
- attrConstruct = undefined
- attrClear _ = undefined
-
-attrFloatValue :: AttrLabelProxy "value"
-attrFloatValue = AttrLabelProxy
-
-
-
-type instance AttributeList AttrFloat = AttrFloatAttributeList
-type AttrFloatAttributeList = ('[ '("attr", AttrFloatAttrFieldInfo), '("value", AttrFloatValueFieldInfo)] :: [(Symbol, *)])
-
-type family ResolveAttrFloatMethod (t :: Symbol) (o :: *) :: * where
- ResolveAttrFloatMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveAttrFloatMethod t AttrFloat, MethodInfo info AttrFloat p) => IsLabelProxy t (AttrFloat -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveAttrFloatMethod t AttrFloat, MethodInfo info AttrFloat p) => IsLabel t (AttrFloat -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/AttrFloat.hs-boot b/GI/Pango/Structs/AttrFloat.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/AttrFloat.hs-boot
+++ /dev/null
@@ -1,11 +0,0 @@
-module GI.Pango.Structs.AttrFloat where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype AttrFloat = AttrFloat (ForeignPtr AttrFloat)
-instance WrappedPtr AttrFloat where
diff --git a/GI/Pango/Structs/AttrFontDesc.hs b/GI/Pango/Structs/AttrFontDesc.hs
deleted file mode 100644
--- a/GI/Pango/Structs/AttrFontDesc.hs
+++ /dev/null
@@ -1,181 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-The #PangoAttrFontDesc structure is used to store an attribute that
-sets all aspects of the font description at once.
--}
-
-module GI.Pango.Structs.AttrFontDesc
- (
-
--- * Exported types
- AttrFontDesc(..) ,
- newZeroAttrFontDesc ,
- noAttrFontDesc ,
-
-
- -- * Methods
--- ** attrFontDescNew
- attrFontDescNew ,
-
-
-
-
- -- * Properties
--- ** Attr
- attrFontDescAttr ,
- attrFontDescClearAttr ,
- attrFontDescReadAttr ,
- attrFontDescWriteAttr ,
-
-
--- ** Desc
- attrFontDescClearDesc ,
- attrFontDescDesc ,
- attrFontDescReadDesc ,
- attrFontDescWriteDesc ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype AttrFontDesc = AttrFontDesc (ForeignPtr AttrFontDesc)
-instance WrappedPtr AttrFontDesc where
- wrappedPtrCalloc = callocBytes 24
- wrappedPtrCopy = copyPtr 24
- wrappedPtrFree = Just ptr_to_g_free
-
--- | Construct a `AttrFontDesc` struct initialized to zero.
-newZeroAttrFontDesc :: MonadIO m => m AttrFontDesc
-newZeroAttrFontDesc = liftIO $ wrappedPtrCalloc >>= wrapPtr AttrFontDesc
-
-instance tag ~ 'AttrSet => Constructible AttrFontDesc tag where
- new _ attrs = do
- o <- newZeroAttrFontDesc
- GI.Attributes.set o attrs
- return o
-
-
-noAttrFontDesc :: Maybe AttrFontDesc
-noAttrFontDesc = Nothing
-
-attrFontDescReadAttr :: MonadIO m => AttrFontDesc -> m (Maybe Attribute)
-attrFontDescReadAttr s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)
- result <- convertIfNonNull val $ \val' -> do
- val'' <- (newPtr Attribute) val'
- return val''
- return result
-
-attrFontDescWriteAttr :: MonadIO m => AttrFontDesc -> Ptr Attribute -> m ()
-attrFontDescWriteAttr s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (val :: Ptr Attribute)
-
-attrFontDescClearAttr :: MonadIO m => AttrFontDesc -> m ()
-attrFontDescClearAttr s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (nullPtr :: Ptr Attribute)
-
-data AttrFontDescAttrFieldInfo
-instance AttrInfo AttrFontDescAttrFieldInfo where
- type AttrAllowedOps AttrFontDescAttrFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint AttrFontDescAttrFieldInfo = (~) (Ptr Attribute)
- type AttrBaseTypeConstraint AttrFontDescAttrFieldInfo = (~) AttrFontDesc
- type AttrGetType AttrFontDescAttrFieldInfo = Maybe Attribute
- type AttrLabel AttrFontDescAttrFieldInfo = "attr"
- attrGet _ = attrFontDescReadAttr
- attrSet _ = attrFontDescWriteAttr
- attrConstruct = undefined
- attrClear _ = attrFontDescClearAttr
-
-attrFontDescAttr :: AttrLabelProxy "attr"
-attrFontDescAttr = AttrLabelProxy
-
-
-attrFontDescReadDesc :: MonadIO m => AttrFontDesc -> m (Maybe FontDescription)
-attrFontDescReadDesc s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 16) :: IO (Ptr FontDescription)
- result <- convertIfNonNull val $ \val' -> do
- val'' <- (newBoxed FontDescription) val'
- return val''
- return result
-
-attrFontDescWriteDesc :: MonadIO m => AttrFontDesc -> Ptr FontDescription -> m ()
-attrFontDescWriteDesc s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 16) (val :: Ptr FontDescription)
-
-attrFontDescClearDesc :: MonadIO m => AttrFontDesc -> m ()
-attrFontDescClearDesc s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 16) (nullPtr :: Ptr FontDescription)
-
-data AttrFontDescDescFieldInfo
-instance AttrInfo AttrFontDescDescFieldInfo where
- type AttrAllowedOps AttrFontDescDescFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint AttrFontDescDescFieldInfo = (~) (Ptr FontDescription)
- type AttrBaseTypeConstraint AttrFontDescDescFieldInfo = (~) AttrFontDesc
- type AttrGetType AttrFontDescDescFieldInfo = Maybe FontDescription
- type AttrLabel AttrFontDescDescFieldInfo = "desc"
- attrGet _ = attrFontDescReadDesc
- attrSet _ = attrFontDescWriteDesc
- attrConstruct = undefined
- attrClear _ = attrFontDescClearDesc
-
-attrFontDescDesc :: AttrLabelProxy "desc"
-attrFontDescDesc = AttrLabelProxy
-
-
-
-type instance AttributeList AttrFontDesc = AttrFontDescAttributeList
-type AttrFontDescAttributeList = ('[ '("attr", AttrFontDescAttrFieldInfo), '("desc", AttrFontDescDescFieldInfo)] :: [(Symbol, *)])
-
--- method AttrFontDesc::new
--- method type : MemberFunction
--- Args : [Arg {argCName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Attribute")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_font_desc_new" pango_attr_font_desc_new ::
- Ptr FontDescription -> -- desc : TInterface "Pango" "FontDescription"
- IO (Ptr Attribute)
-
-
-attrFontDescNew ::
- (MonadIO m) =>
- FontDescription -- desc
- -> m Attribute -- result
-attrFontDescNew desc = liftIO $ do
- let desc' = unsafeManagedPtrGetPtr desc
- result <- pango_attr_font_desc_new desc'
- checkUnexpectedReturnNULL "pango_attr_font_desc_new" result
- result' <- (wrapPtr Attribute) result
- touchManagedPtr desc
- return result'
-
-type family ResolveAttrFontDescMethod (t :: Symbol) (o :: *) :: * where
- ResolveAttrFontDescMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveAttrFontDescMethod t AttrFontDesc, MethodInfo info AttrFontDesc p) => IsLabelProxy t (AttrFontDesc -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveAttrFontDescMethod t AttrFontDesc, MethodInfo info AttrFontDesc p) => IsLabel t (AttrFontDesc -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/AttrFontDesc.hs-boot b/GI/Pango/Structs/AttrFontDesc.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/AttrFontDesc.hs-boot
+++ /dev/null
@@ -1,11 +0,0 @@
-module GI.Pango.Structs.AttrFontDesc where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype AttrFontDesc = AttrFontDesc (ForeignPtr AttrFontDesc)
-instance WrappedPtr AttrFontDesc where
diff --git a/GI/Pango/Structs/AttrFontFeatures.hs b/GI/Pango/Structs/AttrFontFeatures.hs
deleted file mode 100644
--- a/GI/Pango/Structs/AttrFontFeatures.hs
+++ /dev/null
@@ -1,181 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-The #PangoAttrFontFeatures structure is used to represent OpenType
-font features as an attribute.
--}
-
-module GI.Pango.Structs.AttrFontFeatures
- (
-
--- * Exported types
- AttrFontFeatures(..) ,
- newZeroAttrFontFeatures ,
- noAttrFontFeatures ,
-
-
- -- * Methods
--- ** attrFontFeaturesNew
- attrFontFeaturesNew ,
-
-
-
-
- -- * Properties
--- ** Attr
- attrFontFeaturesAttr ,
- attrFontFeaturesClearAttr ,
- attrFontFeaturesReadAttr ,
- attrFontFeaturesWriteAttr ,
-
-
--- ** Features
- attrFontFeaturesClearFeatures ,
- attrFontFeaturesFeatures ,
- attrFontFeaturesReadFeatures ,
- attrFontFeaturesWriteFeatures ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype AttrFontFeatures = AttrFontFeatures (ForeignPtr AttrFontFeatures)
-instance WrappedPtr AttrFontFeatures where
- wrappedPtrCalloc = callocBytes 24
- wrappedPtrCopy = copyPtr 24
- wrappedPtrFree = Just ptr_to_g_free
-
--- | Construct a `AttrFontFeatures` struct initialized to zero.
-newZeroAttrFontFeatures :: MonadIO m => m AttrFontFeatures
-newZeroAttrFontFeatures = liftIO $ wrappedPtrCalloc >>= wrapPtr AttrFontFeatures
-
-instance tag ~ 'AttrSet => Constructible AttrFontFeatures tag where
- new _ attrs = do
- o <- newZeroAttrFontFeatures
- GI.Attributes.set o attrs
- return o
-
-
-noAttrFontFeatures :: Maybe AttrFontFeatures
-noAttrFontFeatures = Nothing
-
-attrFontFeaturesReadAttr :: MonadIO m => AttrFontFeatures -> m (Maybe Attribute)
-attrFontFeaturesReadAttr s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)
- result <- convertIfNonNull val $ \val' -> do
- val'' <- (newPtr Attribute) val'
- return val''
- return result
-
-attrFontFeaturesWriteAttr :: MonadIO m => AttrFontFeatures -> Ptr Attribute -> m ()
-attrFontFeaturesWriteAttr s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (val :: Ptr Attribute)
-
-attrFontFeaturesClearAttr :: MonadIO m => AttrFontFeatures -> m ()
-attrFontFeaturesClearAttr s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (nullPtr :: Ptr Attribute)
-
-data AttrFontFeaturesAttrFieldInfo
-instance AttrInfo AttrFontFeaturesAttrFieldInfo where
- type AttrAllowedOps AttrFontFeaturesAttrFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint AttrFontFeaturesAttrFieldInfo = (~) (Ptr Attribute)
- type AttrBaseTypeConstraint AttrFontFeaturesAttrFieldInfo = (~) AttrFontFeatures
- type AttrGetType AttrFontFeaturesAttrFieldInfo = Maybe Attribute
- type AttrLabel AttrFontFeaturesAttrFieldInfo = "attr"
- attrGet _ = attrFontFeaturesReadAttr
- attrSet _ = attrFontFeaturesWriteAttr
- attrConstruct = undefined
- attrClear _ = attrFontFeaturesClearAttr
-
-attrFontFeaturesAttr :: AttrLabelProxy "attr"
-attrFontFeaturesAttr = AttrLabelProxy
-
-
-attrFontFeaturesReadFeatures :: MonadIO m => AttrFontFeatures -> m (Maybe T.Text)
-attrFontFeaturesReadFeatures s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 16) :: IO CString
- result <- convertIfNonNull val $ \val' -> do
- val'' <- cstringToText val'
- return val''
- return result
-
-attrFontFeaturesWriteFeatures :: MonadIO m => AttrFontFeatures -> CString -> m ()
-attrFontFeaturesWriteFeatures s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 16) (val :: CString)
-
-attrFontFeaturesClearFeatures :: MonadIO m => AttrFontFeatures -> m ()
-attrFontFeaturesClearFeatures s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 16) (nullPtr :: CString)
-
-data AttrFontFeaturesFeaturesFieldInfo
-instance AttrInfo AttrFontFeaturesFeaturesFieldInfo where
- type AttrAllowedOps AttrFontFeaturesFeaturesFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint AttrFontFeaturesFeaturesFieldInfo = (~) CString
- type AttrBaseTypeConstraint AttrFontFeaturesFeaturesFieldInfo = (~) AttrFontFeatures
- type AttrGetType AttrFontFeaturesFeaturesFieldInfo = Maybe T.Text
- type AttrLabel AttrFontFeaturesFeaturesFieldInfo = "features"
- attrGet _ = attrFontFeaturesReadFeatures
- attrSet _ = attrFontFeaturesWriteFeatures
- attrConstruct = undefined
- attrClear _ = attrFontFeaturesClearFeatures
-
-attrFontFeaturesFeatures :: AttrLabelProxy "features"
-attrFontFeaturesFeatures = AttrLabelProxy
-
-
-
-type instance AttributeList AttrFontFeatures = AttrFontFeaturesAttributeList
-type AttrFontFeaturesAttributeList = ('[ '("attr", AttrFontFeaturesAttrFieldInfo), '("features", AttrFontFeaturesFeaturesFieldInfo)] :: [(Symbol, *)])
-
--- method AttrFontFeatures::new
--- method type : MemberFunction
--- Args : [Arg {argCName = "features", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Attribute")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_font_features_new" pango_attr_font_features_new ::
- CString -> -- features : TBasicType TUTF8
- IO (Ptr Attribute)
-
-
-attrFontFeaturesNew ::
- (MonadIO m) =>
- T.Text -- features
- -> m Attribute -- result
-attrFontFeaturesNew features = liftIO $ do
- features' <- textToCString features
- result <- pango_attr_font_features_new features'
- checkUnexpectedReturnNULL "pango_attr_font_features_new" result
- result' <- (wrapPtr Attribute) result
- freeMem features'
- return result'
-
-type family ResolveAttrFontFeaturesMethod (t :: Symbol) (o :: *) :: * where
- ResolveAttrFontFeaturesMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveAttrFontFeaturesMethod t AttrFontFeatures, MethodInfo info AttrFontFeatures p) => IsLabelProxy t (AttrFontFeatures -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveAttrFontFeaturesMethod t AttrFontFeatures, MethodInfo info AttrFontFeatures p) => IsLabel t (AttrFontFeatures -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/AttrFontFeatures.hs-boot b/GI/Pango/Structs/AttrFontFeatures.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/AttrFontFeatures.hs-boot
+++ /dev/null
@@ -1,11 +0,0 @@
-module GI.Pango.Structs.AttrFontFeatures where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype AttrFontFeatures = AttrFontFeatures (ForeignPtr AttrFontFeatures)
-instance WrappedPtr AttrFontFeatures where
diff --git a/GI/Pango/Structs/AttrInt.hs b/GI/Pango/Structs/AttrInt.hs
deleted file mode 100644
--- a/GI/Pango/Structs/AttrInt.hs
+++ /dev/null
@@ -1,141 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-The #PangoAttrInt structure is used to represent attributes with
-an integer or enumeration value.
--}
-
-module GI.Pango.Structs.AttrInt
- (
-
--- * Exported types
- AttrInt(..) ,
- newZeroAttrInt ,
- noAttrInt ,
-
-
- -- * Properties
--- ** Attr
- attrIntAttr ,
- attrIntClearAttr ,
- attrIntReadAttr ,
- attrIntWriteAttr ,
-
-
--- ** Value
- attrIntReadValue ,
- attrIntValue ,
- attrIntWriteValue ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype AttrInt = AttrInt (ForeignPtr AttrInt)
-instance WrappedPtr AttrInt where
- wrappedPtrCalloc = callocBytes 24
- wrappedPtrCopy = copyPtr 24
- wrappedPtrFree = Just ptr_to_g_free
-
--- | Construct a `AttrInt` struct initialized to zero.
-newZeroAttrInt :: MonadIO m => m AttrInt
-newZeroAttrInt = liftIO $ wrappedPtrCalloc >>= wrapPtr AttrInt
-
-instance tag ~ 'AttrSet => Constructible AttrInt tag where
- new _ attrs = do
- o <- newZeroAttrInt
- GI.Attributes.set o attrs
- return o
-
-
-noAttrInt :: Maybe AttrInt
-noAttrInt = Nothing
-
-attrIntReadAttr :: MonadIO m => AttrInt -> m (Maybe Attribute)
-attrIntReadAttr s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)
- result <- convertIfNonNull val $ \val' -> do
- val'' <- (newPtr Attribute) val'
- return val''
- return result
-
-attrIntWriteAttr :: MonadIO m => AttrInt -> Ptr Attribute -> m ()
-attrIntWriteAttr s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (val :: Ptr Attribute)
-
-attrIntClearAttr :: MonadIO m => AttrInt -> m ()
-attrIntClearAttr s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (nullPtr :: Ptr Attribute)
-
-data AttrIntAttrFieldInfo
-instance AttrInfo AttrIntAttrFieldInfo where
- type AttrAllowedOps AttrIntAttrFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint AttrIntAttrFieldInfo = (~) (Ptr Attribute)
- type AttrBaseTypeConstraint AttrIntAttrFieldInfo = (~) AttrInt
- type AttrGetType AttrIntAttrFieldInfo = Maybe Attribute
- type AttrLabel AttrIntAttrFieldInfo = "attr"
- attrGet _ = attrIntReadAttr
- attrSet _ = attrIntWriteAttr
- attrConstruct = undefined
- attrClear _ = attrIntClearAttr
-
-attrIntAttr :: AttrLabelProxy "attr"
-attrIntAttr = AttrLabelProxy
-
-
-attrIntReadValue :: MonadIO m => AttrInt -> m Int32
-attrIntReadValue s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 16) :: IO Int32
- return val
-
-attrIntWriteValue :: MonadIO m => AttrInt -> Int32 -> m ()
-attrIntWriteValue s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 16) (val :: Int32)
-
-data AttrIntValueFieldInfo
-instance AttrInfo AttrIntValueFieldInfo where
- type AttrAllowedOps AttrIntValueFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint AttrIntValueFieldInfo = (~) Int32
- type AttrBaseTypeConstraint AttrIntValueFieldInfo = (~) AttrInt
- type AttrGetType AttrIntValueFieldInfo = Int32
- type AttrLabel AttrIntValueFieldInfo = "value"
- attrGet _ = attrIntReadValue
- attrSet _ = attrIntWriteValue
- attrConstruct = undefined
- attrClear _ = undefined
-
-attrIntValue :: AttrLabelProxy "value"
-attrIntValue = AttrLabelProxy
-
-
-
-type instance AttributeList AttrInt = AttrIntAttributeList
-type AttrIntAttributeList = ('[ '("attr", AttrIntAttrFieldInfo), '("value", AttrIntValueFieldInfo)] :: [(Symbol, *)])
-
-type family ResolveAttrIntMethod (t :: Symbol) (o :: *) :: * where
- ResolveAttrIntMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveAttrIntMethod t AttrInt, MethodInfo info AttrInt p) => IsLabelProxy t (AttrInt -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveAttrIntMethod t AttrInt, MethodInfo info AttrInt p) => IsLabel t (AttrInt -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/AttrInt.hs-boot b/GI/Pango/Structs/AttrInt.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/AttrInt.hs-boot
+++ /dev/null
@@ -1,11 +0,0 @@
-module GI.Pango.Structs.AttrInt where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype AttrInt = AttrInt (ForeignPtr AttrInt)
-instance WrappedPtr AttrInt where
diff --git a/GI/Pango/Structs/AttrIterator.hs b/GI/Pango/Structs/AttrIterator.hs
deleted file mode 100644
--- a/GI/Pango/Structs/AttrIterator.hs
+++ /dev/null
@@ -1,259 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-The #PangoAttrIterator structure is used to represent an
-iterator through a #PangoAttrList. A new iterator is created
-with pango_attr_list_get_iterator(). Once the iterator
-is created, it can be advanced through the style changes
-in the text using pango_attr_iterator_next(). At each
-style change, the range of the current style segment and the
-attributes currently in effect can be queried.
--}
-
-module GI.Pango.Structs.AttrIterator
- (
-
--- * Exported types
- AttrIterator(..) ,
- noAttrIterator ,
-
-
- -- * Methods
--- ** attrIteratorDestroy
- AttrIteratorDestroyMethodInfo ,
- attrIteratorDestroy ,
-
-
--- ** attrIteratorGetAttrs
- AttrIteratorGetAttrsMethodInfo ,
- attrIteratorGetAttrs ,
-
-
--- ** attrIteratorGetFont
- AttrIteratorGetFontMethodInfo ,
- attrIteratorGetFont ,
-
-
--- ** attrIteratorNext
- AttrIteratorNextMethodInfo ,
- attrIteratorNext ,
-
-
--- ** attrIteratorRange
- AttrIteratorRangeMethodInfo ,
- attrIteratorRange ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype AttrIterator = AttrIterator (ForeignPtr AttrIterator)
--- XXX Wrapping a foreign struct/union with no known destructor or size, leak?
-instance WrappedPtr AttrIterator where
- wrappedPtrCalloc = return nullPtr
- wrappedPtrCopy = return
- wrappedPtrFree = Nothing
-
-noAttrIterator :: Maybe AttrIterator
-noAttrIterator = Nothing
-
-
-type instance AttributeList AttrIterator = AttrIteratorAttributeList
-type AttrIteratorAttributeList = ('[ ] :: [(Symbol, *)])
-
--- method AttrIterator::destroy
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_iterator_destroy" pango_attr_iterator_destroy ::
- Ptr AttrIterator -> -- _obj : TInterface "Pango" "AttrIterator"
- IO ()
-
-
-attrIteratorDestroy ::
- (MonadIO m) =>
- AttrIterator -- _obj
- -> m () -- result
-attrIteratorDestroy _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- pango_attr_iterator_destroy _obj'
- touchManagedPtr _obj
- return ()
-
-data AttrIteratorDestroyMethodInfo
-instance (signature ~ (m ()), MonadIO m) => MethodInfo AttrIteratorDestroyMethodInfo AttrIterator signature where
- overloadedMethod _ = attrIteratorDestroy
-
--- method AttrIterator::get_attrs
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TGSList (TInterface "Pango" "Attribute"))
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_iterator_get_attrs" pango_attr_iterator_get_attrs ::
- Ptr AttrIterator -> -- _obj : TInterface "Pango" "AttrIterator"
- IO (Ptr (GSList (Ptr Attribute)))
-
-
-attrIteratorGetAttrs ::
- (MonadIO m) =>
- AttrIterator -- _obj
- -> m [Attribute] -- result
-attrIteratorGetAttrs _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_attr_iterator_get_attrs _obj'
- result' <- unpackGSList result
- result'' <- mapM (wrapPtr Attribute) result'
- g_slist_free result
- touchManagedPtr _obj
- return result''
-
-data AttrIteratorGetAttrsMethodInfo
-instance (signature ~ (m [Attribute]), MonadIO m) => MethodInfo AttrIteratorGetAttrsMethodInfo AttrIterator signature where
- overloadedMethod _ = attrIteratorGetAttrs
-
--- method AttrIterator::get_font
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "desc", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "extra_attrs", argType = TGSList (TInterface "Pango" "Attribute"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_iterator_get_font" pango_attr_iterator_get_font ::
- Ptr AttrIterator -> -- _obj : TInterface "Pango" "AttrIterator"
- Ptr FontDescription -> -- desc : TInterface "Pango" "FontDescription"
- Ptr Language -> -- language : TInterface "Pango" "Language"
- Ptr (GSList (Ptr Attribute)) -> -- extra_attrs : TGSList (TInterface "Pango" "Attribute")
- IO ()
-
-
-attrIteratorGetFont ::
- (MonadIO m) =>
- AttrIterator -- _obj
- -> FontDescription -- desc
- -> Maybe (Language) -- language
- -> [Attribute] -- extraAttrs
- -> m () -- result
-attrIteratorGetFont _obj desc language extraAttrs = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let desc' = unsafeManagedPtrGetPtr desc
- maybeLanguage <- case language of
- Nothing -> return nullPtr
- Just jLanguage -> do
- let jLanguage' = unsafeManagedPtrGetPtr jLanguage
- return jLanguage'
- let extraAttrs' = map unsafeManagedPtrGetPtr extraAttrs
- extraAttrs'' <- packGSList extraAttrs'
- pango_attr_iterator_get_font _obj' desc' maybeLanguage extraAttrs''
- touchManagedPtr _obj
- touchManagedPtr desc
- whenJust language touchManagedPtr
- mapM_ touchManagedPtr extraAttrs
- return ()
-
-data AttrIteratorGetFontMethodInfo
-instance (signature ~ (FontDescription -> Maybe (Language) -> [Attribute] -> m ()), MonadIO m) => MethodInfo AttrIteratorGetFontMethodInfo AttrIterator signature where
- overloadedMethod _ = attrIteratorGetFont
-
--- method AttrIterator::next
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_iterator_next" pango_attr_iterator_next ::
- Ptr AttrIterator -> -- _obj : TInterface "Pango" "AttrIterator"
- IO CInt
-
-
-attrIteratorNext ::
- (MonadIO m) =>
- AttrIterator -- _obj
- -> m Bool -- result
-attrIteratorNext _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_attr_iterator_next _obj'
- let result' = (/= 0) result
- touchManagedPtr _obj
- return result'
-
-data AttrIteratorNextMethodInfo
-instance (signature ~ (m Bool), MonadIO m) => MethodInfo AttrIteratorNextMethodInfo AttrIterator signature where
- overloadedMethod _ = attrIteratorNext
-
--- method AttrIterator::range
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "AttrIterator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_iterator_range" pango_attr_iterator_range ::
- Ptr AttrIterator -> -- _obj : TInterface "Pango" "AttrIterator"
- Ptr Int32 -> -- start : TBasicType TInt
- Ptr Int32 -> -- end : TBasicType TInt
- IO ()
-
-
-attrIteratorRange ::
- (MonadIO m) =>
- AttrIterator -- _obj
- -> m (Int32,Int32) -- result
-attrIteratorRange _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- start <- allocMem :: IO (Ptr Int32)
- end <- allocMem :: IO (Ptr Int32)
- pango_attr_iterator_range _obj' start end
- start' <- peek start
- end' <- peek end
- touchManagedPtr _obj
- freeMem start
- freeMem end
- return (start', end')
-
-data AttrIteratorRangeMethodInfo
-instance (signature ~ (m (Int32,Int32)), MonadIO m) => MethodInfo AttrIteratorRangeMethodInfo AttrIterator signature where
- overloadedMethod _ = attrIteratorRange
-
-type family ResolveAttrIteratorMethod (t :: Symbol) (o :: *) :: * where
- ResolveAttrIteratorMethod "destroy" o = AttrIteratorDestroyMethodInfo
- ResolveAttrIteratorMethod "next" o = AttrIteratorNextMethodInfo
- ResolveAttrIteratorMethod "range" o = AttrIteratorRangeMethodInfo
- ResolveAttrIteratorMethod "getAttrs" o = AttrIteratorGetAttrsMethodInfo
- ResolveAttrIteratorMethod "getFont" o = AttrIteratorGetFontMethodInfo
- ResolveAttrIteratorMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveAttrIteratorMethod t AttrIterator, MethodInfo info AttrIterator p) => IsLabelProxy t (AttrIterator -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveAttrIteratorMethod t AttrIterator, MethodInfo info AttrIterator p) => IsLabel t (AttrIterator -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/AttrIterator.hs-boot b/GI/Pango/Structs/AttrIterator.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/AttrIterator.hs-boot
+++ /dev/null
@@ -1,16 +0,0 @@
-module GI.Pango.Structs.AttrIterator where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype AttrIterator = AttrIterator (ForeignPtr AttrIterator)
-instance WrappedPtr AttrIterator where
-data AttrIteratorDestroyMethodInfo
-data AttrIteratorGetAttrsMethodInfo
-data AttrIteratorGetFontMethodInfo
-data AttrIteratorNextMethodInfo
-data AttrIteratorRangeMethodInfo
diff --git a/GI/Pango/Structs/AttrLanguage.hs b/GI/Pango/Structs/AttrLanguage.hs
deleted file mode 100644
--- a/GI/Pango/Structs/AttrLanguage.hs
+++ /dev/null
@@ -1,181 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-The #PangoAttrLanguage structure is used to represent attributes that
-are languages.
--}
-
-module GI.Pango.Structs.AttrLanguage
- (
-
--- * Exported types
- AttrLanguage(..) ,
- newZeroAttrLanguage ,
- noAttrLanguage ,
-
-
- -- * Methods
--- ** attrLanguageNew
- attrLanguageNew ,
-
-
-
-
- -- * Properties
--- ** Attr
- attrLanguageAttr ,
- attrLanguageClearAttr ,
- attrLanguageReadAttr ,
- attrLanguageWriteAttr ,
-
-
--- ** Value
- attrLanguageClearValue ,
- attrLanguageReadValue ,
- attrLanguageValue ,
- attrLanguageWriteValue ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype AttrLanguage = AttrLanguage (ForeignPtr AttrLanguage)
-instance WrappedPtr AttrLanguage where
- wrappedPtrCalloc = callocBytes 24
- wrappedPtrCopy = copyPtr 24
- wrappedPtrFree = Just ptr_to_g_free
-
--- | Construct a `AttrLanguage` struct initialized to zero.
-newZeroAttrLanguage :: MonadIO m => m AttrLanguage
-newZeroAttrLanguage = liftIO $ wrappedPtrCalloc >>= wrapPtr AttrLanguage
-
-instance tag ~ 'AttrSet => Constructible AttrLanguage tag where
- new _ attrs = do
- o <- newZeroAttrLanguage
- GI.Attributes.set o attrs
- return o
-
-
-noAttrLanguage :: Maybe AttrLanguage
-noAttrLanguage = Nothing
-
-attrLanguageReadAttr :: MonadIO m => AttrLanguage -> m (Maybe Attribute)
-attrLanguageReadAttr s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)
- result <- convertIfNonNull val $ \val' -> do
- val'' <- (newPtr Attribute) val'
- return val''
- return result
-
-attrLanguageWriteAttr :: MonadIO m => AttrLanguage -> Ptr Attribute -> m ()
-attrLanguageWriteAttr s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (val :: Ptr Attribute)
-
-attrLanguageClearAttr :: MonadIO m => AttrLanguage -> m ()
-attrLanguageClearAttr s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (nullPtr :: Ptr Attribute)
-
-data AttrLanguageAttrFieldInfo
-instance AttrInfo AttrLanguageAttrFieldInfo where
- type AttrAllowedOps AttrLanguageAttrFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint AttrLanguageAttrFieldInfo = (~) (Ptr Attribute)
- type AttrBaseTypeConstraint AttrLanguageAttrFieldInfo = (~) AttrLanguage
- type AttrGetType AttrLanguageAttrFieldInfo = Maybe Attribute
- type AttrLabel AttrLanguageAttrFieldInfo = "attr"
- attrGet _ = attrLanguageReadAttr
- attrSet _ = attrLanguageWriteAttr
- attrConstruct = undefined
- attrClear _ = attrLanguageClearAttr
-
-attrLanguageAttr :: AttrLabelProxy "attr"
-attrLanguageAttr = AttrLabelProxy
-
-
-attrLanguageReadValue :: MonadIO m => AttrLanguage -> m (Maybe Language)
-attrLanguageReadValue s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 16) :: IO (Ptr Language)
- result <- convertIfNonNull val $ \val' -> do
- val'' <- (newBoxed Language) val'
- return val''
- return result
-
-attrLanguageWriteValue :: MonadIO m => AttrLanguage -> Ptr Language -> m ()
-attrLanguageWriteValue s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 16) (val :: Ptr Language)
-
-attrLanguageClearValue :: MonadIO m => AttrLanguage -> m ()
-attrLanguageClearValue s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 16) (nullPtr :: Ptr Language)
-
-data AttrLanguageValueFieldInfo
-instance AttrInfo AttrLanguageValueFieldInfo where
- type AttrAllowedOps AttrLanguageValueFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint AttrLanguageValueFieldInfo = (~) (Ptr Language)
- type AttrBaseTypeConstraint AttrLanguageValueFieldInfo = (~) AttrLanguage
- type AttrGetType AttrLanguageValueFieldInfo = Maybe Language
- type AttrLabel AttrLanguageValueFieldInfo = "value"
- attrGet _ = attrLanguageReadValue
- attrSet _ = attrLanguageWriteValue
- attrConstruct = undefined
- attrClear _ = attrLanguageClearValue
-
-attrLanguageValue :: AttrLabelProxy "value"
-attrLanguageValue = AttrLabelProxy
-
-
-
-type instance AttributeList AttrLanguage = AttrLanguageAttributeList
-type AttrLanguageAttributeList = ('[ '("attr", AttrLanguageAttrFieldInfo), '("value", AttrLanguageValueFieldInfo)] :: [(Symbol, *)])
-
--- method AttrLanguage::new
--- method type : MemberFunction
--- Args : [Arg {argCName = "language", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Attribute")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_language_new" pango_attr_language_new ::
- Ptr Language -> -- language : TInterface "Pango" "Language"
- IO (Ptr Attribute)
-
-
-attrLanguageNew ::
- (MonadIO m) =>
- Language -- language
- -> m Attribute -- result
-attrLanguageNew language = liftIO $ do
- let language' = unsafeManagedPtrGetPtr language
- result <- pango_attr_language_new language'
- checkUnexpectedReturnNULL "pango_attr_language_new" result
- result' <- (wrapPtr Attribute) result
- touchManagedPtr language
- return result'
-
-type family ResolveAttrLanguageMethod (t :: Symbol) (o :: *) :: * where
- ResolveAttrLanguageMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveAttrLanguageMethod t AttrLanguage, MethodInfo info AttrLanguage p) => IsLabelProxy t (AttrLanguage -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveAttrLanguageMethod t AttrLanguage, MethodInfo info AttrLanguage p) => IsLabel t (AttrLanguage -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/AttrLanguage.hs-boot b/GI/Pango/Structs/AttrLanguage.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/AttrLanguage.hs-boot
+++ /dev/null
@@ -1,11 +0,0 @@
-module GI.Pango.Structs.AttrLanguage where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype AttrLanguage = AttrLanguage (ForeignPtr AttrLanguage)
-instance WrappedPtr AttrLanguage where
diff --git a/GI/Pango/Structs/AttrList.hs b/GI/Pango/Structs/AttrList.hs
deleted file mode 100644
--- a/GI/Pango/Structs/AttrList.hs
+++ /dev/null
@@ -1,391 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-The #PangoAttrList structure represents a list of attributes
-that apply to a section of text. The attributes are, in general,
-allowed to overlap in an arbitrary fashion, however, if the
-attributes are manipulated only through pango_attr_list_change(),
-the overlap between properties will meet stricter criteria.
-
-Since the #PangoAttrList structure is stored as a linear list,
-it is not suitable for storing attributes for large amounts
-of text. In general, you should not use a single #PangoAttrList
-for more than one paragraph of text.
--}
-
-module GI.Pango.Structs.AttrList
- (
-
--- * Exported types
- AttrList(..) ,
- noAttrList ,
-
-
- -- * Methods
--- ** attrListChange
- AttrListChangeMethodInfo ,
- attrListChange ,
-
-
--- ** attrListCopy
- AttrListCopyMethodInfo ,
- attrListCopy ,
-
-
--- ** attrListFilter
- AttrListFilterMethodInfo ,
- attrListFilter ,
-
-
--- ** attrListInsert
- AttrListInsertMethodInfo ,
- attrListInsert ,
-
-
--- ** attrListInsertBefore
- AttrListInsertBeforeMethodInfo ,
- attrListInsertBefore ,
-
-
--- ** attrListNew
- attrListNew ,
-
-
--- ** attrListRef
- AttrListRefMethodInfo ,
- attrListRef ,
-
-
--- ** attrListSplice
- AttrListSpliceMethodInfo ,
- attrListSplice ,
-
-
--- ** attrListUnref
- AttrListUnrefMethodInfo ,
- attrListUnref ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype AttrList = AttrList (ForeignPtr AttrList)
-foreign import ccall "pango_attr_list_get_type" c_pango_attr_list_get_type ::
- IO GType
-
-instance BoxedObject AttrList where
- boxedType _ = c_pango_attr_list_get_type
-
-noAttrList :: Maybe AttrList
-noAttrList = Nothing
-
-
-type instance AttributeList AttrList = AttrListAttributeList
-type AttrListAttributeList = ('[ ] :: [(Symbol, *)])
-
--- method AttrList::new
--- method type : Constructor
--- Args : []
--- Lengths : []
--- returnType : Just (TInterface "Pango" "AttrList")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_list_new" pango_attr_list_new ::
- IO (Ptr AttrList)
-
-
-attrListNew ::
- (MonadIO m) =>
- m AttrList -- result
-attrListNew = liftIO $ do
- result <- pango_attr_list_new
- checkUnexpectedReturnNULL "pango_attr_list_new" result
- result' <- (wrapBoxed AttrList) result
- return result'
-
--- method AttrList::change
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_list_change" pango_attr_list_change ::
- Ptr AttrList -> -- _obj : TInterface "Pango" "AttrList"
- Ptr Attribute -> -- attr : TInterface "Pango" "Attribute"
- IO ()
-
-
-attrListChange ::
- (MonadIO m) =>
- AttrList -- _obj
- -> Attribute -- attr
- -> m () -- result
-attrListChange _obj attr = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let attr' = unsafeManagedPtrGetPtr attr
- pango_attr_list_change _obj' attr'
- touchManagedPtr _obj
- touchManagedPtr attr
- return ()
-
-data AttrListChangeMethodInfo
-instance (signature ~ (Attribute -> m ()), MonadIO m) => MethodInfo AttrListChangeMethodInfo AttrList signature where
- overloadedMethod _ = attrListChange
-
--- method AttrList::copy
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "AttrList")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_list_copy" pango_attr_list_copy ::
- Ptr AttrList -> -- _obj : TInterface "Pango" "AttrList"
- IO (Ptr AttrList)
-
-
-attrListCopy ::
- (MonadIO m) =>
- AttrList -- _obj
- -> m (Maybe AttrList) -- result
-attrListCopy _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_attr_list_copy _obj'
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (wrapBoxed AttrList) result'
- return result''
- touchManagedPtr _obj
- return maybeResult
-
-data AttrListCopyMethodInfo
-instance (signature ~ (m (Maybe AttrList)), MonadIO m) => MethodInfo AttrListCopyMethodInfo AttrList signature where
- overloadedMethod _ = attrListCopy
-
--- method AttrList::filter
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Pango" "AttrFilterFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "AttrList")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_list_filter" pango_attr_list_filter ::
- Ptr AttrList -> -- _obj : TInterface "Pango" "AttrList"
- FunPtr AttrFilterFuncC -> -- func : TInterface "Pango" "AttrFilterFunc"
- Ptr () -> -- data : TBasicType TPtr
- IO (Ptr AttrList)
-
-
-attrListFilter ::
- (MonadIO m) =>
- AttrList -- _obj
- -> AttrFilterFunc -- func
- -> m (Maybe AttrList) -- result
-attrListFilter _obj func = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- func' <- mkAttrFilterFunc (attrFilterFuncWrapper Nothing func)
- let data_ = nullPtr
- result <- pango_attr_list_filter _obj' func' data_
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (wrapBoxed AttrList) result'
- return result''
- safeFreeFunPtr $ castFunPtrToPtr func'
- touchManagedPtr _obj
- return maybeResult
-
-data AttrListFilterMethodInfo
-instance (signature ~ (AttrFilterFunc -> m (Maybe AttrList)), MonadIO m) => MethodInfo AttrListFilterMethodInfo AttrList signature where
- overloadedMethod _ = attrListFilter
-
--- method AttrList::insert
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_list_insert" pango_attr_list_insert ::
- Ptr AttrList -> -- _obj : TInterface "Pango" "AttrList"
- Ptr Attribute -> -- attr : TInterface "Pango" "Attribute"
- IO ()
-
-
-attrListInsert ::
- (MonadIO m) =>
- AttrList -- _obj
- -> Attribute -- attr
- -> m () -- result
-attrListInsert _obj attr = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let attr' = unsafeManagedPtrGetPtr attr
- pango_attr_list_insert _obj' attr'
- touchManagedPtr _obj
- touchManagedPtr attr
- return ()
-
-data AttrListInsertMethodInfo
-instance (signature ~ (Attribute -> m ()), MonadIO m) => MethodInfo AttrListInsertMethodInfo AttrList signature where
- overloadedMethod _ = attrListInsert
-
--- method AttrList::insert_before
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_list_insert_before" pango_attr_list_insert_before ::
- Ptr AttrList -> -- _obj : TInterface "Pango" "AttrList"
- Ptr Attribute -> -- attr : TInterface "Pango" "Attribute"
- IO ()
-
-
-attrListInsertBefore ::
- (MonadIO m) =>
- AttrList -- _obj
- -> Attribute -- attr
- -> m () -- result
-attrListInsertBefore _obj attr = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let attr' = unsafeManagedPtrGetPtr attr
- pango_attr_list_insert_before _obj' attr'
- touchManagedPtr _obj
- touchManagedPtr attr
- return ()
-
-data AttrListInsertBeforeMethodInfo
-instance (signature ~ (Attribute -> m ()), MonadIO m) => MethodInfo AttrListInsertBeforeMethodInfo AttrList signature where
- overloadedMethod _ = attrListInsertBefore
-
--- method AttrList::ref
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "AttrList")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_list_ref" pango_attr_list_ref ::
- Ptr AttrList -> -- _obj : TInterface "Pango" "AttrList"
- IO (Ptr AttrList)
-
-
-attrListRef ::
- (MonadIO m) =>
- AttrList -- _obj
- -> m AttrList -- result
-attrListRef _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_attr_list_ref _obj'
- checkUnexpectedReturnNULL "pango_attr_list_ref" result
- result' <- (wrapBoxed AttrList) result
- touchManagedPtr _obj
- return result'
-
-data AttrListRefMethodInfo
-instance (signature ~ (m AttrList), MonadIO m) => MethodInfo AttrListRefMethodInfo AttrList signature where
- overloadedMethod _ = attrListRef
-
--- method AttrList::splice
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_list_splice" pango_attr_list_splice ::
- Ptr AttrList -> -- _obj : TInterface "Pango" "AttrList"
- Ptr AttrList -> -- other : TInterface "Pango" "AttrList"
- Int32 -> -- pos : TBasicType TInt
- Int32 -> -- len : TBasicType TInt
- IO ()
-
-
-attrListSplice ::
- (MonadIO m) =>
- AttrList -- _obj
- -> AttrList -- other
- -> Int32 -- pos
- -> Int32 -- len
- -> m () -- result
-attrListSplice _obj other pos len = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let other' = unsafeManagedPtrGetPtr other
- pango_attr_list_splice _obj' other' pos len
- touchManagedPtr _obj
- touchManagedPtr other
- return ()
-
-data AttrListSpliceMethodInfo
-instance (signature ~ (AttrList -> Int32 -> Int32 -> m ()), MonadIO m) => MethodInfo AttrListSpliceMethodInfo AttrList signature where
- overloadedMethod _ = attrListSplice
-
--- method AttrList::unref
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_list_unref" pango_attr_list_unref ::
- Ptr AttrList -> -- _obj : TInterface "Pango" "AttrList"
- IO ()
-
-
-attrListUnref ::
- (MonadIO m) =>
- AttrList -- _obj
- -> m () -- result
-attrListUnref _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- pango_attr_list_unref _obj'
- touchManagedPtr _obj
- return ()
-
-data AttrListUnrefMethodInfo
-instance (signature ~ (m ()), MonadIO m) => MethodInfo AttrListUnrefMethodInfo AttrList signature where
- overloadedMethod _ = attrListUnref
-
-type family ResolveAttrListMethod (t :: Symbol) (o :: *) :: * where
- ResolveAttrListMethod "change" o = AttrListChangeMethodInfo
- ResolveAttrListMethod "copy" o = AttrListCopyMethodInfo
- ResolveAttrListMethod "filter" o = AttrListFilterMethodInfo
- ResolveAttrListMethod "insert" o = AttrListInsertMethodInfo
- ResolveAttrListMethod "insertBefore" o = AttrListInsertBeforeMethodInfo
- ResolveAttrListMethod "ref" o = AttrListRefMethodInfo
- ResolveAttrListMethod "splice" o = AttrListSpliceMethodInfo
- ResolveAttrListMethod "unref" o = AttrListUnrefMethodInfo
- ResolveAttrListMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveAttrListMethod t AttrList, MethodInfo info AttrList p) => IsLabelProxy t (AttrList -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveAttrListMethod t AttrList, MethodInfo info AttrList p) => IsLabel t (AttrList -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/AttrList.hs-boot b/GI/Pango/Structs/AttrList.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/AttrList.hs-boot
+++ /dev/null
@@ -1,19 +0,0 @@
-module GI.Pango.Structs.AttrList where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype AttrList = AttrList (ForeignPtr AttrList)
-instance BoxedObject AttrList where
-data AttrListChangeMethodInfo
-data AttrListCopyMethodInfo
-data AttrListFilterMethodInfo
-data AttrListInsertMethodInfo
-data AttrListInsertBeforeMethodInfo
-data AttrListRefMethodInfo
-data AttrListSpliceMethodInfo
-data AttrListUnrefMethodInfo
diff --git a/GI/Pango/Structs/AttrShape.hs b/GI/Pango/Structs/AttrShape.hs
deleted file mode 100644
--- a/GI/Pango/Structs/AttrShape.hs
+++ /dev/null
@@ -1,261 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-The #PangoAttrShape structure is used to represent attributes which
-impose shape restrictions.
--}
-
-module GI.Pango.Structs.AttrShape
- (
-
--- * Exported types
- AttrShape(..) ,
- newZeroAttrShape ,
- noAttrShape ,
-
-
- -- * Methods
--- ** attrShapeNew
- attrShapeNew ,
-
-
-
-
- -- * Properties
--- ** Attr
- attrShapeAttr ,
- attrShapeClearAttr ,
- attrShapeReadAttr ,
- attrShapeWriteAttr ,
-
-
--- ** Data
- attrShapeClearData ,
- attrShapeData ,
- attrShapeReadData ,
- attrShapeWriteData ,
-
-
--- ** InkRect
- attrShapeClearInkRect ,
- attrShapeInkRect ,
- attrShapeReadInkRect ,
- attrShapeWriteInkRect ,
-
-
--- ** LogicalRect
- attrShapeClearLogicalRect ,
- attrShapeLogicalRect ,
- attrShapeReadLogicalRect ,
- attrShapeWriteLogicalRect ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype AttrShape = AttrShape (ForeignPtr AttrShape)
-instance WrappedPtr AttrShape where
- wrappedPtrCalloc = callocBytes 72
- wrappedPtrCopy = copyPtr 72
- wrappedPtrFree = Just ptr_to_g_free
-
--- | Construct a `AttrShape` struct initialized to zero.
-newZeroAttrShape :: MonadIO m => m AttrShape
-newZeroAttrShape = liftIO $ wrappedPtrCalloc >>= wrapPtr AttrShape
-
-instance tag ~ 'AttrSet => Constructible AttrShape tag where
- new _ attrs = do
- o <- newZeroAttrShape
- GI.Attributes.set o attrs
- return o
-
-
-noAttrShape :: Maybe AttrShape
-noAttrShape = Nothing
-
-attrShapeReadAttr :: MonadIO m => AttrShape -> m (Maybe Attribute)
-attrShapeReadAttr s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)
- result <- convertIfNonNull val $ \val' -> do
- val'' <- (newPtr Attribute) val'
- return val''
- return result
-
-attrShapeWriteAttr :: MonadIO m => AttrShape -> Ptr Attribute -> m ()
-attrShapeWriteAttr s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (val :: Ptr Attribute)
-
-attrShapeClearAttr :: MonadIO m => AttrShape -> m ()
-attrShapeClearAttr s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (nullPtr :: Ptr Attribute)
-
-data AttrShapeAttrFieldInfo
-instance AttrInfo AttrShapeAttrFieldInfo where
- type AttrAllowedOps AttrShapeAttrFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint AttrShapeAttrFieldInfo = (~) (Ptr Attribute)
- type AttrBaseTypeConstraint AttrShapeAttrFieldInfo = (~) AttrShape
- type AttrGetType AttrShapeAttrFieldInfo = Maybe Attribute
- type AttrLabel AttrShapeAttrFieldInfo = "attr"
- attrGet _ = attrShapeReadAttr
- attrSet _ = attrShapeWriteAttr
- attrConstruct = undefined
- attrClear _ = attrShapeClearAttr
-
-attrShapeAttr :: AttrLabelProxy "attr"
-attrShapeAttr = AttrLabelProxy
-
-
-attrShapeReadInkRect :: MonadIO m => AttrShape -> m (Maybe Rectangle)
-attrShapeReadInkRect s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 16) :: IO (Ptr Rectangle)
- result <- convertIfNonNull val $ \val' -> do
- val'' <- (newPtr Rectangle) val'
- return val''
- return result
-
-attrShapeWriteInkRect :: MonadIO m => AttrShape -> Ptr Rectangle -> m ()
-attrShapeWriteInkRect s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 16) (val :: Ptr Rectangle)
-
-attrShapeClearInkRect :: MonadIO m => AttrShape -> m ()
-attrShapeClearInkRect s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 16) (nullPtr :: Ptr Rectangle)
-
-data AttrShapeInkRectFieldInfo
-instance AttrInfo AttrShapeInkRectFieldInfo where
- type AttrAllowedOps AttrShapeInkRectFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint AttrShapeInkRectFieldInfo = (~) (Ptr Rectangle)
- type AttrBaseTypeConstraint AttrShapeInkRectFieldInfo = (~) AttrShape
- type AttrGetType AttrShapeInkRectFieldInfo = Maybe Rectangle
- type AttrLabel AttrShapeInkRectFieldInfo = "ink_rect"
- attrGet _ = attrShapeReadInkRect
- attrSet _ = attrShapeWriteInkRect
- attrConstruct = undefined
- attrClear _ = attrShapeClearInkRect
-
-attrShapeInkRect :: AttrLabelProxy "inkRect"
-attrShapeInkRect = AttrLabelProxy
-
-
-attrShapeReadLogicalRect :: MonadIO m => AttrShape -> m (Maybe Rectangle)
-attrShapeReadLogicalRect s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 32) :: IO (Ptr Rectangle)
- result <- convertIfNonNull val $ \val' -> do
- val'' <- (newPtr Rectangle) val'
- return val''
- return result
-
-attrShapeWriteLogicalRect :: MonadIO m => AttrShape -> Ptr Rectangle -> m ()
-attrShapeWriteLogicalRect s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 32) (val :: Ptr Rectangle)
-
-attrShapeClearLogicalRect :: MonadIO m => AttrShape -> m ()
-attrShapeClearLogicalRect s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 32) (nullPtr :: Ptr Rectangle)
-
-data AttrShapeLogicalRectFieldInfo
-instance AttrInfo AttrShapeLogicalRectFieldInfo where
- type AttrAllowedOps AttrShapeLogicalRectFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint AttrShapeLogicalRectFieldInfo = (~) (Ptr Rectangle)
- type AttrBaseTypeConstraint AttrShapeLogicalRectFieldInfo = (~) AttrShape
- type AttrGetType AttrShapeLogicalRectFieldInfo = Maybe Rectangle
- type AttrLabel AttrShapeLogicalRectFieldInfo = "logical_rect"
- attrGet _ = attrShapeReadLogicalRect
- attrSet _ = attrShapeWriteLogicalRect
- attrConstruct = undefined
- attrClear _ = attrShapeClearLogicalRect
-
-attrShapeLogicalRect :: AttrLabelProxy "logicalRect"
-attrShapeLogicalRect = AttrLabelProxy
-
-
-attrShapeReadData :: MonadIO m => AttrShape -> m (Ptr ())
-attrShapeReadData s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 48) :: IO (Ptr ())
- return val
-
-attrShapeWriteData :: MonadIO m => AttrShape -> Ptr () -> m ()
-attrShapeWriteData s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 48) (val :: Ptr ())
-
-attrShapeClearData :: MonadIO m => AttrShape -> m ()
-attrShapeClearData s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 48) (nullPtr :: Ptr ())
-
-data AttrShapeDataFieldInfo
-instance AttrInfo AttrShapeDataFieldInfo where
- type AttrAllowedOps AttrShapeDataFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint AttrShapeDataFieldInfo = (~) (Ptr ())
- type AttrBaseTypeConstraint AttrShapeDataFieldInfo = (~) AttrShape
- type AttrGetType AttrShapeDataFieldInfo = Ptr ()
- type AttrLabel AttrShapeDataFieldInfo = "data"
- attrGet _ = attrShapeReadData
- attrSet _ = attrShapeWriteData
- attrConstruct = undefined
- attrClear _ = attrShapeClearData
-
-attrShapeData :: AttrLabelProxy "data"
-attrShapeData = AttrLabelProxy
-
-
--- XXX Skipped attribute for "AttrShape:destroy_func" :: Not implemented: "Wrapping foreign callbacks is not supported yet"
-
-type instance AttributeList AttrShape = AttrShapeAttributeList
-type AttrShapeAttributeList = ('[ '("attr", AttrShapeAttrFieldInfo), '("inkRect", AttrShapeInkRectFieldInfo), '("logicalRect", AttrShapeLogicalRectFieldInfo), '("data", AttrShapeDataFieldInfo)] :: [(Symbol, *)])
-
--- method AttrShape::new
--- method type : MemberFunction
--- Args : [Arg {argCName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Attribute")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_shape_new" pango_attr_shape_new ::
- Ptr Rectangle -> -- ink_rect : TInterface "Pango" "Rectangle"
- Ptr Rectangle -> -- logical_rect : TInterface "Pango" "Rectangle"
- IO (Ptr Attribute)
-
-
-attrShapeNew ::
- (MonadIO m) =>
- Rectangle -- inkRect
- -> Rectangle -- logicalRect
- -> m Attribute -- result
-attrShapeNew inkRect logicalRect = liftIO $ do
- let inkRect' = unsafeManagedPtrGetPtr inkRect
- let logicalRect' = unsafeManagedPtrGetPtr logicalRect
- result <- pango_attr_shape_new inkRect' logicalRect'
- checkUnexpectedReturnNULL "pango_attr_shape_new" result
- result' <- (wrapPtr Attribute) result
- touchManagedPtr inkRect
- touchManagedPtr logicalRect
- return result'
-
-type family ResolveAttrShapeMethod (t :: Symbol) (o :: *) :: * where
- ResolveAttrShapeMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveAttrShapeMethod t AttrShape, MethodInfo info AttrShape p) => IsLabelProxy t (AttrShape -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveAttrShapeMethod t AttrShape, MethodInfo info AttrShape p) => IsLabel t (AttrShape -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/AttrShape.hs-boot b/GI/Pango/Structs/AttrShape.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/AttrShape.hs-boot
+++ /dev/null
@@ -1,11 +0,0 @@
-module GI.Pango.Structs.AttrShape where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype AttrShape = AttrShape (ForeignPtr AttrShape)
-instance WrappedPtr AttrShape where
diff --git a/GI/Pango/Structs/AttrSize.hs b/GI/Pango/Structs/AttrSize.hs
deleted file mode 100644
--- a/GI/Pango/Structs/AttrSize.hs
+++ /dev/null
@@ -1,202 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-The #PangoAttrSize structure is used to represent attributes which
-set font size.
--}
-
-module GI.Pango.Structs.AttrSize
- (
-
--- * Exported types
- AttrSize(..) ,
- newZeroAttrSize ,
- noAttrSize ,
-
-
- -- * Methods
--- ** attrSizeNew
- attrSizeNew ,
-
-
-
-
- -- * Properties
--- ** Absolute
- attrSizeAbsolute ,
- attrSizeReadAbsolute ,
- attrSizeWriteAbsolute ,
-
-
--- ** Attr
- attrSizeAttr ,
- attrSizeClearAttr ,
- attrSizeReadAttr ,
- attrSizeWriteAttr ,
-
-
--- ** Size
- attrSizeReadSize ,
- attrSizeSize ,
- attrSizeWriteSize ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype AttrSize = AttrSize (ForeignPtr AttrSize)
-instance WrappedPtr AttrSize where
- wrappedPtrCalloc = callocBytes 24
- wrappedPtrCopy = copyPtr 24
- wrappedPtrFree = Just ptr_to_g_free
-
--- | Construct a `AttrSize` struct initialized to zero.
-newZeroAttrSize :: MonadIO m => m AttrSize
-newZeroAttrSize = liftIO $ wrappedPtrCalloc >>= wrapPtr AttrSize
-
-instance tag ~ 'AttrSet => Constructible AttrSize tag where
- new _ attrs = do
- o <- newZeroAttrSize
- GI.Attributes.set o attrs
- return o
-
-
-noAttrSize :: Maybe AttrSize
-noAttrSize = Nothing
-
-attrSizeReadAttr :: MonadIO m => AttrSize -> m (Maybe Attribute)
-attrSizeReadAttr s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)
- result <- convertIfNonNull val $ \val' -> do
- val'' <- (newPtr Attribute) val'
- return val''
- return result
-
-attrSizeWriteAttr :: MonadIO m => AttrSize -> Ptr Attribute -> m ()
-attrSizeWriteAttr s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (val :: Ptr Attribute)
-
-attrSizeClearAttr :: MonadIO m => AttrSize -> m ()
-attrSizeClearAttr s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (nullPtr :: Ptr Attribute)
-
-data AttrSizeAttrFieldInfo
-instance AttrInfo AttrSizeAttrFieldInfo where
- type AttrAllowedOps AttrSizeAttrFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint AttrSizeAttrFieldInfo = (~) (Ptr Attribute)
- type AttrBaseTypeConstraint AttrSizeAttrFieldInfo = (~) AttrSize
- type AttrGetType AttrSizeAttrFieldInfo = Maybe Attribute
- type AttrLabel AttrSizeAttrFieldInfo = "attr"
- attrGet _ = attrSizeReadAttr
- attrSet _ = attrSizeWriteAttr
- attrConstruct = undefined
- attrClear _ = attrSizeClearAttr
-
-attrSizeAttr :: AttrLabelProxy "attr"
-attrSizeAttr = AttrLabelProxy
-
-
-attrSizeReadSize :: MonadIO m => AttrSize -> m Int32
-attrSizeReadSize s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 16) :: IO Int32
- return val
-
-attrSizeWriteSize :: MonadIO m => AttrSize -> Int32 -> m ()
-attrSizeWriteSize s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 16) (val :: Int32)
-
-data AttrSizeSizeFieldInfo
-instance AttrInfo AttrSizeSizeFieldInfo where
- type AttrAllowedOps AttrSizeSizeFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint AttrSizeSizeFieldInfo = (~) Int32
- type AttrBaseTypeConstraint AttrSizeSizeFieldInfo = (~) AttrSize
- type AttrGetType AttrSizeSizeFieldInfo = Int32
- type AttrLabel AttrSizeSizeFieldInfo = "size"
- attrGet _ = attrSizeReadSize
- attrSet _ = attrSizeWriteSize
- attrConstruct = undefined
- attrClear _ = undefined
-
-attrSizeSize :: AttrLabelProxy "size"
-attrSizeSize = AttrLabelProxy
-
-
-attrSizeReadAbsolute :: MonadIO m => AttrSize -> m Word32
-attrSizeReadAbsolute s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 20) :: IO Word32
- return val
-
-attrSizeWriteAbsolute :: MonadIO m => AttrSize -> Word32 -> m ()
-attrSizeWriteAbsolute s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 20) (val :: Word32)
-
-data AttrSizeAbsoluteFieldInfo
-instance AttrInfo AttrSizeAbsoluteFieldInfo where
- type AttrAllowedOps AttrSizeAbsoluteFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint AttrSizeAbsoluteFieldInfo = (~) Word32
- type AttrBaseTypeConstraint AttrSizeAbsoluteFieldInfo = (~) AttrSize
- type AttrGetType AttrSizeAbsoluteFieldInfo = Word32
- type AttrLabel AttrSizeAbsoluteFieldInfo = "absolute"
- attrGet _ = attrSizeReadAbsolute
- attrSet _ = attrSizeWriteAbsolute
- attrConstruct = undefined
- attrClear _ = undefined
-
-attrSizeAbsolute :: AttrLabelProxy "absolute"
-attrSizeAbsolute = AttrLabelProxy
-
-
-
-type instance AttributeList AttrSize = AttrSizeAttributeList
-type AttrSizeAttributeList = ('[ '("attr", AttrSizeAttrFieldInfo), '("size", AttrSizeSizeFieldInfo), '("absolute", AttrSizeAbsoluteFieldInfo)] :: [(Symbol, *)])
-
--- method AttrSize::new
--- method type : MemberFunction
--- Args : [Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Attribute")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attr_size_new" pango_attr_size_new ::
- Int32 -> -- size : TBasicType TInt
- IO (Ptr Attribute)
-
-
-attrSizeNew ::
- (MonadIO m) =>
- Int32 -- size
- -> m Attribute -- result
-attrSizeNew size = liftIO $ do
- result <- pango_attr_size_new size
- checkUnexpectedReturnNULL "pango_attr_size_new" result
- result' <- (wrapPtr Attribute) result
- return result'
-
-type family ResolveAttrSizeMethod (t :: Symbol) (o :: *) :: * where
- ResolveAttrSizeMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveAttrSizeMethod t AttrSize, MethodInfo info AttrSize p) => IsLabelProxy t (AttrSize -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveAttrSizeMethod t AttrSize, MethodInfo info AttrSize p) => IsLabel t (AttrSize -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/AttrSize.hs-boot b/GI/Pango/Structs/AttrSize.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/AttrSize.hs-boot
+++ /dev/null
@@ -1,11 +0,0 @@
-module GI.Pango.Structs.AttrSize where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype AttrSize = AttrSize (ForeignPtr AttrSize)
-instance WrappedPtr AttrSize where
diff --git a/GI/Pango/Structs/AttrString.hs b/GI/Pango/Structs/AttrString.hs
deleted file mode 100644
--- a/GI/Pango/Structs/AttrString.hs
+++ /dev/null
@@ -1,149 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-The #PangoAttrString structure is used to represent attributes with
-a string value.
--}
-
-module GI.Pango.Structs.AttrString
- (
-
--- * Exported types
- AttrString(..) ,
- newZeroAttrString ,
- noAttrString ,
-
-
- -- * Properties
--- ** Attr
- attrStringAttr ,
- attrStringClearAttr ,
- attrStringReadAttr ,
- attrStringWriteAttr ,
-
-
--- ** Value
- attrStringClearValue ,
- attrStringReadValue ,
- attrStringValue ,
- attrStringWriteValue ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype AttrString = AttrString (ForeignPtr AttrString)
-instance WrappedPtr AttrString where
- wrappedPtrCalloc = callocBytes 24
- wrappedPtrCopy = copyPtr 24
- wrappedPtrFree = Just ptr_to_g_free
-
--- | Construct a `AttrString` struct initialized to zero.
-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
-
-attrStringReadAttr :: MonadIO m => AttrString -> m (Maybe Attribute)
-attrStringReadAttr s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 0) :: IO (Ptr Attribute)
- result <- convertIfNonNull val $ \val' -> do
- val'' <- (newPtr Attribute) val'
- return val''
- return result
-
-attrStringWriteAttr :: MonadIO m => AttrString -> Ptr Attribute -> m ()
-attrStringWriteAttr s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (val :: Ptr Attribute)
-
-attrStringClearAttr :: MonadIO m => AttrString -> m ()
-attrStringClearAttr s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (nullPtr :: Ptr Attribute)
-
-data AttrStringAttrFieldInfo
-instance AttrInfo AttrStringAttrFieldInfo where
- type AttrAllowedOps AttrStringAttrFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint AttrStringAttrFieldInfo = (~) (Ptr Attribute)
- type AttrBaseTypeConstraint AttrStringAttrFieldInfo = (~) AttrString
- type AttrGetType AttrStringAttrFieldInfo = Maybe Attribute
- type AttrLabel AttrStringAttrFieldInfo = "attr"
- attrGet _ = attrStringReadAttr
- attrSet _ = attrStringWriteAttr
- attrConstruct = undefined
- attrClear _ = attrStringClearAttr
-
-attrStringAttr :: AttrLabelProxy "attr"
-attrStringAttr = AttrLabelProxy
-
-
-attrStringReadValue :: MonadIO m => AttrString -> m (Maybe T.Text)
-attrStringReadValue s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 16) :: IO CString
- result <- convertIfNonNull val $ \val' -> do
- val'' <- cstringToText val'
- return val''
- return result
-
-attrStringWriteValue :: MonadIO m => AttrString -> CString -> m ()
-attrStringWriteValue s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 16) (val :: CString)
-
-attrStringClearValue :: MonadIO m => AttrString -> m ()
-attrStringClearValue s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 16) (nullPtr :: CString)
-
-data AttrStringValueFieldInfo
-instance AttrInfo AttrStringValueFieldInfo where
- type AttrAllowedOps AttrStringValueFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint AttrStringValueFieldInfo = (~) CString
- type AttrBaseTypeConstraint AttrStringValueFieldInfo = (~) AttrString
- type AttrGetType AttrStringValueFieldInfo = Maybe T.Text
- type AttrLabel AttrStringValueFieldInfo = "value"
- attrGet _ = attrStringReadValue
- attrSet _ = attrStringWriteValue
- attrConstruct = undefined
- attrClear _ = attrStringClearValue
-
-attrStringValue :: AttrLabelProxy "value"
-attrStringValue = AttrLabelProxy
-
-
-
-type instance AttributeList AttrString = AttrStringAttributeList
-type AttrStringAttributeList = ('[ '("attr", AttrStringAttrFieldInfo), '("value", AttrStringValueFieldInfo)] :: [(Symbol, *)])
-
-type family ResolveAttrStringMethod (t :: Symbol) (o :: *) :: * where
- ResolveAttrStringMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveAttrStringMethod t AttrString, MethodInfo info AttrString p) => IsLabelProxy t (AttrString -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveAttrStringMethod t AttrString, MethodInfo info AttrString p) => IsLabel t (AttrString -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/AttrString.hs-boot b/GI/Pango/Structs/AttrString.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/AttrString.hs-boot
+++ /dev/null
@@ -1,11 +0,0 @@
-module GI.Pango.Structs.AttrString where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype AttrString = AttrString (ForeignPtr AttrString)
-instance WrappedPtr AttrString where
diff --git a/GI/Pango/Structs/Attribute.hs b/GI/Pango/Structs/Attribute.hs
deleted file mode 100644
--- a/GI/Pango/Structs/Attribute.hs
+++ /dev/null
@@ -1,279 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-The #PangoAttribute structure represents the common portions of all
-attributes. Particular types of attributes include this structure
-as their initial portion. The common portion of the attribute holds
-the range to which the value in the type-specific part of the attribute
-applies and should be initialized using pango_attribute_init().
-By default an attribute will have an all-inclusive range of [0,%G_MAXUINT].
--}
-
-module GI.Pango.Structs.Attribute
- (
-
--- * Exported types
- Attribute(..) ,
- noAttribute ,
-
-
- -- * Methods
--- ** attributeDestroy
- AttributeDestroyMethodInfo ,
- attributeDestroy ,
-
-
--- ** attributeEqual
- AttributeEqualMethodInfo ,
- attributeEqual ,
-
-
--- ** attributeInit
- AttributeInitMethodInfo ,
- attributeInit ,
-
-
-
-
- -- * Properties
--- ** EndIndex
- attributeEndIndex ,
- attributeReadEndIndex ,
- attributeWriteEndIndex ,
-
-
--- ** Klass
- attributeClearKlass ,
- attributeKlass ,
- attributeReadKlass ,
- attributeWriteKlass ,
-
-
--- ** StartIndex
- attributeReadStartIndex ,
- attributeStartIndex ,
- attributeWriteStartIndex ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype Attribute = Attribute (ForeignPtr Attribute)
-foreign import ccall "pango_attribute_copy" _Attribute_copy_pango_attribute_copy :: Ptr a -> IO (Ptr a)
-
-foreign import ccall "&pango_attribute_destroy" _Attribute_free_pango_attribute_destroy :: FunPtr (Ptr a -> IO ())
-
-instance WrappedPtr Attribute where
- wrappedPtrCalloc = error "calloc not permitted for Attribute"
- wrappedPtrCopy = _Attribute_copy_pango_attribute_copy
- wrappedPtrFree = Just _Attribute_free_pango_attribute_destroy
-
-noAttribute :: Maybe Attribute
-noAttribute = Nothing
-
-attributeReadKlass :: MonadIO m => Attribute -> m (Maybe AttrClass)
-attributeReadKlass s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 0) :: IO (Ptr AttrClass)
- result <- convertIfNonNull val $ \val' -> do
- val'' <- (newPtr AttrClass) val'
- return val''
- return result
-
-attributeWriteKlass :: MonadIO m => Attribute -> Ptr AttrClass -> m ()
-attributeWriteKlass s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (val :: Ptr AttrClass)
-
-attributeClearKlass :: MonadIO m => Attribute -> m ()
-attributeClearKlass s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (nullPtr :: Ptr AttrClass)
-
-data AttributeKlassFieldInfo
-instance AttrInfo AttributeKlassFieldInfo where
- type AttrAllowedOps AttributeKlassFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint AttributeKlassFieldInfo = (~) (Ptr AttrClass)
- type AttrBaseTypeConstraint AttributeKlassFieldInfo = (~) Attribute
- type AttrGetType AttributeKlassFieldInfo = Maybe AttrClass
- type AttrLabel AttributeKlassFieldInfo = "klass"
- attrGet _ = attributeReadKlass
- attrSet _ = attributeWriteKlass
- attrConstruct = undefined
- attrClear _ = attributeClearKlass
-
-attributeKlass :: AttrLabelProxy "klass"
-attributeKlass = AttrLabelProxy
-
-
-attributeReadStartIndex :: MonadIO m => Attribute -> m Word32
-attributeReadStartIndex s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 8) :: IO Word32
- return val
-
-attributeWriteStartIndex :: MonadIO m => Attribute -> Word32 -> m ()
-attributeWriteStartIndex s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 8) (val :: Word32)
-
-data AttributeStartIndexFieldInfo
-instance AttrInfo AttributeStartIndexFieldInfo where
- type AttrAllowedOps AttributeStartIndexFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint AttributeStartIndexFieldInfo = (~) Word32
- type AttrBaseTypeConstraint AttributeStartIndexFieldInfo = (~) Attribute
- type AttrGetType AttributeStartIndexFieldInfo = Word32
- type AttrLabel AttributeStartIndexFieldInfo = "start_index"
- attrGet _ = attributeReadStartIndex
- attrSet _ = attributeWriteStartIndex
- attrConstruct = undefined
- attrClear _ = undefined
-
-attributeStartIndex :: AttrLabelProxy "startIndex"
-attributeStartIndex = AttrLabelProxy
-
-
-attributeReadEndIndex :: MonadIO m => Attribute -> m Word32
-attributeReadEndIndex s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 12) :: IO Word32
- return val
-
-attributeWriteEndIndex :: MonadIO m => Attribute -> Word32 -> m ()
-attributeWriteEndIndex s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 12) (val :: Word32)
-
-data AttributeEndIndexFieldInfo
-instance AttrInfo AttributeEndIndexFieldInfo where
- type AttrAllowedOps AttributeEndIndexFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint AttributeEndIndexFieldInfo = (~) Word32
- type AttrBaseTypeConstraint AttributeEndIndexFieldInfo = (~) Attribute
- type AttrGetType AttributeEndIndexFieldInfo = Word32
- type AttrLabel AttributeEndIndexFieldInfo = "end_index"
- attrGet _ = attributeReadEndIndex
- attrSet _ = attributeWriteEndIndex
- attrConstruct = undefined
- attrClear _ = undefined
-
-attributeEndIndex :: AttrLabelProxy "endIndex"
-attributeEndIndex = AttrLabelProxy
-
-
-
-type instance AttributeList Attribute = AttributeAttributeList
-type AttributeAttributeList = ('[ '("klass", AttributeKlassFieldInfo), '("startIndex", AttributeStartIndexFieldInfo), '("endIndex", AttributeEndIndexFieldInfo)] :: [(Symbol, *)])
-
--- method Attribute::destroy
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attribute_destroy" pango_attribute_destroy ::
- Ptr Attribute -> -- _obj : TInterface "Pango" "Attribute"
- IO ()
-
-
-attributeDestroy ::
- (MonadIO m) =>
- Attribute -- _obj
- -> m () -- result
-attributeDestroy _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- pango_attribute_destroy _obj'
- touchManagedPtr _obj
- return ()
-
-data AttributeDestroyMethodInfo
-instance (signature ~ (m ()), MonadIO m) => MethodInfo AttributeDestroyMethodInfo Attribute signature where
- overloadedMethod _ = attributeDestroy
-
--- method Attribute::equal
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr2", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attribute_equal" pango_attribute_equal ::
- Ptr Attribute -> -- _obj : TInterface "Pango" "Attribute"
- Ptr Attribute -> -- attr2 : TInterface "Pango" "Attribute"
- IO CInt
-
-
-attributeEqual ::
- (MonadIO m) =>
- Attribute -- _obj
- -> Attribute -- attr2
- -> m Bool -- result
-attributeEqual _obj attr2 = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let attr2' = unsafeManagedPtrGetPtr attr2
- result <- pango_attribute_equal _obj' attr2'
- let result' = (/= 0) result
- touchManagedPtr _obj
- touchManagedPtr attr2
- return result'
-
-data AttributeEqualMethodInfo
-instance (signature ~ (Attribute -> m Bool), MonadIO m) => MethodInfo AttributeEqualMethodInfo Attribute signature where
- overloadedMethod _ = attributeEqual
-
--- method Attribute::init
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Attribute", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "klass", argType = TInterface "Pango" "AttrClass", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_attribute_init" pango_attribute_init ::
- Ptr Attribute -> -- _obj : TInterface "Pango" "Attribute"
- Ptr AttrClass -> -- klass : TInterface "Pango" "AttrClass"
- IO ()
-
-
-attributeInit ::
- (MonadIO m) =>
- Attribute -- _obj
- -> AttrClass -- klass
- -> m () -- result
-attributeInit _obj klass = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let klass' = unsafeManagedPtrGetPtr klass
- pango_attribute_init _obj' klass'
- touchManagedPtr _obj
- touchManagedPtr klass
- return ()
-
-data AttributeInitMethodInfo
-instance (signature ~ (AttrClass -> m ()), MonadIO m) => MethodInfo AttributeInitMethodInfo Attribute signature where
- overloadedMethod _ = attributeInit
-
-type family ResolveAttributeMethod (t :: Symbol) (o :: *) :: * where
- ResolveAttributeMethod "destroy" o = AttributeDestroyMethodInfo
- ResolveAttributeMethod "equal" o = AttributeEqualMethodInfo
- ResolveAttributeMethod "init" o = AttributeInitMethodInfo
- ResolveAttributeMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveAttributeMethod t Attribute, MethodInfo info Attribute p) => IsLabelProxy t (Attribute -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveAttributeMethod t Attribute, MethodInfo info Attribute p) => IsLabel t (Attribute -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/Attribute.hs-boot b/GI/Pango/Structs/Attribute.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/Attribute.hs-boot
+++ /dev/null
@@ -1,14 +0,0 @@
-module GI.Pango.Structs.Attribute where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype Attribute = Attribute (ForeignPtr Attribute)
-instance WrappedPtr Attribute where
-data AttributeDestroyMethodInfo
-data AttributeEqualMethodInfo
-data AttributeInitMethodInfo
diff --git a/GI/Pango/Structs/Color.hs b/GI/Pango/Structs/Color.hs
deleted file mode 100644
--- a/GI/Pango/Structs/Color.hs
+++ /dev/null
@@ -1,311 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-The #PangoColor structure is used to
-represent a color in an uncalibrated RGB color-space.
--}
-
-module GI.Pango.Structs.Color
- (
-
--- * Exported types
- Color(..) ,
- newZeroColor ,
- noColor ,
-
-
- -- * Methods
--- ** colorCopy
- ColorCopyMethodInfo ,
- colorCopy ,
-
-
--- ** colorFree
- ColorFreeMethodInfo ,
- colorFree ,
-
-
--- ** colorParse
- ColorParseMethodInfo ,
- colorParse ,
-
-
--- ** colorToString
- ColorToStringMethodInfo ,
- colorToString ,
-
-
-
-
- -- * Properties
--- ** Blue
- colorBlue ,
- colorReadBlue ,
- colorWriteBlue ,
-
-
--- ** Green
- colorGreen ,
- colorReadGreen ,
- colorWriteGreen ,
-
-
--- ** Red
- colorReadRed ,
- colorRed ,
- colorWriteRed ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype Color = Color (ForeignPtr Color)
-foreign import ccall "pango_color_get_type" c_pango_color_get_type ::
- IO GType
-
-instance BoxedObject Color where
- boxedType _ = c_pango_color_get_type
-
--- | Construct a `Color` struct initialized to zero.
-newZeroColor :: MonadIO m => m Color
-newZeroColor = liftIO $ callocBoxedBytes 6 >>= wrapBoxed Color
-
-instance tag ~ 'AttrSet => Constructible Color tag where
- new _ attrs = do
- o <- newZeroColor
- GI.Attributes.set o attrs
- return o
-
-
-noColor :: Maybe Color
-noColor = Nothing
-
-colorReadRed :: MonadIO m => Color -> m Word16
-colorReadRed s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 0) :: IO Word16
- return val
-
-colorWriteRed :: MonadIO m => Color -> Word16 -> m ()
-colorWriteRed s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (val :: Word16)
-
-data ColorRedFieldInfo
-instance AttrInfo ColorRedFieldInfo where
- type AttrAllowedOps ColorRedFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint ColorRedFieldInfo = (~) Word16
- type AttrBaseTypeConstraint ColorRedFieldInfo = (~) Color
- type AttrGetType ColorRedFieldInfo = Word16
- type AttrLabel ColorRedFieldInfo = "red"
- attrGet _ = colorReadRed
- attrSet _ = colorWriteRed
- attrConstruct = undefined
- attrClear _ = undefined
-
-colorRed :: AttrLabelProxy "red"
-colorRed = AttrLabelProxy
-
-
-colorReadGreen :: MonadIO m => Color -> m Word16
-colorReadGreen s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 2) :: IO Word16
- return val
-
-colorWriteGreen :: MonadIO m => Color -> Word16 -> m ()
-colorWriteGreen s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 2) (val :: Word16)
-
-data ColorGreenFieldInfo
-instance AttrInfo ColorGreenFieldInfo where
- type AttrAllowedOps ColorGreenFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint ColorGreenFieldInfo = (~) Word16
- type AttrBaseTypeConstraint ColorGreenFieldInfo = (~) Color
- type AttrGetType ColorGreenFieldInfo = Word16
- type AttrLabel ColorGreenFieldInfo = "green"
- attrGet _ = colorReadGreen
- attrSet _ = colorWriteGreen
- attrConstruct = undefined
- attrClear _ = undefined
-
-colorGreen :: AttrLabelProxy "green"
-colorGreen = AttrLabelProxy
-
-
-colorReadBlue :: MonadIO m => Color -> m Word16
-colorReadBlue s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 4) :: IO Word16
- return val
-
-colorWriteBlue :: MonadIO m => Color -> Word16 -> m ()
-colorWriteBlue s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 4) (val :: Word16)
-
-data ColorBlueFieldInfo
-instance AttrInfo ColorBlueFieldInfo where
- type AttrAllowedOps ColorBlueFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint ColorBlueFieldInfo = (~) Word16
- type AttrBaseTypeConstraint ColorBlueFieldInfo = (~) Color
- type AttrGetType ColorBlueFieldInfo = Word16
- type AttrLabel ColorBlueFieldInfo = "blue"
- attrGet _ = colorReadBlue
- attrSet _ = colorWriteBlue
- attrConstruct = undefined
- attrClear _ = undefined
-
-colorBlue :: AttrLabelProxy "blue"
-colorBlue = AttrLabelProxy
-
-
-
-type instance AttributeList Color = ColorAttributeList
-type ColorAttributeList = ('[ '("red", ColorRedFieldInfo), '("green", ColorGreenFieldInfo), '("blue", ColorBlueFieldInfo)] :: [(Symbol, *)])
-
--- method Color::copy
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Color")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_color_copy" pango_color_copy ::
- Ptr Color -> -- _obj : TInterface "Pango" "Color"
- IO (Ptr Color)
-
-
-colorCopy ::
- (MonadIO m) =>
- Color -- _obj
- -> m (Maybe Color) -- result
-colorCopy _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_color_copy _obj'
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (wrapBoxed Color) result'
- return result''
- touchManagedPtr _obj
- return maybeResult
-
-data ColorCopyMethodInfo
-instance (signature ~ (m (Maybe Color)), MonadIO m) => MethodInfo ColorCopyMethodInfo Color signature where
- overloadedMethod _ = colorCopy
-
--- method Color::free
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_color_free" pango_color_free ::
- Ptr Color -> -- _obj : TInterface "Pango" "Color"
- IO ()
-
-
-colorFree ::
- (MonadIO m) =>
- Color -- _obj
- -> m () -- result
-colorFree _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- pango_color_free _obj'
- touchManagedPtr _obj
- return ()
-
-data ColorFreeMethodInfo
-instance (signature ~ (m ()), MonadIO m) => MethodInfo ColorFreeMethodInfo Color signature where
- overloadedMethod _ = colorFree
-
--- method Color::parse
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_color_parse" pango_color_parse ::
- Ptr Color -> -- _obj : TInterface "Pango" "Color"
- CString -> -- spec : TBasicType TUTF8
- IO CInt
-
-
-colorParse ::
- (MonadIO m) =>
- Color -- _obj
- -> T.Text -- spec
- -> m Bool -- result
-colorParse _obj spec = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- spec' <- textToCString spec
- result <- pango_color_parse _obj' spec'
- let result' = (/= 0) result
- touchManagedPtr _obj
- freeMem spec'
- return result'
-
-data ColorParseMethodInfo
-instance (signature ~ (T.Text -> m Bool), MonadIO m) => MethodInfo ColorParseMethodInfo Color signature where
- overloadedMethod _ = colorParse
-
--- method Color::to_string
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TUTF8)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_color_to_string" pango_color_to_string ::
- Ptr Color -> -- _obj : TInterface "Pango" "Color"
- IO CString
-
-
-colorToString ::
- (MonadIO m) =>
- Color -- _obj
- -> m T.Text -- result
-colorToString _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_color_to_string _obj'
- checkUnexpectedReturnNULL "pango_color_to_string" result
- result' <- cstringToText result
- freeMem result
- touchManagedPtr _obj
- return result'
-
-data ColorToStringMethodInfo
-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo ColorToStringMethodInfo Color signature where
- overloadedMethod _ = colorToString
-
-type family ResolveColorMethod (t :: Symbol) (o :: *) :: * where
- ResolveColorMethod "copy" o = ColorCopyMethodInfo
- ResolveColorMethod "free" o = ColorFreeMethodInfo
- ResolveColorMethod "parse" o = ColorParseMethodInfo
- ResolveColorMethod "toString" o = ColorToStringMethodInfo
- ResolveColorMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveColorMethod t Color, MethodInfo info Color p) => IsLabelProxy t (Color -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveColorMethod t Color, MethodInfo info Color p) => IsLabel t (Color -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/Color.hs-boot b/GI/Pango/Structs/Color.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/Color.hs-boot
+++ /dev/null
@@ -1,15 +0,0 @@
-module GI.Pango.Structs.Color where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype Color = Color (ForeignPtr Color)
-instance BoxedObject Color where
-data ColorCopyMethodInfo
-data ColorFreeMethodInfo
-data ColorParseMethodInfo
-data ColorToStringMethodInfo
diff --git a/GI/Pango/Structs/Coverage.hs b/GI/Pango/Structs/Coverage.hs
deleted file mode 100644
--- a/GI/Pango/Structs/Coverage.hs
+++ /dev/null
@@ -1,247 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-The #PangoCoverage structure represents a map from Unicode characters
-to #PangoCoverageLevel. It is an opaque structure with no public fields.
--}
-
-module GI.Pango.Structs.Coverage
- (
-
--- * Exported types
- Coverage(..) ,
- noCoverage ,
-
-
- -- * Methods
--- ** coverageGet
- CoverageGetMethodInfo ,
- coverageGet ,
-
-
--- ** coverageMax
- CoverageMaxMethodInfo ,
- coverageMax ,
-
-
--- ** coverageSet
- CoverageSetMethodInfo ,
- coverageSet ,
-
-
--- ** coverageToBytes
- CoverageToBytesMethodInfo ,
- coverageToBytes ,
-
-
--- ** coverageUnref
- CoverageUnrefMethodInfo ,
- coverageUnref ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype Coverage = Coverage (ForeignPtr Coverage)
--- XXX Wrapping a foreign struct/union with no known destructor or size, leak?
-instance WrappedPtr Coverage where
- wrappedPtrCalloc = return nullPtr
- wrappedPtrCopy = return
- wrappedPtrFree = Nothing
-
-noCoverage :: Maybe Coverage
-noCoverage = Nothing
-
-
-type instance AttributeList Coverage = CoverageAttributeList
-type CoverageAttributeList = ('[ ] :: [(Symbol, *)])
-
--- method Coverage::get
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "CoverageLevel")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_coverage_get" pango_coverage_get ::
- Ptr Coverage -> -- _obj : TInterface "Pango" "Coverage"
- Int32 -> -- index_ : TBasicType TInt
- IO CUInt
-
-
-coverageGet ::
- (MonadIO m) =>
- Coverage -- _obj
- -> Int32 -- index_
- -> m CoverageLevel -- result
-coverageGet _obj index_ = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_coverage_get _obj' index_
- let result' = (toEnum . fromIntegral) result
- touchManagedPtr _obj
- return result'
-
-data CoverageGetMethodInfo
-instance (signature ~ (Int32 -> m CoverageLevel), MonadIO m) => MethodInfo CoverageGetMethodInfo Coverage signature where
- overloadedMethod _ = coverageGet
-
--- method Coverage::max
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_coverage_max" pango_coverage_max ::
- Ptr Coverage -> -- _obj : TInterface "Pango" "Coverage"
- Ptr Coverage -> -- other : TInterface "Pango" "Coverage"
- IO ()
-
-
-coverageMax ::
- (MonadIO m) =>
- Coverage -- _obj
- -> Coverage -- other
- -> m () -- result
-coverageMax _obj other = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let other' = unsafeManagedPtrGetPtr other
- pango_coverage_max _obj' other'
- touchManagedPtr _obj
- touchManagedPtr other
- return ()
-
-data CoverageMaxMethodInfo
-instance (signature ~ (Coverage -> m ()), MonadIO m) => MethodInfo CoverageMaxMethodInfo Coverage signature where
- overloadedMethod _ = coverageMax
-
--- method Coverage::set
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "level", argType = TInterface "Pango" "CoverageLevel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_coverage_set" pango_coverage_set ::
- Ptr Coverage -> -- _obj : TInterface "Pango" "Coverage"
- Int32 -> -- index_ : TBasicType TInt
- CUInt -> -- level : TInterface "Pango" "CoverageLevel"
- IO ()
-
-
-coverageSet ::
- (MonadIO m) =>
- Coverage -- _obj
- -> Int32 -- index_
- -> CoverageLevel -- level
- -> m () -- result
-coverageSet _obj index_ level = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let level' = (fromIntegral . fromEnum) level
- pango_coverage_set _obj' index_ level'
- touchManagedPtr _obj
- return ()
-
-data CoverageSetMethodInfo
-instance (signature ~ (Int32 -> CoverageLevel -> m ()), MonadIO m) => MethodInfo CoverageSetMethodInfo Coverage signature where
- overloadedMethod _ = coverageSet
-
--- method Coverage::to_bytes
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_bytes", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : [Arg {argCName = "n_bytes", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_coverage_to_bytes" pango_coverage_to_bytes ::
- Ptr Coverage -> -- _obj : TInterface "Pango" "Coverage"
- Ptr (Ptr Word8) -> -- bytes : TCArray False (-1) 2 (TBasicType TUInt8)
- Ptr Int32 -> -- n_bytes : TBasicType TInt
- IO ()
-
-
-coverageToBytes ::
- (MonadIO m) =>
- Coverage -- _obj
- -> m (ByteString) -- result
-coverageToBytes _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- bytes <- allocMem :: IO (Ptr (Ptr Word8))
- nBytes <- allocMem :: IO (Ptr Int32)
- pango_coverage_to_bytes _obj' bytes nBytes
- nBytes' <- peek nBytes
- bytes' <- peek bytes
- bytes'' <- (unpackByteStringWithLength nBytes') bytes'
- freeMem bytes'
- touchManagedPtr _obj
- freeMem bytes
- freeMem nBytes
- return bytes''
-
-data CoverageToBytesMethodInfo
-instance (signature ~ (m (ByteString)), MonadIO m) => MethodInfo CoverageToBytesMethodInfo Coverage signature where
- overloadedMethod _ = coverageToBytes
-
--- method Coverage::unref
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Coverage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_coverage_unref" pango_coverage_unref ::
- Ptr Coverage -> -- _obj : TInterface "Pango" "Coverage"
- IO ()
-
-
-coverageUnref ::
- (MonadIO m) =>
- Coverage -- _obj
- -> m () -- result
-coverageUnref _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- pango_coverage_unref _obj'
- touchManagedPtr _obj
- return ()
-
-data CoverageUnrefMethodInfo
-instance (signature ~ (m ()), MonadIO m) => MethodInfo CoverageUnrefMethodInfo Coverage signature where
- overloadedMethod _ = coverageUnref
-
-type family ResolveCoverageMethod (t :: Symbol) (o :: *) :: * where
- ResolveCoverageMethod "get" o = CoverageGetMethodInfo
- ResolveCoverageMethod "max" o = CoverageMaxMethodInfo
- ResolveCoverageMethod "set" o = CoverageSetMethodInfo
- ResolveCoverageMethod "toBytes" o = CoverageToBytesMethodInfo
- ResolveCoverageMethod "unref" o = CoverageUnrefMethodInfo
- ResolveCoverageMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveCoverageMethod t Coverage, MethodInfo info Coverage p) => IsLabelProxy t (Coverage -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveCoverageMethod t Coverage, MethodInfo info Coverage p) => IsLabel t (Coverage -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/Coverage.hs-boot b/GI/Pango/Structs/Coverage.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/Coverage.hs-boot
+++ /dev/null
@@ -1,16 +0,0 @@
-module GI.Pango.Structs.Coverage where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype Coverage = Coverage (ForeignPtr Coverage)
-instance WrappedPtr Coverage where
-data CoverageGetMethodInfo
-data CoverageMaxMethodInfo
-data CoverageSetMethodInfo
-data CoverageToBytesMethodInfo
-data CoverageUnrefMethodInfo
diff --git a/GI/Pango/Structs/EngineInfo.hs b/GI/Pango/Structs/EngineInfo.hs
deleted file mode 100644
--- a/GI/Pango/Structs/EngineInfo.hs
+++ /dev/null
@@ -1,258 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-The #PangoEngineInfo structure contains information about a particular
-engine. It contains the following fields:
--}
-
-module GI.Pango.Structs.EngineInfo
- (
-
--- * Exported types
- EngineInfo(..) ,
- newZeroEngineInfo ,
- noEngineInfo ,
-
-
- -- * Properties
--- ** EngineType
- engineInfoClearEngineType ,
- engineInfoEngineType ,
- engineInfoReadEngineType ,
- engineInfoWriteEngineType ,
-
-
--- ** Id
- engineInfoClearId ,
- engineInfoId ,
- engineInfoReadId ,
- engineInfoWriteId ,
-
-
--- ** NScripts
- engineInfoNScripts ,
- engineInfoReadNScripts ,
- engineInfoWriteNScripts ,
-
-
--- ** RenderType
- engineInfoClearRenderType ,
- engineInfoReadRenderType ,
- engineInfoRenderType ,
- engineInfoWriteRenderType ,
-
-
--- ** Scripts
- engineInfoClearScripts ,
- engineInfoReadScripts ,
- engineInfoScripts ,
- engineInfoWriteScripts ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype EngineInfo = EngineInfo (ForeignPtr EngineInfo)
-instance WrappedPtr EngineInfo where
- wrappedPtrCalloc = callocBytes 40
- wrappedPtrCopy = copyPtr 40
- wrappedPtrFree = Just ptr_to_g_free
-
--- | Construct a `EngineInfo` struct initialized to zero.
-newZeroEngineInfo :: MonadIO m => m EngineInfo
-newZeroEngineInfo = liftIO $ wrappedPtrCalloc >>= wrapPtr EngineInfo
-
-instance tag ~ 'AttrSet => Constructible EngineInfo tag where
- new _ attrs = do
- o <- newZeroEngineInfo
- GI.Attributes.set o attrs
- return o
-
-
-noEngineInfo :: Maybe EngineInfo
-noEngineInfo = Nothing
-
-engineInfoReadId :: MonadIO m => EngineInfo -> m (Maybe T.Text)
-engineInfoReadId s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 0) :: IO CString
- result <- convertIfNonNull val $ \val' -> do
- val'' <- cstringToText val'
- return val''
- return result
-
-engineInfoWriteId :: MonadIO m => EngineInfo -> CString -> m ()
-engineInfoWriteId s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (val :: CString)
-
-engineInfoClearId :: MonadIO m => EngineInfo -> m ()
-engineInfoClearId s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (nullPtr :: CString)
-
-data EngineInfoIdFieldInfo
-instance AttrInfo EngineInfoIdFieldInfo where
- type AttrAllowedOps EngineInfoIdFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint EngineInfoIdFieldInfo = (~) CString
- type AttrBaseTypeConstraint EngineInfoIdFieldInfo = (~) EngineInfo
- type AttrGetType EngineInfoIdFieldInfo = Maybe T.Text
- type AttrLabel EngineInfoIdFieldInfo = "id"
- attrGet _ = engineInfoReadId
- attrSet _ = engineInfoWriteId
- attrConstruct = undefined
- attrClear _ = engineInfoClearId
-
-engineInfoId :: AttrLabelProxy "id"
-engineInfoId = AttrLabelProxy
-
-
-engineInfoReadEngineType :: MonadIO m => EngineInfo -> m (Maybe T.Text)
-engineInfoReadEngineType s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 8) :: IO CString
- result <- convertIfNonNull val $ \val' -> do
- val'' <- cstringToText val'
- return val''
- return result
-
-engineInfoWriteEngineType :: MonadIO m => EngineInfo -> CString -> m ()
-engineInfoWriteEngineType s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 8) (val :: CString)
-
-engineInfoClearEngineType :: MonadIO m => EngineInfo -> m ()
-engineInfoClearEngineType s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 8) (nullPtr :: CString)
-
-data EngineInfoEngineTypeFieldInfo
-instance AttrInfo EngineInfoEngineTypeFieldInfo where
- type AttrAllowedOps EngineInfoEngineTypeFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint EngineInfoEngineTypeFieldInfo = (~) CString
- type AttrBaseTypeConstraint EngineInfoEngineTypeFieldInfo = (~) EngineInfo
- type AttrGetType EngineInfoEngineTypeFieldInfo = Maybe T.Text
- type AttrLabel EngineInfoEngineTypeFieldInfo = "engine_type"
- attrGet _ = engineInfoReadEngineType
- attrSet _ = engineInfoWriteEngineType
- attrConstruct = undefined
- attrClear _ = engineInfoClearEngineType
-
-engineInfoEngineType :: AttrLabelProxy "engineType"
-engineInfoEngineType = AttrLabelProxy
-
-
-engineInfoReadRenderType :: MonadIO m => EngineInfo -> m (Maybe T.Text)
-engineInfoReadRenderType s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 16) :: IO CString
- result <- convertIfNonNull val $ \val' -> do
- val'' <- cstringToText val'
- return val''
- return result
-
-engineInfoWriteRenderType :: MonadIO m => EngineInfo -> CString -> m ()
-engineInfoWriteRenderType s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 16) (val :: CString)
-
-engineInfoClearRenderType :: MonadIO m => EngineInfo -> m ()
-engineInfoClearRenderType s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 16) (nullPtr :: CString)
-
-data EngineInfoRenderTypeFieldInfo
-instance AttrInfo EngineInfoRenderTypeFieldInfo where
- type AttrAllowedOps EngineInfoRenderTypeFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint EngineInfoRenderTypeFieldInfo = (~) CString
- type AttrBaseTypeConstraint EngineInfoRenderTypeFieldInfo = (~) EngineInfo
- type AttrGetType EngineInfoRenderTypeFieldInfo = Maybe T.Text
- type AttrLabel EngineInfoRenderTypeFieldInfo = "render_type"
- attrGet _ = engineInfoReadRenderType
- attrSet _ = engineInfoWriteRenderType
- attrConstruct = undefined
- attrClear _ = engineInfoClearRenderType
-
-engineInfoRenderType :: AttrLabelProxy "renderType"
-engineInfoRenderType = AttrLabelProxy
-
-
-engineInfoReadScripts :: MonadIO m => EngineInfo -> m (Maybe EngineScriptInfo)
-engineInfoReadScripts s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 24) :: IO (Ptr EngineScriptInfo)
- result <- convertIfNonNull val $ \val' -> do
- val'' <- (newPtr EngineScriptInfo) val'
- return val''
- return result
-
-engineInfoWriteScripts :: MonadIO m => EngineInfo -> Ptr EngineScriptInfo -> m ()
-engineInfoWriteScripts s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 24) (val :: Ptr EngineScriptInfo)
-
-engineInfoClearScripts :: MonadIO m => EngineInfo -> m ()
-engineInfoClearScripts s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 24) (nullPtr :: Ptr EngineScriptInfo)
-
-data EngineInfoScriptsFieldInfo
-instance AttrInfo EngineInfoScriptsFieldInfo where
- type AttrAllowedOps EngineInfoScriptsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint EngineInfoScriptsFieldInfo = (~) (Ptr EngineScriptInfo)
- type AttrBaseTypeConstraint EngineInfoScriptsFieldInfo = (~) EngineInfo
- type AttrGetType EngineInfoScriptsFieldInfo = Maybe EngineScriptInfo
- type AttrLabel EngineInfoScriptsFieldInfo = "scripts"
- attrGet _ = engineInfoReadScripts
- attrSet _ = engineInfoWriteScripts
- attrConstruct = undefined
- attrClear _ = engineInfoClearScripts
-
-engineInfoScripts :: AttrLabelProxy "scripts"
-engineInfoScripts = AttrLabelProxy
-
-
-engineInfoReadNScripts :: MonadIO m => EngineInfo -> m Int32
-engineInfoReadNScripts s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 32) :: IO Int32
- return val
-
-engineInfoWriteNScripts :: MonadIO m => EngineInfo -> Int32 -> m ()
-engineInfoWriteNScripts s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 32) (val :: Int32)
-
-data EngineInfoNScriptsFieldInfo
-instance AttrInfo EngineInfoNScriptsFieldInfo where
- type AttrAllowedOps EngineInfoNScriptsFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint EngineInfoNScriptsFieldInfo = (~) Int32
- type AttrBaseTypeConstraint EngineInfoNScriptsFieldInfo = (~) EngineInfo
- type AttrGetType EngineInfoNScriptsFieldInfo = Int32
- type AttrLabel EngineInfoNScriptsFieldInfo = "n_scripts"
- attrGet _ = engineInfoReadNScripts
- attrSet _ = engineInfoWriteNScripts
- attrConstruct = undefined
- attrClear _ = undefined
-
-engineInfoNScripts :: AttrLabelProxy "nScripts"
-engineInfoNScripts = AttrLabelProxy
-
-
-
-type instance AttributeList EngineInfo = EngineInfoAttributeList
-type EngineInfoAttributeList = ('[ '("id", EngineInfoIdFieldInfo), '("engineType", EngineInfoEngineTypeFieldInfo), '("renderType", EngineInfoRenderTypeFieldInfo), '("scripts", EngineInfoScriptsFieldInfo), '("nScripts", EngineInfoNScriptsFieldInfo)] :: [(Symbol, *)])
-
-type family ResolveEngineInfoMethod (t :: Symbol) (o :: *) :: * where
- ResolveEngineInfoMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveEngineInfoMethod t EngineInfo, MethodInfo info EngineInfo p) => IsLabelProxy t (EngineInfo -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveEngineInfoMethod t EngineInfo, MethodInfo info EngineInfo p) => IsLabel t (EngineInfo -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/EngineInfo.hs-boot b/GI/Pango/Structs/EngineInfo.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/EngineInfo.hs-boot
+++ /dev/null
@@ -1,11 +0,0 @@
-module GI.Pango.Structs.EngineInfo where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype EngineInfo = EngineInfo (ForeignPtr EngineInfo)
-instance WrappedPtr EngineInfo where
diff --git a/GI/Pango/Structs/EngineScriptInfo.hs b/GI/Pango/Structs/EngineScriptInfo.hs
deleted file mode 100644
--- a/GI/Pango/Structs/EngineScriptInfo.hs
+++ /dev/null
@@ -1,143 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-The #PangoEngineScriptInfo structure contains
-information about how the shaper covers a particular script.
--}
-
-module GI.Pango.Structs.EngineScriptInfo
- (
-
--- * Exported types
- EngineScriptInfo(..) ,
- newZeroEngineScriptInfo ,
- noEngineScriptInfo ,
-
-
- -- * Properties
--- ** Langs
- engineScriptInfoClearLangs ,
- engineScriptInfoLangs ,
- engineScriptInfoReadLangs ,
- engineScriptInfoWriteLangs ,
-
-
--- ** Script
- engineScriptInfoReadScript ,
- engineScriptInfoScript ,
- engineScriptInfoWriteScript ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype EngineScriptInfo = EngineScriptInfo (ForeignPtr EngineScriptInfo)
-instance WrappedPtr EngineScriptInfo where
- wrappedPtrCalloc = callocBytes 16
- wrappedPtrCopy = copyPtr 16
- wrappedPtrFree = Just ptr_to_g_free
-
--- | Construct a `EngineScriptInfo` struct initialized to zero.
-newZeroEngineScriptInfo :: MonadIO m => m EngineScriptInfo
-newZeroEngineScriptInfo = liftIO $ wrappedPtrCalloc >>= wrapPtr EngineScriptInfo
-
-instance tag ~ 'AttrSet => Constructible EngineScriptInfo tag where
- new _ attrs = do
- o <- newZeroEngineScriptInfo
- GI.Attributes.set o attrs
- return o
-
-
-noEngineScriptInfo :: Maybe EngineScriptInfo
-noEngineScriptInfo = Nothing
-
-engineScriptInfoReadScript :: MonadIO m => EngineScriptInfo -> m Script
-engineScriptInfoReadScript s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 0) :: IO CUInt
- let val' = (toEnum . fromIntegral) val
- return val'
-
-engineScriptInfoWriteScript :: MonadIO m => EngineScriptInfo -> Script -> m ()
-engineScriptInfoWriteScript s val = liftIO $ withManagedPtr s $ \ptr -> do
- let val' = (fromIntegral . fromEnum) val
- poke (ptr `plusPtr` 0) (val' :: CUInt)
-
-data EngineScriptInfoScriptFieldInfo
-instance AttrInfo EngineScriptInfoScriptFieldInfo where
- type AttrAllowedOps EngineScriptInfoScriptFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint EngineScriptInfoScriptFieldInfo = (~) Script
- type AttrBaseTypeConstraint EngineScriptInfoScriptFieldInfo = (~) EngineScriptInfo
- type AttrGetType EngineScriptInfoScriptFieldInfo = Script
- type AttrLabel EngineScriptInfoScriptFieldInfo = "script"
- attrGet _ = engineScriptInfoReadScript
- attrSet _ = engineScriptInfoWriteScript
- attrConstruct = undefined
- attrClear _ = undefined
-
-engineScriptInfoScript :: AttrLabelProxy "script"
-engineScriptInfoScript = AttrLabelProxy
-
-
-engineScriptInfoReadLangs :: MonadIO m => EngineScriptInfo -> m (Maybe T.Text)
-engineScriptInfoReadLangs s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 8) :: IO CString
- result <- convertIfNonNull val $ \val' -> do
- val'' <- cstringToText val'
- return val''
- return result
-
-engineScriptInfoWriteLangs :: MonadIO m => EngineScriptInfo -> CString -> m ()
-engineScriptInfoWriteLangs s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 8) (val :: CString)
-
-engineScriptInfoClearLangs :: MonadIO m => EngineScriptInfo -> m ()
-engineScriptInfoClearLangs s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 8) (nullPtr :: CString)
-
-data EngineScriptInfoLangsFieldInfo
-instance AttrInfo EngineScriptInfoLangsFieldInfo where
- type AttrAllowedOps EngineScriptInfoLangsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint EngineScriptInfoLangsFieldInfo = (~) CString
- type AttrBaseTypeConstraint EngineScriptInfoLangsFieldInfo = (~) EngineScriptInfo
- type AttrGetType EngineScriptInfoLangsFieldInfo = Maybe T.Text
- type AttrLabel EngineScriptInfoLangsFieldInfo = "langs"
- attrGet _ = engineScriptInfoReadLangs
- attrSet _ = engineScriptInfoWriteLangs
- attrConstruct = undefined
- attrClear _ = engineScriptInfoClearLangs
-
-engineScriptInfoLangs :: AttrLabelProxy "langs"
-engineScriptInfoLangs = AttrLabelProxy
-
-
-
-type instance AttributeList EngineScriptInfo = EngineScriptInfoAttributeList
-type EngineScriptInfoAttributeList = ('[ '("script", EngineScriptInfoScriptFieldInfo), '("langs", EngineScriptInfoLangsFieldInfo)] :: [(Symbol, *)])
-
-type family ResolveEngineScriptInfoMethod (t :: Symbol) (o :: *) :: * where
- ResolveEngineScriptInfoMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveEngineScriptInfoMethod t EngineScriptInfo, MethodInfo info EngineScriptInfo p) => IsLabelProxy t (EngineScriptInfo -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveEngineScriptInfoMethod t EngineScriptInfo, MethodInfo info EngineScriptInfo p) => IsLabel t (EngineScriptInfo -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/EngineScriptInfo.hs-boot b/GI/Pango/Structs/EngineScriptInfo.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/EngineScriptInfo.hs-boot
+++ /dev/null
@@ -1,11 +0,0 @@
-module GI.Pango.Structs.EngineScriptInfo where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype EngineScriptInfo = EngineScriptInfo (ForeignPtr EngineScriptInfo)
-instance WrappedPtr EngineScriptInfo where
diff --git a/GI/Pango/Structs/FontDescription.hs b/GI/Pango/Structs/FontDescription.hs
deleted file mode 100644
--- a/GI/Pango/Structs/FontDescription.hs
+++ /dev/null
@@ -1,1162 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-The #PangoFontDescription structure represents the description
-of an ideal font. These structures are used both to list
-what fonts are available on the system and also for specifying
-the characteristics of a font to load.
--}
-
-module GI.Pango.Structs.FontDescription
- (
-
--- * Exported types
- FontDescription(..) ,
- noFontDescription ,
-
-
- -- * Methods
--- ** fontDescriptionBetterMatch
- FontDescriptionBetterMatchMethodInfo ,
- fontDescriptionBetterMatch ,
-
-
--- ** fontDescriptionCopy
- FontDescriptionCopyMethodInfo ,
- fontDescriptionCopy ,
-
-
--- ** fontDescriptionCopyStatic
- FontDescriptionCopyStaticMethodInfo ,
- fontDescriptionCopyStatic ,
-
-
--- ** fontDescriptionEqual
- FontDescriptionEqualMethodInfo ,
- fontDescriptionEqual ,
-
-
--- ** fontDescriptionFree
- FontDescriptionFreeMethodInfo ,
- fontDescriptionFree ,
-
-
--- ** fontDescriptionFromString
- fontDescriptionFromString ,
-
-
--- ** fontDescriptionGetFamily
- FontDescriptionGetFamilyMethodInfo ,
- fontDescriptionGetFamily ,
-
-
--- ** fontDescriptionGetGravity
- FontDescriptionGetGravityMethodInfo ,
- fontDescriptionGetGravity ,
-
-
--- ** fontDescriptionGetSetFields
- FontDescriptionGetSetFieldsMethodInfo ,
- fontDescriptionGetSetFields ,
-
-
--- ** fontDescriptionGetSize
- FontDescriptionGetSizeMethodInfo ,
- fontDescriptionGetSize ,
-
-
--- ** fontDescriptionGetSizeIsAbsolute
- FontDescriptionGetSizeIsAbsoluteMethodInfo,
- fontDescriptionGetSizeIsAbsolute ,
-
-
--- ** fontDescriptionGetStretch
- FontDescriptionGetStretchMethodInfo ,
- fontDescriptionGetStretch ,
-
-
--- ** fontDescriptionGetStyle
- FontDescriptionGetStyleMethodInfo ,
- fontDescriptionGetStyle ,
-
-
--- ** fontDescriptionGetVariant
- FontDescriptionGetVariantMethodInfo ,
- fontDescriptionGetVariant ,
-
-
--- ** fontDescriptionGetWeight
- FontDescriptionGetWeightMethodInfo ,
- fontDescriptionGetWeight ,
-
-
--- ** fontDescriptionHash
- FontDescriptionHashMethodInfo ,
- fontDescriptionHash ,
-
-
--- ** fontDescriptionMerge
- FontDescriptionMergeMethodInfo ,
- fontDescriptionMerge ,
-
-
--- ** fontDescriptionMergeStatic
- FontDescriptionMergeStaticMethodInfo ,
- fontDescriptionMergeStatic ,
-
-
--- ** fontDescriptionNew
- fontDescriptionNew ,
-
-
--- ** fontDescriptionSetAbsoluteSize
- FontDescriptionSetAbsoluteSizeMethodInfo,
- fontDescriptionSetAbsoluteSize ,
-
-
--- ** fontDescriptionSetFamily
- FontDescriptionSetFamilyMethodInfo ,
- fontDescriptionSetFamily ,
-
-
--- ** fontDescriptionSetFamilyStatic
- FontDescriptionSetFamilyStaticMethodInfo,
- fontDescriptionSetFamilyStatic ,
-
-
--- ** fontDescriptionSetGravity
- FontDescriptionSetGravityMethodInfo ,
- fontDescriptionSetGravity ,
-
-
--- ** fontDescriptionSetSize
- FontDescriptionSetSizeMethodInfo ,
- fontDescriptionSetSize ,
-
-
--- ** fontDescriptionSetStretch
- FontDescriptionSetStretchMethodInfo ,
- fontDescriptionSetStretch ,
-
-
--- ** fontDescriptionSetStyle
- FontDescriptionSetStyleMethodInfo ,
- fontDescriptionSetStyle ,
-
-
--- ** fontDescriptionSetVariant
- FontDescriptionSetVariantMethodInfo ,
- fontDescriptionSetVariant ,
-
-
--- ** fontDescriptionSetWeight
- FontDescriptionSetWeightMethodInfo ,
- fontDescriptionSetWeight ,
-
-
--- ** fontDescriptionToFilename
- FontDescriptionToFilenameMethodInfo ,
- fontDescriptionToFilename ,
-
-
--- ** fontDescriptionToString
- FontDescriptionToStringMethodInfo ,
- fontDescriptionToString ,
-
-
--- ** fontDescriptionUnsetFields
- FontDescriptionUnsetFieldsMethodInfo ,
- fontDescriptionUnsetFields ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype FontDescription = FontDescription (ForeignPtr FontDescription)
-foreign import ccall "pango_font_description_get_type" c_pango_font_description_get_type ::
- IO GType
-
-instance BoxedObject FontDescription where
- boxedType _ = c_pango_font_description_get_type
-
-noFontDescription :: Maybe FontDescription
-noFontDescription = Nothing
-
-
-type instance AttributeList FontDescription = FontDescriptionAttributeList
-type FontDescriptionAttributeList = ('[ ] :: [(Symbol, *)])
-
--- method FontDescription::new
--- method type : Constructor
--- Args : []
--- Lengths : []
--- returnType : Just (TInterface "Pango" "FontDescription")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_new" pango_font_description_new ::
- IO (Ptr FontDescription)
-
-
-fontDescriptionNew ::
- (MonadIO m) =>
- m FontDescription -- result
-fontDescriptionNew = liftIO $ do
- result <- pango_font_description_new
- checkUnexpectedReturnNULL "pango_font_description_new" result
- result' <- (wrapBoxed FontDescription) result
- return result'
-
--- method FontDescription::better_match
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "old_match", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_match", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_better_match" pango_font_description_better_match ::
- Ptr FontDescription -> -- _obj : TInterface "Pango" "FontDescription"
- Ptr FontDescription -> -- old_match : TInterface "Pango" "FontDescription"
- Ptr FontDescription -> -- new_match : TInterface "Pango" "FontDescription"
- IO CInt
-
-
-fontDescriptionBetterMatch ::
- (MonadIO m) =>
- FontDescription -- _obj
- -> Maybe (FontDescription) -- oldMatch
- -> FontDescription -- newMatch
- -> m Bool -- result
-fontDescriptionBetterMatch _obj oldMatch newMatch = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- maybeOldMatch <- case oldMatch of
- Nothing -> return nullPtr
- Just jOldMatch -> do
- let jOldMatch' = unsafeManagedPtrGetPtr jOldMatch
- return jOldMatch'
- let newMatch' = unsafeManagedPtrGetPtr newMatch
- result <- pango_font_description_better_match _obj' maybeOldMatch newMatch'
- let result' = (/= 0) result
- touchManagedPtr _obj
- whenJust oldMatch touchManagedPtr
- touchManagedPtr newMatch
- return result'
-
-data FontDescriptionBetterMatchMethodInfo
-instance (signature ~ (Maybe (FontDescription) -> FontDescription -> m Bool), MonadIO m) => MethodInfo FontDescriptionBetterMatchMethodInfo FontDescription signature where
- overloadedMethod _ = fontDescriptionBetterMatch
-
--- method FontDescription::copy
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "FontDescription")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_copy" pango_font_description_copy ::
- Ptr FontDescription -> -- _obj : TInterface "Pango" "FontDescription"
- IO (Ptr FontDescription)
-
-
-fontDescriptionCopy ::
- (MonadIO m) =>
- FontDescription -- _obj
- -> m (Maybe FontDescription) -- result
-fontDescriptionCopy _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_font_description_copy _obj'
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (wrapBoxed FontDescription) result'
- return result''
- touchManagedPtr _obj
- return maybeResult
-
-data FontDescriptionCopyMethodInfo
-instance (signature ~ (m (Maybe FontDescription)), MonadIO m) => MethodInfo FontDescriptionCopyMethodInfo FontDescription signature where
- overloadedMethod _ = fontDescriptionCopy
-
--- method FontDescription::copy_static
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "FontDescription")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_copy_static" pango_font_description_copy_static ::
- Ptr FontDescription -> -- _obj : TInterface "Pango" "FontDescription"
- IO (Ptr FontDescription)
-
-
-fontDescriptionCopyStatic ::
- (MonadIO m) =>
- FontDescription -- _obj
- -> m (Maybe FontDescription) -- result
-fontDescriptionCopyStatic _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_font_description_copy_static _obj'
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (wrapBoxed FontDescription) result'
- return result''
- touchManagedPtr _obj
- return maybeResult
-
-data FontDescriptionCopyStaticMethodInfo
-instance (signature ~ (m (Maybe FontDescription)), MonadIO m) => MethodInfo FontDescriptionCopyStaticMethodInfo FontDescription signature where
- overloadedMethod _ = fontDescriptionCopyStatic
-
--- method FontDescription::equal
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "desc2", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_equal" pango_font_description_equal ::
- Ptr FontDescription -> -- _obj : TInterface "Pango" "FontDescription"
- Ptr FontDescription -> -- desc2 : TInterface "Pango" "FontDescription"
- IO CInt
-
-
-fontDescriptionEqual ::
- (MonadIO m) =>
- FontDescription -- _obj
- -> FontDescription -- desc2
- -> m Bool -- result
-fontDescriptionEqual _obj desc2 = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let desc2' = unsafeManagedPtrGetPtr desc2
- result <- pango_font_description_equal _obj' desc2'
- let result' = (/= 0) result
- touchManagedPtr _obj
- touchManagedPtr desc2
- return result'
-
-data FontDescriptionEqualMethodInfo
-instance (signature ~ (FontDescription -> m Bool), MonadIO m) => MethodInfo FontDescriptionEqualMethodInfo FontDescription signature where
- overloadedMethod _ = fontDescriptionEqual
-
--- method FontDescription::free
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_free" pango_font_description_free ::
- Ptr FontDescription -> -- _obj : TInterface "Pango" "FontDescription"
- IO ()
-
-
-fontDescriptionFree ::
- (MonadIO m) =>
- FontDescription -- _obj
- -> m () -- result
-fontDescriptionFree _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- pango_font_description_free _obj'
- touchManagedPtr _obj
- return ()
-
-data FontDescriptionFreeMethodInfo
-instance (signature ~ (m ()), MonadIO m) => MethodInfo FontDescriptionFreeMethodInfo FontDescription signature where
- overloadedMethod _ = fontDescriptionFree
-
--- method FontDescription::get_family
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TUTF8)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_get_family" pango_font_description_get_family ::
- Ptr FontDescription -> -- _obj : TInterface "Pango" "FontDescription"
- IO CString
-
-
-fontDescriptionGetFamily ::
- (MonadIO m) =>
- FontDescription -- _obj
- -> m (Maybe T.Text) -- result
-fontDescriptionGetFamily _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_font_description_get_family _obj'
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- cstringToText result'
- return result''
- touchManagedPtr _obj
- return maybeResult
-
-data FontDescriptionGetFamilyMethodInfo
-instance (signature ~ (m (Maybe T.Text)), MonadIO m) => MethodInfo FontDescriptionGetFamilyMethodInfo FontDescription signature where
- overloadedMethod _ = fontDescriptionGetFamily
-
--- method FontDescription::get_gravity
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Gravity")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_get_gravity" pango_font_description_get_gravity ::
- Ptr FontDescription -> -- _obj : TInterface "Pango" "FontDescription"
- IO CUInt
-
-
-fontDescriptionGetGravity ::
- (MonadIO m) =>
- FontDescription -- _obj
- -> m Gravity -- result
-fontDescriptionGetGravity _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_font_description_get_gravity _obj'
- let result' = (toEnum . fromIntegral) result
- touchManagedPtr _obj
- return result'
-
-data FontDescriptionGetGravityMethodInfo
-instance (signature ~ (m Gravity), MonadIO m) => MethodInfo FontDescriptionGetGravityMethodInfo FontDescription signature where
- overloadedMethod _ = fontDescriptionGetGravity
-
--- method FontDescription::get_set_fields
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "FontMask")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_get_set_fields" pango_font_description_get_set_fields ::
- Ptr FontDescription -> -- _obj : TInterface "Pango" "FontDescription"
- IO CUInt
-
-
-fontDescriptionGetSetFields ::
- (MonadIO m) =>
- FontDescription -- _obj
- -> m [FontMask] -- result
-fontDescriptionGetSetFields _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_font_description_get_set_fields _obj'
- let result' = wordToGFlags result
- touchManagedPtr _obj
- return result'
-
-data FontDescriptionGetSetFieldsMethodInfo
-instance (signature ~ (m [FontMask]), MonadIO m) => MethodInfo FontDescriptionGetSetFieldsMethodInfo FontDescription signature where
- overloadedMethod _ = fontDescriptionGetSetFields
-
--- method FontDescription::get_size
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TInt)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_get_size" pango_font_description_get_size ::
- Ptr FontDescription -> -- _obj : TInterface "Pango" "FontDescription"
- IO Int32
-
-
-fontDescriptionGetSize ::
- (MonadIO m) =>
- FontDescription -- _obj
- -> m Int32 -- result
-fontDescriptionGetSize _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_font_description_get_size _obj'
- touchManagedPtr _obj
- return result
-
-data FontDescriptionGetSizeMethodInfo
-instance (signature ~ (m Int32), MonadIO m) => MethodInfo FontDescriptionGetSizeMethodInfo FontDescription signature where
- overloadedMethod _ = fontDescriptionGetSize
-
--- method FontDescription::get_size_is_absolute
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_get_size_is_absolute" pango_font_description_get_size_is_absolute ::
- Ptr FontDescription -> -- _obj : TInterface "Pango" "FontDescription"
- IO CInt
-
-
-fontDescriptionGetSizeIsAbsolute ::
- (MonadIO m) =>
- FontDescription -- _obj
- -> m Bool -- result
-fontDescriptionGetSizeIsAbsolute _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_font_description_get_size_is_absolute _obj'
- let result' = (/= 0) result
- touchManagedPtr _obj
- return result'
-
-data FontDescriptionGetSizeIsAbsoluteMethodInfo
-instance (signature ~ (m Bool), MonadIO m) => MethodInfo FontDescriptionGetSizeIsAbsoluteMethodInfo FontDescription signature where
- overloadedMethod _ = fontDescriptionGetSizeIsAbsolute
-
--- method FontDescription::get_stretch
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Stretch")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_get_stretch" pango_font_description_get_stretch ::
- Ptr FontDescription -> -- _obj : TInterface "Pango" "FontDescription"
- IO CUInt
-
-
-fontDescriptionGetStretch ::
- (MonadIO m) =>
- FontDescription -- _obj
- -> m Stretch -- result
-fontDescriptionGetStretch _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_font_description_get_stretch _obj'
- let result' = (toEnum . fromIntegral) result
- touchManagedPtr _obj
- return result'
-
-data FontDescriptionGetStretchMethodInfo
-instance (signature ~ (m Stretch), MonadIO m) => MethodInfo FontDescriptionGetStretchMethodInfo FontDescription signature where
- overloadedMethod _ = fontDescriptionGetStretch
-
--- method FontDescription::get_style
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Style")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_get_style" pango_font_description_get_style ::
- Ptr FontDescription -> -- _obj : TInterface "Pango" "FontDescription"
- IO CUInt
-
-
-fontDescriptionGetStyle ::
- (MonadIO m) =>
- FontDescription -- _obj
- -> m Style -- result
-fontDescriptionGetStyle _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_font_description_get_style _obj'
- let result' = (toEnum . fromIntegral) result
- touchManagedPtr _obj
- return result'
-
-data FontDescriptionGetStyleMethodInfo
-instance (signature ~ (m Style), MonadIO m) => MethodInfo FontDescriptionGetStyleMethodInfo FontDescription signature where
- overloadedMethod _ = fontDescriptionGetStyle
-
--- method FontDescription::get_variant
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Variant")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_get_variant" pango_font_description_get_variant ::
- Ptr FontDescription -> -- _obj : TInterface "Pango" "FontDescription"
- IO CUInt
-
-
-fontDescriptionGetVariant ::
- (MonadIO m) =>
- FontDescription -- _obj
- -> m Variant -- result
-fontDescriptionGetVariant _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_font_description_get_variant _obj'
- let result' = (toEnum . fromIntegral) result
- touchManagedPtr _obj
- return result'
-
-data FontDescriptionGetVariantMethodInfo
-instance (signature ~ (m Variant), MonadIO m) => MethodInfo FontDescriptionGetVariantMethodInfo FontDescription signature where
- overloadedMethod _ = fontDescriptionGetVariant
-
--- method FontDescription::get_weight
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Weight")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_get_weight" pango_font_description_get_weight ::
- Ptr FontDescription -> -- _obj : TInterface "Pango" "FontDescription"
- IO CUInt
-
-
-fontDescriptionGetWeight ::
- (MonadIO m) =>
- FontDescription -- _obj
- -> m Weight -- result
-fontDescriptionGetWeight _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_font_description_get_weight _obj'
- let result' = (toEnum . fromIntegral) result
- touchManagedPtr _obj
- return result'
-
-data FontDescriptionGetWeightMethodInfo
-instance (signature ~ (m Weight), MonadIO m) => MethodInfo FontDescriptionGetWeightMethodInfo FontDescription signature where
- overloadedMethod _ = fontDescriptionGetWeight
-
--- method FontDescription::hash
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TUInt)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_hash" pango_font_description_hash ::
- Ptr FontDescription -> -- _obj : TInterface "Pango" "FontDescription"
- IO Word32
-
-
-fontDescriptionHash ::
- (MonadIO m) =>
- FontDescription -- _obj
- -> m Word32 -- result
-fontDescriptionHash _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_font_description_hash _obj'
- touchManagedPtr _obj
- return result
-
-data FontDescriptionHashMethodInfo
-instance (signature ~ (m Word32), MonadIO m) => MethodInfo FontDescriptionHashMethodInfo FontDescription signature where
- overloadedMethod _ = fontDescriptionHash
-
--- method FontDescription::merge
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "desc_to_merge", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "replace_existing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_merge" pango_font_description_merge ::
- Ptr FontDescription -> -- _obj : TInterface "Pango" "FontDescription"
- Ptr FontDescription -> -- desc_to_merge : TInterface "Pango" "FontDescription"
- CInt -> -- replace_existing : TBasicType TBoolean
- IO ()
-
-
-fontDescriptionMerge ::
- (MonadIO m) =>
- FontDescription -- _obj
- -> Maybe (FontDescription) -- descToMerge
- -> Bool -- replaceExisting
- -> m () -- result
-fontDescriptionMerge _obj descToMerge replaceExisting = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- maybeDescToMerge <- case descToMerge of
- Nothing -> return nullPtr
- Just jDescToMerge -> do
- let jDescToMerge' = unsafeManagedPtrGetPtr jDescToMerge
- return jDescToMerge'
- let replaceExisting' = (fromIntegral . fromEnum) replaceExisting
- pango_font_description_merge _obj' maybeDescToMerge replaceExisting'
- touchManagedPtr _obj
- whenJust descToMerge touchManagedPtr
- return ()
-
-data FontDescriptionMergeMethodInfo
-instance (signature ~ (Maybe (FontDescription) -> Bool -> m ()), MonadIO m) => MethodInfo FontDescriptionMergeMethodInfo FontDescription signature where
- overloadedMethod _ = fontDescriptionMerge
-
--- method FontDescription::merge_static
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "desc_to_merge", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "replace_existing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_merge_static" pango_font_description_merge_static ::
- Ptr FontDescription -> -- _obj : TInterface "Pango" "FontDescription"
- Ptr FontDescription -> -- desc_to_merge : TInterface "Pango" "FontDescription"
- CInt -> -- replace_existing : TBasicType TBoolean
- IO ()
-
-
-fontDescriptionMergeStatic ::
- (MonadIO m) =>
- FontDescription -- _obj
- -> FontDescription -- descToMerge
- -> Bool -- replaceExisting
- -> m () -- result
-fontDescriptionMergeStatic _obj descToMerge replaceExisting = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let descToMerge' = unsafeManagedPtrGetPtr descToMerge
- let replaceExisting' = (fromIntegral . fromEnum) replaceExisting
- pango_font_description_merge_static _obj' descToMerge' replaceExisting'
- touchManagedPtr _obj
- touchManagedPtr descToMerge
- return ()
-
-data FontDescriptionMergeStaticMethodInfo
-instance (signature ~ (FontDescription -> Bool -> m ()), MonadIO m) => MethodInfo FontDescriptionMergeStaticMethodInfo FontDescription signature where
- overloadedMethod _ = fontDescriptionMergeStatic
-
--- method FontDescription::set_absolute_size
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_set_absolute_size" pango_font_description_set_absolute_size ::
- Ptr FontDescription -> -- _obj : TInterface "Pango" "FontDescription"
- CDouble -> -- size : TBasicType TDouble
- IO ()
-
-
-fontDescriptionSetAbsoluteSize ::
- (MonadIO m) =>
- FontDescription -- _obj
- -> Double -- size
- -> m () -- result
-fontDescriptionSetAbsoluteSize _obj size = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let size' = realToFrac size
- pango_font_description_set_absolute_size _obj' size'
- touchManagedPtr _obj
- return ()
-
-data FontDescriptionSetAbsoluteSizeMethodInfo
-instance (signature ~ (Double -> m ()), MonadIO m) => MethodInfo FontDescriptionSetAbsoluteSizeMethodInfo FontDescription signature where
- overloadedMethod _ = fontDescriptionSetAbsoluteSize
-
--- method FontDescription::set_family
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_set_family" pango_font_description_set_family ::
- Ptr FontDescription -> -- _obj : TInterface "Pango" "FontDescription"
- CString -> -- family : TBasicType TUTF8
- IO ()
-
-
-fontDescriptionSetFamily ::
- (MonadIO m) =>
- FontDescription -- _obj
- -> T.Text -- family
- -> m () -- result
-fontDescriptionSetFamily _obj family = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- family' <- textToCString family
- pango_font_description_set_family _obj' family'
- touchManagedPtr _obj
- freeMem family'
- return ()
-
-data FontDescriptionSetFamilyMethodInfo
-instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo FontDescriptionSetFamilyMethodInfo FontDescription signature where
- overloadedMethod _ = fontDescriptionSetFamily
-
--- method FontDescription::set_family_static
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "family", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_set_family_static" pango_font_description_set_family_static ::
- Ptr FontDescription -> -- _obj : TInterface "Pango" "FontDescription"
- CString -> -- family : TBasicType TUTF8
- IO ()
-
-
-fontDescriptionSetFamilyStatic ::
- (MonadIO m) =>
- FontDescription -- _obj
- -> T.Text -- family
- -> m () -- result
-fontDescriptionSetFamilyStatic _obj family = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- family' <- textToCString family
- pango_font_description_set_family_static _obj' family'
- touchManagedPtr _obj
- freeMem family'
- return ()
-
-data FontDescriptionSetFamilyStaticMethodInfo
-instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo FontDescriptionSetFamilyStaticMethodInfo FontDescription signature where
- overloadedMethod _ = fontDescriptionSetFamilyStatic
-
--- method FontDescription::set_gravity
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "gravity", argType = TInterface "Pango" "Gravity", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_set_gravity" pango_font_description_set_gravity ::
- Ptr FontDescription -> -- _obj : TInterface "Pango" "FontDescription"
- CUInt -> -- gravity : TInterface "Pango" "Gravity"
- IO ()
-
-
-fontDescriptionSetGravity ::
- (MonadIO m) =>
- FontDescription -- _obj
- -> Gravity -- gravity
- -> m () -- result
-fontDescriptionSetGravity _obj gravity = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let gravity' = (fromIntegral . fromEnum) gravity
- pango_font_description_set_gravity _obj' gravity'
- touchManagedPtr _obj
- return ()
-
-data FontDescriptionSetGravityMethodInfo
-instance (signature ~ (Gravity -> m ()), MonadIO m) => MethodInfo FontDescriptionSetGravityMethodInfo FontDescription signature where
- overloadedMethod _ = fontDescriptionSetGravity
-
--- method FontDescription::set_size
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_set_size" pango_font_description_set_size ::
- Ptr FontDescription -> -- _obj : TInterface "Pango" "FontDescription"
- Int32 -> -- size : TBasicType TInt
- IO ()
-
-
-fontDescriptionSetSize ::
- (MonadIO m) =>
- FontDescription -- _obj
- -> Int32 -- size
- -> m () -- result
-fontDescriptionSetSize _obj size = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- pango_font_description_set_size _obj' size
- touchManagedPtr _obj
- return ()
-
-data FontDescriptionSetSizeMethodInfo
-instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo FontDescriptionSetSizeMethodInfo FontDescription signature where
- overloadedMethod _ = fontDescriptionSetSize
-
--- method FontDescription::set_stretch
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stretch", argType = TInterface "Pango" "Stretch", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_set_stretch" pango_font_description_set_stretch ::
- Ptr FontDescription -> -- _obj : TInterface "Pango" "FontDescription"
- CUInt -> -- stretch : TInterface "Pango" "Stretch"
- IO ()
-
-
-fontDescriptionSetStretch ::
- (MonadIO m) =>
- FontDescription -- _obj
- -> Stretch -- stretch
- -> m () -- result
-fontDescriptionSetStretch _obj stretch = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let stretch' = (fromIntegral . fromEnum) stretch
- pango_font_description_set_stretch _obj' stretch'
- touchManagedPtr _obj
- return ()
-
-data FontDescriptionSetStretchMethodInfo
-instance (signature ~ (Stretch -> m ()), MonadIO m) => MethodInfo FontDescriptionSetStretchMethodInfo FontDescription signature where
- overloadedMethod _ = fontDescriptionSetStretch
-
--- method FontDescription::set_style
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Pango" "Style", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_set_style" pango_font_description_set_style ::
- Ptr FontDescription -> -- _obj : TInterface "Pango" "FontDescription"
- CUInt -> -- style : TInterface "Pango" "Style"
- IO ()
-
-
-fontDescriptionSetStyle ::
- (MonadIO m) =>
- FontDescription -- _obj
- -> Style -- style
- -> m () -- result
-fontDescriptionSetStyle _obj style = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let style' = (fromIntegral . fromEnum) style
- pango_font_description_set_style _obj' style'
- touchManagedPtr _obj
- return ()
-
-data FontDescriptionSetStyleMethodInfo
-instance (signature ~ (Style -> m ()), MonadIO m) => MethodInfo FontDescriptionSetStyleMethodInfo FontDescription signature where
- overloadedMethod _ = fontDescriptionSetStyle
-
--- method FontDescription::set_variant
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "variant", argType = TInterface "Pango" "Variant", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_set_variant" pango_font_description_set_variant ::
- Ptr FontDescription -> -- _obj : TInterface "Pango" "FontDescription"
- CUInt -> -- variant : TInterface "Pango" "Variant"
- IO ()
-
-
-fontDescriptionSetVariant ::
- (MonadIO m) =>
- FontDescription -- _obj
- -> Variant -- variant
- -> m () -- result
-fontDescriptionSetVariant _obj variant = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let variant' = (fromIntegral . fromEnum) variant
- pango_font_description_set_variant _obj' variant'
- touchManagedPtr _obj
- return ()
-
-data FontDescriptionSetVariantMethodInfo
-instance (signature ~ (Variant -> m ()), MonadIO m) => MethodInfo FontDescriptionSetVariantMethodInfo FontDescription signature where
- overloadedMethod _ = fontDescriptionSetVariant
-
--- method FontDescription::set_weight
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "weight", argType = TInterface "Pango" "Weight", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_set_weight" pango_font_description_set_weight ::
- Ptr FontDescription -> -- _obj : TInterface "Pango" "FontDescription"
- CUInt -> -- weight : TInterface "Pango" "Weight"
- IO ()
-
-
-fontDescriptionSetWeight ::
- (MonadIO m) =>
- FontDescription -- _obj
- -> Weight -- weight
- -> m () -- result
-fontDescriptionSetWeight _obj weight = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let weight' = (fromIntegral . fromEnum) weight
- pango_font_description_set_weight _obj' weight'
- touchManagedPtr _obj
- return ()
-
-data FontDescriptionSetWeightMethodInfo
-instance (signature ~ (Weight -> m ()), MonadIO m) => MethodInfo FontDescriptionSetWeightMethodInfo FontDescription signature where
- overloadedMethod _ = fontDescriptionSetWeight
-
--- method FontDescription::to_filename
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TUTF8)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_to_filename" pango_font_description_to_filename ::
- Ptr FontDescription -> -- _obj : TInterface "Pango" "FontDescription"
- IO CString
-
-
-fontDescriptionToFilename ::
- (MonadIO m) =>
- FontDescription -- _obj
- -> m T.Text -- result
-fontDescriptionToFilename _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_font_description_to_filename _obj'
- checkUnexpectedReturnNULL "pango_font_description_to_filename" result
- result' <- cstringToText result
- freeMem result
- touchManagedPtr _obj
- return result'
-
-data FontDescriptionToFilenameMethodInfo
-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo FontDescriptionToFilenameMethodInfo FontDescription signature where
- overloadedMethod _ = fontDescriptionToFilename
-
--- method FontDescription::to_string
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TUTF8)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_to_string" pango_font_description_to_string ::
- Ptr FontDescription -> -- _obj : TInterface "Pango" "FontDescription"
- IO CString
-
-
-fontDescriptionToString ::
- (MonadIO m) =>
- FontDescription -- _obj
- -> m T.Text -- result
-fontDescriptionToString _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_font_description_to_string _obj'
- checkUnexpectedReturnNULL "pango_font_description_to_string" result
- result' <- cstringToText result
- freeMem result
- touchManagedPtr _obj
- return result'
-
-data FontDescriptionToStringMethodInfo
-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo FontDescriptionToStringMethodInfo FontDescription signature where
- overloadedMethod _ = fontDescriptionToString
-
--- method FontDescription::unset_fields
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontDescription", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "to_unset", argType = TInterface "Pango" "FontMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_unset_fields" pango_font_description_unset_fields ::
- Ptr FontDescription -> -- _obj : TInterface "Pango" "FontDescription"
- CUInt -> -- to_unset : TInterface "Pango" "FontMask"
- IO ()
-
-
-fontDescriptionUnsetFields ::
- (MonadIO m) =>
- FontDescription -- _obj
- -> [FontMask] -- toUnset
- -> m () -- result
-fontDescriptionUnsetFields _obj toUnset = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let toUnset' = gflagsToWord toUnset
- pango_font_description_unset_fields _obj' toUnset'
- touchManagedPtr _obj
- return ()
-
-data FontDescriptionUnsetFieldsMethodInfo
-instance (signature ~ ([FontMask] -> m ()), MonadIO m) => MethodInfo FontDescriptionUnsetFieldsMethodInfo FontDescription signature where
- overloadedMethod _ = fontDescriptionUnsetFields
-
--- method FontDescription::from_string
--- method type : MemberFunction
--- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "FontDescription")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_description_from_string" pango_font_description_from_string ::
- CString -> -- str : TBasicType TUTF8
- IO (Ptr FontDescription)
-
-
-fontDescriptionFromString ::
- (MonadIO m) =>
- T.Text -- str
- -> m FontDescription -- result
-fontDescriptionFromString str = liftIO $ do
- str' <- textToCString str
- result <- pango_font_description_from_string str'
- checkUnexpectedReturnNULL "pango_font_description_from_string" result
- result' <- (wrapBoxed FontDescription) result
- freeMem str'
- return result'
-
-type family ResolveFontDescriptionMethod (t :: Symbol) (o :: *) :: * where
- ResolveFontDescriptionMethod "betterMatch" o = FontDescriptionBetterMatchMethodInfo
- ResolveFontDescriptionMethod "copy" o = FontDescriptionCopyMethodInfo
- ResolveFontDescriptionMethod "copyStatic" o = FontDescriptionCopyStaticMethodInfo
- ResolveFontDescriptionMethod "equal" o = FontDescriptionEqualMethodInfo
- ResolveFontDescriptionMethod "free" o = FontDescriptionFreeMethodInfo
- ResolveFontDescriptionMethod "hash" o = FontDescriptionHashMethodInfo
- ResolveFontDescriptionMethod "merge" o = FontDescriptionMergeMethodInfo
- ResolveFontDescriptionMethod "mergeStatic" o = FontDescriptionMergeStaticMethodInfo
- ResolveFontDescriptionMethod "toFilename" o = FontDescriptionToFilenameMethodInfo
- ResolveFontDescriptionMethod "toString" o = FontDescriptionToStringMethodInfo
- ResolveFontDescriptionMethod "unsetFields" o = FontDescriptionUnsetFieldsMethodInfo
- ResolveFontDescriptionMethod "getFamily" o = FontDescriptionGetFamilyMethodInfo
- ResolveFontDescriptionMethod "getGravity" o = FontDescriptionGetGravityMethodInfo
- ResolveFontDescriptionMethod "getSetFields" o = FontDescriptionGetSetFieldsMethodInfo
- ResolveFontDescriptionMethod "getSize" o = FontDescriptionGetSizeMethodInfo
- ResolveFontDescriptionMethod "getSizeIsAbsolute" o = FontDescriptionGetSizeIsAbsoluteMethodInfo
- ResolveFontDescriptionMethod "getStretch" o = FontDescriptionGetStretchMethodInfo
- ResolveFontDescriptionMethod "getStyle" o = FontDescriptionGetStyleMethodInfo
- ResolveFontDescriptionMethod "getVariant" o = FontDescriptionGetVariantMethodInfo
- ResolveFontDescriptionMethod "getWeight" o = FontDescriptionGetWeightMethodInfo
- ResolveFontDescriptionMethod "setAbsoluteSize" o = FontDescriptionSetAbsoluteSizeMethodInfo
- ResolveFontDescriptionMethod "setFamily" o = FontDescriptionSetFamilyMethodInfo
- ResolveFontDescriptionMethod "setFamilyStatic" o = FontDescriptionSetFamilyStaticMethodInfo
- ResolveFontDescriptionMethod "setGravity" o = FontDescriptionSetGravityMethodInfo
- ResolveFontDescriptionMethod "setSize" o = FontDescriptionSetSizeMethodInfo
- ResolveFontDescriptionMethod "setStretch" o = FontDescriptionSetStretchMethodInfo
- ResolveFontDescriptionMethod "setStyle" o = FontDescriptionSetStyleMethodInfo
- ResolveFontDescriptionMethod "setVariant" o = FontDescriptionSetVariantMethodInfo
- ResolveFontDescriptionMethod "setWeight" o = FontDescriptionSetWeightMethodInfo
- ResolveFontDescriptionMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveFontDescriptionMethod t FontDescription, MethodInfo info FontDescription p) => IsLabelProxy t (FontDescription -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveFontDescriptionMethod t FontDescription, MethodInfo info FontDescription p) => IsLabel t (FontDescription -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/FontDescription.hs-boot b/GI/Pango/Structs/FontDescription.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/FontDescription.hs-boot
+++ /dev/null
@@ -1,40 +0,0 @@
-module GI.Pango.Structs.FontDescription where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype FontDescription = FontDescription (ForeignPtr FontDescription)
-instance BoxedObject FontDescription where
-data FontDescriptionBetterMatchMethodInfo
-data FontDescriptionCopyMethodInfo
-data FontDescriptionCopyStaticMethodInfo
-data FontDescriptionEqualMethodInfo
-data FontDescriptionFreeMethodInfo
-data FontDescriptionGetFamilyMethodInfo
-data FontDescriptionGetGravityMethodInfo
-data FontDescriptionGetSetFieldsMethodInfo
-data FontDescriptionGetSizeMethodInfo
-data FontDescriptionGetSizeIsAbsoluteMethodInfo
-data FontDescriptionGetStretchMethodInfo
-data FontDescriptionGetStyleMethodInfo
-data FontDescriptionGetVariantMethodInfo
-data FontDescriptionGetWeightMethodInfo
-data FontDescriptionHashMethodInfo
-data FontDescriptionMergeMethodInfo
-data FontDescriptionMergeStaticMethodInfo
-data FontDescriptionSetAbsoluteSizeMethodInfo
-data FontDescriptionSetFamilyMethodInfo
-data FontDescriptionSetFamilyStaticMethodInfo
-data FontDescriptionSetGravityMethodInfo
-data FontDescriptionSetSizeMethodInfo
-data FontDescriptionSetStretchMethodInfo
-data FontDescriptionSetStyleMethodInfo
-data FontDescriptionSetVariantMethodInfo
-data FontDescriptionSetWeightMethodInfo
-data FontDescriptionToFilenameMethodInfo
-data FontDescriptionToStringMethodInfo
-data FontDescriptionUnsetFieldsMethodInfo
diff --git a/GI/Pango/Structs/FontMetrics.hs b/GI/Pango/Structs/FontMetrics.hs
deleted file mode 100644
--- a/GI/Pango/Structs/FontMetrics.hs
+++ /dev/null
@@ -1,433 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-A #PangoFontMetrics structure holds the overall metric information
-for a font (possibly restricted to a script). The fields of this
-structure are private to implementations of a font backend. See
-the documentation of the corresponding getters for documentation
-of their meaning.
--}
-
-module GI.Pango.Structs.FontMetrics
- (
-
--- * Exported types
- FontMetrics(..) ,
- newZeroFontMetrics ,
- noFontMetrics ,
-
-
- -- * Methods
--- ** fontMetricsGetApproximateCharWidth
- FontMetricsGetApproximateCharWidthMethodInfo,
- fontMetricsGetApproximateCharWidth ,
-
-
--- ** fontMetricsGetApproximateDigitWidth
- FontMetricsGetApproximateDigitWidthMethodInfo,
- fontMetricsGetApproximateDigitWidth ,
-
-
--- ** fontMetricsGetAscent
- FontMetricsGetAscentMethodInfo ,
- fontMetricsGetAscent ,
-
-
--- ** fontMetricsGetDescent
- FontMetricsGetDescentMethodInfo ,
- fontMetricsGetDescent ,
-
-
--- ** fontMetricsGetStrikethroughPosition
- FontMetricsGetStrikethroughPositionMethodInfo,
- fontMetricsGetStrikethroughPosition ,
-
-
--- ** fontMetricsGetStrikethroughThickness
- FontMetricsGetStrikethroughThicknessMethodInfo,
- fontMetricsGetStrikethroughThickness ,
-
-
--- ** fontMetricsGetUnderlinePosition
- FontMetricsGetUnderlinePositionMethodInfo,
- fontMetricsGetUnderlinePosition ,
-
-
--- ** fontMetricsGetUnderlineThickness
- FontMetricsGetUnderlineThicknessMethodInfo,
- fontMetricsGetUnderlineThickness ,
-
-
--- ** fontMetricsNew
- fontMetricsNew ,
-
-
--- ** fontMetricsRef
- FontMetricsRefMethodInfo ,
- fontMetricsRef ,
-
-
--- ** fontMetricsUnref
- FontMetricsUnrefMethodInfo ,
- fontMetricsUnref ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype FontMetrics = FontMetrics (ForeignPtr FontMetrics)
-foreign import ccall "pango_font_metrics_get_type" c_pango_font_metrics_get_type ::
- IO GType
-
-instance BoxedObject FontMetrics where
- boxedType _ = c_pango_font_metrics_get_type
-
--- | Construct a `FontMetrics` struct initialized to zero.
-newZeroFontMetrics :: MonadIO m => m FontMetrics
-newZeroFontMetrics = liftIO $ callocBoxedBytes 36 >>= wrapBoxed FontMetrics
-
-instance tag ~ 'AttrSet => Constructible FontMetrics tag where
- new _ attrs = do
- o <- newZeroFontMetrics
- GI.Attributes.set o attrs
- return o
-
-
-noFontMetrics :: Maybe FontMetrics
-noFontMetrics = Nothing
-
-
-type instance AttributeList FontMetrics = FontMetricsAttributeList
-type FontMetricsAttributeList = ('[ ] :: [(Symbol, *)])
-
--- method FontMetrics::new
--- method type : Constructor
--- Args : []
--- Lengths : []
--- returnType : Just (TInterface "Pango" "FontMetrics")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_metrics_new" pango_font_metrics_new ::
- IO (Ptr FontMetrics)
-
-
-fontMetricsNew ::
- (MonadIO m) =>
- m FontMetrics -- result
-fontMetricsNew = liftIO $ do
- result <- pango_font_metrics_new
- checkUnexpectedReturnNULL "pango_font_metrics_new" result
- result' <- (wrapBoxed FontMetrics) result
- return result'
-
--- method FontMetrics::get_approximate_char_width
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TInt)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_metrics_get_approximate_char_width" pango_font_metrics_get_approximate_char_width ::
- Ptr FontMetrics -> -- _obj : TInterface "Pango" "FontMetrics"
- IO Int32
-
-
-fontMetricsGetApproximateCharWidth ::
- (MonadIO m) =>
- FontMetrics -- _obj
- -> m Int32 -- result
-fontMetricsGetApproximateCharWidth _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_font_metrics_get_approximate_char_width _obj'
- touchManagedPtr _obj
- return result
-
-data FontMetricsGetApproximateCharWidthMethodInfo
-instance (signature ~ (m Int32), MonadIO m) => MethodInfo FontMetricsGetApproximateCharWidthMethodInfo FontMetrics signature where
- overloadedMethod _ = fontMetricsGetApproximateCharWidth
-
--- method FontMetrics::get_approximate_digit_width
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TInt)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_metrics_get_approximate_digit_width" pango_font_metrics_get_approximate_digit_width ::
- Ptr FontMetrics -> -- _obj : TInterface "Pango" "FontMetrics"
- IO Int32
-
-
-fontMetricsGetApproximateDigitWidth ::
- (MonadIO m) =>
- FontMetrics -- _obj
- -> m Int32 -- result
-fontMetricsGetApproximateDigitWidth _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_font_metrics_get_approximate_digit_width _obj'
- touchManagedPtr _obj
- return result
-
-data FontMetricsGetApproximateDigitWidthMethodInfo
-instance (signature ~ (m Int32), MonadIO m) => MethodInfo FontMetricsGetApproximateDigitWidthMethodInfo FontMetrics signature where
- overloadedMethod _ = fontMetricsGetApproximateDigitWidth
-
--- method FontMetrics::get_ascent
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TInt)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_metrics_get_ascent" pango_font_metrics_get_ascent ::
- Ptr FontMetrics -> -- _obj : TInterface "Pango" "FontMetrics"
- IO Int32
-
-
-fontMetricsGetAscent ::
- (MonadIO m) =>
- FontMetrics -- _obj
- -> m Int32 -- result
-fontMetricsGetAscent _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_font_metrics_get_ascent _obj'
- touchManagedPtr _obj
- return result
-
-data FontMetricsGetAscentMethodInfo
-instance (signature ~ (m Int32), MonadIO m) => MethodInfo FontMetricsGetAscentMethodInfo FontMetrics signature where
- overloadedMethod _ = fontMetricsGetAscent
-
--- method FontMetrics::get_descent
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TInt)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_metrics_get_descent" pango_font_metrics_get_descent ::
- Ptr FontMetrics -> -- _obj : TInterface "Pango" "FontMetrics"
- IO Int32
-
-
-fontMetricsGetDescent ::
- (MonadIO m) =>
- FontMetrics -- _obj
- -> m Int32 -- result
-fontMetricsGetDescent _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_font_metrics_get_descent _obj'
- touchManagedPtr _obj
- return result
-
-data FontMetricsGetDescentMethodInfo
-instance (signature ~ (m Int32), MonadIO m) => MethodInfo FontMetricsGetDescentMethodInfo FontMetrics signature where
- overloadedMethod _ = fontMetricsGetDescent
-
--- method FontMetrics::get_strikethrough_position
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TInt)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_metrics_get_strikethrough_position" pango_font_metrics_get_strikethrough_position ::
- Ptr FontMetrics -> -- _obj : TInterface "Pango" "FontMetrics"
- IO Int32
-
-
-fontMetricsGetStrikethroughPosition ::
- (MonadIO m) =>
- FontMetrics -- _obj
- -> m Int32 -- result
-fontMetricsGetStrikethroughPosition _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_font_metrics_get_strikethrough_position _obj'
- touchManagedPtr _obj
- return result
-
-data FontMetricsGetStrikethroughPositionMethodInfo
-instance (signature ~ (m Int32), MonadIO m) => MethodInfo FontMetricsGetStrikethroughPositionMethodInfo FontMetrics signature where
- overloadedMethod _ = fontMetricsGetStrikethroughPosition
-
--- method FontMetrics::get_strikethrough_thickness
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TInt)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_metrics_get_strikethrough_thickness" pango_font_metrics_get_strikethrough_thickness ::
- Ptr FontMetrics -> -- _obj : TInterface "Pango" "FontMetrics"
- IO Int32
-
-
-fontMetricsGetStrikethroughThickness ::
- (MonadIO m) =>
- FontMetrics -- _obj
- -> m Int32 -- result
-fontMetricsGetStrikethroughThickness _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_font_metrics_get_strikethrough_thickness _obj'
- touchManagedPtr _obj
- return result
-
-data FontMetricsGetStrikethroughThicknessMethodInfo
-instance (signature ~ (m Int32), MonadIO m) => MethodInfo FontMetricsGetStrikethroughThicknessMethodInfo FontMetrics signature where
- overloadedMethod _ = fontMetricsGetStrikethroughThickness
-
--- method FontMetrics::get_underline_position
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TInt)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_metrics_get_underline_position" pango_font_metrics_get_underline_position ::
- Ptr FontMetrics -> -- _obj : TInterface "Pango" "FontMetrics"
- IO Int32
-
-
-fontMetricsGetUnderlinePosition ::
- (MonadIO m) =>
- FontMetrics -- _obj
- -> m Int32 -- result
-fontMetricsGetUnderlinePosition _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_font_metrics_get_underline_position _obj'
- touchManagedPtr _obj
- return result
-
-data FontMetricsGetUnderlinePositionMethodInfo
-instance (signature ~ (m Int32), MonadIO m) => MethodInfo FontMetricsGetUnderlinePositionMethodInfo FontMetrics signature where
- overloadedMethod _ = fontMetricsGetUnderlinePosition
-
--- method FontMetrics::get_underline_thickness
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TInt)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_metrics_get_underline_thickness" pango_font_metrics_get_underline_thickness ::
- Ptr FontMetrics -> -- _obj : TInterface "Pango" "FontMetrics"
- IO Int32
-
-
-fontMetricsGetUnderlineThickness ::
- (MonadIO m) =>
- FontMetrics -- _obj
- -> m Int32 -- result
-fontMetricsGetUnderlineThickness _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_font_metrics_get_underline_thickness _obj'
- touchManagedPtr _obj
- return result
-
-data FontMetricsGetUnderlineThicknessMethodInfo
-instance (signature ~ (m Int32), MonadIO m) => MethodInfo FontMetricsGetUnderlineThicknessMethodInfo FontMetrics signature where
- overloadedMethod _ = fontMetricsGetUnderlineThickness
-
--- method FontMetrics::ref
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "FontMetrics")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_metrics_ref" pango_font_metrics_ref ::
- Ptr FontMetrics -> -- _obj : TInterface "Pango" "FontMetrics"
- IO (Ptr FontMetrics)
-
-
-fontMetricsRef ::
- (MonadIO m) =>
- FontMetrics -- _obj
- -> m (Maybe FontMetrics) -- result
-fontMetricsRef _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_font_metrics_ref _obj'
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (wrapBoxed FontMetrics) result'
- return result''
- touchManagedPtr _obj
- return maybeResult
-
-data FontMetricsRefMethodInfo
-instance (signature ~ (m (Maybe FontMetrics)), MonadIO m) => MethodInfo FontMetricsRefMethodInfo FontMetrics signature where
- overloadedMethod _ = fontMetricsRef
-
--- method FontMetrics::unref
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "FontMetrics", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_font_metrics_unref" pango_font_metrics_unref ::
- Ptr FontMetrics -> -- _obj : TInterface "Pango" "FontMetrics"
- IO ()
-
-
-fontMetricsUnref ::
- (MonadIO m) =>
- FontMetrics -- _obj
- -> m () -- result
-fontMetricsUnref _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- pango_font_metrics_unref _obj'
- touchManagedPtr _obj
- return ()
-
-data FontMetricsUnrefMethodInfo
-instance (signature ~ (m ()), MonadIO m) => MethodInfo FontMetricsUnrefMethodInfo FontMetrics signature where
- overloadedMethod _ = fontMetricsUnref
-
-type family ResolveFontMetricsMethod (t :: Symbol) (o :: *) :: * where
- ResolveFontMetricsMethod "ref" o = FontMetricsRefMethodInfo
- ResolveFontMetricsMethod "unref" o = FontMetricsUnrefMethodInfo
- ResolveFontMetricsMethod "getApproximateCharWidth" o = FontMetricsGetApproximateCharWidthMethodInfo
- ResolveFontMetricsMethod "getApproximateDigitWidth" o = FontMetricsGetApproximateDigitWidthMethodInfo
- ResolveFontMetricsMethod "getAscent" o = FontMetricsGetAscentMethodInfo
- ResolveFontMetricsMethod "getDescent" o = FontMetricsGetDescentMethodInfo
- ResolveFontMetricsMethod "getStrikethroughPosition" o = FontMetricsGetStrikethroughPositionMethodInfo
- ResolveFontMetricsMethod "getStrikethroughThickness" o = FontMetricsGetStrikethroughThicknessMethodInfo
- ResolveFontMetricsMethod "getUnderlinePosition" o = FontMetricsGetUnderlinePositionMethodInfo
- ResolveFontMetricsMethod "getUnderlineThickness" o = FontMetricsGetUnderlineThicknessMethodInfo
- ResolveFontMetricsMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveFontMetricsMethod t FontMetrics, MethodInfo info FontMetrics p) => IsLabelProxy t (FontMetrics -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveFontMetricsMethod t FontMetrics, MethodInfo info FontMetrics p) => IsLabel t (FontMetrics -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/FontMetrics.hs-boot b/GI/Pango/Structs/FontMetrics.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/FontMetrics.hs-boot
+++ /dev/null
@@ -1,21 +0,0 @@
-module GI.Pango.Structs.FontMetrics where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype FontMetrics = FontMetrics (ForeignPtr FontMetrics)
-instance BoxedObject FontMetrics where
-data FontMetricsGetApproximateCharWidthMethodInfo
-data FontMetricsGetApproximateDigitWidthMethodInfo
-data FontMetricsGetAscentMethodInfo
-data FontMetricsGetDescentMethodInfo
-data FontMetricsGetStrikethroughPositionMethodInfo
-data FontMetricsGetStrikethroughThicknessMethodInfo
-data FontMetricsGetUnderlinePositionMethodInfo
-data FontMetricsGetUnderlineThicknessMethodInfo
-data FontMetricsRefMethodInfo
-data FontMetricsUnrefMethodInfo
diff --git a/GI/Pango/Structs/GlyphGeometry.hs b/GI/Pango/Structs/GlyphGeometry.hs
deleted file mode 100644
--- a/GI/Pango/Structs/GlyphGeometry.hs
+++ /dev/null
@@ -1,164 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-The #PangoGlyphGeometry structure contains width and positioning
-information for a single glyph.
--}
-
-module GI.Pango.Structs.GlyphGeometry
- (
-
--- * Exported types
- GlyphGeometry(..) ,
- newZeroGlyphGeometry ,
- noGlyphGeometry ,
-
-
- -- * Properties
--- ** Width
- glyphGeometryReadWidth ,
- glyphGeometryWidth ,
- glyphGeometryWriteWidth ,
-
-
--- ** XOffset
- glyphGeometryReadXOffset ,
- glyphGeometryWriteXOffset ,
- glyphGeometryXOffset ,
-
-
--- ** YOffset
- glyphGeometryReadYOffset ,
- glyphGeometryWriteYOffset ,
- glyphGeometryYOffset ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype GlyphGeometry = GlyphGeometry (ForeignPtr GlyphGeometry)
-instance WrappedPtr GlyphGeometry where
- wrappedPtrCalloc = callocBytes 12
- wrappedPtrCopy = copyPtr 12
- wrappedPtrFree = Just ptr_to_g_free
-
--- | Construct a `GlyphGeometry` struct initialized to zero.
-newZeroGlyphGeometry :: MonadIO m => m GlyphGeometry
-newZeroGlyphGeometry = liftIO $ wrappedPtrCalloc >>= wrapPtr GlyphGeometry
-
-instance tag ~ 'AttrSet => Constructible GlyphGeometry tag where
- new _ attrs = do
- o <- newZeroGlyphGeometry
- GI.Attributes.set o attrs
- return o
-
-
-noGlyphGeometry :: Maybe GlyphGeometry
-noGlyphGeometry = Nothing
-
-glyphGeometryReadWidth :: MonadIO m => GlyphGeometry -> m Int32
-glyphGeometryReadWidth s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 0) :: IO Int32
- return val
-
-glyphGeometryWriteWidth :: MonadIO m => GlyphGeometry -> Int32 -> m ()
-glyphGeometryWriteWidth s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (val :: Int32)
-
-data GlyphGeometryWidthFieldInfo
-instance AttrInfo GlyphGeometryWidthFieldInfo where
- type AttrAllowedOps GlyphGeometryWidthFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint GlyphGeometryWidthFieldInfo = (~) Int32
- type AttrBaseTypeConstraint GlyphGeometryWidthFieldInfo = (~) GlyphGeometry
- type AttrGetType GlyphGeometryWidthFieldInfo = Int32
- type AttrLabel GlyphGeometryWidthFieldInfo = "width"
- attrGet _ = glyphGeometryReadWidth
- attrSet _ = glyphGeometryWriteWidth
- attrConstruct = undefined
- attrClear _ = undefined
-
-glyphGeometryWidth :: AttrLabelProxy "width"
-glyphGeometryWidth = AttrLabelProxy
-
-
-glyphGeometryReadXOffset :: MonadIO m => GlyphGeometry -> m Int32
-glyphGeometryReadXOffset s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 4) :: IO Int32
- return val
-
-glyphGeometryWriteXOffset :: MonadIO m => GlyphGeometry -> Int32 -> m ()
-glyphGeometryWriteXOffset s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 4) (val :: Int32)
-
-data GlyphGeometryXOffsetFieldInfo
-instance AttrInfo GlyphGeometryXOffsetFieldInfo where
- type AttrAllowedOps GlyphGeometryXOffsetFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint GlyphGeometryXOffsetFieldInfo = (~) Int32
- type AttrBaseTypeConstraint GlyphGeometryXOffsetFieldInfo = (~) GlyphGeometry
- type AttrGetType GlyphGeometryXOffsetFieldInfo = Int32
- type AttrLabel GlyphGeometryXOffsetFieldInfo = "x_offset"
- attrGet _ = glyphGeometryReadXOffset
- attrSet _ = glyphGeometryWriteXOffset
- attrConstruct = undefined
- attrClear _ = undefined
-
-glyphGeometryXOffset :: AttrLabelProxy "xOffset"
-glyphGeometryXOffset = AttrLabelProxy
-
-
-glyphGeometryReadYOffset :: MonadIO m => GlyphGeometry -> m Int32
-glyphGeometryReadYOffset s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 8) :: IO Int32
- return val
-
-glyphGeometryWriteYOffset :: MonadIO m => GlyphGeometry -> Int32 -> m ()
-glyphGeometryWriteYOffset s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 8) (val :: Int32)
-
-data GlyphGeometryYOffsetFieldInfo
-instance AttrInfo GlyphGeometryYOffsetFieldInfo where
- type AttrAllowedOps GlyphGeometryYOffsetFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint GlyphGeometryYOffsetFieldInfo = (~) Int32
- type AttrBaseTypeConstraint GlyphGeometryYOffsetFieldInfo = (~) GlyphGeometry
- type AttrGetType GlyphGeometryYOffsetFieldInfo = Int32
- type AttrLabel GlyphGeometryYOffsetFieldInfo = "y_offset"
- attrGet _ = glyphGeometryReadYOffset
- attrSet _ = glyphGeometryWriteYOffset
- attrConstruct = undefined
- attrClear _ = undefined
-
-glyphGeometryYOffset :: AttrLabelProxy "yOffset"
-glyphGeometryYOffset = AttrLabelProxy
-
-
-
-type instance AttributeList GlyphGeometry = GlyphGeometryAttributeList
-type GlyphGeometryAttributeList = ('[ '("width", GlyphGeometryWidthFieldInfo), '("xOffset", GlyphGeometryXOffsetFieldInfo), '("yOffset", GlyphGeometryYOffsetFieldInfo)] :: [(Symbol, *)])
-
-type family ResolveGlyphGeometryMethod (t :: Symbol) (o :: *) :: * where
- ResolveGlyphGeometryMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveGlyphGeometryMethod t GlyphGeometry, MethodInfo info GlyphGeometry p) => IsLabelProxy t (GlyphGeometry -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveGlyphGeometryMethod t GlyphGeometry, MethodInfo info GlyphGeometry p) => IsLabel t (GlyphGeometry -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/GlyphGeometry.hs-boot b/GI/Pango/Structs/GlyphGeometry.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/GlyphGeometry.hs-boot
+++ /dev/null
@@ -1,11 +0,0 @@
-module GI.Pango.Structs.GlyphGeometry where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype GlyphGeometry = GlyphGeometry (ForeignPtr GlyphGeometry)
-instance WrappedPtr GlyphGeometry where
diff --git a/GI/Pango/Structs/GlyphInfo.hs b/GI/Pango/Structs/GlyphInfo.hs
deleted file mode 100644
--- a/GI/Pango/Structs/GlyphInfo.hs
+++ /dev/null
@@ -1,181 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-The #PangoGlyphInfo structure represents a single glyph together with
-positioning information and visual attributes.
-It contains the following fields.
--}
-
-module GI.Pango.Structs.GlyphInfo
- (
-
--- * Exported types
- GlyphInfo(..) ,
- newZeroGlyphInfo ,
- noGlyphInfo ,
-
-
- -- * Properties
--- ** Attr
- glyphInfoAttr ,
- glyphInfoClearAttr ,
- glyphInfoReadAttr ,
- glyphInfoWriteAttr ,
-
-
--- ** Geometry
- glyphInfoClearGeometry ,
- glyphInfoGeometry ,
- glyphInfoReadGeometry ,
- glyphInfoWriteGeometry ,
-
-
--- ** Glyph
- glyphInfoGlyph ,
- glyphInfoReadGlyph ,
- glyphInfoWriteGlyph ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype GlyphInfo = GlyphInfo (ForeignPtr GlyphInfo)
-instance WrappedPtr GlyphInfo where
- wrappedPtrCalloc = callocBytes 20
- wrappedPtrCopy = copyPtr 20
- wrappedPtrFree = Just ptr_to_g_free
-
--- | Construct a `GlyphInfo` struct initialized to zero.
-newZeroGlyphInfo :: MonadIO m => m GlyphInfo
-newZeroGlyphInfo = liftIO $ wrappedPtrCalloc >>= wrapPtr GlyphInfo
-
-instance tag ~ 'AttrSet => Constructible GlyphInfo tag where
- new _ attrs = do
- o <- newZeroGlyphInfo
- GI.Attributes.set o attrs
- return o
-
-
-noGlyphInfo :: Maybe GlyphInfo
-noGlyphInfo = Nothing
-
-glyphInfoReadGlyph :: MonadIO m => GlyphInfo -> m Word32
-glyphInfoReadGlyph s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 0) :: IO Word32
- return val
-
-glyphInfoWriteGlyph :: MonadIO m => GlyphInfo -> Word32 -> m ()
-glyphInfoWriteGlyph s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (val :: Word32)
-
-data GlyphInfoGlyphFieldInfo
-instance AttrInfo GlyphInfoGlyphFieldInfo where
- type AttrAllowedOps GlyphInfoGlyphFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint GlyphInfoGlyphFieldInfo = (~) Word32
- type AttrBaseTypeConstraint GlyphInfoGlyphFieldInfo = (~) GlyphInfo
- type AttrGetType GlyphInfoGlyphFieldInfo = Word32
- type AttrLabel GlyphInfoGlyphFieldInfo = "glyph"
- attrGet _ = glyphInfoReadGlyph
- attrSet _ = glyphInfoWriteGlyph
- attrConstruct = undefined
- attrClear _ = undefined
-
-glyphInfoGlyph :: AttrLabelProxy "glyph"
-glyphInfoGlyph = AttrLabelProxy
-
-
-glyphInfoReadGeometry :: MonadIO m => GlyphInfo -> m (Maybe GlyphGeometry)
-glyphInfoReadGeometry s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 4) :: IO (Ptr GlyphGeometry)
- result <- convertIfNonNull val $ \val' -> do
- val'' <- (newPtr GlyphGeometry) val'
- return val''
- return result
-
-glyphInfoWriteGeometry :: MonadIO m => GlyphInfo -> Ptr GlyphGeometry -> m ()
-glyphInfoWriteGeometry s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 4) (val :: Ptr GlyphGeometry)
-
-glyphInfoClearGeometry :: MonadIO m => GlyphInfo -> m ()
-glyphInfoClearGeometry s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 4) (nullPtr :: Ptr GlyphGeometry)
-
-data GlyphInfoGeometryFieldInfo
-instance AttrInfo GlyphInfoGeometryFieldInfo where
- type AttrAllowedOps GlyphInfoGeometryFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint GlyphInfoGeometryFieldInfo = (~) (Ptr GlyphGeometry)
- type AttrBaseTypeConstraint GlyphInfoGeometryFieldInfo = (~) GlyphInfo
- type AttrGetType GlyphInfoGeometryFieldInfo = Maybe GlyphGeometry
- type AttrLabel GlyphInfoGeometryFieldInfo = "geometry"
- attrGet _ = glyphInfoReadGeometry
- attrSet _ = glyphInfoWriteGeometry
- attrConstruct = undefined
- attrClear _ = glyphInfoClearGeometry
-
-glyphInfoGeometry :: AttrLabelProxy "geometry"
-glyphInfoGeometry = AttrLabelProxy
-
-
-glyphInfoReadAttr :: MonadIO m => GlyphInfo -> m (Maybe GlyphVisAttr)
-glyphInfoReadAttr s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 16) :: IO (Ptr GlyphVisAttr)
- result <- convertIfNonNull val $ \val' -> do
- val'' <- (newPtr GlyphVisAttr) val'
- return val''
- return result
-
-glyphInfoWriteAttr :: MonadIO m => GlyphInfo -> Ptr GlyphVisAttr -> m ()
-glyphInfoWriteAttr s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 16) (val :: Ptr GlyphVisAttr)
-
-glyphInfoClearAttr :: MonadIO m => GlyphInfo -> m ()
-glyphInfoClearAttr s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 16) (nullPtr :: Ptr GlyphVisAttr)
-
-data GlyphInfoAttrFieldInfo
-instance AttrInfo GlyphInfoAttrFieldInfo where
- type AttrAllowedOps GlyphInfoAttrFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint GlyphInfoAttrFieldInfo = (~) (Ptr GlyphVisAttr)
- type AttrBaseTypeConstraint GlyphInfoAttrFieldInfo = (~) GlyphInfo
- type AttrGetType GlyphInfoAttrFieldInfo = Maybe GlyphVisAttr
- type AttrLabel GlyphInfoAttrFieldInfo = "attr"
- attrGet _ = glyphInfoReadAttr
- attrSet _ = glyphInfoWriteAttr
- attrConstruct = undefined
- attrClear _ = glyphInfoClearAttr
-
-glyphInfoAttr :: AttrLabelProxy "attr"
-glyphInfoAttr = AttrLabelProxy
-
-
-
-type instance AttributeList GlyphInfo = GlyphInfoAttributeList
-type GlyphInfoAttributeList = ('[ '("glyph", GlyphInfoGlyphFieldInfo), '("geometry", GlyphInfoGeometryFieldInfo), '("attr", GlyphInfoAttrFieldInfo)] :: [(Symbol, *)])
-
-type family ResolveGlyphInfoMethod (t :: Symbol) (o :: *) :: * where
- ResolveGlyphInfoMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveGlyphInfoMethod t GlyphInfo, MethodInfo info GlyphInfo p) => IsLabelProxy t (GlyphInfo -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveGlyphInfoMethod t GlyphInfo, MethodInfo info GlyphInfo p) => IsLabel t (GlyphInfo -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/GlyphInfo.hs-boot b/GI/Pango/Structs/GlyphInfo.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/GlyphInfo.hs-boot
+++ /dev/null
@@ -1,11 +0,0 @@
-module GI.Pango.Structs.GlyphInfo where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype GlyphInfo = GlyphInfo (ForeignPtr GlyphInfo)
-instance WrappedPtr GlyphInfo where
diff --git a/GI/Pango/Structs/GlyphItem.hs b/GI/Pango/Structs/GlyphItem.hs
deleted file mode 100644
--- a/GI/Pango/Structs/GlyphItem.hs
+++ /dev/null
@@ -1,390 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-A #PangoGlyphItem is a pair of a #PangoItem and the glyphs
-resulting from shaping the text corresponding to an item.
-As an example of the usage of #PangoGlyphItem, the results
-of shaping text with #PangoLayout is a list of #PangoLayoutLine,
-each of which contains a list of #PangoGlyphItem.
--}
-
-module GI.Pango.Structs.GlyphItem
- (
-
--- * Exported types
- GlyphItem(..) ,
- newZeroGlyphItem ,
- noGlyphItem ,
-
-
- -- * Methods
--- ** glyphItemApplyAttrs
- GlyphItemApplyAttrsMethodInfo ,
- glyphItemApplyAttrs ,
-
-
--- ** glyphItemCopy
- GlyphItemCopyMethodInfo ,
- glyphItemCopy ,
-
-
--- ** glyphItemFree
- GlyphItemFreeMethodInfo ,
- glyphItemFree ,
-
-
--- ** glyphItemGetLogicalWidths
- GlyphItemGetLogicalWidthsMethodInfo ,
- glyphItemGetLogicalWidths ,
-
-
--- ** glyphItemLetterSpace
- GlyphItemLetterSpaceMethodInfo ,
- glyphItemLetterSpace ,
-
-
--- ** glyphItemSplit
- GlyphItemSplitMethodInfo ,
- glyphItemSplit ,
-
-
-
-
- -- * Properties
--- ** Glyphs
- glyphItemClearGlyphs ,
- glyphItemGlyphs ,
- glyphItemReadGlyphs ,
- glyphItemWriteGlyphs ,
-
-
--- ** Item
- glyphItemClearItem ,
- glyphItemItem ,
- glyphItemReadItem ,
- glyphItemWriteItem ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype GlyphItem = GlyphItem (ForeignPtr GlyphItem)
-foreign import ccall "pango_glyph_item_get_type" c_pango_glyph_item_get_type ::
- IO GType
-
-instance BoxedObject GlyphItem where
- boxedType _ = c_pango_glyph_item_get_type
-
--- | Construct a `GlyphItem` struct initialized to zero.
-newZeroGlyphItem :: MonadIO m => m GlyphItem
-newZeroGlyphItem = liftIO $ callocBoxedBytes 16 >>= wrapBoxed GlyphItem
-
-instance tag ~ 'AttrSet => Constructible GlyphItem tag where
- new _ attrs = do
- o <- newZeroGlyphItem
- GI.Attributes.set o attrs
- return o
-
-
-noGlyphItem :: Maybe GlyphItem
-noGlyphItem = Nothing
-
-glyphItemReadItem :: MonadIO m => GlyphItem -> m (Maybe Item)
-glyphItemReadItem s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 0) :: IO (Ptr Item)
- result <- convertIfNonNull val $ \val' -> do
- val'' <- (newBoxed Item) val'
- return val''
- return result
-
-glyphItemWriteItem :: MonadIO m => GlyphItem -> Ptr Item -> m ()
-glyphItemWriteItem s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (val :: Ptr Item)
-
-glyphItemClearItem :: MonadIO m => GlyphItem -> m ()
-glyphItemClearItem s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (nullPtr :: Ptr Item)
-
-data GlyphItemItemFieldInfo
-instance AttrInfo GlyphItemItemFieldInfo where
- type AttrAllowedOps GlyphItemItemFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint GlyphItemItemFieldInfo = (~) (Ptr Item)
- type AttrBaseTypeConstraint GlyphItemItemFieldInfo = (~) GlyphItem
- type AttrGetType GlyphItemItemFieldInfo = Maybe Item
- type AttrLabel GlyphItemItemFieldInfo = "item"
- attrGet _ = glyphItemReadItem
- attrSet _ = glyphItemWriteItem
- attrConstruct = undefined
- attrClear _ = glyphItemClearItem
-
-glyphItemItem :: AttrLabelProxy "item"
-glyphItemItem = AttrLabelProxy
-
-
-glyphItemReadGlyphs :: MonadIO m => GlyphItem -> m (Maybe GlyphString)
-glyphItemReadGlyphs s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 8) :: IO (Ptr GlyphString)
- result <- convertIfNonNull val $ \val' -> do
- val'' <- (newBoxed GlyphString) val'
- return val''
- return result
-
-glyphItemWriteGlyphs :: MonadIO m => GlyphItem -> Ptr GlyphString -> m ()
-glyphItemWriteGlyphs s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 8) (val :: Ptr GlyphString)
-
-glyphItemClearGlyphs :: MonadIO m => GlyphItem -> m ()
-glyphItemClearGlyphs s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 8) (nullPtr :: Ptr GlyphString)
-
-data GlyphItemGlyphsFieldInfo
-instance AttrInfo GlyphItemGlyphsFieldInfo where
- type AttrAllowedOps GlyphItemGlyphsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint GlyphItemGlyphsFieldInfo = (~) (Ptr GlyphString)
- type AttrBaseTypeConstraint GlyphItemGlyphsFieldInfo = (~) GlyphItem
- type AttrGetType GlyphItemGlyphsFieldInfo = Maybe GlyphString
- type AttrLabel GlyphItemGlyphsFieldInfo = "glyphs"
- attrGet _ = glyphItemReadGlyphs
- attrSet _ = glyphItemWriteGlyphs
- attrConstruct = undefined
- attrClear _ = glyphItemClearGlyphs
-
-glyphItemGlyphs :: AttrLabelProxy "glyphs"
-glyphItemGlyphs = AttrLabelProxy
-
-
-
-type instance AttributeList GlyphItem = GlyphItemAttributeList
-type GlyphItemAttributeList = ('[ '("item", GlyphItemItemFieldInfo), '("glyphs", GlyphItemGlyphsFieldInfo)] :: [(Symbol, *)])
-
--- method GlyphItem::apply_attrs
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "list", argType = TInterface "Pango" "AttrList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TGSList (TInterface "Pango" "GlyphItem"))
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_glyph_item_apply_attrs" pango_glyph_item_apply_attrs ::
- Ptr GlyphItem -> -- _obj : TInterface "Pango" "GlyphItem"
- CString -> -- text : TBasicType TUTF8
- Ptr AttrList -> -- list : TInterface "Pango" "AttrList"
- IO (Ptr (GSList (Ptr GlyphItem)))
-
-
-glyphItemApplyAttrs ::
- (MonadIO m) =>
- GlyphItem -- _obj
- -> T.Text -- text
- -> AttrList -- list
- -> m [GlyphItem] -- result
-glyphItemApplyAttrs _obj text list = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- text' <- textToCString text
- let list' = unsafeManagedPtrGetPtr list
- result <- pango_glyph_item_apply_attrs _obj' text' list'
- result' <- unpackGSList result
- result'' <- mapM (wrapBoxed GlyphItem) result'
- g_slist_free result
- touchManagedPtr _obj
- touchManagedPtr list
- freeMem text'
- return result''
-
-data GlyphItemApplyAttrsMethodInfo
-instance (signature ~ (T.Text -> AttrList -> m [GlyphItem]), MonadIO m) => MethodInfo GlyphItemApplyAttrsMethodInfo GlyphItem signature where
- overloadedMethod _ = glyphItemApplyAttrs
-
--- method GlyphItem::copy
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "GlyphItem")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_glyph_item_copy" pango_glyph_item_copy ::
- Ptr GlyphItem -> -- _obj : TInterface "Pango" "GlyphItem"
- IO (Ptr GlyphItem)
-
-
-glyphItemCopy ::
- (MonadIO m) =>
- GlyphItem -- _obj
- -> m (Maybe GlyphItem) -- result
-glyphItemCopy _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_glyph_item_copy _obj'
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (wrapBoxed GlyphItem) result'
- return result''
- touchManagedPtr _obj
- return maybeResult
-
-data GlyphItemCopyMethodInfo
-instance (signature ~ (m (Maybe GlyphItem)), MonadIO m) => MethodInfo GlyphItemCopyMethodInfo GlyphItem signature where
- overloadedMethod _ = glyphItemCopy
-
--- method GlyphItem::free
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_glyph_item_free" pango_glyph_item_free ::
- Ptr GlyphItem -> -- _obj : TInterface "Pango" "GlyphItem"
- IO ()
-
-
-glyphItemFree ::
- (MonadIO m) =>
- GlyphItem -- _obj
- -> m () -- result
-glyphItemFree _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- pango_glyph_item_free _obj'
- touchManagedPtr _obj
- return ()
-
-data GlyphItemFreeMethodInfo
-instance (signature ~ (m ()), MonadIO m) => MethodInfo GlyphItemFreeMethodInfo GlyphItem signature where
- overloadedMethod _ = glyphItemFree
-
--- method GlyphItem::get_logical_widths
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "logical_widths", argType = TCArray False (-1) (-1) (TBasicType TInt), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_glyph_item_get_logical_widths" pango_glyph_item_get_logical_widths ::
- Ptr GlyphItem -> -- _obj : TInterface "Pango" "GlyphItem"
- CString -> -- text : TBasicType TUTF8
- Ptr Int32 -> -- logical_widths : TCArray False (-1) (-1) (TBasicType TInt)
- IO ()
-
-
-glyphItemGetLogicalWidths ::
- (MonadIO m) =>
- GlyphItem -- _obj
- -> T.Text -- text
- -> Ptr Int32 -- logicalWidths
- -> m () -- result
-glyphItemGetLogicalWidths _obj text logicalWidths = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- text' <- textToCString text
- pango_glyph_item_get_logical_widths _obj' text' logicalWidths
- touchManagedPtr _obj
- freeMem text'
- return ()
-
-data GlyphItemGetLogicalWidthsMethodInfo
-instance (signature ~ (T.Text -> Ptr Int32 -> m ()), MonadIO m) => MethodInfo GlyphItemGetLogicalWidthsMethodInfo GlyphItem signature where
- overloadedMethod _ = glyphItemGetLogicalWidths
-
--- method GlyphItem::letter_space
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "log_attrs", argType = TCArray False (-1) (-1) (TInterface "Pango" "LogAttr"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "letter_spacing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_glyph_item_letter_space" pango_glyph_item_letter_space ::
- Ptr GlyphItem -> -- _obj : TInterface "Pango" "GlyphItem"
- CString -> -- text : TBasicType TUTF8
- Ptr (Ptr LogAttr) -> -- log_attrs : TCArray False (-1) (-1) (TInterface "Pango" "LogAttr")
- Int32 -> -- letter_spacing : TBasicType TInt
- IO ()
-
-
-glyphItemLetterSpace ::
- (MonadIO m) =>
- GlyphItem -- _obj
- -> T.Text -- text
- -> Ptr (Ptr LogAttr) -- logAttrs
- -> Int32 -- letterSpacing
- -> m () -- result
-glyphItemLetterSpace _obj text logAttrs letterSpacing = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- text' <- textToCString text
- pango_glyph_item_letter_space _obj' text' logAttrs letterSpacing
- touchManagedPtr _obj
- freeMem text'
- return ()
-
-data GlyphItemLetterSpaceMethodInfo
-instance (signature ~ (T.Text -> Ptr (Ptr LogAttr) -> Int32 -> m ()), MonadIO m) => MethodInfo GlyphItemLetterSpaceMethodInfo GlyphItem signature where
- overloadedMethod _ = glyphItemLetterSpace
-
--- method GlyphItem::split
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "split_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "GlyphItem")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_glyph_item_split" pango_glyph_item_split ::
- Ptr GlyphItem -> -- _obj : TInterface "Pango" "GlyphItem"
- CString -> -- text : TBasicType TUTF8
- Int32 -> -- split_index : TBasicType TInt
- IO (Ptr GlyphItem)
-
-
-glyphItemSplit ::
- (MonadIO m) =>
- GlyphItem -- _obj
- -> T.Text -- text
- -> Int32 -- splitIndex
- -> m GlyphItem -- result
-glyphItemSplit _obj text splitIndex = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- text' <- textToCString text
- result <- pango_glyph_item_split _obj' text' splitIndex
- checkUnexpectedReturnNULL "pango_glyph_item_split" result
- result' <- (wrapBoxed GlyphItem) result
- touchManagedPtr _obj
- freeMem text'
- return result'
-
-data GlyphItemSplitMethodInfo
-instance (signature ~ (T.Text -> Int32 -> m GlyphItem), MonadIO m) => MethodInfo GlyphItemSplitMethodInfo GlyphItem signature where
- overloadedMethod _ = glyphItemSplit
-
-type family ResolveGlyphItemMethod (t :: Symbol) (o :: *) :: * where
- ResolveGlyphItemMethod "applyAttrs" o = GlyphItemApplyAttrsMethodInfo
- ResolveGlyphItemMethod "copy" o = GlyphItemCopyMethodInfo
- ResolveGlyphItemMethod "free" o = GlyphItemFreeMethodInfo
- ResolveGlyphItemMethod "letterSpace" o = GlyphItemLetterSpaceMethodInfo
- ResolveGlyphItemMethod "split" o = GlyphItemSplitMethodInfo
- ResolveGlyphItemMethod "getLogicalWidths" o = GlyphItemGetLogicalWidthsMethodInfo
- ResolveGlyphItemMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveGlyphItemMethod t GlyphItem, MethodInfo info GlyphItem p) => IsLabelProxy t (GlyphItem -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveGlyphItemMethod t GlyphItem, MethodInfo info GlyphItem p) => IsLabel t (GlyphItem -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/GlyphItem.hs-boot b/GI/Pango/Structs/GlyphItem.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/GlyphItem.hs-boot
+++ /dev/null
@@ -1,17 +0,0 @@
-module GI.Pango.Structs.GlyphItem where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype GlyphItem = GlyphItem (ForeignPtr GlyphItem)
-instance BoxedObject GlyphItem where
-data GlyphItemApplyAttrsMethodInfo
-data GlyphItemCopyMethodInfo
-data GlyphItemFreeMethodInfo
-data GlyphItemGetLogicalWidthsMethodInfo
-data GlyphItemLetterSpaceMethodInfo
-data GlyphItemSplitMethodInfo
diff --git a/GI/Pango/Structs/GlyphItemIter.hs b/GI/Pango/Structs/GlyphItemIter.hs
deleted file mode 100644
--- a/GI/Pango/Structs/GlyphItemIter.hs
+++ /dev/null
@@ -1,595 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-A #PangoGlyphItemIter is an iterator over the clusters in a
-#PangoGlyphItem. The forward direction of the
-iterator is the logical direction of text. That is, with increasing
-@start_index and @start_char values. If @glyph_item is right-to-left
-(that is, if @glyph_item->item->analysis.level is odd),
-then @start_glyph decreases as the iterator moves forward. Moreover,
-in right-to-left cases, @start_glyph is greater than @end_glyph.
-
-An iterator should be initialized using either of
-pango_glyph_item_iter_init_start() and
-pango_glyph_item_iter_init_end(), for forward and backward iteration
-respectively, and walked over using any desired mixture of
-pango_glyph_item_iter_next_cluster() and
-pango_glyph_item_iter_prev_cluster(). A common idiom for doing a
-forward iteration over the clusters is:
-
-PangoGlyphItemIter cluster_iter;
-gboolean have_cluster;
-
-for (have_cluster = pango_glyph_item_iter_init_start (&cluster_iter,
- glyph_item, text);
- have_cluster;
- have_cluster = pango_glyph_item_iter_next_cluster (&cluster_iter))
-{
- ...
-}
-
-
-Note that @text is the start of the text for layout, which is then
-indexed by @glyph_item->item->offset to get to the
-text of @glyph_item. The @start_index and @end_index values can directly
-index into @text. The @start_glyph, @end_glyph, @start_char, and @end_char
-values however are zero-based for the @glyph_item. For each cluster, the
-item pointed at by the start variables is included in the cluster while
-the one pointed at by end variables is not.
-
-None of the members of a #PangoGlyphItemIter should be modified manually.
--}
-
-module GI.Pango.Structs.GlyphItemIter
- (
-
--- * Exported types
- GlyphItemIter(..) ,
- newZeroGlyphItemIter ,
- noGlyphItemIter ,
-
-
- -- * Methods
--- ** glyphItemIterCopy
- GlyphItemIterCopyMethodInfo ,
- glyphItemIterCopy ,
-
-
--- ** glyphItemIterFree
- GlyphItemIterFreeMethodInfo ,
- glyphItemIterFree ,
-
-
--- ** glyphItemIterInitEnd
- GlyphItemIterInitEndMethodInfo ,
- glyphItemIterInitEnd ,
-
-
--- ** glyphItemIterInitStart
- GlyphItemIterInitStartMethodInfo ,
- glyphItemIterInitStart ,
-
-
--- ** glyphItemIterNextCluster
- GlyphItemIterNextClusterMethodInfo ,
- glyphItemIterNextCluster ,
-
-
--- ** glyphItemIterPrevCluster
- GlyphItemIterPrevClusterMethodInfo ,
- glyphItemIterPrevCluster ,
-
-
-
-
- -- * Properties
--- ** EndChar
- glyphItemIterEndChar ,
- glyphItemIterReadEndChar ,
- glyphItemIterWriteEndChar ,
-
-
--- ** EndGlyph
- glyphItemIterEndGlyph ,
- glyphItemIterReadEndGlyph ,
- glyphItemIterWriteEndGlyph ,
-
-
--- ** EndIndex
- glyphItemIterEndIndex ,
- glyphItemIterReadEndIndex ,
- glyphItemIterWriteEndIndex ,
-
-
--- ** GlyphItem
- glyphItemIterClearGlyphItem ,
- glyphItemIterGlyphItem ,
- glyphItemIterReadGlyphItem ,
- glyphItemIterWriteGlyphItem ,
-
-
--- ** StartChar
- glyphItemIterReadStartChar ,
- glyphItemIterStartChar ,
- glyphItemIterWriteStartChar ,
-
-
--- ** StartGlyph
- glyphItemIterReadStartGlyph ,
- glyphItemIterStartGlyph ,
- glyphItemIterWriteStartGlyph ,
-
-
--- ** StartIndex
- glyphItemIterReadStartIndex ,
- glyphItemIterStartIndex ,
- glyphItemIterWriteStartIndex ,
-
-
--- ** Text
- glyphItemIterClearText ,
- glyphItemIterReadText ,
- glyphItemIterText ,
- glyphItemIterWriteText ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype GlyphItemIter = GlyphItemIter (ForeignPtr GlyphItemIter)
-foreign import ccall "pango_glyph_item_iter_get_type" c_pango_glyph_item_iter_get_type ::
- IO GType
-
-instance BoxedObject GlyphItemIter where
- boxedType _ = c_pango_glyph_item_iter_get_type
-
--- | Construct a `GlyphItemIter` struct initialized to zero.
-newZeroGlyphItemIter :: MonadIO m => m GlyphItemIter
-newZeroGlyphItemIter = liftIO $ callocBoxedBytes 40 >>= wrapBoxed GlyphItemIter
-
-instance tag ~ 'AttrSet => Constructible GlyphItemIter tag where
- new _ attrs = do
- o <- newZeroGlyphItemIter
- GI.Attributes.set o attrs
- return o
-
-
-noGlyphItemIter :: Maybe GlyphItemIter
-noGlyphItemIter = Nothing
-
-glyphItemIterReadGlyphItem :: MonadIO m => GlyphItemIter -> m (Maybe GlyphItem)
-glyphItemIterReadGlyphItem s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 0) :: IO (Ptr GlyphItem)
- result <- convertIfNonNull val $ \val' -> do
- val'' <- (newBoxed GlyphItem) val'
- return val''
- return result
-
-glyphItemIterWriteGlyphItem :: MonadIO m => GlyphItemIter -> Ptr GlyphItem -> m ()
-glyphItemIterWriteGlyphItem s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (val :: Ptr GlyphItem)
-
-glyphItemIterClearGlyphItem :: MonadIO m => GlyphItemIter -> m ()
-glyphItemIterClearGlyphItem s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (nullPtr :: Ptr GlyphItem)
-
-data GlyphItemIterGlyphItemFieldInfo
-instance AttrInfo GlyphItemIterGlyphItemFieldInfo where
- type AttrAllowedOps GlyphItemIterGlyphItemFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint GlyphItemIterGlyphItemFieldInfo = (~) (Ptr GlyphItem)
- type AttrBaseTypeConstraint GlyphItemIterGlyphItemFieldInfo = (~) GlyphItemIter
- type AttrGetType GlyphItemIterGlyphItemFieldInfo = Maybe GlyphItem
- type AttrLabel GlyphItemIterGlyphItemFieldInfo = "glyph_item"
- attrGet _ = glyphItemIterReadGlyphItem
- attrSet _ = glyphItemIterWriteGlyphItem
- attrConstruct = undefined
- attrClear _ = glyphItemIterClearGlyphItem
-
-glyphItemIterGlyphItem :: AttrLabelProxy "glyphItem"
-glyphItemIterGlyphItem = AttrLabelProxy
-
-
-glyphItemIterReadText :: MonadIO m => GlyphItemIter -> m (Maybe T.Text)
-glyphItemIterReadText s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 8) :: IO CString
- result <- convertIfNonNull val $ \val' -> do
- val'' <- cstringToText val'
- return val''
- return result
-
-glyphItemIterWriteText :: MonadIO m => GlyphItemIter -> CString -> m ()
-glyphItemIterWriteText s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 8) (val :: CString)
-
-glyphItemIterClearText :: MonadIO m => GlyphItemIter -> m ()
-glyphItemIterClearText s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 8) (nullPtr :: CString)
-
-data GlyphItemIterTextFieldInfo
-instance AttrInfo GlyphItemIterTextFieldInfo where
- type AttrAllowedOps GlyphItemIterTextFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint GlyphItemIterTextFieldInfo = (~) CString
- type AttrBaseTypeConstraint GlyphItemIterTextFieldInfo = (~) GlyphItemIter
- type AttrGetType GlyphItemIterTextFieldInfo = Maybe T.Text
- type AttrLabel GlyphItemIterTextFieldInfo = "text"
- attrGet _ = glyphItemIterReadText
- attrSet _ = glyphItemIterWriteText
- attrConstruct = undefined
- attrClear _ = glyphItemIterClearText
-
-glyphItemIterText :: AttrLabelProxy "text"
-glyphItemIterText = AttrLabelProxy
-
-
-glyphItemIterReadStartGlyph :: MonadIO m => GlyphItemIter -> m Int32
-glyphItemIterReadStartGlyph s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 16) :: IO Int32
- return val
-
-glyphItemIterWriteStartGlyph :: MonadIO m => GlyphItemIter -> Int32 -> m ()
-glyphItemIterWriteStartGlyph s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 16) (val :: Int32)
-
-data GlyphItemIterStartGlyphFieldInfo
-instance AttrInfo GlyphItemIterStartGlyphFieldInfo where
- type AttrAllowedOps GlyphItemIterStartGlyphFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint GlyphItemIterStartGlyphFieldInfo = (~) Int32
- type AttrBaseTypeConstraint GlyphItemIterStartGlyphFieldInfo = (~) GlyphItemIter
- type AttrGetType GlyphItemIterStartGlyphFieldInfo = Int32
- type AttrLabel GlyphItemIterStartGlyphFieldInfo = "start_glyph"
- attrGet _ = glyphItemIterReadStartGlyph
- attrSet _ = glyphItemIterWriteStartGlyph
- attrConstruct = undefined
- attrClear _ = undefined
-
-glyphItemIterStartGlyph :: AttrLabelProxy "startGlyph"
-glyphItemIterStartGlyph = AttrLabelProxy
-
-
-glyphItemIterReadStartIndex :: MonadIO m => GlyphItemIter -> m Int32
-glyphItemIterReadStartIndex s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 20) :: IO Int32
- return val
-
-glyphItemIterWriteStartIndex :: MonadIO m => GlyphItemIter -> Int32 -> m ()
-glyphItemIterWriteStartIndex s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 20) (val :: Int32)
-
-data GlyphItemIterStartIndexFieldInfo
-instance AttrInfo GlyphItemIterStartIndexFieldInfo where
- type AttrAllowedOps GlyphItemIterStartIndexFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint GlyphItemIterStartIndexFieldInfo = (~) Int32
- type AttrBaseTypeConstraint GlyphItemIterStartIndexFieldInfo = (~) GlyphItemIter
- type AttrGetType GlyphItemIterStartIndexFieldInfo = Int32
- type AttrLabel GlyphItemIterStartIndexFieldInfo = "start_index"
- attrGet _ = glyphItemIterReadStartIndex
- attrSet _ = glyphItemIterWriteStartIndex
- attrConstruct = undefined
- attrClear _ = undefined
-
-glyphItemIterStartIndex :: AttrLabelProxy "startIndex"
-glyphItemIterStartIndex = AttrLabelProxy
-
-
-glyphItemIterReadStartChar :: MonadIO m => GlyphItemIter -> m Int32
-glyphItemIterReadStartChar s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 24) :: IO Int32
- return val
-
-glyphItemIterWriteStartChar :: MonadIO m => GlyphItemIter -> Int32 -> m ()
-glyphItemIterWriteStartChar s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 24) (val :: Int32)
-
-data GlyphItemIterStartCharFieldInfo
-instance AttrInfo GlyphItemIterStartCharFieldInfo where
- type AttrAllowedOps GlyphItemIterStartCharFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint GlyphItemIterStartCharFieldInfo = (~) Int32
- type AttrBaseTypeConstraint GlyphItemIterStartCharFieldInfo = (~) GlyphItemIter
- type AttrGetType GlyphItemIterStartCharFieldInfo = Int32
- type AttrLabel GlyphItemIterStartCharFieldInfo = "start_char"
- attrGet _ = glyphItemIterReadStartChar
- attrSet _ = glyphItemIterWriteStartChar
- attrConstruct = undefined
- attrClear _ = undefined
-
-glyphItemIterStartChar :: AttrLabelProxy "startChar"
-glyphItemIterStartChar = AttrLabelProxy
-
-
-glyphItemIterReadEndGlyph :: MonadIO m => GlyphItemIter -> m Int32
-glyphItemIterReadEndGlyph s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 28) :: IO Int32
- return val
-
-glyphItemIterWriteEndGlyph :: MonadIO m => GlyphItemIter -> Int32 -> m ()
-glyphItemIterWriteEndGlyph s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 28) (val :: Int32)
-
-data GlyphItemIterEndGlyphFieldInfo
-instance AttrInfo GlyphItemIterEndGlyphFieldInfo where
- type AttrAllowedOps GlyphItemIterEndGlyphFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint GlyphItemIterEndGlyphFieldInfo = (~) Int32
- type AttrBaseTypeConstraint GlyphItemIterEndGlyphFieldInfo = (~) GlyphItemIter
- type AttrGetType GlyphItemIterEndGlyphFieldInfo = Int32
- type AttrLabel GlyphItemIterEndGlyphFieldInfo = "end_glyph"
- attrGet _ = glyphItemIterReadEndGlyph
- attrSet _ = glyphItemIterWriteEndGlyph
- attrConstruct = undefined
- attrClear _ = undefined
-
-glyphItemIterEndGlyph :: AttrLabelProxy "endGlyph"
-glyphItemIterEndGlyph = AttrLabelProxy
-
-
-glyphItemIterReadEndIndex :: MonadIO m => GlyphItemIter -> m Int32
-glyphItemIterReadEndIndex s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 32) :: IO Int32
- return val
-
-glyphItemIterWriteEndIndex :: MonadIO m => GlyphItemIter -> Int32 -> m ()
-glyphItemIterWriteEndIndex s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 32) (val :: Int32)
-
-data GlyphItemIterEndIndexFieldInfo
-instance AttrInfo GlyphItemIterEndIndexFieldInfo where
- type AttrAllowedOps GlyphItemIterEndIndexFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint GlyphItemIterEndIndexFieldInfo = (~) Int32
- type AttrBaseTypeConstraint GlyphItemIterEndIndexFieldInfo = (~) GlyphItemIter
- type AttrGetType GlyphItemIterEndIndexFieldInfo = Int32
- type AttrLabel GlyphItemIterEndIndexFieldInfo = "end_index"
- attrGet _ = glyphItemIterReadEndIndex
- attrSet _ = glyphItemIterWriteEndIndex
- attrConstruct = undefined
- attrClear _ = undefined
-
-glyphItemIterEndIndex :: AttrLabelProxy "endIndex"
-glyphItemIterEndIndex = AttrLabelProxy
-
-
-glyphItemIterReadEndChar :: MonadIO m => GlyphItemIter -> m Int32
-glyphItemIterReadEndChar s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 36) :: IO Int32
- return val
-
-glyphItemIterWriteEndChar :: MonadIO m => GlyphItemIter -> Int32 -> m ()
-glyphItemIterWriteEndChar s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 36) (val :: Int32)
-
-data GlyphItemIterEndCharFieldInfo
-instance AttrInfo GlyphItemIterEndCharFieldInfo where
- type AttrAllowedOps GlyphItemIterEndCharFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint GlyphItemIterEndCharFieldInfo = (~) Int32
- type AttrBaseTypeConstraint GlyphItemIterEndCharFieldInfo = (~) GlyphItemIter
- type AttrGetType GlyphItemIterEndCharFieldInfo = Int32
- type AttrLabel GlyphItemIterEndCharFieldInfo = "end_char"
- attrGet _ = glyphItemIterReadEndChar
- attrSet _ = glyphItemIterWriteEndChar
- attrConstruct = undefined
- attrClear _ = undefined
-
-glyphItemIterEndChar :: AttrLabelProxy "endChar"
-glyphItemIterEndChar = AttrLabelProxy
-
-
-
-type instance AttributeList GlyphItemIter = GlyphItemIterAttributeList
-type GlyphItemIterAttributeList = ('[ '("glyphItem", GlyphItemIterGlyphItemFieldInfo), '("text", GlyphItemIterTextFieldInfo), '("startGlyph", GlyphItemIterStartGlyphFieldInfo), '("startIndex", GlyphItemIterStartIndexFieldInfo), '("startChar", GlyphItemIterStartCharFieldInfo), '("endGlyph", GlyphItemIterEndGlyphFieldInfo), '("endIndex", GlyphItemIterEndIndexFieldInfo), '("endChar", GlyphItemIterEndCharFieldInfo)] :: [(Symbol, *)])
-
--- method GlyphItemIter::copy
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "GlyphItemIter")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_glyph_item_iter_copy" pango_glyph_item_iter_copy ::
- Ptr GlyphItemIter -> -- _obj : TInterface "Pango" "GlyphItemIter"
- IO (Ptr GlyphItemIter)
-
-
-glyphItemIterCopy ::
- (MonadIO m) =>
- GlyphItemIter -- _obj
- -> m (Maybe GlyphItemIter) -- result
-glyphItemIterCopy _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_glyph_item_iter_copy _obj'
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (wrapBoxed GlyphItemIter) result'
- return result''
- touchManagedPtr _obj
- return maybeResult
-
-data GlyphItemIterCopyMethodInfo
-instance (signature ~ (m (Maybe GlyphItemIter)), MonadIO m) => MethodInfo GlyphItemIterCopyMethodInfo GlyphItemIter signature where
- overloadedMethod _ = glyphItemIterCopy
-
--- method GlyphItemIter::free
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_glyph_item_iter_free" pango_glyph_item_iter_free ::
- Ptr GlyphItemIter -> -- _obj : TInterface "Pango" "GlyphItemIter"
- IO ()
-
-
-glyphItemIterFree ::
- (MonadIO m) =>
- GlyphItemIter -- _obj
- -> m () -- result
-glyphItemIterFree _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- pango_glyph_item_iter_free _obj'
- touchManagedPtr _obj
- return ()
-
-data GlyphItemIterFreeMethodInfo
-instance (signature ~ (m ()), MonadIO m) => MethodInfo GlyphItemIterFreeMethodInfo GlyphItemIter signature where
- overloadedMethod _ = glyphItemIterFree
-
--- method GlyphItemIter::init_end
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "glyph_item", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_glyph_item_iter_init_end" pango_glyph_item_iter_init_end ::
- Ptr GlyphItemIter -> -- _obj : TInterface "Pango" "GlyphItemIter"
- Ptr GlyphItem -> -- glyph_item : TInterface "Pango" "GlyphItem"
- CString -> -- text : TBasicType TUTF8
- IO CInt
-
-
-glyphItemIterInitEnd ::
- (MonadIO m) =>
- GlyphItemIter -- _obj
- -> GlyphItem -- glyphItem
- -> T.Text -- text
- -> m Bool -- result
-glyphItemIterInitEnd _obj glyphItem text = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let glyphItem' = unsafeManagedPtrGetPtr glyphItem
- text' <- textToCString text
- result <- pango_glyph_item_iter_init_end _obj' glyphItem' text'
- let result' = (/= 0) result
- touchManagedPtr _obj
- touchManagedPtr glyphItem
- freeMem text'
- return result'
-
-data GlyphItemIterInitEndMethodInfo
-instance (signature ~ (GlyphItem -> T.Text -> m Bool), MonadIO m) => MethodInfo GlyphItemIterInitEndMethodInfo GlyphItemIter signature where
- overloadedMethod _ = glyphItemIterInitEnd
-
--- method GlyphItemIter::init_start
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "glyph_item", argType = TInterface "Pango" "GlyphItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_glyph_item_iter_init_start" pango_glyph_item_iter_init_start ::
- Ptr GlyphItemIter -> -- _obj : TInterface "Pango" "GlyphItemIter"
- Ptr GlyphItem -> -- glyph_item : TInterface "Pango" "GlyphItem"
- CString -> -- text : TBasicType TUTF8
- IO CInt
-
-
-glyphItemIterInitStart ::
- (MonadIO m) =>
- GlyphItemIter -- _obj
- -> GlyphItem -- glyphItem
- -> T.Text -- text
- -> m Bool -- result
-glyphItemIterInitStart _obj glyphItem text = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let glyphItem' = unsafeManagedPtrGetPtr glyphItem
- text' <- textToCString text
- result <- pango_glyph_item_iter_init_start _obj' glyphItem' text'
- let result' = (/= 0) result
- touchManagedPtr _obj
- touchManagedPtr glyphItem
- freeMem text'
- return result'
-
-data GlyphItemIterInitStartMethodInfo
-instance (signature ~ (GlyphItem -> T.Text -> m Bool), MonadIO m) => MethodInfo GlyphItemIterInitStartMethodInfo GlyphItemIter signature where
- overloadedMethod _ = glyphItemIterInitStart
-
--- method GlyphItemIter::next_cluster
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_glyph_item_iter_next_cluster" pango_glyph_item_iter_next_cluster ::
- Ptr GlyphItemIter -> -- _obj : TInterface "Pango" "GlyphItemIter"
- IO CInt
-
-
-glyphItemIterNextCluster ::
- (MonadIO m) =>
- GlyphItemIter -- _obj
- -> m Bool -- result
-glyphItemIterNextCluster _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_glyph_item_iter_next_cluster _obj'
- let result' = (/= 0) result
- touchManagedPtr _obj
- return result'
-
-data GlyphItemIterNextClusterMethodInfo
-instance (signature ~ (m Bool), MonadIO m) => MethodInfo GlyphItemIterNextClusterMethodInfo GlyphItemIter signature where
- overloadedMethod _ = glyphItemIterNextCluster
-
--- method GlyphItemIter::prev_cluster
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "GlyphItemIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_glyph_item_iter_prev_cluster" pango_glyph_item_iter_prev_cluster ::
- Ptr GlyphItemIter -> -- _obj : TInterface "Pango" "GlyphItemIter"
- IO CInt
-
-
-glyphItemIterPrevCluster ::
- (MonadIO m) =>
- GlyphItemIter -- _obj
- -> m Bool -- result
-glyphItemIterPrevCluster _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_glyph_item_iter_prev_cluster _obj'
- let result' = (/= 0) result
- touchManagedPtr _obj
- return result'
-
-data GlyphItemIterPrevClusterMethodInfo
-instance (signature ~ (m Bool), MonadIO m) => MethodInfo GlyphItemIterPrevClusterMethodInfo GlyphItemIter signature where
- overloadedMethod _ = glyphItemIterPrevCluster
-
-type family ResolveGlyphItemIterMethod (t :: Symbol) (o :: *) :: * where
- ResolveGlyphItemIterMethod "copy" o = GlyphItemIterCopyMethodInfo
- ResolveGlyphItemIterMethod "free" o = GlyphItemIterFreeMethodInfo
- ResolveGlyphItemIterMethod "initEnd" o = GlyphItemIterInitEndMethodInfo
- ResolveGlyphItemIterMethod "initStart" o = GlyphItemIterInitStartMethodInfo
- ResolveGlyphItemIterMethod "nextCluster" o = GlyphItemIterNextClusterMethodInfo
- ResolveGlyphItemIterMethod "prevCluster" o = GlyphItemIterPrevClusterMethodInfo
- ResolveGlyphItemIterMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveGlyphItemIterMethod t GlyphItemIter, MethodInfo info GlyphItemIter p) => IsLabelProxy t (GlyphItemIter -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveGlyphItemIterMethod t GlyphItemIter, MethodInfo info GlyphItemIter p) => IsLabel t (GlyphItemIter -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/GlyphItemIter.hs-boot b/GI/Pango/Structs/GlyphItemIter.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/GlyphItemIter.hs-boot
+++ /dev/null
@@ -1,17 +0,0 @@
-module GI.Pango.Structs.GlyphItemIter where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype GlyphItemIter = GlyphItemIter (ForeignPtr GlyphItemIter)
-instance BoxedObject GlyphItemIter where
-data GlyphItemIterCopyMethodInfo
-data GlyphItemIterFreeMethodInfo
-data GlyphItemIterInitEndMethodInfo
-data GlyphItemIterInitStartMethodInfo
-data GlyphItemIterNextClusterMethodInfo
-data GlyphItemIterPrevClusterMethodInfo
diff --git a/GI/Pango/Structs/GlyphString.hs b/GI/Pango/Structs/GlyphString.hs
deleted file mode 100644
--- a/GI/Pango/Structs/GlyphString.hs
+++ /dev/null
@@ -1,540 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-The #PangoGlyphString structure is used to store strings
-of glyphs with geometry and visual attribute information.
-The storage for the glyph information is owned
-by the structure which simplifies memory management.
--}
-
-module GI.Pango.Structs.GlyphString
- (
-
--- * Exported types
- GlyphString(..) ,
- newZeroGlyphString ,
- noGlyphString ,
-
-
- -- * Methods
--- ** glyphStringCopy
- GlyphStringCopyMethodInfo ,
- glyphStringCopy ,
-
-
--- ** glyphStringExtents
- GlyphStringExtentsMethodInfo ,
- glyphStringExtents ,
-
-
--- ** glyphStringExtentsRange
- GlyphStringExtentsRangeMethodInfo ,
- glyphStringExtentsRange ,
-
-
--- ** glyphStringFree
- GlyphStringFreeMethodInfo ,
- glyphStringFree ,
-
-
--- ** glyphStringGetLogicalWidths
- GlyphStringGetLogicalWidthsMethodInfo ,
- glyphStringGetLogicalWidths ,
-
-
--- ** glyphStringGetWidth
- GlyphStringGetWidthMethodInfo ,
- glyphStringGetWidth ,
-
-
--- ** glyphStringIndexToX
- GlyphStringIndexToXMethodInfo ,
- glyphStringIndexToX ,
-
-
--- ** glyphStringNew
- glyphStringNew ,
-
-
--- ** glyphStringSetSize
- GlyphStringSetSizeMethodInfo ,
- glyphStringSetSize ,
-
-
--- ** glyphStringXToIndex
- GlyphStringXToIndexMethodInfo ,
- glyphStringXToIndex ,
-
-
-
-
- -- * Properties
--- ** LogClusters
- glyphStringLogClusters ,
- glyphStringReadLogClusters ,
- glyphStringWriteLogClusters ,
-
-
--- ** NumGlyphs
- glyphStringNumGlyphs ,
- glyphStringReadNumGlyphs ,
- glyphStringWriteNumGlyphs ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype GlyphString = GlyphString (ForeignPtr GlyphString)
-foreign import ccall "pango_glyph_string_get_type" c_pango_glyph_string_get_type ::
- IO GType
-
-instance BoxedObject GlyphString where
- boxedType _ = c_pango_glyph_string_get_type
-
--- | Construct a `GlyphString` struct initialized to zero.
-newZeroGlyphString :: MonadIO m => m GlyphString
-newZeroGlyphString = liftIO $ callocBoxedBytes 32 >>= wrapBoxed GlyphString
-
-instance tag ~ 'AttrSet => Constructible GlyphString tag where
- new _ attrs = do
- o <- newZeroGlyphString
- GI.Attributes.set o attrs
- return o
-
-
-noGlyphString :: Maybe GlyphString
-noGlyphString = Nothing
-
-glyphStringReadNumGlyphs :: MonadIO m => GlyphString -> m Int32
-glyphStringReadNumGlyphs s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 0) :: IO Int32
- return val
-
-glyphStringWriteNumGlyphs :: MonadIO m => GlyphString -> Int32 -> m ()
-glyphStringWriteNumGlyphs s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (val :: Int32)
-
-data GlyphStringNumGlyphsFieldInfo
-instance AttrInfo GlyphStringNumGlyphsFieldInfo where
- type AttrAllowedOps GlyphStringNumGlyphsFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint GlyphStringNumGlyphsFieldInfo = (~) Int32
- type AttrBaseTypeConstraint GlyphStringNumGlyphsFieldInfo = (~) GlyphString
- type AttrGetType GlyphStringNumGlyphsFieldInfo = Int32
- type AttrLabel GlyphStringNumGlyphsFieldInfo = "num_glyphs"
- attrGet _ = glyphStringReadNumGlyphs
- attrSet _ = glyphStringWriteNumGlyphs
- attrConstruct = undefined
- attrClear _ = undefined
-
-glyphStringNumGlyphs :: AttrLabelProxy "numGlyphs"
-glyphStringNumGlyphs = AttrLabelProxy
-
-
--- XXX Skipped attribute for "GlyphString:glyphs" :: Not implemented: "Don't know how to unpack C array of type TCArray False (-1) 0 (TInterface \"Pango\" \"GlyphInfo\")"
-glyphStringReadLogClusters :: MonadIO m => GlyphString -> m Int32
-glyphStringReadLogClusters s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 16) :: IO Int32
- return val
-
-glyphStringWriteLogClusters :: MonadIO m => GlyphString -> Int32 -> m ()
-glyphStringWriteLogClusters s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 16) (val :: Int32)
-
-data GlyphStringLogClustersFieldInfo
-instance AttrInfo GlyphStringLogClustersFieldInfo where
- type AttrAllowedOps GlyphStringLogClustersFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint GlyphStringLogClustersFieldInfo = (~) Int32
- type AttrBaseTypeConstraint GlyphStringLogClustersFieldInfo = (~) GlyphString
- type AttrGetType GlyphStringLogClustersFieldInfo = Int32
- type AttrLabel GlyphStringLogClustersFieldInfo = "log_clusters"
- attrGet _ = glyphStringReadLogClusters
- attrSet _ = glyphStringWriteLogClusters
- attrConstruct = undefined
- attrClear _ = undefined
-
-glyphStringLogClusters :: AttrLabelProxy "logClusters"
-glyphStringLogClusters = AttrLabelProxy
-
-
-
-type instance AttributeList GlyphString = GlyphStringAttributeList
-type GlyphStringAttributeList = ('[ '("numGlyphs", GlyphStringNumGlyphsFieldInfo), '("logClusters", GlyphStringLogClustersFieldInfo)] :: [(Symbol, *)])
-
--- method GlyphString::new
--- method type : Constructor
--- Args : []
--- Lengths : []
--- returnType : Just (TInterface "Pango" "GlyphString")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_glyph_string_new" pango_glyph_string_new ::
- IO (Ptr GlyphString)
-
-
-glyphStringNew ::
- (MonadIO m) =>
- m GlyphString -- result
-glyphStringNew = liftIO $ do
- result <- pango_glyph_string_new
- checkUnexpectedReturnNULL "pango_glyph_string_new" result
- result' <- (wrapBoxed GlyphString) result
- return result'
-
--- method GlyphString::copy
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "GlyphString")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_glyph_string_copy" pango_glyph_string_copy ::
- Ptr GlyphString -> -- _obj : TInterface "Pango" "GlyphString"
- IO (Ptr GlyphString)
-
-
-glyphStringCopy ::
- (MonadIO m) =>
- GlyphString -- _obj
- -> m (Maybe GlyphString) -- result
-glyphStringCopy _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_glyph_string_copy _obj'
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (wrapBoxed GlyphString) result'
- return result''
- touchManagedPtr _obj
- return maybeResult
-
-data GlyphStringCopyMethodInfo
-instance (signature ~ (m (Maybe GlyphString)), MonadIO m) => MethodInfo GlyphStringCopyMethodInfo GlyphString signature where
- overloadedMethod _ = glyphStringCopy
-
--- method GlyphString::extents
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_glyph_string_extents" pango_glyph_string_extents ::
- Ptr GlyphString -> -- _obj : TInterface "Pango" "GlyphString"
- Ptr Font -> -- font : TInterface "Pango" "Font"
- Ptr Rectangle -> -- ink_rect : TInterface "Pango" "Rectangle"
- Ptr Rectangle -> -- logical_rect : TInterface "Pango" "Rectangle"
- IO ()
-
-
-glyphStringExtents ::
- (MonadIO m, FontK a) =>
- GlyphString -- _obj
- -> a -- font
- -> m (Rectangle,Rectangle) -- result
-glyphStringExtents _obj font = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let font' = unsafeManagedPtrCastPtr font
- inkRect <- callocBytes 16 :: IO (Ptr Rectangle)
- logicalRect <- callocBytes 16 :: IO (Ptr Rectangle)
- pango_glyph_string_extents _obj' font' inkRect logicalRect
- inkRect' <- (wrapPtr Rectangle) inkRect
- logicalRect' <- (wrapPtr Rectangle) logicalRect
- touchManagedPtr _obj
- touchManagedPtr font
- return (inkRect', logicalRect')
-
-data GlyphStringExtentsMethodInfo
-instance (signature ~ (a -> m (Rectangle,Rectangle)), MonadIO m, FontK a) => MethodInfo GlyphStringExtentsMethodInfo GlyphString signature where
- overloadedMethod _ = glyphStringExtents
-
--- method GlyphString::extents_range
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "font", argType = TInterface "Pango" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_glyph_string_extents_range" pango_glyph_string_extents_range ::
- Ptr GlyphString -> -- _obj : TInterface "Pango" "GlyphString"
- Int32 -> -- start : TBasicType TInt
- Int32 -> -- end : TBasicType TInt
- Ptr Font -> -- font : TInterface "Pango" "Font"
- Ptr Rectangle -> -- ink_rect : TInterface "Pango" "Rectangle"
- Ptr Rectangle -> -- logical_rect : TInterface "Pango" "Rectangle"
- IO ()
-
-
-glyphStringExtentsRange ::
- (MonadIO m, FontK a) =>
- GlyphString -- _obj
- -> Int32 -- start
- -> Int32 -- end
- -> a -- font
- -> m (Rectangle,Rectangle) -- result
-glyphStringExtentsRange _obj start end font = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let font' = unsafeManagedPtrCastPtr font
- inkRect <- callocBytes 16 :: IO (Ptr Rectangle)
- logicalRect <- callocBytes 16 :: IO (Ptr Rectangle)
- pango_glyph_string_extents_range _obj' start end font' inkRect logicalRect
- inkRect' <- (wrapPtr Rectangle) inkRect
- logicalRect' <- (wrapPtr Rectangle) logicalRect
- touchManagedPtr _obj
- touchManagedPtr font
- return (inkRect', logicalRect')
-
-data GlyphStringExtentsRangeMethodInfo
-instance (signature ~ (Int32 -> Int32 -> a -> m (Rectangle,Rectangle)), MonadIO m, FontK a) => MethodInfo GlyphStringExtentsRangeMethodInfo GlyphString signature where
- overloadedMethod _ = glyphStringExtentsRange
-
--- method GlyphString::free
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_glyph_string_free" pango_glyph_string_free ::
- Ptr GlyphString -> -- _obj : TInterface "Pango" "GlyphString"
- IO ()
-
-
-glyphStringFree ::
- (MonadIO m) =>
- GlyphString -- _obj
- -> m () -- result
-glyphStringFree _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- pango_glyph_string_free _obj'
- touchManagedPtr _obj
- return ()
-
-data GlyphStringFreeMethodInfo
-instance (signature ~ (m ()), MonadIO m) => MethodInfo GlyphStringFreeMethodInfo GlyphString signature where
- overloadedMethod _ = glyphStringFree
-
--- method GlyphString::get_logical_widths
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "embedding_level", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "logical_widths", argType = TCArray False (-1) (-1) (TBasicType TInt), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_glyph_string_get_logical_widths" pango_glyph_string_get_logical_widths ::
- Ptr GlyphString -> -- _obj : TInterface "Pango" "GlyphString"
- CString -> -- text : TBasicType TUTF8
- Int32 -> -- length : TBasicType TInt
- Int32 -> -- embedding_level : TBasicType TInt
- Ptr Int32 -> -- logical_widths : TCArray False (-1) (-1) (TBasicType TInt)
- IO ()
-
-
-glyphStringGetLogicalWidths ::
- (MonadIO m) =>
- GlyphString -- _obj
- -> T.Text -- text
- -> Int32 -- length_
- -> Int32 -- embeddingLevel
- -> Ptr Int32 -- logicalWidths
- -> m () -- result
-glyphStringGetLogicalWidths _obj text length_ embeddingLevel logicalWidths = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- text' <- textToCString text
- pango_glyph_string_get_logical_widths _obj' text' length_ embeddingLevel logicalWidths
- touchManagedPtr _obj
- freeMem text'
- return ()
-
-data GlyphStringGetLogicalWidthsMethodInfo
-instance (signature ~ (T.Text -> Int32 -> Int32 -> Ptr Int32 -> m ()), MonadIO m) => MethodInfo GlyphStringGetLogicalWidthsMethodInfo GlyphString signature where
- overloadedMethod _ = glyphStringGetLogicalWidths
-
--- method GlyphString::get_width
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TInt)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_glyph_string_get_width" pango_glyph_string_get_width ::
- Ptr GlyphString -> -- _obj : TInterface "Pango" "GlyphString"
- IO Int32
-
-
-glyphStringGetWidth ::
- (MonadIO m) =>
- GlyphString -- _obj
- -> m Int32 -- result
-glyphStringGetWidth _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_glyph_string_get_width _obj'
- touchManagedPtr _obj
- return result
-
-data GlyphStringGetWidthMethodInfo
-instance (signature ~ (m Int32), MonadIO m) => MethodInfo GlyphStringGetWidthMethodInfo GlyphString signature where
- overloadedMethod _ = glyphStringGetWidth
-
--- method GlyphString::index_to_x
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "trailing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_pos", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_glyph_string_index_to_x" pango_glyph_string_index_to_x ::
- Ptr GlyphString -> -- _obj : TInterface "Pango" "GlyphString"
- CString -> -- text : TBasicType TUTF8
- Int32 -> -- length : TBasicType TInt
- Ptr Analysis -> -- analysis : TInterface "Pango" "Analysis"
- Int32 -> -- index_ : TBasicType TInt
- CInt -> -- trailing : TBasicType TBoolean
- Ptr Int32 -> -- x_pos : TBasicType TInt
- IO ()
-
-
-glyphStringIndexToX ::
- (MonadIO m) =>
- GlyphString -- _obj
- -> T.Text -- text
- -> Int32 -- length_
- -> Analysis -- analysis
- -> Int32 -- index_
- -> Bool -- trailing
- -> m (Int32) -- result
-glyphStringIndexToX _obj text length_ analysis index_ trailing = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- text' <- textToCString text
- let analysis' = unsafeManagedPtrGetPtr analysis
- let trailing' = (fromIntegral . fromEnum) trailing
- xPos <- allocMem :: IO (Ptr Int32)
- pango_glyph_string_index_to_x _obj' text' length_ analysis' index_ trailing' xPos
- xPos' <- peek xPos
- touchManagedPtr _obj
- touchManagedPtr analysis
- freeMem text'
- freeMem xPos
- return xPos'
-
-data GlyphStringIndexToXMethodInfo
-instance (signature ~ (T.Text -> Int32 -> Analysis -> Int32 -> Bool -> m (Int32)), MonadIO m) => MethodInfo GlyphStringIndexToXMethodInfo GlyphString signature where
- overloadedMethod _ = glyphStringIndexToX
-
--- method GlyphString::set_size
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_glyph_string_set_size" pango_glyph_string_set_size ::
- Ptr GlyphString -> -- _obj : TInterface "Pango" "GlyphString"
- Int32 -> -- new_len : TBasicType TInt
- IO ()
-
-
-glyphStringSetSize ::
- (MonadIO m) =>
- GlyphString -- _obj
- -> Int32 -- newLen
- -> m () -- result
-glyphStringSetSize _obj newLen = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- pango_glyph_string_set_size _obj' newLen
- touchManagedPtr _obj
- return ()
-
-data GlyphStringSetSizeMethodInfo
-instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo GlyphStringSetSizeMethodInfo GlyphString signature where
- overloadedMethod _ = glyphStringSetSize
-
--- method GlyphString::x_to_index
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "GlyphString", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "analysis", argType = TInterface "Pango" "Analysis", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "trailing", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_glyph_string_x_to_index" pango_glyph_string_x_to_index ::
- Ptr GlyphString -> -- _obj : TInterface "Pango" "GlyphString"
- CString -> -- text : TBasicType TUTF8
- Int32 -> -- length : TBasicType TInt
- Ptr Analysis -> -- analysis : TInterface "Pango" "Analysis"
- Int32 -> -- x_pos : TBasicType TInt
- Ptr Int32 -> -- index_ : TBasicType TInt
- Ptr Int32 -> -- trailing : TBasicType TInt
- IO ()
-
-
-glyphStringXToIndex ::
- (MonadIO m) =>
- GlyphString -- _obj
- -> T.Text -- text
- -> Int32 -- length_
- -> Analysis -- analysis
- -> Int32 -- xPos
- -> m (Int32,Int32) -- result
-glyphStringXToIndex _obj text length_ analysis xPos = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- text' <- textToCString text
- let analysis' = unsafeManagedPtrGetPtr analysis
- index_ <- allocMem :: IO (Ptr Int32)
- trailing <- allocMem :: IO (Ptr Int32)
- pango_glyph_string_x_to_index _obj' text' length_ analysis' xPos index_ trailing
- index_' <- peek index_
- trailing' <- peek trailing
- touchManagedPtr _obj
- touchManagedPtr analysis
- freeMem text'
- freeMem index_
- freeMem trailing
- return (index_', trailing')
-
-data GlyphStringXToIndexMethodInfo
-instance (signature ~ (T.Text -> Int32 -> Analysis -> Int32 -> m (Int32,Int32)), MonadIO m) => MethodInfo GlyphStringXToIndexMethodInfo GlyphString signature where
- overloadedMethod _ = glyphStringXToIndex
-
-type family ResolveGlyphStringMethod (t :: Symbol) (o :: *) :: * where
- ResolveGlyphStringMethod "copy" o = GlyphStringCopyMethodInfo
- ResolveGlyphStringMethod "extents" o = GlyphStringExtentsMethodInfo
- ResolveGlyphStringMethod "extentsRange" o = GlyphStringExtentsRangeMethodInfo
- ResolveGlyphStringMethod "free" o = GlyphStringFreeMethodInfo
- ResolveGlyphStringMethod "indexToX" o = GlyphStringIndexToXMethodInfo
- ResolveGlyphStringMethod "xToIndex" o = GlyphStringXToIndexMethodInfo
- ResolveGlyphStringMethod "getLogicalWidths" o = GlyphStringGetLogicalWidthsMethodInfo
- ResolveGlyphStringMethod "getWidth" o = GlyphStringGetWidthMethodInfo
- ResolveGlyphStringMethod "setSize" o = GlyphStringSetSizeMethodInfo
- ResolveGlyphStringMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveGlyphStringMethod t GlyphString, MethodInfo info GlyphString p) => IsLabelProxy t (GlyphString -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveGlyphStringMethod t GlyphString, MethodInfo info GlyphString p) => IsLabel t (GlyphString -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/GlyphString.hs-boot b/GI/Pango/Structs/GlyphString.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/GlyphString.hs-boot
+++ /dev/null
@@ -1,20 +0,0 @@
-module GI.Pango.Structs.GlyphString where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype GlyphString = GlyphString (ForeignPtr GlyphString)
-instance BoxedObject GlyphString where
-data GlyphStringCopyMethodInfo
-data GlyphStringExtentsMethodInfo
-data GlyphStringExtentsRangeMethodInfo
-data GlyphStringFreeMethodInfo
-data GlyphStringGetLogicalWidthsMethodInfo
-data GlyphStringGetWidthMethodInfo
-data GlyphStringIndexToXMethodInfo
-data GlyphStringSetSizeMethodInfo
-data GlyphStringXToIndexMethodInfo
diff --git a/GI/Pango/Structs/GlyphVisAttr.hs b/GI/Pango/Structs/GlyphVisAttr.hs
deleted file mode 100644
--- a/GI/Pango/Structs/GlyphVisAttr.hs
+++ /dev/null
@@ -1,103 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-The PangoGlyphVisAttr is used to communicate information between
-the shaping phase and the rendering phase. More attributes may be
-added in the future.
--}
-
-module GI.Pango.Structs.GlyphVisAttr
- (
-
--- * Exported types
- GlyphVisAttr(..) ,
- newZeroGlyphVisAttr ,
- noGlyphVisAttr ,
-
-
- -- * Properties
--- ** IsClusterStart
- glyphVisAttrIsClusterStart ,
- glyphVisAttrReadIsClusterStart ,
- glyphVisAttrWriteIsClusterStart ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype GlyphVisAttr = GlyphVisAttr (ForeignPtr GlyphVisAttr)
-instance WrappedPtr GlyphVisAttr where
- wrappedPtrCalloc = callocBytes 4
- wrappedPtrCopy = copyPtr 4
- wrappedPtrFree = Just ptr_to_g_free
-
--- | Construct a `GlyphVisAttr` struct initialized to zero.
-newZeroGlyphVisAttr :: MonadIO m => m GlyphVisAttr
-newZeroGlyphVisAttr = liftIO $ wrappedPtrCalloc >>= wrapPtr GlyphVisAttr
-
-instance tag ~ 'AttrSet => Constructible GlyphVisAttr tag where
- new _ attrs = do
- o <- newZeroGlyphVisAttr
- GI.Attributes.set o attrs
- return o
-
-
-noGlyphVisAttr :: Maybe GlyphVisAttr
-noGlyphVisAttr = Nothing
-
-glyphVisAttrReadIsClusterStart :: MonadIO m => GlyphVisAttr -> m Word32
-glyphVisAttrReadIsClusterStart s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 0) :: IO Word32
- return val
-
-glyphVisAttrWriteIsClusterStart :: MonadIO m => GlyphVisAttr -> Word32 -> m ()
-glyphVisAttrWriteIsClusterStart s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (val :: Word32)
-
-data GlyphVisAttrIsClusterStartFieldInfo
-instance AttrInfo GlyphVisAttrIsClusterStartFieldInfo where
- type AttrAllowedOps GlyphVisAttrIsClusterStartFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint GlyphVisAttrIsClusterStartFieldInfo = (~) Word32
- type AttrBaseTypeConstraint GlyphVisAttrIsClusterStartFieldInfo = (~) GlyphVisAttr
- type AttrGetType GlyphVisAttrIsClusterStartFieldInfo = Word32
- type AttrLabel GlyphVisAttrIsClusterStartFieldInfo = "is_cluster_start"
- attrGet _ = glyphVisAttrReadIsClusterStart
- attrSet _ = glyphVisAttrWriteIsClusterStart
- attrConstruct = undefined
- attrClear _ = undefined
-
-glyphVisAttrIsClusterStart :: AttrLabelProxy "isClusterStart"
-glyphVisAttrIsClusterStart = AttrLabelProxy
-
-
-
-type instance AttributeList GlyphVisAttr = GlyphVisAttrAttributeList
-type GlyphVisAttrAttributeList = ('[ '("isClusterStart", GlyphVisAttrIsClusterStartFieldInfo)] :: [(Symbol, *)])
-
-type family ResolveGlyphVisAttrMethod (t :: Symbol) (o :: *) :: * where
- ResolveGlyphVisAttrMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveGlyphVisAttrMethod t GlyphVisAttr, MethodInfo info GlyphVisAttr p) => IsLabelProxy t (GlyphVisAttr -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveGlyphVisAttrMethod t GlyphVisAttr, MethodInfo info GlyphVisAttr p) => IsLabel t (GlyphVisAttr -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/GlyphVisAttr.hs-boot b/GI/Pango/Structs/GlyphVisAttr.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/GlyphVisAttr.hs-boot
+++ /dev/null
@@ -1,11 +0,0 @@
-module GI.Pango.Structs.GlyphVisAttr where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype GlyphVisAttr = GlyphVisAttr (ForeignPtr GlyphVisAttr)
-instance WrappedPtr GlyphVisAttr where
diff --git a/GI/Pango/Structs/IncludedModule.hs b/GI/Pango/Structs/IncludedModule.hs
deleted file mode 100644
--- a/GI/Pango/Structs/IncludedModule.hs
+++ /dev/null
@@ -1,72 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-The #PangoIncludedModule structure for a statically linked module
-contains the functions that would otherwise be loaded from a dynamically
-loaded module.
--}
-
-module GI.Pango.Structs.IncludedModule
- (
-
--- * Exported types
- IncludedModule(..) ,
- newZeroIncludedModule ,
- noIncludedModule ,
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype IncludedModule = IncludedModule (ForeignPtr IncludedModule)
-instance WrappedPtr IncludedModule where
- wrappedPtrCalloc = callocBytes 32
- wrappedPtrCopy = copyPtr 32
- wrappedPtrFree = Just ptr_to_g_free
-
--- | Construct a `IncludedModule` struct initialized to zero.
-newZeroIncludedModule :: MonadIO m => m IncludedModule
-newZeroIncludedModule = liftIO $ wrappedPtrCalloc >>= wrapPtr IncludedModule
-
-instance tag ~ 'AttrSet => Constructible IncludedModule tag where
- new _ attrs = do
- o <- newZeroIncludedModule
- GI.Attributes.set o attrs
- return o
-
-
-noIncludedModule :: Maybe IncludedModule
-noIncludedModule = Nothing
-
--- XXX Skipped attribute for "IncludedModule:list" :: Not implemented: "Wrapping foreign callbacks is not supported yet"
--- XXX Skipped attribute for "IncludedModule:init" :: Not implemented: "Wrapping foreign callbacks is not supported yet"
--- XXX Skipped attribute for "IncludedModule:exit" :: Not implemented: "Wrapping foreign callbacks is not supported yet"
-
-type instance AttributeList IncludedModule = IncludedModuleAttributeList
-type IncludedModuleAttributeList = ('[ ] :: [(Symbol, *)])
-
-type family ResolveIncludedModuleMethod (t :: Symbol) (o :: *) :: * where
- ResolveIncludedModuleMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveIncludedModuleMethod t IncludedModule, MethodInfo info IncludedModule p) => IsLabelProxy t (IncludedModule -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveIncludedModuleMethod t IncludedModule, MethodInfo info IncludedModule p) => IsLabel t (IncludedModule -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/IncludedModule.hs-boot b/GI/Pango/Structs/IncludedModule.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/IncludedModule.hs-boot
+++ /dev/null
@@ -1,11 +0,0 @@
-module GI.Pango.Structs.IncludedModule where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype IncludedModule = IncludedModule (ForeignPtr IncludedModule)
-instance WrappedPtr IncludedModule where
diff --git a/GI/Pango/Structs/Item.hs b/GI/Pango/Structs/Item.hs
deleted file mode 100644
--- a/GI/Pango/Structs/Item.hs
+++ /dev/null
@@ -1,339 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-The #PangoItem structure stores information about a segment of text.
--}
-
-module GI.Pango.Structs.Item
- (
-
--- * Exported types
- Item(..) ,
- newZeroItem ,
- noItem ,
-
-
- -- * Methods
--- ** itemCopy
- ItemCopyMethodInfo ,
- itemCopy ,
-
-
--- ** itemFree
- ItemFreeMethodInfo ,
- itemFree ,
-
-
--- ** itemNew
- itemNew ,
-
-
--- ** itemSplit
- ItemSplitMethodInfo ,
- itemSplit ,
-
-
-
-
- -- * Properties
--- ** Analysis
- itemAnalysis ,
- itemClearAnalysis ,
- itemReadAnalysis ,
- itemWriteAnalysis ,
-
-
--- ** Length
- itemLength ,
- itemReadLength ,
- itemWriteLength ,
-
-
--- ** NumChars
- itemNumChars ,
- itemReadNumChars ,
- itemWriteNumChars ,
-
-
--- ** Offset
- itemOffset ,
- itemReadOffset ,
- itemWriteOffset ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype Item = Item (ForeignPtr Item)
-foreign import ccall "pango_item_get_type" c_pango_item_get_type ::
- IO GType
-
-instance BoxedObject Item where
- boxedType _ = c_pango_item_get_type
-
--- | Construct a `Item` struct initialized to zero.
-newZeroItem :: MonadIO m => m Item
-newZeroItem = liftIO $ callocBoxedBytes 64 >>= wrapBoxed Item
-
-instance tag ~ 'AttrSet => Constructible Item tag where
- new _ attrs = do
- o <- newZeroItem
- GI.Attributes.set o attrs
- return o
-
-
-noItem :: Maybe Item
-noItem = Nothing
-
-itemReadOffset :: MonadIO m => Item -> m Int32
-itemReadOffset s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 0) :: IO Int32
- return val
-
-itemWriteOffset :: MonadIO m => Item -> Int32 -> m ()
-itemWriteOffset s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (val :: Int32)
-
-data ItemOffsetFieldInfo
-instance AttrInfo ItemOffsetFieldInfo where
- type AttrAllowedOps ItemOffsetFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint ItemOffsetFieldInfo = (~) Int32
- type AttrBaseTypeConstraint ItemOffsetFieldInfo = (~) Item
- type AttrGetType ItemOffsetFieldInfo = Int32
- type AttrLabel ItemOffsetFieldInfo = "offset"
- attrGet _ = itemReadOffset
- attrSet _ = itemWriteOffset
- attrConstruct = undefined
- attrClear _ = undefined
-
-itemOffset :: AttrLabelProxy "offset"
-itemOffset = AttrLabelProxy
-
-
-itemReadLength :: MonadIO m => Item -> m Int32
-itemReadLength s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 4) :: IO Int32
- return val
-
-itemWriteLength :: MonadIO m => Item -> Int32 -> m ()
-itemWriteLength s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 4) (val :: Int32)
-
-data ItemLengthFieldInfo
-instance AttrInfo ItemLengthFieldInfo where
- type AttrAllowedOps ItemLengthFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint ItemLengthFieldInfo = (~) Int32
- type AttrBaseTypeConstraint ItemLengthFieldInfo = (~) Item
- type AttrGetType ItemLengthFieldInfo = Int32
- type AttrLabel ItemLengthFieldInfo = "length"
- attrGet _ = itemReadLength
- attrSet _ = itemWriteLength
- attrConstruct = undefined
- attrClear _ = undefined
-
-itemLength :: AttrLabelProxy "length"
-itemLength = AttrLabelProxy
-
-
-itemReadNumChars :: MonadIO m => Item -> m Int32
-itemReadNumChars s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 8) :: IO Int32
- return val
-
-itemWriteNumChars :: MonadIO m => Item -> Int32 -> m ()
-itemWriteNumChars s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 8) (val :: Int32)
-
-data ItemNumCharsFieldInfo
-instance AttrInfo ItemNumCharsFieldInfo where
- type AttrAllowedOps ItemNumCharsFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint ItemNumCharsFieldInfo = (~) Int32
- type AttrBaseTypeConstraint ItemNumCharsFieldInfo = (~) Item
- type AttrGetType ItemNumCharsFieldInfo = Int32
- type AttrLabel ItemNumCharsFieldInfo = "num_chars"
- attrGet _ = itemReadNumChars
- attrSet _ = itemWriteNumChars
- attrConstruct = undefined
- attrClear _ = undefined
-
-itemNumChars :: AttrLabelProxy "numChars"
-itemNumChars = AttrLabelProxy
-
-
-itemReadAnalysis :: MonadIO m => Item -> m (Maybe Analysis)
-itemReadAnalysis s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 16) :: IO (Ptr Analysis)
- result <- convertIfNonNull val $ \val' -> do
- val'' <- (newPtr Analysis) val'
- return val''
- return result
-
-itemWriteAnalysis :: MonadIO m => Item -> Ptr Analysis -> m ()
-itemWriteAnalysis s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 16) (val :: Ptr Analysis)
-
-itemClearAnalysis :: MonadIO m => Item -> m ()
-itemClearAnalysis s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 16) (nullPtr :: Ptr Analysis)
-
-data ItemAnalysisFieldInfo
-instance AttrInfo ItemAnalysisFieldInfo where
- type AttrAllowedOps ItemAnalysisFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint ItemAnalysisFieldInfo = (~) (Ptr Analysis)
- type AttrBaseTypeConstraint ItemAnalysisFieldInfo = (~) Item
- type AttrGetType ItemAnalysisFieldInfo = Maybe Analysis
- type AttrLabel ItemAnalysisFieldInfo = "analysis"
- attrGet _ = itemReadAnalysis
- attrSet _ = itemWriteAnalysis
- attrConstruct = undefined
- attrClear _ = itemClearAnalysis
-
-itemAnalysis :: AttrLabelProxy "analysis"
-itemAnalysis = AttrLabelProxy
-
-
-
-type instance AttributeList Item = ItemAttributeList
-type ItemAttributeList = ('[ '("offset", ItemOffsetFieldInfo), '("length", ItemLengthFieldInfo), '("numChars", ItemNumCharsFieldInfo), '("analysis", ItemAnalysisFieldInfo)] :: [(Symbol, *)])
-
--- method Item::new
--- method type : Constructor
--- Args : []
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Item")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_item_new" pango_item_new ::
- IO (Ptr Item)
-
-
-itemNew ::
- (MonadIO m) =>
- m Item -- result
-itemNew = liftIO $ do
- result <- pango_item_new
- checkUnexpectedReturnNULL "pango_item_new" result
- result' <- (wrapBoxed Item) result
- return result'
-
--- method Item::copy
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Item", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Item")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_item_copy" pango_item_copy ::
- Ptr Item -> -- _obj : TInterface "Pango" "Item"
- IO (Ptr Item)
-
-
-itemCopy ::
- (MonadIO m) =>
- Item -- _obj
- -> m (Maybe Item) -- result
-itemCopy _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_item_copy _obj'
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (wrapBoxed Item) result'
- return result''
- touchManagedPtr _obj
- return maybeResult
-
-data ItemCopyMethodInfo
-instance (signature ~ (m (Maybe Item)), MonadIO m) => MethodInfo ItemCopyMethodInfo Item signature where
- overloadedMethod _ = itemCopy
-
--- method Item::free
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Item", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_item_free" pango_item_free ::
- Ptr Item -> -- _obj : TInterface "Pango" "Item"
- IO ()
-
-
-itemFree ::
- (MonadIO m) =>
- Item -- _obj
- -> m () -- result
-itemFree _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- pango_item_free _obj'
- touchManagedPtr _obj
- return ()
-
-data ItemFreeMethodInfo
-instance (signature ~ (m ()), MonadIO m) => MethodInfo ItemFreeMethodInfo Item signature where
- overloadedMethod _ = itemFree
-
--- method Item::split
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Item", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "split_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "split_offset", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Item")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_item_split" pango_item_split ::
- Ptr Item -> -- _obj : TInterface "Pango" "Item"
- Int32 -> -- split_index : TBasicType TInt
- Int32 -> -- split_offset : TBasicType TInt
- IO (Ptr Item)
-
-
-itemSplit ::
- (MonadIO m) =>
- Item -- _obj
- -> Int32 -- splitIndex
- -> Int32 -- splitOffset
- -> m Item -- result
-itemSplit _obj splitIndex splitOffset = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_item_split _obj' splitIndex splitOffset
- checkUnexpectedReturnNULL "pango_item_split" result
- result' <- (wrapBoxed Item) result
- touchManagedPtr _obj
- return result'
-
-data ItemSplitMethodInfo
-instance (signature ~ (Int32 -> Int32 -> m Item), MonadIO m) => MethodInfo ItemSplitMethodInfo Item signature where
- overloadedMethod _ = itemSplit
-
-type family ResolveItemMethod (t :: Symbol) (o :: *) :: * where
- ResolveItemMethod "copy" o = ItemCopyMethodInfo
- ResolveItemMethod "free" o = ItemFreeMethodInfo
- ResolveItemMethod "split" o = ItemSplitMethodInfo
- ResolveItemMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveItemMethod t Item, MethodInfo info Item p) => IsLabelProxy t (Item -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveItemMethod t Item, MethodInfo info Item p) => IsLabel t (Item -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/Item.hs-boot b/GI/Pango/Structs/Item.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/Item.hs-boot
+++ /dev/null
@@ -1,14 +0,0 @@
-module GI.Pango.Structs.Item where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype Item = Item (ForeignPtr Item)
-instance BoxedObject Item where
-data ItemCopyMethodInfo
-data ItemFreeMethodInfo
-data ItemSplitMethodInfo
diff --git a/GI/Pango/Structs/Language.hs b/GI/Pango/Structs/Language.hs
deleted file mode 100644
--- a/GI/Pango/Structs/Language.hs
+++ /dev/null
@@ -1,308 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-The #PangoLanguage structure is used to
-represent a language.
-
-#PangoLanguage pointers can be efficiently
-copied and compared with each other.
--}
-
-module GI.Pango.Structs.Language
- (
-
--- * Exported types
- Language(..) ,
- noLanguage ,
-
-
- -- * Methods
--- ** languageFromString
- languageFromString ,
-
-
--- ** languageGetDefault
- languageGetDefault ,
-
-
--- ** languageGetSampleString
- LanguageGetSampleStringMethodInfo ,
- languageGetSampleString ,
-
-
--- ** languageGetScripts
- LanguageGetScriptsMethodInfo ,
- languageGetScripts ,
-
-
--- ** languageIncludesScript
- LanguageIncludesScriptMethodInfo ,
- languageIncludesScript ,
-
-
--- ** languageMatches
- LanguageMatchesMethodInfo ,
- languageMatches ,
-
-
--- ** languageToString
- LanguageToStringMethodInfo ,
- languageToString ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype Language = Language (ForeignPtr Language)
-foreign import ccall "pango_language_get_type" c_pango_language_get_type ::
- IO GType
-
-instance BoxedObject Language where
- boxedType _ = c_pango_language_get_type
-
-noLanguage :: Maybe Language
-noLanguage = Nothing
-
-
-type instance AttributeList Language = LanguageAttributeList
-type LanguageAttributeList = ('[ ] :: [(Symbol, *)])
-
--- method Language::get_sample_string
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TUTF8)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_language_get_sample_string" pango_language_get_sample_string ::
- Ptr Language -> -- _obj : TInterface "Pango" "Language"
- IO CString
-
-
-languageGetSampleString ::
- (MonadIO m) =>
- Language -- _obj
- -> m T.Text -- result
-languageGetSampleString _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_language_get_sample_string _obj'
- checkUnexpectedReturnNULL "pango_language_get_sample_string" result
- result' <- cstringToText result
- touchManagedPtr _obj
- return result'
-
-data LanguageGetSampleStringMethodInfo
-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo LanguageGetSampleStringMethodInfo Language signature where
- overloadedMethod _ = languageGetSampleString
-
--- method Language::get_scripts
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_scripts", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferEverything}]
--- Lengths : [Arg {argCName = "num_scripts", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferEverything}]
--- returnType : Just (TCArray False (-1) 1 (TInterface "Pango" "Script"))
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_language_get_scripts" pango_language_get_scripts ::
- Ptr Language -> -- _obj : TInterface "Pango" "Language"
- Ptr Int32 -> -- num_scripts : TBasicType TInt
- IO (Ptr CUInt)
-
-
-languageGetScripts ::
- (MonadIO m) =>
- Language -- _obj
- -> m (Maybe [Script]) -- result
-languageGetScripts _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- numScripts <- allocMem :: IO (Ptr Int32)
- result <- pango_language_get_scripts _obj' numScripts
- numScripts' <- peek numScripts
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (unpackStorableArrayWithLength numScripts') result'
- let result''' = map (toEnum . fromIntegral) result''
- return result'''
- touchManagedPtr _obj
- freeMem numScripts
- return maybeResult
-
-data LanguageGetScriptsMethodInfo
-instance (signature ~ (m (Maybe [Script])), MonadIO m) => MethodInfo LanguageGetScriptsMethodInfo Language signature where
- overloadedMethod _ = languageGetScripts
-
--- method Language::includes_script
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "script", argType = TInterface "Pango" "Script", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_language_includes_script" pango_language_includes_script ::
- Ptr Language -> -- _obj : TInterface "Pango" "Language"
- CUInt -> -- script : TInterface "Pango" "Script"
- IO CInt
-
-
-languageIncludesScript ::
- (MonadIO m) =>
- Language -- _obj
- -> Script -- script
- -> m Bool -- result
-languageIncludesScript _obj script = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let script' = (fromIntegral . fromEnum) script
- result <- pango_language_includes_script _obj' script'
- let result' = (/= 0) result
- touchManagedPtr _obj
- return result'
-
-data LanguageIncludesScriptMethodInfo
-instance (signature ~ (Script -> m Bool), MonadIO m) => MethodInfo LanguageIncludesScriptMethodInfo Language signature where
- overloadedMethod _ = languageIncludesScript
-
--- method Language::matches
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "range_list", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_language_matches" pango_language_matches ::
- Ptr Language -> -- _obj : TInterface "Pango" "Language"
- CString -> -- range_list : TBasicType TUTF8
- IO CInt
-
-
-languageMatches ::
- (MonadIO m) =>
- Language -- _obj
- -> T.Text -- rangeList
- -> m Bool -- result
-languageMatches _obj rangeList = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- rangeList' <- textToCString rangeList
- result <- pango_language_matches _obj' rangeList'
- let result' = (/= 0) result
- touchManagedPtr _obj
- freeMem rangeList'
- return result'
-
-data LanguageMatchesMethodInfo
-instance (signature ~ (T.Text -> m Bool), MonadIO m) => MethodInfo LanguageMatchesMethodInfo Language signature where
- overloadedMethod _ = languageMatches
-
--- method Language::to_string
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Language", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TUTF8)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_language_to_string" pango_language_to_string ::
- Ptr Language -> -- _obj : TInterface "Pango" "Language"
- IO CString
-
-
-languageToString ::
- (MonadIO m) =>
- Language -- _obj
- -> m T.Text -- result
-languageToString _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_language_to_string _obj'
- checkUnexpectedReturnNULL "pango_language_to_string" result
- result' <- cstringToText result
- touchManagedPtr _obj
- return result'
-
-data LanguageToStringMethodInfo
-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo LanguageToStringMethodInfo Language signature where
- overloadedMethod _ = languageToString
-
--- method Language::from_string
--- method type : MemberFunction
--- Args : [Arg {argCName = "language", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Language")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_language_from_string" pango_language_from_string ::
- CString -> -- language : TBasicType TUTF8
- IO (Ptr Language)
-
-
-languageFromString ::
- (MonadIO m) =>
- Maybe (T.Text) -- language
- -> m (Maybe Language) -- result
-languageFromString language = liftIO $ do
- maybeLanguage <- case language of
- Nothing -> return nullPtr
- Just jLanguage -> do
- jLanguage' <- textToCString jLanguage
- return jLanguage'
- result <- pango_language_from_string maybeLanguage
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (newBoxed Language) result'
- return result''
- freeMem maybeLanguage
- return maybeResult
-
--- method Language::get_default
--- method type : MemberFunction
--- Args : []
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Language")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_language_get_default" pango_language_get_default ::
- IO (Ptr Language)
-
-
-languageGetDefault ::
- (MonadIO m) =>
- m Language -- result
-languageGetDefault = liftIO $ do
- result <- pango_language_get_default
- checkUnexpectedReturnNULL "pango_language_get_default" result
- result' <- (newBoxed Language) result
- return result'
-
-type family ResolveLanguageMethod (t :: Symbol) (o :: *) :: * where
- ResolveLanguageMethod "includesScript" o = LanguageIncludesScriptMethodInfo
- ResolveLanguageMethod "matches" o = LanguageMatchesMethodInfo
- ResolveLanguageMethod "toString" o = LanguageToStringMethodInfo
- ResolveLanguageMethod "getSampleString" o = LanguageGetSampleStringMethodInfo
- ResolveLanguageMethod "getScripts" o = LanguageGetScriptsMethodInfo
- ResolveLanguageMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveLanguageMethod t Language, MethodInfo info Language p) => IsLabelProxy t (Language -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveLanguageMethod t Language, MethodInfo info Language p) => IsLabel t (Language -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/Language.hs-boot b/GI/Pango/Structs/Language.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/Language.hs-boot
+++ /dev/null
@@ -1,16 +0,0 @@
-module GI.Pango.Structs.Language where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype Language = Language (ForeignPtr Language)
-instance BoxedObject Language where
-data LanguageGetSampleStringMethodInfo
-data LanguageGetScriptsMethodInfo
-data LanguageIncludesScriptMethodInfo
-data LanguageMatchesMethodInfo
-data LanguageToStringMethodInfo
diff --git a/GI/Pango/Structs/LayoutIter.hs b/GI/Pango/Structs/LayoutIter.hs
deleted file mode 100644
--- a/GI/Pango/Structs/LayoutIter.hs
+++ /dev/null
@@ -1,778 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-A #PangoLayoutIter structure can be used to
-iterate over the visual extents of a #PangoLayout.
-
-The #PangoLayoutIter structure is opaque, and
-has no user-visible fields.
--}
-
-module GI.Pango.Structs.LayoutIter
- (
-
--- * Exported types
- LayoutIter(..) ,
- noLayoutIter ,
-
-
- -- * Methods
--- ** layoutIterAtLastLine
- LayoutIterAtLastLineMethodInfo ,
- layoutIterAtLastLine ,
-
-
--- ** layoutIterCopy
- LayoutIterCopyMethodInfo ,
- layoutIterCopy ,
-
-
--- ** layoutIterFree
- LayoutIterFreeMethodInfo ,
- layoutIterFree ,
-
-
--- ** layoutIterGetBaseline
- LayoutIterGetBaselineMethodInfo ,
- layoutIterGetBaseline ,
-
-
--- ** layoutIterGetCharExtents
- LayoutIterGetCharExtentsMethodInfo ,
- layoutIterGetCharExtents ,
-
-
--- ** layoutIterGetClusterExtents
- LayoutIterGetClusterExtentsMethodInfo ,
- layoutIterGetClusterExtents ,
-
-
--- ** layoutIterGetIndex
- LayoutIterGetIndexMethodInfo ,
- layoutIterGetIndex ,
-
-
--- ** layoutIterGetLayout
- LayoutIterGetLayoutMethodInfo ,
- layoutIterGetLayout ,
-
-
--- ** layoutIterGetLayoutExtents
- LayoutIterGetLayoutExtentsMethodInfo ,
- layoutIterGetLayoutExtents ,
-
-
--- ** layoutIterGetLine
- LayoutIterGetLineMethodInfo ,
- layoutIterGetLine ,
-
-
--- ** layoutIterGetLineExtents
- LayoutIterGetLineExtentsMethodInfo ,
- layoutIterGetLineExtents ,
-
-
--- ** layoutIterGetLineReadonly
- LayoutIterGetLineReadonlyMethodInfo ,
- layoutIterGetLineReadonly ,
-
-
--- ** layoutIterGetLineYrange
- LayoutIterGetLineYrangeMethodInfo ,
- layoutIterGetLineYrange ,
-
-
--- ** layoutIterGetRun
- LayoutIterGetRunMethodInfo ,
- layoutIterGetRun ,
-
-
--- ** layoutIterGetRunExtents
- LayoutIterGetRunExtentsMethodInfo ,
- layoutIterGetRunExtents ,
-
-
--- ** layoutIterGetRunReadonly
- LayoutIterGetRunReadonlyMethodInfo ,
- layoutIterGetRunReadonly ,
-
-
--- ** layoutIterNextChar
- LayoutIterNextCharMethodInfo ,
- layoutIterNextChar ,
-
-
--- ** layoutIterNextCluster
- LayoutIterNextClusterMethodInfo ,
- layoutIterNextCluster ,
-
-
--- ** layoutIterNextLine
- LayoutIterNextLineMethodInfo ,
- layoutIterNextLine ,
-
-
--- ** layoutIterNextRun
- LayoutIterNextRunMethodInfo ,
- layoutIterNextRun ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype LayoutIter = LayoutIter (ForeignPtr LayoutIter)
-foreign import ccall "pango_layout_iter_get_type" c_pango_layout_iter_get_type ::
- IO GType
-
-instance BoxedObject LayoutIter where
- boxedType _ = c_pango_layout_iter_get_type
-
-noLayoutIter :: Maybe LayoutIter
-noLayoutIter = Nothing
-
-
-type instance AttributeList LayoutIter = LayoutIterAttributeList
-type LayoutIterAttributeList = ('[ ] :: [(Symbol, *)])
-
--- method LayoutIter::at_last_line
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_iter_at_last_line" pango_layout_iter_at_last_line ::
- Ptr LayoutIter -> -- _obj : TInterface "Pango" "LayoutIter"
- IO CInt
-
-
-layoutIterAtLastLine ::
- (MonadIO m) =>
- LayoutIter -- _obj
- -> m Bool -- result
-layoutIterAtLastLine _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_layout_iter_at_last_line _obj'
- let result' = (/= 0) result
- touchManagedPtr _obj
- return result'
-
-data LayoutIterAtLastLineMethodInfo
-instance (signature ~ (m Bool), MonadIO m) => MethodInfo LayoutIterAtLastLineMethodInfo LayoutIter signature where
- overloadedMethod _ = layoutIterAtLastLine
-
--- method LayoutIter::copy
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "LayoutIter")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_iter_copy" pango_layout_iter_copy ::
- Ptr LayoutIter -> -- _obj : TInterface "Pango" "LayoutIter"
- IO (Ptr LayoutIter)
-
-
-layoutIterCopy ::
- (MonadIO m) =>
- LayoutIter -- _obj
- -> m (Maybe LayoutIter) -- result
-layoutIterCopy _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_layout_iter_copy _obj'
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (wrapBoxed LayoutIter) result'
- return result''
- touchManagedPtr _obj
- return maybeResult
-
-data LayoutIterCopyMethodInfo
-instance (signature ~ (m (Maybe LayoutIter)), MonadIO m) => MethodInfo LayoutIterCopyMethodInfo LayoutIter signature where
- overloadedMethod _ = layoutIterCopy
-
--- method LayoutIter::free
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_iter_free" pango_layout_iter_free ::
- Ptr LayoutIter -> -- _obj : TInterface "Pango" "LayoutIter"
- IO ()
-
-
-layoutIterFree ::
- (MonadIO m) =>
- LayoutIter -- _obj
- -> m () -- result
-layoutIterFree _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- pango_layout_iter_free _obj'
- touchManagedPtr _obj
- return ()
-
-data LayoutIterFreeMethodInfo
-instance (signature ~ (m ()), MonadIO m) => MethodInfo LayoutIterFreeMethodInfo LayoutIter signature where
- overloadedMethod _ = layoutIterFree
-
--- method LayoutIter::get_baseline
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TInt)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_iter_get_baseline" pango_layout_iter_get_baseline ::
- Ptr LayoutIter -> -- _obj : TInterface "Pango" "LayoutIter"
- IO Int32
-
-
-layoutIterGetBaseline ::
- (MonadIO m) =>
- LayoutIter -- _obj
- -> m Int32 -- result
-layoutIterGetBaseline _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_layout_iter_get_baseline _obj'
- touchManagedPtr _obj
- return result
-
-data LayoutIterGetBaselineMethodInfo
-instance (signature ~ (m Int32), MonadIO m) => MethodInfo LayoutIterGetBaselineMethodInfo LayoutIter signature where
- overloadedMethod _ = layoutIterGetBaseline
-
--- method LayoutIter::get_char_extents
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_iter_get_char_extents" pango_layout_iter_get_char_extents ::
- Ptr LayoutIter -> -- _obj : TInterface "Pango" "LayoutIter"
- Ptr Rectangle -> -- logical_rect : TInterface "Pango" "Rectangle"
- IO ()
-
-
-layoutIterGetCharExtents ::
- (MonadIO m) =>
- LayoutIter -- _obj
- -> m (Rectangle) -- result
-layoutIterGetCharExtents _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- logicalRect <- callocBytes 16 :: IO (Ptr Rectangle)
- pango_layout_iter_get_char_extents _obj' logicalRect
- logicalRect' <- (wrapPtr Rectangle) logicalRect
- touchManagedPtr _obj
- return logicalRect'
-
-data LayoutIterGetCharExtentsMethodInfo
-instance (signature ~ (m (Rectangle)), MonadIO m) => MethodInfo LayoutIterGetCharExtentsMethodInfo LayoutIter signature where
- overloadedMethod _ = layoutIterGetCharExtents
-
--- method LayoutIter::get_cluster_extents
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_iter_get_cluster_extents" pango_layout_iter_get_cluster_extents ::
- Ptr LayoutIter -> -- _obj : TInterface "Pango" "LayoutIter"
- Ptr Rectangle -> -- ink_rect : TInterface "Pango" "Rectangle"
- Ptr Rectangle -> -- logical_rect : TInterface "Pango" "Rectangle"
- IO ()
-
-
-layoutIterGetClusterExtents ::
- (MonadIO m) =>
- LayoutIter -- _obj
- -> m (Rectangle,Rectangle) -- result
-layoutIterGetClusterExtents _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- inkRect <- callocBytes 16 :: IO (Ptr Rectangle)
- logicalRect <- callocBytes 16 :: IO (Ptr Rectangle)
- pango_layout_iter_get_cluster_extents _obj' inkRect logicalRect
- inkRect' <- (wrapPtr Rectangle) inkRect
- logicalRect' <- (wrapPtr Rectangle) logicalRect
- touchManagedPtr _obj
- return (inkRect', logicalRect')
-
-data LayoutIterGetClusterExtentsMethodInfo
-instance (signature ~ (m (Rectangle,Rectangle)), MonadIO m) => MethodInfo LayoutIterGetClusterExtentsMethodInfo LayoutIter signature where
- overloadedMethod _ = layoutIterGetClusterExtents
-
--- method LayoutIter::get_index
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TInt)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_iter_get_index" pango_layout_iter_get_index ::
- Ptr LayoutIter -> -- _obj : TInterface "Pango" "LayoutIter"
- IO Int32
-
-
-layoutIterGetIndex ::
- (MonadIO m) =>
- LayoutIter -- _obj
- -> m Int32 -- result
-layoutIterGetIndex _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_layout_iter_get_index _obj'
- touchManagedPtr _obj
- return result
-
-data LayoutIterGetIndexMethodInfo
-instance (signature ~ (m Int32), MonadIO m) => MethodInfo LayoutIterGetIndexMethodInfo LayoutIter signature where
- overloadedMethod _ = layoutIterGetIndex
-
--- method LayoutIter::get_layout
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Layout")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_iter_get_layout" pango_layout_iter_get_layout ::
- Ptr LayoutIter -> -- _obj : TInterface "Pango" "LayoutIter"
- IO (Ptr Layout)
-
-
-layoutIterGetLayout ::
- (MonadIO m) =>
- LayoutIter -- _obj
- -> m Layout -- result
-layoutIterGetLayout _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_layout_iter_get_layout _obj'
- checkUnexpectedReturnNULL "pango_layout_iter_get_layout" result
- result' <- (newObject Layout) result
- touchManagedPtr _obj
- return result'
-
-data LayoutIterGetLayoutMethodInfo
-instance (signature ~ (m Layout), MonadIO m) => MethodInfo LayoutIterGetLayoutMethodInfo LayoutIter signature where
- overloadedMethod _ = layoutIterGetLayout
-
--- method LayoutIter::get_layout_extents
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_iter_get_layout_extents" pango_layout_iter_get_layout_extents ::
- Ptr LayoutIter -> -- _obj : TInterface "Pango" "LayoutIter"
- Ptr Rectangle -> -- ink_rect : TInterface "Pango" "Rectangle"
- Ptr Rectangle -> -- logical_rect : TInterface "Pango" "Rectangle"
- IO ()
-
-
-layoutIterGetLayoutExtents ::
- (MonadIO m) =>
- LayoutIter -- _obj
- -> m (Rectangle,Rectangle) -- result
-layoutIterGetLayoutExtents _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- inkRect <- callocBytes 16 :: IO (Ptr Rectangle)
- logicalRect <- callocBytes 16 :: IO (Ptr Rectangle)
- pango_layout_iter_get_layout_extents _obj' inkRect logicalRect
- inkRect' <- (wrapPtr Rectangle) inkRect
- logicalRect' <- (wrapPtr Rectangle) logicalRect
- touchManagedPtr _obj
- return (inkRect', logicalRect')
-
-data LayoutIterGetLayoutExtentsMethodInfo
-instance (signature ~ (m (Rectangle,Rectangle)), MonadIO m) => MethodInfo LayoutIterGetLayoutExtentsMethodInfo LayoutIter signature where
- overloadedMethod _ = layoutIterGetLayoutExtents
-
--- method LayoutIter::get_line
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "LayoutLine")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_iter_get_line" pango_layout_iter_get_line ::
- Ptr LayoutIter -> -- _obj : TInterface "Pango" "LayoutIter"
- IO (Ptr LayoutLine)
-
-
-layoutIterGetLine ::
- (MonadIO m) =>
- LayoutIter -- _obj
- -> m LayoutLine -- result
-layoutIterGetLine _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_layout_iter_get_line _obj'
- checkUnexpectedReturnNULL "pango_layout_iter_get_line" result
- result' <- (wrapBoxed LayoutLine) result
- touchManagedPtr _obj
- return result'
-
-data LayoutIterGetLineMethodInfo
-instance (signature ~ (m LayoutLine), MonadIO m) => MethodInfo LayoutIterGetLineMethodInfo LayoutIter signature where
- overloadedMethod _ = layoutIterGetLine
-
--- method LayoutIter::get_line_extents
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_iter_get_line_extents" pango_layout_iter_get_line_extents ::
- Ptr LayoutIter -> -- _obj : TInterface "Pango" "LayoutIter"
- Ptr Rectangle -> -- ink_rect : TInterface "Pango" "Rectangle"
- Ptr Rectangle -> -- logical_rect : TInterface "Pango" "Rectangle"
- IO ()
-
-
-layoutIterGetLineExtents ::
- (MonadIO m) =>
- LayoutIter -- _obj
- -> m (Rectangle,Rectangle) -- result
-layoutIterGetLineExtents _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- inkRect <- callocBytes 16 :: IO (Ptr Rectangle)
- logicalRect <- callocBytes 16 :: IO (Ptr Rectangle)
- pango_layout_iter_get_line_extents _obj' inkRect logicalRect
- inkRect' <- (wrapPtr Rectangle) inkRect
- logicalRect' <- (wrapPtr Rectangle) logicalRect
- touchManagedPtr _obj
- return (inkRect', logicalRect')
-
-data LayoutIterGetLineExtentsMethodInfo
-instance (signature ~ (m (Rectangle,Rectangle)), MonadIO m) => MethodInfo LayoutIterGetLineExtentsMethodInfo LayoutIter signature where
- overloadedMethod _ = layoutIterGetLineExtents
-
--- method LayoutIter::get_line_readonly
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "LayoutLine")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_iter_get_line_readonly" pango_layout_iter_get_line_readonly ::
- Ptr LayoutIter -> -- _obj : TInterface "Pango" "LayoutIter"
- IO (Ptr LayoutLine)
-
-
-layoutIterGetLineReadonly ::
- (MonadIO m) =>
- LayoutIter -- _obj
- -> m LayoutLine -- result
-layoutIterGetLineReadonly _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_layout_iter_get_line_readonly _obj'
- checkUnexpectedReturnNULL "pango_layout_iter_get_line_readonly" result
- result' <- (newBoxed LayoutLine) result
- touchManagedPtr _obj
- return result'
-
-data LayoutIterGetLineReadonlyMethodInfo
-instance (signature ~ (m LayoutLine), MonadIO m) => MethodInfo LayoutIterGetLineReadonlyMethodInfo LayoutIter signature where
- overloadedMethod _ = layoutIterGetLineReadonly
-
--- method LayoutIter::get_line_yrange
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y0_", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y1_", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_iter_get_line_yrange" pango_layout_iter_get_line_yrange ::
- Ptr LayoutIter -> -- _obj : TInterface "Pango" "LayoutIter"
- Ptr Int32 -> -- y0_ : TBasicType TInt
- Ptr Int32 -> -- y1_ : TBasicType TInt
- IO ()
-
-
-layoutIterGetLineYrange ::
- (MonadIO m) =>
- LayoutIter -- _obj
- -> m (Int32,Int32) -- result
-layoutIterGetLineYrange _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- y0_ <- allocMem :: IO (Ptr Int32)
- y1_ <- allocMem :: IO (Ptr Int32)
- pango_layout_iter_get_line_yrange _obj' y0_ y1_
- y0_' <- peek y0_
- y1_' <- peek y1_
- touchManagedPtr _obj
- freeMem y0_
- freeMem y1_
- return (y0_', y1_')
-
-data LayoutIterGetLineYrangeMethodInfo
-instance (signature ~ (m (Int32,Int32)), MonadIO m) => MethodInfo LayoutIterGetLineYrangeMethodInfo LayoutIter signature where
- overloadedMethod _ = layoutIterGetLineYrange
-
--- method LayoutIter::get_run
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "GlyphItem")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_iter_get_run" pango_layout_iter_get_run ::
- Ptr LayoutIter -> -- _obj : TInterface "Pango" "LayoutIter"
- IO (Ptr GlyphItem)
-
-
-layoutIterGetRun ::
- (MonadIO m) =>
- LayoutIter -- _obj
- -> m (Maybe GlyphItem) -- result
-layoutIterGetRun _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_layout_iter_get_run _obj'
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (newBoxed GlyphItem) result'
- return result''
- touchManagedPtr _obj
- return maybeResult
-
-data LayoutIterGetRunMethodInfo
-instance (signature ~ (m (Maybe GlyphItem)), MonadIO m) => MethodInfo LayoutIterGetRunMethodInfo LayoutIter signature where
- overloadedMethod _ = layoutIterGetRun
-
--- method LayoutIter::get_run_extents
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_iter_get_run_extents" pango_layout_iter_get_run_extents ::
- Ptr LayoutIter -> -- _obj : TInterface "Pango" "LayoutIter"
- Ptr Rectangle -> -- ink_rect : TInterface "Pango" "Rectangle"
- Ptr Rectangle -> -- logical_rect : TInterface "Pango" "Rectangle"
- IO ()
-
-
-layoutIterGetRunExtents ::
- (MonadIO m) =>
- LayoutIter -- _obj
- -> m (Rectangle,Rectangle) -- result
-layoutIterGetRunExtents _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- inkRect <- callocBytes 16 :: IO (Ptr Rectangle)
- logicalRect <- callocBytes 16 :: IO (Ptr Rectangle)
- pango_layout_iter_get_run_extents _obj' inkRect logicalRect
- inkRect' <- (wrapPtr Rectangle) inkRect
- logicalRect' <- (wrapPtr Rectangle) logicalRect
- touchManagedPtr _obj
- return (inkRect', logicalRect')
-
-data LayoutIterGetRunExtentsMethodInfo
-instance (signature ~ (m (Rectangle,Rectangle)), MonadIO m) => MethodInfo LayoutIterGetRunExtentsMethodInfo LayoutIter signature where
- overloadedMethod _ = layoutIterGetRunExtents
-
--- method LayoutIter::get_run_readonly
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "GlyphItem")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_iter_get_run_readonly" pango_layout_iter_get_run_readonly ::
- Ptr LayoutIter -> -- _obj : TInterface "Pango" "LayoutIter"
- IO (Ptr GlyphItem)
-
-
-layoutIterGetRunReadonly ::
- (MonadIO m) =>
- LayoutIter -- _obj
- -> m (Maybe GlyphItem) -- result
-layoutIterGetRunReadonly _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_layout_iter_get_run_readonly _obj'
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (newBoxed GlyphItem) result'
- return result''
- touchManagedPtr _obj
- return maybeResult
-
-data LayoutIterGetRunReadonlyMethodInfo
-instance (signature ~ (m (Maybe GlyphItem)), MonadIO m) => MethodInfo LayoutIterGetRunReadonlyMethodInfo LayoutIter signature where
- overloadedMethod _ = layoutIterGetRunReadonly
-
--- method LayoutIter::next_char
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_iter_next_char" pango_layout_iter_next_char ::
- Ptr LayoutIter -> -- _obj : TInterface "Pango" "LayoutIter"
- IO CInt
-
-
-layoutIterNextChar ::
- (MonadIO m) =>
- LayoutIter -- _obj
- -> m Bool -- result
-layoutIterNextChar _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_layout_iter_next_char _obj'
- let result' = (/= 0) result
- touchManagedPtr _obj
- return result'
-
-data LayoutIterNextCharMethodInfo
-instance (signature ~ (m Bool), MonadIO m) => MethodInfo LayoutIterNextCharMethodInfo LayoutIter signature where
- overloadedMethod _ = layoutIterNextChar
-
--- method LayoutIter::next_cluster
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_iter_next_cluster" pango_layout_iter_next_cluster ::
- Ptr LayoutIter -> -- _obj : TInterface "Pango" "LayoutIter"
- IO CInt
-
-
-layoutIterNextCluster ::
- (MonadIO m) =>
- LayoutIter -- _obj
- -> m Bool -- result
-layoutIterNextCluster _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_layout_iter_next_cluster _obj'
- let result' = (/= 0) result
- touchManagedPtr _obj
- return result'
-
-data LayoutIterNextClusterMethodInfo
-instance (signature ~ (m Bool), MonadIO m) => MethodInfo LayoutIterNextClusterMethodInfo LayoutIter signature where
- overloadedMethod _ = layoutIterNextCluster
-
--- method LayoutIter::next_line
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_iter_next_line" pango_layout_iter_next_line ::
- Ptr LayoutIter -> -- _obj : TInterface "Pango" "LayoutIter"
- IO CInt
-
-
-layoutIterNextLine ::
- (MonadIO m) =>
- LayoutIter -- _obj
- -> m Bool -- result
-layoutIterNextLine _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_layout_iter_next_line _obj'
- let result' = (/= 0) result
- touchManagedPtr _obj
- return result'
-
-data LayoutIterNextLineMethodInfo
-instance (signature ~ (m Bool), MonadIO m) => MethodInfo LayoutIterNextLineMethodInfo LayoutIter signature where
- overloadedMethod _ = layoutIterNextLine
-
--- method LayoutIter::next_run
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "LayoutIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_iter_next_run" pango_layout_iter_next_run ::
- Ptr LayoutIter -> -- _obj : TInterface "Pango" "LayoutIter"
- IO CInt
-
-
-layoutIterNextRun ::
- (MonadIO m) =>
- LayoutIter -- _obj
- -> m Bool -- result
-layoutIterNextRun _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_layout_iter_next_run _obj'
- let result' = (/= 0) result
- touchManagedPtr _obj
- return result'
-
-data LayoutIterNextRunMethodInfo
-instance (signature ~ (m Bool), MonadIO m) => MethodInfo LayoutIterNextRunMethodInfo LayoutIter signature where
- overloadedMethod _ = layoutIterNextRun
-
-type family ResolveLayoutIterMethod (t :: Symbol) (o :: *) :: * where
- ResolveLayoutIterMethod "atLastLine" o = LayoutIterAtLastLineMethodInfo
- ResolveLayoutIterMethod "copy" o = LayoutIterCopyMethodInfo
- ResolveLayoutIterMethod "free" o = LayoutIterFreeMethodInfo
- ResolveLayoutIterMethod "nextChar" o = LayoutIterNextCharMethodInfo
- ResolveLayoutIterMethod "nextCluster" o = LayoutIterNextClusterMethodInfo
- ResolveLayoutIterMethod "nextLine" o = LayoutIterNextLineMethodInfo
- ResolveLayoutIterMethod "nextRun" o = LayoutIterNextRunMethodInfo
- ResolveLayoutIterMethod "getBaseline" o = LayoutIterGetBaselineMethodInfo
- ResolveLayoutIterMethod "getCharExtents" o = LayoutIterGetCharExtentsMethodInfo
- ResolveLayoutIterMethod "getClusterExtents" o = LayoutIterGetClusterExtentsMethodInfo
- ResolveLayoutIterMethod "getIndex" o = LayoutIterGetIndexMethodInfo
- ResolveLayoutIterMethod "getLayout" o = LayoutIterGetLayoutMethodInfo
- ResolveLayoutIterMethod "getLayoutExtents" o = LayoutIterGetLayoutExtentsMethodInfo
- ResolveLayoutIterMethod "getLine" o = LayoutIterGetLineMethodInfo
- ResolveLayoutIterMethod "getLineExtents" o = LayoutIterGetLineExtentsMethodInfo
- ResolveLayoutIterMethod "getLineReadonly" o = LayoutIterGetLineReadonlyMethodInfo
- ResolveLayoutIterMethod "getLineYrange" o = LayoutIterGetLineYrangeMethodInfo
- ResolveLayoutIterMethod "getRun" o = LayoutIterGetRunMethodInfo
- ResolveLayoutIterMethod "getRunExtents" o = LayoutIterGetRunExtentsMethodInfo
- ResolveLayoutIterMethod "getRunReadonly" o = LayoutIterGetRunReadonlyMethodInfo
- ResolveLayoutIterMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveLayoutIterMethod t LayoutIter, MethodInfo info LayoutIter p) => IsLabelProxy t (LayoutIter -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveLayoutIterMethod t LayoutIter, MethodInfo info LayoutIter p) => IsLabel t (LayoutIter -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/LayoutIter.hs-boot b/GI/Pango/Structs/LayoutIter.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/LayoutIter.hs-boot
+++ /dev/null
@@ -1,31 +0,0 @@
-module GI.Pango.Structs.LayoutIter where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype LayoutIter = LayoutIter (ForeignPtr LayoutIter)
-instance BoxedObject LayoutIter where
-data LayoutIterAtLastLineMethodInfo
-data LayoutIterCopyMethodInfo
-data LayoutIterFreeMethodInfo
-data LayoutIterGetBaselineMethodInfo
-data LayoutIterGetCharExtentsMethodInfo
-data LayoutIterGetClusterExtentsMethodInfo
-data LayoutIterGetIndexMethodInfo
-data LayoutIterGetLayoutMethodInfo
-data LayoutIterGetLayoutExtentsMethodInfo
-data LayoutIterGetLineMethodInfo
-data LayoutIterGetLineExtentsMethodInfo
-data LayoutIterGetLineReadonlyMethodInfo
-data LayoutIterGetLineYrangeMethodInfo
-data LayoutIterGetRunMethodInfo
-data LayoutIterGetRunExtentsMethodInfo
-data LayoutIterGetRunReadonlyMethodInfo
-data LayoutIterNextCharMethodInfo
-data LayoutIterNextClusterMethodInfo
-data LayoutIterNextLineMethodInfo
-data LayoutIterNextRunMethodInfo
diff --git a/GI/Pango/Structs/LayoutLine.hs b/GI/Pango/Structs/LayoutLine.hs
deleted file mode 100644
--- a/GI/Pango/Structs/LayoutLine.hs
+++ /dev/null
@@ -1,560 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-The #PangoLayoutLine structure represents one of the lines resulting
-from laying out a paragraph via #PangoLayout. #PangoLayoutLine
-structures are obtained by calling pango_layout_get_line() and
-are only valid until the text, attributes, or settings of the
-parent #PangoLayout are modified.
-
-Routines for rendering PangoLayout objects are provided in
-code specific to each rendering system.
--}
-
-module GI.Pango.Structs.LayoutLine
- (
-
--- * Exported types
- LayoutLine(..) ,
- newZeroLayoutLine ,
- noLayoutLine ,
-
-
- -- * Methods
--- ** layoutLineGetExtents
- LayoutLineGetExtentsMethodInfo ,
- layoutLineGetExtents ,
-
-
--- ** layoutLineGetPixelExtents
- LayoutLineGetPixelExtentsMethodInfo ,
- layoutLineGetPixelExtents ,
-
-
--- ** layoutLineGetXRanges
- LayoutLineGetXRangesMethodInfo ,
- layoutLineGetXRanges ,
-
-
--- ** layoutLineIndexToX
- LayoutLineIndexToXMethodInfo ,
- layoutLineIndexToX ,
-
-
--- ** layoutLineRef
- LayoutLineRefMethodInfo ,
- layoutLineRef ,
-
-
--- ** layoutLineUnref
- LayoutLineUnrefMethodInfo ,
- layoutLineUnref ,
-
-
--- ** layoutLineXToIndex
- LayoutLineXToIndexMethodInfo ,
- layoutLineXToIndex ,
-
-
-
-
- -- * Properties
--- ** IsParagraphStart
- layoutLineIsParagraphStart ,
- layoutLineReadIsParagraphStart ,
- layoutLineWriteIsParagraphStart ,
-
-
--- ** Layout
- layoutLineClearLayout ,
- layoutLineLayout ,
- layoutLineReadLayout ,
- layoutLineWriteLayout ,
-
-
--- ** Length
- layoutLineLength ,
- layoutLineReadLength ,
- layoutLineWriteLength ,
-
-
--- ** ResolvedDir
- layoutLineReadResolvedDir ,
- layoutLineResolvedDir ,
- layoutLineWriteResolvedDir ,
-
-
--- ** Runs
- layoutLineClearRuns ,
- layoutLineReadRuns ,
- layoutLineRuns ,
- layoutLineWriteRuns ,
-
-
--- ** StartIndex
- layoutLineReadStartIndex ,
- layoutLineStartIndex ,
- layoutLineWriteStartIndex ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype LayoutLine = LayoutLine (ForeignPtr LayoutLine)
-foreign import ccall "pango_layout_line_get_type" c_pango_layout_line_get_type ::
- IO GType
-
-instance BoxedObject LayoutLine where
- boxedType _ = c_pango_layout_line_get_type
-
--- | Construct a `LayoutLine` struct initialized to zero.
-newZeroLayoutLine :: MonadIO m => m LayoutLine
-newZeroLayoutLine = liftIO $ callocBoxedBytes 32 >>= wrapBoxed LayoutLine
-
-instance tag ~ 'AttrSet => Constructible LayoutLine tag where
- new _ attrs = do
- o <- newZeroLayoutLine
- GI.Attributes.set o attrs
- return o
-
-
-noLayoutLine :: Maybe LayoutLine
-noLayoutLine = Nothing
-
-layoutLineReadLayout :: MonadIO m => LayoutLine -> m (Maybe Layout)
-layoutLineReadLayout s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 0) :: IO (Ptr Layout)
- result <- convertIfNonNull val $ \val' -> do
- val'' <- (newObject Layout) val'
- return val''
- return result
-
-layoutLineWriteLayout :: MonadIO m => LayoutLine -> Ptr Layout -> m ()
-layoutLineWriteLayout s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (val :: Ptr Layout)
-
-layoutLineClearLayout :: MonadIO m => LayoutLine -> m ()
-layoutLineClearLayout s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (nullPtr :: Ptr Layout)
-
-data LayoutLineLayoutFieldInfo
-instance AttrInfo LayoutLineLayoutFieldInfo where
- type AttrAllowedOps LayoutLineLayoutFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint LayoutLineLayoutFieldInfo = (~) (Ptr Layout)
- type AttrBaseTypeConstraint LayoutLineLayoutFieldInfo = (~) LayoutLine
- type AttrGetType LayoutLineLayoutFieldInfo = Maybe Layout
- type AttrLabel LayoutLineLayoutFieldInfo = "layout"
- attrGet _ = layoutLineReadLayout
- attrSet _ = layoutLineWriteLayout
- attrConstruct = undefined
- attrClear _ = layoutLineClearLayout
-
-layoutLineLayout :: AttrLabelProxy "layout"
-layoutLineLayout = AttrLabelProxy
-
-
-layoutLineReadStartIndex :: MonadIO m => LayoutLine -> m Int32
-layoutLineReadStartIndex s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 8) :: IO Int32
- return val
-
-layoutLineWriteStartIndex :: MonadIO m => LayoutLine -> Int32 -> m ()
-layoutLineWriteStartIndex s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 8) (val :: Int32)
-
-data LayoutLineStartIndexFieldInfo
-instance AttrInfo LayoutLineStartIndexFieldInfo where
- type AttrAllowedOps LayoutLineStartIndexFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint LayoutLineStartIndexFieldInfo = (~) Int32
- type AttrBaseTypeConstraint LayoutLineStartIndexFieldInfo = (~) LayoutLine
- type AttrGetType LayoutLineStartIndexFieldInfo = Int32
- type AttrLabel LayoutLineStartIndexFieldInfo = "start_index"
- attrGet _ = layoutLineReadStartIndex
- attrSet _ = layoutLineWriteStartIndex
- attrConstruct = undefined
- attrClear _ = undefined
-
-layoutLineStartIndex :: AttrLabelProxy "startIndex"
-layoutLineStartIndex = AttrLabelProxy
-
-
-layoutLineReadLength :: MonadIO m => LayoutLine -> m Int32
-layoutLineReadLength s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 12) :: IO Int32
- return val
-
-layoutLineWriteLength :: MonadIO m => LayoutLine -> Int32 -> m ()
-layoutLineWriteLength s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 12) (val :: Int32)
-
-data LayoutLineLengthFieldInfo
-instance AttrInfo LayoutLineLengthFieldInfo where
- type AttrAllowedOps LayoutLineLengthFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint LayoutLineLengthFieldInfo = (~) Int32
- type AttrBaseTypeConstraint LayoutLineLengthFieldInfo = (~) LayoutLine
- type AttrGetType LayoutLineLengthFieldInfo = Int32
- type AttrLabel LayoutLineLengthFieldInfo = "length"
- attrGet _ = layoutLineReadLength
- attrSet _ = layoutLineWriteLength
- attrConstruct = undefined
- attrClear _ = undefined
-
-layoutLineLength :: AttrLabelProxy "length"
-layoutLineLength = AttrLabelProxy
-
-
-layoutLineReadRuns :: MonadIO m => LayoutLine -> m ([Ptr ()])
-layoutLineReadRuns s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 16) :: IO (Ptr (GSList (Ptr ())))
- val' <- unpackGSList val
- return val'
-
-layoutLineWriteRuns :: MonadIO m => LayoutLine -> Ptr (GSList (Ptr ())) -> m ()
-layoutLineWriteRuns s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 16) (val :: Ptr (GSList (Ptr ())))
-
-layoutLineClearRuns :: MonadIO m => LayoutLine -> m ()
-layoutLineClearRuns s = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 16) (nullPtr :: Ptr (GSList (Ptr ())))
-
-data LayoutLineRunsFieldInfo
-instance AttrInfo LayoutLineRunsFieldInfo where
- type AttrAllowedOps LayoutLineRunsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
- type AttrSetTypeConstraint LayoutLineRunsFieldInfo = (~) (Ptr (GSList (Ptr ())))
- type AttrBaseTypeConstraint LayoutLineRunsFieldInfo = (~) LayoutLine
- type AttrGetType LayoutLineRunsFieldInfo = [Ptr ()]
- type AttrLabel LayoutLineRunsFieldInfo = "runs"
- attrGet _ = layoutLineReadRuns
- attrSet _ = layoutLineWriteRuns
- attrConstruct = undefined
- attrClear _ = layoutLineClearRuns
-
-layoutLineRuns :: AttrLabelProxy "runs"
-layoutLineRuns = AttrLabelProxy
-
-
-layoutLineReadIsParagraphStart :: MonadIO m => LayoutLine -> m Word32
-layoutLineReadIsParagraphStart s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 24) :: IO Word32
- return val
-
-layoutLineWriteIsParagraphStart :: MonadIO m => LayoutLine -> Word32 -> m ()
-layoutLineWriteIsParagraphStart s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 24) (val :: Word32)
-
-data LayoutLineIsParagraphStartFieldInfo
-instance AttrInfo LayoutLineIsParagraphStartFieldInfo where
- type AttrAllowedOps LayoutLineIsParagraphStartFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint LayoutLineIsParagraphStartFieldInfo = (~) Word32
- type AttrBaseTypeConstraint LayoutLineIsParagraphStartFieldInfo = (~) LayoutLine
- type AttrGetType LayoutLineIsParagraphStartFieldInfo = Word32
- type AttrLabel LayoutLineIsParagraphStartFieldInfo = "is_paragraph_start"
- attrGet _ = layoutLineReadIsParagraphStart
- attrSet _ = layoutLineWriteIsParagraphStart
- attrConstruct = undefined
- attrClear _ = undefined
-
-layoutLineIsParagraphStart :: AttrLabelProxy "isParagraphStart"
-layoutLineIsParagraphStart = AttrLabelProxy
-
-
-layoutLineReadResolvedDir :: MonadIO m => LayoutLine -> m Word32
-layoutLineReadResolvedDir s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 28) :: IO Word32
- return val
-
-layoutLineWriteResolvedDir :: MonadIO m => LayoutLine -> Word32 -> m ()
-layoutLineWriteResolvedDir s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 28) (val :: Word32)
-
-data LayoutLineResolvedDirFieldInfo
-instance AttrInfo LayoutLineResolvedDirFieldInfo where
- type AttrAllowedOps LayoutLineResolvedDirFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint LayoutLineResolvedDirFieldInfo = (~) Word32
- type AttrBaseTypeConstraint LayoutLineResolvedDirFieldInfo = (~) LayoutLine
- type AttrGetType LayoutLineResolvedDirFieldInfo = Word32
- type AttrLabel LayoutLineResolvedDirFieldInfo = "resolved_dir"
- attrGet _ = layoutLineReadResolvedDir
- attrSet _ = layoutLineWriteResolvedDir
- attrConstruct = undefined
- attrClear _ = undefined
-
-layoutLineResolvedDir :: AttrLabelProxy "resolvedDir"
-layoutLineResolvedDir = AttrLabelProxy
-
-
-
-type instance AttributeList LayoutLine = LayoutLineAttributeList
-type LayoutLineAttributeList = ('[ '("layout", LayoutLineLayoutFieldInfo), '("startIndex", LayoutLineStartIndexFieldInfo), '("length", LayoutLineLengthFieldInfo), '("runs", LayoutLineRunsFieldInfo), '("isParagraphStart", LayoutLineIsParagraphStartFieldInfo), '("resolvedDir", LayoutLineResolvedDirFieldInfo)] :: [(Symbol, *)])
-
--- method LayoutLine::get_extents
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_line_get_extents" pango_layout_line_get_extents ::
- Ptr LayoutLine -> -- _obj : TInterface "Pango" "LayoutLine"
- Ptr Rectangle -> -- ink_rect : TInterface "Pango" "Rectangle"
- Ptr Rectangle -> -- logical_rect : TInterface "Pango" "Rectangle"
- IO ()
-
-
-layoutLineGetExtents ::
- (MonadIO m) =>
- LayoutLine -- _obj
- -> m (Rectangle,Rectangle) -- result
-layoutLineGetExtents _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- inkRect <- callocBytes 16 :: IO (Ptr Rectangle)
- logicalRect <- callocBytes 16 :: IO (Ptr Rectangle)
- pango_layout_line_get_extents _obj' inkRect logicalRect
- inkRect' <- (wrapPtr Rectangle) inkRect
- logicalRect' <- (wrapPtr Rectangle) logicalRect
- touchManagedPtr _obj
- return (inkRect', logicalRect')
-
-data LayoutLineGetExtentsMethodInfo
-instance (signature ~ (m (Rectangle,Rectangle)), MonadIO m) => MethodInfo LayoutLineGetExtentsMethodInfo LayoutLine signature where
- overloadedMethod _ = layoutLineGetExtents
-
--- method LayoutLine::get_pixel_extents
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ink_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "logical_rect", argType = TInterface "Pango" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_line_get_pixel_extents" pango_layout_line_get_pixel_extents ::
- Ptr LayoutLine -> -- _obj : TInterface "Pango" "LayoutLine"
- Ptr Rectangle -> -- ink_rect : TInterface "Pango" "Rectangle"
- Ptr Rectangle -> -- logical_rect : TInterface "Pango" "Rectangle"
- IO ()
-
-
-layoutLineGetPixelExtents ::
- (MonadIO m) =>
- LayoutLine -- _obj
- -> m (Rectangle,Rectangle) -- result
-layoutLineGetPixelExtents _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- inkRect <- callocBytes 16 :: IO (Ptr Rectangle)
- logicalRect <- callocBytes 16 :: IO (Ptr Rectangle)
- pango_layout_line_get_pixel_extents _obj' inkRect logicalRect
- inkRect' <- (wrapPtr Rectangle) inkRect
- logicalRect' <- (wrapPtr Rectangle) logicalRect
- touchManagedPtr _obj
- return (inkRect', logicalRect')
-
-data LayoutLineGetPixelExtentsMethodInfo
-instance (signature ~ (m (Rectangle,Rectangle)), MonadIO m) => MethodInfo LayoutLineGetPixelExtentsMethodInfo LayoutLine signature where
- overloadedMethod _ = layoutLineGetPixelExtents
-
--- method LayoutLine::get_x_ranges
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ranges", argType = TCArray False (-1) 4 (TBasicType TInt), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_ranges", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : [Arg {argCName = "n_ranges", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_line_get_x_ranges" pango_layout_line_get_x_ranges ::
- Ptr LayoutLine -> -- _obj : TInterface "Pango" "LayoutLine"
- Int32 -> -- start_index : TBasicType TInt
- Int32 -> -- end_index : TBasicType TInt
- Ptr (Ptr Int32) -> -- ranges : TCArray False (-1) 4 (TBasicType TInt)
- Ptr Int32 -> -- n_ranges : TBasicType TInt
- IO ()
-
-
-layoutLineGetXRanges ::
- (MonadIO m) =>
- LayoutLine -- _obj
- -> Int32 -- startIndex
- -> Int32 -- endIndex
- -> m ([Int32]) -- result
-layoutLineGetXRanges _obj startIndex endIndex = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- ranges <- allocMem :: IO (Ptr (Ptr Int32))
- nRanges <- allocMem :: IO (Ptr Int32)
- pango_layout_line_get_x_ranges _obj' startIndex endIndex ranges nRanges
- nRanges' <- peek nRanges
- ranges' <- peek ranges
- ranges'' <- (unpackStorableArrayWithLength nRanges') ranges'
- freeMem ranges'
- touchManagedPtr _obj
- freeMem ranges
- freeMem nRanges
- return ranges''
-
-data LayoutLineGetXRangesMethodInfo
-instance (signature ~ (Int32 -> Int32 -> m ([Int32])), MonadIO m) => MethodInfo LayoutLineGetXRangesMethodInfo LayoutLine signature where
- overloadedMethod _ = layoutLineGetXRanges
-
--- method LayoutLine::index_to_x
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "trailing", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_pos", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_line_index_to_x" pango_layout_line_index_to_x ::
- Ptr LayoutLine -> -- _obj : TInterface "Pango" "LayoutLine"
- Int32 -> -- index_ : TBasicType TInt
- CInt -> -- trailing : TBasicType TBoolean
- Ptr Int32 -> -- x_pos : TBasicType TInt
- IO ()
-
-
-layoutLineIndexToX ::
- (MonadIO m) =>
- LayoutLine -- _obj
- -> Int32 -- index_
- -> Bool -- trailing
- -> m (Int32) -- result
-layoutLineIndexToX _obj index_ trailing = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let trailing' = (fromIntegral . fromEnum) trailing
- xPos <- allocMem :: IO (Ptr Int32)
- pango_layout_line_index_to_x _obj' index_ trailing' xPos
- xPos' <- peek xPos
- touchManagedPtr _obj
- freeMem xPos
- return xPos'
-
-data LayoutLineIndexToXMethodInfo
-instance (signature ~ (Int32 -> Bool -> m (Int32)), MonadIO m) => MethodInfo LayoutLineIndexToXMethodInfo LayoutLine signature where
- overloadedMethod _ = layoutLineIndexToX
-
--- method LayoutLine::ref
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "LayoutLine")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_line_ref" pango_layout_line_ref ::
- Ptr LayoutLine -> -- _obj : TInterface "Pango" "LayoutLine"
- IO (Ptr LayoutLine)
-
-
-layoutLineRef ::
- (MonadIO m) =>
- LayoutLine -- _obj
- -> m LayoutLine -- result
-layoutLineRef _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_layout_line_ref _obj'
- checkUnexpectedReturnNULL "pango_layout_line_ref" result
- result' <- (wrapBoxed LayoutLine) result
- touchManagedPtr _obj
- return result'
-
-data LayoutLineRefMethodInfo
-instance (signature ~ (m LayoutLine), MonadIO m) => MethodInfo LayoutLineRefMethodInfo LayoutLine signature where
- overloadedMethod _ = layoutLineRef
-
--- method LayoutLine::unref
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_line_unref" pango_layout_line_unref ::
- Ptr LayoutLine -> -- _obj : TInterface "Pango" "LayoutLine"
- IO ()
-
-
-layoutLineUnref ::
- (MonadIO m) =>
- LayoutLine -- _obj
- -> m () -- result
-layoutLineUnref _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- pango_layout_line_unref _obj'
- touchManagedPtr _obj
- return ()
-
-data LayoutLineUnrefMethodInfo
-instance (signature ~ (m ()), MonadIO m) => MethodInfo LayoutLineUnrefMethodInfo LayoutLine signature where
- overloadedMethod _ = layoutLineUnref
-
--- method LayoutLine::x_to_index
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "LayoutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_pos", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "trailing", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_layout_line_x_to_index" pango_layout_line_x_to_index ::
- Ptr LayoutLine -> -- _obj : TInterface "Pango" "LayoutLine"
- Int32 -> -- x_pos : TBasicType TInt
- Ptr Int32 -> -- index_ : TBasicType TInt
- Ptr Int32 -> -- trailing : TBasicType TInt
- IO CInt
-
-
-layoutLineXToIndex ::
- (MonadIO m) =>
- LayoutLine -- _obj
- -> Int32 -- xPos
- -> m (Bool,Int32,Int32) -- result
-layoutLineXToIndex _obj xPos = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- index_ <- allocMem :: IO (Ptr Int32)
- trailing <- allocMem :: IO (Ptr Int32)
- result <- pango_layout_line_x_to_index _obj' xPos index_ trailing
- let result' = (/= 0) result
- index_' <- peek index_
- trailing' <- peek trailing
- touchManagedPtr _obj
- freeMem index_
- freeMem trailing
- return (result', index_', trailing')
-
-data LayoutLineXToIndexMethodInfo
-instance (signature ~ (Int32 -> m (Bool,Int32,Int32)), MonadIO m) => MethodInfo LayoutLineXToIndexMethodInfo LayoutLine signature where
- overloadedMethod _ = layoutLineXToIndex
-
-type family ResolveLayoutLineMethod (t :: Symbol) (o :: *) :: * where
- ResolveLayoutLineMethod "indexToX" o = LayoutLineIndexToXMethodInfo
- ResolveLayoutLineMethod "ref" o = LayoutLineRefMethodInfo
- ResolveLayoutLineMethod "unref" o = LayoutLineUnrefMethodInfo
- ResolveLayoutLineMethod "xToIndex" o = LayoutLineXToIndexMethodInfo
- ResolveLayoutLineMethod "getExtents" o = LayoutLineGetExtentsMethodInfo
- ResolveLayoutLineMethod "getPixelExtents" o = LayoutLineGetPixelExtentsMethodInfo
- ResolveLayoutLineMethod "getXRanges" o = LayoutLineGetXRangesMethodInfo
- ResolveLayoutLineMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveLayoutLineMethod t LayoutLine, MethodInfo info LayoutLine p) => IsLabelProxy t (LayoutLine -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveLayoutLineMethod t LayoutLine, MethodInfo info LayoutLine p) => IsLabel t (LayoutLine -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/LayoutLine.hs-boot b/GI/Pango/Structs/LayoutLine.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/LayoutLine.hs-boot
+++ /dev/null
@@ -1,18 +0,0 @@
-module GI.Pango.Structs.LayoutLine where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype LayoutLine = LayoutLine (ForeignPtr LayoutLine)
-instance BoxedObject LayoutLine where
-data LayoutLineGetExtentsMethodInfo
-data LayoutLineGetPixelExtentsMethodInfo
-data LayoutLineGetXRangesMethodInfo
-data LayoutLineIndexToXMethodInfo
-data LayoutLineRefMethodInfo
-data LayoutLineUnrefMethodInfo
-data LayoutLineXToIndexMethodInfo
diff --git a/GI/Pango/Structs/LogAttr.hs b/GI/Pango/Structs/LogAttr.hs
deleted file mode 100644
--- a/GI/Pango/Structs/LogAttr.hs
+++ /dev/null
@@ -1,474 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-The #PangoLogAttr structure stores information
-about the attributes of a single character.
--}
-
-module GI.Pango.Structs.LogAttr
- (
-
--- * Exported types
- LogAttr(..) ,
- newZeroLogAttr ,
- noLogAttr ,
-
-
- -- * Properties
--- ** BackspaceDeletesCharacter
- logAttrBackspaceDeletesCharacter ,
- logAttrReadBackspaceDeletesCharacter ,
- logAttrWriteBackspaceDeletesCharacter ,
-
-
--- ** IsCharBreak
- logAttrIsCharBreak ,
- logAttrReadIsCharBreak ,
- logAttrWriteIsCharBreak ,
-
-
--- ** IsCursorPosition
- logAttrIsCursorPosition ,
- logAttrReadIsCursorPosition ,
- logAttrWriteIsCursorPosition ,
-
-
--- ** IsExpandableSpace
- logAttrIsExpandableSpace ,
- logAttrReadIsExpandableSpace ,
- logAttrWriteIsExpandableSpace ,
-
-
--- ** IsLineBreak
- logAttrIsLineBreak ,
- logAttrReadIsLineBreak ,
- logAttrWriteIsLineBreak ,
-
-
--- ** IsMandatoryBreak
- logAttrIsMandatoryBreak ,
- logAttrReadIsMandatoryBreak ,
- logAttrWriteIsMandatoryBreak ,
-
-
--- ** IsSentenceBoundary
- logAttrIsSentenceBoundary ,
- logAttrReadIsSentenceBoundary ,
- logAttrWriteIsSentenceBoundary ,
-
-
--- ** IsSentenceEnd
- logAttrIsSentenceEnd ,
- logAttrReadIsSentenceEnd ,
- logAttrWriteIsSentenceEnd ,
-
-
--- ** IsSentenceStart
- logAttrIsSentenceStart ,
- logAttrReadIsSentenceStart ,
- logAttrWriteIsSentenceStart ,
-
-
--- ** IsWhite
- logAttrIsWhite ,
- logAttrReadIsWhite ,
- logAttrWriteIsWhite ,
-
-
--- ** IsWordBoundary
- logAttrIsWordBoundary ,
- logAttrReadIsWordBoundary ,
- logAttrWriteIsWordBoundary ,
-
-
--- ** IsWordEnd
- logAttrIsWordEnd ,
- logAttrReadIsWordEnd ,
- logAttrWriteIsWordEnd ,
-
-
--- ** IsWordStart
- logAttrIsWordStart ,
- logAttrReadIsWordStart ,
- logAttrWriteIsWordStart ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype LogAttr = LogAttr (ForeignPtr LogAttr)
-instance WrappedPtr LogAttr where
- wrappedPtrCalloc = callocBytes 52
- wrappedPtrCopy = copyPtr 52
- wrappedPtrFree = Just ptr_to_g_free
-
--- | Construct a `LogAttr` struct initialized to zero.
-newZeroLogAttr :: MonadIO m => m LogAttr
-newZeroLogAttr = liftIO $ wrappedPtrCalloc >>= wrapPtr LogAttr
-
-instance tag ~ 'AttrSet => Constructible LogAttr tag where
- new _ attrs = do
- o <- newZeroLogAttr
- GI.Attributes.set o attrs
- return o
-
-
-noLogAttr :: Maybe LogAttr
-noLogAttr = Nothing
-
-logAttrReadIsLineBreak :: MonadIO m => LogAttr -> m Word32
-logAttrReadIsLineBreak s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 0) :: IO Word32
- return val
-
-logAttrWriteIsLineBreak :: MonadIO m => LogAttr -> Word32 -> m ()
-logAttrWriteIsLineBreak s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (val :: Word32)
-
-data LogAttrIsLineBreakFieldInfo
-instance AttrInfo LogAttrIsLineBreakFieldInfo where
- type AttrAllowedOps LogAttrIsLineBreakFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint LogAttrIsLineBreakFieldInfo = (~) Word32
- type AttrBaseTypeConstraint LogAttrIsLineBreakFieldInfo = (~) LogAttr
- type AttrGetType LogAttrIsLineBreakFieldInfo = Word32
- type AttrLabel LogAttrIsLineBreakFieldInfo = "is_line_break"
- attrGet _ = logAttrReadIsLineBreak
- attrSet _ = logAttrWriteIsLineBreak
- attrConstruct = undefined
- attrClear _ = undefined
-
-logAttrIsLineBreak :: AttrLabelProxy "isLineBreak"
-logAttrIsLineBreak = AttrLabelProxy
-
-
-logAttrReadIsMandatoryBreak :: MonadIO m => LogAttr -> m Word32
-logAttrReadIsMandatoryBreak s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 4) :: IO Word32
- return val
-
-logAttrWriteIsMandatoryBreak :: MonadIO m => LogAttr -> Word32 -> m ()
-logAttrWriteIsMandatoryBreak s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 4) (val :: Word32)
-
-data LogAttrIsMandatoryBreakFieldInfo
-instance AttrInfo LogAttrIsMandatoryBreakFieldInfo where
- type AttrAllowedOps LogAttrIsMandatoryBreakFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint LogAttrIsMandatoryBreakFieldInfo = (~) Word32
- type AttrBaseTypeConstraint LogAttrIsMandatoryBreakFieldInfo = (~) LogAttr
- type AttrGetType LogAttrIsMandatoryBreakFieldInfo = Word32
- type AttrLabel LogAttrIsMandatoryBreakFieldInfo = "is_mandatory_break"
- attrGet _ = logAttrReadIsMandatoryBreak
- attrSet _ = logAttrWriteIsMandatoryBreak
- attrConstruct = undefined
- attrClear _ = undefined
-
-logAttrIsMandatoryBreak :: AttrLabelProxy "isMandatoryBreak"
-logAttrIsMandatoryBreak = AttrLabelProxy
-
-
-logAttrReadIsCharBreak :: MonadIO m => LogAttr -> m Word32
-logAttrReadIsCharBreak s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 8) :: IO Word32
- return val
-
-logAttrWriteIsCharBreak :: MonadIO m => LogAttr -> Word32 -> m ()
-logAttrWriteIsCharBreak s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 8) (val :: Word32)
-
-data LogAttrIsCharBreakFieldInfo
-instance AttrInfo LogAttrIsCharBreakFieldInfo where
- type AttrAllowedOps LogAttrIsCharBreakFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint LogAttrIsCharBreakFieldInfo = (~) Word32
- type AttrBaseTypeConstraint LogAttrIsCharBreakFieldInfo = (~) LogAttr
- type AttrGetType LogAttrIsCharBreakFieldInfo = Word32
- type AttrLabel LogAttrIsCharBreakFieldInfo = "is_char_break"
- attrGet _ = logAttrReadIsCharBreak
- attrSet _ = logAttrWriteIsCharBreak
- attrConstruct = undefined
- attrClear _ = undefined
-
-logAttrIsCharBreak :: AttrLabelProxy "isCharBreak"
-logAttrIsCharBreak = AttrLabelProxy
-
-
-logAttrReadIsWhite :: MonadIO m => LogAttr -> m Word32
-logAttrReadIsWhite s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 12) :: IO Word32
- return val
-
-logAttrWriteIsWhite :: MonadIO m => LogAttr -> Word32 -> m ()
-logAttrWriteIsWhite s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 12) (val :: Word32)
-
-data LogAttrIsWhiteFieldInfo
-instance AttrInfo LogAttrIsWhiteFieldInfo where
- type AttrAllowedOps LogAttrIsWhiteFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint LogAttrIsWhiteFieldInfo = (~) Word32
- type AttrBaseTypeConstraint LogAttrIsWhiteFieldInfo = (~) LogAttr
- type AttrGetType LogAttrIsWhiteFieldInfo = Word32
- type AttrLabel LogAttrIsWhiteFieldInfo = "is_white"
- attrGet _ = logAttrReadIsWhite
- attrSet _ = logAttrWriteIsWhite
- attrConstruct = undefined
- attrClear _ = undefined
-
-logAttrIsWhite :: AttrLabelProxy "isWhite"
-logAttrIsWhite = AttrLabelProxy
-
-
-logAttrReadIsCursorPosition :: MonadIO m => LogAttr -> m Word32
-logAttrReadIsCursorPosition s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 16) :: IO Word32
- return val
-
-logAttrWriteIsCursorPosition :: MonadIO m => LogAttr -> Word32 -> m ()
-logAttrWriteIsCursorPosition s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 16) (val :: Word32)
-
-data LogAttrIsCursorPositionFieldInfo
-instance AttrInfo LogAttrIsCursorPositionFieldInfo where
- type AttrAllowedOps LogAttrIsCursorPositionFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint LogAttrIsCursorPositionFieldInfo = (~) Word32
- type AttrBaseTypeConstraint LogAttrIsCursorPositionFieldInfo = (~) LogAttr
- type AttrGetType LogAttrIsCursorPositionFieldInfo = Word32
- type AttrLabel LogAttrIsCursorPositionFieldInfo = "is_cursor_position"
- attrGet _ = logAttrReadIsCursorPosition
- attrSet _ = logAttrWriteIsCursorPosition
- attrConstruct = undefined
- attrClear _ = undefined
-
-logAttrIsCursorPosition :: AttrLabelProxy "isCursorPosition"
-logAttrIsCursorPosition = AttrLabelProxy
-
-
-logAttrReadIsWordStart :: MonadIO m => LogAttr -> m Word32
-logAttrReadIsWordStart s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 20) :: IO Word32
- return val
-
-logAttrWriteIsWordStart :: MonadIO m => LogAttr -> Word32 -> m ()
-logAttrWriteIsWordStart s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 20) (val :: Word32)
-
-data LogAttrIsWordStartFieldInfo
-instance AttrInfo LogAttrIsWordStartFieldInfo where
- type AttrAllowedOps LogAttrIsWordStartFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint LogAttrIsWordStartFieldInfo = (~) Word32
- type AttrBaseTypeConstraint LogAttrIsWordStartFieldInfo = (~) LogAttr
- type AttrGetType LogAttrIsWordStartFieldInfo = Word32
- type AttrLabel LogAttrIsWordStartFieldInfo = "is_word_start"
- attrGet _ = logAttrReadIsWordStart
- attrSet _ = logAttrWriteIsWordStart
- attrConstruct = undefined
- attrClear _ = undefined
-
-logAttrIsWordStart :: AttrLabelProxy "isWordStart"
-logAttrIsWordStart = AttrLabelProxy
-
-
-logAttrReadIsWordEnd :: MonadIO m => LogAttr -> m Word32
-logAttrReadIsWordEnd s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 24) :: IO Word32
- return val
-
-logAttrWriteIsWordEnd :: MonadIO m => LogAttr -> Word32 -> m ()
-logAttrWriteIsWordEnd s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 24) (val :: Word32)
-
-data LogAttrIsWordEndFieldInfo
-instance AttrInfo LogAttrIsWordEndFieldInfo where
- type AttrAllowedOps LogAttrIsWordEndFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint LogAttrIsWordEndFieldInfo = (~) Word32
- type AttrBaseTypeConstraint LogAttrIsWordEndFieldInfo = (~) LogAttr
- type AttrGetType LogAttrIsWordEndFieldInfo = Word32
- type AttrLabel LogAttrIsWordEndFieldInfo = "is_word_end"
- attrGet _ = logAttrReadIsWordEnd
- attrSet _ = logAttrWriteIsWordEnd
- attrConstruct = undefined
- attrClear _ = undefined
-
-logAttrIsWordEnd :: AttrLabelProxy "isWordEnd"
-logAttrIsWordEnd = AttrLabelProxy
-
-
-logAttrReadIsSentenceBoundary :: MonadIO m => LogAttr -> m Word32
-logAttrReadIsSentenceBoundary s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 28) :: IO Word32
- return val
-
-logAttrWriteIsSentenceBoundary :: MonadIO m => LogAttr -> Word32 -> m ()
-logAttrWriteIsSentenceBoundary s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 28) (val :: Word32)
-
-data LogAttrIsSentenceBoundaryFieldInfo
-instance AttrInfo LogAttrIsSentenceBoundaryFieldInfo where
- type AttrAllowedOps LogAttrIsSentenceBoundaryFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint LogAttrIsSentenceBoundaryFieldInfo = (~) Word32
- type AttrBaseTypeConstraint LogAttrIsSentenceBoundaryFieldInfo = (~) LogAttr
- type AttrGetType LogAttrIsSentenceBoundaryFieldInfo = Word32
- type AttrLabel LogAttrIsSentenceBoundaryFieldInfo = "is_sentence_boundary"
- attrGet _ = logAttrReadIsSentenceBoundary
- attrSet _ = logAttrWriteIsSentenceBoundary
- attrConstruct = undefined
- attrClear _ = undefined
-
-logAttrIsSentenceBoundary :: AttrLabelProxy "isSentenceBoundary"
-logAttrIsSentenceBoundary = AttrLabelProxy
-
-
-logAttrReadIsSentenceStart :: MonadIO m => LogAttr -> m Word32
-logAttrReadIsSentenceStart s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 32) :: IO Word32
- return val
-
-logAttrWriteIsSentenceStart :: MonadIO m => LogAttr -> Word32 -> m ()
-logAttrWriteIsSentenceStart s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 32) (val :: Word32)
-
-data LogAttrIsSentenceStartFieldInfo
-instance AttrInfo LogAttrIsSentenceStartFieldInfo where
- type AttrAllowedOps LogAttrIsSentenceStartFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint LogAttrIsSentenceStartFieldInfo = (~) Word32
- type AttrBaseTypeConstraint LogAttrIsSentenceStartFieldInfo = (~) LogAttr
- type AttrGetType LogAttrIsSentenceStartFieldInfo = Word32
- type AttrLabel LogAttrIsSentenceStartFieldInfo = "is_sentence_start"
- attrGet _ = logAttrReadIsSentenceStart
- attrSet _ = logAttrWriteIsSentenceStart
- attrConstruct = undefined
- attrClear _ = undefined
-
-logAttrIsSentenceStart :: AttrLabelProxy "isSentenceStart"
-logAttrIsSentenceStart = AttrLabelProxy
-
-
-logAttrReadIsSentenceEnd :: MonadIO m => LogAttr -> m Word32
-logAttrReadIsSentenceEnd s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 36) :: IO Word32
- return val
-
-logAttrWriteIsSentenceEnd :: MonadIO m => LogAttr -> Word32 -> m ()
-logAttrWriteIsSentenceEnd s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 36) (val :: Word32)
-
-data LogAttrIsSentenceEndFieldInfo
-instance AttrInfo LogAttrIsSentenceEndFieldInfo where
- type AttrAllowedOps LogAttrIsSentenceEndFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint LogAttrIsSentenceEndFieldInfo = (~) Word32
- type AttrBaseTypeConstraint LogAttrIsSentenceEndFieldInfo = (~) LogAttr
- type AttrGetType LogAttrIsSentenceEndFieldInfo = Word32
- type AttrLabel LogAttrIsSentenceEndFieldInfo = "is_sentence_end"
- attrGet _ = logAttrReadIsSentenceEnd
- attrSet _ = logAttrWriteIsSentenceEnd
- attrConstruct = undefined
- attrClear _ = undefined
-
-logAttrIsSentenceEnd :: AttrLabelProxy "isSentenceEnd"
-logAttrIsSentenceEnd = AttrLabelProxy
-
-
-logAttrReadBackspaceDeletesCharacter :: MonadIO m => LogAttr -> m Word32
-logAttrReadBackspaceDeletesCharacter s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 40) :: IO Word32
- return val
-
-logAttrWriteBackspaceDeletesCharacter :: MonadIO m => LogAttr -> Word32 -> m ()
-logAttrWriteBackspaceDeletesCharacter s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 40) (val :: Word32)
-
-data LogAttrBackspaceDeletesCharacterFieldInfo
-instance AttrInfo LogAttrBackspaceDeletesCharacterFieldInfo where
- type AttrAllowedOps LogAttrBackspaceDeletesCharacterFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint LogAttrBackspaceDeletesCharacterFieldInfo = (~) Word32
- type AttrBaseTypeConstraint LogAttrBackspaceDeletesCharacterFieldInfo = (~) LogAttr
- type AttrGetType LogAttrBackspaceDeletesCharacterFieldInfo = Word32
- type AttrLabel LogAttrBackspaceDeletesCharacterFieldInfo = "backspace_deletes_character"
- attrGet _ = logAttrReadBackspaceDeletesCharacter
- attrSet _ = logAttrWriteBackspaceDeletesCharacter
- attrConstruct = undefined
- attrClear _ = undefined
-
-logAttrBackspaceDeletesCharacter :: AttrLabelProxy "backspaceDeletesCharacter"
-logAttrBackspaceDeletesCharacter = AttrLabelProxy
-
-
-logAttrReadIsExpandableSpace :: MonadIO m => LogAttr -> m Word32
-logAttrReadIsExpandableSpace s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 44) :: IO Word32
- return val
-
-logAttrWriteIsExpandableSpace :: MonadIO m => LogAttr -> Word32 -> m ()
-logAttrWriteIsExpandableSpace s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 44) (val :: Word32)
-
-data LogAttrIsExpandableSpaceFieldInfo
-instance AttrInfo LogAttrIsExpandableSpaceFieldInfo where
- type AttrAllowedOps LogAttrIsExpandableSpaceFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint LogAttrIsExpandableSpaceFieldInfo = (~) Word32
- type AttrBaseTypeConstraint LogAttrIsExpandableSpaceFieldInfo = (~) LogAttr
- type AttrGetType LogAttrIsExpandableSpaceFieldInfo = Word32
- type AttrLabel LogAttrIsExpandableSpaceFieldInfo = "is_expandable_space"
- attrGet _ = logAttrReadIsExpandableSpace
- attrSet _ = logAttrWriteIsExpandableSpace
- attrConstruct = undefined
- attrClear _ = undefined
-
-logAttrIsExpandableSpace :: AttrLabelProxy "isExpandableSpace"
-logAttrIsExpandableSpace = AttrLabelProxy
-
-
-logAttrReadIsWordBoundary :: MonadIO m => LogAttr -> m Word32
-logAttrReadIsWordBoundary s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 48) :: IO Word32
- return val
-
-logAttrWriteIsWordBoundary :: MonadIO m => LogAttr -> Word32 -> m ()
-logAttrWriteIsWordBoundary s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 48) (val :: Word32)
-
-data LogAttrIsWordBoundaryFieldInfo
-instance AttrInfo LogAttrIsWordBoundaryFieldInfo where
- type AttrAllowedOps LogAttrIsWordBoundaryFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint LogAttrIsWordBoundaryFieldInfo = (~) Word32
- type AttrBaseTypeConstraint LogAttrIsWordBoundaryFieldInfo = (~) LogAttr
- type AttrGetType LogAttrIsWordBoundaryFieldInfo = Word32
- type AttrLabel LogAttrIsWordBoundaryFieldInfo = "is_word_boundary"
- attrGet _ = logAttrReadIsWordBoundary
- attrSet _ = logAttrWriteIsWordBoundary
- attrConstruct = undefined
- attrClear _ = undefined
-
-logAttrIsWordBoundary :: AttrLabelProxy "isWordBoundary"
-logAttrIsWordBoundary = AttrLabelProxy
-
-
-
-type instance AttributeList LogAttr = LogAttrAttributeList
-type LogAttrAttributeList = ('[ '("isLineBreak", LogAttrIsLineBreakFieldInfo), '("isMandatoryBreak", LogAttrIsMandatoryBreakFieldInfo), '("isCharBreak", LogAttrIsCharBreakFieldInfo), '("isWhite", LogAttrIsWhiteFieldInfo), '("isCursorPosition", LogAttrIsCursorPositionFieldInfo), '("isWordStart", LogAttrIsWordStartFieldInfo), '("isWordEnd", LogAttrIsWordEndFieldInfo), '("isSentenceBoundary", LogAttrIsSentenceBoundaryFieldInfo), '("isSentenceStart", LogAttrIsSentenceStartFieldInfo), '("isSentenceEnd", LogAttrIsSentenceEndFieldInfo), '("backspaceDeletesCharacter", LogAttrBackspaceDeletesCharacterFieldInfo), '("isExpandableSpace", LogAttrIsExpandableSpaceFieldInfo), '("isWordBoundary", LogAttrIsWordBoundaryFieldInfo)] :: [(Symbol, *)])
-
-type family ResolveLogAttrMethod (t :: Symbol) (o :: *) :: * where
- ResolveLogAttrMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveLogAttrMethod t LogAttr, MethodInfo info LogAttr p) => IsLabelProxy t (LogAttr -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveLogAttrMethod t LogAttr, MethodInfo info LogAttr p) => IsLabel t (LogAttr -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/LogAttr.hs-boot b/GI/Pango/Structs/LogAttr.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/LogAttr.hs-boot
+++ /dev/null
@@ -1,11 +0,0 @@
-module GI.Pango.Structs.LogAttr where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype LogAttr = LogAttr (ForeignPtr LogAttr)
-instance WrappedPtr LogAttr where
diff --git a/GI/Pango/Structs/Map.hs b/GI/Pango/Structs/Map.hs
deleted file mode 100644
--- a/GI/Pango/Structs/Map.hs
+++ /dev/null
@@ -1,54 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
--}
-
-module GI.Pango.Structs.Map
- (
-
--- * Exported types
- Map(..) ,
- noMap ,
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype Map = Map (ForeignPtr Map)
--- XXX Wrapping a foreign struct/union with no known destructor or size, leak?
-instance WrappedPtr Map where
- wrappedPtrCalloc = return nullPtr
- wrappedPtrCopy = return
- wrappedPtrFree = Nothing
-
-noMap :: Maybe Map
-noMap = Nothing
-
-
-type instance AttributeList Map = MapAttributeList
-type MapAttributeList = ('[ ] :: [(Symbol, *)])
-
-type family ResolveMapMethod (t :: Symbol) (o :: *) :: * where
- ResolveMapMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveMapMethod t Map, MethodInfo info Map p) => IsLabelProxy t (Map -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveMapMethod t Map, MethodInfo info Map p) => IsLabel t (Map -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/Map.hs-boot b/GI/Pango/Structs/Map.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/Map.hs-boot
+++ /dev/null
@@ -1,11 +0,0 @@
-module GI.Pango.Structs.Map where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype Map = Map (ForeignPtr Map)
-instance WrappedPtr Map where
diff --git a/GI/Pango/Structs/MapEntry.hs b/GI/Pango/Structs/MapEntry.hs
deleted file mode 100644
--- a/GI/Pango/Structs/MapEntry.hs
+++ /dev/null
@@ -1,54 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
--}
-
-module GI.Pango.Structs.MapEntry
- (
-
--- * Exported types
- MapEntry(..) ,
- noMapEntry ,
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype MapEntry = MapEntry (ForeignPtr MapEntry)
--- XXX Wrapping a foreign struct/union with no known destructor or size, leak?
-instance WrappedPtr MapEntry where
- wrappedPtrCalloc = return nullPtr
- wrappedPtrCopy = return
- wrappedPtrFree = Nothing
-
-noMapEntry :: Maybe MapEntry
-noMapEntry = Nothing
-
-
-type instance AttributeList MapEntry = MapEntryAttributeList
-type MapEntryAttributeList = ('[ ] :: [(Symbol, *)])
-
-type family ResolveMapEntryMethod (t :: Symbol) (o :: *) :: * where
- ResolveMapEntryMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveMapEntryMethod t MapEntry, MethodInfo info MapEntry p) => IsLabelProxy t (MapEntry -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveMapEntryMethod t MapEntry, MethodInfo info MapEntry p) => IsLabel t (MapEntry -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/MapEntry.hs-boot b/GI/Pango/Structs/MapEntry.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/MapEntry.hs-boot
+++ /dev/null
@@ -1,11 +0,0 @@
-module GI.Pango.Structs.MapEntry where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype MapEntry = MapEntry (ForeignPtr MapEntry)
-instance WrappedPtr MapEntry where
diff --git a/GI/Pango/Structs/Matrix.hs b/GI/Pango/Structs/Matrix.hs
deleted file mode 100644
--- a/GI/Pango/Structs/Matrix.hs
+++ /dev/null
@@ -1,678 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-A structure specifying a transformation between user-space
-coordinates and device coordinates. The transformation
-is given by
-
-
-x_device = x_user * matrix->xx + y_user * matrix->xy + matrix->x0;
-y_device = x_user * matrix->yx + y_user * matrix->yy + matrix->y0;
-
--}
-
-module GI.Pango.Structs.Matrix
- (
-
--- * Exported types
- Matrix(..) ,
- newZeroMatrix ,
- noMatrix ,
-
-
- -- * Methods
--- ** matrixConcat
- MatrixConcatMethodInfo ,
- matrixConcat ,
-
-
--- ** matrixCopy
- MatrixCopyMethodInfo ,
- matrixCopy ,
-
-
--- ** matrixFree
- MatrixFreeMethodInfo ,
- matrixFree ,
-
-
--- ** matrixGetFontScaleFactor
- MatrixGetFontScaleFactorMethodInfo ,
- matrixGetFontScaleFactor ,
-
-
--- ** matrixGetFontScaleFactors
- MatrixGetFontScaleFactorsMethodInfo ,
- matrixGetFontScaleFactors ,
-
-
--- ** matrixRotate
- MatrixRotateMethodInfo ,
- matrixRotate ,
-
-
--- ** matrixScale
- MatrixScaleMethodInfo ,
- matrixScale ,
-
-
--- ** matrixTransformDistance
- MatrixTransformDistanceMethodInfo ,
- matrixTransformDistance ,
-
-
--- ** matrixTransformPoint
- MatrixTransformPointMethodInfo ,
- matrixTransformPoint ,
-
-
--- ** matrixTranslate
- MatrixTranslateMethodInfo ,
- matrixTranslate ,
-
-
-
-
- -- * Properties
--- ** X0
- matrixReadX0 ,
- matrixWriteX0 ,
- matrixX0 ,
-
-
--- ** Xx
- matrixReadXx ,
- matrixWriteXx ,
- matrixXx ,
-
-
--- ** Xy
- matrixReadXy ,
- matrixWriteXy ,
- matrixXy ,
-
-
--- ** Y0
- matrixReadY0 ,
- matrixWriteY0 ,
- matrixY0 ,
-
-
--- ** Yx
- matrixReadYx ,
- matrixWriteYx ,
- matrixYx ,
-
-
--- ** Yy
- matrixReadYy ,
- matrixWriteYy ,
- matrixYy ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype Matrix = Matrix (ForeignPtr Matrix)
-foreign import ccall "pango_matrix_get_type" c_pango_matrix_get_type ::
- IO GType
-
-instance BoxedObject Matrix where
- boxedType _ = c_pango_matrix_get_type
-
--- | Construct a `Matrix` struct initialized to zero.
-newZeroMatrix :: MonadIO m => m Matrix
-newZeroMatrix = liftIO $ callocBoxedBytes 48 >>= wrapBoxed Matrix
-
-instance tag ~ 'AttrSet => Constructible Matrix tag where
- new _ attrs = do
- o <- newZeroMatrix
- GI.Attributes.set o attrs
- return o
-
-
-noMatrix :: Maybe Matrix
-noMatrix = Nothing
-
-matrixReadXx :: MonadIO m => Matrix -> m Double
-matrixReadXx s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 0) :: IO CDouble
- let val' = realToFrac val
- return val'
-
-matrixWriteXx :: MonadIO m => Matrix -> Double -> m ()
-matrixWriteXx s val = liftIO $ withManagedPtr s $ \ptr -> do
- let val' = realToFrac val
- poke (ptr `plusPtr` 0) (val' :: CDouble)
-
-data MatrixXxFieldInfo
-instance AttrInfo MatrixXxFieldInfo where
- type AttrAllowedOps MatrixXxFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint MatrixXxFieldInfo = (~) Double
- type AttrBaseTypeConstraint MatrixXxFieldInfo = (~) Matrix
- type AttrGetType MatrixXxFieldInfo = Double
- type AttrLabel MatrixXxFieldInfo = "xx"
- attrGet _ = matrixReadXx
- attrSet _ = matrixWriteXx
- attrConstruct = undefined
- attrClear _ = undefined
-
-matrixXx :: AttrLabelProxy "xx"
-matrixXx = AttrLabelProxy
-
-
-matrixReadXy :: MonadIO m => Matrix -> m Double
-matrixReadXy s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 8) :: IO CDouble
- let val' = realToFrac val
- return val'
-
-matrixWriteXy :: MonadIO m => Matrix -> Double -> m ()
-matrixWriteXy s val = liftIO $ withManagedPtr s $ \ptr -> do
- let val' = realToFrac val
- poke (ptr `plusPtr` 8) (val' :: CDouble)
-
-data MatrixXyFieldInfo
-instance AttrInfo MatrixXyFieldInfo where
- type AttrAllowedOps MatrixXyFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint MatrixXyFieldInfo = (~) Double
- type AttrBaseTypeConstraint MatrixXyFieldInfo = (~) Matrix
- type AttrGetType MatrixXyFieldInfo = Double
- type AttrLabel MatrixXyFieldInfo = "xy"
- attrGet _ = matrixReadXy
- attrSet _ = matrixWriteXy
- attrConstruct = undefined
- attrClear _ = undefined
-
-matrixXy :: AttrLabelProxy "xy"
-matrixXy = AttrLabelProxy
-
-
-matrixReadYx :: MonadIO m => Matrix -> m Double
-matrixReadYx s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 16) :: IO CDouble
- let val' = realToFrac val
- return val'
-
-matrixWriteYx :: MonadIO m => Matrix -> Double -> m ()
-matrixWriteYx s val = liftIO $ withManagedPtr s $ \ptr -> do
- let val' = realToFrac val
- poke (ptr `plusPtr` 16) (val' :: CDouble)
-
-data MatrixYxFieldInfo
-instance AttrInfo MatrixYxFieldInfo where
- type AttrAllowedOps MatrixYxFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint MatrixYxFieldInfo = (~) Double
- type AttrBaseTypeConstraint MatrixYxFieldInfo = (~) Matrix
- type AttrGetType MatrixYxFieldInfo = Double
- type AttrLabel MatrixYxFieldInfo = "yx"
- attrGet _ = matrixReadYx
- attrSet _ = matrixWriteYx
- attrConstruct = undefined
- attrClear _ = undefined
-
-matrixYx :: AttrLabelProxy "yx"
-matrixYx = AttrLabelProxy
-
-
-matrixReadYy :: MonadIO m => Matrix -> m Double
-matrixReadYy s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 24) :: IO CDouble
- let val' = realToFrac val
- return val'
-
-matrixWriteYy :: MonadIO m => Matrix -> Double -> m ()
-matrixWriteYy s val = liftIO $ withManagedPtr s $ \ptr -> do
- let val' = realToFrac val
- poke (ptr `plusPtr` 24) (val' :: CDouble)
-
-data MatrixYyFieldInfo
-instance AttrInfo MatrixYyFieldInfo where
- type AttrAllowedOps MatrixYyFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint MatrixYyFieldInfo = (~) Double
- type AttrBaseTypeConstraint MatrixYyFieldInfo = (~) Matrix
- type AttrGetType MatrixYyFieldInfo = Double
- type AttrLabel MatrixYyFieldInfo = "yy"
- attrGet _ = matrixReadYy
- attrSet _ = matrixWriteYy
- attrConstruct = undefined
- attrClear _ = undefined
-
-matrixYy :: AttrLabelProxy "yy"
-matrixYy = AttrLabelProxy
-
-
-matrixReadX0 :: MonadIO m => Matrix -> m Double
-matrixReadX0 s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 32) :: IO CDouble
- let val' = realToFrac val
- return val'
-
-matrixWriteX0 :: MonadIO m => Matrix -> Double -> m ()
-matrixWriteX0 s val = liftIO $ withManagedPtr s $ \ptr -> do
- let val' = realToFrac val
- poke (ptr `plusPtr` 32) (val' :: CDouble)
-
-data MatrixX0FieldInfo
-instance AttrInfo MatrixX0FieldInfo where
- type AttrAllowedOps MatrixX0FieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint MatrixX0FieldInfo = (~) Double
- type AttrBaseTypeConstraint MatrixX0FieldInfo = (~) Matrix
- type AttrGetType MatrixX0FieldInfo = Double
- type AttrLabel MatrixX0FieldInfo = "x0"
- attrGet _ = matrixReadX0
- attrSet _ = matrixWriteX0
- attrConstruct = undefined
- attrClear _ = undefined
-
-matrixX0 :: AttrLabelProxy "x0"
-matrixX0 = AttrLabelProxy
-
-
-matrixReadY0 :: MonadIO m => Matrix -> m Double
-matrixReadY0 s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 40) :: IO CDouble
- let val' = realToFrac val
- return val'
-
-matrixWriteY0 :: MonadIO m => Matrix -> Double -> m ()
-matrixWriteY0 s val = liftIO $ withManagedPtr s $ \ptr -> do
- let val' = realToFrac val
- poke (ptr `plusPtr` 40) (val' :: CDouble)
-
-data MatrixY0FieldInfo
-instance AttrInfo MatrixY0FieldInfo where
- type AttrAllowedOps MatrixY0FieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint MatrixY0FieldInfo = (~) Double
- type AttrBaseTypeConstraint MatrixY0FieldInfo = (~) Matrix
- type AttrGetType MatrixY0FieldInfo = Double
- type AttrLabel MatrixY0FieldInfo = "y0"
- attrGet _ = matrixReadY0
- attrSet _ = matrixWriteY0
- attrConstruct = undefined
- attrClear _ = undefined
-
-matrixY0 :: AttrLabelProxy "y0"
-matrixY0 = AttrLabelProxy
-
-
-
-type instance AttributeList Matrix = MatrixAttributeList
-type MatrixAttributeList = ('[ '("xx", MatrixXxFieldInfo), '("xy", MatrixXyFieldInfo), '("yx", MatrixYxFieldInfo), '("yy", MatrixYyFieldInfo), '("x0", MatrixX0FieldInfo), '("y0", MatrixY0FieldInfo)] :: [(Symbol, *)])
-
--- method Matrix::concat
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_matrix", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_matrix_concat" pango_matrix_concat ::
- Ptr Matrix -> -- _obj : TInterface "Pango" "Matrix"
- Ptr Matrix -> -- new_matrix : TInterface "Pango" "Matrix"
- IO ()
-
-
-matrixConcat ::
- (MonadIO m) =>
- Matrix -- _obj
- -> Matrix -- newMatrix
- -> m () -- result
-matrixConcat _obj newMatrix = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let newMatrix' = unsafeManagedPtrGetPtr newMatrix
- pango_matrix_concat _obj' newMatrix'
- touchManagedPtr _obj
- touchManagedPtr newMatrix
- return ()
-
-data MatrixConcatMethodInfo
-instance (signature ~ (Matrix -> m ()), MonadIO m) => MethodInfo MatrixConcatMethodInfo Matrix signature where
- overloadedMethod _ = matrixConcat
-
--- method Matrix::copy
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "Matrix")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_matrix_copy" pango_matrix_copy ::
- Ptr Matrix -> -- _obj : TInterface "Pango" "Matrix"
- IO (Ptr Matrix)
-
-
-matrixCopy ::
- (MonadIO m) =>
- Matrix -- _obj
- -> m (Maybe Matrix) -- result
-matrixCopy _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_matrix_copy _obj'
- maybeResult <- convertIfNonNull result $ \result' -> do
- result'' <- (wrapBoxed Matrix) result'
- return result''
- touchManagedPtr _obj
- return maybeResult
-
-data MatrixCopyMethodInfo
-instance (signature ~ (m (Maybe Matrix)), MonadIO m) => MethodInfo MatrixCopyMethodInfo Matrix signature where
- overloadedMethod _ = matrixCopy
-
--- method Matrix::free
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_matrix_free" pango_matrix_free ::
- Ptr Matrix -> -- _obj : TInterface "Pango" "Matrix"
- IO ()
-
-
-matrixFree ::
- (MonadIO m) =>
- Matrix -- _obj
- -> m () -- result
-matrixFree _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- pango_matrix_free _obj'
- touchManagedPtr _obj
- return ()
-
-data MatrixFreeMethodInfo
-instance (signature ~ (m ()), MonadIO m) => MethodInfo MatrixFreeMethodInfo Matrix signature where
- overloadedMethod _ = matrixFree
-
--- method Matrix::get_font_scale_factor
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TDouble)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_matrix_get_font_scale_factor" pango_matrix_get_font_scale_factor ::
- Ptr Matrix -> -- _obj : TInterface "Pango" "Matrix"
- IO CDouble
-
-
-matrixGetFontScaleFactor ::
- (MonadIO m) =>
- Matrix -- _obj
- -> m Double -- result
-matrixGetFontScaleFactor _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_matrix_get_font_scale_factor _obj'
- let result' = realToFrac result
- touchManagedPtr _obj
- return result'
-
-data MatrixGetFontScaleFactorMethodInfo
-instance (signature ~ (m Double), MonadIO m) => MethodInfo MatrixGetFontScaleFactorMethodInfo Matrix signature where
- overloadedMethod _ = matrixGetFontScaleFactor
-
--- method Matrix::get_font_scale_factors
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xscale", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "yscale", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_matrix_get_font_scale_factors" pango_matrix_get_font_scale_factors ::
- Ptr Matrix -> -- _obj : TInterface "Pango" "Matrix"
- Ptr CDouble -> -- xscale : TBasicType TDouble
- Ptr CDouble -> -- yscale : TBasicType TDouble
- IO ()
-
-
-matrixGetFontScaleFactors ::
- (MonadIO m) =>
- Matrix -- _obj
- -> m (Double,Double) -- result
-matrixGetFontScaleFactors _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- xscale <- allocMem :: IO (Ptr CDouble)
- yscale <- allocMem :: IO (Ptr CDouble)
- pango_matrix_get_font_scale_factors _obj' xscale yscale
- xscale' <- peek xscale
- let xscale'' = realToFrac xscale'
- yscale' <- peek yscale
- let yscale'' = realToFrac yscale'
- touchManagedPtr _obj
- freeMem xscale
- freeMem yscale
- return (xscale'', yscale'')
-
-data MatrixGetFontScaleFactorsMethodInfo
-instance (signature ~ (m (Double,Double)), MonadIO m) => MethodInfo MatrixGetFontScaleFactorsMethodInfo Matrix signature where
- overloadedMethod _ = matrixGetFontScaleFactors
-
--- method Matrix::rotate
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "degrees", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_matrix_rotate" pango_matrix_rotate ::
- Ptr Matrix -> -- _obj : TInterface "Pango" "Matrix"
- CDouble -> -- degrees : TBasicType TDouble
- IO ()
-
-
-matrixRotate ::
- (MonadIO m) =>
- Matrix -- _obj
- -> Double -- degrees
- -> m () -- result
-matrixRotate _obj degrees = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let degrees' = realToFrac degrees
- pango_matrix_rotate _obj' degrees'
- touchManagedPtr _obj
- return ()
-
-data MatrixRotateMethodInfo
-instance (signature ~ (Double -> m ()), MonadIO m) => MethodInfo MatrixRotateMethodInfo Matrix signature where
- overloadedMethod _ = matrixRotate
-
--- method Matrix::scale
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_matrix_scale" pango_matrix_scale ::
- Ptr Matrix -> -- _obj : TInterface "Pango" "Matrix"
- CDouble -> -- scale_x : TBasicType TDouble
- CDouble -> -- scale_y : TBasicType TDouble
- IO ()
-
-
-matrixScale ::
- (MonadIO m) =>
- Matrix -- _obj
- -> Double -- scaleX
- -> Double -- scaleY
- -> m () -- result
-matrixScale _obj scaleX scaleY = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let scaleX' = realToFrac scaleX
- let scaleY' = realToFrac scaleY
- pango_matrix_scale _obj' scaleX' scaleY'
- touchManagedPtr _obj
- return ()
-
-data MatrixScaleMethodInfo
-instance (signature ~ (Double -> Double -> m ()), MonadIO m) => MethodInfo MatrixScaleMethodInfo Matrix signature where
- overloadedMethod _ = matrixScale
-
--- method Matrix::transform_distance
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dx", argType = TBasicType TDouble, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "dy", argType = TBasicType TDouble, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_matrix_transform_distance" pango_matrix_transform_distance ::
- Ptr Matrix -> -- _obj : TInterface "Pango" "Matrix"
- Ptr CDouble -> -- dx : TBasicType TDouble
- Ptr CDouble -> -- dy : TBasicType TDouble
- IO ()
-
-
-matrixTransformDistance ::
- (MonadIO m) =>
- Matrix -- _obj
- -> Double -- dx
- -> Double -- dy
- -> m (Double,Double) -- result
-matrixTransformDistance _obj dx dy = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let dx' = realToFrac dx
- dx'' <- allocMem :: IO (Ptr CDouble)
- poke dx'' dx'
- let dy' = realToFrac dy
- dy'' <- allocMem :: IO (Ptr CDouble)
- poke dy'' dy'
- pango_matrix_transform_distance _obj' dx'' dy''
- dx''' <- peek dx''
- let dx'''' = realToFrac dx'''
- dy''' <- peek dy''
- let dy'''' = realToFrac dy'''
- touchManagedPtr _obj
- freeMem dx''
- freeMem dy''
- return (dx'''', dy'''')
-
-data MatrixTransformDistanceMethodInfo
-instance (signature ~ (Double -> Double -> m (Double,Double)), MonadIO m) => MethodInfo MatrixTransformDistanceMethodInfo Matrix signature where
- overloadedMethod _ = matrixTransformDistance
-
--- XXX Could not generate method Matrix::transform_pixel_rectangle
--- Error was : Not implemented: "Nullable inout structs not supported"
--- method Matrix::transform_point
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_matrix_transform_point" pango_matrix_transform_point ::
- Ptr Matrix -> -- _obj : TInterface "Pango" "Matrix"
- Ptr CDouble -> -- x : TBasicType TDouble
- Ptr CDouble -> -- y : TBasicType TDouble
- IO ()
-
-
-matrixTransformPoint ::
- (MonadIO m) =>
- Matrix -- _obj
- -> Double -- x
- -> Double -- y
- -> m (Double,Double) -- result
-matrixTransformPoint _obj x y = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let x' = realToFrac x
- x'' <- allocMem :: IO (Ptr CDouble)
- poke x'' x'
- let y' = realToFrac y
- y'' <- allocMem :: IO (Ptr CDouble)
- poke y'' y'
- pango_matrix_transform_point _obj' x'' y''
- x''' <- peek x''
- let x'''' = realToFrac x'''
- y''' <- peek y''
- let y'''' = realToFrac y'''
- touchManagedPtr _obj
- freeMem x''
- freeMem y''
- return (x'''', y'''')
-
-data MatrixTransformPointMethodInfo
-instance (signature ~ (Double -> Double -> m (Double,Double)), MonadIO m) => MethodInfo MatrixTransformPointMethodInfo Matrix signature where
- overloadedMethod _ = matrixTransformPoint
-
--- XXX Could not generate method Matrix::transform_rectangle
--- Error was : Not implemented: "Nullable inout structs not supported"
--- method Matrix::translate
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "Matrix", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tx", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ty", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_matrix_translate" pango_matrix_translate ::
- Ptr Matrix -> -- _obj : TInterface "Pango" "Matrix"
- CDouble -> -- tx : TBasicType TDouble
- CDouble -> -- ty : TBasicType TDouble
- IO ()
-
-
-matrixTranslate ::
- (MonadIO m) =>
- Matrix -- _obj
- -> Double -- tx
- -> Double -- ty
- -> m () -- result
-matrixTranslate _obj tx ty = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let tx' = realToFrac tx
- let ty' = realToFrac ty
- pango_matrix_translate _obj' tx' ty'
- touchManagedPtr _obj
- return ()
-
-data MatrixTranslateMethodInfo
-instance (signature ~ (Double -> Double -> m ()), MonadIO m) => MethodInfo MatrixTranslateMethodInfo Matrix signature where
- overloadedMethod _ = matrixTranslate
-
-type family ResolveMatrixMethod (t :: Symbol) (o :: *) :: * where
- ResolveMatrixMethod "concat" o = MatrixConcatMethodInfo
- ResolveMatrixMethod "copy" o = MatrixCopyMethodInfo
- ResolveMatrixMethod "free" o = MatrixFreeMethodInfo
- ResolveMatrixMethod "rotate" o = MatrixRotateMethodInfo
- ResolveMatrixMethod "scale" o = MatrixScaleMethodInfo
- ResolveMatrixMethod "transformDistance" o = MatrixTransformDistanceMethodInfo
- ResolveMatrixMethod "transformPoint" o = MatrixTransformPointMethodInfo
- ResolveMatrixMethod "translate" o = MatrixTranslateMethodInfo
- ResolveMatrixMethod "getFontScaleFactor" o = MatrixGetFontScaleFactorMethodInfo
- ResolveMatrixMethod "getFontScaleFactors" o = MatrixGetFontScaleFactorsMethodInfo
- ResolveMatrixMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveMatrixMethod t Matrix, MethodInfo info Matrix p) => IsLabelProxy t (Matrix -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveMatrixMethod t Matrix, MethodInfo info Matrix p) => IsLabel t (Matrix -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/Matrix.hs-boot b/GI/Pango/Structs/Matrix.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/Matrix.hs-boot
+++ /dev/null
@@ -1,21 +0,0 @@
-module GI.Pango.Structs.Matrix where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype Matrix = Matrix (ForeignPtr Matrix)
-instance BoxedObject Matrix where
-data MatrixConcatMethodInfo
-data MatrixCopyMethodInfo
-data MatrixFreeMethodInfo
-data MatrixGetFontScaleFactorMethodInfo
-data MatrixGetFontScaleFactorsMethodInfo
-data MatrixRotateMethodInfo
-data MatrixScaleMethodInfo
-data MatrixTransformDistanceMethodInfo
-data MatrixTransformPointMethodInfo
-data MatrixTranslateMethodInfo
diff --git a/GI/Pango/Structs/Rectangle.hs b/GI/Pango/Structs/Rectangle.hs
deleted file mode 100644
--- a/GI/Pango/Structs/Rectangle.hs
+++ /dev/null
@@ -1,196 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-The #PangoRectangle structure represents a rectangle. It is frequently
-used to represent the logical or ink extents of a single glyph or section
-of text. (See, for instance, pango_font_get_glyph_extents())
--}
-
-module GI.Pango.Structs.Rectangle
- (
-
--- * Exported types
- Rectangle(..) ,
- newZeroRectangle ,
- noRectangle ,
-
-
- -- * Properties
--- ** Height
- rectangleHeight ,
- rectangleReadHeight ,
- rectangleWriteHeight ,
-
-
--- ** Width
- rectangleReadWidth ,
- rectangleWidth ,
- rectangleWriteWidth ,
-
-
--- ** X
- rectangleReadX ,
- rectangleWriteX ,
- rectangleX ,
-
-
--- ** Y
- rectangleReadY ,
- rectangleWriteY ,
- rectangleY ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype Rectangle = Rectangle (ForeignPtr Rectangle)
-instance WrappedPtr Rectangle where
- wrappedPtrCalloc = callocBytes 16
- wrappedPtrCopy = copyPtr 16
- wrappedPtrFree = Just ptr_to_g_free
-
--- | Construct a `Rectangle` struct initialized to zero.
-newZeroRectangle :: MonadIO m => m Rectangle
-newZeroRectangle = liftIO $ wrappedPtrCalloc >>= wrapPtr Rectangle
-
-instance tag ~ 'AttrSet => Constructible Rectangle tag where
- new _ attrs = do
- o <- newZeroRectangle
- GI.Attributes.set o attrs
- return o
-
-
-noRectangle :: Maybe Rectangle
-noRectangle = Nothing
-
-rectangleReadX :: MonadIO m => Rectangle -> m Int32
-rectangleReadX s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 0) :: IO Int32
- return val
-
-rectangleWriteX :: MonadIO m => Rectangle -> Int32 -> m ()
-rectangleWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 0) (val :: Int32)
-
-data RectangleXFieldInfo
-instance AttrInfo RectangleXFieldInfo where
- type AttrAllowedOps RectangleXFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint RectangleXFieldInfo = (~) Int32
- type AttrBaseTypeConstraint RectangleXFieldInfo = (~) Rectangle
- type AttrGetType RectangleXFieldInfo = Int32
- type AttrLabel RectangleXFieldInfo = "x"
- attrGet _ = rectangleReadX
- attrSet _ = rectangleWriteX
- attrConstruct = undefined
- attrClear _ = undefined
-
-rectangleX :: AttrLabelProxy "x"
-rectangleX = AttrLabelProxy
-
-
-rectangleReadY :: MonadIO m => Rectangle -> m Int32
-rectangleReadY s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 4) :: IO Int32
- return val
-
-rectangleWriteY :: MonadIO m => Rectangle -> Int32 -> m ()
-rectangleWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 4) (val :: Int32)
-
-data RectangleYFieldInfo
-instance AttrInfo RectangleYFieldInfo where
- type AttrAllowedOps RectangleYFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint RectangleYFieldInfo = (~) Int32
- type AttrBaseTypeConstraint RectangleYFieldInfo = (~) Rectangle
- type AttrGetType RectangleYFieldInfo = Int32
- type AttrLabel RectangleYFieldInfo = "y"
- attrGet _ = rectangleReadY
- attrSet _ = rectangleWriteY
- attrConstruct = undefined
- attrClear _ = undefined
-
-rectangleY :: AttrLabelProxy "y"
-rectangleY = AttrLabelProxy
-
-
-rectangleReadWidth :: MonadIO m => Rectangle -> m Int32
-rectangleReadWidth s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 8) :: IO Int32
- return val
-
-rectangleWriteWidth :: MonadIO m => Rectangle -> Int32 -> m ()
-rectangleWriteWidth s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 8) (val :: Int32)
-
-data RectangleWidthFieldInfo
-instance AttrInfo RectangleWidthFieldInfo where
- type AttrAllowedOps RectangleWidthFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint RectangleWidthFieldInfo = (~) Int32
- type AttrBaseTypeConstraint RectangleWidthFieldInfo = (~) Rectangle
- type AttrGetType RectangleWidthFieldInfo = Int32
- type AttrLabel RectangleWidthFieldInfo = "width"
- attrGet _ = rectangleReadWidth
- attrSet _ = rectangleWriteWidth
- attrConstruct = undefined
- attrClear _ = undefined
-
-rectangleWidth :: AttrLabelProxy "width"
-rectangleWidth = AttrLabelProxy
-
-
-rectangleReadHeight :: MonadIO m => Rectangle -> m Int32
-rectangleReadHeight s = liftIO $ withManagedPtr s $ \ptr -> do
- val <- peek (ptr `plusPtr` 12) :: IO Int32
- return val
-
-rectangleWriteHeight :: MonadIO m => Rectangle -> Int32 -> m ()
-rectangleWriteHeight s val = liftIO $ withManagedPtr s $ \ptr -> do
- poke (ptr `plusPtr` 12) (val :: Int32)
-
-data RectangleHeightFieldInfo
-instance AttrInfo RectangleHeightFieldInfo where
- type AttrAllowedOps RectangleHeightFieldInfo = '[ 'AttrSet, 'AttrGet]
- type AttrSetTypeConstraint RectangleHeightFieldInfo = (~) Int32
- type AttrBaseTypeConstraint RectangleHeightFieldInfo = (~) Rectangle
- type AttrGetType RectangleHeightFieldInfo = Int32
- type AttrLabel RectangleHeightFieldInfo = "height"
- attrGet _ = rectangleReadHeight
- attrSet _ = rectangleWriteHeight
- attrConstruct = undefined
- attrClear _ = undefined
-
-rectangleHeight :: AttrLabelProxy "height"
-rectangleHeight = AttrLabelProxy
-
-
-
-type instance AttributeList Rectangle = RectangleAttributeList
-type RectangleAttributeList = ('[ '("x", RectangleXFieldInfo), '("y", RectangleYFieldInfo), '("width", RectangleWidthFieldInfo), '("height", RectangleHeightFieldInfo)] :: [(Symbol, *)])
-
-type family ResolveRectangleMethod (t :: Symbol) (o :: *) :: * where
- ResolveRectangleMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveRectangleMethod t Rectangle, MethodInfo info Rectangle p) => IsLabelProxy t (Rectangle -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveRectangleMethod t Rectangle, MethodInfo info Rectangle p) => IsLabel t (Rectangle -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/Rectangle.hs-boot b/GI/Pango/Structs/Rectangle.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/Rectangle.hs-boot
+++ /dev/null
@@ -1,11 +0,0 @@
-module GI.Pango.Structs.Rectangle where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype Rectangle = Rectangle (ForeignPtr Rectangle)
-instance WrappedPtr Rectangle where
diff --git a/GI/Pango/Structs/ScriptForLang.hs b/GI/Pango/Structs/ScriptForLang.hs
deleted file mode 100644
--- a/GI/Pango/Structs/ScriptForLang.hs
+++ /dev/null
@@ -1,67 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
--}
-
-module GI.Pango.Structs.ScriptForLang
- (
-
--- * Exported types
- ScriptForLang(..) ,
- newZeroScriptForLang ,
- noScriptForLang ,
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype ScriptForLang = ScriptForLang (ForeignPtr ScriptForLang)
-instance WrappedPtr ScriptForLang where
- wrappedPtrCalloc = callocBytes 20
- wrappedPtrCopy = copyPtr 20
- wrappedPtrFree = Just ptr_to_g_free
-
--- | Construct a `ScriptForLang` struct initialized to zero.
-newZeroScriptForLang :: MonadIO m => m ScriptForLang
-newZeroScriptForLang = liftIO $ wrappedPtrCalloc >>= wrapPtr ScriptForLang
-
-instance tag ~ 'AttrSet => Constructible ScriptForLang tag where
- new _ attrs = do
- o <- newZeroScriptForLang
- GI.Attributes.set o attrs
- return o
-
-
-noScriptForLang :: Maybe ScriptForLang
-noScriptForLang = Nothing
-
--- XXX Skipped attribute for "ScriptForLang:lang" :: Not implemented: "Don't know how to unpack C array of type TCArray False 7 (-1) (TBasicType TInt8)"
--- XXX Skipped attribute for "ScriptForLang:scripts" :: Not implemented: "Don't know how to unpack C array of type TCArray False 3 (-1) (TInterface \"Pango\" \"Script\")"
-
-type instance AttributeList ScriptForLang = ScriptForLangAttributeList
-type ScriptForLangAttributeList = ('[ ] :: [(Symbol, *)])
-
-type family ResolveScriptForLangMethod (t :: Symbol) (o :: *) :: * where
- ResolveScriptForLangMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveScriptForLangMethod t ScriptForLang, MethodInfo info ScriptForLang p) => IsLabelProxy t (ScriptForLang -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveScriptForLangMethod t ScriptForLang, MethodInfo info ScriptForLang p) => IsLabel t (ScriptForLang -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/ScriptForLang.hs-boot b/GI/Pango/Structs/ScriptForLang.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/ScriptForLang.hs-boot
+++ /dev/null
@@ -1,11 +0,0 @@
-module GI.Pango.Structs.ScriptForLang where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype ScriptForLang = ScriptForLang (ForeignPtr ScriptForLang)
-instance WrappedPtr ScriptForLang where
diff --git a/GI/Pango/Structs/ScriptIter.hs b/GI/Pango/Structs/ScriptIter.hs
deleted file mode 100644
--- a/GI/Pango/Structs/ScriptIter.hs
+++ /dev/null
@@ -1,177 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-A #PangoScriptIter is used to iterate through a string
-and identify ranges in different scripts.
--}
-
-module GI.Pango.Structs.ScriptIter
- (
-
--- * Exported types
- ScriptIter(..) ,
- noScriptIter ,
-
-
- -- * Methods
--- ** scriptIterFree
- ScriptIterFreeMethodInfo ,
- scriptIterFree ,
-
-
--- ** scriptIterGetRange
- ScriptIterGetRangeMethodInfo ,
- scriptIterGetRange ,
-
-
--- ** scriptIterNext
- ScriptIterNextMethodInfo ,
- scriptIterNext ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype ScriptIter = ScriptIter (ForeignPtr ScriptIter)
--- XXX Wrapping a foreign struct/union with no known destructor or size, leak?
-instance WrappedPtr ScriptIter where
- wrappedPtrCalloc = return nullPtr
- wrappedPtrCopy = return
- wrappedPtrFree = Nothing
-
-noScriptIter :: Maybe ScriptIter
-noScriptIter = Nothing
-
-
-type instance AttributeList ScriptIter = ScriptIterAttributeList
-type ScriptIterAttributeList = ('[ ] :: [(Symbol, *)])
-
--- method ScriptIter::free
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "ScriptIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_script_iter_free" pango_script_iter_free ::
- Ptr ScriptIter -> -- _obj : TInterface "Pango" "ScriptIter"
- IO ()
-
-
-scriptIterFree ::
- (MonadIO m) =>
- ScriptIter -- _obj
- -> m () -- result
-scriptIterFree _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- pango_script_iter_free _obj'
- touchManagedPtr _obj
- return ()
-
-data ScriptIterFreeMethodInfo
-instance (signature ~ (m ()), MonadIO m) => MethodInfo ScriptIterFreeMethodInfo ScriptIter signature where
- overloadedMethod _ = scriptIterFree
-
--- method ScriptIter::get_range
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "ScriptIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "script", argType = TInterface "Pango" "Script", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_script_iter_get_range" pango_script_iter_get_range ::
- Ptr ScriptIter -> -- _obj : TInterface "Pango" "ScriptIter"
- Ptr CString -> -- start : TBasicType TUTF8
- Ptr CString -> -- end : TBasicType TUTF8
- Ptr CUInt -> -- script : TInterface "Pango" "Script"
- IO ()
-
-
-scriptIterGetRange ::
- (MonadIO m) =>
- ScriptIter -- _obj
- -> m (T.Text,T.Text,Script) -- result
-scriptIterGetRange _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- start <- allocMem :: IO (Ptr CString)
- end <- allocMem :: IO (Ptr CString)
- script <- allocMem :: IO (Ptr CUInt)
- pango_script_iter_get_range _obj' start end script
- start' <- peek start
- start'' <- cstringToText start'
- freeMem start'
- end' <- peek end
- end'' <- cstringToText end'
- freeMem end'
- script' <- peek script
- let script'' = (toEnum . fromIntegral) script'
- touchManagedPtr _obj
- freeMem start
- freeMem end
- freeMem script
- return (start'', end'', script'')
-
-data ScriptIterGetRangeMethodInfo
-instance (signature ~ (m (T.Text,T.Text,Script)), MonadIO m) => MethodInfo ScriptIterGetRangeMethodInfo ScriptIter signature where
- overloadedMethod _ = scriptIterGetRange
-
--- method ScriptIter::next
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "ScriptIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_script_iter_next" pango_script_iter_next ::
- Ptr ScriptIter -> -- _obj : TInterface "Pango" "ScriptIter"
- IO CInt
-
-
-scriptIterNext ::
- (MonadIO m) =>
- ScriptIter -- _obj
- -> m Bool -- result
-scriptIterNext _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_script_iter_next _obj'
- let result' = (/= 0) result
- touchManagedPtr _obj
- return result'
-
-data ScriptIterNextMethodInfo
-instance (signature ~ (m Bool), MonadIO m) => MethodInfo ScriptIterNextMethodInfo ScriptIter signature where
- overloadedMethod _ = scriptIterNext
-
-type family ResolveScriptIterMethod (t :: Symbol) (o :: *) :: * where
- ResolveScriptIterMethod "free" o = ScriptIterFreeMethodInfo
- ResolveScriptIterMethod "next" o = ScriptIterNextMethodInfo
- ResolveScriptIterMethod "getRange" o = ScriptIterGetRangeMethodInfo
- ResolveScriptIterMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveScriptIterMethod t ScriptIter, MethodInfo info ScriptIter p) => IsLabelProxy t (ScriptIter -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveScriptIterMethod t ScriptIter, MethodInfo info ScriptIter p) => IsLabel t (ScriptIter -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/ScriptIter.hs-boot b/GI/Pango/Structs/ScriptIter.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/ScriptIter.hs-boot
+++ /dev/null
@@ -1,14 +0,0 @@
-module GI.Pango.Structs.ScriptIter where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype ScriptIter = ScriptIter (ForeignPtr ScriptIter)
-instance WrappedPtr ScriptIter where
-data ScriptIterFreeMethodInfo
-data ScriptIterGetRangeMethodInfo
-data ScriptIterNextMethodInfo
diff --git a/GI/Pango/Structs/TabArray.hs b/GI/Pango/Structs/TabArray.hs
deleted file mode 100644
--- a/GI/Pango/Structs/TabArray.hs
+++ /dev/null
@@ -1,386 +0,0 @@
-
-
-{- |
-Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-License : LGPL-2.1
-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-
-A #PangoTabArray struct contains an array
-of tab stops. Each tab stop has an alignment and a position.
--}
-
-module GI.Pango.Structs.TabArray
- (
-
--- * Exported types
- TabArray(..) ,
- noTabArray ,
-
-
- -- * Methods
--- ** tabArrayCopy
- TabArrayCopyMethodInfo ,
- tabArrayCopy ,
-
-
--- ** tabArrayFree
- TabArrayFreeMethodInfo ,
- tabArrayFree ,
-
-
--- ** tabArrayGetPositionsInPixels
- TabArrayGetPositionsInPixelsMethodInfo ,
- tabArrayGetPositionsInPixels ,
-
-
--- ** tabArrayGetSize
- TabArrayGetSizeMethodInfo ,
- tabArrayGetSize ,
-
-
--- ** tabArrayGetTab
- TabArrayGetTabMethodInfo ,
- tabArrayGetTab ,
-
-
--- ** tabArrayGetTabs
- TabArrayGetTabsMethodInfo ,
- tabArrayGetTabs ,
-
-
--- ** tabArrayNew
- tabArrayNew ,
-
-
--- ** tabArrayResize
- TabArrayResizeMethodInfo ,
- tabArrayResize ,
-
-
--- ** tabArraySetTab
- TabArraySetTabMethodInfo ,
- tabArraySetTab ,
-
-
-
-
- ) where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-import GI.Pango.Types
-import GI.Pango.Callbacks
-
-newtype TabArray = TabArray (ForeignPtr TabArray)
-foreign import ccall "pango_tab_array_get_type" c_pango_tab_array_get_type ::
- IO GType
-
-instance BoxedObject TabArray where
- boxedType _ = c_pango_tab_array_get_type
-
-noTabArray :: Maybe TabArray
-noTabArray = Nothing
-
-
-type instance AttributeList TabArray = TabArrayAttributeList
-type TabArrayAttributeList = ('[ ] :: [(Symbol, *)])
-
--- method TabArray::new
--- method type : Constructor
--- Args : [Arg {argCName = "initial_size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "positions_in_pixels", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "TabArray")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_tab_array_new" pango_tab_array_new ::
- Int32 -> -- initial_size : TBasicType TInt
- CInt -> -- positions_in_pixels : TBasicType TBoolean
- IO (Ptr TabArray)
-
-
-tabArrayNew ::
- (MonadIO m) =>
- Int32 -- initialSize
- -> Bool -- positionsInPixels
- -> m TabArray -- result
-tabArrayNew initialSize positionsInPixels = liftIO $ do
- let positionsInPixels' = (fromIntegral . fromEnum) positionsInPixels
- result <- pango_tab_array_new initialSize positionsInPixels'
- checkUnexpectedReturnNULL "pango_tab_array_new" result
- result' <- (wrapBoxed TabArray) result
- return result'
-
--- method TabArray::copy
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TInterface "Pango" "TabArray")
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_tab_array_copy" pango_tab_array_copy ::
- Ptr TabArray -> -- _obj : TInterface "Pango" "TabArray"
- IO (Ptr TabArray)
-
-
-tabArrayCopy ::
- (MonadIO m) =>
- TabArray -- _obj
- -> m TabArray -- result
-tabArrayCopy _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_tab_array_copy _obj'
- checkUnexpectedReturnNULL "pango_tab_array_copy" result
- result' <- (wrapBoxed TabArray) result
- touchManagedPtr _obj
- return result'
-
-data TabArrayCopyMethodInfo
-instance (signature ~ (m TabArray), MonadIO m) => MethodInfo TabArrayCopyMethodInfo TabArray signature where
- overloadedMethod _ = tabArrayCopy
-
--- method TabArray::free
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_tab_array_free" pango_tab_array_free ::
- Ptr TabArray -> -- _obj : TInterface "Pango" "TabArray"
- IO ()
-
-
-tabArrayFree ::
- (MonadIO m) =>
- TabArray -- _obj
- -> m () -- result
-tabArrayFree _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- pango_tab_array_free _obj'
- touchManagedPtr _obj
- return ()
-
-data TabArrayFreeMethodInfo
-instance (signature ~ (m ()), MonadIO m) => MethodInfo TabArrayFreeMethodInfo TabArray signature where
- overloadedMethod _ = tabArrayFree
-
--- method TabArray::get_positions_in_pixels
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TBoolean)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_tab_array_get_positions_in_pixels" pango_tab_array_get_positions_in_pixels ::
- Ptr TabArray -> -- _obj : TInterface "Pango" "TabArray"
- IO CInt
-
-
-tabArrayGetPositionsInPixels ::
- (MonadIO m) =>
- TabArray -- _obj
- -> m Bool -- result
-tabArrayGetPositionsInPixels _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_tab_array_get_positions_in_pixels _obj'
- let result' = (/= 0) result
- touchManagedPtr _obj
- return result'
-
-data TabArrayGetPositionsInPixelsMethodInfo
-instance (signature ~ (m Bool), MonadIO m) => MethodInfo TabArrayGetPositionsInPixelsMethodInfo TabArray signature where
- overloadedMethod _ = tabArrayGetPositionsInPixels
-
--- method TabArray::get_size
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Just (TBasicType TInt)
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_tab_array_get_size" pango_tab_array_get_size ::
- Ptr TabArray -> -- _obj : TInterface "Pango" "TabArray"
- IO Int32
-
-
-tabArrayGetSize ::
- (MonadIO m) =>
- TabArray -- _obj
- -> m Int32 -- result
-tabArrayGetSize _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- result <- pango_tab_array_get_size _obj'
- touchManagedPtr _obj
- return result
-
-data TabArrayGetSizeMethodInfo
-instance (signature ~ (m Int32), MonadIO m) => MethodInfo TabArrayGetSizeMethodInfo TabArray signature where
- overloadedMethod _ = tabArrayGetSize
-
--- method TabArray::get_tab
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "alignment", argType = TInterface "Pango" "TabAlign", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "location", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_tab_array_get_tab" pango_tab_array_get_tab ::
- Ptr TabArray -> -- _obj : TInterface "Pango" "TabArray"
- Int32 -> -- tab_index : TBasicType TInt
- Ptr CUInt -> -- alignment : TInterface "Pango" "TabAlign"
- Ptr Int32 -> -- location : TBasicType TInt
- IO ()
-
-
-tabArrayGetTab ::
- (MonadIO m) =>
- TabArray -- _obj
- -> Int32 -- tabIndex
- -> m (TabAlign,Int32) -- result
-tabArrayGetTab _obj tabIndex = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- alignment <- allocMem :: IO (Ptr CUInt)
- location <- allocMem :: IO (Ptr Int32)
- pango_tab_array_get_tab _obj' tabIndex alignment location
- alignment' <- peek alignment
- let alignment'' = (toEnum . fromIntegral) alignment'
- location' <- peek location
- touchManagedPtr _obj
- freeMem alignment
- freeMem location
- return (alignment'', location')
-
-data TabArrayGetTabMethodInfo
-instance (signature ~ (Int32 -> m (TabAlign,Int32)), MonadIO m) => MethodInfo TabArrayGetTabMethodInfo TabArray signature where
- overloadedMethod _ = tabArrayGetTab
-
--- method TabArray::get_tabs
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "alignments", argType = TInterface "Pango" "TabAlign", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "locations", argType = TCArray False (-1) (-1) (TBasicType TInt), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_tab_array_get_tabs" pango_tab_array_get_tabs ::
- Ptr TabArray -> -- _obj : TInterface "Pango" "TabArray"
- Ptr CUInt -> -- alignments : TInterface "Pango" "TabAlign"
- Ptr (Ptr Int32) -> -- locations : TCArray False (-1) (-1) (TBasicType TInt)
- IO ()
-
-
-tabArrayGetTabs ::
- (MonadIO m) =>
- TabArray -- _obj
- -> m (TabAlign,(Ptr Int32)) -- result
-tabArrayGetTabs _obj = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- alignments <- allocMem :: IO (Ptr CUInt)
- locations <- allocMem :: IO (Ptr (Ptr Int32))
- pango_tab_array_get_tabs _obj' alignments locations
- alignments' <- peek alignments
- let alignments'' = (toEnum . fromIntegral) alignments'
- locations' <- peek locations
- touchManagedPtr _obj
- freeMem alignments
- freeMem locations
- return (alignments'', locations')
-
-data TabArrayGetTabsMethodInfo
-instance (signature ~ (m (TabAlign,(Ptr Int32))), MonadIO m) => MethodInfo TabArrayGetTabsMethodInfo TabArray signature where
- overloadedMethod _ = tabArrayGetTabs
-
--- method TabArray::resize
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_tab_array_resize" pango_tab_array_resize ::
- Ptr TabArray -> -- _obj : TInterface "Pango" "TabArray"
- Int32 -> -- new_size : TBasicType TInt
- IO ()
-
-
-tabArrayResize ::
- (MonadIO m) =>
- TabArray -- _obj
- -> Int32 -- newSize
- -> m () -- result
-tabArrayResize _obj newSize = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- pango_tab_array_resize _obj' newSize
- touchManagedPtr _obj
- return ()
-
-data TabArrayResizeMethodInfo
-instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo TabArrayResizeMethodInfo TabArray signature where
- overloadedMethod _ = tabArrayResize
-
--- method TabArray::set_tab
--- method type : OrdinaryMethod
--- Args : [Arg {argCName = "_obj", argType = TInterface "Pango" "TabArray", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tab_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "alignment", argType = TInterface "Pango" "TabAlign", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "location", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
--- Lengths : []
--- returnType : Nothing
--- throws : False
--- Skip return : False
-
-foreign import ccall "pango_tab_array_set_tab" pango_tab_array_set_tab ::
- Ptr TabArray -> -- _obj : TInterface "Pango" "TabArray"
- Int32 -> -- tab_index : TBasicType TInt
- CUInt -> -- alignment : TInterface "Pango" "TabAlign"
- Int32 -> -- location : TBasicType TInt
- IO ()
-
-
-tabArraySetTab ::
- (MonadIO m) =>
- TabArray -- _obj
- -> Int32 -- tabIndex
- -> TabAlign -- alignment
- -> Int32 -- location
- -> m () -- result
-tabArraySetTab _obj tabIndex alignment location = liftIO $ do
- let _obj' = unsafeManagedPtrGetPtr _obj
- let alignment' = (fromIntegral . fromEnum) alignment
- pango_tab_array_set_tab _obj' tabIndex alignment' location
- touchManagedPtr _obj
- return ()
-
-data TabArraySetTabMethodInfo
-instance (signature ~ (Int32 -> TabAlign -> Int32 -> m ()), MonadIO m) => MethodInfo TabArraySetTabMethodInfo TabArray signature where
- overloadedMethod _ = tabArraySetTab
-
-type family ResolveTabArrayMethod (t :: Symbol) (o :: *) :: * where
- ResolveTabArrayMethod "copy" o = TabArrayCopyMethodInfo
- ResolveTabArrayMethod "free" o = TabArrayFreeMethodInfo
- ResolveTabArrayMethod "resize" o = TabArrayResizeMethodInfo
- ResolveTabArrayMethod "getPositionsInPixels" o = TabArrayGetPositionsInPixelsMethodInfo
- ResolveTabArrayMethod "getSize" o = TabArrayGetSizeMethodInfo
- ResolveTabArrayMethod "getTab" o = TabArrayGetTabMethodInfo
- ResolveTabArrayMethod "getTabs" o = TabArrayGetTabsMethodInfo
- ResolveTabArrayMethod "setTab" o = TabArraySetTabMethodInfo
- ResolveTabArrayMethod l o = MethodResolutionFailed l o
-
-instance (info ~ ResolveTabArrayMethod t TabArray, MethodInfo info TabArray p) => IsLabelProxy t (TabArray -> p) where
- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
-
-#if MIN_VERSION_base(4,9,0)
-instance (info ~ ResolveTabArrayMethod t TabArray, MethodInfo info TabArray p) => IsLabel t (TabArray -> p) where
- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
-#endif
-
-
diff --git a/GI/Pango/Structs/TabArray.hs-boot b/GI/Pango/Structs/TabArray.hs-boot
deleted file mode 100644
--- a/GI/Pango/Structs/TabArray.hs-boot
+++ /dev/null
@@ -1,19 +0,0 @@
-module GI.Pango.Structs.TabArray where
-
-import Data.GI.Base.ShortPrelude
-
-import qualified Data.GI.Base.Attributes as GI.Attributes
-import qualified Data.Text as T
-import qualified Data.ByteString.Char8 as B
-import qualified Data.Map as Map
-
-newtype TabArray = TabArray (ForeignPtr TabArray)
-instance BoxedObject TabArray where
-data TabArrayCopyMethodInfo
-data TabArrayFreeMethodInfo
-data TabArrayGetPositionsInPixelsMethodInfo
-data TabArrayGetSizeMethodInfo
-data TabArrayGetTabMethodInfo
-data TabArrayGetTabsMethodInfo
-data TabArrayResizeMethodInfo
-data TabArraySetTabMethodInfo
diff --git a/GI/Pango/Types.hs b/GI/Pango/Types.hs
deleted file mode 100644
--- a/GI/Pango/Types.hs
+++ /dev/null
@@ -1,114 +0,0 @@
-module GI.Pango.Types
- ( module GI.Pango.Objects.Context ,
- module GI.Pango.Objects.Engine ,
- module GI.Pango.Objects.EngineLang ,
- module GI.Pango.Objects.EngineShape ,
- module GI.Pango.Objects.Font ,
- module GI.Pango.Objects.FontFace ,
- module GI.Pango.Objects.FontFamily ,
- module GI.Pango.Objects.FontMap ,
- module GI.Pango.Objects.Fontset ,
- module GI.Pango.Objects.FontsetSimple ,
- module GI.Pango.Objects.Layout ,
- module GI.Pango.Objects.Renderer ,
- module GI.Pango.Structs.Analysis ,
- module GI.Pango.Structs.AttrClass ,
- module GI.Pango.Structs.AttrColor ,
- module GI.Pango.Structs.AttrFloat ,
- module GI.Pango.Structs.AttrFontDesc ,
- module GI.Pango.Structs.AttrFontFeatures,
- module GI.Pango.Structs.AttrInt ,
- module GI.Pango.Structs.AttrIterator ,
- module GI.Pango.Structs.AttrLanguage ,
- module GI.Pango.Structs.AttrList ,
- module GI.Pango.Structs.AttrShape ,
- module GI.Pango.Structs.AttrSize ,
- module GI.Pango.Structs.AttrString ,
- module GI.Pango.Structs.Attribute ,
- module GI.Pango.Structs.Color ,
- module GI.Pango.Structs.Coverage ,
- module GI.Pango.Structs.EngineInfo ,
- module GI.Pango.Structs.EngineScriptInfo,
- module GI.Pango.Structs.FontDescription ,
- module GI.Pango.Structs.FontMetrics ,
- module GI.Pango.Structs.GlyphGeometry ,
- module GI.Pango.Structs.GlyphInfo ,
- module GI.Pango.Structs.GlyphItem ,
- module GI.Pango.Structs.GlyphItemIter ,
- module GI.Pango.Structs.GlyphString ,
- module GI.Pango.Structs.GlyphVisAttr ,
- module GI.Pango.Structs.IncludedModule ,
- module GI.Pango.Structs.Item ,
- module GI.Pango.Structs.Language ,
- module GI.Pango.Structs.LayoutIter ,
- module GI.Pango.Structs.LayoutLine ,
- module GI.Pango.Structs.LogAttr ,
- module GI.Pango.Structs.Map ,
- module GI.Pango.Structs.MapEntry ,
- module GI.Pango.Structs.Matrix ,
- module GI.Pango.Structs.Rectangle ,
- module GI.Pango.Structs.ScriptForLang ,
- module GI.Pango.Structs.ScriptIter ,
- module GI.Pango.Structs.TabArray ,
- module GI.Pango.Enums ,
- module GI.Pango.Flags ,
-
-
- ) where
-
-
-import {-# SOURCE #-} GI.Pango.Objects.Context
-import {-# SOURCE #-} GI.Pango.Objects.Engine
-import {-# SOURCE #-} GI.Pango.Objects.EngineLang
-import {-# SOURCE #-} GI.Pango.Objects.EngineShape
-import {-# SOURCE #-} GI.Pango.Objects.Font
-import {-# SOURCE #-} GI.Pango.Objects.FontFace
-import {-# SOURCE #-} GI.Pango.Objects.FontFamily
-import {-# SOURCE #-} GI.Pango.Objects.FontMap
-import {-# SOURCE #-} GI.Pango.Objects.Fontset
-import {-# SOURCE #-} GI.Pango.Objects.FontsetSimple
-import {-# SOURCE #-} GI.Pango.Objects.Layout
-import {-# SOURCE #-} GI.Pango.Objects.Renderer
-import {-# SOURCE #-} GI.Pango.Structs.Analysis
-import {-# SOURCE #-} GI.Pango.Structs.AttrClass
-import {-# SOURCE #-} GI.Pango.Structs.AttrColor
-import {-# SOURCE #-} GI.Pango.Structs.AttrFloat
-import {-# SOURCE #-} GI.Pango.Structs.AttrFontDesc
-import {-# SOURCE #-} GI.Pango.Structs.AttrFontFeatures
-import {-# SOURCE #-} GI.Pango.Structs.AttrInt
-import {-# SOURCE #-} GI.Pango.Structs.AttrIterator
-import {-# SOURCE #-} GI.Pango.Structs.AttrLanguage
-import {-# SOURCE #-} GI.Pango.Structs.AttrList
-import {-# SOURCE #-} GI.Pango.Structs.AttrShape
-import {-# SOURCE #-} GI.Pango.Structs.AttrSize
-import {-# SOURCE #-} GI.Pango.Structs.AttrString
-import {-# SOURCE #-} GI.Pango.Structs.Attribute
-import {-# SOURCE #-} GI.Pango.Structs.Color
-import {-# SOURCE #-} GI.Pango.Structs.Coverage
-import {-# SOURCE #-} GI.Pango.Structs.EngineInfo
-import {-# SOURCE #-} GI.Pango.Structs.EngineScriptInfo
-import {-# SOURCE #-} GI.Pango.Structs.FontDescription
-import {-# SOURCE #-} GI.Pango.Structs.FontMetrics
-import {-# SOURCE #-} GI.Pango.Structs.GlyphGeometry
-import {-# SOURCE #-} GI.Pango.Structs.GlyphInfo
-import {-# SOURCE #-} GI.Pango.Structs.GlyphItem
-import {-# SOURCE #-} GI.Pango.Structs.GlyphItemIter
-import {-# SOURCE #-} GI.Pango.Structs.GlyphString
-import {-# SOURCE #-} GI.Pango.Structs.GlyphVisAttr
-import {-# SOURCE #-} GI.Pango.Structs.IncludedModule
-import {-# SOURCE #-} GI.Pango.Structs.Item
-import {-# SOURCE #-} GI.Pango.Structs.Language
-import {-# SOURCE #-} GI.Pango.Structs.LayoutIter
-import {-# SOURCE #-} GI.Pango.Structs.LayoutLine
-import {-# SOURCE #-} GI.Pango.Structs.LogAttr
-import {-# SOURCE #-} GI.Pango.Structs.Map
-import {-# SOURCE #-} GI.Pango.Structs.MapEntry
-import {-# SOURCE #-} GI.Pango.Structs.Matrix
-import {-# SOURCE #-} GI.Pango.Structs.Rectangle
-import {-# SOURCE #-} GI.Pango.Structs.ScriptForLang
-import {-# SOURCE #-} GI.Pango.Structs.ScriptIter
-import {-# SOURCE #-} GI.Pango.Structs.TabArray
-
-import GI.Pango.Enums
-import GI.Pango.Flags
-
diff --git a/Pango.overrides b/Pango.overrides
new file mode 100644
--- /dev/null
+++ b/Pango.overrides
@@ -0,0 +1,29 @@
+namespace Pango
+
+# https://bugzilla.gnome.org/show_bug.cgi?id=766452
+alloc-info Attribute calloc=none copy=pango_attribute_copy free=pango_attribute_destroy
+
+set-attr Pango/AttrFontDesc/new introspectable 1
+set-attr Pango/AttrFontFeatures/new introspectable 1
+set-attr Pango/AttrLanguage/new introspectable 1
+set-attr Pango/AttrShape/new introspectable 1
+set-attr Pango/AttrSize/new introspectable 1
+set-attr Pango/attr_background_alpha_new introspectable 1
+set-attr Pango/attr_background_new introspectable 1
+set-attr Pango/attr_fallback_new introspectable 1
+set-attr Pango/attr_family_new introspectable 1
+set-attr Pango/attr_foreground_alpha_new introspectable 1
+set-attr Pango/attr_foreground_new introspectable 1
+set-attr Pango/attr_gravity_hint_new introspectable 1
+set-attr Pango/attr_gravity_new introspectable 1
+set-attr Pango/attr_letter_spacing_new introspectable 1
+set-attr Pango/attr_rise_new introspectable 1
+set-attr Pango/attr_scale_new introspectable 1
+set-attr Pango/attr_stretch_new introspectable 1
+set-attr Pango/attr_strikethrough_color_new introspectable 1
+set-attr Pango/attr_strikethrough_new introspectable 1
+set-attr Pango/attr_style_new introspectable 1
+set-attr Pango/attr_underline_color_new introspectable 1
+set-attr Pango/attr_underline_new introspectable 1
+set-attr Pango/attr_variant_new introspectable 1
+set-attr Pango/attr_weight_new introspectable 1
diff --git a/Setup.hs b/Setup.hs
--- a/Setup.hs
+++ b/Setup.hs
@@ -1,3 +1,12 @@
-#!/usr/bin/env runhaskell
-import Distribution.Simple
-main = defaultMain
+{-# LANGUAGE OverloadedStrings #-}
+
+import Distribution.Simple (defaultMainWithHooks)
+import Data.GI.CodeGen.CabalHooks (simpleHaskellGIHooks)
+
+main = defaultMainWithHooks (simpleHaskellGIHooks name version verbose
+ overridesFile outputDir)
+ where name = "Pango"
+ version = "1.0"
+ verbose = False
+ overridesFile = Just "Pango.overrides"
+ outputDir = Nothing
diff --git a/gi-pango.cabal b/gi-pango.cabal
--- a/gi-pango.cabal
+++ b/gi-pango.cabal
@@ -1,6 +1,5 @@
--- Autogenerated, do not edit.
name: gi-pango
-version: 0.1.38.15
+version: 1.0.1
synopsis: Pango bindings
description: Bindings for Pango, autogenerated by haskell-gi.
homepage: https://github.com/haskell-gi/haskell-gi
@@ -9,80 +8,28 @@
author: Will Thompson, Iñaki García Etxebarria and Jonas Platte
maintainer: Iñaki García Etxebarria (garetxe@gmail.com)
category: Bindings
-build-type: Simple
-cabal-version: >=1.10
+build-type: Custom
+cabal-version: >= 1.24
+extra-source-files: Pango.overrides
+
+custom-setup
+ setup-depends: base >= 4.7,
+ Cabal >= 1.24,
+ haskell-gi >= 0.15
+
library
default-language: Haskell2010
default-extensions: NoImplicitPrelude, ScopedTypeVariables, CPP, OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts
other-extensions: PatternSynonyms ViewPatterns
ghc-options: -fno-warn-unused-imports -fno-warn-warnings-deprecations
- exposed-modules: GI.Pango.Types
- GI.Pango
- GI.Pango.Callbacks
- GI.Pango.Constants
- GI.Pango.Enums
- GI.Pango.Flags
- GI.Pango.Functions
- GI.Pango.Objects
- GI.Pango.Objects.Context
- GI.Pango.Objects.Engine
- GI.Pango.Objects.EngineLang
- GI.Pango.Objects.EngineShape
- GI.Pango.Objects.Font
- GI.Pango.Objects.FontFace
- GI.Pango.Objects.FontFamily
- GI.Pango.Objects.FontMap
- GI.Pango.Objects.Fontset
- GI.Pango.Objects.FontsetSimple
- GI.Pango.Objects.Layout
- GI.Pango.Objects.Renderer
- GI.Pango.Structs
- GI.Pango.Structs.Analysis
- GI.Pango.Structs.AttrClass
- GI.Pango.Structs.AttrColor
- GI.Pango.Structs.AttrFloat
- GI.Pango.Structs.AttrFontDesc
- GI.Pango.Structs.AttrFontFeatures
- GI.Pango.Structs.AttrInt
- GI.Pango.Structs.AttrIterator
- GI.Pango.Structs.AttrLanguage
- GI.Pango.Structs.AttrList
- GI.Pango.Structs.AttrShape
- GI.Pango.Structs.AttrSize
- GI.Pango.Structs.AttrString
- GI.Pango.Structs.Attribute
- GI.Pango.Structs.Color
- GI.Pango.Structs.Coverage
- GI.Pango.Structs.EngineInfo
- GI.Pango.Structs.EngineScriptInfo
- GI.Pango.Structs.FontDescription
- GI.Pango.Structs.FontMetrics
- GI.Pango.Structs.GlyphGeometry
- GI.Pango.Structs.GlyphInfo
- GI.Pango.Structs.GlyphItem
- GI.Pango.Structs.GlyphItemIter
- GI.Pango.Structs.GlyphString
- GI.Pango.Structs.GlyphVisAttr
- GI.Pango.Structs.IncludedModule
- GI.Pango.Structs.Item
- GI.Pango.Structs.Language
- GI.Pango.Structs.LayoutIter
- GI.Pango.Structs.LayoutLine
- GI.Pango.Structs.LogAttr
- GI.Pango.Structs.Map
- GI.Pango.Structs.MapEntry
- GI.Pango.Structs.Matrix
- GI.Pango.Structs.Rectangle
- GI.Pango.Structs.ScriptForLang
- GI.Pango.Structs.ScriptIter
- GI.Pango.Structs.TabArray
- pkgconfig-depends: pango >= 1.38
+
+ pkgconfig-depends: pango >= 1.0 && < 2
build-depends: base >= 4.7 && <5,
haskell-gi-base >= 0.15 && < 1,
- gi-glib >= 0.2.46.15 && < 0.2.47,
- gi-gobject >= 0.2.46.15 && < 0.2.47,
+ gi-glib == 2.0.*,
+ gi-gobject == 2.0.*,
bytestring >= 0.10,
containers >= 0.5,
text >= 1.0,
- transformers >= 0.3
+ transformers >= 0.5