msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests 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

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

@@ -693,6 +693,22 @@ resource ResGer = ParamX ** open Prelude in {
} }
} ; } ;
{-
-- tests 27/5/2012
ich bin nicht alt
ich bin nicht hier
ich kenne dich nicht
ich kenne deine Frau nicht
ich bin nicht ein Kind / ich bin kein Kind (via no_Quant)
ich schlafe nicht hier
ich sage nicht, dass es regnet
ich male es nicht blau
ich schlafe nicht immer
ich kenne dich nicht immer
ich kann nicht schlafen
es wird nicht besser
-}
infVP : Bool -> VP -> ((Agr => Str) * Str * Str * Str) = \isAux, vp -> let vps = useVP vp in infVP : Bool -> VP -> ((Agr => Str) * Str * Str * Str) = \isAux, vp -> let vps = useVP vp in
< <

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

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