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/GreetingsRon.gf | |
| parent | cb0a1ede4552120da60b92d92051319e7c64b3b1 (diff) | |
slight refactoring of Phrasebook, with less start words
Diffstat (limited to 'examples/phrasebook/GreetingsRon.gf')
| -rw-r--r-- | examples/phrasebook/GreetingsRon.gf | 53 |
1 files changed, 25 insertions, 28 deletions
diff --git a/examples/phrasebook/GreetingsRon.gf b/examples/phrasebook/GreetingsRon.gf index 9451fbce1..380e8dbc5 100644 --- a/examples/phrasebook/GreetingsRon.gf +++ b/examples/phrasebook/GreetingsRon.gf @@ -1,34 +1,31 @@ -concrete GreetingsRon of Greetings = open Prelude in { +concrete GreetingsRon of Greetings = SentencesRon [Greeting,mkGreeting] ** open Prelude in { flags coding = utf8 ; -lincat - Greeting, Politeness = SS ; - lin - GBye = ss "pa" ; - GCheers = ss "noroc" ; - GDamn = ss "ptiu" ; - GExcuse = ss "pardon" ; - GExcusePol = ss "mă scuzați" ; - GGoodDay = ss "bună ziua" ; - GGoodEvening = ss "bună seara" ; - GGoodMorning = ss "bună dimineaţa" ; - GGoodNight = ss "noapte bună" ; - GGoodbye = ss "la revedere" ; - GHello = ss "salut" ; - GHelp = ss "ajutor" ; - GHowAreYou = ss "ce faci" ; - GLookOut = ss "atenţie" ; - GNiceToMeetYou = ss "încântat" ; - GPleaseGive = ss "te rog" ; - GPleaseGivePol = ss "vă rog" ; - GSeeYouSoon = ss "pe curând" ; - GSorry, GSorryPol = ss "îmi pare rău" ; - GThanks = ss "mulţumesc" ; - GTheCheck = ss "nota de plată" ; - GCongratulations = ss "felicitări"; - GHappyBirthday = ss "la mulți ani" ; - GGoodLuck = ss "baftă" ; + GBye = mkGreeting "pa" ; + GCheers = mkGreeting "noroc" ; + GDamn = mkGreeting "ptiu" ; + GExcuse = mkGreeting "pardon" ; + GExcusePol = mkGreeting "mă scuzați" ; + GGoodDay = mkGreeting "bună ziua" ; + GGoodEvening = mkGreeting "bună seara" ; + GGoodMorning = mkGreeting "bună dimineaţa" ; + GGoodNight = mkGreeting "noapte bună" ; + GGoodbye = mkGreeting "la revedere" ; + GHello = mkGreeting "salut" ; + GHelp = mkGreeting "ajutor" ; + GHowAreYou = mkGreeting "ce faci" ; + GLookOut = mkGreeting "atenţie" ; + GNiceToMeetYou = mkGreeting "încântat" ; + GPleaseGive = mkGreeting "te rog" ; + GPleaseGivePol = mkGreeting "vă rog" ; + GSeeYouSoon = mkGreeting "pe curând" ; + GSorry, GSorryPol = mkGreeting "îmi pare rău" ; + GThanks = mkGreeting "mulţumesc" ; + GTheCheck = mkGreeting "nota de plată" ; + GCongratulations = mkGreeting "felicitări"; + GHappyBirthday = mkGreeting "la mulți ani" ; + GGoodLuck = mkGreeting "baftă" ; } |