GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-06 17:52:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

fixed the place of negation in German passives

Browse Source
This commit is contained in:
aarne
2006-03-06 20:58:11 +00:00
parent cf2d695f74
commit a2d2e268d3
3 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/resource-1.0/german/ResGer.gf
View File

@@ -481,12 +481,12 @@ resource ResGer = ParamX ** open Prelude in {
} ;
insertInf : Str -> VP -> VP = \inf,vp -> {
s = \\a,vf => {fin = (vp.s ! a ! vf).fin ; inf = inf ++ (vp.s ! a ! vf).inf} ;
s = vp.s ;
a1 = vp.a1 ;
n2 = vp.n2 ;
a2 = vp.a2 ;
isAux = vp.isAux ; ----
inf = vp.inf ; --- ++ inf ;
inf = inf ++ vp.inf ;
ext = vp.ext
} ;

2
lib/resource-1.0/german/SentenceGer.gf
View File

@@ -22,7 +22,7 @@ concrete SentenceGer of Sentence = CatGer ** open ResGer in {
SlashVVV2 np vv v2 =
mkClause (np.s ! Nom) np.a
(insertObj (\\a => v2.prefix ++ infPart vv.isAux ++ v2.s ! VInf)
(insertInf (v2.prefix ++ infPart vv.isAux ++ v2.s ! VInf)
(predVGen vv.isAux vv)) **
{c2 = v2.c2} ;

2
lib/resource-1.0/german/VerbGer.gf
View File

@@ -39,7 +39,7 @@ concrete VerbGer of Verb = CatGer ** open Prelude, ResGer in {
ReflV2 v = insertObj (\\a => appPrep v.c2 (reflPron ! a)) (predV v) ;
PassV2 v = insertObj (\\_ => v.s ! VPastPart APred) (predV werdenPass) ;
PassV2 v = insertInf (v.s ! VPastPart APred) (predV werdenPass) ;
UseVS, UseVQ = \v -> v ** {c2 = noPreposition Acc} ;