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

Ger negation adjusted once more

Browse Source
This commit is contained in:
aarne
2012-05-27 21:09:17 +00:00
parent fa4ccf176a
commit cb4c2322a7
2 changed files with 18 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -43,7 +43,7 @@ concrete VerbGer of Verb = CatGer ** open Prelude, ResGer in {
SlashV2A v ap =
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 True (\\_ => appPrep vp.c2 np.s) vp ;
SlashVV v vp =
let
@@ -78,7 +78,7 @@ concrete VerbGer of Verb = CatGer ** open Prelude, ResGer in {
} ;
AdvVP vp adv = insertAdv adv.s vp ;
AdVVP adv vp = insertAdV adv.s vp ;
AdVVP adv vp = insertAdv adv.s vp ; -- not AdV 27/5/2012: nicht immer
ReflVP vp = insertObj (\\a => appPrep vp.c2
(\\k => usePrepC k (\c -> reflPron ! a ! c))) vp ;