diff options
| author | krasimir <krasimir@chalmers.se> | 2017-05-12 09:32:25 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2017-05-12 09:32:25 +0000 |
| commit | ca891c912b9f4ce2ddec28219f2f8e44d08f82bd (patch) | |
| tree | fa8d181909dff97406e7407906580d3654b3ec7f /src/runtime/haskell-bind/PGF2 | |
| parent | 577b7662d8087d9a43edd009718414a1d978eeb3 (diff) | |
a binding to the sentence lookup from Haskell
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 5ca2ee01f..77e075495 100644 --- a/src/runtime/haskell-bind/PGF2/FFI.hs +++ b/src/runtime/haskell-bind/PGF2/FFI.hs @@ -208,6 +208,9 @@ foreign import ccall "pgf/pgf.h pgf_align_words" foreign import ccall "pgf/pgf.h pgf_parse_with_heuristics" pgf_parse_with_heuristics :: Ptr PgfConcr -> PgfType -> CString -> Double -> Ptr PgfCallbacksMap -> Ptr GuExn -> Ptr GuPool -> Ptr GuPool -> IO (Ptr GuEnum) +foreign import ccall "pgf/pgf.h pgf_lookup_sentence" + pgf_lookup_sentence :: Ptr PgfConcr -> PgfType -> CString -> Ptr GuPool -> Ptr GuPool -> IO (Ptr GuEnum) + type LiteralMatchCallback = CInt -> Ptr CInt -> Ptr GuPool -> IO (Ptr PgfExprProb) foreign import ccall "wrapper" |