Turkish: implement NumCard and NumNumeral

This commit is contained in:
krasimir
2009-05-08 08:15:32 +00:00
parent 35a4a20845
commit 8b69008815
2 changed files with 5 additions and 0 deletions

View File

@@ -10,6 +10,7 @@ concrete CatTur of Cat = CommonX ** open ResTur, Prelude in {
Pron = ResTur.Pron ;
Det = {s : Str; n : Number} ;
Num = {s : Str; n : Number} ;
Card = {s : Str} ;
Quant = {s : Str} ;
-- Open lexical classes, e.g. Lexicon

View File

@@ -18,6 +18,10 @@ concrete NounTur of Noun = CatTur ** open ResTur, Prelude in {
NumSg = {s = []; n = Sg} ;
NumPl = {s = []; n = Pl} ;
NumCard n = n ** {n = Sg} ;
NumNumeral numeral = {s = numeral.s} ;
DefArt = {
s = []
} ;