polish demo

examples/phrasebook/GreetingsPol.gf

@@ -1,28 +1,30 @@
 concrete GreetingsPol of Greetings = open Prelude in {
 
---lincat 
+flags
---  Greeting = SS ;
+  optimize =values ; coding =utf8 ; 
 
---lin 
+lincat 
---  GBye = ss "bye" ;
+  Greeting = SS ; 
---  GCheers = ss "cheers" ;
---  GDamn = ss "damn" ;
---  GExcuse, GExcusePol = ss "excuse me" ;
---  GGoodDay = ss "good afternoon" ; ----
---  GGoodEvening = ss "good evening" ;
---  GGoodMorning = ss "good morning" ;
---  GGoodNight = ss "good night" ;
---  GGoodbye = ss "goodbye" ;
---  GHello = ss "hello" ;
---  GHelp = ss "help" ;
---  GHowAreYou = ss "how are you" ;
---  GLookOut = ss "look out" ;
---  GNiceToMeetYou, GNiceToMeetYouPol = ss "nice to meet you" ;
---  GPleaseGive, GPleaseGivePol = ss "please" ;
---  GSeeYouSoon = ss "see you soon" ;
---  GSorry, GSorryPol = ss "sorry" ;
---  GThanks = ss "thank you" ;
---  GTheCheck = ss "the bill" ;
 
---}
+lin 
+  GBye = ss "cześć" ;
+  GCheers = ss "na zdrowie" ;
+  GDamn = ss "cholera" ; -- not polite
+  GExcuse, GExcusePol, GSorry, GSorryPol = ss "przepraszam" ;
+  GGoodDay, GGoodMorning = ss "dzień dobry" ;
+  GGoodEvening = ss "dobry wieczór" ;
+  GGoodNight = ss "dobranoc" ;
+  GGoodbye = ss "do widzenia" ;
+  GHello = ss "cześć" ;
+  GHelp = ss "pomocy" ;
+  GHowAreYou = ss "jak się masz" ;
+  GLookOut = ss "uwaga" ;
+  GNiceToMeetYou = ss "miło mi" ; 
+  GPleaseGive, GPleaseGivePol = ss "poproszę" ;
+  GSeeYouSoon = ss "do zobaczenia" ;
+  GThanks = ss "dziękuję" ;
+  GTheCheck = ss "rachunek" ;
+  GCongratulations = ss "gratulacje";
+  GHappyBirthday = ss "wszystkiego najlepszego z okazji urodzin" ;
+  GGoodLuck = ss "powodzenia" ; 
 }

examples/phrasebook/PhrasebookPol.gf

@@ -6,6 +6,11 @@ concrete PhrasebookPol of Phrasebook =
     SyntaxPol,
     Prelude in {
 
+flags 
+  language = pl_PL ; optimize =values ; coding =utf8 ; 
+      
+
+
 lin
   PGreeting g = lin Text g ;
 

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);
+
+}

examples/phrasebook/WordsPol.gf

@@ -1,13 +1,19 @@
-
+--2 Implementations of Words, with Polish as example
 
 concrete WordsPol of Words = SentencesPol ** 
     open 
+      ResPol,
       SyntaxPol, 
-      ParadigmsPol, 
       (L = LexiconPol), 
       (P = ParadigmsPol), 
---      ExtraPol, 
+      (Q = QuestionPol),
+      (N = NounPol),
+      MorphoPol,
       Prelude in {
+    
+  flags  
+    optimize =values ; coding =utf8 ; 
+      
   lin
 
 -- Kinds; many of them are in the resource lexicon, others can be built by $mkN$.
@@ -15,162 +21,326 @@ concrete WordsPol of Words = SentencesPol **
     Apple = mkCN L.apple_N ;
     Beer = mkCN L.beer_N ;
     Bread = mkCN L.bread_N ;
---    Cheese = mkCN (mkN "cheese") ;
+    Cheese = mkCN L.cheese_N ;
---    Chicken = mkCN (mkN "chicken") ;
+    Chicken = mkCN (P.nPtak "kurczak") ;
---    Coffee = mkCN (mkN "coffee") ;
+    Coffee = mkCN ({ s = table { 
+	     SF Sg Nom => "kawa";
+	     SF Sg (Acc|Gen) => "kawę";
+	     SF Sg Instr => "kawą";
+	     SF Sg VocP => "kawo"; 
+	     SF Sg _ => "kawie"; 
+	     SF Pl Gen => "kawy"; 
+	     SF Pl Dat => "kawom";
+	     SF Pl Instr => "kawami";
+	     SF Pl Loc => "kawach";
+	     SF Pl _ => "kawy" 
+	     };
+	   g = Fem;
+	   lock_N : {} = <>});
     Fish = mkCN L.fish_N ;
---    Meat = mkCN (mkN "meat") ;
+    Meat = mkCN L.meat_N ;
     Milk = mkCN L.milk_N ;
---    Pizza = mkCN (mkN "pizza") ;
+    Pizza = mkCN ({ s = table { 
+	     SF Sg Nom => "pizza";
+	     SF Sg (Acc) => "pizzę";
+	     SF Sg Instr => "pizzą";
+	     SF Sg (Dat|Gen) => "pizzy";
+	     SF Sg VocP => "pizzo"; 
+	     SF Sg _ => "pizzie"; 
+	     SF Pl Gen => "pizz"; 
+	     SF Pl Dat => "pizzom";
+	     SF Pl Instr => "pizzami";
+	     SF Pl Loc => "pizzach";
+	     SF Pl _ => "pizze" 
+	     };
+	   g = Fem;
+	   lock_N : {} = <>});
     Salt = mkCN L.salt_N ;
---    Tea = mkCN (mkN "tea") ;
+    Tea = mkCN (P.nWoda "herbata") ;
     Water = mkCN L.water_N ;
     Wine = mkCN L.wine_N ;
 
 -- Properties; many of them are in the resource lexicon, others can be built by $mkA$.
 
     Bad = L.bad_A ;
---    Boring = mkA "boring" ;
+    Boring = mkA (mkRegAdj "nudny" "nudniejszy" "nudno" "nudniej" );
---    Cheap = mkA "cheap" ;
+    Cheap = mkA (mkRegAdj "tani" "tańszy" "tanio" "taniej" );
     Cold = L.cold_A ;
---    Delicious = mkA "delicious" ;
+    Delicious = mkA (mkRegAdj "pyszny" "pyszniejszy" "pysznie" "pyszniej") ;
---    Expensive = mkA "expensive" ;
+    Expensive = mkA (mkRegAdj "drogi" "droższy" "drogo" "drożej" );
---    Fresh = mkA "fresh" ;
+    Fresh = mkA (mkRegAdj "świeży" "świeższy" "świeżo" "świeżej" );
     Good = L.good_A ;
---    Suspect = mkA "suspect" ;
+    Suspect = mkA (mkCompAdj "podejrzany" "podejrzanie" );
     Warm = L.warm_A ;
 
 -- Places require different prepositions to express location; in some languages 
 -- also the directional preposition varies, but in English we use $to$, as
 -- defined by $mkPlace$.
 
---    Airport = mkPlace "airport" "at" ;
+    Airport = mkPlaceNa (P.nWojsko "lotnisko") ;
---    Bar = mkPlace "bar" "in" ;
+    AmusementPark = mkPlaceDo ["wesołe miasteczko"] ["wesołego miasteczka"] ["wesołym miasteczku"] Neut;
---    Church = mkPlace "church" "in" ;
+    Bank = mkPlaceDo "bank" "banku" "banku" (Masc Inanimate);
---    Cinema = mkPlace "cinema" "at" ;
+    Bar = mkPlaceDo "bar" "baru" "barze" (Masc Inanimate);
---    Hospital = mkPlace "hospital" "in" ;
+    Cafeteria = mkPlaceDo "stołówka" "stołówki" "stołówce" Fem;
---    Hotel = mkPlace "hotel" "in" ;
+    Center = mkPlaceDo "centrum" "centrum" "centrum" Neut;
---    Museum = mkPlace "museum" "in" ;
+    Cinema = mkPlaceDo "kino" "kina" "kinie" Neut ;
---    Park = mkPlace "park" "in" ;
+    Church = mkPlaceDo "kościół" "kościoła" "kościele" (Masc Inanimate);
---    Restaurant = mkPlace "restaurant" "in" ;
+    Disco = mkPlaceNa "dyskoteka" "dyskotekę" "dyskotece" Fem ;
---    School = mkPlace "school" "at" ;
+    Hospital = mkPlaceDo "szpital" "szpitala" "szpitalu" (Masc Inanimate);
---    Shop = mkPlace "shop" "in" ;
+    Hotel = mkPlaceDo "hotel" "hotelu" "hotelu" (Masc Inanimate) ;
---    Station = mkPlace "station" "at" ;
+    Museum = mkPlaceDo "museum" "museum" "museum" Neut ;
---    Theatre = mkPlace "theatre" "at" ;
+    Park = mkPlaceDo "park" "parku" "parku" (Masc Inanimate) ;
---    Toilet = mkPlace "toilet" "in" ;
+    Parking = mkPlaceNa "parking" "parking" "parkingu" (Masc Inanimate) ;
---    University = mkPlace "university" "at" ;
+    Pharmacy = mkPlaceDo "apteka" "apteki" "aptece" Fem ;
+    PostOffice = mkPlaceNa "poczta" "pocztę" "poczcie" Fem ;
+    Pub = mkPlaceDo "pub" "pubu" "pubie" (Masc Inanimate) ;
+    Restaurant = mkPlaceDo L.restaurant_N;
+    School = mkPlaceDo L.school_N;
+    Shop = mkPlaceDo "sklep" "sklepu" "sklepie" (Masc Inanimate) ;
+    Station = mkPlaceNa "stacja" "stację" "stacji" Fem ;
+    Supermarket = mkPlaceDo "supermarket" "supermarketu" "supermarkecie" (Masc Inanimate) ;
+    Theatre = mkPlaceDo "teatr" "teatru" "teatrze" (Masc Inanimate) ;
+    Toilet = mkPlaceDo "toaleta" "toalety" "toalecie" Fem ;
+    University = mkPlaceNa L.university_N;
+    Zoo = mkPlaceDo "zoo" "zoo" "zoo" Neut ;
+   
+    CitRestaurant cit = { name=(mkCN cit (mkCN L.restaurant_N));
+        at = { s="w"; c=LocPrep; lock_Prep = <> }; to = {s="do"; c=GenPrep; lock_Prep = <>} };
+
 
 -- Currencies; $crown$ is ambiguous between Danish and Swedish crowns.
 
---    DanishCrown = mkCN (mkA "Danish") (mkN "crown") | mkCN (mkN "crown") ;
+    DanishCrown = mkCN (mkCurrency "korona holenderska" "korony holenderskie" "koron holenderskich" Fem);
---    Dollar = mkCN (mkN "dollar") ;
+    Dollar = mkCN (P.nSer "dolar") ;
---    Euro = mkCN (mkN "euro" "euros") ; -- to prevent euroes
+    Euro = mkCN (mkCurrency "euro" "euro" "euro" Neut);
---    Lei = mkCN (mkN "leu" "lei") ;
+    Lei = mkCN (mkCurrency "leja" "leje" "lei" Fem);
---    SwedishCrown = mkCN (mkA "Swedish") (mkN "crown") | mkCN (mkN "crown") ;
+    Leva = mkCN (mkCurrency "lew" "lewy" "lewów" (Masc Animate));
+    NorwegianCrown = mkCN (mkCurrency "korona norweska" "korony norweskie" "koron norweskich" Fem);
+    Pound = mkCN (mkCurrency "funt" "funty" "funtów" (Masc Animate));
+    Rouble = mkCN (mkCurrency "rubel" "ruble" "rubli" (Masc Animate));
+    SwedishCrown = mkCN (mkCurrency "korona szwedzka" "korony szwedzkie" "koron szwedzkich" Fem);
+    Zloty = mkCN (mkCurrency "złoty" "złote" "złotych" (Masc Animate));
 
 -- Nationalities
+--  język, po języku, obywatelstwo, kraj
+    Belgian = mkA (mkCompAdj "belgijski") ;
+    Belgium = mkNP (P.nLilia "Belgia") ;
+    Bulgarian = mkNat "bułgarski" ["po bułgarsku"] "bułgarski" (P.nLilia "Bułgaria");
+    Catalan = mkNat "kataloński" ["po katalońsku"] "kataloński" (P.nLilia "Katalonia");
+    Danish = mkNat "duński" ["po duńsku"] "duński" (P.nLilia "Dania");
+    Dutch =  mkNat "holenderski" ["po holendersku"] "holenderski" (P.nLilia "Holandia");
+    English = mkNat "angielski" ["po angielsku"] "angielski" (P.nLilia "Anglia");
+    Finnish = mkNat "fiński" ["po fińsku"] "finladzki" (P.nLilia "Finlandia");
+    Flemish = mkA (mkCompAdj "flamandzki" ["po flamandzku"]);
+    French = mkNat "francuski" ["po francusku"] "francuski" (P.nLilia "Francja");
+    German = mkNat "niemiecki" ["po niemiecku"] "niemiecki" (mkCountry "Niemcy" "Niemczech" Plur);
+    Italian = mkNat "włoski" ["po włosku"] "włoski" (mkCountry "Włochy" "Włoszech" Plur);
+    Norwegian = mkNat "norweski" ["po norwesku"] "norweski" (P.nLilia "Norwegia");
+    Polish = mkNat "polski" ["po polsku"] "polski" (mkCountry "Polska" "Polsce" Fem);
+    Romanian = mkNat "rumuński" ["po rumuńsku"] "rumuński" (P.nLilia "Rumunia");
+    Russian = mkNat "rosyjski" ["po rosyjsku"] "rosyjski" (P.nLilia "Rosja");
+    Spanish = mkNat "hiszpański" ["po hiszpańsku"] "hiszpański" (P.nLilia "Hiszpania");
+    Swedish = mkNat "szwedzki" ["po szwedzku"] "szwedzki" (P.nLilia "Szwecja");
 
---    Belgian = mkA "Belgian" ;
+-- Means of transportation 
---    Belgium = mkNP (mkPN "Belgium") ;
+
---    English = mkNat "English" "England" ;
+   Bike = mkCN L.bike_N ;
---    Finnish = mkNat "Finnish" "Finland" ;
+   Bus = mkTransport "autobus" "autobusem" (Masc Inanimate) ;
---    Flemish = mkNP (mkPN "Flemish") ;
+   Car = mkCN L.car_N ;
---    French = mkNat "French" "France" ; 
+   Ferry = mkTransport "prom" "promem" (Masc Inanimate) ;
---    Italian = mkNat "Italian" "Italy" ;
+   Plane = mkCN L.airplane_N ;
---    Romanian = mkNat "Romanian" "Romania" ;
+   Subway = mkTransport "metro" "metrem" Neut ;
---    Swedish = mkNat "Swedish" "Sweden" ;
+   Taxi = mkTransport "taksówka" "taksówką" Fem ;
+   Train = mkTransport "pociąg" "pociągiem" (Masc Inanimate) ;
+   Tram = mkTransport "tramwaj" "tramwajem" (Masc Inanimate) ;
+
+   ByFoot = ss "pieszo" ** {lock_Adv = <>};
 
 -- Actions: the predication patterns are very often language-dependent.
 
---    AHasAge p num = mkCl p.name (mkNP num L.year_N) ;
+
-    AHasChildren p num = mkCl p.name have_V2 (mkNP num L.child_N) ;
+-- ok commented because of the effectivness
---    AHasRoom p num = mkCl p.name have_V2 
+    AHasAge p num = mkCl p.name have_V2 (mkNP (mkDet num) (mkCN L.year_N)) ;
---      (mkNP (mkNP a_Det (mkN "room")) (SyntaxPol.mkAdv for_Prep (mkNP num (mkN "person")))) ;
+    AHasChildren p num = mkCl p.name have_V2 (mkNP num L.child_N) ; --!!!!!!!!!!! FIXME HELP!!!!!
---    AHasTable p num = mkCl p.name have_V2 
+    AHasRoom p num = mkCl p.name have_V2 
---      (mkNP (mkNP a_Det (mkN "table")) (SyntaxPol.mkAdv for_Prep (mkNP num (mkN "person")))) ;
+      (mkNP (mkNP a_Det (P.nPokoj "pokój")) (SyntaxPol.mkAdv for_Prep (mkNP num (L.person_N)))) ;
---    AHasName p name = mkCl (nameOf p) name ;
+    AHasTable p num = mkCl p.name have_V2 
---    AHungry p = mkCl p.name (mkA "hungry") ;
+      (mkNP (mkNP a_Det (L.table_N)) (SyntaxPol.mkAdv for_Prep (mkNP num (L.person_N)))) ;
---    AIll p = mkCl p.name (mkA "ill") ;
+
---    AKnow p = mkCl p.name IrregPol.know_V ;
+
---    ALike p item = mkCl p.name (mkV2 (mkV "like")) item ;
+
---    ALive p co = mkCl p.name (mkVP (mkVP (mkV "live")) (SyntaxPol.mkAdv in_Prep co)) ;
+    AHasName p name = mkCl p.name (mkVP (mkComplicatedVerb (mkMonoVerb "być" conj1 Imperfective) name.nom));
---    ALove p q = mkCl p.name (mkV2 (mkV "love")) q.name ;
+    AHungry p = mkCl p.name (mkA (mkRegAdj "głodny" "głodniejszy" "głodno" "głodniej" )) ;
---    AMarried p = mkCl p.name (mkA "married") ;
+    AIll p = mkCl p.name (mkA (mkCompAdj "chory")) ;
---    AReady p = mkCl p.name (mkA "ready") ;
+    AKnow p = mkCl p.name (mkVP (mkMonoVerb "wiedzieć" conj103 Imperfective)) ;
---    AScared p = mkCl p.name (mkA "scared") ;
+    ALike p item = mkCl p.name (L.like_V2) item ;
---    ASpeak p lang = mkCl p.name  (mkV2 IrregPol.speak_V) lang ;
+    ALive p co = mkCl p.name (mkVP (mkComplicatedVerb (mkMonoVerb "mieszkam" conj98 Imperfective) ("w" ++ co.dep!LocPrep)));
---    AThirsty p = mkCl p.name (mkA "thirsty") ;
+    ALove p q = mkCl p.name (L.love_V2) q.name ;
---    ATired p = mkCl p.name (mkA "tired") ;
+    AMarried p = mkCl p.name (case p.name.gn of {
---    AUnderstand p = mkCl p.name IrregPol.understand_V ;
+        MascPersSg|MascAniSg|MascInaniSg|MascPersPl=> mkCompAdj "żonaty";
---    AWant p obj = mkCl p.name (mkV2 (mkV "want")) obj ;
+        _=>mkCompAdj "zamężny"}) ;
---    AWantGo p place = mkCl p.name want_VV (mkVP (mkVP IrregPol.go_V) place.to) ;
+    AReady p = mkCl p.name (L.ready_A) ;
+    AScared p = mkCl p.name (mkReflVerb (mkMonoVerb "bać" conjbac Imperfective)) ; 
+    ASpeak p lang = mkCl p.name  (mkVP (mkComplicatedVerb (mkMonoVerb "mówić" conj72 Imperfective) lang.advpos)) ;
+    AThirsty p = mkCl p.name (mkVP (mkComplicatedVerb (mkMonoVerb "chcieć" conj45 Imperfective) ["pić"]));
+    ATired p = mkCl p.name (mkA (mkCompAdj "zmęczony")) ;
+    AUnderstand p = mkCl p.name (mkVP (mkV "rozumieć" conj101 "zrozumieć" conj101)) ;
+    AWant p obj = mkCl p.name (dirV2 (mkMonoVerb "chcieć" conj45 Imperfective)) obj ; 
+    AWantGo p place = mkCl p.name want_VV (mkVP (mkComplicatedVerb (mkV1 "iść" conj41a "pójść" conj42) place.to.s)) ;
 
 -- miscellaneous
 
---    QWhatName p = mkQS (mkQCl whatSg_IP (mkVP (nameOf p))) ;
+    QWhatName p = mkQS (mkQCl how_IAdv (mkCl p.name 
---    QWhatAge p = mkQS (mkQCl (ICompAP (mkAP L.old_A)) p.name) ;
+        (mkVP (mkComplicatedVerb (mkMonoVerb "mieć" conj100 Imperfective) ["na imię"]))));
---    HowMuchCost item = mkQS (mkQCl how8much_IAdv (mkCl item IrregPol.cost_V)) ; 
+    QWhatAge p = mkQS (mkQCl howmany_IAdv (mkCl p.name 
---    ItCost item price = mkCl item (mkV2 IrregPol.cost_V) price ;
+        (mkVP (mkComplicatedVerb (mkMonoVerb "mieć" conj100 Imperfective) ["lat"]))));
+    HowMuchCost item = { s="ile" ++ 
+        (mkMonoVerb "kosztować" conj53 Imperfective).si!(VFinM (extract_num!item.gn) P3) ++ item.nom; 
+        lock_QS=<> } ; 
+    ItCost item price = mkCl item (dirV2 (mkMonoVerb "kosztować" conj53 Imperfective) ) price ;
 
---    PropOpen p = mkCl p.name open_Adv ;
+    PropOpen p = mkCl p.name open_A ;
---    PropClosed p = mkCl p.name closed_Adv ;
+    PropClosed p = mkCl p.name closed_A ;
---    PropOpenDate p d = mkCl p.name (mkVP (mkVP open_Adv) d) ; 
+    PropOpenDate p d = mkCl p.name (mkAP d open_A) ; 
---    PropClosedDate p d = mkCl p.name (mkVP (mkVP closed_Adv) d) ; 
+    PropClosedDate p d = mkCl p.name (mkAP d closed_A) ; 
---    PropOpenDay p d = mkCl p.name (mkVP (mkVP open_Adv) d.habitual) ; 
+    PropOpenDay p d = mkCl p.name (mkAP (ss d.hab) open_A) ; 
---    PropClosedDay p d = mkCl p.name (mkVP (mkVP closed_Adv) d.habitual) ; 
+    PropClosedDay p d = mkCl p.name (mkAP (ss d.hab) closed_A) ; 
 
 -- Building phrases from strings is complicated: the solution is to use
 -- mkText : Text -> Text -> Text ;
 
---    PSeeYou d = mkText (lin Text (ss ("see you"))) (mkPhrase (mkUtt d)) ;
+    PSeeYouDate d = mkText (lin Text (ss ("do zobaczenia"))) (mkPhrase (mkUtt d)) ;
---    PSeeYouPlace p d = 
+    PSeeYouPlace p = mkText (lin Text (ss ("do zobaczenia"))) (mkPhrase (mkUtt p.at)) ;
---      mkText (lin Text (ss ("see you"))) 
+    PSeeYouPlaceDate p d = 
---        (mkText (mkPhrase (mkUtt p.at)) (mkPhrase (mkUtt d))) ;
+      mkText (lin Text (ss ("do zobaczenia"))) 
-
+        (mkText (mkPhrase (mkUtt d)) (mkPhrase (mkUtt p.at))) ;
+-- 
 -- Relations are expressed as "my wife" or "my son's wife", as defined by $xOf$
 -- below. Languages without productive genitives must use an equivalent of
 -- "the wife of my son" for non-pronouns.
-
+-- 
---    Wife = xOf sing (mkN "wife") ;
+    Wife p     = xOf p N.NumSg L.wife_N ;
---    Husband = xOf sing (mkN "husband") ;
+    Husband p  = xOf p N.NumSg L.husband_N ;
---    Son = xOf sing (mkN "son") ;
+    Son p      = xOf p N.NumSg (mkPer "syn" "syna" "syna" (Masc Personal)) ;
---    Daughter = xOf sing (mkN "daughter") ;
+    Daughter p = xOf p N.NumSg (mkPer "córka" "córki" "córkę" Fem );
---    Children = xOf plur L.child_N ;
+    Children p = xOf p N.NumPl L.child_N ;
 
 -- week days
 
---    Monday = mkDay "Monday" ;
+    Monday = { name="poniedziałek"; hab=["w poniedziałki"]; adv=["w poniedziałek"] } ; 
---    Tuesday = mkDay "Tuesday" ;
+    Tuesday = { name="wtorek"; hab=["we wtorki"]; adv=["we wtorek"] } ; 
---    Wednesday = mkDay "Wednesday" ;
+    Wednesday = { name="środa"; hab=["we środy"]; adv=["we środę"] } ; 
---    Thursday = mkDay "Thursday" ;
+    Thursday = { name="czwartek"; hab=["w czwartki"]; adv=["w czwartek"] } ; 
---    Friday = mkDay "Friday" ;
+    Friday = { name="piątek"; hab=["w piątki"]; adv=["w piątek"] } ; 
---    Saturday = mkDay "Saturday" ;
+    Saturday = { name="sobota"; hab=["w soboty"]; adv=["w sobotę"] } ; 
---    Sunday = mkDay "Sunday" ;
+    Sunday = { name="niedziela"; hab=["w niedziele"]; adv=["w niedzielę"] } ; 
  
---    Tomorrow = P.mkAdv "tomorrow" ;
+    Tomorrow = (ss "jutro") ** {lock_Adv = <>} ;
+
+-- modifiers of places
+
+    TheBest = mkSuperl L.good_A ;
+    TheClosest = mkSuperl L.near_A ; 
+    TheCheapest = mkSuperl (mkA (mkRegAdj "tani" "tańszy" "tanio" "taniej") );
+    TheMostExpensive = mkSuperl (mkA (mkRegAdj "drogi" "droższy" "drogo" "drożej" ) );
+    TheMostPopular = mkSuperl (mkA (mkRegAdj "popularny" "popularniejszy" "popularnie" "popularniej" ) ) ;
+    TheWorst = mkSuperl L.bad_A ;
+
+    SuperlPlace sup p = placeNP sup p ;
+
+
+-- transports
+    HowFar place = mkQS (Q.QuestIComp (Q.CompIAdv far_IAdv) place.name) ;
+    
+    --jak daleko jest z cenrum do hotelu
+    HowFarFrom x y = { s=["jak jest daleko z"] ++ x.name.dep!GenPrep ++ y.to.s; lock_QS=<> };
+
+    --jak daleko jest pieszo z centrum do hotelu
+    HowFarFromBy x y t = 
+      { s=["jak jest daleko"] ++ t.s ++ "z" ++ x.name.dep!GenPrep ++ y.to.s; lock_QS=<> };
+
+    HowFarBy y t = 
+            { s=["jak jest daleko"] ++ t.s ++ y.to.s; lock_QS=<> };
+ 
+    WhichTranspPlace trans place = 
+      { s= ktory ! AF (cast_gennum!<trans.g,Sg>) Instr ++ trans.s!Sg!Instr ++ place.to.s; lock_QS=<> };
+
+    IsTranspPlace trans place = 
+      { s= ["czy jest stąd"] ++ trans.s!Sg!Nom ++ place.to.s; lock_QS=<> };
+
 
 -- auxiliaries
 
---  oper
+  oper
+  
+  mkA : Adj -> A = \adj -> adj ** { lock_A = <> };
 
---    mkNat : Str -> Str -> NPNationality = \nat,co -> 
+  mkPlaceDo = overload {
---      mkNPNationality (mkNP (mkPN nat)) (mkNP (mkPN co)) (mkA nat) ;
+    mkPlaceDo : N -> {name : CN ; at : Prep ; to : Prep} = \n -> {
+      name = mkCN n; at = { s="w"; c=LocPrep; lock_Prep = <> }; to = {s="do"; c=GenPrep; lock_Prep = <>} };
+    mkPlaceDo : Str -> Str -> Str -> Gender -> {name : CN ; at : Prep ; to : Prep} = \nom,gen,loc,g -> {
+      name = mkCN {
+        s = table {SF Sg Nom => nom; SF Sg Gen => gen; SF Sg Loc => loc; _ => ["not implemented"]};
+        g = g;
+        lock_N=<>
+      };
+      at = { s="w"; c=LocPrep; lock_Prep = <> }; to = {s="do"; c=GenPrep; lock_Prep = <>} };
+  };
+  
+  mkPlaceNa = overload {
+    mkPlaceNa : N -> {name : CN ; at : Prep ; to : Prep} = \n -> {
+      name = mkCN n; at = { s="na"; c=LocPrep; lock_Prep = <> }; to = {s="na"; c=AccPrep; lock_Prep = <>} };
+    mkPlaceNa : Str -> Str -> Str -> Gender -> {name : CN ; at : Prep ; to : Prep} = \nom,acc,loc,g -> {
+      name = mkCN {
+        s = table {SF Sg Nom => nom; SF Sg Acc => acc; SF Sg Loc => loc; _ => ["not implemented"]};
+        g = g;
+        lock_N=<>
+      };
+    at = { s="na"; c=LocPrep; lock_Prep = <> }; to = {s="na"; c=AccPrep; lock_Prep = <>} };
+  };
+  
+  mkTransport : Str -> Str -> Gender -> CN = \nom,instr,g -> {
+    s = \\n,c => case <n,c> of {<Sg,Nom> => nom; <Sg,Instr> => instr; _ => ["not implemented"]};
+    g = g;
+    lock_CN=<>
+  };
 
---    mkDay : Str -> {name : NP ; point : Adv ; habitual : Adv} = \d ->
+  mkCountry : Str -> Str -> Gender -> N = \nom,loc,g -> {
---      let day = mkNP (mkPN d) in 
+    s = table {SF Sg Nom => nom; SF Sg Loc => loc; _ => ["not implemented"]};
---      mkNPDay day (SyntaxPol.mkAdv on_Prep day) 
+    g = g;
---        (SyntaxPol.mkAdv on_Prep (mkNP a_Quant plNum (mkCN (mkN d)))) ;
+    lock_N=<>
+  };
 
---    mkPlace : Str -> Str -> {name : CN ; at : Prep ; to : Prep} = \p,i -> 
+  mkPer : Str -> Str -> Str -> Gender -> N = \nom,gen,acc,g -> {
---      mkCNPlace (mkCN (mkN p)) (P.mkPrep i) to_Prep ;
+    s = table {SF Sg Nom => nom; SF Sg Gen => gen; SF Sg Acc => acc; _ => ["not implemented"]};
+    g = g;
+    lock_N=<>
+  };
 
---    open_Adv = P.mkAdv "open" ;
+  
---    closed_Adv = P.mkAdv "closed" ;
+  mkCurrency : Str -> Str -> Str -> Gender -> N = \nom,nompl,genpl,g -> {
+    s = table {SF Sg Nom => nom; SF Pl Nom => nompl; SF Pl Gen => genpl; _ => ["not implemented"]};
+    g = g;
+    lock_N=<>
+  };
+  
+  mkNat : Str -> Str -> Str -> N -> { lang: A; prop: A; country: NP } = \lang,ladv,prop,country -> {
+    lang = mkA (mkCompAdj lang ladv); prop = mkA (mkCompAdj prop); country=mkNP country };
+ 
+    open_A : A = (mkA (mkCompAdj "otwarty"));
+    closed_A : A = (mkA (mkCompAdj "zamknięty"));
+    
+    xOf : NPPerson -> Num -> N -> NPPerson = \p,num,n ->
+        { name = case p.isPron of {
+            True  => mkNP (mkDet p.poss num) n; 
+            False => mkNP (mkNP n) ({s=p.name.dep!GenNoPrep; lock_Adv=<>})
+          };
+          isPron = False;
+          poss = p.poss }; --it is not used, because it is not a pron
+    
+    mkSuperl : A -> Det = \a -> SyntaxPol.mkDet the_Art (SyntaxPol.mkOrd a) ;
 
---    xOf : GNumber -> N -> NPPerson -> NPPerson = \n,x,p -> 
+   far_IAdv : IAdv = (ss ["jak daleko"]) ** {lock_IAdv = <>};
---      relativePerson n (mkCN x) (\a,b,c -> mkNP (GenNP b) a c) p ;
+   howmany_IAdv : IAdv = (ss ["ile"]) ** {lock_IAdv = <>};
 
---    nameOf : NPPerson -> NP = \p -> (xOf sing (mkN "name") p).name ;
-
---}
 }