From 3bd40dbab68c8354d8cfceb6dad32d24b13bc723 Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Mon, 29 Dec 2014 10:59:20 +0000 Subject: API for word alignment in the C runtime and in the Haskell binding --- src/runtime/haskell-bind/PGF2/FFI.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/runtime/haskell-bind/PGF2') 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) -- cgit v1.2.3