From d6eb762651b4c945ff09d456f6fe088c7642507c Mon Sep 17 00:00:00 2001
From: "adam.slaski" <adam.slaski@gmail.com>
Date: Wed, 26 May 2010 22:34:20 +0000
Subject: polish demo

---
 examples/phrasebook/SentencesPol.gf | 32 ++++++++++++++++++++++++++++++--
 1 file changed, 30 insertions(+), 2 deletions(-)

(limited to 'examples/phrasebook/SentencesPol.gf')

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);
+
+}
-- 
cgit v1.2.3