polish demo

1 files changed, 30 insertions, 2 deletions

diff --git a/examples/phrasebook/SentencesPol.gf b/examples/phrasebook/SentencesPol.gf
index 1d8116c53..2c733f274 100644
--- a/examples/phrasebook/SentencesPol.gf
+++ b/examples/phrasebook/SentencesPol.gf
@@ -1,4 +1,32 @@
-concrete SentencesPol of Sentences = NumeralPol ** SentencesI with 
+concrete SentencesPol of Sentences = 
+  NumeralPol ** SentencesI - [
+    Day,PDay,OnDay,Language,PLanguage,
+    Nationality,Transport,PTransport,ByTransp,
+    IFemale,YouFamFemale,YouPolFemale,YouPolMale] 
+    with 
   (Syntax = SyntaxPol),
   (Symbolic = SymbolicPol),
-  (Lexicon = LexiconPol) ;
+  (Lexicon = LexiconPol) ** open (R = ResPol), (Pron = PronounMorphoPol), Prelude in {
+    
+  flags  
+    optimize =values ; coding =utf8 ; 
+
+  lincat
+    Day = { name,hab,adv:Str } ;
+    Language = A ;
+    Citizenship = A ;
+    Nationality = { lang: A; prop: A; country: NP } ;
+    Transport = CN ;
+
+  lin
+    PDay d = (ss d.name) ** {lock_Text = <>};
+    OnDay d = (ss d.adv) ** {lock_Adv = <>};
+    PLanguage l = (ss l.pos.s1) ** {lock_Text = <>};    
+    PTransport t = mkPhrase (mkUtt t) ;
+    ByTransp t = (ss (t.s!R.Sg!R.Instr)) ** {lock_Adv = <>};
+    IFemale = mkPerson (Pron.pronJaFoo (R.PGen R.Fem));
+    YouFamFemale = mkPerson (Pron.pronTyFoo (R.PGen R.Fem));
+    YouPolFemale = mkPerson (Pron.pronPani);
+    YouPolMale = mkPerson (Pron.pronPan);
+
+}