Exist with Adv in German, also wie viel

2026-05-13 05:02:50 -06:00 · 2012-12-07 13:44:51 +00:00
parent 40d9c5bfdf
commit 014e622663
2 changed files with 18 additions and 1 deletions
--- a/lib/src/german/IdiomGer.gf
+++ b/lib/src/german/IdiomGer.gf
@@ -33,6 +33,23 @@ concrete IdiomGer of Idiom = CatGer **
              }
      } ;

+    ExistNPAdv np adv= 
+      mkClause "es" (agrP3 Sg) 
+        (insertAdv adv.s (insertObj (\\_ => appPrep geben.c2 np.s) 
+          (predV geben))) ;
+
+    ExistIPAdv ip adv = {
+      s = \\m,t,a,p => 
+            let 
+              cls = 
+                (mkClause "es" (agrP3 Sg)  (insertAdv adv.s (predV geben))).s ! m ! t ! a ! p ;
+              who = ip.s ! Acc
+            in table {
+              QDir   => who ++ cls ! Inv ;
+              QIndir => who ++ cls ! Sub
+              }
+      } ;
+
    ProgrVP = insertAdv "eben" ; ----

    ImpPl1 vp = {s =