more fine-grained place of German negation

2013-03-07 20:47:21 +00:00
parent 988d5970d6
commit 949d03f90b
2 changed files with 9 additions and 1 deletions
--- a/lib/src/german/ResGer.gf
+++ b/lib/src/german/ResGer.gf
@@ -606,6 +606,14 @@ resource ResGer = ParamX ** open Prelude in {
    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 -> {
    s = vp.s ;
    a1 = \\a => adv ++ vp.a1 ! a ; -- immer nicht