1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
module Graphics.Text.Font.Choose.ObjectSet where
import Foreign.Ptr (Ptr)
import Foreign.C.String (CString, withCString)
import Control.Monad (forM)
import Control.Exception (bracket)
import Graphics.Text.Font.Choose.Result (throwFalse, throwNull)
type ObjectSet = [String]
------
--- LowLevel
------
data ObjectSet'
type ObjectSet_ = Ptr ObjectSet'
withObjectSet :: ObjectSet -> (ObjectSet_ -> IO a) -> IO a
withObjectSet objs cb = withNewObjectSet $ \objs' -> do
forM objs $ \obj -> withCString obj $ \obj' ->
throwFalse <$> fcObjectSetAdd objs' obj'
cb objs'
foreign import ccall "FcObjectSetAdd" fcObjectSetAdd ::
ObjectSet_ -> CString -> IO Bool
withNewObjectSet :: (ObjectSet_ -> IO a) -> IO a
withNewObjectSet = bracket (throwNull <$> fcObjectSetCreate) fcObjectSetDestroy
foreign import ccall "FcObjectSetCreate" fcObjectSetCreate :: IO ObjectSet_
foreign import ccall "FcObjectSetDestroy" fcObjectSetDestroy :: ObjectSet_ -> IO ()