diff options
| author | krasimir <krasimir@chalmers.se> | 2015-12-20 14:04:52 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2015-12-20 14:04:52 +0000 |
| commit | bef9d8c5fce740fde65934b170cca33b121fde67 (patch) | |
| tree | 8a8c86569cd4ea329f3c5a5a9caefdcdf36211c3 /src/runtime/haskell-bind/SG | |
| parent | 0b9395fd7006592d0434503751a88ef95ab47603 (diff) | |
added a primitive full-text search index in libsg. This can be use for finding an abstract tree whose linearization matches given keywords
Diffstat (limited to 'src/runtime/haskell-bind/SG')
| -rw-r--r-- | src/runtime/haskell-bind/SG/FFI.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/runtime/haskell-bind/SG/FFI.hs b/src/runtime/haskell-bind/SG/FFI.hs index 37c7f8c3a..69e3efe3f 100644 --- a/src/runtime/haskell-bind/SG/FFI.hs +++ b/src/runtime/haskell-bind/SG/FFI.hs @@ -32,6 +32,12 @@ foreign import ccall "sg/sg.h sg_insert_expr" foreign import ccall "sg/sg.h sg_get_expr" sg_get_expr :: Ptr SgSG -> SgId -> Ptr GuPool -> Ptr GuExn -> IO PgfExpr +foreign import ccall "sg/sg.h sg_update_fts_index" + sg_update_fts_index :: Ptr SgSG -> Ptr PgfPGF -> Ptr GuExn -> IO () + +foreign import ccall "sg/sg.h sg_query_linearization" + sg_query_linearization :: Ptr SgSG -> CString -> Ptr GuPool -> Ptr GuExn -> IO (Ptr GuSeq) + foreign import ccall "sg/sg.h sg_insert_triple" sg_insert_triple :: Ptr SgSG -> SgTriple -> Ptr GuExn -> IO SgId |