From fdcd0e16d7cab4512f72a854e64b2baceba11c1f Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Mon, 23 Feb 2004 11:37:22 +0000
Subject: [PATCH] VV and VS constructors added.

---
 lib/resource-0.6/german/ParadigmsGer.gf | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/lib/resource-0.6/german/ParadigmsGer.gf b/lib/resource-0.6/german/ParadigmsGer.gf
index fecaf7ce2..a596ca3a8 100644
--- a/lib/resource-0.6/german/ParadigmsGer.gf
+++ b/lib/resource-0.6/german/ParadigmsGer.gf
@@ -199,6 +199,15 @@ oper
 
   mkV3 : V -> Str -> Case -> Str -> Case -> V3 ;  -- geben,[],dative,[],accusative
 
+-- Sentence-complement verbs are just verbs.
+
+  mkVS : V -> VS ;
+
+-- Verb-complement verbs either need the "zu" particle or don't.
+-- The ones that don't are usually auxiliary verbs.
+
+  vsAux : V -> VV ;
+  vsZu  : V -> VV ;
 
 --2 Adverbials
 --
@@ -311,6 +320,10 @@ oper
   tvDirReg = \v -> tvReg v [] accusative ; 
   mkV3 v s c t d = mkDitransVerb v s c t d ** {lock_V3 = <>} ;
 
+  mkVS v = v ** {lock_VS = <>} ;
+  vsAux v = v ** {isAux = True ; lock_VV = <>} ; 
+  vsZu v = v ** {isAux = True ; lock_VV = <>} ; 
+
   mkAdV a = ss a ** {lock_AdV = <>} ;
   mkPP x y = PrepNP {s = y ; c = x ; lock_Prep = <>} ;
   mkAdA a = ss a ** {lock_AdA = <>} ;