Add a useGen field

This commit is contained in:
Ayberk Tosun
2017-08-21 18:16:44 +03:00
parent 99c70256ca
commit 1362bbdd03
3 changed files with 23 additions and 20 deletions
+3 -3
View File
@@ -7,15 +7,15 @@ concrete CatTur of Cat = CommonX ** open ResTur, Prelude in {
lincat
-- Noun
CN = {s : Number => Case => Str} ;
CN = {s : Number => Case => Str; gen : Number => Agr => Str} ;
NP = {s : Case => Str ; a : Agr} ;
Pron = ResTur.Pron ;
Det = {s : Str; n : Number} ;
Det = {s : Str; n : Number; useGen : Bool} ;
Num = {s : Number => Case => Str; n : Number} ;
Card = {s : Number => Case => Str} ;
Ord = {s : Number => Case => Str} ;
Quant = {s : Str} ;
Quant = {s : Str; useGen : Bool} ;
Prep = {s : Str; c : Case} ;
Numeral = {s : CardOrd => Number => Case => Str ; n : Number} ;