(Pes) Add comparative

src/persian/AdjectivePes.gf

@@ -3,23 +3,23 @@ concrete AdjectivePes of Adjective = CatPes ** open ResPes, Prelude in {
   flags coding = utf8;
   lin
 
-  PositA a = a ;
- 	UseComparA a = a ;
+  PositA a = a ** {s = a.s ! Positive} ;
+ 	UseComparA a = a ** {s = a.s ! Comparative} ;
 
   ComparA a np = a ** {
-    s = \\m => a.s ! m ++ "تر" ++ "از" ++ np2str np ;
+    s = \\m => a.s ! Comparative ! m ++ "تر" ++ "از" ++ np2str np ;
     adv = a.adv ++ "تر" ++ "از" ++ np2str np ;
     } ;
 
 ---- $SuperlA$ belongs to determiner syntax in $Noun$.
 
   ComplA2 a np = a ** {
-    s = \\m => a.c2 ++ np2str np ++ a.s ! m ;
+    s = \\m => a.c2 ++ np2str np ++ a.s ! Positive ! m ;
     adv = np2str np ++ a.c2 ++ a.adv
     } ;
 
   ReflA2 a = a ** {
-    s = \\m => a.s ! m ++ reflPron ! defaultAgr ! Bare ; ---- need to be fixed
+    s = \\m => a.s ! Positive ! m ++ reflPron ! defaultAgr ! Bare ; ---- s needs to be an inflection table from Agr to string, to choose the right reflexive pronoun
     adv = a.adv ++ reflPron ! defaultAgr ! Bare
     } ;
 
@@ -33,7 +33,7 @@ concrete AdjectivePes of Adjective = CatPes ** open ResPes, Prelude in {
     adv = ada.s ++ ap.adv ;
     } ;
 
-  UseA2 a = a ;
+  UseA2 = PositA ;
 
   CAdvAP cadv ap np = ap ** {
     s = \\m => cadv.s ++ np2str np ++ ap.s ! m ;