(Pes) Add {Base,Cons,Conj}CN

src/persian/ConjunctionPes.gf

@@ -35,11 +35,25 @@ concrete ConjunctionPes of Conjunction =
     BaseAP x y = y ** twoTable Mod x y ;
     ConsAP xs x = xs ** consrTable Mod comma xs x ; -- Table3 Number Gender Case comma xs x ;-- ** {isPre = andB xs.isPre x.isPre} ;
 
+    BaseCN cn1 cn2  = leanCN cn1 ** twoTable2 Number Mod (leanCN cn1) (leanCN cn2) ;
+    ConsCN cn cns   = leanCN cn ** consrTable2 Number Mod comma (leanCN cn) cns ;
+    ConjCN conj cns = cns ** conjunctDistrTable2 Number Mod conj cns ;
+
   lincat
     [S] = {s1,s2 : VVForm => Str} ;
     [Adv] = {s1,s2 : Str} ;
     [NP] = {s1,s2 : Mod => Str} ** BaseNP ;
+    [CN] = {s1,s2 : Number => Mod => Str ;
+            animacy : Animacy ;
+            isCmpd : CmpdStatus;
+            hasAdj : Bool ;
+            compl : Number => Str} ;
     [AP] = {s1,s2 : Mod => Str ; adv : Str ; isPre : Bool} ;
     [RS] = {s1,s2 : Agr => Str ; rp : RelPron => Str} ;
 
+oper
+  leanCN : CN -> CN = \cn -> cn ** {
+    compl = \\n => [] ;
+    s = \\n,m => cn.s ! n ! m ++ cn.compl ! n ;
+    } ;
 }