Finished Finnish and German.

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

View File

@@ -33,13 +33,30 @@ lin
ItNP = pronNounPhrase pronEs ;
ThisNP = nameNounPhrase {s = dieserDet.s ! Neut} ; ---
ThatNP = nameNounPhrase {s = jenerDet.s ! Neut} ; ---
TheseNP nu = let diese = caselist "diese" "diese" "diesen" "diesen" in
normalNounPhrase (\\c => diese ! c ++ nu.s) plural ;
ThoseNP nu = let jene = caselist "jene" "jene" "jenen" "jenen" in
normalNounPhrase (\\c => jene ! c ++ nu.s) plural ;
AnyDet = detLikeAdj "irgendwelch" ;
AnysDet nu = mkDeterminerNumReg nu "irgendwelche" Weak ;
EveryDet = jederDet ;
AllDet = allesDet ;
AllsDet = alleDet ;
WhichDet = welcherDet ;
WhichsDet = welcheDet ;
MostDet = meistDet ;
MostsDet = meisteDet ;
ManyDet = mkDeterminerPl (caselist "viele" "viele" "vielen" "vieler") Strong ;
MuchDet = detLikeAdj "viel" ;
NoDet = keinDet ;
NosDet nu = mkDeterminerNumReg nu "keine" Strong ;
SomeDet = einDet ; ---
SomesDet nu = mkDeterminerNumReg nu "einige" Strong ;
ThatDet = detLikeAdj "jen" ;
ThisDet = detLikeAdj "dies" ;
TheseDet nu = mkDeterminerNumReg nu "diese" Strong ;
ThoseDet nu = mkDeterminerNumReg nu "jene" Strong ;
HowIAdv = ss "wie" ;
WhenIAdv = ss "wann" ;
@@ -62,6 +79,16 @@ lin
OtherwiseAdv = ss "sonst" ;
ThereforeAdv = ss "deshalb" ;
EverybodyNP = nameNounPhrase
{s = caselist "jeder" "jeden" "jedem" "jedes"} ;
SomebodyNP = nameNounPhrase
{s = caselist "jemand" "jemanden" "jemandem" "jemands"} ;
NobodyNP = nameNounPhrase
{s = caselist "niemand" "niemanden" "niemandem" "niemands"} ;
EverythingNP = nameNounPhrase
{s = caselist "alles" "alles" "allem" "alles"} ;
SomethingNP = nameNounPhrase {s = \\_ => "etwas"} ;
NothingNP = nameNounPhrase {s = \\_ => "nichts"} ;
CanVV =