one new verb paradigm for Polish resource and one new function in ExtraPol

lib/src/polish/ExtraPol.gf

@@ -1,6 +1,13 @@
 concrete ExtraPol of ExtraPolAbs = CatPol ** open ResPol in {
 
-  lin ProDrop p = {
+  lin 
+
+  QualifierCN adj cn = {
+    s = \\n,c => (cn.s ! n ! c) ++ (adj.s ! AF (cast_gennum!<cn.g,n>) c);
+    g = cn.g    
+  };
+
+  ProDrop p = {
     nom = [] ;
     voc = p.voc ;
     dep = p.dep ;

lib/src/polish/ExtraPolAbs.gf

@@ -1,2 +1,13 @@
-abstract ExtraPolAbs = Cat, Extra [Pron,ProDrop] ** 
-{}
+abstract ExtraPolAbs = Cat, Extra [AP,CN,Pron,ProDrop] ** 
+{
+	-- in Polish there exists a distinction between 
+    -- attributes describing a quality of some object (e.g. cold water)
+    -- and qualifying that object (e.g. sparkling water).
+    -- attributes of the firs kind are called "przydawka wartościująca"
+	-- and they are characterized in that the attribure precedes a noun.
+	-- the other kind is called "przydawka gatunkująca vel klasyfikująca"
+    -- and the attribute follows the noun.
+
+fun QualifierCN : AP -> CN -> CN ;
+
+}

lib/src/polish/VerbMorphoPol.gf

@@ -72,6 +72,10 @@ resource VerbMorphoPol = ResPol ** open Prelude, CatPol, (Predef=Predef), (Adj=A
     \wiesc -> let wi = Predef.tk 3 wiesc
     in mkRegConjCl wiesc wi "edź" "edźmy" "edźcie" "odę" "edziesz" "edzie" "edziemy" "edziecie" "odą" "ódł" "odła" "odło" "edli" "odły" "edzion" "edzen";
 
+  oper conj31 : ConjCl = 
+    \niesc -> let ni = Predef.tk 3 niesc
+    in mkRegConjCl niesc ni "eś" "eśmy" "eście" "osę" "esiesz" "esie" "esiemy" "esiecie" "osą" "ósł" "osła" "osło" "eśli" "osły" "esion" "esien";
+
   oper conj40 : ConjCl = 
     \znalezc -> let zna = Predef.tk 4 znalezc 
     in mkRegConjCl znalezc zna "jdź" "jdźmy" "jdźcie" "jdę" "jdziesz" "jdzie" "jdziemy" "jdziecie" "jdą" "lazł" "lazła" "lazło" "leźli" "lazły" "lezion" "lezien";