GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-22 09:32:53 -06:00
Code Issues Packages Projects Releases Wiki 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

8
lib/resource-0.6/german/SyntaxGer.gf
View File

@@ -142,6 +142,8 @@ oper
mkDeterminerNum : Numeral -> DetPl -> Adjf -> Determiner = \nu,alle,a ->
{s = \\_,c => alle ! c ++ nu.s ; n = Pl ; a = a} ;
mkDeterminerNumReg : Numeral -> Str -> Adjf -> Determiner = \nu,alle,a ->
mkDeterminerNum nu (caselist alle alle (alle + "n") (alle + "n")) a ;
detLikeAdj : Str -> Determiner = \jed -> mkDeterminerSg
(\\g,c => (adjReg jed).s ! AMod Strong (GSg g) c) Weak ;
@@ -153,11 +155,15 @@ oper
alleDet : Numeral -> Determiner = \n ->
mkDeterminerNum n (caselist "alle" "alle" "allen" "aller") Weak ;
einDet = mkDeterminerSg artIndef Strong ;
keinDet = mkDeterminerSg (\\g,c => "k" + artIndef ! g ! c) Strong ;
derDet = mkDeterminerSg (table {g => artDef ! GSg g}) Weak ;
dieDet : Numeral -> Determiner = \nu ->
mkDeterminerNum nu (artDef ! GPl) Weak ;
meistDet = mkDeterminerPl (table {c => artDef ! GPl ! c ++ "meisten"}) Weak ;
meistDet = mkDeterminerSg
(\\g,c => artDef ! GSg g ! c ++ (adjReg "meist").s ! AMod Weak (GSg g) c) Weak ;
meisteDet = mkDeterminerPl
(\\c => artDef ! GPl ! c ++ "meisten") Weak ;
welcherDet = detLikeAdj "welch" ;
welcheDet : Numeral -> Determiner = \n ->
mkDeterminerNum n (caselist "welche" "welche" "welchen" "welcher") Weak ;