1
0
forked from GitHub/gf-rgl

added ExtAdvVP, AdvVPSlash, AdVVPSlash

This commit is contained in:
Krasimir Angelov
2024-07-24 08:23:29 +02:00
parent 4f05d5629b
commit 9b12c13057

View File

@@ -95,10 +95,22 @@ concrete VerbTur of Verb = CatTur ** open Prelude, ResTur, SuffixTur, HarmonyTur
compl = vp.compl ++ adv.s ;
} ;
ExtAdvVP vp adv = vp ** {
compl = vp.compl ++ adv.s ;
} ;
AdVVP adv vp = vp ** {
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 {} ;
oper