(Pes) misc small fixes and additions

Co-Authored-By: Nasrin Mostofian <nasrin.mostofian@gmail.com>

src/persian/LexiconPes.gf

@@ -215,7 +215,7 @@ concrete LexiconPes of Lexicon = CatPes **
   woman_N = mkN02 "زن" animate;
   wonder_VQ = compoundV "متعجب" beVerb ;
   wood_N = mkN01 "چوب" inanimate;
-  write_V2 = mkV2 (mkV "نوشتن" "نویس") "را" ;
+  write_V2 = mkV2 (mkV "نوشتن" "نویس") ; -- would need ra with a definite object, but better rule of thumb to go without ra /NM
   yellow_A = mkA "زرد" ;
   young_A = mkA "جوان""جوانانه" ;
   do_V2 = mkV2 (compoundV "انجام" giveVerb) "را";

src/persian/ResPes.gf

@@ -131,11 +131,13 @@ oper
    predVc : (Verb ** {c2 : Compl}) -> VPHSlash = \verb ->
     predV verb ** vs verb.c2 ;
 
-  passV : Verb -> VPH = \v -> predV v ** {
+  passV : Verb -> VPH = \v -> passVP (predV v) ;
+
+  passVP : VPH -> VPH = \vp -> vp ** {
     s = becomeVerb.s ;
-    prefix = case v.passive of {
-                    Add => v.s ! PerfStem ++ v.prefix ;
-                    Replace => v.prefix
+    prefix = case vp.passive of {
+                    Add => vp.s ! PerfStem ++ vp.prefix ;
+                    Replace => vp.prefix
              } ;
   } ;
 -- ---------------------

src/persian/StructuralPes.gf

@@ -26,7 +26,7 @@ concrete StructuralPes of Structural = CatPes **
   either7or_DConj = sd2 "یا" "یا" ** {n = Sg} ;
 --  everybody_NP =  R.indeclNP "هر کwی";
   every_Det = mkDet "هر" Sg ;
---  everything_NP = R.indeclNP ["هر XE"]));
+  everything_NP = DetCN (mkDet "همه" Sg) (UseN (mkN "چیز")) ;
   everywhere_Adv = ss ["هر جا"] ;
   few_Det = mkDet ["تعداد کمی"] Pl True; -- check
   for_Prep = mkPrep "برای" Ezafe ;

src/persian/SymbolPes.gf

@@ -24,8 +24,8 @@ concrete SymbolPes of Symbol = CatPes ** open Prelude, ResPes in {
     } ;
 
   SymbS sy = {s = \\_ => sy.s} ;
-  SymbNum sy = { s = sy.s ; n = Pl } ;
-  SymbOrd sy = { s = sy.s ++ "wN" ; n = Pl; isNum,isPre=False} ;
+  SymbNum sy = {s = sy.s ; n = Pl} ;
+  SymbOrd sy = {s = sy.s ; n = Sg ; isNum,isPre=False} ;
 
 lincat