gi-cairo 0.1.14.15 → 1.0.1
raw patch · 30 files changed
+25/−1124 lines, 30 filesdep ~haskell-gi-basedep ~transformersbuild-type:Customsetup-changed
Dependency ranges changed: haskell-gi-base, transformers
Files
- GI/Cairo.hs +0/−38
- GI/Cairo/Callbacks.hs +0/−21
- GI/Cairo/Enums.hs +0/−54
- GI/Cairo/Functions.hs +0/−50
- GI/Cairo/Structs.hs +0/−47
- GI/Cairo/Structs/Context.hs +0/−54
- GI/Cairo/Structs/Context.hs-boot +0/−11
- GI/Cairo/Structs/FontFace.hs +0/−54
- GI/Cairo/Structs/FontFace.hs-boot +0/−11
- GI/Cairo/Structs/FontOptions.hs +0/−54
- GI/Cairo/Structs/FontOptions.hs-boot +0/−11
- GI/Cairo/Structs/FontType.hs +0/−54
- GI/Cairo/Structs/FontType.hs-boot +0/−11
- GI/Cairo/Structs/Matrix.hs +0/−54
- GI/Cairo/Structs/Matrix.hs-boot +0/−11
- GI/Cairo/Structs/Path.hs +0/−54
- GI/Cairo/Structs/Path.hs-boot +0/−11
- GI/Cairo/Structs/Pattern.hs +0/−54
- GI/Cairo/Structs/Pattern.hs-boot +0/−11
- GI/Cairo/Structs/RectangleInt.hs +0/−193
- GI/Cairo/Structs/RectangleInt.hs-boot +0/−11
- GI/Cairo/Structs/Region.hs +0/−54
- GI/Cairo/Structs/Region.hs-boot +0/−11
- GI/Cairo/Structs/ScaledFont.hs +0/−54
- GI/Cairo/Structs/ScaledFont.hs-boot +0/−11
- GI/Cairo/Structs/Surface.hs +0/−54
- GI/Cairo/Structs/Surface.hs-boot +0/−11
- GI/Cairo/Types.hs +0/−32
- Setup.hs +12/−3
- gi-cairo.cabal +13/−25
− GI/Cairo.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.Cairo- ( module GI.Cairo.Callbacks ,- module GI.Cairo.Enums ,- module GI.Cairo.Functions ,- module GI.Cairo.Structs ,---- module Data.GI.Base ,--- ) where--import GI.Cairo.Callbacks-import GI.Cairo.Enums-import GI.Cairo.Functions-import GI.Cairo.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.Cairo.Types-import GI.Cairo.Callbacks--import Data.GI.Base-
− GI/Cairo/Callbacks.hs
@@ -1,21 +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.Cairo.Callbacks () 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.Cairo.Types---
− GI/Cairo/Enums.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.Cairo.Enums- ( ---- * Exported types- Content(..) ,--- ) 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 Content--data Content = - ContentCOLOR- | ContentALPHA- | ContentCOLORALPHA- | AnotherContent Int- deriving (Show, Eq)--instance Enum Content where- fromEnum ContentCOLOR = 4096- fromEnum ContentALPHA = 8192- fromEnum ContentCOLORALPHA = 12288- fromEnum (AnotherContent k) = k-- toEnum 4096 = ContentCOLOR- toEnum 8192 = ContentALPHA- toEnum 12288 = ContentCOLORALPHA- toEnum k = AnotherContent k--foreign import ccall "cairo_gobject_content_get_type" c_cairo_gobject_content_get_type :: - IO GType--instance BoxedEnum Content where- boxedEnumType _ = c_cairo_gobject_content_get_type--
− GI/Cairo/Functions.hs
@@ -1,50 +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.Cairo.Functions- ( -- -- * Methods--- ** imageSurfaceCreate- imageSurfaceCreate ,----- ) 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.Cairo.Types-import GI.Cairo.Callbacks---- function cairo_image_surface_create--- Args : []--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "cairo_image_surface_create" cairo_image_surface_create :: - IO ()---imageSurfaceCreate ::- (MonadIO m) =>- m () -- result-imageSurfaceCreate = liftIO $ do- cairo_image_surface_create- return ()---
− GI/Cairo/Structs.hs
@@ -1,47 +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.Cairo.Structs- ( module GI.Cairo.Structs.Context ,- module GI.Cairo.Structs.FontFace ,- module GI.Cairo.Structs.FontOptions ,- module GI.Cairo.Structs.FontType ,- module GI.Cairo.Structs.Matrix ,- module GI.Cairo.Structs.Path ,- module GI.Cairo.Structs.Pattern ,- module GI.Cairo.Structs.RectangleInt ,- module GI.Cairo.Structs.Region ,- module GI.Cairo.Structs.ScaledFont ,- module GI.Cairo.Structs.Surface ,--- ) where--import GI.Cairo.Structs.Context-import GI.Cairo.Structs.FontFace-import GI.Cairo.Structs.FontOptions-import GI.Cairo.Structs.FontType-import GI.Cairo.Structs.Matrix-import GI.Cairo.Structs.Path-import GI.Cairo.Structs.Pattern-import GI.Cairo.Structs.RectangleInt-import GI.Cairo.Structs.Region-import GI.Cairo.Structs.ScaledFont-import GI.Cairo.Structs.Surface--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.Cairo.Types-import GI.Cairo.Callbacks--
− GI/Cairo/Structs/Context.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.Cairo.Structs.Context- ( ---- * Exported types- Context(..) ,- noContext ,--- ) 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.Cairo.Types-import GI.Cairo.Callbacks--newtype Context = Context (ForeignPtr Context)-foreign import ccall "cairo_gobject_context_get_type" c_cairo_gobject_context_get_type :: - IO GType--instance BoxedObject Context where- boxedType _ = c_cairo_gobject_context_get_type--noContext :: Maybe Context-noContext = Nothing---type instance AttributeList Context = ContextAttributeList-type ContextAttributeList = ('[ ] :: [(Symbol, *)])--type family ResolveContextMethod (t :: Symbol) (o :: *) :: * where- 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--
− GI/Cairo/Structs/Context.hs-boot
@@ -1,11 +0,0 @@-module GI.Cairo.Structs.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 BoxedObject Context where
− GI/Cairo/Structs/FontFace.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.Cairo.Structs.FontFace- ( ---- * Exported types- FontFace(..) ,- noFontFace ,--- ) 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.Cairo.Types-import GI.Cairo.Callbacks--newtype FontFace = FontFace (ForeignPtr FontFace)-foreign import ccall "cairo_gobject_font_face_get_type" c_cairo_gobject_font_face_get_type :: - IO GType--instance BoxedObject FontFace where- boxedType _ = c_cairo_gobject_font_face_get_type--noFontFace :: Maybe FontFace-noFontFace = Nothing---type instance AttributeList FontFace = FontFaceAttributeList-type FontFaceAttributeList = ('[ ] :: [(Symbol, *)])--type family ResolveFontFaceMethod (t :: Symbol) (o :: *) :: * where- 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--
− GI/Cairo/Structs/FontFace.hs-boot
@@ -1,11 +0,0 @@-module GI.Cairo.Structs.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 BoxedObject FontFace where
− GI/Cairo/Structs/FontOptions.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.Cairo.Structs.FontOptions- ( ---- * Exported types- FontOptions(..) ,- noFontOptions ,--- ) 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.Cairo.Types-import GI.Cairo.Callbacks--newtype FontOptions = FontOptions (ForeignPtr FontOptions)--- XXX Wrapping a foreign struct/union with no known destructor or size, leak?-instance WrappedPtr FontOptions where- wrappedPtrCalloc = return nullPtr- wrappedPtrCopy = return- wrappedPtrFree = Nothing--noFontOptions :: Maybe FontOptions-noFontOptions = Nothing---type instance AttributeList FontOptions = FontOptionsAttributeList-type FontOptionsAttributeList = ('[ ] :: [(Symbol, *)])--type family ResolveFontOptionsMethod (t :: Symbol) (o :: *) :: * where- ResolveFontOptionsMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveFontOptionsMethod t FontOptions, MethodInfo info FontOptions p) => IsLabelProxy t (FontOptions -> p) where- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveFontOptionsMethod t FontOptions, MethodInfo info FontOptions p) => IsLabel t (FontOptions -> p) where- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Cairo/Structs/FontOptions.hs-boot
@@ -1,11 +0,0 @@-module GI.Cairo.Structs.FontOptions 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 FontOptions = FontOptions (ForeignPtr FontOptions)-instance WrappedPtr FontOptions where
− GI/Cairo/Structs/FontType.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.Cairo.Structs.FontType- ( ---- * Exported types- FontType(..) ,- noFontType ,--- ) 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.Cairo.Types-import GI.Cairo.Callbacks--newtype FontType = FontType (ForeignPtr FontType)--- XXX Wrapping a foreign struct/union with no known destructor or size, leak?-instance WrappedPtr FontType where- wrappedPtrCalloc = return nullPtr- wrappedPtrCopy = return- wrappedPtrFree = Nothing--noFontType :: Maybe FontType-noFontType = Nothing---type instance AttributeList FontType = FontTypeAttributeList-type FontTypeAttributeList = ('[ ] :: [(Symbol, *)])--type family ResolveFontTypeMethod (t :: Symbol) (o :: *) :: * where- ResolveFontTypeMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveFontTypeMethod t FontType, MethodInfo info FontType p) => IsLabelProxy t (FontType -> p) where- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveFontTypeMethod t FontType, MethodInfo info FontType p) => IsLabel t (FontType -> p) where- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Cairo/Structs/FontType.hs-boot
@@ -1,11 +0,0 @@-module GI.Cairo.Structs.FontType 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 FontType = FontType (ForeignPtr FontType)-instance WrappedPtr FontType where
− GI/Cairo/Structs/Matrix.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.Cairo.Structs.Matrix- ( ---- * Exported types- Matrix(..) ,- noMatrix ,--- ) 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.Cairo.Types-import GI.Cairo.Callbacks--newtype Matrix = Matrix (ForeignPtr Matrix)--- XXX Wrapping a foreign struct/union with no known destructor or size, leak?-instance WrappedPtr Matrix where- wrappedPtrCalloc = return nullPtr- wrappedPtrCopy = return- wrappedPtrFree = Nothing--noMatrix :: Maybe Matrix-noMatrix = Nothing---type instance AttributeList Matrix = MatrixAttributeList-type MatrixAttributeList = ('[ ] :: [(Symbol, *)])--type family ResolveMatrixMethod (t :: Symbol) (o :: *) :: * where- 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/Cairo/Structs/Matrix.hs-boot
@@ -1,11 +0,0 @@-module GI.Cairo.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 WrappedPtr Matrix where
− GI/Cairo/Structs/Path.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.Cairo.Structs.Path- ( ---- * Exported types- Path(..) ,- noPath ,--- ) 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.Cairo.Types-import GI.Cairo.Callbacks--newtype Path = Path (ForeignPtr Path)--- XXX Wrapping a foreign struct/union with no known destructor or size, leak?-instance WrappedPtr Path where- wrappedPtrCalloc = return nullPtr- wrappedPtrCopy = return- wrappedPtrFree = Nothing--noPath :: Maybe Path-noPath = Nothing---type instance AttributeList Path = PathAttributeList-type PathAttributeList = ('[ ] :: [(Symbol, *)])--type family ResolvePathMethod (t :: Symbol) (o :: *) :: * where- ResolvePathMethod l o = MethodResolutionFailed l o--instance (info ~ ResolvePathMethod t Path, MethodInfo info Path p) => IsLabelProxy t (Path -> p) where- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolvePathMethod t Path, MethodInfo info Path p) => IsLabel t (Path -> p) where- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Cairo/Structs/Path.hs-boot
@@ -1,11 +0,0 @@-module GI.Cairo.Structs.Path 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 Path = Path (ForeignPtr Path)-instance WrappedPtr Path where
− GI/Cairo/Structs/Pattern.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.Cairo.Structs.Pattern- ( ---- * Exported types- Pattern(..) ,- noPattern ,--- ) 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.Cairo.Types-import GI.Cairo.Callbacks--newtype Pattern = Pattern (ForeignPtr Pattern)-foreign import ccall "cairo_gobject_pattern_get_type" c_cairo_gobject_pattern_get_type :: - IO GType--instance BoxedObject Pattern where- boxedType _ = c_cairo_gobject_pattern_get_type--noPattern :: Maybe Pattern-noPattern = Nothing---type instance AttributeList Pattern = PatternAttributeList-type PatternAttributeList = ('[ ] :: [(Symbol, *)])--type family ResolvePatternMethod (t :: Symbol) (o :: *) :: * where- ResolvePatternMethod l o = MethodResolutionFailed l o--instance (info ~ ResolvePatternMethod t Pattern, MethodInfo info Pattern p) => IsLabelProxy t (Pattern -> p) where- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolvePatternMethod t Pattern, MethodInfo info Pattern p) => IsLabel t (Pattern -> p) where- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Cairo/Structs/Pattern.hs-boot
@@ -1,11 +0,0 @@-module GI.Cairo.Structs.Pattern 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 Pattern = Pattern (ForeignPtr Pattern)-instance BoxedObject Pattern where
− GI/Cairo/Structs/RectangleInt.hs
@@ -1,193 +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.Cairo.Structs.RectangleInt- ( ---- * Exported types- RectangleInt(..) ,- newZeroRectangleInt ,- noRectangleInt ,--- -- * Properties--- ** Height- rectangleIntHeight ,- rectangleIntReadHeight ,- rectangleIntWriteHeight ,----- ** Width- rectangleIntReadWidth ,- rectangleIntWidth ,- rectangleIntWriteWidth ,----- ** X- rectangleIntReadX ,- rectangleIntWriteX ,- rectangleIntX ,----- ** Y- rectangleIntReadY ,- rectangleIntWriteY ,- rectangleIntY ,----- ) 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.Cairo.Types-import GI.Cairo.Callbacks--newtype RectangleInt = RectangleInt (ForeignPtr RectangleInt)-foreign import ccall "cairo_gobject_rectangle_int_get_type" c_cairo_gobject_rectangle_int_get_type :: - IO GType--instance BoxedObject RectangleInt where- boxedType _ = c_cairo_gobject_rectangle_int_get_type---- | Construct a `RectangleInt` struct initialized to zero.-newZeroRectangleInt :: MonadIO m => m RectangleInt-newZeroRectangleInt = liftIO $ callocBoxedBytes 16 >>= wrapBoxed RectangleInt--instance tag ~ 'AttrSet => Constructible RectangleInt tag where- new _ attrs = do- o <- newZeroRectangleInt- GI.Attributes.set o attrs- return o---noRectangleInt :: Maybe RectangleInt-noRectangleInt = Nothing--rectangleIntReadX :: MonadIO m => RectangleInt -> m Int32-rectangleIntReadX s = liftIO $ withManagedPtr s $ \ptr -> do- val <- peek (ptr `plusPtr` 0) :: IO Int32- return val--rectangleIntWriteX :: MonadIO m => RectangleInt -> Int32 -> m ()-rectangleIntWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 0) (val :: Int32)--data RectangleIntXFieldInfo-instance AttrInfo RectangleIntXFieldInfo where- type AttrAllowedOps RectangleIntXFieldInfo = '[ 'AttrSet, 'AttrGet]- type AttrSetTypeConstraint RectangleIntXFieldInfo = (~) Int32- type AttrBaseTypeConstraint RectangleIntXFieldInfo = (~) RectangleInt- type AttrGetType RectangleIntXFieldInfo = Int32- type AttrLabel RectangleIntXFieldInfo = "x"- attrGet _ = rectangleIntReadX- attrSet _ = rectangleIntWriteX- attrConstruct = undefined- attrClear _ = undefined--rectangleIntX :: AttrLabelProxy "x"-rectangleIntX = AttrLabelProxy---rectangleIntReadY :: MonadIO m => RectangleInt -> m Int32-rectangleIntReadY s = liftIO $ withManagedPtr s $ \ptr -> do- val <- peek (ptr `plusPtr` 4) :: IO Int32- return val--rectangleIntWriteY :: MonadIO m => RectangleInt -> Int32 -> m ()-rectangleIntWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 4) (val :: Int32)--data RectangleIntYFieldInfo-instance AttrInfo RectangleIntYFieldInfo where- type AttrAllowedOps RectangleIntYFieldInfo = '[ 'AttrSet, 'AttrGet]- type AttrSetTypeConstraint RectangleIntYFieldInfo = (~) Int32- type AttrBaseTypeConstraint RectangleIntYFieldInfo = (~) RectangleInt- type AttrGetType RectangleIntYFieldInfo = Int32- type AttrLabel RectangleIntYFieldInfo = "y"- attrGet _ = rectangleIntReadY- attrSet _ = rectangleIntWriteY- attrConstruct = undefined- attrClear _ = undefined--rectangleIntY :: AttrLabelProxy "y"-rectangleIntY = AttrLabelProxy---rectangleIntReadWidth :: MonadIO m => RectangleInt -> m Int32-rectangleIntReadWidth s = liftIO $ withManagedPtr s $ \ptr -> do- val <- peek (ptr `plusPtr` 8) :: IO Int32- return val--rectangleIntWriteWidth :: MonadIO m => RectangleInt -> Int32 -> m ()-rectangleIntWriteWidth s val = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 8) (val :: Int32)--data RectangleIntWidthFieldInfo-instance AttrInfo RectangleIntWidthFieldInfo where- type AttrAllowedOps RectangleIntWidthFieldInfo = '[ 'AttrSet, 'AttrGet]- type AttrSetTypeConstraint RectangleIntWidthFieldInfo = (~) Int32- type AttrBaseTypeConstraint RectangleIntWidthFieldInfo = (~) RectangleInt- type AttrGetType RectangleIntWidthFieldInfo = Int32- type AttrLabel RectangleIntWidthFieldInfo = "width"- attrGet _ = rectangleIntReadWidth- attrSet _ = rectangleIntWriteWidth- attrConstruct = undefined- attrClear _ = undefined--rectangleIntWidth :: AttrLabelProxy "width"-rectangleIntWidth = AttrLabelProxy---rectangleIntReadHeight :: MonadIO m => RectangleInt -> m Int32-rectangleIntReadHeight s = liftIO $ withManagedPtr s $ \ptr -> do- val <- peek (ptr `plusPtr` 12) :: IO Int32- return val--rectangleIntWriteHeight :: MonadIO m => RectangleInt -> Int32 -> m ()-rectangleIntWriteHeight s val = liftIO $ withManagedPtr s $ \ptr -> do- poke (ptr `plusPtr` 12) (val :: Int32)--data RectangleIntHeightFieldInfo-instance AttrInfo RectangleIntHeightFieldInfo where- type AttrAllowedOps RectangleIntHeightFieldInfo = '[ 'AttrSet, 'AttrGet]- type AttrSetTypeConstraint RectangleIntHeightFieldInfo = (~) Int32- type AttrBaseTypeConstraint RectangleIntHeightFieldInfo = (~) RectangleInt- type AttrGetType RectangleIntHeightFieldInfo = Int32- type AttrLabel RectangleIntHeightFieldInfo = "height"- attrGet _ = rectangleIntReadHeight- attrSet _ = rectangleIntWriteHeight- attrConstruct = undefined- attrClear _ = undefined--rectangleIntHeight :: AttrLabelProxy "height"-rectangleIntHeight = AttrLabelProxy----type instance AttributeList RectangleInt = RectangleIntAttributeList-type RectangleIntAttributeList = ('[ '("x", RectangleIntXFieldInfo), '("y", RectangleIntYFieldInfo), '("width", RectangleIntWidthFieldInfo), '("height", RectangleIntHeightFieldInfo)] :: [(Symbol, *)])--type family ResolveRectangleIntMethod (t :: Symbol) (o :: *) :: * where- ResolveRectangleIntMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveRectangleIntMethod t RectangleInt, MethodInfo info RectangleInt p) => IsLabelProxy t (RectangleInt -> p) where- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveRectangleIntMethod t RectangleInt, MethodInfo info RectangleInt p) => IsLabel t (RectangleInt -> p) where- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Cairo/Structs/RectangleInt.hs-boot
@@ -1,11 +0,0 @@-module GI.Cairo.Structs.RectangleInt 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 RectangleInt = RectangleInt (ForeignPtr RectangleInt)-instance BoxedObject RectangleInt where
− GI/Cairo/Structs/Region.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.Cairo.Structs.Region- ( ---- * Exported types- Region(..) ,- noRegion ,--- ) 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.Cairo.Types-import GI.Cairo.Callbacks--newtype Region = Region (ForeignPtr Region)-foreign import ccall "cairo_gobject_region_get_type" c_cairo_gobject_region_get_type :: - IO GType--instance BoxedObject Region where- boxedType _ = c_cairo_gobject_region_get_type--noRegion :: Maybe Region-noRegion = Nothing---type instance AttributeList Region = RegionAttributeList-type RegionAttributeList = ('[ ] :: [(Symbol, *)])--type family ResolveRegionMethod (t :: Symbol) (o :: *) :: * where- ResolveRegionMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveRegionMethod t Region, MethodInfo info Region p) => IsLabelProxy t (Region -> p) where- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveRegionMethod t Region, MethodInfo info Region p) => IsLabel t (Region -> p) where- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Cairo/Structs/Region.hs-boot
@@ -1,11 +0,0 @@-module GI.Cairo.Structs.Region 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 Region = Region (ForeignPtr Region)-instance BoxedObject Region where
− GI/Cairo/Structs/ScaledFont.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.Cairo.Structs.ScaledFont- ( ---- * Exported types- ScaledFont(..) ,- noScaledFont ,--- ) 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.Cairo.Types-import GI.Cairo.Callbacks--newtype ScaledFont = ScaledFont (ForeignPtr ScaledFont)-foreign import ccall "cairo_gobject_scaled_font_get_type" c_cairo_gobject_scaled_font_get_type :: - IO GType--instance BoxedObject ScaledFont where- boxedType _ = c_cairo_gobject_scaled_font_get_type--noScaledFont :: Maybe ScaledFont-noScaledFont = Nothing---type instance AttributeList ScaledFont = ScaledFontAttributeList-type ScaledFontAttributeList = ('[ ] :: [(Symbol, *)])--type family ResolveScaledFontMethod (t :: Symbol) (o :: *) :: * where- ResolveScaledFontMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveScaledFontMethod t ScaledFont, MethodInfo info ScaledFont p) => IsLabelProxy t (ScaledFont -> p) where- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveScaledFontMethod t ScaledFont, MethodInfo info ScaledFont p) => IsLabel t (ScaledFont -> p) where- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Cairo/Structs/ScaledFont.hs-boot
@@ -1,11 +0,0 @@-module GI.Cairo.Structs.ScaledFont 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 ScaledFont = ScaledFont (ForeignPtr ScaledFont)-instance BoxedObject ScaledFont where
− GI/Cairo/Structs/Surface.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.Cairo.Structs.Surface- ( ---- * Exported types- Surface(..) ,- noSurface ,--- ) 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.Cairo.Types-import GI.Cairo.Callbacks--newtype Surface = Surface (ForeignPtr Surface)-foreign import ccall "cairo_gobject_surface_get_type" c_cairo_gobject_surface_get_type :: - IO GType--instance BoxedObject Surface where- boxedType _ = c_cairo_gobject_surface_get_type--noSurface :: Maybe Surface-noSurface = Nothing---type instance AttributeList Surface = SurfaceAttributeList-type SurfaceAttributeList = ('[ ] :: [(Symbol, *)])--type family ResolveSurfaceMethod (t :: Symbol) (o :: *) :: * where- ResolveSurfaceMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveSurfaceMethod t Surface, MethodInfo info Surface p) => IsLabelProxy t (Surface -> p) where- fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSurfaceMethod t Surface, MethodInfo info Surface p) => IsLabel t (Surface -> p) where- fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Cairo/Structs/Surface.hs-boot
@@ -1,11 +0,0 @@-module GI.Cairo.Structs.Surface 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 Surface = Surface (ForeignPtr Surface)-instance BoxedObject Surface where
− GI/Cairo/Types.hs
@@ -1,32 +0,0 @@-module GI.Cairo.Types- ( module GI.Cairo.Structs.Context ,- module GI.Cairo.Structs.FontFace ,- module GI.Cairo.Structs.FontOptions ,- module GI.Cairo.Structs.FontType ,- module GI.Cairo.Structs.Matrix ,- module GI.Cairo.Structs.Path ,- module GI.Cairo.Structs.Pattern ,- module GI.Cairo.Structs.RectangleInt ,- module GI.Cairo.Structs.Region ,- module GI.Cairo.Structs.ScaledFont ,- module GI.Cairo.Structs.Surface ,- module GI.Cairo.Enums ,--- ) where---import {-# SOURCE #-} GI.Cairo.Structs.Context-import {-# SOURCE #-} GI.Cairo.Structs.FontFace-import {-# SOURCE #-} GI.Cairo.Structs.FontOptions-import {-# SOURCE #-} GI.Cairo.Structs.FontType-import {-# SOURCE #-} GI.Cairo.Structs.Matrix-import {-# SOURCE #-} GI.Cairo.Structs.Path-import {-# SOURCE #-} GI.Cairo.Structs.Pattern-import {-# SOURCE #-} GI.Cairo.Structs.RectangleInt-import {-# SOURCE #-} GI.Cairo.Structs.Region-import {-# SOURCE #-} GI.Cairo.Structs.ScaledFont-import {-# SOURCE #-} GI.Cairo.Structs.Surface--import GI.Cairo.Enums-
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 = "cairo"+ version = "1.0"+ verbose = False+ overridesFile = Nothing+ outputDir = Nothing
gi-cairo.cabal view
@@ -1,43 +1,31 @@--- Autogenerated, do not edit. name: gi-cairo-version: 0.1.14.15-synopsis: cairo bindings-description: Bindings for cairo, autogenerated by haskell-gi.+version: 1.0.1+synopsis: Cairo bindings+description: Bindings for Cairo, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi license: LGPL-2.1 license-file: LICENSE 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.Cairo.Types- GI.Cairo- GI.Cairo.Callbacks- GI.Cairo.Enums- GI.Cairo.Functions- GI.Cairo.Structs- GI.Cairo.Structs.Context- GI.Cairo.Structs.FontFace- GI.Cairo.Structs.FontOptions- GI.Cairo.Structs.FontType- GI.Cairo.Structs.Matrix- GI.Cairo.Structs.Path- GI.Cairo.Structs.Pattern- GI.Cairo.Structs.RectangleInt- GI.Cairo.Structs.Region- GI.Cairo.Structs.ScaledFont- GI.Cairo.Structs.Surface- pkgconfig-depends: cairo-gobject >= 1.14++ pkgconfig-depends: cairo-gobject >= 1.0 && < 2 build-depends: base >= 4.7 && <5, haskell-gi-base >= 0.15 && < 1, bytestring >= 0.10, containers >= 0.5, text >= 1.0,- transformers >= 0.3+ transformers >= 0.5