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

51
examples/phrasebook/GreetingsSpa.gf
View File

@@ -1,34 +1,31 @@
concrete GreetingsSpa of Greetings = open Prelude in {
concrete GreetingsSpa of Greetings = SentencesSpa [Greeting,mkGreeting] ** open Prelude in {
flags coding = utf8 ;
lincat
Greeting = SS ;
lin
GBye = ss "adiós" ;
GCheers = ss "salud" ;
GDamn = ss "joder" ;
GExcuse = ss "perdón" ;
GExcusePol = ss "perdone" ;
GCongratulations = ss "felicitaciones" ;
GGoodLuck = ss "buena suerte" ;
GHappyBirthday = ss "feliz cumpleaños" ;
GGoodMorning, GGoodDay = ss "buenos días" ;
GGoodEvening = ss "buenas tardes" ;
GGoodNight = ss "buenas noches" ;
GGoodbye = ss "hasta luego" ;
GHello = ss "hola" ;
GHelp = ss "socorro" ;
GHowAreYou = ss "cómo está" ; -- the polite singular "you"
GLookOut = ss "atención" ;
GNiceToMeetYou = ss "encantado de conocerle" ; -- the polite singular "you"
GPleaseGive, GPleaseGivePol = ss "por favor" ;
GSeeYouSoon = ss "nos vemos pronto" ;
GSorry = ss "disculpa" ;
GSorryPol = ss "disculpe" ;
GThanks = ss "gracias" ;
GTheCheck = ss "la cuenta" ;
GBye = mkGreeting "adiós" ;
GCheers = mkGreeting "salud" ;
GDamn = mkGreeting "joder" ;
GExcuse = mkGreeting "perdón" ;
GExcusePol = mkGreeting "perdone" ;
GCongratulations = mkGreeting "felicitaciones" ;
GGoodLuck = mkGreeting "buena suerte" ;
GHappyBirthday = mkGreeting "feliz cumpleaños" ;
GGoodMorning, GGoodDay = mkGreeting "buenos días" ;
GGoodEvening = mkGreeting "buenas tardes" ;
GGoodNight = mkGreeting "buenas noches" ;
GGoodbye = mkGreeting "hasta luego" ;
GHello = mkGreeting "hola" ;
GHelp = mkGreeting "socorro" ;
GHowAreYou = mkGreeting "cómo está¡" ; -- the polite singular "you"
GLookOut = mkGreeting "atención" ;
GNiceToMeetYou = mkGreeting "encantado de conocerle" ; -- the polite singular "you"
GPleaseGive, GPleaseGivePol = mkGreeting "por favor" ;
GSeeYouSoon = mkGreeting "nos vemos pronto" ;
GSorry = mkGreeting "disculpa" ;
GSorryPol = mkGreeting "disculpe" ;
GThanks = mkGreeting "gracias" ;
GTheCheck = mkGreeting "la cuenta" ;
}