{-# LANGUAGE CApiFFI #-}
module Graphics.Text.Font.Choose.Config(Config, fini, version,
initLoadConfig, initLoadConfigAndFonts, initFonts, reinit, bringUptoDate,
Config', fcConfigDestroy) where
import Foreign.Ptr (Ptr, FunPtr)
import Foreign.ForeignPtr (ForeignPtr, newForeignPtr)
import Graphics.Text.Font.Choose.Result (throwBool, throwNull)
data Config'
type Config = ForeignPtr Config'
initLoadConfig :: IO Config
initLoadConfig :: IO Config
initLoadConfig = FinalizerPtr Config' -> Ptr Config' -> IO Config
forall a. FinalizerPtr a -> Ptr a -> IO (ForeignPtr a)
newForeignPtr FinalizerPtr Config'
fcConfigDestroy (Ptr Config' -> IO Config) -> IO (Ptr Config') -> IO Config
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr Config' -> IO (Ptr Config')
forall a. Ptr a -> IO (Ptr a)
throwNull (Ptr Config' -> IO (Ptr Config'))
-> IO (Ptr Config') -> IO (Ptr Config')
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< IO (Ptr Config')
fcInitLoadConfig
initLoadConfigAndFonts :: IO Config
initLoadConfigAndFonts :: IO Config
initLoadConfigAndFonts = FinalizerPtr Config' -> Ptr Config' -> IO Config
forall a. FinalizerPtr a -> Ptr a -> IO (ForeignPtr a)
newForeignPtr FinalizerPtr Config'
fcConfigDestroy (Ptr Config' -> IO Config) -> IO (Ptr Config') -> IO Config
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< Ptr Config' -> IO (Ptr Config')
forall a. Ptr a -> IO (Ptr a)
throwNull (Ptr Config' -> IO (Ptr Config'))
-> IO (Ptr Config') -> IO (Ptr Config')
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< IO (Ptr Config')
fcInitLoadConfigAndFonts
initFonts :: IO ()
initFonts :: IO ()
initFonts = Bool -> IO ()
throwBool (Bool -> IO ()) -> IO Bool -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< IO Bool
fcInit
foreign import capi "fontconfig/fontconfig.h FcFini" fini :: IO ()
foreign import capi "fontconfig/fontconfig.h FcGetVersion" version :: Int
reinit :: IO ()
reinit :: IO ()
reinit = Bool -> IO ()
throwBool (Bool -> IO ()) -> IO Bool -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< IO Bool
fcInitReinitialize
bringUptoDate :: IO ()
bringUptoDate :: IO ()
bringUptoDate = Bool -> IO ()
throwBool (Bool -> IO ()) -> IO Bool -> IO ()
forall (m :: * -> *) a b. Monad m => (a -> m b) -> m a -> m b
=<< IO Bool
fcInitBringUptoDate
foreign import capi "fontconfig/fontconfig.h FcInitLoadConfig" fcInitLoadConfig :: IO (Ptr Config')
foreign import capi "fontconfig/fontconfig.h FcInitLoadConfigAndFonts" fcInitLoadConfigAndFonts :: IO (Ptr Config')
foreign import capi "fontconfig/fontconfig.h FcInit" fcInit :: IO Bool
foreign import capi "fontconfig/fontconfig.h &FcConfigDestroy" fcConfigDestroy :: FunPtr (Ptr Config' -> IO ())
foreign import capi "fontconfig/fontconfig.h FcInitReinitialize" fcInitReinitialize :: IO Bool
foreign import capi "fontconfig/fontconfig.h FcInitBringUptoDate" fcInitBringUptoDate :: IO Bool