mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-20 00:22:51 -06:00
VV and VS constructors added.
This commit is contained in:
@@ -199,6 +199,15 @@ oper
|
|||||||
|
|
||||||
mkV3 : V -> Str -> Case -> Str -> Case -> V3 ; -- geben,[],dative,[],accusative
|
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
|
--2 Adverbials
|
||||||
--
|
--
|
||||||
@@ -311,6 +320,10 @@ oper
|
|||||||
tvDirReg = \v -> tvReg v [] accusative ;
|
tvDirReg = \v -> tvReg v [] accusative ;
|
||||||
mkV3 v s c t d = mkDitransVerb v s c t d ** {lock_V3 = <>} ;
|
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 = <>} ;
|
mkAdV a = ss a ** {lock_AdV = <>} ;
|
||||||
mkPP x y = PrepNP {s = y ; c = x ; lock_Prep = <>} ;
|
mkPP x y = PrepNP {s = y ; c = x ; lock_Prep = <>} ;
|
||||||
mkAdA a = ss a ** {lock_AdA = <>} ;
|
mkAdA a = ss a ** {lock_AdA = <>} ;
|
||||||
|
|||||||
Reference in New Issue
Block a user