module Graphics.Rendering.Cairo.Internal.Utilities where
import Graphics.Rendering.Cairo.Types
import Foreign
import Foreign.C
import Codec.Binary.UTF8.String
import Data.Char (ord, chr)
statusToString :: Status -> IO (String)
statusToString a1 =
let {a1' = cFromEnum a1} in
statusToString'_ a1' >>= \res ->
peekCString res >>= \res' ->
return (res')
version :: Int
version =
let {res = version'_} in
let {res' = cIntConv res} in
(res')
versionString :: String
versionString =
unsafePerformIO $
let {res = versionString'_} in
peekCString res >>= \res' ->
return (res')
withUTFString :: String -> (CString -> IO a) -> IO a
withUTFString = withCAString . encodeString
foreign import ccall safe "dist-ghc/build/Graphics/Rendering/Cairo/Internal/Utilities.h cairo_status_to_string"
statusToString'_ :: (CInt -> (IO (Ptr CChar)))
foreign import ccall safe "dist-ghc/build/Graphics/Rendering/Cairo/Internal/Utilities.h cairo_version"
version'_ :: CInt
foreign import ccall safe "dist-ghc/build/Graphics/Rendering/Cairo/Internal/Utilities.h cairo_version_string"
versionString'_ :: (Ptr CChar)