basic imperatif

src/malay/LexiconMay.gf

@@ -94,7 +94,7 @@ lin come_V = mkV "datang" ;
 -- lin do_V2 = lin V2 egin_V ;
 -- lin doctor_N = mkN "" ;
 lin dog_N = mkN "anjing" ;
--- lin door_N = mkN "" ;
+lin door_N = mkN "pintu" ;
 lin drink_V2 = let drink' : V2 = mkV2 "minum" in drink' ** {
   s = \\_ => "minum" ;
 };
@@ -263,7 +263,7 @@ lin now_Adv = mkAdv "sekarang" ;
 
 -- lin oil_N = mkN "" ;
 lin old_A = mkA "tua" ;
--- lin open_V2 = mkV2 "" ;
+lin open_V2 = mkV2 "buka" ;
 lin paint_V2A = mkV2 "cat" ;
 -- lin paper_N = mkN "" ;
 -- lin paris_PN = mkPN "Paris" ;
@@ -422,7 +422,7 @@ lin woman_N = mkN "perempuan" ;
 -- lin wonder_VQ = mkVQ "" ;
 -- lin wood_N = mkN "" ;
 -- lin worm_N = mkN "" ;
--- lin write_V2 = mkV2 "" ;
+lin write_V2 = mkV2 "tulis" ;
 -- lin year_N = mkN "" ;
 -- lin yellow_A = mkA "" ;
 lin young_A = mkA "muda" ;

src/malay/PhraseMay.gf

@@ -8,6 +8,7 @@ concrete PhraseMay of Phrase = CatMay ** open Prelude, ResMay in {
     UttIAdv iadv = iadv ;
     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 } ;
 {-
     UttImpSg pol imp =
     UttImpPl pol imp =

src/malay/ResMay.gf

@@ -275,6 +275,7 @@ oper
     s = \\vf,pol => nounneg pol ++ s ;
     } ;
 
+-- https://www.reddit.com/r/indonesian/comments/gsizsv/when_to_use_tidak_bukan_jangan_belum/
 
   verbneg : Polarity -> Str = \pol -> case pol of {
     Neg => "tidak" ; -- or "tak"?
@@ -285,6 +286,11 @@ oper
     Neg => "bukan" ;
     Pos => []
     } ;
+
+  impneg : Polarity -> Str = \pol -> case pol of {
+    Neg => "jangan" ;
+    Pos => []
+  } ;
 --------------------------------------------------------------------------------
 -- Cl, S
 

src/malay/SentenceMay.gf

@@ -24,6 +24,13 @@ lin
   -- : Cl -> Prep -> ClSlash ;         -- (with whom) he walks
   SlashPrep cl prep = cl ** {c2 = prep} ;
 
+
+--2 Imperatives
+  -- : VP -> Imp ;
+  ImpVP vp = {
+    s = \\num,pol => vp.s ! Root ! pol
+  } ;
+
  {-
   -- : NP -> VS -> SSlash -> ClSlash ; -- (whom) she says that he loves
   SlashVS np vs ss = {} ;
@@ -34,7 +41,7 @@ lin
 
 --2 Imperatives
   -- : VP -> Imp ;
-  ImpVP vp = {s = \\num,pol => linVP (VImp num pol) Statement vp} ;
+  -- ImpVP vp = {s = \\num,pol => linVP (VImp num pol) Statement vp} ;
 
 --2 Embedded sentences
 

src/malay/unittest/verbal_affixes.gftest

@@ -106,6 +106,8 @@ LangMay: sekiranya tidak hujan sekarang , aku akan berjalan
 ----------------------------------------
 -- Imperative
 
-
+Lang: UttImpSg PPos (ImpVP (ComplSlash (SlashV2a open_V2) (DetCN (DetQuant DefArt NumSg) (UseN door_N))))
+LangEng: open the door
+LangMay: buka pintu
 ----------------------------------------
 -- Questions