(Pes) Add object clitics to verb phrases

Co-Authored-By: Nasrin M <Nasrin63@users.noreply.github.com>

src/persian/NounPes.gf

@@ -21,7 +21,13 @@ concrete NounPes of Noun = CatPes ** open ResPes, Prelude in {
       } ;
 
     UsePN pn = emptyNP ** pn ** {s = \\_ => pn.s} ;
-    UsePron p = emptyNP ** p ** {s = \\_ => p.s ; animacy = Animate} ;
+    UsePron p = emptyNP ** p ** {
+       s = \\_ => p.s ;
+       clitic = p.ps ;
+       isClitic = case p.a of {
+                  Ag Sg P3 => True ;
+                  _ => False } ;
+       animacy = Animate} ;
 
     PredetNP pred np = np ** {
       s = \\ez => pred.s ++ np.s ! ez
@@ -72,6 +78,7 @@ concrete NounPes of Noun = CatPes ** open ResPes, Prelude in {
       a = agrP3 det.n ;
       hasAdj = False ;
       animacy = Inanimate ;
+      --TODO: isClitic, clitic
       relpron = Ance -- TODO check if this works for all Dets
       } ;
 
@@ -132,7 +139,7 @@ concrete NounPes of Noun = CatPes ** open ResPes, Prelude in {
 
     AdjCN ap cn = cn ** {
       s = \\n,m => case ap.isPre of {
-              True  => ap.s ! Bare ++ cn.s ! n ! m ; -- TODO check mod of ap
+              True  => ap.s ! Bare ++ cn.s ! n ! m ;
               False => cn.s ! n ! Ezafe ++ ap.s ! m } ;
       hasAdj = True
      } ;