types.ml
592 Bytes
type form = {orth: string; interp: string; freq: int; genre: string; validated: bool}
type entry = {lemma: string; cat: string; forms: form list; proper_type: string; ndm: bool; stem: string}
type star = Productive | Star | Ndm
type rule = {star: star; pref: string; find: string; set: string; tags: (string * string) list;
interp: string; id: string; freq: int}
let string_of_rule r = Printf.sprintf "%s\t%s\t%s" r.pref r.find r.set
type lu_entry = {lemma1: string; lemma2: string; rel_id: int; lu_stem: string;
lu_validated: bool; validated1: bool; validated2: bool}