diff --git a/lib/src/Makefile b/lib/src/Makefile index 110620bb1..2f38f5ce6 100644 --- a/lib/src/Makefile +++ b/lib/src/Makefile @@ -26,6 +26,10 @@ lang: api: $(RUNMAKE) alltenses api +# thai with pronunciation +thp: + cd thai ; runghc ThaiScript.hs ; cd .. + compatibility: $(RUNMAKE) present compat diff --git a/lib/src/thai/LexiconTha.gf b/lib/src/thai/LexiconTha.gf index 3286f1efe..6c135a522 100644 --- a/lib/src/thai/LexiconTha.gf +++ b/lib/src/thai/LexiconTha.gf @@ -1,367 +1,362 @@ ---# -path=.:prelude - concrete LexiconTha of Lexicon = CatTha ** open ParadigmsTha, ResTha, Prelude in { +-- (c) AR 2011 in collaboration with Chotiros Kairoje, under LGPL + flags coding = utf8 ; lin --- add_V3 = dirV3 (regV "add") toP ; + add_V3 = mkV3 (mkV "เพิ่ม") ; airplane_N = mkN (thword "เครื่อง" "บิน") "ลำ" ; --- already_Adv = mkAdv "already" ; + already_Adv = mkAdv (thword "เรียบ" "ร้อย") ; animal_N = animalN (thword "สัตว์") ; - answer_V2S = mkV2S (regV "ขาน") [] ; ---- prep --- apartment_N = regN "apartment" ; + answer_V2S = mkV2S (regV "ตอบ") [] ; ---- prep + apartment_N = mkN (thword "ห้อง" "เช่า")"ห้อง" ; apple_N = mkN (thbind "แอป" "เปิ้ล") "ลูก" ; --- art_N = regN "art" ; + art_N = mkN (thword "ศิล" "ปะ") ; ashes_N = mkN (thword "เถ้า") ; - ask_V2Q = regV "ถาน" ** {c2 = []} ; --- atP = mkPrep "at" ; --- baby_N = regN "baby" ; + ask_V2Q = regV "ถาม" ** {c2 = []} ; + at_Prep = mkPrep "ที่" ; + baby_N = mkN (thword "เด็ก" "ทา" "รก") "คน" ; back_N = mkN (thword "หลัง") ; bad_A = mkA (thword "เลว") ; --- bank_N = regN "bank" ; + bank_N = placeN (thword "ธนา" "คาร") ; bark_N = mkN (thword "เปลือก") ; --- beautiful_A = regADeg "beautiful" ; - become_VA = mkVA (regV "กลาย") ; -- pen + beautiful_A = mkA "สวย" ; + become_VA = mkV (thword "กลาย" "เป็น") ; -- pen beer_N = mkN biar_s kew_s ; beg_V2V = regV "ขอ" ** {c2 = []} ; belly_N = mkN (thword "พุง") ; big_A = mkA (thword "ใหญ่") ; - bike_N = mkN (thword "จัก" "รยาน") "คัน" ; - bird_N = animalN (thword "นก") ; + bike_N = mkN (thword "จักร" "ยาน") "คัน" ; + bird_N = mkN (thword "นก") "ตัว" ; bite_V2 = mkV2 (thword "กัด") ; black_A = mkA (thword "ดำ") ; blood_N = mkN (thword "เลือด") ; blow_V = mkV (thword "พัด") ; blue_A = mkA (thword "สี" "น้ำ" "เงิน") ; --- boat_N = regN "boat" ; - bone_N = mkN (thword "กระดูก") ; + boat_N = mkN (thword "เรือ") "ลำ" ; + bone_N = mkN (thword "กระ" "ดูก") ; book_N = mkN (thword nag_s svv_s) lem_s ; --- boot_N = regN "boot" ; --- boss_N = regN "boss" ; --- boy_N = regN "boy" ; + boot_N = mkN (thword "รอง" "เท้า" "บูท") "คู่"; + boss_N = mkN (thword "เจ้า" "นาย")" คน" ; + boy_N = mkN (thword "เด็ก" "ผู้" "ชาย")" คน"; bread_N = mkN (thword "ขนม" "ปัง") "ห่อ" ; --- break_V2 = dirV2 (irregV "break" "broke" "broken") ; - breast_N = mkN (thword "นม") ; + break_V2 = mkV2 "แตกหัก" ; + breast_N = mkN (thword "หน้า" "อก") ; breathe_V = mkV (thword "หาย" "ใจ") ; --- broad_A = regADeg "broad" ; --- brother_N2 = regN2 "brother" ; --- brown_A = regADeg "brown" ; + broad_A = mkA "กว้าง" ; + brother_N2 = mkN2 (personN (thword "พี่" "ชาย")) [] ; + brown_A = mkA (thword "สี" "น้ำ" "ตาล") ; burn_V = mkV (thword "เผา") ; --- butter_N = regN "butter" ; + butter_N = mkN (thword "เนย") "สด" ; ----? buy_V2 = mkV2 "ซื้อ" ; --- camera_N = regN "camera" ; --- cap_N = regN "cap" ; + camera_N = mkN "กล้อง" "ตัว" ; + cap_N = mkN "หมวก" ; car_N = mkN "รถ" "คัน" ; --- carpet_N = regN "carpet" ; --- cat_N = regN "cat" ; --- ceiling_N = regN "ceiling" ; --- chair_N = regN "chair" ; + carpet_N = mkN "พรม" "ผืน" ; + cat_N = mkN "แมว" "ตัว" ; + ceiling_N = mkN (thword "เพ" "ดาน") ; ----? + chair_N = mkN (thword "เก้า" "อี้") "ตัว" ; cheese_N = mkN (thword "เนย" "แข็ง") "ก้อน" ; child_N = personN (thword "ลูก") ; --- personN (thword "เด็ก") ; --- church_N = regN "church" ; - city_N = mkN "นคร" "แห่ง" ; --- clean_A = regADeg "clean" ; --- clever_A = regADeg "clever" ; --- close_V2 = dirV2 (regV "close") ; + church_N = placeN "โบสถ์" ; + city_N = mkN "เมือง" "เมือง" ; + clean_A = mkA (thword "ทำ" "ความ" "สะ" "อาด") ; + clever_A = mkA "ฉลาด" ; + close_V2 = mkV2 (mkV "ปิด") ; cloud_N = mkN (thword "เมฆ") ; --- coat_N = regN "coat" ; + coat_N = mkN (thword "เสื้อ" "คลุม") "ตัว" ; cold_A = mkA (thword "หนาว") ; come_V = mkV (thword "มา") ; --- computer_N = regN "computer" ; - correct_A = mkA (thword "แท้") ; + computer_N = mkN (thword "คอม" "พิว" "เตอร์") "เครื่อง" ; + correct_A = mkA (thword "ถูก") ; count_V2 = mkV2 (thword "นับ") ; country_N = placeN (thword "ประ" "เทศ") ; --- cousin_N = regN "cousin" ; --- cow_N = regN "cow" ; + cousin_N = mkN "ญาติ" "คน" ; + cow_N = mkN "วัว" "ตัว" ; cut_V2 = mkV2 (thword "ตัด") ; day_N = mkN (thword "กลาง" "วัน") ; die_V = mkV (thword "ตาย") ; dig_V = mkV (thword "ขุด") ; dirty_A = mkA (thword "สก" "ปรก") ; - distance_N3 = mkN3 (mkN (thword "ระ" "ยะ" "ฑาง")) "จาก" "ถืง" ; --- do_V2 = dirV2 (mkV "do" "does" "did" "done" "doing") ; --- doctor_N = regN "doctor" ; + distance_N3 = mkN3 (mkN (thword "ระ" "ยะ" "ทาง")) "จาก" "ถืง" ; + do_V2 = mkV2 (mkV "ทำ") ; ----? "ทำ" "ทำ" "ทำ" "กำลังทำ") ; + doctor_N = mkN "หมอ" "คน"; dog_N = animalN (thword "หมา") ; --- door_N = regN "door" ; + door_N = mkN "ประตู" "บาน" ; drink_V2 = mkV2 (thword "ดื่ม") ; dry_A = mkA (thword "แห้ง") ; dull_A = mkA (thword "ทื่อ") ; dust_N = mkN (thword "ฝุ่น") ; ear_N = mkN (thword "หู") ; - earth_N = mkN (thword "ดิน") ; --- easy_A2V = mkA2V (regA "easy") forP ; + earth_N = mkN (thword "โลก") ; + easy_A2V = mkA "ง่าย" ** {c2 = []} ; ----? eat_V2 = mkV2 (thword "กิน") ; egg_N = mkN (thword "ไข่") "ฟอง" ; --- empty_A = regADeg "empty" ; --- enemy_N = regN "enemy" ; + empty_A = mkA (thword "ว่าง" "เปล่า") ; + enemy_N = personN (thword "ศัต" "รู") ; ----? eye_N = mkN (thword "ตา") ; --- factory_N = regN "factory" ; + factory_N = mkN (thword "โรง" "งาน") "โรง" ; fall_V = mkV (thword "ตก") ; far_Adv = ss (thword "ไกล") ; - fat_N = mkN (thword "มัน") ; + fat_N = mkN (thword "ไข" "มัน") ; father_N2 = mkN2 (personN (thword "พ่อ")) [] ; ---- fear_N = mkN (thword "กลัว") ; --- fear_V2 = dirV2 (regV "fear") ; --- fear_VS = mkVS (regV "fear") ; - feather_N = mkN (thword "ขน") ; + fear_N = mkN (thword "ความ" "กลัว") ; + fear_V2 = mkV2 "กลัว"; + fear_VS = mkVS (regV "กลัว") ; + feather_N = mkN (thword "ขน" "นก") ; fight_V2 = mkV2 (thword "สู้") ; --- find_V2 = dirV2 (irregV "find" "found" "found") ; + find_V2 = mkV2 "หา" ; fingernail_N = mkN (thword "เล็บ") ; fire_N = mkN (thword "ไฟ") ; fish_N = animalN (thword "ปลา") ; float_V = mkV (thword "ลอย") ; --- floor_N = regN "floor" ; + floor_N = mkN "พื้น" ; ----? flow_V = mkV (thword "ไหล") ; - flower_N = mkN (thword "ดอก") ; + flower_N = mkN (thword "ดอกไม้") "ดอก" ; fly_V = mkV (thword "บิน") ; fog_N = mkN (thword "หมอก") ; - foot_N = mkN (thword "เท้า") ; --- forP = mkPrep "for" ; - forest_N = mkN (thword "ดง") ; --- forget_V2 = dirV2 (irregDuplV "forget" "forgot" "forgotten") ; + foot_N = mkN (thword "เท้า") " ข้าง" ; +----? forP = mkPrep "สำหรับ" ; + forest_N = placeN (thword "ป่า") ; + forget_V2 = mkV2 "ลืม" ; freeze_V = mkV (thword "แข็ง") ; --- fridge_N = regN "fridge" ; + fridge_N = mkN (thword "ตู้" "เย็น") "ตู้" ; friend_N = personN "เพี่อน" ; --- fromP = mkPrep "from" ; - fruit_N = mkN (thword "หมาก") ; + fruit_N = mkN (thword "ผล" "ไม้") ; full_A = mkA (thword "เต็ม") ; --- fun_AV = mkAV (regA "fun") ; --- garden_N = regN "garden" ; --- girl_N = regN "girl" ; ---- give_V3 = mkV3 (thword "ให้") ; --- glove_N = regN "glove" ; - go_V = regV pay_s ; --- gold_N = regN "gold" ; - good_A = mkA (thword "ดี") ; --- grammar_N = regN "grammar" ; - grass_N = mkN (thword "หญ้า") ; - green_A = mkA (thword "เขียว") ; + fun_AV = mkA "สนุก" ; + garden_N = placeN "สวน" ; + girl_N = mkN (thword "เด็ก" "ผู้" "หญิง") "คน" ; + give_V3 = mkV3 "ให้" ; + glove_N = mkN "ถุง" "มือ" ; ----? + go_V = mkV pay_s ; + gold_N = mkN "ทอง" ; + good_A = mkA "ดี" ; + grammar_N = mkN (thword "ไวย" "กรณ์") ; ----? + grass_N = mkN "หญ้า" ; + green_A = mkA (thword "สี" "เขียว") ; guts_N = mkN (thword "ไส้") ; hair_N = mkN (thword "ผม") ; hand_N = mkN (thword "มือ") ; --- harbour_N = regN "harbour" ; --- hat_N = regN "hat" ; --- hate_V2 = dirV2 (regV "hate") ; --- have_V2 = dirV2 (mkV "have" "has" "had" "had" "having") ; + harbour_N = placeN (thword "ท่า" "เรือ") ; ----? + hat_N = mkN "หมวก" "ใบ" ; + hate_V2 = mkV2 "เกลียด" ; head_N = mkN (thword "หัว") ; - hear_V2 = mkV2 (thword "ยิน") ; + hear_V2 = mkV2 (thword "ได้" "ยิน") ; heart_N = mkN (thword "ใจ") ; heavy_A = mkA (thword "หนัก") ; hill_N = placeN (thword "เนิน" "เขา") ; hit_V2 = mkV2 (thword "ตี") ; - hold_V2 = mkV2 (thword "อุ้ม") ; --- hope_VS = mkVS (regV "hope") ; + hold_V2 = mkV2 (thword "รั้ง") ; + hope_VS = mkVS (regV "หวัง") ; horn_N = mkN (thword "เขา") ; --- horse_N = regN "horse" ; --- hot_A = duplADeg "hot" ; + horse_N = mkN "ม้า" " ตัว" ; + hot_A = mkA "ร้อน" ; house_N = mkN baan_s lag_s ; hunt_V2 = mkV2 (thword "ล่า") ; - husband_N = personN (thword "ผัว") ; + husband_N = personN (thword "สา" "มี") ; ice_N = mkN (thword "น้ำ" "แข็ง") ; --- important_A = compoundADeg (regA "important") ; --- inP = mkPrep "in" ; --- industry_N = regN "industry" ; --- iron_N = regN "iron" ; - john_PN = ss "จน" ; --- jump_V = regV "jump" ; + important_A = mkA (thword "สำ" "คัญ") ; + industry_N = mkN (thword "อุต" "สาห" "กรรม") ; ----? + iron_N = mkN "เหล็ก" ; ----? + john_PN = ss "จอห์น" ; + jump_V = mkV (thword "กระ" "โดด") ; kill_V2 = mkV2 (thword "ฆ่า") ; king_N = mkN (thword "พระ" "รา" "ชา") (thword "พระ" "องด์") ; knee_N = mkN (thword "เข่า") ; - know_V2 = mkV2 "รู้" ; ----- - know_VQ = lin VQ (regV "รู้") ; ----- - know_VS = lin VS (regV "รู้") ; ----- - lake_N = mkN (thword "ทะ" "เล" "สาบ") ; --- lamp_N = regN "lamp" ; - language_N = mkN (thword "ภา" "ษา") ; + know_V2 = mkV2 "รู้" ; ----? + know_VQ = lin VQ (regV "รู้") ; + know_VS = lin VS (regV "รู้") ; + lake_N = mkN (thword "ทะ" "เล" "สาบ") ; ----? + lamp_N = mkN (thword "โคม" "ไฟ") ; ----? + language_N = mkN (thword "ภา" "ษา") ; ----? laugh_V = mkV (thword "หัว" "เราะ") ; leaf_N = mkN (thword "ใบ") ; --- learn_V2 = dirV2 (regV "learn") ; --- leather_N = regN "leather" ; - leave_V2 = mkV2 "ละ" ; --- left_Ord = ss "left" ; + learn_V2 = mkV2 (mkV "เรียน") ; + leather_N = mkN (thword "หนัง" "สัตว์") ; ----? + leave_V2 = mkV2 "จาก" ; + left_Ord = ss "ซ้าย" ; leg_N = mkN (thword "ขา") ; lie_V = mkV (thword "นอน") ; --- like_V2 = dirV2 (regV "like") ; --- listen_V2 = mkV2 (regV "listen") toP ; + like_V2 = mkV2 (mkV "ชอบ") ; + listen_V2 = mkV2 (mkV "ฟัง") ; live_V = mkV (thword "อยู่") ; liver_N = mkN (thword "ตับ") ; long_A = mkA (thword "ยาว") ; --- lose_V2 = dirV2 (irregV "lose" "lost" "lost") ; - louse_N = animalN (thword "เล็น") ; + lose_V2 = mkV2 "หาย" ; + louse_N = animalN (thword "เหา") ; love_N = mkN (thword "ความ" rak_s) ; love_V2 = mkV2 rak_s ; man_N = personN (thword "ชาย") ; married_A2 = mkA2 (mkA (thword "แต่ง" "งาน" "แล้ว")) "กับ" ; meat_N = mkN (thword "เนื้อ") ; - milk_N = mkN (thword "นาม" "นม") kew_s ; - moon_N = mkN (thword "เดือน") ; + milk_N = mkN (thword "นม") kew_s ; + moon_N = mkN (thword "พระ" "จันทร์") ; mother_N2 = personN "แม่" ** {c2 = []} ; mountain_N = mkN (thword "เขา") ; mouth_N = mkN (thword "ปาก") ; --- music_N = regN "music" ; + music_N = mkN (thword "ดน" "ตรี") ; ----? name_N = mkN (thword "ชื่อ") ; narrow_A = mkA (thword "แคบ") ; near_A = mkA "ใกล้" ; near_Adv = mkAdv "ใกล้" ; neck_N = mkN (thword "คอ") ; new_A = mkA (thword "ใหม่") ; --- newspaper_N = regN "newspaper" ; + newspaper_N = mkN (thword "หนัง" "สือ" "พิมพ์") "ฉบับ" ; night_N = mkN (thword "กลาง" "คืน") ; nose_N = mkN (thword "จมูก") ; now_Adv = mkAdv (thword "เดี่ยว" "นี้") ; --- number_N = regN "number" ; --- oil_N = regN "oil" ; + number_N = mkN (thword "หมาย" "เลข") ; ----? + oil_N = mkN (thword "น้ำมัน") ; ----? old_A = mkA (thword "แก่") ; --- onP = mkPrep "on" ; --- open_V2 = dirV2 (regV "open") ; ---- other_A = mkA (thword "อื่น") ; - paint_V2A = mkV2A (regV "ปาย") [] ; --- paper_N = regN "paper" ; + open_V2 = mkV2 (mkV "เปิด") ; + other_A = mkA "อื่น" ; + paint_V2A = mkV2A (regV "ทา") [] ; + paper_N = mkN (thword "กระ" "ดาษ") ; ----? paris_PN = ss "ปารีส" ; --- peace_N = regN "peace" ; --- pen_N = regN "pen" ; --- person_N = genderN human (regN "person") ; --- planet_N = regN "planet" ; --- plastic_N = regN "plastic" ; + peace_N = mkN (thword "สัน" "ติ" "ภาพ"); ----? + pen_N = mkN (thword "ปาก" "กา") ; ----? + person_N = personN (thword "บุค" "คล") ; ----? + planet_N = mkN "ดาว" ; ----? + plastic_N = mkN (thword "พลาส" "ติค") ; ----? play_V = mkV (thword "เล่น") ; --- play_V2 = dirV2 (regV "play") ; --- policeman_N = regN "policeman" ; --- priest_N = regN "priest" ; --- probable_AS = mkAS (regA "probable") ; + play_V2 = mkV2 (mkV "เล่น") ; + policeman_N = mkN (thword "ตำ" "รวจ")"คน" ; + priest_N = mkN (thword "นัก" "บวช")"รูป" ; + probable_AS = mkA (thword "บาง" "ที") ; pull_V2 = mkV2 (thword "ดึง") ; push_V2 = mkV2 (thword "ผลัก") ; --- put_V2 = mkV2 (irregDuplV "put" "put" "put") noPrep ; --- queen_N = regN "queen" ; --- radio_N = regN "radio" ; + put_V2 = mkV2 "ใส่" ; + queen_N = mkN (thword "พระ" "รา" "ชิ" "นี") (thword "พระ" "องค์") ; + radio_N = mkN (thword "วิท" "ยุ") "เครื่อง" ; rain_N = mkN (thword "ฝน") ; - rain_V0 = mkV "มี" "ฝน" ; ---- + rain_V0 = mkV (thword "มี" "ฝน") ; ---- ready_A = mkA "พร้อม" ; reason_N = verbalN "เหตู" ; - read_V2 = mkV2 "อา่น" ; - red_A = mkA (thword "แดง") ; --- religion_N = regN "religion" ; + read_V2 = mkV2 "อ่าน" ; + red_A = mkA (thword "สี" "แดง") ; + religion_N = mkN (thword "ศาส" "นา") ; ----? restaurant_N = placeN (thword "ร้าน" "อาหาร") ; --- right_Ord = ss "right" ; + right_Ord = ss "ขวา" ; river_N = mkN (thword "แม่" "น้ำ") ; - road_N = mkN (thword "ทาง") ; --- rock_N = regN "rock" ; --- roof_N = regN "roof" ; - root_N = mkN (thword "ราก") ; - rope_N = mkN (thword "เชือก") ; + road_N = mkN (thword "ถนน") ; + rock_N = mkN "หิน" ; ----? + roof_N = mkN (thword "หลัง" "คา") ; ----? + root_N = mkN (thword "ราก") ; ----? + rope_N = mkN (thword "เชือก") ; ----? rotten_A = mkA (thword "เน่า") ; round_A = mkA (thword "กลม") ; rub_V2 = mkV2 (thword "ถู") ; --- rubber_N = regN "rubber" ; --- rule_N = regN "rule" ; - run_V = mkV "วิง" ; + rubber_N = mkN "ยาง" ; ----? + rule_N = mkN "กฎ" ; ----? + run_V = mkV "วิ่ง" ; salt_N = mkN (thword "เกลือ") ; sand_N = mkN (thword "ทราย") ; say_VS = mkVS (regV ("ว่า")) ; - school_N = placeN (thword "อาศ" "รม") ; --- science_N = regN "science" ; + school_N = placeN (thword "โรง" "เรียน") ; +---- science_N = mkN "science" ; ----? scratch_V2 = mkV2 (thword "เกา") ; sea_N = mkN (thword "ทะ" "เล") ; see_V2 = mkV2 (thword "เห็น") ; seed_N = mkN (thword "เม็ด") ; --- seek_V2 = dirV2 (irregV "seek" "sought" "sought") ; --- sell_V3 = dirV3 (irregV "sell" "sold" "sold") toP ; - send_V3 = regV "ส่ง" ** {c2,c3 = []} ; ---- prep + seek_V2 = mkV2 "หา" ; + sell_V3 = mkV3 "ขาย" ; + send_V3 = mkV3 "ส่ง" ; sew_V = mkV (thword "เย็บ") ; sharp_A = mkA (thword "คม") ; --- sheep_N = mk2N "sheep" "sheep" ; --- ship_N = regN "ship" ; --- shirt_N = regN "shirt" ; --- shoe_N = regN "shoe" ; + sheep_N = animalN "แกะ" ; + ship_N = mkN "เรือ" ; ----? + shirt_N = mkN (thword "เสื้อ" "เชิ้ต")"ตัว" ; ----? + shoe_N = mkN (thword "รอง" "เท้า") ; ----? shop_N = placeN (thword "ร้าน" "ค้า") ; short_A = mkA (thword "สั้น") ; --- silver_N = regN "silver" ; + silver_N = mkN "เงิน" ; ----? sing_V = mkV (thword "ร้อง") ; --- sister_N = regN "sister" ; + sister_N = mkN (thword "พี่" "สาว")"คน" ; sit_V = mkV (thword "นั่ง") ; - skin_N = mkN (thword "หนัง") ; + skin_N = mkN (thword "ผิว" "หนัง") ; sky_N = mkN (thword "ฟ้า") ; sleep_V = mkV "นอน" "หลับ" ; small_A = mkA (thword "เล็ก") ; - smell_V = mkV (thword "มีก" "ลิ่น") ; + smell_V = mkV (thword "มี" "กลิ่น") ; smoke_N = mkN (thword "ควัน") ; smooth_A = mkA (thword "ละ" "มุน") ; snake_N = animalN (thword "งู") ; - snow_N = mkN (thword "หิมะ") ; --- sock_N = regN "sock" ; --- song_N = regN "song" ; + snow_N = mkN (thword "หิ" "มะ") ; + sock_N = mkN (thword "ถุง" "เท้า") ; ----? + song_N = mkN "เพลง" ; ----? speak_V2 = mkV2 "พูด" ; - spit_V = mkV (thword "ถ่ม") ; + spit_V = mkV (thword "ถ่ม" "น้ำ" "ลาย") ; split_V2 = mkV2 (thword "ผ่า") ; squeeze_V2 = mkV2 (thword "คั้น") ; stab_V2 = mkV2 (thword "แทง") ; stand_V = mkV (thword "ยืน") ; star_N = mkN (thword "ดาว") ; --- steel_N = regN "steel" ; + steel_N = mkN "เหล็ก" ; ----? stick_N = mkN (thword "กิ่ง") ; stone_N = mkN (thword "หิน") ; --- stop_V = regDuplV "stop" ; --- stove_N = regN "stove" ; - straight_A = mkA (thword "ดิ่ง") ; - student_N = personN (thword "นัก" "สืก" "สา") ; --- stupid_A = regADeg "stupid" ; + stop_V = mkV "หยุด" ; + stove_N = mkN "เตา" ; ----? + straight_A = mkA (thword "ตรง") ; + student_N = personN (thword "นัก" "ศึก" "ษา") ; + stupid_A = mkA "โง่" ; suck_V2 = mkV2 (thword "ดูด") ; - sun_N = mkN (thword "ตะ" "วัน") ; - swell_V = mkV (thword "ตุ่ม") ; + sun_N = mkN (thword "พระ" "อา" "ทิตย์") ; + swell_V = mkV (thword "บวม") ; swim_V = mkV (thword "ว่าย") ; --- switch8off_V2 = dirV2 (partV (regV "switch") "off") ; --- switch8on_V2 = dirV2 (partV (regV "switch") "on") ; --- table_N = regN "table" ; - tail_N = mkN (thword "หาง") ; --- talk_V3 = mkV3 (regV "talk") toP aboutP ; + switch8off_V2 = mkV2 "เปิด" ; + switch8on_V2 = mkV2 "ปิด" ; + table_N = mkN "โต๊ะ" "ตัว" ; ----? + tail_N = mkN (thword "หาง") ; ----? + talk_V3 = mkV3 (mkV "พูด") ; ----? teach_V2 = mkV2 "สอน" ; --- teacher_N = regN "teacher" ; --- television_N = regN "television" ; + teacher_N = personN "ครู" ; + television_N = mkN (thword "ที" "วี")"เครื่อง" ; thick_A = mkA (thword "หนา") ; thin_A = mkA (thword "บาง") ; think_V = mkV (thword "คิด") ; throw_V2 = mkV2 (thword "ขว้าง") ; tie_V2 = mkV2 (thword "ผูก") ; --- toP = mkPrep "to" ; today_Adv = ss (thword "วัน" "นี้") ; - tongue_N = mkN (thword "ลิ้น") ; - tooth_N = mkN (thword "ฟัน") ; - train_N = mkN (thword "รถ" "ไฟ") "ขนาน" ; --- travel_V = (regDuplV "travel") ; - tree_N = mkN (thword "ไม้") ; + tongue_N = mkN (thword "ลิ้น") ; ----? + tooth_N = mkN (thword "ฟัน") ; ----? + train_N = mkN (thword "รถ" "ไฟ") "ขบวน" ; + travel_V = mkV "เที่ยว" ; + tree_N = mkN (thword "ต้น" "ไม้") ; ----? turn_V = mkV (thword "หัน") ; --- ugly_A = regADeg "ugly" ; + ugly_A = mkA (thword "น่า" "เกลียด") ; uncertain_A = mkA (thword "ลัง" "เล" "ใจ") ; - understand_V2 = mkV2 (mkV (thword "เข้า" "ไจ")) ; - university_N = placeN (thword "มหา" "วิ" "ทยา" "ลัย") ; --- village_N = regN "village" ; + understand_V2 = mkV2 (mkV (thword "เข้า" "ใจ")) ; + university_N = placeN (thword "มหา" "วิท" "ยา" "ลัย") ; + village_N = placeN (thword "หมู่" "บ้าน") ; vomit_V = mkV (thword "อ้วก") ; wait_V2 = mkV2 "รอ" ; walk_V = mkV (thword "เดิน") ; --- war_N = regN "war" ; - warm_A = mkA (thword "ร้อน") ; + war_N = mkN (thword "สง" "คราม") ; ----? + warm_A = mkA (thword "อุ่น") ; wash_V2 = mkV2 (thword "ล้าง") ; --- watch_V2 = dirV2 (regV "watch") ; - water_N = mkN (thword "น้ำ") ; + watch_V2 = mkV2 "ดู" ; + water_N = mkN (thword "น้ำ") ; ----? wet_A = mkA (thword "เปียก") ; white_A = mkA (thword "ขาว") ; wide_A = mkA (thword "กว้าง") ; wife_N = personN (thword "เมีย") ; --- win_V2 = dirV2 (irregDuplV "win" "won" "won") ; + win_V2 = mkV2 "ชนะ" ; wind_N = mkN (thword "ลม") ; --- window_N = regN "window" ; + window_N = mkN (thword "หน้า" "ต่าง" "บาน") ; ----? wine_N = mkN (thword "เหล้าอ" "งุ่น") "ขวด" ; wing_N = mkN (thword "ปิก") ; wipe_V2 = mkV2 (thword "เช็ด") ; woman_N = personN (thword "หญิง") ; - wonder_VQ = mkVQ (regV (thword "ประ" "หลาด" "ไจ")) ; ---- --- wood_N = regN "wood" ; + wonder_VQ = mkVQ (regV (thword "ประ" "หลาด" "ใจ")) ; ---- + wood_N = mkN "ไม้" ; ----? worm_N = animalN (thword "หนอน") ; - write_V2 = mkV2 "ลง" ; + write_V2 = mkV2 "เขียน" ; year_N = mkN (thword "ปี") ; - yellow_A = mkA (thword "เหลือง") ; + yellow_A = mkA (thword "สี" "เหลือง") ; young_A = mkA "รุ่น" ; } diff --git a/lib/src/thai/ThaiScript.hs b/lib/src/thai/ThaiScript.hs index 0a8ca1d80..1676485e8 100644 --- a/lib/src/thai/ThaiScript.hs +++ b/lib/src/thai/ThaiScript.hs @@ -93,6 +93,7 @@ dat2pron is = case is of [CoL] : cc : [CaP] : d : cs -> prons cc ++ tone cc d cs "o" ++ endWith cs -- o-a -> o [] :[CO]: v : d : cs -> tone[CO]d cs (prons v) ++ endWith cs -- Ov -> v [] : cc : [Ca,Cw] : d : cs -> prons cc ++ tone cc d cs "ua" ++ endWith cs -- Caw -> Cua + [] : cc : v :[CK]:cs -> endWith cs -- swas(di:K) [] : bb : [] : cc : []: d : cs -> prons bb ++ "a" ++ prons cc ++ tone cc [] cs "o" ++ endWith (d:cs) -- CaCoC [] : bb : [] : cc : [] -> prons bb ++ tone bb [] [cc] "o" ++ endWith [cc] -- CoC [] : bb : [] : cc : v : d : cs -> prons bb ++ "a" ++ prons cc ++ tone cc [] cs (prons v) ++ endWith cs -- CaCvC @@ -124,10 +125,12 @@ getSyllable s = case s of Ch:c:cs | isConsonant c && isLow c -> let (cc:ccs) = getCons v (c:cs) in (Ch:cc):ccs -- hC CO:cs -> [CO] :getVow v cs -- O Cs:Cr:cs -> [Cs] :getVow v cs -- O + _:CK:[] -> [] b:Cr:Cr:[] | isConsonant b -> [b] :[Ca]:[]:[Cr]:[] -- Crr -> Can b:Cr:Cr:[c] | all isConsonant [b,c] -> [b] :[Ca]:[]:[c]:[] -- CrrC -> CaC b:c:cs | isCluster b c -> [b,c] :getVow v cs -- C(l|r|w) cluster b:cs | isPreVowel v -> [b] :getVow v cs + b:c:Cw:Cy:[]| isConsonant b && isDiacritic c -> [b]:[Cu,Ca]:[c]:[Cy]:[] -- CTuay b:Cw:Cy:[] | isConsonant b -> [b] :[Cu,Ca]:[]:[Cy]:[] -- Cuay b:c:d:[] | all isConsonant [b,c,d] -> [b] :[]:[c]:[]:[d]:[] -- CaCoC b:c:[] | all isConsonant [b,c] -> [b] :[]:[c]:[] -- CoC