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/GreetingsSwe.gf | |
| parent | cb0a1ede4552120da60b92d92051319e7c64b3b1 (diff) | |
slight refactoring of Phrasebook, with less start words
Diffstat (limited to 'examples/phrasebook/GreetingsSwe.gf')
| -rw-r--r-- | examples/phrasebook/GreetingsSwe.gf | 49 |
1 files changed, 23 insertions, 26 deletions
diff --git a/examples/phrasebook/GreetingsSwe.gf b/examples/phrasebook/GreetingsSwe.gf index 7f6764f09..15dd59a0c 100644 --- a/examples/phrasebook/GreetingsSwe.gf +++ b/examples/phrasebook/GreetingsSwe.gf @@ -1,30 +1,27 @@ -concrete GreetingsSwe of Greetings = open Prelude in { - -lincat - Greeting = SS ; +concrete GreetingsSwe of Greetings = SentencesSwe [Greeting,mkGreeting] ** open Prelude in { lin - GBye = ss "hej då" ; - GCheers = ss "skål" ; - GDamn = ss "fan" ; - GExcuse, GExcusePol = ss "ursäkta" ; - GGoodDay = ss "god dag" ; - GGoodEvening = ss "god afton" ; - GGoodMorning = ss "god morgon" ; - GGoodNight = ss "god natt" ; - GGoodbye = ss "hej då" ; - GHello = ss "hej" ; - GHelp = ss "hjälp" ; - GHowAreYou = ss "hur står det till" ; - GLookOut = ss "se upp" ; - GNiceToMeetYou, GNiceToMeetYouPol = ss "trevligt att träffas" ; - GPleaseGive, GPleaseGivePol = ss "var så god" ; - GSeeYouSoon = ss "vi ses snart" ; - GSorry, GSorryPol = ss "förlåt" ; - GThanks = ss "tack" ; - GTheCheck = ss "notan" ; - GCongratulations = ss "grattis"; - GHappyBirthday = ss "grattis på födelsedagen" ; - GGoodLuck = ss "lycka till" ; + GBye = mkGreeting "hej då" ; + GCheers = mkGreeting "skål" ; + GDamn = mkGreeting "fan" ; + GExcuse, GExcusePol = mkGreeting "ursäkta" ; + GGoodDay = mkGreeting "god dag" ; + GGoodEvening = mkGreeting "god afton" ; + GGoodMorning = mkGreeting "god morgon" ; + GGoodNight = mkGreeting "god natt" ; + GGoodbye = mkGreeting "hej då" ; + GHello = mkGreeting "hej" ; + GHelp = mkGreeting "hjälp" ; + GHowAreYou = mkGreeting "hur står det till" ; + GLookOut = mkGreeting "se upp" ; + GNiceToMeetYou, GNiceToMeetYouPol = mkGreeting "trevligt att träffas" ; + GPleaseGive, GPleaseGivePol = mkGreeting "var så god" ; + GSeeYouSoon = mkGreeting "vi ses snart" ; + GSorry, GSorryPol = mkGreeting "förlåt" ; + GThanks = mkGreeting "tack" ; + GTheCheck = mkGreeting "notan" ; + GCongratulations = mkGreeting "grattis"; + GHappyBirthday = mkGreeting "grattis på födelsedagen" ; + GGoodLuck = mkGreeting "lycka till" ; } |