forked from GitHub/gf-rgl
added ExtAdvVP, AdvVPSlash, AdVVPSlash
This commit is contained in:
@@ -95,10 +95,22 @@ concrete VerbTur of Verb = CatTur ** open Prelude, ResTur, SuffixTur, HarmonyTur
|
|||||||
compl = vp.compl ++ adv.s ;
|
compl = vp.compl ++ adv.s ;
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
ExtAdvVP vp adv = vp ** {
|
||||||
|
compl = vp.compl ++ adv.s ;
|
||||||
|
} ;
|
||||||
|
|
||||||
AdVVP adv vp = vp ** {
|
AdVVP adv vp = vp ** {
|
||||||
s = \\vf => adv.s ++ vp.s ! vf ;
|
s = \\vf => adv.s ++ vp.s ! vf ;
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
|
AdvVPSlash vp adv = vp ** {
|
||||||
|
compl = vp.compl ++ adv.s ;
|
||||||
|
} ;
|
||||||
|
|
||||||
|
AdVVPSlash adv vp = vp ** {
|
||||||
|
compl = vp.compl ++ adv.s ;
|
||||||
|
} ;
|
||||||
|
|
||||||
PassV2 = variants {} ;
|
PassV2 = variants {} ;
|
||||||
|
|
||||||
oper
|
oper
|
||||||
|
|||||||
Reference in New Issue
Block a user