Define the param UseGen and make use of that

This commit is contained in:
Ayberk Tosun
2017-08-22 11:38:38 +03:00
parent 1362bbdd03
commit 2665910dc2
4 changed files with 14 additions and 6 deletions
+2 -2
View File
@@ -11,11 +11,11 @@ concrete CatTur of Cat = CommonX ** open ResTur, Prelude in {
NP = {s : Case => Str ; a : Agr} ;
Pron = ResTur.Pron ;
Det = {s : Str; n : Number; useGen : Bool} ;
Det = {s : Str; n : Number; useGen : UseGen} ;
Num = {s : Number => Case => Str; n : Number} ;
Card = {s : Number => Case => Str} ;
Ord = {s : Number => Case => Str} ;
Quant = {s : Str; useGen : Bool} ;
Quant = {s : Str; useGen : UseGen} ;
Prep = {s : Str; c : Case} ;
Numeral = {s : CardOrd => Number => Case => Str ; n : Number} ;