msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

thai questions and negations

Browse Source
This commit is contained in:
aarne
2007-01-21 20:41:35 +00:00
parent abeb18fb20
commit e226a377d6
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
examples/travel/TravelTha.gf
View File

@@ -39,12 +39,12 @@ concrete TravelTha of Travel = open Prelude in {
MkSpeaker = cc2 ;
MkHearer _ _ = ss [] ;
Male = ss "k2rab" ;
Female = ss "k2T1a" ;
Male = ss "k2ra.b" ;
Female = ss "k2T1a." ;
Single, Many = ss [] ;
Hello = ss ["swa.s di:"] ;
Hello = ss ["swas di:"] ;
Thanks = ss ["k1Ob k2un'"] ;
IWant = prefixSS "eOa:" ;
@@ -64,7 +64,7 @@ concrete TravelTha of Travel = open Prelude in {
Five = ss "ha:" ;
Ten = ss "sib" ;
Mango = cls ["ma mT1wg"] "lu:k" ;
Mango = cls ["ma. mT1wg"] "lu:k" ;
Green = ss ["si: ek1i:yw"] ;
oper

2
src/GF/Text/Thai.hs
View File

@@ -79,7 +79,7 @@ allThaiTrans = words $
"- k k1 - k2 - k3 g c c1 c2 s' c3 y' d' t' " ++
"t1 t2 t3 n' d t t4 t5 t6 n b p p1 f p2 f' " ++
"p3 m y r - l - w s- r' s h l' O h' - " ++
"a a. a: a+ i i: v v: u u: - - - - - - " ++
"a. a a: a+ i i: v v: u u: - - - - - - " ++
"e e' o: a% a& L R S T1 T2 T3 T4 K - - - " ++
"N0 N1 N2 N3 N4 N5 N6 N7 N8 N9 - - - - - - "