diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2014-12-29 10:59:20 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2014-12-29 10:59:20 +0000 |
| commit | 3bd40dbab68c8354d8cfceb6dad32d24b13bc723 (patch) | |
| tree | b313cba147c811a720b1f17d5a7c1277fab68a72 /src/runtime/haskell-bind/PGF2 | |
| parent | 8fd24c3839e7d171e0c4170ae17b26c7ff5aec1b (diff) | |
API for word alignment in the C runtime and in the Haskell binding
Diffstat (limited to 'src/runtime/haskell-bind/PGF2')
| -rw-r--r-- | src/runtime/haskell-bind/PGF2/FFI.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/runtime/haskell-bind/PGF2/FFI.hs b/src/runtime/haskell-bind/PGF2/FFI.hs index b96c93e17..f36fa1368 100644 --- a/src/runtime/haskell-bind/PGF2/FFI.hs +++ b/src/runtime/haskell-bind/PGF2/FFI.hs @@ -21,6 +21,7 @@ data GuString data GuStringBuf data GuMapItor data GuOut +data GuSeq data GuPool foreign import ccall fopen :: CString -> CString -> IO (Ptr ()) @@ -135,6 +136,9 @@ foreign import ccall "pgf/pgf.h pgf_print_name" foreign import ccall "pgf/pgf.h pgf_linearize" pgf_linearize :: Ptr PgfConcr -> PgfExpr -> Ptr GuOut -> Ptr GuExn -> IO () +foreign import ccall "pgf/pgf.h pgf_align_words" + pgf_align_words :: Ptr PgfConcr -> PgfExpr -> Ptr GuExn -> Ptr GuPool -> IO (Ptr GuSeq) + foreign import ccall "pgf/pgf.h pgf_parse_with_heuristics" pgf_parse_with_heuristics :: Ptr PgfConcr -> CString -> CString -> Double -> Ptr PgfCallbacksMap -> Ptr GuExn -> Ptr GuPool -> Ptr GuPool -> IO (Ptr GuEnum) |