GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-24 02:12:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

added exprHash in the Haskell binding

Browse Source
This commit is contained in:
Krasimir Angelov
2017-09-05 09:46:43 +02:00
parent 08d781833c
commit a5fe5b9378
2 changed files with 13 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/runtime/haskell-bind/PGF2.hsc
View File

@@ -39,6 +39,7 @@ module PGF2 (-- * PGF
mkFloat,unFloat, mkFloat,unFloat,
mkMeta,unMeta, mkMeta,unMeta,
mkCId, mkCId,
exprHash,
treeProbability, treeProbability,
-- ** Types -- ** Types
@@ -323,6 +324,15 @@ treeProbability (PGF p _) (Expr c_expr touch1) =
touch1 touch1
return (realToFrac res) return (realToFrac res)
exprHash :: Int32 -> Expr -> Int32
exprHash h (Expr c_expr touch1) =
unsafePerformIO $ do
h <- pgf_expr_hash (fromIntegral h) c_expr
touch1
return (fromIntegral h)
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- Graphviz -- Graphviz

3
src/runtime/haskell-bind/PGF2/FFI.hs
View File

@@ -328,6 +328,9 @@ foreign import ccall "pgf/expr.h pgf_expr_arity"
foreign import ccall "pgf/expr.h pgf_expr_eq" foreign import ccall "pgf/expr.h pgf_expr_eq"
pgf_expr_eq :: PgfExpr -> PgfExpr -> IO CInt pgf_expr_eq :: PgfExpr -> PgfExpr -> IO CInt
foreign import ccall "pgf/expr.h pgf_expr_hash"
pgf_expr_hash :: Word -> PgfExpr -> IO Word
foreign import ccall "pgf/expr.h pgf_compute_tree_probability" foreign import ccall "pgf/expr.h pgf_compute_tree_probability"
pgf_compute_tree_probability :: Ptr PgfPGF -> PgfExpr -> IO CFloat pgf_compute_tree_probability :: Ptr PgfPGF -> PgfExpr -> IO CFloat