blob: c637f0d1c5a8ea051fb4a465d124e97af86a6ba8 (
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
--# -path=.:prelude:resource-1.0/thai
concrete TravelTha of Travel = NumeralTha ** open Prelude, StringsTha in {
flags startcat = Order; language = en_US; coding=utf8 ;
lincat
Order = { s : Str } ;
printname cat
Order = "What would you like to say?" ;
lin
order is = { s = is.s } ;
lincat
Output = { s : Str } ;
lin
confirm o t = { s = o.s } ;
flags unlexer=concat ;
lincat
Phrase = SS ;
Number = SS ;
lin
Hello = ss (sawat_s ++ dii_s) ;
Goodbye = ss (laa_s ++ koon_s) ;
Please = ss (khoo_s) ;
ThankYou = ss (khoop_s ++ khun_s) ;
YoureWelcome = ss (yin_s ++ dii_s) ;
Yes = ss (chay_s) ;
No = ss (may_s) ;
ExcuseAttention = ss (khoo_s ++ thoot_s) ;
ExcuseGetPast = ss (khoo_s ++ aphai_s) ;
Sorry = ss (khoo_s ++ thoot_s) ;
IUnderstand = ss (phom_s ++ khow_s ++ jai_s) ;
IDontUnderstand = ss (phom_s ++ may_s ++ khow_s ++ jai_s) ;
Help = ss (chuay_s ++ duay_s) ;
WhereAreToilets = ss (hoog_s ++ nam_s ++ yuu_s ++ thii_s ++ nai_s) ;
SayNumber n = n ;
One = ss (nvg_s) ;
Two = ss (soog_s) ;
Three = ss (saam_s) ;
Four = ss (sii_s) ;
Five = ss (haa_s) ;
Six = ss (hok_s) ;
Seven = ss (cet_s) ;
Eight = ss (peet_s) ;
Nine = ss (kaaw_s) ;
Ten = ss (sip_s) ;
lincat
Product = {s : Str} ;
Kind = {s : Str} ;
printname cat
Product = "what product do you mean?" ;
Kind = "what kind of product do you mean?" ;
lin
HowMuchCost p = ss (p.s ++ thao_s ++ rai_s) ;
IWantToHave p = ss (khoo_s ++ p.s ++ noi_s) ;
This k = ss (k.s ++ nii_s) ;
Beer = ss biar_s ;
Shirt = ss (seua_s ++ cheut_s) ;
}
|
