add extra functions to get VPS to work

This commit is contained in:
Meowyam
2022-05-11 11:30:34 +08:00
parent 2418e8cfcf
commit 967a8fb8a1
5 changed files with 21 additions and 5 deletions
+1
View File
@@ -10,6 +10,7 @@ concrete PhraseMay of Phrase = CatMay ** open Prelude, ResMay in {
UttIP ip = {s = ip.sp ! NF Sg Bare} ;
UttImpSg pol imp = { s = pol.s ++ imp.s ! Sg ! pol.p } ;
UttImpPol pol imp = {s = pol.s ++ imp.s ! Sg ! pol.p} ;
UttVP vp = {s = vp.s ! Active ! Pos} ;
{-
UttImpSg pol imp =
UttImpPl pol imp =