imppol for malay

src/malay/ParamMay.gf

@@ -142,6 +142,7 @@ param
   VForm =
       Root  -- infinitive, imperative, …
     | Active
+    | Imperative
     ;
 
  Prefix =

src/malay/PhraseMay.gf

@@ -9,6 +9,7 @@ concrete PhraseMay of Phrase = CatMay ** open Prelude, ResMay in {
     UttNP np = {s = np.s ! Bare} ;
     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} ;
 {-
     UttImpSg pol imp =
     UttImpPl pol imp =

src/malay/ResMay.gf

@@ -224,7 +224,8 @@ oper
   mkVerb : Str -> Prefix -> Verb = \str,p -> {
     s = table {
       Root => str ;
-      Active => prefix p str
+      Active => prefix p str ;
+      Imperative => str ++ BIND ++ "kan"
       }
     } ;
 

src/malay/SentenceMay.gf

@@ -29,8 +29,8 @@ lin
   -- : VP -> Imp ;
   ImpVP vp = {
     s = \\num,pol => case pol of {
-      Neg => "jangan" ++ vp.s ! Root ! Pos;
+      Neg => "jangan" ++ vp.s ! Imperative ! Pos;
-      Pos => vp.s ! Root ! Pos
+      Pos => vp.s ! Imperative ! Pos
     }
   } ;
 

src/malay/unittest/verbal_affixes.gftest

@@ -113,5 +113,9 @@ LangMay: buka 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
+
+Lang: UttImpPol PPos (ImpVP (ComplSlash (SlashV2a open_V2) (DetCN (DetQuant DefArt NumSg) (UseN door_N))))
+LangEng: open the door
+LangMay: bukakan pintu
 ----------------------------------------
 -- Questions