added the minimal Haskell API for storing expressions/triples in the semantic graph

2015-09-02 07:12:36 +00:00
parent 4a1da62d84
commit 73b41687c8
6 changed files with 321 additions and 137 deletions
--- a/src/runtime/haskell-bind/PGF2/FFI.hs
+++ b/src/runtime/haskell-bind/PGF2/FFI.hs
@@ -76,6 +76,11 @@ foreign import ccall "gu/string.h gu_string_buf_freeze"
 withGuPool :: (Ptr GuPool -> IO a) -> IO a
 withGuPool f = bracket gu_new_pool gu_pool_free f

+newOut :: Ptr GuPool -> IO (Ptr GuStringBuf, Ptr GuOut)
+newOut pool =
+   do sb <- gu_string_buf pool
+      out <- gu_string_buf_out sb
+      return (sb,out)

 ------------------------------------------------------------------
 -- libpgf API