blob: 1db9f6080dafe87d9dc4e9bc147c1ef15be80cd7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
concrete GreetingsFre of Greetings = open Prelude in {
flags coding = utf8 ;
lincat
Greeting, Politeness = SS ;
lin
GHello = ss "salut" ;
GThanks = ss "merci" ;
GHowAreYou = ss "comment ça va" ;
GPleaseGive = ss "s'il vous plaît" ; ---- politeness
GExcuse = ss "excusez-moi" ;
GSorry = ss "pardon" ;
GGoodbye = ss "au revoir" ;
GBye = ss "au revoir" ;
GWhatsYourName = ss "comment vous appelez-vous" ; ---- politeness
GNiceToMeetYou = ss "enchanté" ; ---- gender
GSeeYouSoon = ss "à bientôt" ;
GHelp = ss "au secours" ;
GLookOut = ss "attention" ;
GGoodMorning = ss "bonjour" ;
GGoodDay = ss "bonjour" ;
GGoodEvening = ss "bon soir" ;
GGoodNight = ss "bonne nuit" ;
GImHungry = ss "j'ai faim" ;
GImThirsty = ss "j'ai soif" ;
GImTired = ss "je suis fatigué" ; ---- gender
GImScared = ss "j'ai peur" ;
GIdontUnderstand = ss "je ne comprends pas" ;
GWheresTheBathroom = ss "où est la toilette" ;
GTheCheck = ss "l'addition" ;
GYes = ss "oui" ; ---- si
GNo = ss "non" ;
}
|
