diff options
| author | Krasimir Angelov <kr.angelov@gmail.com> | 2017-09-01 08:46:52 +0200 |
|---|---|---|
| committer | Krasimir Angelov <kr.angelov@gmail.com> | 2017-09-01 08:46:52 +0200 |
| commit | 5a37660811d2b23439a542c70cd09bdda9418a1a (patch) | |
| tree | 2d5adac94b7d5ac7a4b69aca3cfdfd4927f00b99 /src/runtime/haskell-bind/PGF2 | |
| parent | 1182a9b63d983a749829d774ef05e3dd7dfe6a8e (diff) | |
added function treeProbability 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 1a5e7f91b..65dd81085 100644 --- a/src/runtime/haskell-bind/PGF2/FFI.hs +++ b/src/runtime/haskell-bind/PGF2/FFI.hs @@ -325,6 +325,9 @@ foreign import ccall "pgf/pgf.h pgf_expr_unlit" foreign import ccall "pgf/expr.h pgf_expr_arity" pgf_expr_arity :: PgfExpr -> IO CInt +foreign import ccall "pgf/expr.h pgf_compute_tree_probability" + pgf_compute_tree_probability :: Ptr PgfPGF -> PgfExpr -> IO CFloat + foreign import ccall "pgf/expr.h pgf_check_expr" pgf_check_expr :: Ptr PgfPGF -> Ptr PgfExpr -> PgfType -> Ptr GuExn -> Ptr GuPool -> IO () |