CompCN added to Ger Fin Dut Rus Pol

lib/src/polish/ResPol.gf

@@ -221,6 +221,12 @@
 -- possible problem: dzieci ,ktorych piecioro bawilo sie... / okna, ktorych piec stalo opartych o sciane...
   param GenNum = MascPersSg | MascAniSg | MascInaniSg | FemSg | NeutSg | MascPersPl | OthersPl;
 
+  --- AR 7/12/2010 for VerbPol.CompCN
+  oper numGenNum : GenNum -> Number = \n -> case n of {
+    MascPersPl | OthersPl => Pl ;
+    _ => Sg
+    } ;
+
   param MaybeGenNum = NoGenNum | JustGenNum GenNum;
 
   oper

lib/src/polish/VerbPol.gf

@@ -40,6 +40,8 @@ lin
 --     CompAP   : AP  -> Comp ;            -- (be) small
     CompAP ap = { s = \\gn => ap.s ! AF gn Nom };
 
+    CompCN cn = { s = \\gn => cn.s ! numGenNum gn ! Nom }; --- AR 7/12/2010
+
 --     CompNP   : NP  -> Comp ;            -- (be) a man
     CompNP np = { s = \\gn => np.dep !InstrC };