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

more fine-grained place of German negation

Browse Source
This commit is contained in:
aarne
2013-03-07 20:47:21 +00:00
parent 988d5970d6
commit 949d03f90b
2 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/src/german/ResGer.gf
View File

@@ -606,6 +606,14 @@ resource ResGer = ParamX ** open Prelude in {
infExt = vp.infExt infExt = vp.infExt
} ; } ;
isLightComplement : Bool -> Preposition -> Bool = \isPron,prep -> case isPron of {
False => False ;
_ => case prep.c of {
NPC Nom => True ;
_ => False
}
} ;
insertAdV : Str -> VP -> VP = \adv,vp -> { insertAdV : Str -> VP -> VP = \adv,vp -> {
s = vp.s ; s = vp.s ;
a1 = \\a => adv ++ vp.a1 ! a ; -- immer nicht a1 = \\a => adv ++ vp.a1 ! a ; -- immer nicht

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

@@ -43,7 +43,7 @@ concrete VerbGer of Verb = CatGer ** open Prelude, ResGer, Coordination in {
SlashV2A v ap = SlashV2A v ap =
insertObj (\\_ => ap.s ! APred) (predV v) ** {c2 = v.c2} ; insertObj (\\_ => ap.s ! APred) (predV v) ** {c2 = v.c2} ;
ComplSlash vp np = insertObjNP np.isPron (\\_ => appPrep vp.c2 np.s) vp ; ComplSlash vp np = insertObjNP (isLightComplement np.isPron vp.c2) (\\_ => appPrep vp.c2 np.s) vp ;
SlashVV v vp = SlashVV v vp =
let let