From 5ed93e6a03ff63cb0666c7c67668f2e082ac6493 Mon Sep 17 00:00:00 2001
From: Meowyam <maryam@chilon.net>
Date: Thu, 23 Feb 2023 15:27:56 +0800
Subject: [PATCH] add mkV2V is str and v prep prep

---
 src/malay/ParadigmsMay.gf | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/src/malay/ParadigmsMay.gf b/src/malay/ParadigmsMay.gf
index 783114145..c406cc584 100644
--- a/src/malay/ParadigmsMay.gf
+++ b/src/malay/ParadigmsMay.gf
@@ -57,10 +57,15 @@ oper
   mkVS : overload {
     mkVS : V -> VS ;
   } ;
-  --
+
   mkVA : overload {
     mkVA : V -> VA ;
   } ;
+
+  mkV2V : overload {
+    mkV2V : Str -> V2V ;
+    mkV2V : V -> Prep -> Prep -> V2V ;
+  } ;
   -- mkVQ : Str -> VQ
   --   = \s -> lin VQ (regV s) ;
 
@@ -170,6 +175,15 @@ oper
   mkVA = overload {
     mkVA : V -> VA = \v -> lin VA (v)
     } ;
+
+  mkV2V = overload {
+    mkV2V : Str -> V2V = \v -> lin V2V (mkVerb2 (mkVerb v Meng) dirPrep) ;
+    mkV2V : V -> Prep -> Prep -> V2V = \v,p1,p2 -> lin V2V (mkVerb3 v p1 p2)
+  } ;
+--   lin like_V2 = let like' : V2 = mkV2 "suka" in like' ** {
+--   s = \\_ => "suka" ;
+--   passive = "disukai" ;
+-- } ;
 --------------------------------------------------------------------------------
 
 }