diff options
| author | aarne <aarne@chalmers.se> | 2010-12-07 12:32:57 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-12-07 12:32:57 +0000 |
| commit | e8adb69e3de69dba87beb59279365ecadee22085 (patch) | |
| tree | c49cd5831dae69104c3b08c900165f4ccf391a5e /examples/phrasebook/GreetingsPol.gf | |
| parent | cb0a1ede4552120da60b92d92051319e7c64b3b1 (diff) | |
slight refactoring of Phrasebook, with less start words
Diffstat (limited to 'examples/phrasebook/GreetingsPol.gf')
| -rw-r--r-- | examples/phrasebook/GreetingsPol.gf | 45 |
1 files changed, 21 insertions, 24 deletions
diff --git a/examples/phrasebook/GreetingsPol.gf b/examples/phrasebook/GreetingsPol.gf index 722d96ef3..9c561c500 100644 --- a/examples/phrasebook/GreetingsPol.gf +++ b/examples/phrasebook/GreetingsPol.gf @@ -1,30 +1,27 @@ -concrete GreetingsPol of Greetings = open Prelude in { +concrete GreetingsPol of Greetings = SentencesPol [Greeting,mkGreeting] ** open Prelude in { flags optimize =values ; coding =utf8 ; -lincat - Greeting = SS ; - 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" ; + GBye = mkGreeting "cześć" ; + GCheers = mkGreeting "na zdrowie" ; + GDamn = mkGreeting "cholera" ; -- not polite + GExcuse, GExcusePol, GSorry, GSorryPol = mkGreeting "przepraszam" ; + GGoodDay, GGoodMorning = mkGreeting "dzień dobry" ; + GGoodEvening = mkGreeting "dobry wieczór" ; + GGoodNight = mkGreeting "dobranoc" ; + GGoodbye = mkGreeting "do widzenia" ; + GHello = mkGreeting "cześć" ; + GHelp = mkGreeting "pomocy" ; + GHowAreYou = mkGreeting "jak się masz" ; + GLookOut = mkGreeting "uwaga" ; + GNiceToMeetYou = mkGreeting "miło mi" ; + GPleaseGive, GPleaseGivePol = mkGreeting "poproszę" ; + GSeeYouSoon = mkGreeting "do zobaczenia" ; + GThanks = mkGreeting "dziękuję" ; + GTheCheck = mkGreeting "rachunek" ; + GCongratulations = mkGreeting "gratulacje"; + GHappyBirthday = mkGreeting "wszystkiego najlepszego z okazji urodzin" ; + GGoodLuck = mkGreeting "powodzenia" ; } |