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/GreetingsEng.gf | |
| parent | cb0a1ede4552120da60b92d92051319e7c64b3b1 (diff) | |
slight refactoring of Phrasebook, with less start words
Diffstat (limited to 'examples/phrasebook/GreetingsEng.gf')
| -rw-r--r-- | examples/phrasebook/GreetingsEng.gf | 49 |
1 files changed, 23 insertions, 26 deletions
diff --git a/examples/phrasebook/GreetingsEng.gf b/examples/phrasebook/GreetingsEng.gf index bf1540779..f00f2938b 100644 --- a/examples/phrasebook/GreetingsEng.gf +++ b/examples/phrasebook/GreetingsEng.gf @@ -1,29 +1,26 @@ -concrete GreetingsEng of Greetings = open Prelude in { - -lincat - Greeting = SS ; +concrete GreetingsEng of Greetings = SentencesEng [Greeting,mkGreeting] ** open Prelude in { lin - GBye = ss "bye" ; - 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" ; - GCongratulations = ss "congratulations"; - GHappyBirthday = ss "happy birthday" ; - GGoodLuck = ss "good luck" ; + GBye = mkGreeting "bye" ; + GCheers = mkGreeting "cheers" ; + GDamn = mkGreeting "damn" ; + GExcuse, GExcusePol = mkGreeting "excuse me" ; + GGoodDay = mkGreeting "good afternoon" ; ---- + GGoodEvening = mkGreeting "good evening" ; + GGoodMorning = mkGreeting "good morning" ; + GGoodNight = mkGreeting "good night" ; + GGoodbye = mkGreeting "goodbye" ; + GHello = mkGreeting "hello" ; + GHelp = mkGreeting "help" ; + GHowAreYou = mkGreeting "how are you" ; + GLookOut = mkGreeting "look out" ; + GNiceToMeetYou, GNiceToMeetYouPol = mkGreeting "nice to meet you" ; + GPleaseGive, GPleaseGivePol = mkGreeting "please" ; + GSeeYouSoon = mkGreeting "see you soon" ; + GSorry, GSorryPol = mkGreeting "sorry" ; + GThanks = mkGreeting "thank you" ; + GTheCheck = mkGreeting "the bill" ; + GCongratulations = mkGreeting "congratulations"; + GHappyBirthday = mkGreeting "happy birthday" ; + GGoodLuck = mkGreeting "good luck" ; } |