add PassAgentVPSlash to May

src/malay/VerbMay.gf

@@ -1,4 +1,4 @@
-concrete VerbMay of Verb = CatMay ** open ResMay, AdverbMay, Prelude in {
+concrete VerbMay of Verb = CatMay ** open ResMay, AdverbMay, StructuralMay, Prelude in {
 
 
 lin
@@ -72,11 +72,11 @@ lin
   } ;
 
   -- : V2V -> VP -> VPSlash ;  -- beg (her) to go
-  SlashV2V v2 vp = vp ** useV {
-     s = \\vf => v2.s ! vf ++ (linVP vp);
+  SlashV2V v2 vp = useV {
+     s = \\vf => v2.s ! vf ++ for_Prep.s ++ vp.s ! Root ! Pos;
   } ** {
     c2 = v2.c2;
-    adjCompl = [] ;
+    adjCompl = [];
   } ;
 
 
@@ -86,6 +86,11 @@ lin
     adjCompl = "yang" ++ s.s ; -- TODO check /Inari
   } ;
 
+  -- : V2Q -> QS -> VPSlash ;  -- ask (him) who came
+  -- SlashV2Q v2q qs = useV v2q ** {
+  --   s =
+  -- };
+
 
  {-
   -- : V2S -> S  -> VPSlash ;  -- answer (to him) that it is good
@@ -102,12 +107,9 @@ lin
   -- : VPSlash -> NP -> VP
   ComplSlash vps np = vps ** {
     s = \\vf,pol =>
-      vps.s ! vf ! pol
-      ++ applyPrep vps.c2 np ++ vps.adjCompl
-    -- s = \\vf,pol => vps.s ! vf ! pol ++ applyPrep vps.c2 np
+      vps.s ! vf ! pol ++ vps.adjCompl ++ applyPrep vps.c2 np
     } ;
 
-
   -- : VV  -> VPSlash -> VPSlash ;
   SlashVV vv vps = ComplVV vv vps ** {
     c2 = vps.c2 ; -- like ComplVV except missing object
@@ -141,7 +143,12 @@ lin
   AdVVPSlash adv vps = vps ** { adv = adv.s ++ vps.adv } ;
 -}
   -- : VP -> Prep -> VPSlash ;  -- live in (it)
-  -- VPSlashPrep vp prep = vp ** {c2 = prep} ;
+  VPSlashPrep vp prep = vp ** {
+    s = \\vf,pol => vp.s ! vf ! pol ;
+    } ** {
+      c2 = prep ;
+      adjCompl =[] ;
+    } ;
 
 
 --2 Complements to copula