Polish resource grammar

lib/src/polish/PhrasePol.gf

@@ -0,0 +1,32 @@
+--# -path=.:../abstract:../common:../prelude
+
+-- Adam Slaski, 2009 <adam.slaski@gmail.com>
+
+concrete PhrasePol of Phrase = CatPol ** open Prelude, ResPol, VerbMorphoPol in {
+
+ lin
+   PhrUtt pconj utt voc = {s = pconj.s ++ utt.s ++ voc.s} ;
+
+   UttS s = s ;
+   UttQS qs = {s = qs.s} ;
+   UttImpSg  pol imp = {s = imp.s !pol.p ! Sg} ;
+   UttImpPl  pol imp = {s = imp.s !pol.p ! Pl} ;
+   UttImpPol pol imp = {s = imp.s !pol.p ! Sg} ;
+
+   UttIP ip = {s = ip.nom};
+   UttIAdv iadv = iadv ;
+   UttNP np = {s = np.nom};
+   UttVP vp = { -- I assume positive polarization to avoid variants
+        s = vp.prefix !Pos !MascAniSg ++
+            (infinitive_form vp.verb vp.imienne Pos) ++ 
+            vp.sufix !Pos !MascAniSg  ++ vp.postfix !Pos !MascAniSg
+   };
+   UttAdv adv = adv ;
+
+   NoPConj = {s = []} ;
+   PConjConj conj = {s = conj.s2} ; ---
+
+   NoVoc = {s = []} ;
+   VocNP np = {s = "," ++ np.voc} ;
+
+}