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

Finished Finnish and German.

Browse Source
This commit is contained in:
aarne
2004-01-09 14:34:30 +00:00
parent b396a776e9
commit 8ee66b41d3
9 changed files with 114 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/resource-0.6/swedish/StructuralSwe.gf
View File

@@ -67,7 +67,8 @@ concrete StructuralSwe of Structural =
OtherwiseAdv = ss "annars" ;
ThereforeAdv = ss "därför" ;
EverybodyNP = nameNounPhrase (mkProperName "alleman" Utr Masc) ;
EverybodyNP = let alla = table {Nom => "alla" ; Gen => "allas"} in
{s = \\c => alla ! npCase c ; g = Utr ; n = Pl} ;
SomebodyNP = nameNounPhrase (mkProperName "någon" Utr Masc) ;
NobodyNP = nameNounPhrase (mkProperName "ingen" Utr Masc) ;
EverythingNP = nameNounPhrase (mkProperName "allting" Neutr NoMasc) ;