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/GreetingsCat.gf | |
| parent | cb0a1ede4552120da60b92d92051319e7c64b3b1 (diff) | |
slight refactoring of Phrasebook, with less start words
Diffstat (limited to 'examples/phrasebook/GreetingsCat.gf')
| -rw-r--r-- | examples/phrasebook/GreetingsCat.gf | 55 |
1 files changed, 26 insertions, 29 deletions
diff --git a/examples/phrasebook/GreetingsCat.gf b/examples/phrasebook/GreetingsCat.gf index 4ee32d333..bdb44f78c 100644 --- a/examples/phrasebook/GreetingsCat.gf +++ b/examples/phrasebook/GreetingsCat.gf @@ -1,33 +1,30 @@ -concrete GreetingsCat of Greetings = open Prelude in { - -lincat - Greeting = SS ; +concrete GreetingsCat of Greetings = SentencesCat [Greeting,mkGreeting] ** open Prelude in { lin - GBye = ss "adéu" ; - GCheers = ss "salut" ; - GDamn = ss "merda" ; - GExcuse = ss "perdona" ; - GExcusePol = ss ("perdoni" | "disculpi") ; - GCongratulations = ss "felicitats" ; - GHappyBirthday = ss "feliç aniversari" ; - GGoodLuck = ss "sort" ; - GGoodDay = ss "bon dia" ; - GGoodEvening = ss "bona tarda" ; - GGoodMorning = ss "bon dia" ; - GGoodNight = ss "bona nit" ; - GGoodbye = ss "a reveure" ; - GHello = ss "hola" ; - GHelp = ss "socors" ; - GHowAreYou = ss "quč tal" ; - GLookOut = ss "compte" ; - GNiceToMeetYou = ss "encantat de cončixer-lo" ; -- make distinction Masc/Fem - GPleaseGive = ss "si et plau" ; - GPleaseGivePol = ss "si us plau" ; - GSeeYouSoon = ss "fins aviat" ; - GSorry = ss "perdoni" ; - GSorryPol = ss "em sap greu" ; - GThanks = ss "grŕcies" ; - GTheCheck = ss "el compte" ; + GBye = mkGreeting "adéu" ; + GCheers = mkGreeting "salut" ; + GDamn = mkGreeting "merda" ; + GExcuse = mkGreeting "perdona" ; + GExcusePol = mkGreeting ("perdoni" | "disculpi") ; + GCongratulations = mkGreeting "felicitats" ; + GHappyBirthday = mkGreeting "feliç aniversari" ; + GGoodLuck = mkGreeting "sort" ; + GGoodDay = mkGreeting "bon dia" ; + GGoodEvening = mkGreeting "bona tarda" ; + GGoodMorning = mkGreeting "bon dia" ; + GGoodNight = mkGreeting "bona nit" ; + GGoodbye = mkGreeting "a reveure" ; + GHello = mkGreeting "hola" ; + GHelp = mkGreeting "socors" ; + GHowAreYou = mkGreeting "quč tal" ; + GLookOut = mkGreeting "compte" ; + GNiceToMeetYou = mkGreeting "encantat de cončixer-lo" ; -- make distinction Masc/Fem + GPleaseGive = mkGreeting "si et plau" ; + GPleaseGivePol = mkGreeting "si us plau" ; + GSeeYouSoon = mkGreeting "fins aviat" ; + GSorry = mkGreeting "perdoni" ; + GSorryPol = mkGreeting "em sap greu" ; + GThanks = mkGreeting "grŕcies" ; + GTheCheck = mkGreeting "el compte" ; } |