restoring full coverage

This commit is contained in:
aarne
2005-11-29 17:45:54 +00:00
parent 81bea08c2c
commit 34916e8b50
17 changed files with 922 additions and 71 deletions

View File

@@ -19,14 +19,14 @@ concrete NounEng of Noun = CatEng ** open ResEng, Prelude in {
NumInt n = n ;
NumNumeral numeral = {s = numeral.s ! NCard} ;
OrdNumeral numeral = {s = numeral.s ! NOrd} ;
OrdNumeral numeral = {s = numeral.s ! NOrd} ;
OrdSuperl a = {s = a.s ! AAdj Superl} ;
DefSg = {s = "the" ; n = Sg} ;
DefPl = {s = "the" ; n = Pl} ;
DefSg = {s = artDef ; n = Sg} ;
DefPl = {s = artDef ; n = Pl} ;
IndefSg = {s = "a" ; n = Sg} ;
IndefSg = {s = artIndef ; n = Sg} ;
IndefPl = {s = [] ; n = Pl} ;
ComplN2 f x = {s = \\n,c => f.s ! n ! Nom ++ f.c2 ++ x.s ! c} ;