From 9b675c308ef49e45721da575710023eebcc0390e Mon Sep 17 00:00:00 2001
From: Meowyam <maryam@chilon.net>
Date: Tue, 23 Jan 2024 16:46:50 +0800
Subject: [PATCH] UttImp, polite and non-polite forms for Malay

---
 src/malay/PhraseMay.gf                   | 2 +-
 src/malay/ResMay.gf                      | 4 ++--
 src/malay/unittest/verbal_affixes.gftest | 6 +++---
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/malay/PhraseMay.gf b/src/malay/PhraseMay.gf
index 0209f32f..6bba6689 100644
--- a/src/malay/PhraseMay.gf
+++ b/src/malay/PhraseMay.gf
@@ -9,7 +9,7 @@ concrete PhraseMay of Phrase = CatMay ** open Prelude, ResMay in {
     UttNP np = {s = np.s ! Bare} ;
     UttIP ip = {s = ip.s ! Bare} ;
     UttImpSg pol imp = {s = pol.s ++ imp.s ! Sg ! pol.p } ;
-    UttImpPol pol imp = {s = pol.s ++ imp.s ! Sg ! pol.p} ;
+    UttImpPol pol imp = {s = "tolong" ++ pol.s ++ imp.s ! Sg ! pol.p} ;
     UttImpPl pol imp = {s = pol.s ++ imp.s ! Pl ! pol.p} ;
     UttVP vp = {s = linVP vp} ;
     UttAP ap = {s = ap.s} ;
diff --git a/src/malay/ResMay.gf b/src/malay/ResMay.gf
index 65863162..3a4d6067 100644
--- a/src/malay/ResMay.gf
+++ b/src/malay/ResMay.gf
@@ -230,7 +230,7 @@ oper
 --  VV : Type = Verb ** {vvtype : VVForm} ;
 
   regVerb : Str -> Prefix -> Verb = \str,p ->
-    mkVerb str (prefix p str) ("di" + str) (str + "kan") ;
+    mkVerb str (prefix p str) ("di" + str) (str ++ BIND ++ "kan") ;
 
   mkVerb : (makan, memakan, dimakan, makankan : Str) -> Verb = \rt,act,pass,imp -> {
     s = table {
@@ -251,7 +251,7 @@ oper
   mkVerb4 : Verb -> Preposition -> Str -> Verb4 = \v,pr,str -> v ** {
     s = \\_ => v.s ! Active ++ str;
     c2 = pr ;
-    passive = "di" ++ BIND ++ v.s ! Root ++ str
+    -- passive = "di" ++ BIND ++ v.s ! Root ++ str
     } ;
 
   copula : Verb = {s = \\_ => "ada"} ; -- TODO
diff --git a/src/malay/unittest/verbal_affixes.gftest b/src/malay/unittest/verbal_affixes.gftest
index 26e1c5df..d9e17d4d 100644
--- a/src/malay/unittest/verbal_affixes.gftest
+++ b/src/malay/unittest/verbal_affixes.gftest
@@ -108,14 +108,14 @@ LangMay: sekiranya tidak hujan sekarang , aku akan berjalan
 
 Lang: UttImpSg PPos (ImpVP (ComplSlash (SlashV2a open_V2) (DetCN (DetQuant DefArt NumSg) (UseN door_N))))
 LangEng: open the door
-LangMay: buka pintu
+LangMay: bukakan pintu
 
 Lang: UttImpSg PNeg (ImpVP (ComplSlash (SlashV2a open_V2) (DetCN (DetQuant DefArt NumSg) (UseN door_N))))
 LangEng: don't open the door
-LangMay: jangan buka pintu
+LangMay: jangan bukakan pintu
 
 Lang: UttImpPol PPos (ImpVP (ComplSlash (SlashV2a open_V2) (DetCN (DetQuant DefArt NumSg) (UseN door_N))))
 LangEng: open the door
-LangMay: bukakan pintu
+LangMay: tolong bukakan pintu
 ----------------------------------------
 -- Questions