negative imperative

src/malay/SentenceMay.gf

@@ -28,7 +28,10 @@ lin
 --2 Imperatives
   -- : VP -> Imp ;
   ImpVP vp = {
-    s = \\num,pol => vp.s ! Root ! pol
+    s = \\num,pol => case pol of {
+      Neg => "jangan" ++ vp.s ! Root ! Pos;
+      Pos => vp.s ! Root ! Pos
+    }
   } ;
 
  {-

src/malay/unittest/verbal_affixes.gftest

@@ -109,5 +109,9 @@ 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
+
+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
 ----------------------------------------
 -- Questions