finishing TestGerman

This commit is contained in:
aarne
2006-01-13 22:33:15 +00:00
parent f3f346d6d9
commit 1a262ce1f8
10 changed files with 133 additions and 43 deletions

View File

@@ -58,6 +58,7 @@ concrete NounGer of Noun = CatGer ** open ResGer, Prelude in {
NoOrd = {s = \\_ => []} ;
NumInt n = {s = \\_,_ => n.s} ;
OrdInt n = {s = \\_ => n.s ++ "."} ;
NumNumeral numeral = {s = \\_,_ => numeral.s ! NCard} ;
OrdNumeral numeral = {s = \\af => numeral.s ! NOrd af} ;