fix bugs in German ComplA2 and ImpVP

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

View File

@@ -28,7 +28,10 @@ concrete AdjectiveGer of Adjective = CatGer ** open ResGer, Prelude in {
-- $SuperlA$ belongs to determiner syntax in $Noun$.
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
} ;

View File

@@ -20,7 +20,7 @@ concrete SentenceGer of Sentence = CatGer ** open ResGer, Prelude in {
inf = vp.inf ++ verb.inf ;
in
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 =