completing Idiom implementations

2006-02-21 11:09:30 +00:00
parent 29aa2b8499
commit 0365c6f346
13 changed files with 101 additions and 10 deletions
--- a/lib/resource-1.0/german/IdiomGer.gf
+++ b/lib/resource-1.0/german/IdiomGer.gf
@@ -3,5 +3,17 @@ concrete IdiomGer of Idiom = CatGer **

  flags optimize=all_subs ;

+  lin
+    ExistNP np = 
+      let geben = dirV2 (mkV "geben" "gibt" "gib" "gab" "gäbe" "gegeben")
+      in
+      mkClause "es" (agrP3 Sg) 
+        (insertObj (\\_ => appPrep geben.c2 np.s) 
+          (predV geben)) ;
+    ImpersCl vp = mkClause "es" (agrP3 Sg) vp ;
+    GenericCl vp = mkClause "man" (agrP3 Sg) vp ;
+
+    ProgrVP = insertAdv "eben" ; ----
+
 }