msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

finishing TestGerman

Browse Source
This commit is contained in:
aarne
2006-01-13 22:33:15 +00:00
parent af96ab2de3
commit 4a6de2ecf1
10 changed files with 133 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
resource-1.0/german/NounGer.gf
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} ;