diff options
| author | Krasimir Angelov <kr.angelov@gmail.com> | 2017-09-28 13:57:13 +0200 |
|---|---|---|
| committer | Krasimir Angelov <kr.angelov@gmail.com> | 2017-09-28 13:57:13 +0200 |
| commit | 1c04fa4897acfa2119fa32850bfcd6550b712da4 (patch) | |
| tree | 39e41b6b2805bf50fa515829a429c7f9a117c154 /src/runtime/haskell-bind/PGF2.hsc | |
| parent | 06ec6b3e92503bba3a0b0ed216bbeca3452639df (diff) | |
the parser for abstract expressions in the C runtime now supports partial parses
Diffstat (limited to 'src/runtime/haskell-bind/PGF2.hsc')
| -rw-r--r-- | src/runtime/haskell-bind/PGF2.hsc | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/runtime/haskell-bind/PGF2.hsc b/src/runtime/haskell-bind/PGF2.hsc index e1b0acd03..0d1d46be6 100644 --- a/src/runtime/haskell-bind/PGF2.hsc +++ b/src/runtime/haskell-bind/PGF2.hsc @@ -31,7 +31,7 @@ module PGF2 (-- * PGF -- ** Functions Fun,functions, functionsByCat, functionType, hasLinearization, -- ** Expressions - Expr,showExpr,readExpr, + Expr,showExpr,readExpr,pExpr, mkAbs,unAbs, mkApp,unApp, mkStr,unStr, @@ -583,7 +583,7 @@ mkCallbacksMap concr callbacks pool = do c_str <- gu_string_buf_freeze sb tmpPl guin <- gu_string_in c_str tmpPl - pgf_read_expr guin out_pool exn + pgf_read_expr guin out_pool tmpPl exn ep <- gu_malloc out_pool (#size PgfExprProb) (#poke PgfExprProb, expr) ep c_e @@ -690,7 +690,7 @@ parseWithOracle lang cat sent (predict,complete,literal) = c_str <- gu_string_buf_freeze sb tmpPl guin <- gu_string_in c_str tmpPl - pgf_read_expr guin out_pool exn + pgf_read_expr guin out_pool tmpPl exn ep <- gu_malloc out_pool (#size PgfExprProb) (#poke PgfExprProb, expr) ep c_e |