normalized accents in Thai pronunciation test suite

2026-04-09 04:59:31 -06:00 · 2011-11-11 21:22:18 +00:00
parent 79ba3c0877
commit 6dc844ed7f
2 changed files with 100 additions and 92 deletions
--- 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
--- a/lib/src/thai/src/test.txt
+++ b/lib/src/thai/src/test.txt
@@ -1,5 +1,5 @@
-	ฉัน , กู	chǎn , kuu	chăn , kuu
-	เธอ , มึง	thəə , mʉŋ	thəə , mʉŋ
+	ฉัน , กู	chăn , kuu	chăn , kuu
+	เธอ , มึง	thəə , mʉŋ	thəə , mʉŋ
 -	เขา	kháw	khăw
 +	เรา	raw	raw
 -	พวกคุณ	phûakkhun	phwkkhun
@@ -13,138 +13,138 @@
 -	ที่ใด	thîiday	thîiaydo
 -	เมื่อไร	mʉ̂aray	eemʉʉɔɔayr
 -	อย่างไร	yàaŋray	yaaŋayr
-	ไม่	mây	mây
+	ไม่	mây	mây
 -	ทั้งหมด	tháŋmòt	tháŋmt
-	หลาย	lǎay	lăay
-	บ้าง	bâaŋ	bâaŋ
-	สองสาม	sɔ̌ɔŋsǎam	sɔ̆ɔŋsăam
+	หลาย	lăay	lăay
+	บ้าง	bâaŋ	bâaŋ
+	สองสาม	sɔ̆ɔŋsăam	sɔ̆ɔŋsăam
 +	อื่น	ʉ̀ʉn	ʉ̀ʉn
 +	หนึ่ง	nʉ̀ŋ	nʉ̀ŋ
-	สอง	sɔ̌ɔŋ	sɔ̆ɔŋ
-	สาม	sǎam	săam
-	สี่	sìi	sìi
-	ห้า	hâa	hâa
-	ใหญ่ , โต	yày , too	yày , too
+	สอง	sɔ̆ɔŋ	sɔ̆ɔŋ
+	สาม	săam	săam
+	สี่	sìi 	sìi 
+	ห้า	hâa	hâa
+	ใหญ่ , โต	yày , too	yày , too
 +	ยาว	yaaw	yaaw
 -	กว้าง	kwâaŋ	kwâaŋ
-	หนา	nǎa	năa
-	หนัก	nàk	nàk
-	เล็ก , น้อย	lék , nɔ́ɔy	lék , nɔ́ɔy
-	สั้น , เตี้ย	sân , tîa	sân , tîa
-	แคบ	khâeaep	khɛɛ
+	หนา	năa	năa
+	หนัก	nàk	nàk
+	เล็ก , น้อย	lék , nɔ́ɔy	lék , nɔ́ɔy
+	สั้น , เตี้ย	sân , tîa	sân , tîa
+-	แคบ	khɛɛp	khɛɛ
 +	บาง	baaŋ	baaŋ
 +	หญิง	yĭŋ	yĭŋ
 +	ชาย	chaay	chaay
-	ผู้ , คน	phûu , khon	phûu  khon
+	ผู้ , คน	phûu  khon	phûu  khon
 -	เด็ก , ศิศุ	dèk , sìsù	dèk , sìtu
 -	เมีย , ภรรยา	mia , phanrayaa	mia , phrnyaa
-	ผัว , สามี	phǔa , sǎamii	phăw , săamii
+	ผัว , สามี	phăw , săamii	phăw , săamii
 +	แม่	mɛ̂ɛ	mɛ̂ɛ
 -	พ่อ , บิดา	phɔ̂ɔ , bìdaa	phɔ̂ɔ , bìtaa
 -	สัตว์	sàt	sàtwo
 +	ปลา	plaa	plaa
 -	นก; วิหค (Sanskrit)	nók , wíhòk	nk , wikho 
 -	หมา; สุนัข (Sanskrit)	mǎa , sùnák	màa , sŭnakh 
-	เล็น , เหา	len , hǎw	len  , hăw
+	เล็น , เหา	len  , hăw	len  , hăw
 +	งู	ŋuu	ŋuu
 -	หนอน	nɔ̌ɔn	nɔ̆ɔn
-	ไม้	máay	máy
-	ดง , ป่า	doŋ , pàa	doŋ , pàa
-	กิ่ง	kìŋ	kìŋ
-	หมาก	màak	màak
-	เม็ด	mét	mét
+	ไม้	máy	máy
+	ดง , ป่า	doŋ , pàa	doŋ , pàa
+	กิ่ง	kìŋ	kìŋ
+	หมาก	màak	màak
+	เม็ด	mét	mét
 +	ใบ	bay	bay
-	ราก	râak	râak
+	ราก	râak	râak
 -	เปลือก , ผิว	plʉ̀ak , phĭw	eeplʉʉɔɔk , phĭw
-	ดอก , ปลี	dɔ̀ɔk , plii	dɔ̀ɔk , plii
-	หญ้า	yâa	yâa
+	ดอก , ปลี	dɔ̀ɔk , plii	dɔ̀ɔk , plii
+	หญ้า	yâa	yâa
 -	เชือก	chʉ̂ak	eechʉʉɔɔk
-	หนัง	nǎŋ	năŋ
+	หนัง	năŋ	năŋ
 -	เนื้อ	nʉ́a	eenʉʉɔɔ
 -	เลือด , โลหิต	lʉ̂at , loohìt	eelʉʉɔɔd , looit
-	กระดูก , ก้าง	kradùuk , kâaŋ	kràtuuk , kâaŋ
+-	กระดูก , ก้าง	kradùuk , kâaŋ	kràtuuk , kâaŋ
 +	มัน	man	man
 -	ไข่	khày	khày
-	เขา	khǎw	khăw
-	หาง	hǎaŋ	hăaŋ
+	เขา	khăw	khăw
+	หาง	hăaŋ	hăaŋ
 -	ขน	khǒn	khon
 -	ผม	phǒm	phom
 -	หัว	hǔa	hăw
-	หู	hǔu	hŭu
+	หู	hŭu	hŭu
 +	ตา	taa	taa
 -	จมูก	camùuk	cmuuk
-	ปาก	pàak	pàak
+	ปาก	pàak	pàak
 +	ฟัน	fan	fan
 +	ลิ้น	lín	lín
-	เล็บ	lép	lép
-	เท้า , ตีน	tháaw , tiin	tháw , tiin
-	ขา	khǎa	khăa
-	เข่า	khàw	khàw
+	เล็บ	lép	lép
+	เท้า , ตีน	tháw , tiin	tháw , tiin
+	ขา	khăa	khăa
+	เข่า	khàw	khàw
 -	มือ	mʉʉ	mʉʉɔɔ
 +	ปิก	pìk	pìk
 +	พุง	phuŋ	phuŋ
-	ไส้	sây	sây
-	คอ , ศอ	khɔɔ , sɔ̌ɔ	khɔɔ , sɔ̆ɔ
-	หลัง	lǎŋ	lăŋ
+	ไส้	sây	sây
+	คอ , ศอ	khɔɔ , sɔ̆ɔ	khɔɔ , sɔ̆ɔ
+	หลัง	lăŋ	lăŋ
 +	นม	nom	nom
 +	ใจ	cay	cay
-	ตับ	tàp	tàp
+	ตับ	tàp	tàp
 +	ดื่ม	dʉ̀ʉm	dʉ̀ʉm
 +	กิน	kin	kin
-	กัด	kàt	kàt
-	ดูด	dùut	dùut
+	กัด	kàt	kàt
+	ดูด	dùut	dùut
 -	ถ่ม , คาย	thòm , khaay	thm , khaay
 -	อ้วก , อาเจียน	ûak , aacian	wko , aaeeciiyno
-	พัด	phát	phát
-	หายใจ	hǎaycay	hăaycay
+	พัด	phát	phát
+	หายใจ	hăaycay	hăaycay
 -	หัวเราะ	hǔarɔ́	hăwrɔ
-	เห็น	hěn	hĕn
-	ยิน , ฟัง	yin , faŋ	yin , faŋ
-	รู้	rúu	rúu
-	คิด	khít	khít
-	มีกลิ่น	miiklìn	mîiklîn
-	กลัว , ยั่น	klua , yân	klaw , yân
+	เห็น	hĕn	hĕn
+	ยิน , ฟัง	yin , faŋ	yin , faŋ
+	รู้	rúu	rúu
+	คิด	khít	khít
+-	มีกลิ่น	miikllîn	mîiklîn
+	กลัว , ยั่น	klaw , yân	klaw , yân
 +	นอน	nɔɔn	nɔɔn
 -	อยู่ , อาศัย	yùu , aasǎi	yuu , àatay
-	ตาย , วาย	taay , waay	taay , waay
-	ฆ่า , มล้าง	khâa , maláaŋ	khâa , mláaŋ
+	ตาย , วาย	taay , waay	taay , waay
+-	ฆ่า , มล้าง	khâa , maláaŋ	khâa , mláaŋ
 -	สู้ , รบ	sûu , róp	sûu , rop
-	ล่า	lâa	lâa
+	ล่า	lâa	lâa
 +	ตี	tii	tii
-	ตัด , บาด	tàt , bàat	tàt , bàat
-	ผ่า	phàa	phàa
+	ตัด , บาด	tàt , bàat	tàt , bàat
+	ผ่า	phàa	phàa
 -	แทง , เสียบ	thɛɛŋ , sìap	thɛɛ , sìap
 +	เกา	kaw	kaw
-	ขุด	khùt	khùt
-	ว่าย	wâay	wâay
+	ขุด	khùt	khùt
+	ว่าย	wâay	wâay
 +	บิน	bin	bin
 +	เดิน	dəən	dəən
 +	มา	maa	maa
 +	นอน	nɔɔn	nɔɔn
-	นั่ง	nâŋ	nâŋ
+	นั่ง	nâŋ	nâŋ
 +	ยืน	yʉʉn	yʉʉn
-	หัน	hǎn	hăn
+	หัน	hăn	hăn
 -	ตก , หล่น	tòk , lòn	tok , ln
-	ให้	hây	hây
-	อุ้ม	ûm	ûm
-	คั้น	khán	khán
+	ให้	hây	hây
+	อุ้ม	ûm	ûm
+	คั้น	khán	khán
 -	ถู , นวด	thǔu , nûat	thŭu , nwt
-	ล้าง	láaŋ	láaŋ
-	เช็ด	chét	chét
-	ดึง , ลาก	dʉŋ , lâak	dʉŋ , lâak
-	ผลัก	phlàk	phlàk
-	ขว้าง , ปา	khwâaŋ , paa	khwâaŋ , paa
-	ผูก , ล่าม	phùuk , lâam	phùuk , lâam
-	เย็บ	yép	yép
-	นับ	náp	náp
-	พูด , บอก	phûut , bɔ̀ɔk	phûut , bɔ̀ɔk
+	ล้าง	láaŋ	láaŋ
+	เช็ด	chét	chét
+	ดึง , ลาก	dʉŋ , lâak	dʉŋ , lâak
+	ผลัก	phlàk	phlàk
+	ขว้าง , ปา	khwâaŋ , paa	khwâaŋ , paa
+	ผูก , ล่าม	phùuk , lâam	phùuk , lâam
+	เย็บ	yép	yép
+	นับ	náp	náp
+	พูด , บอก	phûut , bɔ̀ɔk	phûut , bɔ̀ɔk
 +	ร้อง	rɔ́ɔŋ	rɔ́ɔŋ
-	เล่น	lên	lêen
+	เล่น	lêen	lêen
 +	ลอย	lɔɔy	lɔɔy
-	ไหล	lǎy	lăy
-	แข็ง	khǎeŋ	khɛ̆ŋ
-	ตุ่ม	tùm	tùm
-	ตะวัน , พระอาทิตย์	tawan , phrá?aathít	tawan , phrâɔɔaatity 
+	ไหล	lăy	lăy
+	แข็ง	khɛ̆ŋ	khɛ̆ŋ
+	ตุ่ม	tùm	tùm
+-	ตะวัน , พระ อาทิตย์	tawan , phrá aathít	tawan , phrâɔɔaatity 
 -	เดือน , พระจันทร์	dʉan , phrácan	eedʉʉɔɔn , phrátanthr 
 -	ดาว , ดารา	daaw , daaraa	daaw , daanaa 
 -	น้ำ , ชล	náam , chon	nám , chlo 
@@ -155,7 +155,7 @@
 -	เกลือ	klʉa	eeklʉʉɔɔ
 +	หิน	hĭn	hĭn
 -	ทราย	saay	thraay
-	ฝุ่น; ธุลี (Sanskrit)	fùn , thúlii	fùn , thunii 
+-	ฝุ่น; ธุลี 	fùn , thúlii	fùn , thunii 
 +	ดิน	din	din
 -	เมฆ	mêek	mee
 +	หมอก	mɔ̀ɔk	mɔ̀ɔk
@@ -165,26 +165,26 @@
 -	น้ำแข็ง	náamkhǎeŋ	nám0x25bɛkhŋ
 +	ควัน	khwan	khwan
 -	ไฟ , อัคนี	fay , akkhanii	fay , àknii
-	เถ้า	thâw	thâw
-	เผา	phǎw	phăw
+	เถ้า	thâw	thâw
+	เผา	phăw	phăw
 -	ทาง , หน	thaaŋ , hǒn	thaaŋ , no
-	เขา , ภู , ดอย , คิริ	phuu , khǎo , dɔɔy , khìrì	khăw , phuu , dɔɔy , khini
+-	เขา , ภู , ดอย , คิริ	khăw , phuu , dɔɔy , khìrì	khăw , phuu , dɔɔy , khini
 -	แดง	dɛɛŋ	dɛɛ
 +	เขียว	khĭaw	khĭaw
 -	เหลือง	lʉ̌aŋ	eehlʉʉɔɔŋ
-	ขาว	khǎaw	khăaw
+	ขาว	khăaw	khăaw
 +	ดำ	dam	dam
 +	กลางคืน	klaaŋkhʉʉn	klaaŋkhʉʉn
 +	กลางวัน	klaaŋwan	klaaŋwan
 -	ปี ,ขวบ	pii , khùap	pii , khwb
-	ร้อน , อุ่น	rɔ́ɔn , ùn	rɔ́ɔn , ùn
-	หนาว , เซ็ง	nǎaw , sen	năaw , seŋ
+	ร้อน , อุ่น	rɔ́ɔn , ùn	rɔ́ɔn , ùn
+	หนาว , เซ็ง	năaw , seŋ	năaw , seŋ
 +	เต็ม	tem	tem
-	ใหม่	mày	mày
-	แก่ , เฒ่า	kɛ̀ɛ , thâo	kɛ̀ɛ , thâw
+	ใหม่	mày	mày
+	แก่ , เฒ่า	kɛ̀ɛ , thâw	kɛ̀ɛ , thâw
 +	ดี	dii	dii
 -	เลว , ร้้าย	leew , ráay	lwee  ráay
-	เน่า	nâo	nâw
+	เน่า	nâw	nâw
 -	สกปรก	sòkkapròk	skprk
 -	ดิ่ง , ตรง	dìŋ , troŋ	dìŋ , trŋ
 -	กลม , มน	klom , mon	klm ,  mon
@@ -193,11 +193,11 @@
 +	ละมุน	lamun	lamun
 -	เปียก	pìak	pìak
 +	แห้ง	hɛ̂ɛŋ	hɛ̂ɛŋ
-	แท้ , แม่น	thɛ́ɛ , mɛ̂ɛn	thɛ́ɛ , mɛ̂ɛn
-	ใกล้	klây	klây
+	แท้ , แม่น	thɛ́ɛ , mɛ̂ɛn	thɛ́ɛ , mɛ̂ɛn
+	ใกล้	klây	klây
 +	ไกล	klay	klay
-	ขวา	khwǎa	khwăa
-	ซ้าย	sáay	sáay
+	ขวา	khwăa	khwăa
+	ซ้าย	sáay	sáay
 +	ที่	thîi	thîi
 +	ใน	nay	nay
 -	กับ , ด้วย	kàp , dûay	kàp , dwyo