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

fix bugs in German ComplA2 and ImpVP

Browse Source
This commit is contained in:
aarne
2011-09-20 12:16:38 +00:00
parent 896b59397a
commit 9cc57b137c
2 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lib/src/german/AdjectiveGer.gf
View File

@@ -28,7 +28,10 @@ concrete AdjectiveGer of Adjective = CatGer ** open ResGer, Prelude in {
-- $SuperlA$ belongs to determiner syntax in $Noun$. -- $SuperlA$ belongs to determiner syntax in $Noun$.
ComplA2 a np = { ComplA2 a np = {
s = \\af => a.s ! Posit ! af ++ appPrep a.c2 np.s ; s = table {
APred => a.s ! Posit ! APred ++ appPrep a.c2 np.s ;
af => appPrep a.c2 np.s ++ a.s ! Posit ! af
} ;
isPre = True isPre = True
} ; } ;

2
lib/src/german/SentenceGer.gf
View File

@@ -20,7 +20,7 @@ concrete SentenceGer of Sentence = CatGer ** open ResGer, Prelude in {
inf = vp.inf ++ verb.inf ; inf = vp.inf ++ verb.inf ;
in in
verb.fin ++ ps.p2 ++ verb.fin ++ ps.p2 ++
vp.n2 ! agr ++ vp.a1 ! pol ++ vp.a2 ++ inf ++ vp.ext vp.n0 ! agr ++ vp.n2 ! agr ++ vp.a1 ! pol ++ vp.a2 ++ inf ++ vp.ext
} ; } ;
SlashVP np vp = SlashVP np vp =