Commit a44390b4 authored by Bruno Guillaume's avatar Bruno Guillaume

add ~cupt flag in Graph.to_conll_string

parent 381b31a7
......@@ -1075,9 +1075,9 @@ module G_graph = struct
mwes;
}
let to_conll_string graph =
let to_conll_string ?cupt graph =
let conll = to_conll graph in
Conll.to_string (Conll.normalize_multiwords conll)
Conll.to_string ?cupt (Conll.normalize_multiwords conll)
(* -------------------------------------------------------------------------------- *)
let to_dot ?main_feat ?(deco=G_deco.empty) graph =
......
......@@ -196,7 +196,7 @@ module G_graph: sig
val to_sentence: ?main_feat:string -> ?deco:G_deco.t -> t -> string
val to_dep: ?filter: (string -> bool) -> ?main_feat:string -> ?deco:G_deco.t -> t -> string
val to_conll: t -> Conll.t
val to_conll_string: t -> string
val to_conll_string: ?cupt:bool -> t -> string
val to_json: t -> json
val cast: ?domain:Domain.t -> t -> t
......
......@@ -217,8 +217,8 @@ module Graph = struct
let to_conll graph =
Libgrew.handle ~name:"Graph.to_conll" (fun () -> Grew_graph.G_graph.to_conll graph) ()
let to_conll_string graph =
Libgrew.handle ~name:"Graph.to_conll_string" (fun () -> Grew_graph.G_graph.to_conll_string graph) ()
let to_conll_string ?cupt graph =
Libgrew.handle ~name:"Graph.to_conll_string" (fun () -> Grew_graph.G_graph.to_conll_string ?cupt graph) ()
let to_sentence ?main_feat ?deco gr =
Libgrew.handle ~name:"Graph.to_sentence"
......
......@@ -107,7 +107,7 @@ module Graph : sig
val to_conll: t -> Conll.t
val to_conll_string: t -> string
val to_conll_string: ?cupt:bool -> t -> string
(** [search_pattern pattern graph] returns the list of the possible matching of [pattern] in [graph] *)
val search_pattern: ?domain:Domain.t -> Pattern.t -> t -> Matching.t list
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment