From 7b933211d1d0120d04405e2caa5da703af4e4c81 Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 17 Feb 2015 15:23:11 +0000 Subject: [PATCH] TranslateTha compiles with 39+ k words --- lib/src/translator/DictionaryTha.gf | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lib/src/translator/DictionaryTha.gf b/lib/src/translator/DictionaryTha.gf index 31ef6ed6f..1a49d7f81 100644 --- a/lib/src/translator/DictionaryTha.gf +++ b/lib/src/translator/DictionaryTha.gf @@ -8,6 +8,8 @@ flags coding = utf8 ; oper poss = "ของ" ; +oper mkInterj : Str -> Interj = \s -> lin Interj (ss s) ; +oper mkVV : Str -> VV = \s -> lin VV {s = s ; typ = VVPost} ; lin aardvark_N = mkN "ตัวกินมด" ; -- src=panlex lin aba_N = mkN "ชุดอาบา" | mkN "ผ้าอาบา" | mkN "ชุดชาวอาหรับ" ; -- src=panlex @@ -13017,7 +13019,7 @@ lin feudalism_N = mkN "ระบบฟิวดัล" | mkN "ระบบศั lin fever_N = mkN "ไข้" | mkN "ไข้" | mkN "การเป็นไข้" | mkN "โรคที่มีอาการไข้" | mkN "อุณหภูมิร่างกายที่สูงกว่าปกติ" | mkN "การมีอุณหภูมิร่างกายสูงเพราะพิษไข้" ; -- src=panlex lin feverish_A = mkA "ซึ่งมีไข้" | mkA "ซึ่งจับไข้" | mkA "ซึ่งเป็นไข้" | mkA "ซึ่งมีพระปรอท" | mkA "มีไข้" | mkA "เป็นไข้" | mkA "ตื่นเต้น" | mkA "ร้อนรุ่ม" | mkA "เกี่ยวกับไข้" | mkA "กระสับกระส่าย" ; -- src=panlex lin few_A = mkA "น้อย" | mkA "น้อย" | mkA "ไม่มาก" | mkA "เล็กน้อย" | mkA "เกือบไม่มี" ; -- src=panlex -lin few_Det = quantDet (thword "สอง" "สาม") | {-pan-} mkDet "สองสาม" ; -- src=panlex +lin few_Det = quantDet (thword "สอง" "สาม") ; ---- | {-pan-} mkDet "สองสาม" ; -- src=panlex lin few_N = mkN "จํานวนน้อย" | mkN "จํานวนไม่มาก" ; -- src=panlex lin fewness_N = mkN "การมีอยู่น้อย" ; -- src=panlex lin fey_A = mkA "ชอบกล" | mkA "แปลกๆ" | mkA "ประหลาด" | mkA "ที่มีลางสังหรณ์" | mkA "เหนือหลักธรรมชาติ" | mkA "เกี่ยวกับเวทมนตร์คาถา" | mkA "ซึ่งหยั่งรู้ถึงเคราะห์กรรม" | mkA "ซึ่งล่วงรู้เหตุการณ์ล่วงหน้า" ; -- src=panlex @@ -20818,7 +20820,7 @@ lin manufacturing_N = mkN "การประดิษฐ์" | mkN "การ lin manumission_N = mkN "การปล่อยทาสเป็นอิสระ" | mkN "การปล่อยจากความเป็นทาส" | mkN "การปลดปล่อยจากการเป็นทาส" ; -- src=panlex lin manure_N = mkN "ปุ๋ยธรรมชาติ" | mkN "ปุ๋ย" | mkN "ปุ๋ยคอก" | mkN "ปุ๋ยธรรมชาติ" | mkN "ปุ๋ยที่ทําจากมูลสัตว์" ; -- src=panlex lin manuscript_N = mkN "ต้นฉบับ" | mkN "หนังสือที่เขียนด้วยลายมือ" | mkN "ต้นฉบับ" | mkN "ต้นสําเนา" | mkN "การเขียนด้วยมือ" | mkN "ซึ่งเขียนด้วยมือ" | mkN "เอกสารเขียนด้วยมือ" | mkN "ต้นฉบับที่เขียนหรือพิมพ์" | mkN "หนังสือที่เขียนด้วยลายมือ" ; -- src=panlex -lin many_Det = quantDet "หลาย" | {-pan-} mkDet "มาก" | mkDet "หลาย" | mkDet "มากมาย" | mkDet "เยอะแยะ" | mkDet "เป็นจํานวนมาก" ; -- src=panlex +lin many_Det = quantDet "หลาย" ; ---- | {-pan-} mkDet "มาก" | mkDet "หลาย" | mkDet "มากมาย" | mkDet "เยอะแยะ" | mkDet "เป็นจํานวนมาก" ; -- src=panlex lin manzanita_N = mkN "ต้นมาโดรนา" | mkN "ต้นมาโดรโน" | mkN "ต้นแมนซานิตา" ; -- src=panlex lin maoism_N = mkN "ลัทธิเมาเซตุง" ; -- src=panlex lin map_N = mkN "ผท." | mkN "แผนที่" | mkN "ฟังก์ชัน" | mkN "ฟังก์ชันคณิตศาสตร์" | mkN "กะ" | mkN "แผนที่" | mkN "ใบหน้า" ; -- src=panlex @@ -30839,7 +30841,7 @@ lin semibreve_N = mkN "ตัวกลม" | mkN "เครื่องหมา lin semicentennial_N = mkN "วันครบรอบห้าสิบปี" | mkN "วาระครบรอบ 50 ปี" ; -- src=panlex lin semicircle_N = mkN "ครึ่งวงกลม" | mkN "รูปครึ่งวงกลม" | mkN "ครึ่งวงกลม" | mkN "รูปครึ่งวงกลม" | mkN "ส่วนโค้งของครึ่งวงกลม" ; -- src=panlex lin semicircular_A = mkA "ซึ่งเป็นครึ่งวงกลม" ; -- src=panlex -lin semicolon_N = mkN "เซมิโคลอน" | mkN "เครื่องหมายอัฒภาค" | mkN "เครื่องหมายเซมิโคลอน" | mkN "อัฒภาค" | mkN "เซมิโคลอน" | mkN "เครื่องหมาย" | mkN "เครื่องหมาย";"เป็นเครื่องหมายแยกข้อความ" | mkN "เครื่องหมายอัฒภาค" | mkN "เครื่องหมายเซมิโคลอน" | mkN "เป็นเครื่องหมายแยกข้อความ" ; -- src=panlex +lin semicolon_N = mkN "เซมิโคลอน" | mkN "เครื่องหมายอัฒภาค" | mkN "เครื่องหมายเซมิโคลอน" | mkN "อัฒภาค" | mkN "เซมิโคลอน" | mkN "เครื่องหมาย" | mkN "เครื่องหมาย" | mkN "เป็นเครื่องหมายแยกข้อความ" | mkN "เครื่องหมายอัฒภาค" | mkN "เครื่องหมายเซมิโคลอน" | mkN "เป็นเครื่องหมายแยกข้อความ" ; -- src=panlex lin semiconductor_N = mkN "สารกึ่งตัวนำ" | mkN "เซมิคอนดักเตอร์" | mkN "สารกึ่งตัวนํา" | mkN "อุปกรณ์กึ่งตัวนํา" ; -- src=panlex lin semiconscious_A = mkA "ครึ่งหลับครึ่งตื่น" | mkA "ครึ่งหลับครึ่งตื่น" | mkA "ซึ่งรู้สึกตัวไม่เต็มที่" ; -- src=panlex lin semidark_A = mkA "ค่อนข้างมืด" ; -- src=panlex @@ -32318,7 +32320,7 @@ lin sombre_A = mkA "ทึม" ; -- src=panlex lin sombrero_N = mkN "หมวกซอมบรีโร" | mkN "หมวกปีกกว้างแบบเม็กซิโก" ; -- src=panlex lin somePl_Det = quantDet ("บาง") ; lin someSg_Det = quantDet ("บาง") ; -lin some_Det = mkDet "บ้าง" ; -- src=panlex +----lin some_Det = mkDet "บ้าง" ; -- src=panlex lin somebody_NP = mkNP (thword "บาง" "คน") ; lin someday_Adv = mkAdv "บางวัน" ; -- src=panlex lin somehow_Adv = mkAdv "อย่างไรก็ตาม" | mkAdv "ด้วยวิธีใดก็ตาม" | mkAdv "ด้วยเหตุผลบางประการ" | mkAdv "ด้วยเหตุใดเหตุหนึ่ง" ; -- src=panlex