(May) Conditional + new tests

src/malay/AdverbMay.gf

@@ -20,11 +20,12 @@ lin
 -- Like adverbs, adadjectives can be produced by adjectives.
 
   -- : A -> AdA ;                 -- extremely
---  PositAdAAdj a = { } ;
--- Subordinate clauses can function as adverbs.
+  --  PositAdAAdj a = { } ;
+
+  -- Subordinate clauses can function as adverbs.
 
   -- : Subj -> S -> Adv ;
-  -- SubjS subj s =
+  SubjS subj s = {s = subj.s ++ s.s} ;
 
 -- Comparison adverbs also work as numeral adverbs.
 

src/malay/GrammarMay.gf

@@ -12,13 +12,14 @@ concrete GrammarMay of Grammar =
   TextX,
   StructuralMay,
   IdiomMay,
-  TenseX - [AAnter, TFut]
+  TenseX - [AAnter, TFut, TCond]
   ** open ParamX in {
 
   flags startcat = Phr ;
 
   lin
     AAnter = {s = "sudah" ; a = ParamX.Anter} ;
-    TFut  = {s = "akan" ; t = ParamX.Fut} ;
+    TFut   = {s = "akan" ; t = ParamX.Fut} ;
+    TCond  = {s = "akan" ; t = ParamX.Cond} ;
 
 } ;

src/malay/StructuralMay.gf

@@ -138,9 +138,9 @@ lin they_Pron = mkPron "mereka" P3 ;
 
 -- lin although_Subj =
 -- lin because_Subj =
--- lin if_Subj =
+lin if_Subj = ss "sekiranya" ;
 -- lin that_Subj =
--- lin when_Subj =
+lin when_Subj = ss "kalau" ;
 
 
 ------

src/malay/unittest/tenses.gftest

@@ -1,3 +1,6 @@
+-------------
+-- Basics
+
 Lang: UseCl (TTAnt TPres AAnter) PPos (PredVP (DetCN (DetQuant DefArt NumSg) (UseN cat_N)) (UseV walk_V))
 LangEng: the cat has walked
 LangMay: kucing sudah berjalan
@@ -9,3 +12,14 @@ LangMay: kucing berjalan
 Lang: UseCl (TTAnt TFut ASimul) PPos (PredVP (DetCN (DetQuant DefArt NumSg) (UseN cat_N)) (UseV walk_V))
 LangEng: the cat will walk
 LangMay: kucing akan berjalan
+
+-------------
+-- Conditions
+
+Lang: ExtAdvS (SubjS if_Subj (UseCl (TTAnt TPast ASimul) PPos (PredVP (UsePron i_Pron) (UseV walk_V)))) (UseCl (TTAnt TCond ASimul) PPos (PredVP (DetCN (DetQuant DefArt NumSg) (UseN cat_N)) (UseV walk_V)))
+LangEng: if I walked , the cat would walk
+LangMay: sekiranya saya berjalan , kucing akan berjalan
+
+Lang: ExtAdvS (SubjS when_Subj (UseCl (TTAnt TPres ASimul) PPos (PredVP (UsePron i_Pron) (UseV walk_V)))) (UseCl (TTAnt TFut ASimul) PPos (PredVP (DetCN (DetQuant DefArt NumSg) (UseN cat_N)) (UseV walk_V)))
+LangEng: when I walk , the cat will walk
+LangMay: kalau saya berjalan , kucing akan berjalan