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
|
--# -path=.:prelude
concrete TravelThaiPron of Travel = open Prelude in {
flags coding=utf8 ;
-- this file is processed by
-- GF.Text.Thai.thaiFile "m^eaeaveaveapltrrlhg-" (Just TGT)
-- GF.Text.Thai.thaiPronFile "m^eaeaveaveapltrrlhg-" (Just TGT)
-- to produce target Thai script and pronunciation files.
lincat
Phrase,
Greeting,
Order,
Question,
Sentence,
Object = SS ;
Kind = {s,c : Str} ; -- c is classifier
Quality,
Number,
Speaker,
Hearer,
Gender,
Quantity = SS ;
lin
PGreeting g s h = ss (g.s ++ s.s ++ h.s) ;
POrder g s h = ss (g.s ++ s.s ++ h.s) ;
PQuestion g s h = ss (g.s ++ s.s ++ h.s) ;
PSentence g s h = ss (g.s ++ s.s ++ h.s) ;
MkSpeaker = cc2 ;
MkHearer _ _ = ss [] ;
Male = ss "khr'ap" ;
Female = ss "kh^a" ;
Single, Many = ss [] ;
Hello = ss ["s`awt d-ii"] ;
Thanks = ss ["kh`Op kh-un"] ;
IWant = prefixSS "O-eaa" ;
DoYouHave = postfixSS ["m-ii m~ay"] ;
IsIt x q = ss (x.s ++ q.s ++ "m~ay") ;
ItIs = cc2 ;
Indef k = ss (k.s ++ k.c ++ "n^vg") ;
This k = ss (k.s ++ k.c ++ "n~ii") ;
NumberObjects n k = ss (k.s ++ n.s ++ k.c) ;
One = ss "n^vg" ;
Two = ss "s~Og" ;
Five = ss "h~aa" ;
Ten = ss "s`ip" ;
Mango = cls ["m'a m^owg"] "l^uuk" ;
Green = ss ["s~ii kh`eiiyw"] ;
oper
cls : Str -> Str -> {s,c : Str} = \s,c -> {s = s ; c = c} ;
}
|
