-- GENERATED by C->Haskell Compiler, version 0.13.4 (gtk2hs branch) "Bin IO", 13 Nov 2004 (Haskell) -- Edit the ORIGNAL .chs file instead! {-# LINE 1 "./Graphics/Rendering/Cairo/Internal/Utilities.chs" #-} ----------------------------------------------------------------------------- -- | -- Module : Graphics.Rendering.Cairo.Internal.Utilities -- Copyright : (c) Paolo Martini 2005 -- License : BSD-style (see cairo/COPYRIGHT) -- -- Maintainer : p.martini@neuralnoise.com -- Stability : experimental -- Portability : portable -- -- http://cairographics.org/manual/Support.html ----------------------------------------------------------------------------- module Graphics.Rendering.Cairo.Internal.Utilities where import Graphics.Rendering.Cairo.Types {-# LINE 16 "./Graphics/Rendering/Cairo/Internal/Utilities.chs" #-} import Foreign import Foreign.C {-# LINE 21 "./Graphics/Rendering/Cairo/Internal/Utilities.chs" #-} statusToString :: Status -> IO (String) statusToString a1 = let {a1' = cFromEnum a1} in statusToString'_ a1' >>= \res -> peekCString res >>= \res' -> return (res') {-# LINE 23 "./Graphics/Rendering/Cairo/Internal/Utilities.chs" #-} version :: Int version = let {res = version'_} in let {res' = cIntConv res} in (res') {-# LINE 24 "./Graphics/Rendering/Cairo/Internal/Utilities.chs" #-} versionString :: String versionString = unsafePerformIO $ let {res = versionString'_} in peekCString res >>= \res' -> return (res') {-# LINE 25 "./Graphics/Rendering/Cairo/Internal/Utilities.chs" #-} foreign import ccall safe "cairo_status_to_string" statusToString'_ :: (CInt -> (IO (Ptr CChar))) foreign import ccall safe "cairo_version" version'_ :: CInt foreign import ccall safe "cairo_version_string" versionString'_ :: (Ptr CChar)