From 6dc844ed7fd24331a2a84a6fe95e3aa763551594 Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 11 Nov 2011 21:22:18 +0000 Subject: [PATCH] normalized accents in Thai pronunciation test suite --- lib/src/thai/ThaiScript.hs | 10 +- lib/src/thai/src/test.txt | 182 ++++++++++++++++++------------------- 2 files changed, 100 insertions(+), 92 deletions(-) diff --git a/lib/src/thai/ThaiScript.hs b/lib/src/thai/ThaiScript.hs index a36e5ab21..7900cf2d1 100644 --- a/lib/src/thai/ThaiScript.hs +++ b/lib/src/thai/ThaiScript.hs @@ -14,12 +14,20 @@ test = do testOne ws = case ws of m:t:p:r:_ -> appendFile resultFile $ concat [mn,"\t",t,"\t",p,"\t",r,"\t",result,"\n"] where - result = unwords (map thai2pron (words t)) + result = unwords (intersperse "," (map thai2pron (filter (/=",") (words t)))) mn = if result == r then m else if result == p then (m ++ "+") else (m ++ "-") _ -> return () +testOneS ws = case ws of + m:t:p:r:_ -> appendFile resultFile $ concat [m,"\t",t,"\t",pn,"\t",r,"\n"] where + result = unwords (intersperse "," (map thai2pron (filter (/=",") (words t)))) + pn = if m == "+" + then r + else p + _ -> return () + tabs s = case break (=='\t') s of ([], _:ws) -> tabs ws (w , _:ws) -> w:tabs ws diff --git a/lib/src/thai/src/test.txt b/lib/src/thai/src/test.txt index 05aedd719..3fab3adc4 100644 --- a/lib/src/thai/src/test.txt +++ b/lib/src/thai/src/test.txt @@ -1,5 +1,5 @@ -- ฉัน , กู chǎn , kuu chăn , kuu -- เธอ , มึง thəə , mʉŋ thəə , mʉŋ ++ ฉัน , กู chăn , kuu chăn , kuu ++ เธอ , มึง thəə , mʉŋ thəə , mʉŋ - เขา kháw khăw + เรา raw raw - พวกคุณ phûakkhun phwkkhun @@ -13,138 +13,138 @@ - ที่ใด thîiday thîiaydo - เมื่อไร mʉ̂aray eemʉʉɔɔayr - อย่างไร yàaŋray yaaŋayr -- ไม่ mây mây ++ ไม่ mây mây - ทั้งหมด tháŋmòt tháŋmt -- หลาย lǎay lăay -- บ้าง bâaŋ bâaŋ -- สองสาม sɔ̌ɔŋsǎam sɔ̆ɔŋsăam ++ หลาย lăay lăay ++ บ้าง bâaŋ bâaŋ ++ สองสาม sɔ̆ɔŋsăam sɔ̆ɔŋsăam + อื่น ʉ̀ʉn ʉ̀ʉn + หนึ่ง nʉ̀ŋ nʉ̀ŋ -- สอง sɔ̌ɔŋ sɔ̆ɔŋ -- สาม sǎam săam -- สี่ sìi sìi -- ห้า hâa hâa -- ใหญ่ , โต yày , too yày , too ++ สอง sɔ̆ɔŋ sɔ̆ɔŋ ++ สาม săam săam ++ สี่ sìi sìi ++ ห้า hâa hâa ++ ใหญ่ , โต yày , too yày , too + ยาว yaaw yaaw - กว้าง kwâaŋ kwâaŋ -- หนา nǎa năa -- หนัก nàk nàk -- เล็ก , น้อย lék , nɔ́ɔy lék , nɔ́ɔy -- สั้น , เตี้ย sân , tîa sân , tîa -- แคบ khâeaep khɛɛ ++ หนา năa năa ++ หนัก nàk nàk ++ เล็ก , น้อย lék , nɔ́ɔy lék , nɔ́ɔy ++ สั้น , เตี้ย sân , tîa sân , tîa +- แคบ khɛɛp khɛɛ + บาง baaŋ baaŋ + หญิง yĭŋ yĭŋ + ชาย chaay chaay -- ผู้ , คน phûu , khon phûu khon ++ ผู้ , คน phûu khon phûu khon - เด็ก , ศิศุ dèk , sìsù dèk , sìtu - เมีย , ภรรยา mia , phanrayaa mia , phrnyaa -- ผัว , สามี phǔa , sǎamii phăw , săamii ++ ผัว , สามี phăw , săamii phăw , săamii + แม่ mɛ̂ɛ mɛ̂ɛ - พ่อ , บิดา phɔ̂ɔ , bìdaa phɔ̂ɔ , bìtaa - สัตว์ sàt sàtwo + ปลา plaa plaa - นก; วิหค (Sanskrit) nók , wíhòk nk , wikho - หมา; สุนัข (Sanskrit) mǎa , sùnák màa , sŭnakh -- เล็น , เหา len , hǎw len , hăw ++ เล็น , เหา len , hăw len , hăw + งู ŋuu ŋuu - หนอน nɔ̌ɔn nɔ̆ɔn -- ไม้ máay máy -- ดง , ป่า doŋ , pàa doŋ , pàa -- กิ่ง kìŋ kìŋ -- หมาก màak màak -- เม็ด mét mét ++ ไม้ máy máy ++ ดง , ป่า doŋ , pàa doŋ , pàa ++ กิ่ง kìŋ kìŋ ++ หมาก màak màak ++ เม็ด mét mét + ใบ bay bay -- ราก râak râak ++ ราก râak râak - เปลือก , ผิว plʉ̀ak , phĭw eeplʉʉɔɔk , phĭw -- ดอก , ปลี dɔ̀ɔk , plii dɔ̀ɔk , plii -- หญ้า yâa yâa ++ ดอก , ปลี dɔ̀ɔk , plii dɔ̀ɔk , plii ++ หญ้า yâa yâa - เชือก chʉ̂ak eechʉʉɔɔk -- หนัง nǎŋ năŋ ++ หนัง năŋ năŋ - เนื้อ nʉ́a eenʉʉɔɔ - เลือด , โลหิต lʉ̂at , loohìt eelʉʉɔɔd , looit -- กระดูก , ก้าง kradùuk , kâaŋ kràtuuk , kâaŋ +- กระดูก , ก้าง kradùuk , kâaŋ kràtuuk , kâaŋ + มัน man man - ไข่ khày khày -- เขา khǎw khăw -- หาง hǎaŋ hăaŋ ++ เขา khăw khăw ++ หาง hăaŋ hăaŋ - ขน khǒn khon - ผม phǒm phom - หัว hǔa hăw -- หู hǔu hŭu ++ หู hŭu hŭu + ตา taa taa - จมูก camùuk cmuuk -- ปาก pàak pàak ++ ปาก pàak pàak + ฟัน fan fan + ลิ้น lín lín -- เล็บ lép lép -- เท้า , ตีน tháaw , tiin tháw , tiin -- ขา khǎa khăa -- เข่า khàw khàw ++ เล็บ lép lép ++ เท้า , ตีน tháw , tiin tháw , tiin ++ ขา khăa khăa ++ เข่า khàw khàw - มือ mʉʉ mʉʉɔɔ + ปิก pìk pìk + พุง phuŋ phuŋ -- ไส้ sây sây -- คอ , ศอ khɔɔ , sɔ̌ɔ khɔɔ , sɔ̆ɔ -- หลัง lǎŋ lăŋ ++ ไส้ sây sây ++ คอ , ศอ khɔɔ , sɔ̆ɔ khɔɔ , sɔ̆ɔ ++ หลัง lăŋ lăŋ + นม nom nom + ใจ cay cay -- ตับ tàp tàp ++ ตับ tàp tàp + ดื่ม dʉ̀ʉm dʉ̀ʉm + กิน kin kin -- กัด kàt kàt -- ดูด dùut dùut ++ กัด kàt kàt ++ ดูด dùut dùut - ถ่ม , คาย thòm , khaay thm , khaay - อ้วก , อาเจียน ûak , aacian wko , aaeeciiyno -- พัด phát phát -- หายใจ hǎaycay hăaycay ++ พัด phát phát ++ หายใจ hăaycay hăaycay - หัวเราะ hǔarɔ́ hăwrɔ -- เห็น hěn hĕn -- ยิน , ฟัง yin , faŋ yin , faŋ -- รู้ rúu rúu -- คิด khít khít -- มีกลิ่น miiklìn mîiklîn -- กลัว , ยั่น klua , yân klaw , yân ++ เห็น hĕn hĕn ++ ยิน , ฟัง yin , faŋ yin , faŋ ++ รู้ rúu rúu ++ คิด khít khít +- มีกลิ่น miikllîn mîiklîn ++ กลัว , ยั่น klaw , yân klaw , yân + นอน nɔɔn nɔɔn - อยู่ , อาศัย yùu , aasǎi yuu , àatay -- ตาย , วาย taay , waay taay , waay -- ฆ่า , มล้าง khâa , maláaŋ khâa , mláaŋ ++ ตาย , วาย taay , waay taay , waay +- ฆ่า , มล้าง khâa , maláaŋ khâa , mláaŋ - สู้ , รบ sûu , róp sûu , rop -- ล่า lâa lâa ++ ล่า lâa lâa + ตี tii tii -- ตัด , บาด tàt , bàat tàt , bàat -- ผ่า phàa phàa ++ ตัด , บาด tàt , bàat tàt , bàat ++ ผ่า phàa phàa - แทง , เสียบ thɛɛŋ , sìap thɛɛ , sìap + เกา kaw kaw -- ขุด khùt khùt -- ว่าย wâay wâay ++ ขุด khùt khùt ++ ว่าย wâay wâay + บิน bin bin + เดิน dəən dəən + มา maa maa + นอน nɔɔn nɔɔn -- นั่ง nâŋ nâŋ ++ นั่ง nâŋ nâŋ + ยืน yʉʉn yʉʉn -- หัน hǎn hăn ++ หัน hăn hăn - ตก , หล่น tòk , lòn tok , ln -- ให้ hây hây -- อุ้ม ûm ûm -- คั้น khán khán ++ ให้ hây hây ++ อุ้ม ûm ûm ++ คั้น khán khán - ถู , นวด thǔu , nûat thŭu , nwt -- ล้าง láaŋ láaŋ -- เช็ด chét chét -- ดึง , ลาก dʉŋ , lâak dʉŋ , lâak -- ผลัก phlàk phlàk -- ขว้าง , ปา khwâaŋ , paa khwâaŋ , paa -- ผูก , ล่าม phùuk , lâam phùuk , lâam -- เย็บ yép yép -- นับ náp náp -- พูด , บอก phûut , bɔ̀ɔk phûut , bɔ̀ɔk ++ ล้าง láaŋ láaŋ ++ เช็ด chét chét ++ ดึง , ลาก dʉŋ , lâak dʉŋ , lâak ++ ผลัก phlàk phlàk ++ ขว้าง , ปา khwâaŋ , paa khwâaŋ , paa ++ ผูก , ล่าม phùuk , lâam phùuk , lâam ++ เย็บ yép yép ++ นับ náp náp ++ พูด , บอก phûut , bɔ̀ɔk phûut , bɔ̀ɔk + ร้อง rɔ́ɔŋ rɔ́ɔŋ -- เล่น lên lêen ++ เล่น lêen lêen + ลอย lɔɔy lɔɔy -- ไหล lǎy lăy -- แข็ง khǎeŋ khɛ̆ŋ -- ตุ่ม tùm tùm -- ตะวัน , พระอาทิตย์ tawan , phrá?aathít tawan , phrâɔɔaatity ++ ไหล lăy lăy ++ แข็ง khɛ̆ŋ khɛ̆ŋ ++ ตุ่ม tùm tùm +- ตะวัน , พระ อาทิตย์ tawan , phrá aathít tawan , phrâɔɔaatity - เดือน , พระจันทร์ dʉan , phrácan eedʉʉɔɔn , phrátanthr - ดาว , ดารา daaw , daaraa daaw , daanaa - น้ำ , ชล náam , chon nám , chlo @@ -155,7 +155,7 @@ - เกลือ klʉa eeklʉʉɔɔ + หิน hĭn hĭn - ทราย saay thraay -- ฝุ่น; ธุลี (Sanskrit) fùn , thúlii fùn , thunii +- ฝุ่น; ธุลี fùn , thúlii fùn , thunii + ดิน din din - เมฆ mêek mee + หมอก mɔ̀ɔk mɔ̀ɔk @@ -165,26 +165,26 @@ - น้ำแข็ง náamkhǎeŋ nám0x25bɛkhŋ + ควัน khwan khwan - ไฟ , อัคนี fay , akkhanii fay , àknii -- เถ้า thâw thâw -- เผา phǎw phăw ++ เถ้า thâw thâw ++ เผา phăw phăw - ทาง , หน thaaŋ , hǒn thaaŋ , no -- เขา , ภู , ดอย , คิริ phuu , khǎo , dɔɔy , khìrì khăw , phuu , dɔɔy , khini +- เขา , ภู , ดอย , คิริ khăw , phuu , dɔɔy , khìrì khăw , phuu , dɔɔy , khini - แดง dɛɛŋ dɛɛ + เขียว khĭaw khĭaw - เหลือง lʉ̌aŋ eehlʉʉɔɔŋ -- ขาว khǎaw khăaw ++ ขาว khăaw khăaw + ดำ dam dam + กลางคืน klaaŋkhʉʉn klaaŋkhʉʉn + กลางวัน klaaŋwan klaaŋwan - ปี ,ขวบ pii , khùap pii , khwb -- ร้อน , อุ่น rɔ́ɔn , ùn rɔ́ɔn , ùn -- หนาว , เซ็ง nǎaw , sen năaw , seŋ ++ ร้อน , อุ่น rɔ́ɔn , ùn rɔ́ɔn , ùn ++ หนาว , เซ็ง năaw , seŋ năaw , seŋ + เต็ม tem tem -- ใหม่ mày mày -- แก่ , เฒ่า kɛ̀ɛ , thâo kɛ̀ɛ , thâw ++ ใหม่ mày mày ++ แก่ , เฒ่า kɛ̀ɛ , thâw kɛ̀ɛ , thâw + ดี dii dii - เลว , ร้้าย leew , ráay lwee ráay -- เน่า nâo nâw ++ เน่า nâw nâw - สกปรก sòkkapròk skprk - ดิ่ง , ตรง dìŋ , troŋ dìŋ , trŋ - กลม , มน klom , mon klm , mon @@ -193,11 +193,11 @@ + ละมุน lamun lamun - เปียก pìak pìak + แห้ง hɛ̂ɛŋ hɛ̂ɛŋ -- แท้ , แม่น thɛ́ɛ , mɛ̂ɛn thɛ́ɛ , mɛ̂ɛn -- ใกล้ klây klây ++ แท้ , แม่น thɛ́ɛ , mɛ̂ɛn thɛ́ɛ , mɛ̂ɛn ++ ใกล้ klây klây + ไกล klay klay -- ขวา khwǎa khwăa -- ซ้าย sáay sáay ++ ขวา khwăa khwăa ++ ซ้าย sáay sáay + ที่ thîi thîi + ใน nay nay - กับ , ด้วย kàp , dûay kàp , dwyo