-----------------------------------------------------------------------------
-- |
-- Module      :  Graphics.UI.SDL.TTF.General
-- Copyright   :  (c) David Himmelstrup 2005
-- License     :  BSD-like
--
-- Maintainer  :  lemmih@gmail.com
-- Stability   :  provisional
-- Portability :  portable
--
-----------------------------------------------------------------------------
module Graphics.UI.SDL.TTF.General
    ( init
    , wasInit
    , quit
    ) where

import Foreign
import Foreign.C.Types(CInt(..))

-- import Graphics.UI.SDL.General (failWithError)

import Prelude hiding (init)

-- int TTF_Init()
foreign import ccall unsafe "TTF_Init" ttfInit :: IO CInt
init :: IO Bool
init :: IO Bool
init = (CInt -> Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap (Bool -> Bool
not(Bool -> Bool) -> (CInt -> Bool) -> CInt -> Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
.CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool) IO CInt
ttfInit


--int TTF_WasInit()
foreign import ccall unsafe "TTF_WasInit" ttfWasInit :: IO CInt
wasInit :: IO Bool
wasInit :: IO Bool
wasInit = (CInt -> Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool IO CInt
ttfWasInit

-- void TTF_Quit()
foreign import ccall unsafe "TTF_Quit" quit :: IO ()