Merge pull request #241 from inariksit/persian

Persian: small fixes

src/persian/LexiconPes.gf

@@ -89,7 +89,7 @@ concrete LexiconPes of Lexicon = CatPes **
   girl_N = mkN02 "دختر" animate;
   glove_N = mkN01 "دستکش" inanimate;
   gold_N = mkN01 "طلا" inanimate;
-  good_A = mkA "خوب" ;
+  good_A = mkA "خوب" "بهتر" "خوب" ;
   go_V = mkV "رفتن" "رو";
   green_A = mkA "سبز" ;
   harbour_N = mkN "بندر" "بنادر" inanimate;

src/persian/ParadigmsPes.gf

@@ -323,9 +323,7 @@ oper
 
   mkA = overload {
     mkA : Str -> A -- Regular adjective, same adj and adv forms.
-       = \str -> lin A (case str of {
-          _ + " " + _ => mkAdj str str str ;
-          _           => mkAdj str str }) ;
+       = \str -> lin A (mkAdj str str) ;
     mkA : Str-> Str -> A -- Takes adj and adv forms
        = \str,adv -> lin A (mkAdj str adv);
     mkA : (pos,compar,adv : Str) -> A -- positive, comparative and adverb
@@ -334,6 +332,10 @@ oper
       = \a,c -> lin A2 (mkAdj a a ** {c2 = c})
    } ;
 
+  -- Mostly for things that are not really adjectives, like adverbials /IL
+  invarA : Str -> A = \str ->
+    lin A (<mkAdj str str : Adjective> ** {s = \\_,_ => str}) ;
+
    prefixA a = a ** {isPre=True};
 
    preA : (adj,adv : Str) -> A = \adj,adv ->

src/persian/StructuralPes.gf

@@ -21,7 +21,7 @@ concrete StructuralPes of Structural = CatPes **
   by8agent_Prep = mkPrep "توسط" ;
   by8means_Prep = mkPrep "با" ;
 --  can8know_VV,can_VV = mkVV (mkV "سکن") ;
-  can_VV = mkVV (mkV_1 "توانستن") ; ---- AR
+  can_VV = let isAux = False in mkVV isAux subjunctive (mkV_1 "توانستن") ; ---- AR
   during_Prep = mkPrep ["در طول"] ;
   either7or_DConj = sd2 "یا" "یا" ** {n = Sg} ;
 --  everybody_NP =  R.indeclNP "هر کwی";