diff options
| author | krasimir <krasimir@chalmers.se> | 2015-04-17 12:33:22 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2015-04-17 12:33:22 +0000 |
| commit | 86e16d9e3d895d357c0cd5588caf738a5745559b (patch) | |
| tree | 770d5cea21c342111b760a26fee77e26f536cbab /src/runtime/haskell-bind/PGF2 | |
| parent | 42217578952235274af0b576c23a6edeaa92054f (diff) | |
added linearizeAll in the Haskell bindings
Diffstat (limited to 'src/runtime/haskell-bind/PGF2')
| -rw-r--r-- | src/runtime/haskell-bind/PGF2/FFI.hs | 10 |
1 files changed, 10 insertions, 0 deletions
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) |