Commit 1a48ec80 authored by Bruno Guillaume's avatar Bruno Guillaume

version 1.0.2

Fix problem with nodes names in “grew grep”
parent 6231e3d6
## 1.0.2 (2018/09/16)
* Fix problem with nodes names in “grew grep”
## 1.0.1 (2018/09/10)
* Fix error in MWE node contruction
* Fix error in MWE node construction
# 1.0.0 (2018/09/10)
* /!\ Change lexical rules syntax and lexicon representation
......
......@@ -96,8 +96,20 @@ module G_node = struct
let of_conll ?loc ?prec ?succ ?domain line =
if line = Conll.root
then { empty with conll_root=true; succ; position = Ordered 0.}
else { empty with fs = G_fs.of_conll ?loc ?domain line; position = Ordered (float_of_conll_id line.Conll.id); prec; succ; efs=line.Conll.efs }
then { empty with
conll_root=true;
succ;
position = Ordered 0.;
name= Some "ROOT";
}
else { empty with
fs = G_fs.of_conll ?loc ?domain line;
position = Ordered (float_of_conll_id line.Conll.id);
prec;
succ;
efs=line.Conll.efs;
name = Some (Conll_types.Id.to_string line.Conll.id)
}
let pst_leaf ?loc ?domain phon position =
{ empty with fs = G_fs.pst_leaf ?loc ?domain phon; position = Ordered (float position) }
......
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