Commit 57c1d264 authored by Bruno Guillaume's avatar Bruno Guillaume

add conll_fields in Ast

parent e766a53a
......@@ -381,6 +381,7 @@ module Ast = struct
Closed (feature_name, without_duplicate)
type domain = {
conll_fields: string list option;
feature_domain: feature_spec list;
label_domain: (string * string list) list;
}
......@@ -449,6 +450,7 @@ module New_ast = struct
| Try of strat (* ≜ If (S, S, Empty): pick one normal form a the given strategy; return input if nf *)
type decl =
| Conll_fields of string list
| Features of Ast.feature_spec list
| Labels of (string * string list) list
| Package of (Loc.t * Ast.simple_ident * decl list)
......
......@@ -188,6 +188,7 @@ module Ast : sig
val build_closed: feature_name -> feature_atom list -> feature_spec
type domain = {
conll_fields: string list option;
feature_domain: feature_spec list;
label_domain: (string * string list) list;
}
......@@ -255,6 +256,7 @@ module New_ast : sig
| Try of strat (* ≜ If (S, S, Empty): pick one normal form a the given strategy; return input if nf *)
type decl =
| Conll_fields of string list
| Features of Ast.feature_spec list
| Labels of (string * string list) list
| Package of (Loc.t * Ast.simple_ident * decl 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