gi-pango 0.1.38.15 → 1.0.1
raw patch · 114 files changed
+56/−22100 lines, 114 filesdep ~gi-glibdep ~gi-gobjectdep ~transformersbuild-type:Customsetup-changed
Dependency ranges changed: gi-glib, gi-gobject, transformers
Files
- GI/Pango.hs +0/−44
- GI/Pango/Callbacks.hs +0/−311
- GI/Pango/Constants.hs +0/−73
- GI/Pango/Enums.hs +0/−930
- GI/Pango/Flags.hs +0/−68
- GI/Pango/Functions.hs +0/−2036
- GI/Pango/Objects.hs +0/−49
- GI/Pango/Objects/Context.hs +0/−902
- GI/Pango/Objects/Context.hs-boot +0/−34
- GI/Pango/Objects/Engine.hs +0/−92
- GI/Pango/Objects/Engine.hs-boot +0/−13
- GI/Pango/Objects/EngineLang.hs +0/−92
- GI/Pango/Objects/EngineLang.hs-boot +0/−13
- GI/Pango/Objects/EngineShape.hs +0/−92
- GI/Pango/Objects/EngineShape.hs-boot +0/−13
- GI/Pango/Objects/Font.hs +0/−321
- GI/Pango/Objects/Font.hs-boot +0/−18
- GI/Pango/Objects/FontFace.hs +0/−244
- GI/Pango/Objects/FontFace.hs-boot +0/−17
- GI/Pango/Objects/FontFamily.hs +0/−208
- GI/Pango/Objects/FontFamily.hs-boot +0/−16
- GI/Pango/Objects/FontMap.hs +0/−367
- GI/Pango/Objects/FontMap.hs-boot +0/−20
- GI/Pango/Objects/Fontset.hs +0/−206
- GI/Pango/Objects/Fontset.hs-boot +0/−16
- GI/Pango/Objects/FontsetSimple.hs +0/−197
- GI/Pango/Objects/FontsetSimple.hs-boot +0/−15
- GI/Pango/Objects/Layout.hs +0/−2188
- GI/Pango/Objects/Layout.hs-boot +0/−69
- GI/Pango/Objects/Renderer.hs +0/−863
- GI/Pango/Objects/Renderer.hs-boot +0/−32
- GI/Pango/Structs.hs +0/−103
- GI/Pango/Structs/Analysis.hs +0/−388
- GI/Pango/Structs/Analysis.hs-boot +0/−11
- GI/Pango/Structs/AttrClass.hs +0/−108
- GI/Pango/Structs/AttrClass.hs-boot +0/−11
- GI/Pango/Structs/AttrColor.hs +0/−149
- GI/Pango/Structs/AttrColor.hs-boot +0/−11
- GI/Pango/Structs/AttrFloat.hs +0/−143
- GI/Pango/Structs/AttrFloat.hs-boot +0/−11
- GI/Pango/Structs/AttrFontDesc.hs +0/−181
- GI/Pango/Structs/AttrFontDesc.hs-boot +0/−11
- GI/Pango/Structs/AttrFontFeatures.hs +0/−181
- GI/Pango/Structs/AttrFontFeatures.hs-boot +0/−11
- GI/Pango/Structs/AttrInt.hs +0/−141
- GI/Pango/Structs/AttrInt.hs-boot +0/−11
- GI/Pango/Structs/AttrIterator.hs +0/−259
- GI/Pango/Structs/AttrIterator.hs-boot +0/−16
- GI/Pango/Structs/AttrLanguage.hs +0/−181
- GI/Pango/Structs/AttrLanguage.hs-boot +0/−11
- GI/Pango/Structs/AttrList.hs +0/−391
- GI/Pango/Structs/AttrList.hs-boot +0/−19
- GI/Pango/Structs/AttrShape.hs +0/−261
- GI/Pango/Structs/AttrShape.hs-boot +0/−11
- GI/Pango/Structs/AttrSize.hs +0/−202
- GI/Pango/Structs/AttrSize.hs-boot +0/−11
- GI/Pango/Structs/AttrString.hs +0/−149
- GI/Pango/Structs/AttrString.hs-boot +0/−11
- GI/Pango/Structs/Attribute.hs +0/−279
- GI/Pango/Structs/Attribute.hs-boot +0/−14
- GI/Pango/Structs/Color.hs +0/−311
- GI/Pango/Structs/Color.hs-boot +0/−15
- GI/Pango/Structs/Coverage.hs +0/−247
- GI/Pango/Structs/Coverage.hs-boot +0/−16
- GI/Pango/Structs/EngineInfo.hs +0/−258
- GI/Pango/Structs/EngineInfo.hs-boot +0/−11
- GI/Pango/Structs/EngineScriptInfo.hs +0/−143
- GI/Pango/Structs/EngineScriptInfo.hs-boot +0/−11
- GI/Pango/Structs/FontDescription.hs +0/−1162
- GI/Pango/Structs/FontDescription.hs-boot +0/−40
- GI/Pango/Structs/FontMetrics.hs +0/−433
- GI/Pango/Structs/FontMetrics.hs-boot +0/−21
- GI/Pango/Structs/GlyphGeometry.hs +0/−164
- GI/Pango/Structs/GlyphGeometry.hs-boot +0/−11
- GI/Pango/Structs/GlyphInfo.hs +0/−181
- GI/Pango/Structs/GlyphInfo.hs-boot +0/−11
- GI/Pango/Structs/GlyphItem.hs +0/−390
- GI/Pango/Structs/GlyphItem.hs-boot +0/−17
- GI/Pango/Structs/GlyphItemIter.hs +0/−595
- GI/Pango/Structs/GlyphItemIter.hs-boot +0/−17
- GI/Pango/Structs/GlyphString.hs +0/−540
- GI/Pango/Structs/GlyphString.hs-boot +0/−20
- GI/Pango/Structs/GlyphVisAttr.hs +0/−103
- GI/Pango/Structs/GlyphVisAttr.hs-boot +0/−11
- GI/Pango/Structs/IncludedModule.hs +0/−72
- GI/Pango/Structs/IncludedModule.hs-boot +0/−11
- GI/Pango/Structs/Item.hs +0/−339
- GI/Pango/Structs/Item.hs-boot +0/−14
- GI/Pango/Structs/Language.hs +0/−308
- GI/Pango/Structs/Language.hs-boot +0/−16
- GI/Pango/Structs/LayoutIter.hs +0/−778
- GI/Pango/Structs/LayoutIter.hs-boot +0/−31
- GI/Pango/Structs/LayoutLine.hs +0/−560
- GI/Pango/Structs/LayoutLine.hs-boot +0/−18
- GI/Pango/Structs/LogAttr.hs +0/−474
- GI/Pango/Structs/LogAttr.hs-boot +0/−11
- GI/Pango/Structs/Map.hs +0/−54
- GI/Pango/Structs/Map.hs-boot +0/−11
- GI/Pango/Structs/MapEntry.hs +0/−54
- GI/Pango/Structs/MapEntry.hs-boot +0/−11
- GI/Pango/Structs/Matrix.hs +0/−678
- GI/Pango/Structs/Matrix.hs-boot +0/−21
- GI/Pango/Structs/Rectangle.hs +0/−196
- GI/Pango/Structs/Rectangle.hs-boot +0/−11
- GI/Pango/Structs/ScriptForLang.hs +0/−67
- GI/Pango/Structs/ScriptForLang.hs-boot +0/−11
- GI/Pango/Structs/ScriptIter.hs +0/−177
- GI/Pango/Structs/ScriptIter.hs-boot +0/−14
- GI/Pango/Structs/TabArray.hs +0/−386
- GI/Pango/Structs/TabArray.hs-boot +0/−19
- GI/Pango/Types.hs +0/−114
- Pango.overrides +29/−0
- Setup.hs +12/−3
- gi-pango.cabal +15/−68
− GI/Pango.hs
@@ -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-
− GI/Pango/Callbacks.hs
@@ -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--
− GI/Pango/Constants.hs
@@ -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--
− GI/Pango/Enums.hs
@@ -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--
− GI/Pango/Flags.hs
@@ -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--
− GI/Pango/Functions.hs
@@ -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'---
− GI/Pango/Objects.hs
@@ -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--
− GI/Pango/Objects/Context.hs
@@ -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--
− GI/Pango/Objects/Context.hs-boot
@@ -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
− GI/Pango/Objects/Engine.hs
@@ -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, *)])--
− GI/Pango/Objects/Engine.hs-boot
@@ -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
− GI/Pango/Objects/EngineLang.hs
@@ -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, *)])--
− GI/Pango/Objects/EngineLang.hs-boot
@@ -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
− GI/Pango/Objects/EngineShape.hs
@@ -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, *)])--
− GI/Pango/Objects/EngineShape.hs-boot
@@ -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
− GI/Pango/Objects/Font.hs
@@ -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 ()--
− GI/Pango/Objects/Font.hs-boot
@@ -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
− GI/Pango/Objects/FontFace.hs
@@ -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--
− GI/Pango/Objects/FontFace.hs-boot
@@ -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
− GI/Pango/Objects/FontFamily.hs
@@ -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--
− GI/Pango/Objects/FontFamily.hs-boot
@@ -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
− GI/Pango/Objects/FontMap.hs
@@ -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--
− GI/Pango/Objects/FontMap.hs-boot
@@ -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
− GI/Pango/Objects/Fontset.hs
@@ -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--
− GI/Pango/Objects/Fontset.hs-boot
@@ -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
− GI/Pango/Objects/FontsetSimple.hs
@@ -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--
− GI/Pango/Objects/FontsetSimple.hs-boot
@@ -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
− GI/Pango/Objects/Layout.hs
@@ -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--
− GI/Pango/Objects/Layout.hs-boot
@@ -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
− GI/Pango/Objects/Renderer.hs
@@ -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--
− GI/Pango/Objects/Renderer.hs-boot
@@ -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
− GI/Pango/Structs.hs
@@ -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--
− GI/Pango/Structs/Analysis.hs
@@ -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--
− GI/Pango/Structs/Analysis.hs-boot
@@ -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
− GI/Pango/Structs/AttrClass.hs
@@ -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--
− GI/Pango/Structs/AttrClass.hs-boot
@@ -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
− GI/Pango/Structs/AttrColor.hs
@@ -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--
− GI/Pango/Structs/AttrColor.hs-boot
@@ -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
− GI/Pango/Structs/AttrFloat.hs
@@ -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--
− GI/Pango/Structs/AttrFloat.hs-boot
@@ -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
− GI/Pango/Structs/AttrFontDesc.hs
@@ -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--
− GI/Pango/Structs/AttrFontDesc.hs-boot
@@ -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
− GI/Pango/Structs/AttrFontFeatures.hs
@@ -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--
− GI/Pango/Structs/AttrFontFeatures.hs-boot
@@ -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
− GI/Pango/Structs/AttrInt.hs
@@ -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--
− GI/Pango/Structs/AttrInt.hs-boot
@@ -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
− GI/Pango/Structs/AttrIterator.hs
@@ -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--
− GI/Pango/Structs/AttrIterator.hs-boot
@@ -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
− GI/Pango/Structs/AttrLanguage.hs
@@ -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--
− GI/Pango/Structs/AttrLanguage.hs-boot
@@ -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
− GI/Pango/Structs/AttrList.hs
@@ -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--
− GI/Pango/Structs/AttrList.hs-boot
@@ -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
− GI/Pango/Structs/AttrShape.hs
@@ -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--
− GI/Pango/Structs/AttrShape.hs-boot
@@ -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
− GI/Pango/Structs/AttrSize.hs
@@ -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--
− GI/Pango/Structs/AttrSize.hs-boot
@@ -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
− GI/Pango/Structs/AttrString.hs
@@ -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--
− GI/Pango/Structs/AttrString.hs-boot
@@ -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
− GI/Pango/Structs/Attribute.hs
@@ -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--
− GI/Pango/Structs/Attribute.hs-boot
@@ -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
− GI/Pango/Structs/Color.hs
@@ -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--
− GI/Pango/Structs/Color.hs-boot
@@ -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
− GI/Pango/Structs/Coverage.hs
@@ -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--
− GI/Pango/Structs/Coverage.hs-boot
@@ -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
− GI/Pango/Structs/EngineInfo.hs
@@ -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--
− GI/Pango/Structs/EngineInfo.hs-boot
@@ -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
− GI/Pango/Structs/EngineScriptInfo.hs
@@ -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--
− GI/Pango/Structs/EngineScriptInfo.hs-boot
@@ -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
− GI/Pango/Structs/FontDescription.hs
@@ -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--
− GI/Pango/Structs/FontDescription.hs-boot
@@ -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
− GI/Pango/Structs/FontMetrics.hs
@@ -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--
− GI/Pango/Structs/FontMetrics.hs-boot
@@ -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
− GI/Pango/Structs/GlyphGeometry.hs
@@ -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--
− GI/Pango/Structs/GlyphGeometry.hs-boot
@@ -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
− GI/Pango/Structs/GlyphInfo.hs
@@ -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--
− GI/Pango/Structs/GlyphInfo.hs-boot
@@ -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
− GI/Pango/Structs/GlyphItem.hs
@@ -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--
− GI/Pango/Structs/GlyphItem.hs-boot
@@ -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
− GI/Pango/Structs/GlyphItemIter.hs
@@ -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 <firstterm>forward direction</firstterm> 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 <literal>@glyph_item->item->analysis.level</literal> 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:-<programlisting>-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))-{- ...-}-</programlisting>--Note that @text is the start of the text for layout, which is then-indexed by <literal>@glyph_item->item->offset</literal> 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--
− GI/Pango/Structs/GlyphItemIter.hs-boot
@@ -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
− GI/Pango/Structs/GlyphString.hs
@@ -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--
− GI/Pango/Structs/GlyphString.hs-boot
@@ -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
− GI/Pango/Structs/GlyphVisAttr.hs
@@ -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--
− GI/Pango/Structs/GlyphVisAttr.hs-boot
@@ -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
− GI/Pango/Structs/IncludedModule.hs
@@ -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--
− GI/Pango/Structs/IncludedModule.hs-boot
@@ -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
− GI/Pango/Structs/Item.hs
@@ -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--
− GI/Pango/Structs/Item.hs-boot
@@ -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
− GI/Pango/Structs/Language.hs
@@ -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--
− GI/Pango/Structs/Language.hs-boot
@@ -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
− GI/Pango/Structs/LayoutIter.hs
@@ -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--
− GI/Pango/Structs/LayoutIter.hs-boot
@@ -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
− GI/Pango/Structs/LayoutLine.hs
@@ -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--
− GI/Pango/Structs/LayoutLine.hs-boot
@@ -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
− GI/Pango/Structs/LogAttr.hs
@@ -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--
− GI/Pango/Structs/LogAttr.hs-boot
@@ -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
− GI/Pango/Structs/Map.hs
@@ -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--
− GI/Pango/Structs/Map.hs-boot
@@ -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
− GI/Pango/Structs/MapEntry.hs
@@ -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--
− GI/Pango/Structs/MapEntry.hs-boot
@@ -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
− GI/Pango/Structs/Matrix.hs
@@ -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--<programlisting>-x_device = x_user * matrix->xx + y_user * matrix->xy + matrix->x0;-y_device = x_user * matrix->yx + y_user * matrix->yy + matrix->y0;-</programlisting>--}--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--
− GI/Pango/Structs/Matrix.hs-boot
@@ -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
− GI/Pango/Structs/Rectangle.hs
@@ -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--
− GI/Pango/Structs/Rectangle.hs-boot
@@ -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
− GI/Pango/Structs/ScriptForLang.hs
@@ -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--
− GI/Pango/Structs/ScriptForLang.hs-boot
@@ -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
− GI/Pango/Structs/ScriptIter.hs
@@ -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--
− GI/Pango/Structs/ScriptIter.hs-boot
@@ -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
− GI/Pango/Structs/TabArray.hs
@@ -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--
− GI/Pango/Structs/TabArray.hs-boot
@@ -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
− GI/Pango/Types.hs
@@ -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-
+ Pango.overrides view
@@ -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
Setup.hs view
@@ -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
gi-pango.cabal view
@@ -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