From e00054061b102cee787d5f34d86748363074ea16 Mon Sep 17 00:00:00 2001 From: aarne Date: Sun, 20 Nov 2011 15:08:57 +0000 Subject: [PATCH] new ResTha oper thword, to build lexical words --- lib/src/thai/LexiconTha.gf | 356 +++++++++++++++++----------------- lib/src/thai/ResTha.gf | 7 + lib/src/thai/StructuralTha.gf | 54 +++--- 3 files changed, 208 insertions(+), 209 deletions(-) diff --git a/lib/src/thai/LexiconTha.gf b/lib/src/thai/LexiconTha.gf index 1f9b0926e..108092f5b 100644 --- a/lib/src/thai/LexiconTha.gf +++ b/lib/src/thai/LexiconTha.gf @@ -10,46 +10,46 @@ lin -- add_V3 = dirV3 (regV "add") toP ; -- airplane_N = regN "airplane" ; -- already_Adv = mkAdv "already" ; - animal_N = animalN (thbind "สัตว์") ; + animal_N = animalN (thword "สัตว์") ; -- answer_V2S = mkV2S (regV "answer") toP ; -- apartment_N = regN "apartment" ; -- apple_N = regN "apple" ; -- art_N = regN "art" ; - ashes_N = mkN (thbind "เถ้า") ; + ashes_N = mkN (thword "เถ้า") ; ask_V2Q = regV "ถาน" ** {c2 = []} ; -- atP = mkPrep "at" ; -- baby_N = regN "baby" ; - back_N = mkN (thbind "หลัง") ; - bad_A = mkA (thbind "เลว") ; + back_N = mkN (thword "หลัง") ; + bad_A = mkA (thword "เลว") ; -- bank_N = regN "bank" ; - bark_N = mkN (thbind "เปลือก") ; + bark_N = mkN (thword "เปลือก") ; -- beautiful_A = regADeg "beautiful" ; -- become_VA = mkVA (irregV "become" "became" "become") ; beer_N = mkN biar_s kew_s ; beg_V2V = regV "ขอ" ** {c2 = []} ; - belly_N = mkN (thbind "พุง") ; - big_A = mkA (thbind "ใหญ่") ; --- bike_N = regN "bike" ; - bird_N = animalN (thbind "นก") ; - bite_V2 = mkV2 (thbind "กัด") ; - black_A = mkA (thbind "ดำ") ; - blood_N = mkN (thbind "เลือด") ; - blow_V = mkV (thbind "พัด") ; + belly_N = mkN (thword "พุง") ; + big_A = mkA (thword "ใหญ่") ; + bike_N = mkN (thword "จัก" "รยาน") "คัน" ; + bird_N = animalN (thword "นก") ; + bite_V2 = mkV2 (thword "กัด") ; + black_A = mkA (thword "ดำ") ; + blood_N = mkN (thword "เลือด") ; + blow_V = mkV (thword "พัด") ; -- blue_A = regADeg "blue" ; -- boat_N = regN "boat" ; - bone_N = mkN (thbind "กระดูก") ; - book_N = mkN (thbind nag_s svv_s) lem_s ; + 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" ; -- bread_N = regN "bread" ; -- break_V2 = dirV2 (irregV "break" "broke" "broken") ; - breast_N = mkN (thbind "นม") ; - breathe_V = mkV (thbind "หาย" "ใจ") ; + breast_N = mkN (thword "นม") ; + breathe_V = mkV (thword "หาย" "ใจ") ; -- broad_A = regADeg "broad" ; -- brother_N2 = regN2 "brother" ; -- brown_A = regADeg "brown" ; - burn_V = mkV (thbind "เผา") ; + burn_V = mkV (thword "เผา") ; -- butter_N = regN "butter" ; -- buy_V2 = dirV2 (irregV "buy" "bought" "bought") ; -- camera_N = regN "camera" ; @@ -60,164 +60,164 @@ lin -- ceiling_N = regN "ceiling" ; -- chair_N = regN "chair" ; -- cheese_N = regN "cheese" ; - child_N = mkN (thbind "เด็ก") ; + child_N = mkN (thword "เด็ก") ; -- church_N = regN "church" ; city_N = mkN "นคร" "แห่ง" ; -- clean_A = regADeg "clean" ; -- clever_A = regADeg "clever" ; -- close_V2 = dirV2 (regV "close") ; - cloud_N = mkN (thbind "เมฆ") ; + cloud_N = mkN (thword "เมฆ") ; -- coat_N = regN "coat" ; - cold_A = mkA (thbind "หนาว") ; - come_V = mkV (thbind "มา") ; + cold_A = mkA (thword "หนาว") ; + come_V = mkV (thword "มา") ; -- computer_N = regN "computer" ; - correct_A = mkA (thbind "แท้") ; - count_V2 = mkV2 (thbind "นับ") ; + correct_A = mkA (thword "แท้") ; + count_V2 = mkV2 (thword "นับ") ; -- country_N = regN "country" ; -- cousin_N = regN "cousin" ; -- cow_N = regN "cow" ; - cut_V2 = mkV2 (thbind "ตัด") ; - day_N = mkN (thbind "กลาง" "วัน") ; - die_V = mkV (thbind "ตาย") ; - dig_V = mkV (thbind "ขุด") ; - dirty_A = mkA (thbind "สก" "ปรก") ; - distance_N3 = mkN3 (mkN (thbind "ระ" "ยะ" "ฑาง")) "จาก" "ถืง" ; + 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" ; - dog_N = animalN (thbind "หมา") ; + dog_N = animalN (thword "หมา") ; -- door_N = regN "door" ; - drink_V2 = mkV2 (thbind "ดื่ม") ; - dry_A = mkA (thbind "แห้ง") ; - dull_A = mkA (thbind "ทื่อ") ; - dust_N = mkN (thbind "ฝุ่น") ; - ear_N = mkN (thbind "หู") ; - earth_N = mkN (thbind "ดิน") ; + 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 ; - eat_V2 = mkV2 (thbind "กิน") ; - egg_N = mkN (thbind "ไข่") ; + eat_V2 = mkV2 (thword "กิน") ; + egg_N = mkN (thword "ไข่") ; -- empty_A = regADeg "empty" ; -- enemy_N = regN "enemy" ; - eye_N = mkN (thbind "ตา") ; + eye_N = mkN (thword "ตา") ; -- factory_N = regN "factory" ; - fall_V = mkV (thbind "ตก") ; - far_Adv = ss (thbind "ไกล") ; - fat_N = mkN (thbind "มัน") ; - father_N2 = mkN2 (personN (thbind "พ่อ")) [] ; ---- fear_N = mkN (thbind "กลัว") ; + fall_V = mkV (thword "ตก") ; + far_Adv = ss (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 (thbind "ขน") ; - fight_V2 = mkV2 (thbind "สู้") ; + feather_N = mkN (thword "ขน") ; + fight_V2 = mkV2 (thword "สู้") ; -- find_V2 = dirV2 (irregV "find" "found" "found") ; - fingernail_N = mkN (thbind "เล็บ") ; - fire_N = mkN (thbind "ไฟ") ; - fish_N = animalN (thbind "ปลา") ; - float_V = mkV (thbind "ลอย") ; + fingernail_N = mkN (thword "เล็บ") ; + fire_N = mkN (thword "ไฟ") ; + fish_N = animalN (thword "ปลา") ; + float_V = mkV (thword "ลอย") ; -- floor_N = regN "floor" ; - flow_V = mkV (thbind "ไหล") ; - flower_N = mkN (thbind "ดอก") ; - fly_V = mkV (thbind "บิน") ; - fog_N = mkN (thbind "หมอก") ; - foot_N = mkN (thbind "เท้า") ; + flow_V = mkV (thword "ไหล") ; + flower_N = mkN (thword "ดอก") ; + fly_V = mkV (thword "บิน") ; + fog_N = mkN (thword "หมอก") ; + foot_N = mkN (thword "เท้า") ; -- forP = mkPrep "for" ; - forest_N = mkN (thbind "ดง") ; + forest_N = mkN (thword "ดง") ; -- forget_V2 = dirV2 (irregDuplV "forget" "forgot" "forgotten") ; - freeze_V = mkV (thbind "แข็ง") ; + freeze_V = mkV (thword "แข็ง") ; -- fridge_N = regN "fridge" ; -- friend_N = regN "friend" ; -- fromP = mkPrep "from" ; - fruit_N = mkN (thbind "หมาก") ; - full_A = mkA (thbind "เต็ม") ; + fruit_N = mkN (thword "หมาก") ; + full_A = mkA (thword "เต็ม") ; -- fun_AV = mkAV (regA "fun") ; -- garden_N = regN "garden" ; -- girl_N = regN "girl" ; ---- give_V3 = mkV3 (thbind "ให้") ; +--- give_V3 = mkV3 (thword "ให้") ; -- glove_N = regN "glove" ; go_V = regV pay_s ; -- gold_N = regN "gold" ; - good_A = mkA (thbind "ดี") ; + good_A = mkA (thword "ดี") ; -- grammar_N = regN "grammar" ; - grass_N = mkN (thbind "หญ้า") ; - green_A = mkA (thbind "เขียว") ; - guts_N = mkN (thbind "ไส้") ; - hair_N = mkN (thbind "ผม") ; - hand_N = mkN (thbind "มือ") ; + grass_N = mkN (thword "หญ้า") ; + 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") ; - head_N = mkN (thbind "หัว") ; - hear_V2 = mkV2 (thbind "ยิน") ; - heart_N = mkN (thbind "ใจ") ; - heavy_A = mkA (thbind "หนัก") ; + head_N = mkN (thword "หัว") ; + hear_V2 = mkV2 (thword "ยิน") ; + heart_N = mkN (thword "ใจ") ; + heavy_A = mkA (thword "หนัก") ; -- hill_N = regN "hill" ; - hit_V2 = mkV2 (thbind "ตี") ; - hold_V2 = mkV2 (thbind "อุ้ม") ; + hit_V2 = mkV2 (thword "ตี") ; + hold_V2 = mkV2 (thword "อุ้ม") ; -- hope_VS = mkVS (regV "hope") ; - horn_N = mkN (thbind "เขา") ; + horn_N = mkN (thword "เขา") ; -- horse_N = regN "horse" ; -- hot_A = duplADeg "hot" ; house_N = mkN baan_s lag_s ; - hunt_V2 = mkV2 (thbind "ล่า") ; - husband_N = personN (thbind "ผัว") ; - ice_N = mkN (thbind "น้ำ" "แข็ง") ; + hunt_V2 = mkV2 (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" ; - kill_V2 = mkV2 (thbind "ฆ่า") ; - king_N = mkN (thbind "พระ" "รา" "ชา") (thbind "พระ" "องด์") ; - knee_N = mkN (thbind "เข่า") ; + 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 (thbind "ทะ" "เล" "สาบ") ; + lake_N = mkN (thword "ทะ" "เล" "สาบ") ; -- lamp_N = regN "lamp" ; -- language_N = regN "language" ; - laugh_V = mkV (thbind "หัว" "เราะ") ; - leaf_N = mkN (thbind "ใบ") ; + laugh_V = mkV (thword "หัว" "เราะ") ; + leaf_N = mkN (thword "ใบ") ; -- learn_V2 = dirV2 (regV "learn") ; -- leather_N = regN "leather" ; -- leave_V2 = dirV2 (irregV "leave" "left" "left") ; -- left_Ord = ss "left" ; - leg_N = mkN (thbind "ขา") ; - lie_V = mkV (thbind "นอน") ; + leg_N = mkN (thword "ขา") ; + lie_V = mkV (thword "นอน") ; -- like_V2 = dirV2 (regV "like") ; -- listen_V2 = mkV2 (regV "listen") toP ; - live_V = mkV (thbind "อยู่") ; - liver_N = mkN (thbind "ตับ") ; - long_A = mkA (thbind "ยาว") ; + live_V = mkV (thword "อยู่") ; + liver_N = mkN (thword "ตับ") ; + long_A = mkA (thword "ยาว") ; -- lose_V2 = dirV2 (irregV "lose" "lost" "lost") ; - louse_N = animalN (thbind "เล็น") ; + louse_N = animalN (thword "เล็น") ; -- love_N = regN "love" ; love_V2 = mkV2 rak_s ; - man_N = personN (thbind "ชาย") ; - married_A2 = mkA2 (mkA (thbind "แต่ง" "งัน" "แล้ว")) "กับ" ; - meat_N = mkN (thbind "เนื้อ") ; + man_N = personN (thword "ชาย") ; + married_A2 = mkA2 (mkA (thword "แต่ง" "งัน" "แล้ว")) "กับ" ; + meat_N = mkN (thword "เนื้อ") ; -- milk_N = regN "milk" ; - moon_N = mkN (thbind "เดือน") ; + moon_N = mkN (thword "เดือน") ; mother_N2 = personN "แม่" ** {c2 = []} ; - mountain_N = mkN (thbind "เขา") ; - mouth_N = mkN (thbind "ปาก") ; + mountain_N = mkN (thword "เขา") ; + mouth_N = mkN (thword "ปาก") ; -- music_N = regN "music" ; - name_N = mkN (thbind "ชื่อ") ; - narrow_A = mkA (thbind "แคบ") ; + name_N = mkN (thword "ชื่อ") ; + narrow_A = mkA (thword "แคบ") ; -- near_A = regA "near" ; ---- near_Adv = ss (thbind "ใกล้") ; - neck_N = mkN (thbind "คอ") ; - new_A = mkA (thbind "ใหม่") ; +--- near_Adv = ss (thword "ใกล้") ; + neck_N = mkN (thword "คอ") ; + new_A = mkA (thword "ใหม่") ; -- newspaper_N = regN "newspaper" ; - night_N = mkN (thbind "กลาง" "คืน") ; - nose_N = mkN (thbind "จมูก") ; + night_N = mkN (thword "กลาง" "คืน") ; + nose_N = mkN (thword "จมูก") ; -- now_Adv = mkAdv "now" ; -- number_N = regN "number" ; -- oil_N = regN "oil" ; - old_A = mkA (thbind "แก่") ; + old_A = mkA (thword "แก่") ; -- onP = mkPrep "on" ; -- open_V2 = dirV2 (regV "open") ; ---- other_A = mkA (thbind "อื่น") ; +--- other_A = mkA (thword "อื่น") ; paint_V2A = mkV2A (regV "ปาย") [] ; -- paper_N = regN "paper" ; paris_PN = ss "ปารีส" ; @@ -226,138 +226,138 @@ lin -- person_N = genderN human (regN "person") ; -- planet_N = regN "planet" ; -- plastic_N = regN "plastic" ; - play_V = mkV (thbind "เล่น") ; + play_V = mkV (thword "เล่น") ; -- play_V2 = dirV2 (regV "play") ; -- policeman_N = regN "policeman" ; -- priest_N = regN "priest" ; -- probable_AS = mkAS (regA "probable") ; - pull_V2 = mkV2 (thbind "ดึง") ; - push_V2 = mkV2 (thbind "ผลัก") ; + pull_V2 = mkV2 (thword "ดึง") ; + push_V2 = mkV2 (thword "ผลัก") ; -- put_V2 = mkV2 (irregDuplV "put" "put" "put") noPrep ; -- queen_N = regN "queen" ; -- radio_N = regN "radio" ; - rain_N = mkN (thbind "ฝน") ; + rain_N = mkN (thword "ฝน") ; -- rain_V0 = mkV0 (regV "rain") ; -- read_V2 = dirV2 (irregV "read" "read" "read") ; - red_A = mkA (thbind "แดง") ; + red_A = mkA (thword "แดง") ; -- religion_N = regN "religion" ; -- restaurant_N = regN "restaurant" ; -- right_Ord = ss "right" ; - river_N = mkN (thbind "แม่" "น้ำ") ; - road_N = mkN (thbind "ทาง") ; + river_N = mkN (thword "แม่" "น้ำ") ; + road_N = mkN (thword "ทาง") ; -- rock_N = regN "rock" ; -- roof_N = regN "roof" ; - root_N = mkN (thbind "ราก") ; - rope_N = mkN (thbind "เชือก") ; - rotten_A = mkA (thbind "เน่า") ; - round_A = mkA (thbind "กลม") ; - rub_V2 = mkV2 (thbind "ถู") ; + 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 = (irregDuplV "run" "ran" "run") ; - salt_N = mkN (thbind "เกลือ") ; - sand_N = mkN (thbind "ทราย") ; ---- say_VS = lin VS (mkV (thbind "พูด")) ; + salt_N = mkN (thword "เกลือ") ; + sand_N = mkN (thword "ทราย") ; +--- say_VS = lin VS (mkV (thword "พูด")) ; -- school_N = regN "school" ; -- science_N = regN "science" ; - scratch_V2 = mkV2 (thbind "เกา") ; - sea_N = mkN (thbind "ทะ" "เล") ; - see_V2 = mkV2 (thbind "เห็น") ; - seed_N = mkN (thbind "เม็ด") ; + 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 - sew_V = mkV (thbind "เย็บ") ; - sharp_A = mkA (thbind "คม") ; + 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" ; -- shop_N = regN "shop" ; - short_A = mkA (thbind "สั้น") ; + short_A = mkA (thword "สั้น") ; -- silver_N = regN "silver" ; - sing_V = mkV (thbind "ร้อง") ; + sing_V = mkV (thword "ร้อง") ; -- sister_N = regN "sister" ; - sit_V = mkV (thbind "นั่ง") ; - skin_N = mkN (thbind "หนัง") ; - sky_N = mkN (thbind "ฟ้า") ; - sleep_V = mkV (thbind "นอน") ; - small_A = mkA (thbind "เล็ก") ; - smell_V = mkV (thbind "มีก" "ลิ่น") ; - smoke_N = mkN (thbind "ควัน") ; - smooth_A = mkA (thbind "ละ" "มุน") ; - snake_N = animalN (thbind "งู") ; - snow_N = mkN (thbind "หิมะ") ; + sit_V = mkV (thword "นั่ง") ; + skin_N = mkN (thword "หนัง") ; + sky_N = mkN (thword "ฟ้า") ; + sleep_V = mkV (thword "นอน") ; + small_A = mkA (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" ; -- speak_V2 = dirV2 (irregV "speak" "spoke" "spoken") ; - spit_V = mkV (thbind "ถ่ม") ; - split_V2 = mkV2 (thbind "ผ่า") ; - squeeze_V2 = mkV2 (thbind "คั้น") ; - stab_V2 = mkV2 (thbind "แทง") ; - stand_V = mkV (thbind "ยืน") ; - star_N = mkN (thbind "ดาว") ; + 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" ; - stick_N = mkN (thbind "กิ่ง") ; - stone_N = mkN (thbind "หิน") ; + stick_N = mkN (thword "กิ่ง") ; + stone_N = mkN (thword "หิน") ; -- stop_V = regDuplV "stop" ; -- stove_N = regN "stove" ; - straight_A = mkA (thbind "ดิ่ง") ; - student_N = personN (thbind "นัก" "สืก" "สา") ; + straight_A = mkA (thword "ดิ่ง") ; + student_N = personN (thword "นัก" "สืก" "สา") ; -- stupid_A = regADeg "stupid" ; - suck_V2 = mkV2 (thbind "ดูด") ; - sun_N = mkN (thbind "ตะ" "วัน") ; - swell_V = mkV (thbind "ตุ่ม") ; - swim_V = mkV (thbind "ว่าย") ; + suck_V2 = mkV2 (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 (thbind "หาง") ; + tail_N = mkN (thword "หาง") ; -- talk_V3 = mkV3 (regV "talk") toP aboutP ; -- teach_V2 = dirV2 (irregV "teach" "taught" "taught") ; -- teacher_N = regN "teacher" ; -- television_N = regN "television" ; - thick_A = mkA (thbind "หนา") ; - thin_A = mkA (thbind "บาง") ; - think_V = mkV (thbind "คิด") ; - throw_V2 = mkV2 (thbind "ขว้าง") ; - tie_V2 = mkV2 (thbind "ผูก") ; + 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 (thbind "วัน" "นี้") ; - tongue_N = mkN (thbind "ลิ้น") ; - tooth_N = mkN (thbind "ฟัน") ; + today_Adv = ss (thword "วัน" "นี้") ; + tongue_N = mkN (thword "ลิ้น") ; + tooth_N = mkN (thword "ฟัน") ; -- train_N = regN "train" ; -- travel_V = (regDuplV "travel") ; - tree_N = mkN (thbind "ไม้") ; - turn_V = mkV (thbind "หัน") ; + tree_N = mkN (thword "ไม้") ; + turn_V = mkV (thword "หัน") ; -- ugly_A = regADeg "ugly" ; -- understand_V2 = dirV2 (irregV "understand" "understood" "understood") ; -- university_N = regN "university" ; -- village_N = regN "village" ; - vomit_V = mkV (thbind "อ้วก") ; + vomit_V = mkV (thword "อ้วก") ; -- wait_V2 = mkV2 (regV "wait") forP ; - walk_V = mkV (thbind "เดิน") ; + walk_V = mkV (thword "เดิน") ; -- war_N = regN "war" ; - warm_A = mkA (thbind "ร้อน") ; - wash_V2 = mkV2 (thbind "ล้าง") ; + warm_A = mkA (thword "ร้อน") ; + wash_V2 = mkV2 (thword "ล้าง") ; -- watch_V2 = dirV2 (regV "watch") ; - water_N = mkN (thbind "น้ำ") ; - wet_A = mkA (thbind "เปียก") ; - white_A = mkA (thbind "ขาว") ; - wide_A = mkA (thbind "กว้าง") ; - wife_N = personN (thbind "เมีย") ; + 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") ; - wind_N = mkN (thbind "ลม") ; + wind_N = mkN (thword "ลม") ; -- window_N = regN "window" ; -- wine_N = regN "wine" ; - wing_N = mkN (thbind "ปิก") ; - wipe_V2 = mkV2 (thbind "เช็ด") ; - woman_N = personN (thbind "หญิง") ; + wing_N = mkN (thword "ปิก") ; + wipe_V2 = mkV2 (thword "เช็ด") ; + woman_N = personN (thword "หญิง") ; -- wonder_VQ = mkVQ (regV "wonder") ; -- wood_N = regN "wood" ; - worm_N = animalN (thbind "หนอน") ; + worm_N = animalN (thword "หนอน") ; -- write_V2 = dirV2 (irregV "write" "wrote" "written") ; - year_N = mkN (thbind "ปี") ; - yellow_A = mkA (thbind "เหลือง") ; + year_N = mkN (thword "ปี") ; + yellow_A = mkA (thword "เหลือง") ; -- young_A = regADeg "young" ; } diff --git a/lib/src/thai/ResTha.gf b/lib/src/thai/ResTha.gf index 70b4a716e..ee162ad77 100644 --- a/lib/src/thai/ResTha.gf +++ b/lib/src/thai/ResTha.gf @@ -34,6 +34,13 @@ resource ResTha = ParamX, StringsTha ** open Prelude in { \s1,s2,s3,s4 -> ss (s1.s ++ bIND ++ s2.s ++ bIND ++ s3.s ++ bIND ++ s4.s) ; } ; + thword = overload { + thword : Str -> Str = \s -> s ; + thword : (s1,s2 : Str) -> Str = \s1,s2 -> s1 + s2 ; + thword : (s1,_,s3 : Str) -> Str = \s1,s2,s3 -> s1 + s2 + s3 ; + thword : (s1,_,_,s4 : Str) -> Str = + \s1,s2,s3,s4 -> s1 + s2 + s3 + s4 ; + } ; -- noun and classifier diff --git a/lib/src/thai/StructuralTha.gf b/lib/src/thai/StructuralTha.gf index d5a592bc5..1182313fc 100644 --- a/lib/src/thai/StructuralTha.gf +++ b/lib/src/thai/StructuralTha.gf @@ -4,15 +4,15 @@ concrete StructuralTha of Structural = CatTha ** flags coding = utf8 ; lin - above_Prep = ss (thbind "ข้าง" "บน") ; --- after_Prep = ss "after" ; - all_Predet = ss (thbind "ทั้ง" "หมด") ; - almost_AdA, almost_AdN = ss (thbind "เกิ" "อบ") ; --- although_Subj = ss "although" ; - always_AdV = ss (thbind "ตลอด" "ไป") ; + above_Prep = ss (thword "ข้าง" "บน") ; + after_Prep = ss "หลัง" ; + all_Predet = ss (thword "ทั้ง" "หมด") ; + almost_AdA, almost_AdN = ss (thword "เกิ" "อบ") ; + although_Subj = ss "ถืง" ; + always_AdV = ss (thword "ตลอด" "ไป") ; and_Conj = {s1 = [] ; s2 = "และ"} ; --- because_Subj = ss "because" ; --- before_Prep = ss "before" ; + because_Subj = ss (thword "เพ" "ราะ") ; + before_Prep = ss "ก่อน" ; -- behind_Prep = ss "behind" ; -- between_Prep = ss "between" ; -- both7and_DConj = sd2 "both" "and" ** {n = Pl} ; @@ -27,16 +27,16 @@ concrete StructuralTha of Structural = CatTha ** -- every_Det = mkDeterminer Sg "every" ; -- everything_NP = regNP "everything" Sg ; -- everywhere_Adv = ss "everywhere" ; - few_Det = mkDet (thbind "สอง" "สาม") [] ; + few_Det = mkDet (thword "สอง" "สาม") [] ; -- first_Ord = ss "first" ; -- for_Prep = ss "for" ; from_Prep = ss "จาก" ; have_V2 = mkV2 "มี" ; he_Pron = ss khaw_s ; - here_Adv = ss (thbind "ที่นี่") ; + here_Adv = ss (thword "ที่นี่") ; -- here7to_Adv = ss ["to here"] ; -- here7from_Adv = ss ["from here"] ; - how_IAdv = ss (thbind "อย่าง" "ไร") ; + how_IAdv = ss (thword "อย่าง" "ไร") ; -- how8many_IDet = mkDeterminer Pl ["how many"] ; -- if_Subj = ss "if" ; -- in8front_Prep = ss ["in front of"] ; @@ -68,7 +68,7 @@ concrete StructuralTha of Structural = CatTha ** -- somewhere_Adv = ss "somewhere" ; that_Quant = ss nan_s ** {hasC = True} ; -- that_NP = regNP "that" Sg ; - there_Adv = ss (thbind "ที่" "นั่น") ; + there_Adv = ss (thword "ที่" "นั่น") ; -- there7to_Adv = ss "there" ; -- there7from_Adv = ss ["from there"] ; -- therefore_PConj = ss "therefore" ; @@ -78,39 +78,31 @@ concrete StructuralTha of Structural = CatTha ** -- this_NP = regNP "this" Sg ; -- those_NP = regNP "those" Pl ; -- through_Prep = ss "through" ; - too_AdA = ss (thbind "เกิน" "ไป") ; + too_AdA = ss (thword "เกิน" "ไป") ; to_Prep = ss "ถืง" ; -- under_Prep = ss "under" ; very_AdA = ss "มาก" ; want_VV = {s = yaak_s ; typ = VVMid} ; we_Pron = ss raw_s ; - whatPl_IP, whatSg_IP = ss (thbind "อะ" "ไร") ; - when_IAdv = ss (thbind "เมื่อไร") ; + whatPl_IP, whatSg_IP = ss (thword "อะ" "ไร") ; + when_IAdv = ss (thword "เมื่อไร") ; when_Subj = ss "ฑี" ; - where_IAdv = ss (thbind "ฑี" "ไหน") ; + where_IAdv = ss (thword "ฑี" "ไหน") ; which_IQuant = {s1 = "ไหน" ; s2 = [] ; hasC = True} ; whoPl_IP, whoSg_IP = ss "ไคร" ; - why_IAdv = ss (thbind "ฑำ" "ไม") ; - without_Prep = ss (thbind "ไ่ม" "มี") ; + why_IAdv = ss (thword "ฑำ" "ไม") ; + without_Prep = ss (thword "ไ่ม" "มี") ; with_Prep = ss "กับ" ; yes_Utt = ss chay_s ; youSg_Pron = ss khun_s ; youPl_Pron = ss khun_s ; youPol_Pron = ss khun_s ; --- --- ---oper --- mkQuant : Str -> Str -> {s : Number => Str} = \x,y -> { --- s = table Number [x ; y] --- } ; --- - right_Ord = ss (thbind "ขวา") ; - left_Ord = ss (thbind "ซ้าย") ; - at_Prep = ss (thbind "ที่") ; - in_Prep = ss (thbind "ใน") ; - if_Subj = ss (thbind "ถ้า") ; - because_Subj = ss (thbind "เพราะ") ; + right_Ord = ss (thword "ขวา") ; + left_Ord = ss (thword "ซ้าย") ; + at_Prep = ss (thword "ที่") ; + in_Prep = ss (thword "ใน") ; + if_Subj = ss (thword "ถ้า") ; }