msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

slight refactoring of Phrasebook, with less start words

Browse Source
This commit is contained in:
aarne
2010-12-07 12:32:57 +00:00
parent e1c7cddc6c
commit e4b330b8cc
34 changed files with 398 additions and 447 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
examples/phrasebook/GreetingsPol.gf
View File

@@ -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" ;
}