From 86e16d9e3d895d357c0cd5588caf738a5745559b Mon Sep 17 00:00:00 2001 From: krasimir Date: Fri, 17 Apr 2015 12:33:22 +0000 Subject: added linearizeAll in the Haskell bindings --- src/runtime/haskell-bind/PGF2/FFI.hs | 10 ++++++++++ 1 file changed, 10 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 d78502561..4f7618388 100644 --- a/src/runtime/haskell-bind/PGF2/FFI.hs +++ b/src/runtime/haskell-bind/PGF2/FFI.hs @@ -90,6 +90,7 @@ data PgfMorphoCallback data PgfPrintContext data PgfType data PgfCallbacksMap +data PgfCncTree foreign import ccall "pgf/pgf.h pgf_read" pgf_read :: CString -> Ptr GuPool -> Ptr GuExn -> IO (Ptr PgfPGF) @@ -139,6 +140,15 @@ foreign import ccall "pgf/pgf.h pgf_has_linearization" 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_lzr_concretize" + pgf_lzr_concretize :: Ptr PgfConcr -> PgfExpr -> Ptr GuExn -> Ptr GuPool -> IO (Ptr GuEnum) + +foreign import ccall "pgf/pgf.h pgf_lzr_wrap_linref" + pgf_lzr_wrap_linref :: Ptr PgfCncTree -> Ptr GuPool -> IO (Ptr PgfCncTree) + +foreign import ccall "pgf/pgf.h pgf_lzr_linearize_simple" + pgf_lzr_linearize_simple :: Ptr PgfConcr -> Ptr PgfCncTree -> CInt -> Ptr GuOut -> Ptr GuExn -> Ptr GuPool -> IO () + foreign import ccall "pgf/pgf.h pgf_align_words" pgf_align_words :: Ptr PgfConcr -> PgfExpr -> Ptr GuExn -> Ptr GuPool -> IO (Ptr GuSeq) -- cgit v1.2.3