slight refactoring of Phrasebook, with less start words

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

View File

@@ -1,34 +1,31 @@
concrete GreetingsRon of Greetings = open Prelude in {
concrete GreetingsRon of Greetings = SentencesRon [Greeting,mkGreeting] ** open Prelude in {
flags coding = utf8 ;
lincat
Greeting, Politeness = SS ;
lin
GBye = ss "pa" ;
GCheers = ss "noroc" ;
GDamn = ss "ptiu" ;
GExcuse = ss "pardon" ;
GExcusePol = ss "mă scuzați" ;
GGoodDay = ss "bună ziua" ;
GGoodEvening = ss "bună seara" ;
GGoodMorning = ss "bună dimineaţa" ;
GGoodNight = ss "noapte bună" ;
GGoodbye = ss "la revedere" ;
GHello = ss "salut" ;
GHelp = ss "ajutor" ;
GHowAreYou = ss "ce faci" ;
GLookOut = ss "atenţie" ;
GNiceToMeetYou = ss "încântat" ;
GPleaseGive = ss "te rog" ;
GPleaseGivePol = ss "vă rog" ;
GSeeYouSoon = ss "pe curând" ;
GSorry, GSorryPol = ss "îmi pare rău" ;
GThanks = ss "mulţumesc" ;
GTheCheck = ss "nota de plată" ;
GCongratulations = ss "felicitări";
GHappyBirthday = ss "la mulți ani" ;
GGoodLuck = ss "baftă" ;
GBye = mkGreeting "pa" ;
GCheers = mkGreeting "noroc" ;
GDamn = mkGreeting "ptiu" ;
GExcuse = mkGreeting "pardon" ;
GExcusePol = mkGreeting "mă scuzați" ;
GGoodDay = mkGreeting "bună ziua" ;
GGoodEvening = mkGreeting "bună seara" ;
GGoodMorning = mkGreeting "bună dimineaţa" ;
GGoodNight = mkGreeting "noapte bună" ;
GGoodbye = mkGreeting "la revedere" ;
GHello = mkGreeting "salut" ;
GHelp = mkGreeting "ajutor" ;
GHowAreYou = mkGreeting "ce faci" ;
GLookOut = mkGreeting "atenţie" ;
GNiceToMeetYou = mkGreeting "încântat" ;
GPleaseGive = mkGreeting "te rog" ;
GPleaseGivePol = mkGreeting "vă rog" ;
GSeeYouSoon = mkGreeting "pe curând" ;
GSorry, GSorryPol = mkGreeting "îmi pare rău" ;
GThanks = mkGreeting "mulţumesc" ;
GTheCheck = mkGreeting "nota de plată" ;
GCongratulations = mkGreeting "felicitări";
GHappyBirthday = mkGreeting "la mulți ani" ;
GGoodLuck = mkGreeting "baftă" ;
}