{-# LINE 2 "./Graphics/Rendering/Pango/Rendering.chs" #-}
module Graphics.Rendering.Pango.Rendering (
PangoItem,
pangoItemize,
pangoItemGetFontMetrics,
pangoItemGetFont,
pangoItemGetLanguage,
GlyphItem,
pangoShape,
glyphItemExtents,
glyphItemExtentsRange,
glyphItemIndexToX,
glyphItemXToIndex,
glyphItemGetLogicalWidths,
glyphItemSplit
) where
import System.Glib.FFI
import System.Glib.UTFString
import Graphics.Rendering.Pango.Structs ( pangoItemRawAnalysis, intToPu,
pangoItemRawGetOffset, pangoItemRawGetLength,
pangoItemGetFont, pangoItemGetLanguage)
import Graphics.Rendering.Pango.Types (PangoContext(..), Font(..))
import Graphics.Rendering.Pango.BasicTypes
{-# LINE 70 "./Graphics/Rendering/Pango/Rendering.chs" #-}
import Graphics.Rendering.Pango.Enums
{-# LINE 71 "./Graphics/Rendering/Pango/Rendering.chs" #-}
import Graphics.Rendering.Pango.Attributes
{-# LINE 72 "./Graphics/Rendering/Pango/Rendering.chs" #-}
import Graphics.Rendering.Pango.GlyphStorage
import System.Glib.GList
{-# LINE 74 "./Graphics/Rendering/Pango/Rendering.chs" #-}
{-# LINE 76 "./Graphics/Rendering/Pango/Rendering.chs" #-}
pangoItemize :: GlibString string => PangoContext -> string -> [PangoAttribute] -> IO [PangoItem]
pangoItemize :: forall string.
GlibString string =>
PangoContext -> string -> [PangoAttribute] -> IO [PangoItem]
pangoItemize PangoContext
pc string
str [PangoAttribute]
attrs = do
ps <- string -> IO PangoString
forall string. GlibString string => string -> IO PangoString
makeNewPangoString string
str
withAttrList ps attrs $ \Ptr ()
alPtr -> do
glist <- PangoString
-> (UTFCorrection -> CInt -> Ptr CChar -> IO (Ptr ()))
-> IO (Ptr ())
forall a.
PangoString -> (UTFCorrection -> CInt -> Ptr CChar -> IO a) -> IO a
withPangoString PangoString
ps ((UTFCorrection -> CInt -> Ptr CChar -> IO (Ptr ()))
-> IO (Ptr ()))
-> (UTFCorrection -> CInt -> Ptr CChar -> IO (Ptr ()))
-> IO (Ptr ())
forall a b. (a -> b) -> a -> b
$ \UTFCorrection
_ CInt
l Ptr CChar
strPtr ->
(\(PangoContext ForeignPtr PangoContext
arg1) Ptr CChar
arg2 CInt
arg3 CInt
arg4 Ptr ()
arg5 Ptr ()
arg6 -> ForeignPtr PangoContext
-> (Ptr PangoContext -> IO (Ptr ())) -> IO (Ptr ())
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr PangoContext
arg1 ((Ptr PangoContext -> IO (Ptr ())) -> IO (Ptr ()))
-> (Ptr PangoContext -> IO (Ptr ())) -> IO (Ptr ())
forall a b. (a -> b) -> a -> b
$ \Ptr PangoContext
argPtr1 ->Ptr PangoContext
-> Ptr CChar -> CInt -> CInt -> Ptr () -> Ptr () -> IO (Ptr ())
pango_itemize Ptr PangoContext
argPtr1 Ptr CChar
arg2 CInt
arg3 CInt
arg4 Ptr ()
arg5 Ptr ()
arg6) PangoContext
pc Ptr CChar
strPtr CInt
0 CInt
l Ptr ()
alPtr Ptr ()
forall a. Ptr a
nullPtr
piPtrs <- fromGList glist
piRaws <- mapM makeNewPangoItemRaw piPtrs
return (map (PangoItem ps) piRaws)
pangoItemGetFontMetrics :: PangoItem -> IO FontMetrics
pangoItemGetFontMetrics :: PangoItem -> IO FontMetrics
pangoItemGetFontMetrics PangoItem
pi = do
font <- PangoItem -> IO Font
pangoItemGetFont PangoItem
pi
lang <- pangoItemGetLanguage pi
mPtr <- (\(Font ForeignPtr Font
arg1) (Language Ptr Language
arg2) -> ForeignPtr Font -> (Ptr Font -> IO (Ptr ())) -> IO (Ptr ())
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Font
arg1 ((Ptr Font -> IO (Ptr ())) -> IO (Ptr ()))
-> (Ptr Font -> IO (Ptr ())) -> IO (Ptr ())
forall a b. (a -> b) -> a -> b
$ \Ptr Font
argPtr1 ->Ptr Font -> Ptr Language -> IO (Ptr ())
pango_font_get_metrics Ptr Font
argPtr1 Ptr Language
arg2) font lang
ascent <- pango_font_metrics_get_ascent mPtr
descent <- pango_font_metrics_get_descent mPtr
approximate_char_width <-
pango_font_metrics_get_approximate_char_width mPtr
approximate_digit_width <-
pango_font_metrics_get_approximate_digit_width mPtr
underline_position <-
pango_font_metrics_get_underline_position mPtr
underline_thickness <-
pango_font_metrics_get_underline_thickness mPtr
strikethrough_position <-
pango_font_metrics_get_strikethrough_position mPtr
strikethrough_thickness <-
pango_font_metrics_get_strikethrough_thickness mPtr
return (FontMetrics
(intToPu ascent)
(intToPu descent)
(intToPu approximate_char_width)
(intToPu approximate_digit_width)
(intToPu underline_position)
(intToPu underline_thickness)
(intToPu strikethrough_position)
(intToPu strikethrough_thickness)
)
pangoShape :: PangoItem -> IO GlyphItem
pangoShape :: PangoItem -> IO GlyphItem
pangoShape pi :: PangoItem
pi@(PangoItem PangoString
ps PangoItemRaw
pir) =
PangoString
-> (UTFCorrection -> CInt -> Ptr CChar -> IO GlyphItem)
-> IO GlyphItem
forall a.
PangoString -> (UTFCorrection -> CInt -> Ptr CChar -> IO a) -> IO a
withPangoString PangoString
ps ((UTFCorrection -> CInt -> Ptr CChar -> IO GlyphItem)
-> IO GlyphItem)
-> (UTFCorrection -> CInt -> Ptr CChar -> IO GlyphItem)
-> IO GlyphItem
forall a b. (a -> b) -> a -> b
$ \UTFCorrection
_ CInt
_ Ptr CChar
strPtr -> PangoItemRaw -> (Ptr PangoItemRaw -> IO GlyphItem) -> IO GlyphItem
forall a. PangoItemRaw -> (Ptr PangoItemRaw -> IO a) -> IO a
withPangoItemRaw PangoItemRaw
pir ((Ptr PangoItemRaw -> IO GlyphItem) -> IO GlyphItem)
-> (Ptr PangoItemRaw -> IO GlyphItem) -> IO GlyphItem
forall a b. (a -> b) -> a -> b
$ \Ptr PangoItemRaw
pirPtr -> do
gsPtr <- IO (Ptr GlyphStringRaw)
pango_glyph_string_new
{-# LINE 142 "./Graphics/Rendering/Pango/Rendering.chs" #-}
gs <- makeNewGlyphStringRaw gsPtr
ofs <- pangoItemRawGetOffset pirPtr
len <- pangoItemRawGetLength pirPtr
(\Ptr CChar
arg1 CInt
arg2 Ptr ()
arg3 (GlyphStringRaw ForeignPtr GlyphStringRaw
arg4) -> ForeignPtr GlyphStringRaw -> (Ptr GlyphStringRaw -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr GlyphStringRaw
arg4 ((Ptr GlyphStringRaw -> IO ()) -> IO ())
-> (Ptr GlyphStringRaw -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr GlyphStringRaw
argPtr4 ->Ptr CChar -> CInt -> Ptr () -> Ptr GlyphStringRaw -> IO ()
pango_shape Ptr CChar
arg1 CInt
arg2 Ptr ()
arg3 Ptr GlyphStringRaw
argPtr4) (strPtr `plusPtr` (fromIntegral ofs)) (fromIntegral len)
(pangoItemRawAnalysis pirPtr) gs
return (GlyphItem pi gs)
foreign import ccall unsafe "pango_itemize"
pango_itemize :: ((Ptr PangoContext) -> ((Ptr CChar) -> (CInt -> (CInt -> ((Ptr ()) -> ((Ptr ()) -> (IO (Ptr ()))))))))
foreign import ccall unsafe "pango_font_get_metrics"
pango_font_get_metrics :: ((Ptr Font) -> ((Ptr Language) -> (IO (Ptr ()))))
foreign import ccall unsafe "pango_font_metrics_get_ascent"
pango_font_metrics_get_ascent :: ((Ptr ()) -> (IO CInt))
foreign import ccall unsafe "pango_font_metrics_get_descent"
pango_font_metrics_get_descent :: ((Ptr ()) -> (IO CInt))
foreign import ccall unsafe "pango_font_metrics_get_approximate_char_width"
pango_font_metrics_get_approximate_char_width :: ((Ptr ()) -> (IO CInt))
foreign import ccall unsafe "pango_font_metrics_get_approximate_digit_width"
pango_font_metrics_get_approximate_digit_width :: ((Ptr ()) -> (IO CInt))
foreign import ccall unsafe "pango_font_metrics_get_underline_position"
pango_font_metrics_get_underline_position :: ((Ptr ()) -> (IO CInt))
foreign import ccall unsafe "pango_font_metrics_get_underline_thickness"
pango_font_metrics_get_underline_thickness :: ((Ptr ()) -> (IO CInt))
foreign import ccall unsafe "pango_font_metrics_get_strikethrough_position"
pango_font_metrics_get_strikethrough_position :: ((Ptr ()) -> (IO CInt))
foreign import ccall unsafe "pango_font_metrics_get_strikethrough_thickness"
pango_font_metrics_get_strikethrough_thickness :: ((Ptr ()) -> (IO CInt))
foreign import ccall unsafe "pango_glyph_string_new"
pango_glyph_string_new :: (IO (Ptr GlyphStringRaw))
foreign import ccall unsafe "pango_shape"
pango_shape :: ((Ptr CChar) -> (CInt -> ((Ptr ()) -> ((Ptr GlyphStringRaw) -> (IO ())))))