blob: 3463306d9ac88129bd15a557fa8412e1e6314809 (
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
|
concrete GreetingsTha of Greetings =
SentencesTha [Greeting,mkGreeting] **
open ResTha, Prelude in {
-- สุขสันต์วันเกิด
flags coding = utf8 ;
lin
GBye = mkGreeting (thword "ลา" "ก่อน") ;
GCheers = mkGreeting (thword "ไช" "โย") ;
GDamn = mkGreeting (thword "ชิบ" "หาย") ;
GExcuse, GExcusePol = mkGreeting (thword "ขอ" "โทษ") ;
GGoodDay = mkGreeting (thword "สวัส" "ดี") ;
GGoodEvening = mkGreeting (thword "สวัส" "ดี") ;
GGoodMorning = mkGreeting (thword "สวัส" "ดี") ;
GGoodNight = mkGreeting (thword "รา" "ตรี" "สวัส" "ดิ์") ;
GGoodbye = mkGreeting (thword "ลา" "ก่อน") ;
GHello = mkGreeting (thword "สวัส" "ดี") ;
GHelp = mkGreeting (thword "ช่วย" "ด้วย") ;
GHowAreYou = mkGreeting (thword "สบาย" "ดี" "ไหม") ;
GLookOut = mkGreeting (thword "ระ" "วัง") ; ---- google
GNiceToMeetYou, GNiceToMeetYouPol =
mkGreeting (thword "ยิน" "ดี" "ที่" "ได้" "รู้" "จัก") ;
GPleaseGive, GPleaseGivePol = mkGreeting "นะ" ;
GSeeYouSoon = mkGreeting (thword "เจอ" "กัน" "นะ") ;
GSorry, GSorryPol = mkGreeting (thword "ขอ" "โทษ") ;
GThanks = mkGreeting (thword "ขอบ" "คุณ") ;
GTheCheck = mkGreeting (thword "เช็ค" "บิล") ;
GCongratulations = mkGreeting (thword "ยิน" "ดี" "ด้วย") ;
GHappyBirthday = mkGreeting (thword "สุข" "สันต์" "วัน" "เกิด") ;
GGoodLuck = mkGreeting (thword "โชค" "ดี" "นะ") ;
}
|
