From 0e19356064c64c72de49de953d57a85499c9aaed Mon Sep 17 00:00:00 2001
From: Bruno Guillaume <Bruno.Guillaume@loria.fr>
Date: Wed, 2 Nov 2022 10:37:24 +0100
Subject: [PATCH] add conll_graph function
---
src_ocaml/grewpy.ml | 19 +++++++++++++++++++
1 file changed, 19 insertions(+)
diff --git a/src_ocaml/grewpy.ml b/src_ocaml/grewpy.ml
index ebc4a8a..9a469c2 100644
--- a/src_ocaml/grewpy.ml
+++ b/src_ocaml/grewpy.ml
@@ -260,6 +260,25 @@ let run_command request =
| _ -> json_error "incomplete 'json_grs' command"
end
+ (* ======================= conll_graph ======================= *)
+ | Some "conll_graph" ->
+ begin
+ match json |> member "graph" |> to_string_option with
+ | Some graph ->
+ let conll_string =
+ graph
+ |> Yojson.Basic.from_string
+ |> (fun x -> printf "==========================\n%s\n======================\n%!" (Yojson.Basic.pretty_to_string x); x)
+ |> Conllx.of_json
+ |> Conllx.to_string ~config in
+ Yojson.Basic.to_string
+ (`Assoc [
+ ("status", `String "OK");
+ ("data", `String conll_string)
+ ])
+ | _ -> json_error "cannot execute `conll_graph' command"
+ end
+
(* ======================= dot_graph ======================= *)
| Some "dot_to_png" ->
begin
--
GitLab