mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-07-01 11:38:34 -06:00
implement subject control for V2V and V2A verbs
This commit is contained in:
@@ -125,17 +125,23 @@ oper
|
||||
|
||||
mkV2S : V -> Prep -> Prep -> V2S ;
|
||||
mkV2S v p t = prepV2 v p ** {c3 = t ; lock_V2S = <>} ;
|
||||
|
||||
|
||||
mkV2V : V -> Prep -> Prep -> V2V ;
|
||||
mkV2V v p t = prepV2 v p ** {c3 = t ; lock_V2V = <>} ;
|
||||
mkV2V v p t = prepV2 v p ** {c3 = t ; subjCtrl = False ; lock_V2V = <>} ;
|
||||
|
||||
subjCtrlV2V : V -> Prep -> Prep -> V2V ;
|
||||
subjCtrlV2V v p t = prepV2 v p ** {c3 = t ; subjCtrl = True ; lock_V2V = <>} ;
|
||||
|
||||
mkV2A = overload {
|
||||
mkV2A : V -> Prep -> V2A
|
||||
= \v, p -> prepV2 v p ** {c3 = noPrep ; lock_V2A = <>} ;
|
||||
= \v, p -> prepV2 v p ** {c3 = noPrep ; subjCtrl = False ; lock_V2A = <>} ;
|
||||
|
||||
mkV2A : V -> Prep -> Prep -> V2A
|
||||
= \v, p, t -> prepV2 v p ** {c3 = t ; lock_V2A = <>} ;
|
||||
= \v, p, t -> prepV2 v p ** {c3 = t ; subjCtrl = False ; lock_V2A = <>} ;
|
||||
} ;
|
||||
|
||||
subjCtrlV2A : V -> Prep -> Prep -> V2A
|
||||
= \v, p, t -> prepV2 v p ** {c3 = t ; subjCtrl = True ; lock_V2A = <>} ;
|
||||
|
||||
mkV2Q : V -> Prep -> Prep -> V2Q ;
|
||||
mkV2Q v p t = prepV2 v p ** {c3 = t ; lock_V2Q = <>} ;
|
||||
|
||||
Reference in New Issue
Block a user