From 759a86196891d146b97faeacb94a434c37fdc135 Mon Sep 17 00:00:00 2001
From: Bruno Guillaume <Bruno.Guillaume@loria.fr>
Date: Fri, 29 Jul 2022 14:54:09 +0200
Subject: [PATCH] follow libgrew evolution
---
src_ocaml/grewpy.ml | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src_ocaml/grewpy.ml b/src_ocaml/grewpy.ml
index 434f87e..eed93c1 100644
--- a/src_ocaml/grewpy.ml
+++ b/src_ocaml/grewpy.ml
@@ -142,7 +142,7 @@ let run_command request =
let corpus = Global.corpus_get corpus_index in
let matches = Array.fold_left
(fun acc (id,graph) ->
- let matching_list = Graph.search_pattern ~config pattern graph in
+ let matching_list = Matching.search_pattern_in_graph ~config pattern graph in
(List.map
(fun m -> `Assoc [
("sent_id", `String id);
@@ -171,7 +171,7 @@ let run_command request =
let corpus = Global.corpus_get corpus_index in
let count = Array.fold_left
(fun acc (id,graph) ->
- let matching_list = Graph.search_pattern ~config pattern graph in
+ let matching_list = Matching.search_pattern_in_graph ~config pattern graph in
(List.length matching_list) + acc
) 0 corpus in
Yojson.Basic.to_string
@@ -190,7 +190,7 @@ let run_command request =
| Some graph, Some string_pattern ->
let gr = Graph.of_json_python ~config (Yojson.Basic.from_string graph) in
let pattern = Pattern.parse ~config string_pattern in
- let matching_list = Graph.search_pattern ~config pattern gr in
+ let matching_list = Matching.search_pattern_in_graph ~config pattern gr in
let json_list = List.map (fun m -> Matching.to_json pattern gr m) matching_list in
Yojson.Basic.to_string (`Assoc [("status", `String "OK"); ("data", `List (json_list))])
| _ -> json_error "incomplete 'search' command"
--
GitLab