msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

proper error checking in the C runtime

Browse Source
This commit is contained in:
kr.angelov
2014-02-10 14:07:17 +00:00
parent 1bcb2d06e3
commit 44a764cd2f
2 changed files with 54 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/runtime/haskell-bind/PGF2/FFI.hs
View File

@@ -15,6 +15,7 @@ data GuEnum
data GuExn
data GuIn
data GuKind
data GuType
data GuString
data GuStringBuf
data GuMapItor
@@ -36,9 +37,21 @@ foreign import ccall "gu/exn.h gu_new_exn"
foreign import ccall "gu/exn.h gu_exn_is_raised"
gu_exn_is_raised :: Ptr GuExn -> IO Bool
foreign import ccall "gu/exn.h gu_exn_caught"
gu_exn_caught :: Ptr GuExn -> IO (Ptr GuType)
foreign import ccall "gu/type.h &gu_type__type"
gu_type__type :: Ptr GuKind
foreign import ccall "gu/type.h &gu_type__GuErrno"
gu_type__GuErrno :: Ptr GuType
foreign import ccall "gu/type.h &gu_type__PgfLinNonExist"
gu_type__PgfLinNonExist :: Ptr GuType
foreign import ccall "gu/type.h &gu_type__PgfExn"
gu_type__PgfExn :: Ptr GuType
foreign import ccall "gu/string.h gu_string_in"
gu_string_in :: CString -> Ptr GuPool -> IO (Ptr GuIn)