gi-pangocairo 0.1.38.15 → 1.0.1
raw patch · 14 files changed
+27/−1438 lines, 14 filesdep ~gi-cairodep ~gi-glibdep ~gi-gobjectbuild-type:Customsetup-changed
Dependency ranges changed: gi-cairo, gi-glib, gi-gobject, gi-pango, transformers
Files
- GI/PangoCairo.hs +0/−38
- GI/PangoCairo/Callbacks.hs +0/−78
- GI/PangoCairo/Functions.hs +0/−618
- GI/PangoCairo/Interfaces.hs +0/−29
- GI/PangoCairo/Interfaces/Font.hs +0/−140
- GI/PangoCairo/Interfaces/Font.hs-boot +0/−14
- GI/PangoCairo/Interfaces/FontMap.hs +0/−324
- GI/PangoCairo/Interfaces/FontMap.hs-boot +0/−17
- GI/PangoCairo/Objects.hs +0/−27
- GI/PangoCairo/Objects/FcFontMap.hs +0/−104
- GI/PangoCairo/Objects/FcFontMap.hs-boot +0/−13
- GI/PangoCairo/Types.hs +0/−14
- Setup.hs +12/−3
- gi-pangocairo.cabal +15/−19
− GI/PangoCairo.hs
@@ -1,38 +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.PangoCairo- ( module GI.PangoCairo.Callbacks ,- module GI.PangoCairo.Functions ,- module GI.PangoCairo.Interfaces ,- module GI.PangoCairo.Objects ,---- module Data.GI.Base ,--- ) where--import GI.PangoCairo.Callbacks-import GI.PangoCairo.Functions-import GI.PangoCairo.Interfaces-import GI.PangoCairo.Objects--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.PangoCairo.Types-import GI.PangoCairo.Callbacks--import Data.GI.Base-
− GI/PangoCairo/Callbacks.hs
@@ -1,78 +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.PangoCairo.Callbacks- ( -- -- * Signals--- ** ShapeRendererFunc- ShapeRendererFunc ,- ShapeRendererFuncC ,- mkShapeRendererFunc ,- noShapeRendererFunc ,- shapeRendererFuncClosure ,- shapeRendererFuncWrapper ,----- ) 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.PangoCairo.Types--import qualified GI.Pango as Pango-import qualified GI.Cairo as Cairo---- callback ShapeRendererFunc-shapeRendererFuncClosure :: ShapeRendererFunc -> IO Closure-shapeRendererFuncClosure cb = newCClosure =<< mkShapeRendererFunc wrapped- where wrapped = shapeRendererFuncWrapper Nothing cb--type ShapeRendererFuncC =- Ptr Cairo.Context ->- Ptr Pango.AttrShape ->- CInt ->- Ptr () ->- IO ()--foreign import ccall "wrapper"- mkShapeRendererFunc :: ShapeRendererFuncC -> IO (FunPtr ShapeRendererFuncC)--type ShapeRendererFunc =- Cairo.Context ->- Pango.AttrShape ->- Bool ->- Ptr () ->- IO ()--noShapeRendererFunc :: Maybe ShapeRendererFunc-noShapeRendererFunc = Nothing--shapeRendererFuncWrapper ::- Maybe (Ptr (FunPtr (ShapeRendererFuncC))) ->- ShapeRendererFunc ->- Ptr Cairo.Context ->- Ptr Pango.AttrShape ->- CInt ->- Ptr () ->- IO ()-shapeRendererFuncWrapper funptrptr _cb cr attr doPath data_ = do- cr' <- (newBoxed Cairo.Context) cr- attr' <- (newPtr Pango.AttrShape) attr- let doPath' = (/= 0) doPath- _cb cr' attr' doPath' data_- maybeReleaseFunPtr funptrptr--
− GI/PangoCairo/Functions.hs
@@ -1,618 +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.PangoCairo.Functions- ( -- -- * Methods--- ** contextGetFontOptions- contextGetFontOptions ,----- ** contextGetResolution- contextGetResolution ,----- ** contextSetFontOptions- contextSetFontOptions ,----- ** contextSetResolution- contextSetResolution ,----- ** contextSetShapeRenderer- contextSetShapeRenderer ,----- ** createContext- createContext ,----- ** createLayout- createLayout ,----- ** errorUnderlinePath- errorUnderlinePath ,----- ** glyphStringPath- glyphStringPath ,----- ** layoutLinePath- layoutLinePath ,----- ** layoutPath- layoutPath ,----- ** showErrorUnderline- showErrorUnderline ,----- ** showGlyphItem- showGlyphItem ,----- ** showGlyphString- showGlyphString ,----- ** showLayout- showLayout ,----- ** showLayoutLine- showLayoutLine ,----- ** updateContext- updateContext ,----- ** updateLayout- updateLayout ,----- ) 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.PangoCairo.Types-import GI.PangoCairo.Callbacks-import qualified GI.GLib as GLib-import qualified GI.Pango as Pango-import qualified GI.Cairo as Cairo---- function pango_cairo_update_layout--- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", 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}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "pango_cairo_update_layout" pango_cairo_update_layout :: - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"- Ptr Pango.Layout -> -- layout : TInterface "Pango" "Layout"- IO ()---updateLayout ::- (MonadIO m, Pango.LayoutK a) =>- Cairo.Context -- cr- -> a -- layout- -> m () -- result-updateLayout cr layout = liftIO $ do- let cr' = unsafeManagedPtrGetPtr cr- let layout' = unsafeManagedPtrCastPtr layout- pango_cairo_update_layout cr' layout'- touchManagedPtr cr- touchManagedPtr layout- return ()----- function pango_cairo_update_context--- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", 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}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "pango_cairo_update_context" pango_cairo_update_context :: - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"- Ptr Pango.Context -> -- context : TInterface "Pango" "Context"- IO ()---updateContext ::- (MonadIO m, Pango.ContextK a) =>- Cairo.Context -- cr- -> a -- context- -> m () -- result-updateContext cr context = liftIO $ do- let cr' = unsafeManagedPtrGetPtr cr- let context' = unsafeManagedPtrCastPtr context- pango_cairo_update_context cr' context'- touchManagedPtr cr- touchManagedPtr context- return ()----- function pango_cairo_show_layout_line--- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", 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}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "pango_cairo_show_layout_line" pango_cairo_show_layout_line :: - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"- Ptr Pango.LayoutLine -> -- line : TInterface "Pango" "LayoutLine"- IO ()---showLayoutLine ::- (MonadIO m) =>- Cairo.Context -- cr- -> Pango.LayoutLine -- line- -> m () -- result-showLayoutLine cr line = liftIO $ do- let cr' = unsafeManagedPtrGetPtr cr- let line' = unsafeManagedPtrGetPtr line- pango_cairo_show_layout_line cr' line'- touchManagedPtr cr- touchManagedPtr line- return ()----- function pango_cairo_show_layout--- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", 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}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "pango_cairo_show_layout" pango_cairo_show_layout :: - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"- Ptr Pango.Layout -> -- layout : TInterface "Pango" "Layout"- IO ()---showLayout ::- (MonadIO m, Pango.LayoutK a) =>- Cairo.Context -- cr- -> a -- layout- -> m () -- result-showLayout cr layout = liftIO $ do- let cr' = unsafeManagedPtrGetPtr cr- let layout' = unsafeManagedPtrCastPtr layout- pango_cairo_show_layout cr' layout'- touchManagedPtr cr- touchManagedPtr layout- return ()----- function pango_cairo_show_glyph_string--- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", 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}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "pango_cairo_show_glyph_string" pango_cairo_show_glyph_string :: - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"- Ptr Pango.Font -> -- font : TInterface "Pango" "Font"- Ptr Pango.GlyphString -> -- glyphs : TInterface "Pango" "GlyphString"- IO ()---showGlyphString ::- (MonadIO m, Pango.FontK a) =>- Cairo.Context -- cr- -> a -- font- -> Pango.GlyphString -- glyphs- -> m () -- result-showGlyphString cr font glyphs = liftIO $ do- let cr' = unsafeManagedPtrGetPtr cr- let font' = unsafeManagedPtrCastPtr font- let glyphs' = unsafeManagedPtrGetPtr glyphs- pango_cairo_show_glyph_string cr' font' glyphs'- touchManagedPtr cr- touchManagedPtr font- touchManagedPtr glyphs- return ()----- function pango_cairo_show_glyph_item--- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "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 = "glyph_item", 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_cairo_show_glyph_item" pango_cairo_show_glyph_item :: - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"- CString -> -- text : TBasicType TUTF8- Ptr Pango.GlyphItem -> -- glyph_item : TInterface "Pango" "GlyphItem"- IO ()---showGlyphItem ::- (MonadIO m) =>- Cairo.Context -- cr- -> T.Text -- text- -> Pango.GlyphItem -- glyphItem- -> m () -- result-showGlyphItem cr text glyphItem = liftIO $ do- let cr' = unsafeManagedPtrGetPtr cr- text' <- textToCString text- let glyphItem' = unsafeManagedPtrGetPtr glyphItem- pango_cairo_show_glyph_item cr' text' glyphItem'- touchManagedPtr cr- touchManagedPtr glyphItem- freeMem text'- return ()----- function pango_cairo_show_error_underline--- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", 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},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", 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_cairo_show_error_underline" pango_cairo_show_error_underline :: - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"- CDouble -> -- x : TBasicType TDouble- CDouble -> -- y : TBasicType TDouble- CDouble -> -- width : TBasicType TDouble- CDouble -> -- height : TBasicType TDouble- IO ()---showErrorUnderline ::- (MonadIO m) =>- Cairo.Context -- cr- -> Double -- x- -> Double -- y- -> Double -- width- -> Double -- height- -> m () -- result-showErrorUnderline cr x y width height = liftIO $ do- let cr' = unsafeManagedPtrGetPtr cr- let x' = realToFrac x- let y' = realToFrac y- let width' = realToFrac width- let height' = realToFrac height- pango_cairo_show_error_underline cr' x' y' width' height'- touchManagedPtr cr- return ()----- function pango_cairo_layout_path--- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", 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}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "pango_cairo_layout_path" pango_cairo_layout_path :: - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"- Ptr Pango.Layout -> -- layout : TInterface "Pango" "Layout"- IO ()---layoutPath ::- (MonadIO m, Pango.LayoutK a) =>- Cairo.Context -- cr- -> a -- layout- -> m () -- result-layoutPath cr layout = liftIO $ do- let cr' = unsafeManagedPtrGetPtr cr- let layout' = unsafeManagedPtrCastPtr layout- pango_cairo_layout_path cr' layout'- touchManagedPtr cr- touchManagedPtr layout- return ()----- function pango_cairo_layout_line_path--- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", 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}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "pango_cairo_layout_line_path" pango_cairo_layout_line_path :: - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"- Ptr Pango.LayoutLine -> -- line : TInterface "Pango" "LayoutLine"- IO ()---layoutLinePath ::- (MonadIO m) =>- Cairo.Context -- cr- -> Pango.LayoutLine -- line- -> m () -- result-layoutLinePath cr line = liftIO $ do- let cr' = unsafeManagedPtrGetPtr cr- let line' = unsafeManagedPtrGetPtr line- pango_cairo_layout_line_path cr' line'- touchManagedPtr cr- touchManagedPtr line- return ()----- function pango_cairo_glyph_string_path--- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", 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}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "pango_cairo_glyph_string_path" pango_cairo_glyph_string_path :: - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"- Ptr Pango.Font -> -- font : TInterface "Pango" "Font"- Ptr Pango.GlyphString -> -- glyphs : TInterface "Pango" "GlyphString"- IO ()---glyphStringPath ::- (MonadIO m, Pango.FontK a) =>- Cairo.Context -- cr- -> a -- font- -> Pango.GlyphString -- glyphs- -> m () -- result-glyphStringPath cr font glyphs = liftIO $ do- let cr' = unsafeManagedPtrGetPtr cr- let font' = unsafeManagedPtrCastPtr font- let glyphs' = unsafeManagedPtrGetPtr glyphs- pango_cairo_glyph_string_path cr' font' glyphs'- touchManagedPtr cr- touchManagedPtr font- touchManagedPtr glyphs- return ()----- function pango_cairo_error_underline_path--- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", 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},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", 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_cairo_error_underline_path" pango_cairo_error_underline_path :: - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"- CDouble -> -- x : TBasicType TDouble- CDouble -> -- y : TBasicType TDouble- CDouble -> -- width : TBasicType TDouble- CDouble -> -- height : TBasicType TDouble- IO ()---errorUnderlinePath ::- (MonadIO m) =>- Cairo.Context -- cr- -> Double -- x- -> Double -- y- -> Double -- width- -> Double -- height- -> m () -- result-errorUnderlinePath cr x y width height = liftIO $ do- let cr' = unsafeManagedPtrGetPtr cr- let x' = realToFrac x- let y' = realToFrac y- let width' = realToFrac width- let height' = realToFrac height- pango_cairo_error_underline_path cr' x' y' width' height'- touchManagedPtr cr- return ()----- function pango_cairo_create_layout--- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "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_cairo_create_layout" pango_cairo_create_layout :: - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"- IO (Ptr Pango.Layout)---createLayout ::- (MonadIO m) =>- Cairo.Context -- cr- -> m Pango.Layout -- result-createLayout cr = liftIO $ do- let cr' = unsafeManagedPtrGetPtr cr- result <- pango_cairo_create_layout cr'- checkUnexpectedReturnNULL "pango_cairo_create_layout" result- result' <- (wrapObject Pango.Layout) result- touchManagedPtr cr- return result'----- function pango_cairo_create_context--- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", 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_cairo_create_context" pango_cairo_create_context :: - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context"- IO (Ptr Pango.Context)---createContext ::- (MonadIO m) =>- Cairo.Context -- cr- -> m Pango.Context -- result-createContext cr = liftIO $ do- let cr' = unsafeManagedPtrGetPtr cr- result <- pango_cairo_create_context cr'- checkUnexpectedReturnNULL "pango_cairo_create_context" result- result' <- (wrapObject Pango.Context) result- touchManagedPtr cr- return result'----- function pango_cairo_context_set_shape_renderer--- Args : [Arg {argCName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "PangoCairo" "ShapeRendererFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "pango_cairo_context_set_shape_renderer" pango_cairo_context_set_shape_renderer :: - Ptr Pango.Context -> -- context : TInterface "Pango" "Context"- FunPtr ShapeRendererFuncC -> -- func : TInterface "PangoCairo" "ShapeRendererFunc"- Ptr () -> -- data : TBasicType TPtr- FunPtr GLib.DestroyNotifyC -> -- dnotify : TInterface "GLib" "DestroyNotify"- IO ()---contextSetShapeRenderer ::- (MonadIO m, Pango.ContextK a) =>- a -- context- -> Maybe (ShapeRendererFunc) -- func- -> m () -- result-contextSetShapeRenderer context func = liftIO $ do- let context' = unsafeManagedPtrCastPtr context- maybeFunc <- case func of- Nothing -> return (castPtrToFunPtr nullPtr)- Just jFunc -> do- jFunc' <- mkShapeRendererFunc (shapeRendererFuncWrapper Nothing jFunc)- return jFunc'- let data_ = castFunPtrToPtr maybeFunc- let dnotify = safeFreeFunPtrPtr- pango_cairo_context_set_shape_renderer context' maybeFunc data_ dnotify- touchManagedPtr context- return ()----- function pango_cairo_context_set_resolution--- Args : [Arg {argCName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dpi", 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_cairo_context_set_resolution" pango_cairo_context_set_resolution :: - Ptr Pango.Context -> -- context : TInterface "Pango" "Context"- CDouble -> -- dpi : TBasicType TDouble- IO ()---contextSetResolution ::- (MonadIO m, Pango.ContextK a) =>- a -- context- -> Double -- dpi- -> m () -- result-contextSetResolution context dpi = liftIO $ do- let context' = unsafeManagedPtrCastPtr context- let dpi' = realToFrac dpi- pango_cairo_context_set_resolution context' dpi'- touchManagedPtr context- return ()----- function pango_cairo_context_set_font_options--- Args : [Arg {argCName = "context", argType = TInterface "Pango" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface "cairo" "FontOptions", 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_cairo_context_set_font_options" pango_cairo_context_set_font_options :: - Ptr Pango.Context -> -- context : TInterface "Pango" "Context"- Ptr Cairo.FontOptions -> -- options : TInterface "cairo" "FontOptions"- IO ()---contextSetFontOptions ::- (MonadIO m, Pango.ContextK a) =>- a -- context- -> Maybe (Cairo.FontOptions) -- options- -> m () -- result-contextSetFontOptions context options = liftIO $ do- let context' = unsafeManagedPtrCastPtr context- maybeOptions <- case options of- Nothing -> return nullPtr- Just jOptions -> do- let jOptions' = unsafeManagedPtrGetPtr jOptions- return jOptions'- pango_cairo_context_set_font_options context' maybeOptions- touchManagedPtr context- whenJust options touchManagedPtr- return ()----- function pango_cairo_context_get_resolution--- 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 (TBasicType TDouble)--- throws : False--- Skip return : False--foreign import ccall "pango_cairo_context_get_resolution" pango_cairo_context_get_resolution :: - Ptr Pango.Context -> -- context : TInterface "Pango" "Context"- IO CDouble---contextGetResolution ::- (MonadIO m, Pango.ContextK a) =>- a -- context- -> m Double -- result-contextGetResolution context = liftIO $ do- let context' = unsafeManagedPtrCastPtr context- result <- pango_cairo_context_get_resolution context'- let result' = realToFrac result- touchManagedPtr context- return result'----- function pango_cairo_context_get_font_options--- 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 "cairo" "FontOptions")--- throws : False--- Skip return : False--foreign import ccall "pango_cairo_context_get_font_options" pango_cairo_context_get_font_options :: - Ptr Pango.Context -> -- context : TInterface "Pango" "Context"- IO (Ptr Cairo.FontOptions)---contextGetFontOptions ::- (MonadIO m, Pango.ContextK a) =>- a -- context- -> m (Maybe Cairo.FontOptions) -- result-contextGetFontOptions context = liftIO $ do- let context' = unsafeManagedPtrCastPtr context- result <- pango_cairo_context_get_font_options context'- maybeResult <- convertIfNonNull result $ \result' -> do- result'' <- (newPtr Cairo.FontOptions) result'- return result''- touchManagedPtr context- return maybeResult---
− GI/PangoCairo/Interfaces.hs
@@ -1,29 +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.PangoCairo.Interfaces- ( module GI.PangoCairo.Interfaces.Font ,- module GI.PangoCairo.Interfaces.FontMap ,--- ) where--import GI.PangoCairo.Interfaces.Font-import GI.PangoCairo.Interfaces.FontMap--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.PangoCairo.Types-import GI.PangoCairo.Callbacks--
− GI/PangoCairo/Interfaces/Font.hs
@@ -1,140 +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.PangoCairo.Interfaces.Font- ( ---- * Exported types- Font(..) ,- noFont ,- FontK ,- toFont ,--- -- * Methods--- ** fontGetScaledFont- FontGetScaledFontMethodInfo ,- fontGetScaledFont ,----- ) 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.PangoCairo.Types-import GI.PangoCairo.Callbacks-import qualified GI.GObject as GObject-import qualified GI.Pango as Pango-import qualified GI.Cairo as Cairo---- interface Font --newtype Font = Font (ForeignPtr 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 = Pango.FontDescribeMethodInfo- ResolveFontMethod "describeWithAbsoluteSize" o = Pango.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 = Pango.FontGetFontMapMethodInfo- ResolveFontMethod "getGlyphExtents" o = Pango.FontGetGlyphExtentsMethodInfo- ResolveFontMethod "getMetrics" o = Pango.FontGetMetricsMethodInfo- ResolveFontMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo- ResolveFontMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo- ResolveFontMethod "getScaledFont" o = FontGetScaledFontMethodInfo- 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, *)])--foreign import ccall "pango_cairo_font_get_type"- c_pango_cairo_font_get_type :: IO GType--type instance ParentTypes Font = FontParentTypes-type FontParentTypes = '[Pango.Font, GObject.Object]--instance GObject Font where- gobjectIsInitiallyUnowned _ = False- gobjectType _ = c_pango_cairo_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---- method Font::get_scaled_font--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "PangoCairo" "Font", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "cairo" "ScaledFont")--- throws : False--- Skip return : False--foreign import ccall "pango_cairo_font_get_scaled_font" pango_cairo_font_get_scaled_font :: - Ptr Font -> -- _obj : TInterface "PangoCairo" "Font"- IO (Ptr Cairo.ScaledFont)---fontGetScaledFont ::- (MonadIO m, FontK a) =>- a -- _obj- -> m (Maybe Cairo.ScaledFont) -- result-fontGetScaledFont _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- pango_cairo_font_get_scaled_font _obj'- maybeResult <- convertIfNonNull result $ \result' -> do- result'' <- (wrapBoxed Cairo.ScaledFont) result'- return result''- touchManagedPtr _obj- return maybeResult--data FontGetScaledFontMethodInfo-instance (signature ~ (m (Maybe Cairo.ScaledFont)), MonadIO m, FontK a) => MethodInfo FontGetScaledFontMethodInfo a signature where- overloadedMethod _ = fontGetScaledFont--
− GI/PangoCairo/Interfaces/Font.hs-boot
@@ -1,14 +0,0 @@-module GI.PangoCairo.Interfaces.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 FontGetScaledFontMethodInfo
− GI/PangoCairo/Interfaces/FontMap.hs
@@ -1,324 +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.PangoCairo.Interfaces.FontMap- ( ---- * Exported types- FontMap(..) ,- noFontMap ,- FontMapK ,- toFontMap ,--- -- * Methods--- ** fontMapGetDefault- fontMapGetDefault ,----- ** fontMapGetFontType- FontMapGetFontTypeMethodInfo ,- fontMapGetFontType ,----- ** fontMapGetResolution- FontMapGetResolutionMethodInfo ,- fontMapGetResolution ,----- ** fontMapNew- fontMapNew ,----- ** fontMapNewForFontType- fontMapNewForFontType ,----- ** fontMapSetDefault- FontMapSetDefaultMethodInfo ,- fontMapSetDefault ,----- ** fontMapSetResolution- FontMapSetResolutionMethodInfo ,- fontMapSetResolution ,----- ) 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.PangoCairo.Types-import GI.PangoCairo.Callbacks-import qualified GI.GObject as GObject-import qualified GI.Pango as Pango-import qualified GI.Cairo as Cairo---- interface FontMap --newtype FontMap = FontMap (ForeignPtr 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 = Pango.FontMapChangedMethodInfo- ResolveFontMapMethod "createContext" o = Pango.FontMapCreateContextMethodInfo- ResolveFontMapMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo- ResolveFontMapMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo- ResolveFontMapMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo- ResolveFontMapMethod "listFamilies" o = Pango.FontMapListFamiliesMethodInfo- ResolveFontMapMethod "loadFont" o = Pango.FontMapLoadFontMethodInfo- ResolveFontMapMethod "loadFontset" o = Pango.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 "getFontType" o = FontMapGetFontTypeMethodInfo- ResolveFontMapMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo- ResolveFontMapMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo- ResolveFontMapMethod "getResolution" o = FontMapGetResolutionMethodInfo- ResolveFontMapMethod "getSerial" o = Pango.FontMapGetSerialMethodInfo- ResolveFontMapMethod "getShapeEngineType" o = Pango.FontMapGetShapeEngineTypeMethodInfo- ResolveFontMapMethod "setData" o = GObject.ObjectSetDataMethodInfo- ResolveFontMapMethod "setDefault" o = FontMapSetDefaultMethodInfo- ResolveFontMapMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo- ResolveFontMapMethod "setResolution" o = FontMapSetResolutionMethodInfo- 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, *)])--foreign import ccall "pango_cairo_font_map_get_type"- c_pango_cairo_font_map_get_type :: IO GType--type instance ParentTypes FontMap = FontMapParentTypes-type FontMapParentTypes = '[Pango.FontMap, GObject.Object]--instance GObject FontMap where- gobjectIsInitiallyUnowned _ = False- gobjectType _ = c_pango_cairo_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---- method FontMap::get_font_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "PangoCairo" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "cairo" "FontType")--- throws : False--- Skip return : False--foreign import ccall "pango_cairo_font_map_get_font_type" pango_cairo_font_map_get_font_type :: - Ptr FontMap -> -- _obj : TInterface "PangoCairo" "FontMap"- IO (Ptr Cairo.FontType)---fontMapGetFontType ::- (MonadIO m, FontMapK a) =>- a -- _obj- -> m Cairo.FontType -- result-fontMapGetFontType _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- pango_cairo_font_map_get_font_type _obj'- checkUnexpectedReturnNULL "pango_cairo_font_map_get_font_type" result- result' <- (wrapPtr Cairo.FontType) result- touchManagedPtr _obj- return result'--data FontMapGetFontTypeMethodInfo-instance (signature ~ (m Cairo.FontType), MonadIO m, FontMapK a) => MethodInfo FontMapGetFontTypeMethodInfo a signature where- overloadedMethod _ = fontMapGetFontType---- method FontMap::get_resolution--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "PangoCairo" "FontMap", 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_cairo_font_map_get_resolution" pango_cairo_font_map_get_resolution :: - Ptr FontMap -> -- _obj : TInterface "PangoCairo" "FontMap"- IO CDouble---fontMapGetResolution ::- (MonadIO m, FontMapK a) =>- a -- _obj- -> m Double -- result-fontMapGetResolution _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- result <- pango_cairo_font_map_get_resolution _obj'- let result' = realToFrac result- touchManagedPtr _obj- return result'--data FontMapGetResolutionMethodInfo-instance (signature ~ (m Double), MonadIO m, FontMapK a) => MethodInfo FontMapGetResolutionMethodInfo a signature where- overloadedMethod _ = fontMapGetResolution---- method FontMap::set_default--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "PangoCairo" "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_cairo_font_map_set_default" pango_cairo_font_map_set_default :: - Ptr FontMap -> -- _obj : TInterface "PangoCairo" "FontMap"- IO ()---fontMapSetDefault ::- (MonadIO m, FontMapK a) =>- a -- _obj- -> m () -- result-fontMapSetDefault _obj = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- pango_cairo_font_map_set_default _obj'- touchManagedPtr _obj- return ()--data FontMapSetDefaultMethodInfo-instance (signature ~ (m ()), MonadIO m, FontMapK a) => MethodInfo FontMapSetDefaultMethodInfo a signature where- overloadedMethod _ = fontMapSetDefault---- method FontMap::set_resolution--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "PangoCairo" "FontMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dpi", 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_cairo_font_map_set_resolution" pango_cairo_font_map_set_resolution :: - Ptr FontMap -> -- _obj : TInterface "PangoCairo" "FontMap"- CDouble -> -- dpi : TBasicType TDouble- IO ()---fontMapSetResolution ::- (MonadIO m, FontMapK a) =>- a -- _obj- -> Double -- dpi- -> m () -- result-fontMapSetResolution _obj dpi = liftIO $ do- let _obj' = unsafeManagedPtrCastPtr _obj- let dpi' = realToFrac dpi- pango_cairo_font_map_set_resolution _obj' dpi'- touchManagedPtr _obj- return ()--data FontMapSetResolutionMethodInfo-instance (signature ~ (Double -> m ()), MonadIO m, FontMapK a) => MethodInfo FontMapSetResolutionMethodInfo a signature where- overloadedMethod _ = fontMapSetResolution---- method FontMap::get_default--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface "Pango" "FontMap")--- throws : False--- Skip return : False--foreign import ccall "pango_cairo_font_map_get_default" pango_cairo_font_map_get_default :: - IO (Ptr Pango.FontMap)---fontMapGetDefault ::- (MonadIO m) =>- m Pango.FontMap -- result-fontMapGetDefault = liftIO $ do- result <- pango_cairo_font_map_get_default- checkUnexpectedReturnNULL "pango_cairo_font_map_get_default" result- result' <- (newObject Pango.FontMap) result- return result'---- method FontMap::new--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface "Pango" "FontMap")--- throws : False--- Skip return : False--foreign import ccall "pango_cairo_font_map_new" pango_cairo_font_map_new :: - IO (Ptr Pango.FontMap)---fontMapNew ::- (MonadIO m) =>- m Pango.FontMap -- result-fontMapNew = liftIO $ do- result <- pango_cairo_font_map_new- checkUnexpectedReturnNULL "pango_cairo_font_map_new" result- result' <- (wrapObject Pango.FontMap) result- return result'---- method FontMap::new_for_font_type--- method type : MemberFunction--- Args : [Arg {argCName = "fonttype", argType = TInterface "cairo" "FontType", 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_cairo_font_map_new_for_font_type" pango_cairo_font_map_new_for_font_type :: - Ptr Cairo.FontType -> -- fonttype : TInterface "cairo" "FontType"- IO (Ptr Pango.FontMap)---fontMapNewForFontType ::- (MonadIO m) =>- Cairo.FontType -- fonttype- -> m (Maybe Pango.FontMap) -- result-fontMapNewForFontType fonttype = liftIO $ do- let fonttype' = unsafeManagedPtrGetPtr fonttype- result <- pango_cairo_font_map_new_for_font_type fonttype'- maybeResult <- convertIfNonNull result $ \result' -> do- result'' <- (wrapObject Pango.FontMap) result'- return result''- touchManagedPtr fonttype- return maybeResult--
− GI/PangoCairo/Interfaces/FontMap.hs-boot
@@ -1,17 +0,0 @@-module GI.PangoCairo.Interfaces.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 FontMapGetFontTypeMethodInfo-data FontMapGetResolutionMethodInfo-data FontMapSetDefaultMethodInfo-data FontMapSetResolutionMethodInfo
− GI/PangoCairo/Objects.hs
@@ -1,27 +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.PangoCairo.Objects- ( module GI.PangoCairo.Objects.FcFontMap ,--- ) where--import GI.PangoCairo.Objects.FcFontMap--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.PangoCairo.Types-import GI.PangoCairo.Callbacks--
− GI/PangoCairo/Objects/FcFontMap.hs
@@ -1,104 +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.PangoCairo.Objects.FcFontMap- ( ---- * Exported types- FcFontMap(..) ,- FcFontMapK ,- toFcFontMap ,- noFcFontMap ,--- ) 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.PangoCairo.Types-import GI.PangoCairo.Callbacks-import qualified GI.GObject as GObject-import qualified GI.Pango as Pango--newtype FcFontMap = FcFontMap (ForeignPtr FcFontMap)-foreign import ccall "pango_cairo_fc_font_map_get_type"- c_pango_cairo_fc_font_map_get_type :: IO GType--type instance ParentTypes FcFontMap = FcFontMapParentTypes-type FcFontMapParentTypes = '[Pango.FontMap, GObject.Object, FontMap]--instance GObject FcFontMap where- gobjectIsInitiallyUnowned _ = False- gobjectType _ = c_pango_cairo_fc_font_map_get_type- --class GObject o => FcFontMapK o-instance (GObject o, IsDescendantOf FcFontMap o) => FcFontMapK o--toFcFontMap :: FcFontMapK o => o -> IO FcFontMap-toFcFontMap = unsafeCastTo FcFontMap--noFcFontMap :: Maybe FcFontMap-noFcFontMap = Nothing--type family ResolveFcFontMapMethod (t :: Symbol) (o :: *) :: * where- ResolveFcFontMapMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo- ResolveFcFontMapMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo- ResolveFcFontMapMethod "changed" o = Pango.FontMapChangedMethodInfo- ResolveFcFontMapMethod "createContext" o = Pango.FontMapCreateContextMethodInfo- ResolveFcFontMapMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo- ResolveFcFontMapMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo- ResolveFcFontMapMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo- ResolveFcFontMapMethod "listFamilies" o = Pango.FontMapListFamiliesMethodInfo- ResolveFcFontMapMethod "loadFont" o = Pango.FontMapLoadFontMethodInfo- ResolveFcFontMapMethod "loadFontset" o = Pango.FontMapLoadFontsetMethodInfo- ResolveFcFontMapMethod "notify" o = GObject.ObjectNotifyMethodInfo- ResolveFcFontMapMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo- ResolveFcFontMapMethod "ref" o = GObject.ObjectRefMethodInfo- ResolveFcFontMapMethod "refSink" o = GObject.ObjectRefSinkMethodInfo- ResolveFcFontMapMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo- ResolveFcFontMapMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo- ResolveFcFontMapMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo- ResolveFcFontMapMethod "stealData" o = GObject.ObjectStealDataMethodInfo- ResolveFcFontMapMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo- ResolveFcFontMapMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo- ResolveFcFontMapMethod "unref" o = GObject.ObjectUnrefMethodInfo- ResolveFcFontMapMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo- ResolveFcFontMapMethod "getData" o = GObject.ObjectGetDataMethodInfo- ResolveFcFontMapMethod "getFontType" o = FontMapGetFontTypeMethodInfo- ResolveFcFontMapMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo- ResolveFcFontMapMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo- ResolveFcFontMapMethod "getResolution" o = FontMapGetResolutionMethodInfo- ResolveFcFontMapMethod "getSerial" o = Pango.FontMapGetSerialMethodInfo- ResolveFcFontMapMethod "getShapeEngineType" o = Pango.FontMapGetShapeEngineTypeMethodInfo- ResolveFcFontMapMethod "setData" o = GObject.ObjectSetDataMethodInfo- ResolveFcFontMapMethod "setDefault" o = FontMapSetDefaultMethodInfo- ResolveFcFontMapMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo- ResolveFcFontMapMethod "setResolution" o = FontMapSetResolutionMethodInfo- ResolveFcFontMapMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveFcFontMapMethod t FcFontMap, MethodInfo info FcFontMap p) => IsLabelProxy t (FcFontMap -> p) where- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveFcFontMapMethod t FcFontMap, MethodInfo info FcFontMap p) => IsLabel t (FcFontMap -> p) where- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList FcFontMap = FcFontMapAttributeList-type FcFontMapAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList FcFontMap = FcFontMapSignalList-type FcFontMapSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--
− GI/PangoCairo/Objects/FcFontMap.hs-boot
@@ -1,13 +0,0 @@-module GI.PangoCairo.Objects.FcFontMap 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 FcFontMap = FcFontMap (ForeignPtr FcFontMap)-instance GObject FcFontMap where-class GObject o => FcFontMapK o-instance (GObject o, IsDescendantOf FcFontMap o) => FcFontMapK o
− GI/PangoCairo/Types.hs
@@ -1,14 +0,0 @@-module GI.PangoCairo.Types- ( module GI.PangoCairo.Interfaces.Font ,- module GI.PangoCairo.Interfaces.FontMap ,- module GI.PangoCairo.Objects.FcFontMap ,--- ) where---import {-# SOURCE #-} GI.PangoCairo.Interfaces.Font-import {-# SOURCE #-} GI.PangoCairo.Interfaces.FontMap-import {-# SOURCE #-} GI.PangoCairo.Objects.FcFontMap--
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 = "PangoCairo"+ version = "1.0"+ verbose = False+ overridesFile = Nothing+ outputDir = Nothing
gi-pangocairo.cabal view
@@ -1,6 +1,5 @@--- Autogenerated, do not edit. name: gi-pangocairo-version: 0.1.38.15+version: 1.0.1 synopsis: PangoCairo bindings description: Bindings for PangoCairo, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi@@ -9,31 +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 +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.PangoCairo.Types- GI.PangoCairo- GI.PangoCairo.Callbacks- GI.PangoCairo.Functions- GI.PangoCairo.Interfaces- GI.PangoCairo.Interfaces.Font- GI.PangoCairo.Interfaces.FontMap- GI.PangoCairo.Objects- GI.PangoCairo.Objects.FcFontMap- pkgconfig-depends: pangocairo >= 1.38++ pkgconfig-depends: pangocairo >= 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-pango >= 0.1.38.15 && < 0.1.39,- gi-cairo >= 0.1.14.15 && < 0.1.15,+ gi-glib == 2.0.*,+ gi-gobject == 2.0.*,+ gi-pango == 1.0.*,+ gi-cairo == 1.0.*, bytestring >= 0.10, containers >= 0.5, text >= 1.0,- transformers >= 0.3+ transformers >= 0.5