module Graphics.Text.Font.Choose.Init (Config, initLoadConfig, initLoadConfigAndFonts,
    init, fini, reinit, bringUptoDate, version) where

import Prelude hiding (init)

import Graphics.Text.Font.Choose.Config

initLoadConfig = fcInitLoadConfig >>= ptr2config
foreign import ccall "FcInitLoadConfig" fcInitLoadConfig :: IO Config_
initLoadConfigAndFonts = fcInitLoadConfigAndFonts >>= ptr2config
foreign import ccall "FcInitLoadConfigAndFonts" fcInitLoadConfigAndFonts :: IO Config_

foreign import ccall "FcInit" init :: IO Bool
foreign import ccall "FcFini" fini :: IO ()
foreign import ccall "FcInitReinitialize" reinit :: IO Bool
foreign import ccall "FcInitBringUptoDate" bringUptoDate :: IO Bool

foreign import ccall "FcGetVersion" version :: Int