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

last-minute fixes for Thai Phrasebook

Browse Source
This commit is contained in:
aarne
2011-12-09 13:05:41 +00:00
parent 2cc65efff8
commit 194d0f455a
2 changed files with 16 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
examples/phrasebook/WordsTha.gf
View File

@@ -185,13 +185,13 @@ concrete WordsTha of Words = SentencesTha **
-- week days
Monday = mkDay (R.thword "วัน" "จัน" "ทร์") ;
Monday = mkDay (R.thword "วัน" "จั" "นท" "ร์") ;
Tuesday = mkDay (R.thword "วัน" "อัง" "คาร") ;
Wednesday = mkDay (R.thword "วัน" "พุธ") ;
Thursday = mkDay (R.thword "วัน" "พฤ" "หัส" "บดี") ;
Friday = mkDay (R.thword "วัน" "ศุก" "ร์") ;
Saturday = mkDay (R.thword "วัน" "เสา" "ร์") ;
Sunday = mkDay (R.thword "วัน" "อา" "ทิต" "ย์") ;
Friday = mkDay (R.thword "วัน" "ศุกร์") ;
Saturday = mkDay (R.thword "วัน" "เสาร์") ;
Sunday = mkDay (R.thword "วัน" "อา" "ทิตย์") ;
Tomorrow = P.mkAdv (R.thword "วัน" "พรุ่ง" "นี้") ;
@@ -209,16 +209,18 @@ concrete WordsTha of Words = SentencesTha **
-- transports
HowFar place = mkQS (mkQCl howFar.how (mkNP place.name howFar.far)) ;
HowFar place = mkQS (mkQCl howFar.howfar place.name) ; ---- (mkNP place.name howFar.far)) ;
HowFarFrom x y =
mkQS (mkQCl howFar.how (mkCl (mkNP y.name howFar.far) (SyntaxTha.mkAdv from_Prep x.name))) ;
mkQS (mkQCl howFar.how (mkCl (mkNP y.name howFar.far) (lin AP (R.thbind from_Prep x.name)))) ; --- no yuu
HowFarFromBy x y t =
mkQS (mkQCl howFar.how (mkCl (mkNP y.name howFar.far)
(SyntaxTha.mkAdv from_Prep (mkNP x.name t)))) ;
(lin AP (R.thbind from_Prep (mkNP x.name t))))) ;
-- mkQS (mkQCl howFar.how (mkCl (mkNP y.name howFar.far)
-- (SyntaxTha.mkAdv from_Prep (mkNP x.name t)))) ;
HowFarBy y t = mkQS (mkQCl howFar.how (mkCl (mkNP y.name howFar.far) t)) ;
HowFarBy y t = mkQS (mkQCl howFar.how (mkCl (mkNP y.name howFar.far) <t : AP>)) ;
WhichTranspPlace trans place =
mkQS (mkQCl (mkIP which_IDet trans.name) (mkVP (mkVP L.go_V) place.to)) ;
@@ -261,8 +263,8 @@ concrete WordsTha of Words = SentencesTha **
mkCurrency : Str -> CN = \s -> mkCN (mkN [] s) ; ---- just a classifier
howFar : {far : Adv ; how : IAdv} = {
far = lin Adv (ss ("ไกล" + "เท่า" + "ไร")) ; how = lin IAdv (ss [])
howFar : {howfar : IComp ; far : Adv ; how : IAdv} = { --- to avoid yuu
howfar = lin IComp (ss ("ไกล" + "เท่า" + "ไร")) ; far = lin Adv (ss ("ไกล" + "เท่า" + "ไร")) ; how = lin IAdv (ss [])
} ;
at_Prep = mkPrep "ที่" ;

7
lib/src/thai/ThaiScript.hs
View File

@@ -152,7 +152,8 @@ getSyllable s = case s of
isLow c = lookThai Low ccl c == Low
isCluster b c =
(pronTha c == "r" && elem (pronTha b) ["k","kh","p","ph","t"])
(pronTha c == "r" && elem (pronTha b) ["k","kh","p","ph","t"])
|| (pronTha c == "ri" && elem (pronTha b) ["k","kh","p","ph","t"])
|| (pronTha c == "l" && elem (pronTha b) ["k","kh","p","ph"])
|| (pronTha c == "w" && elem (pronTha b) ["k","kh"])
@@ -340,8 +341,8 @@ allThaiChars = [
TC {dat = CoL, uni = 3650, tra = "o:", ccl = Low, liv = True, pro = "oo", enp = "oo"},
TC {dat = CaH, uni = 3651, tra = "a%", ccl = Low, liv = True, pro = "ay", enp = "ay"},
TC {dat = CaE, uni = 3652, tra = "a&", ccl = Low, liv = True, pro = "ay", enp = "ay"},
TC {dat = CL, uni = 3653, tra = "L", ccl = Low, liv = True, pro = "l", enp = "n"},
TC {dat = CR, uni = 3654, tra = "R", ccl = Low, liv = True, pro = "r", enp = "n"},
TC {dat = CL, uni = 3653, tra = "L", ccl = Low, liv = True, pro = "li", enp = "n"},
TC {dat = CR, uni = 3654, tra = "R", ccl = Low, liv = True, pro = "ri", enp = "n"},
TC {dat = CS, uni = 3655, tra = "S", ccl = Low, liv = True, pro = "", enp = ""},
TC {dat = CT1, uni = 3656, tra = "T1", ccl = Low, liv = True, pro = "", enp = ""},
TC {dat = CT2, uni = 3657, tra = "T2", ccl = Low, liv = True, pro = "", enp = ""},