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