module Graphics.UI.Gtk.Poppler.Types (
PangoContext(PangoContext), PangoContextClass,
toPangoContext,
mkPangoContext, unPangoContext,
castToPangoContext, gTypePangoContext,
PangoLayoutRaw(PangoLayoutRaw), PangoLayoutRawClass,
toPangoLayoutRaw,
mkPangoLayoutRaw, unPangoLayoutRaw,
castToPangoLayoutRaw, gTypePangoLayoutRaw,
Font(Font), FontClass,
toFont,
mkFont, unFont,
castToFont, gTypeFont,
FontFamily(FontFamily), FontFamilyClass,
toFontFamily,
mkFontFamily, unFontFamily,
castToFontFamily, gTypeFontFamily,
FontFace(FontFace), FontFaceClass,
toFontFace,
mkFontFace, unFontFace,
castToFontFace, gTypeFontFace,
FontMap(FontMap), FontMapClass,
toFontMap,
mkFontMap, unFontMap,
castToFontMap, gTypeFontMap,
FontSet(FontSet), FontSetClass,
toFontSet,
mkFontSet, unFontSet,
castToFontSet, gTypeFontSet,
Document(Document), DocumentClass,
toDocument,
mkDocument, unDocument,
castToDocument, gTypeDocument,
FontsIter(FontsIter), FontsIterClass,
toFontsIter,
mkFontsIter, unFontsIter,
castToFontsIter, gTypeFontsIter,
Page(Page), PageClass,
toPage,
mkPage, unPage,
castToPage, gTypePage,
FormField(FormField), FormFieldClass,
toFormField,
mkFormField, unFormField,
castToFormField, gTypeFormField,
PSFile(PSFile), PSFileClass,
toPSFile,
mkPSFile, unPSFile,
castToPSFile, gTypePSFile,
FontInfo(FontInfo), FontInfoClass,
toFontInfo,
mkFontInfo, unFontInfo,
castToFontInfo, gTypeFontInfo,
Attachment(Attachment), AttachmentClass,
toAttachment,
mkAttachment, unAttachment,
castToAttachment, gTypeAttachment,
Layer(Layer), LayerClass,
toLayer,
mkLayer, unLayer,
castToLayer, gTypeLayer
) where
import Foreign.ForeignPtr (ForeignPtr, castForeignPtr, unsafeForeignPtrToPtr)
import Foreign.C.Types (CULong, CUInt)
import System.Glib.GType (GType, typeInstanceIsA)
import System.Glib.GObject
castTo :: (GObjectClass obj, GObjectClass obj') => GType -> String
-> (obj -> obj')
castTo gtype objTypeName obj =
case toGObject obj of
gobj@(GObject objFPtr)
| typeInstanceIsA ((unsafeForeignPtrToPtr.castForeignPtr) objFPtr) gtype
-> unsafeCastGObject gobj
| otherwise -> error $ "Cannot cast object to " ++ objTypeName
newtype PangoContext = PangoContext (ForeignPtr (PangoContext)) deriving (Eq,Ord)
mkPangoContext = (PangoContext, objectUnref)
unPangoContext (PangoContext o) = o
class GObjectClass o => PangoContextClass o
toPangoContext :: PangoContextClass o => o -> PangoContext
toPangoContext = unsafeCastGObject . toGObject
instance PangoContextClass PangoContext
instance GObjectClass PangoContext where
toGObject = GObject . castForeignPtr . unPangoContext
unsafeCastGObject = PangoContext . castForeignPtr . unGObject
castToPangoContext :: GObjectClass obj => obj -> PangoContext
castToPangoContext = castTo gTypePangoContext "PangoContext"
gTypePangoContext :: GType
gTypePangoContext =
pango_context_get_type
newtype PangoLayoutRaw = PangoLayoutRaw (ForeignPtr (PangoLayoutRaw)) deriving (Eq,Ord)
mkPangoLayoutRaw = (PangoLayoutRaw, objectUnref)
unPangoLayoutRaw (PangoLayoutRaw o) = o
class GObjectClass o => PangoLayoutRawClass o
toPangoLayoutRaw :: PangoLayoutRawClass o => o -> PangoLayoutRaw
toPangoLayoutRaw = unsafeCastGObject . toGObject
instance PangoLayoutRawClass PangoLayoutRaw
instance GObjectClass PangoLayoutRaw where
toGObject = GObject . castForeignPtr . unPangoLayoutRaw
unsafeCastGObject = PangoLayoutRaw . castForeignPtr . unGObject
castToPangoLayoutRaw :: GObjectClass obj => obj -> PangoLayoutRaw
castToPangoLayoutRaw = castTo gTypePangoLayoutRaw "PangoLayoutRaw"
gTypePangoLayoutRaw :: GType
gTypePangoLayoutRaw =
pango_layout_get_type
newtype Font = Font (ForeignPtr (Font)) deriving (Eq,Ord)
mkFont = (Font, objectUnref)
unFont (Font o) = o
class GObjectClass o => FontClass o
toFont :: FontClass o => o -> Font
toFont = unsafeCastGObject . toGObject
instance FontClass Font
instance GObjectClass Font where
toGObject = GObject . castForeignPtr . unFont
unsafeCastGObject = Font . castForeignPtr . unGObject
castToFont :: GObjectClass obj => obj -> Font
castToFont = castTo gTypeFont "Font"
gTypeFont :: GType
gTypeFont =
pango_font_get_type
newtype FontFamily = FontFamily (ForeignPtr (FontFamily)) deriving (Eq,Ord)
mkFontFamily = (FontFamily, objectUnref)
unFontFamily (FontFamily o) = o
class GObjectClass o => FontFamilyClass o
toFontFamily :: FontFamilyClass o => o -> FontFamily
toFontFamily = unsafeCastGObject . toGObject
instance FontFamilyClass FontFamily
instance GObjectClass FontFamily where
toGObject = GObject . castForeignPtr . unFontFamily
unsafeCastGObject = FontFamily . castForeignPtr . unGObject
castToFontFamily :: GObjectClass obj => obj -> FontFamily
castToFontFamily = castTo gTypeFontFamily "FontFamily"
gTypeFontFamily :: GType
gTypeFontFamily =
pango_font_family_get_type
newtype FontFace = FontFace (ForeignPtr (FontFace)) deriving (Eq,Ord)
mkFontFace = (FontFace, objectUnref)
unFontFace (FontFace o) = o
class GObjectClass o => FontFaceClass o
toFontFace :: FontFaceClass o => o -> FontFace
toFontFace = unsafeCastGObject . toGObject
instance FontFaceClass FontFace
instance GObjectClass FontFace where
toGObject = GObject . castForeignPtr . unFontFace
unsafeCastGObject = FontFace . castForeignPtr . unGObject
castToFontFace :: GObjectClass obj => obj -> FontFace
castToFontFace = castTo gTypeFontFace "FontFace"
gTypeFontFace :: GType
gTypeFontFace =
pango_font_face_get_type
newtype FontMap = FontMap (ForeignPtr (FontMap)) deriving (Eq,Ord)
mkFontMap = (FontMap, objectUnref)
unFontMap (FontMap o) = o
class GObjectClass o => FontMapClass o
toFontMap :: FontMapClass o => o -> FontMap
toFontMap = unsafeCastGObject . toGObject
instance FontMapClass FontMap
instance GObjectClass FontMap where
toGObject = GObject . castForeignPtr . unFontMap
unsafeCastGObject = FontMap . castForeignPtr . unGObject
castToFontMap :: GObjectClass obj => obj -> FontMap
castToFontMap = castTo gTypeFontMap "FontMap"
gTypeFontMap :: GType
gTypeFontMap =
pango_font_face_get_type
newtype FontSet = FontSet (ForeignPtr (FontSet)) deriving (Eq,Ord)
mkFontSet = (FontSet, objectUnref)
unFontSet (FontSet o) = o
class GObjectClass o => FontSetClass o
toFontSet :: FontSetClass o => o -> FontSet
toFontSet = unsafeCastGObject . toGObject
instance FontSetClass FontSet
instance GObjectClass FontSet where
toGObject = GObject . castForeignPtr . unFontSet
unsafeCastGObject = FontSet . castForeignPtr . unGObject
castToFontSet :: GObjectClass obj => obj -> FontSet
castToFontSet = castTo gTypeFontSet "FontSet"
gTypeFontSet :: GType
gTypeFontSet =
pango_fontset_get_type
newtype Document = Document (ForeignPtr (Document)) deriving (Eq,Ord)
mkDocument = (Document, objectUnref)
unDocument (Document o) = o
class GObjectClass o => DocumentClass o
toDocument :: DocumentClass o => o -> Document
toDocument = unsafeCastGObject . toGObject
instance DocumentClass Document
instance GObjectClass Document where
toGObject = GObject . castForeignPtr . unDocument
unsafeCastGObject = Document . castForeignPtr . unGObject
castToDocument :: GObjectClass obj => obj -> Document
castToDocument = castTo gTypeDocument "Document"
gTypeDocument :: GType
gTypeDocument =
poppler_document_get_type
newtype FontsIter = FontsIter (ForeignPtr (FontsIter)) deriving (Eq,Ord)
mkFontsIter = (FontsIter, objectUnref)
unFontsIter (FontsIter o) = o
class GObjectClass o => FontsIterClass o
toFontsIter :: FontsIterClass o => o -> FontsIter
toFontsIter = unsafeCastGObject . toGObject
instance FontsIterClass FontsIter
instance GObjectClass FontsIter where
toGObject = GObject . castForeignPtr . unFontsIter
unsafeCastGObject = FontsIter . castForeignPtr . unGObject
castToFontsIter :: GObjectClass obj => obj -> FontsIter
castToFontsIter = castTo gTypeFontsIter "FontsIter"
gTypeFontsIter :: GType
gTypeFontsIter =
poppler_fonts_iter_get_type
newtype Page = Page (ForeignPtr (Page)) deriving (Eq,Ord)
mkPage = (Page, objectUnref)
unPage (Page o) = o
class GObjectClass o => PageClass o
toPage :: PageClass o => o -> Page
toPage = unsafeCastGObject . toGObject
instance PageClass Page
instance GObjectClass Page where
toGObject = GObject . castForeignPtr . unPage
unsafeCastGObject = Page . castForeignPtr . unGObject
castToPage :: GObjectClass obj => obj -> Page
castToPage = castTo gTypePage "Page"
gTypePage :: GType
gTypePage =
poppler_page_get_type
newtype FormField = FormField (ForeignPtr (FormField)) deriving (Eq,Ord)
mkFormField = (FormField, objectUnref)
unFormField (FormField o) = o
class GObjectClass o => FormFieldClass o
toFormField :: FormFieldClass o => o -> FormField
toFormField = unsafeCastGObject . toGObject
instance FormFieldClass FormField
instance GObjectClass FormField where
toGObject = GObject . castForeignPtr . unFormField
unsafeCastGObject = FormField . castForeignPtr . unGObject
castToFormField :: GObjectClass obj => obj -> FormField
castToFormField = castTo gTypeFormField "FormField"
gTypeFormField :: GType
gTypeFormField =
poppler_form_field_get_type
newtype PSFile = PSFile (ForeignPtr (PSFile)) deriving (Eq,Ord)
mkPSFile = (PSFile, objectUnref)
unPSFile (PSFile o) = o
class GObjectClass o => PSFileClass o
toPSFile :: PSFileClass o => o -> PSFile
toPSFile = unsafeCastGObject . toGObject
instance PSFileClass PSFile
instance GObjectClass PSFile where
toGObject = GObject . castForeignPtr . unPSFile
unsafeCastGObject = PSFile . castForeignPtr . unGObject
castToPSFile :: GObjectClass obj => obj -> PSFile
castToPSFile = castTo gTypePSFile "PSFile"
gTypePSFile :: GType
gTypePSFile =
poppler_ps_file_get_type
newtype FontInfo = FontInfo (ForeignPtr (FontInfo)) deriving (Eq,Ord)
mkFontInfo = (FontInfo, objectUnref)
unFontInfo (FontInfo o) = o
class GObjectClass o => FontInfoClass o
toFontInfo :: FontInfoClass o => o -> FontInfo
toFontInfo = unsafeCastGObject . toGObject
instance FontInfoClass FontInfo
instance GObjectClass FontInfo where
toGObject = GObject . castForeignPtr . unFontInfo
unsafeCastGObject = FontInfo . castForeignPtr . unGObject
castToFontInfo :: GObjectClass obj => obj -> FontInfo
castToFontInfo = castTo gTypeFontInfo "FontInfo"
gTypeFontInfo :: GType
gTypeFontInfo =
poppler_font_info_get_type
newtype Attachment = Attachment (ForeignPtr (Attachment)) deriving (Eq,Ord)
mkAttachment = (Attachment, objectUnref)
unAttachment (Attachment o) = o
class GObjectClass o => AttachmentClass o
toAttachment :: AttachmentClass o => o -> Attachment
toAttachment = unsafeCastGObject . toGObject
instance AttachmentClass Attachment
instance GObjectClass Attachment where
toGObject = GObject . castForeignPtr . unAttachment
unsafeCastGObject = Attachment . castForeignPtr . unGObject
castToAttachment :: GObjectClass obj => obj -> Attachment
castToAttachment = castTo gTypeAttachment "Attachment"
gTypeAttachment :: GType
gTypeAttachment =
poppler_attachment_get_type
newtype Layer = Layer (ForeignPtr (Layer)) deriving (Eq,Ord)
mkLayer = (Layer, objectUnref)
unLayer (Layer o) = o
class GObjectClass o => LayerClass o
toLayer :: LayerClass o => o -> Layer
toLayer = unsafeCastGObject . toGObject
instance LayerClass Layer
instance GObjectClass Layer where
toGObject = GObject . castForeignPtr . unLayer
unsafeCastGObject = Layer . castForeignPtr . unGObject
castToLayer :: GObjectClass obj => obj -> Layer
castToLayer = castTo gTypeLayer "Layer"
gTypeLayer :: GType
gTypeLayer =
poppler_layer_get_type
foreign import ccall unsafe "pango_context_get_type"
pango_context_get_type :: CUInt
foreign import ccall unsafe "pango_layout_get_type"
pango_layout_get_type :: CUInt
foreign import ccall unsafe "pango_font_get_type"
pango_font_get_type :: CUInt
foreign import ccall unsafe "pango_font_family_get_type"
pango_font_family_get_type :: CUInt
foreign import ccall unsafe "pango_font_face_get_type"
pango_font_face_get_type :: CUInt
foreign import ccall unsafe "pango_fontset_get_type"
pango_fontset_get_type :: CUInt
foreign import ccall unsafe "poppler_document_get_type"
poppler_document_get_type :: CUInt
foreign import ccall unsafe "poppler_fonts_iter_get_type"
poppler_fonts_iter_get_type :: CUInt
foreign import ccall unsafe "poppler_page_get_type"
poppler_page_get_type :: CUInt
foreign import ccall unsafe "poppler_form_field_get_type"
poppler_form_field_get_type :: CUInt
foreign import ccall unsafe "poppler_ps_file_get_type"
poppler_ps_file_get_type :: CUInt
foreign import ccall unsafe "poppler_font_info_get_type"
poppler_font_info_get_type :: CUInt
foreign import ccall unsafe "poppler_attachment_get_type"
poppler_attachment_get_type :: CUInt
foreign import ccall unsafe "poppler_layer_get_type"
poppler_layer_get_type :: CUInt