diff options
| author | Krasimir Angelov <kr.angelov@gmail.com> | 2017-09-05 10:07:43 +0200 |
|---|---|---|
| committer | Krasimir Angelov <kr.angelov@gmail.com> | 2017-09-05 10:07:43 +0200 |
| commit | 30b7ba04c701ef156992eb53a7b65accebfa9f21 (patch) | |
| tree | bce5f12c8d7180452eae0c66502f095fc0ea3daa /src/runtime/haskell-bind/PGF2 | |
| parent | 85cf2d9f5a1018219beb51c1172842cddda1f544 (diff) | |
added exprFunctions in the Haskell binding
Diffstat (limited to 'src/runtime/haskell-bind/PGF2')
| -rw-r--r-- | src/runtime/haskell-bind/PGF2/FFI.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/runtime/haskell-bind/PGF2/FFI.hs b/src/runtime/haskell-bind/PGF2/FFI.hs index 85c3a9793..a47655d8d 100644 --- a/src/runtime/haskell-bind/PGF2/FFI.hs +++ b/src/runtime/haskell-bind/PGF2/FFI.hs @@ -334,6 +334,9 @@ foreign import ccall "pgf/expr.h pgf_expr_hash" foreign import ccall "pgf/expr.h pgf_expr_size" pgf_expr_size :: PgfExpr -> IO CInt +foreign import ccall "pgf/expr.h pgf_expr_functions" + pgf_expr_functions :: PgfExpr -> Ptr GuPool -> IO (Ptr GuSeq) + foreign import ccall "pgf/expr.h pgf_compute_tree_probability" pgf_compute_tree_probability :: Ptr PgfPGF -> PgfExpr -> IO CFloat |