From 22b95f333ce9bbcabca04ad38c77068552dedcdf Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 16 Nov 2011 17:05:53 +0000 Subject: [PATCH] sorted LexiconTha again --- lib/src/Make.hs | 2 +- lib/src/thai/AdverbTha.gf | 2 +- lib/src/thai/LexiconTha.gf | 611 +++++++++++++------------------------ 3 files changed, 219 insertions(+), 396 deletions(-) diff --git a/lib/src/Make.hs b/lib/src/Make.hs index 48cf40063..30e999e47 100644 --- a/lib/src/Make.hs +++ b/lib/src/Make.hs @@ -161,7 +161,7 @@ gfc pres ppath file = do let preproc = if pres then "-preproc=mkPresent" else "" let path = if pres then ppath else "" putStrLn $ "Compiling " ++ file - run_gfc ["-s","-src",preproc, path, file] + run_gfc ["-s","-src","-no-pmcfg",preproc, path, file] gfcmin path file = do let preproc = "-preproc=mkMinimal" diff --git a/lib/src/thai/AdverbTha.gf b/lib/src/thai/AdverbTha.gf index e92bae6b3..9a8a35c03 100644 --- a/lib/src/thai/AdverbTha.gf +++ b/lib/src/thai/AdverbTha.gf @@ -12,7 +12,7 @@ concrete AdverbTha of Adverb = CatTha ** AdAdv adv ad = thbind ad adv ; - SubjS = thbind ; + SubjS x y = thbind x y ; AdnCAdv cadv = ss (thbind cadv.s conjThat) ; ----- diff --git a/lib/src/thai/LexiconTha.gf b/lib/src/thai/LexiconTha.gf index d2521c4b0..044b852eb 100644 --- a/lib/src/thai/LexiconTha.gf +++ b/lib/src/thai/LexiconTha.gf @@ -7,34 +7,51 @@ flags coding = utf8 ; lin +-- add_V3 = dirV3 (regV "add") toP ; -- airplane_N = regN "airplane" ; + all_Predet = ss (thbind "ทั้ง" "หมด") ; +-- already_Adv = mkAdv "already" ; + animal_N = animalN (thbind "สัตว์") ; -- answer_V2S = mkV2S (regV "answer") toP ; -- apartment_N = regN "apartment" ; -- apple_N = regN "apple" ; -- art_N = regN "art" ; + ash_N = mkN (thbind "เถ้า") ; +-- ashes_N = regN "ash" ; FIXME: plural only? -- ask_V2Q = mkV2Q (regV "ask") noPrep ; +-- atP = mkPrep "at" ; -- baby_N = regN "baby" ; --- bad_A = mkADeg "bad" "badly" "worse" "worst" ; + back_N = mkN (thbind "หลัง") ; + bad_A = mkA (thbind "เลว") ; -- bank_N = regN "bank" ; + bark_N = mkN (thbind "เปลือก") ; -- beautiful_A = regADeg "beautiful" ; -- become_VA = mkVA (irregV "become" "became" "become") ; - beer_N = mkN biar_s kew_s ; +-- beer_N = mkN biar_s kew_s ; -- beg_V2V = mkV2V (regDuplV "beg") noPrep toP ; - big_A = ss yay_s ; + belly_N = mkN (thbind "พุง") ; + big_A = mkA (thbind "ใหญ่") ; -- bike_N = regN "bike" ; --- bird_N = regN "bird" ; --- black_A = regADeg "black" ; + bird_N = animalN (thbind "นก") ; + bite_V2 = mkV2 (thbind "กัด") ; + black_A = mkA (thbind "ดำ") ; + blood_N = mkN (thbind "เลือด") ; + blow_V = mkV (thbind "พัด") ; -- blue_A = regADeg "blue" ; -- boat_N = regN "boat" ; - book_N = mkN (nag_s ++ svv_s) lem_s ; + bone_N = mkN (thbind "กระดูก") ; +-- book_N = mkN (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 "หาย" "ใจ") ; -- broad_A = regADeg "broad" ; -- brother_N2 = regN2 "brother" ; -- brown_A = regADeg "brown" ; + burn_V = mkV (thbind "เผา") ; -- butter_N = regN "butter" ; -- buy_V2 = dirV2 (irregV "buy" "bought" "bought") ; -- camera_N = regN "camera" ; @@ -45,510 +62,316 @@ lin -- ceiling_N = regN "ceiling" ; -- chair_N = regN "chair" ; -- cheese_N = regN "cheese" ; - child_N = personN "ลูก" ; + child_N = mkN (thbind "เด็ก") ; -- church_N = regN "church" ; -- city_N = regN "city" ; -- clean_A = regADeg "clean" ; -- clever_A = regADeg "clever" ; -- close_V2 = dirV2 (regV "close") ; + cloud_N = mkN (thbind "เมฆ") ; -- coat_N = regN "coat" ; --- cold_A = regADeg "cold" ; --- come_V = (irregV "come" "came" "come") ; + cold_A = mkA (thbind "หนาว") ; + come_V = mkV (thbind "มา") ; -- computer_N = regN "computer" ; + correct_A = mkA (thbind "แท้") ; + count_V2 = mkV2 (thbind "นับ") ; -- country_N = regN "country" ; -- cousin_N = regN "cousin" ; -- cow_N = regN "cow" ; --- die_V = (regV "die") ; --- dirty_A = regADeg "dirty" ; + cut_V2 = mkV2 (thbind "ตัด") ; + day_N = mkN (thbind "กลาง" "วัน") ; + die_V = mkV (thbind "ตาย") ; +-- dig_V = dig_V ; + dig_V2 = mkV2 (thbind "ขุด") ; + dirty_A = mkA (thbind "สก" "ปรก") ; -- distance_N3 = mkN3 (regN "distance") fromP toP ; +-- do_V2 = dirV2 (mkV "do" "does" "did" "done" "doing") ; -- doctor_N = regN "doctor" ; --- dog_N = regN "dog" ; + dog_N = animalN (thbind "หมา") ; -- door_N = regN "door" ; - drink_V2 = dirV2 (regV dvm_s) ; + drink_V2 = mkV2 (thbind "ดื่ม") ; + dry_A = mkA (thbind "แห้ง") ; + dull_A = mkA (thbind "ทื่อ") ; + dust_N = mkN (thbind "ฝุ่น") ; + ear_N = mkN (thbind "หู") ; + earth_N = mkN (thbind "ดิน") ; -- easy_A2V = mkA2V (regA "easy") forP ; --- eat_V2 = dirV2 (irregV "eat" "ate" "eaten") ; + eat_V2 = mkV2 (thbind "กิน") ; + egg_N = mkN (thbind "ไข่") ; -- empty_A = regADeg "empty" ; -- enemy_N = regN "enemy" ; + eye_N = mkN (thbind "ตา") ; -- factory_N = regN "factory" ; + fall_V = mkV (thbind "ตก") ; + far_Adv = ss (thbind "ไกล") ; + fat_N = mkN (thbind "มัน") ; + father_N = personN (thbind "พ่อ") ; -- father_N2 = regN2 "father" ; + fear_N = mkN (thbind "กลัว") ; +-- fear_V2 = dirV2 (regV "fear") ; -- fear_VS = mkVS (regV "fear") ; + feather_N = mkN (thbind "ขน") ; + few_Det = mkN (thbind "สองสาม") ; + fight_V = mkV (thbind "สู้") ; +-- fight_V2 = dirV2 fight_V ; -- find_V2 = dirV2 (irregV "find" "found" "found") ; --- fish_N = mk2N "fish" "fish" ; + fingernail_N = mkN (thbind "เล็บ") ; + fire_N = mkN (thbind "ไฟ") ; + fish_N = animalN (thbind "ปลา") ; + float_V = mkV (thbind "ลอย") ; -- floor_N = regN "floor" ; + flow_V = mkV (thbind "ไหล") ; + flower_N = mkN (thbind "ดอก") ; + fly_V = mkV (thbind "บิน") ; + fog_N = mkN (thbind "หมอก") ; + foot_N = mkN (thbind "เท้า") ; +-- forP = mkPrep "for" ; + forest_N = mkN (thbind "ดง") ; -- forget_V2 = dirV2 (irregDuplV "forget" "forgot" "forgotten") ; + freeze_V = mkV (thbind "แข็ง") ; -- fridge_N = regN "fridge" ; -- friend_N = regN "friend" ; --- fruit_N = regN "fruit" ; +-- fromP = mkPrep "from" ; + fruit_N = mkN (thbind "หมาก") ; + full_A = mkA (thbind "เต็ม") ; -- fun_AV = mkAV (regA "fun") ; -- garden_N = regN "garden" ; -- girl_N = regN "girl" ; +--- give_V3 = mkV3 (thbind "ให้") ; -- glove_N = regN "glove" ; +-- go_V = regV pay_s ; -- gold_N = regN "gold" ; --- good_A = mkADeg "good" "well" "better" "best" ; - go_V = regV pay_s ; --- green_A = regADeg "green" ; + good_A = mkA (thbind "ดี") ; +-- grammar_N = regN "grammar" ; + grass_N = mkN (thbind "หญ้า") ; + green_A = mkA (thbind "เขียว") ; + guts_N = mkN (thbind "ไส้") ; + hair_N = mkN (thbind "ผม") ; + hand_N = mkN (thbind "มือ") ; -- harbour_N = regN "harbour" ; --- hate_V2 = dirV2 (regV "hate") ; -- hat_N = regN "hat" ; +-- hate_V2 = dirV2 (regV "hate") ; -- have_V2 = dirV2 (mkV "have" "has" "had" "had" "having") ; --- hear_V2 = dirV2 (irregV "hear" "heard" "heard") ; + head_N = mkN (thbind "หัว") ; + hear_V2 = mkV2 (thbind "ยิน") ; + heart_N = mkN (thbind "ใจ") ; + heavy_A = mkA (thbind "หนัก") ; + here_Adv = ss (thbind "ที่นี่") ; -- hill_N = regN "hill" ; + hit_V2 = mkV2 (thbind "ตี") ; + hold_V2 = mkV2 (thbind "อุ้ม") ; -- hope_VS = mkVS (regV "hope") ; + horn_N = mkN (thbind "เขา") ; -- horse_N = regN "horse" ; -- hot_A = duplADeg "hot" ; - house_N = mkN baan_s lag_s ; +-- house_N = mkN baan_s lag_s ; + how_IAdv = ss (thbind "อย่างไร") ; + hunt_V2 = mkV2 (thbind "ล่า") ; + husband_N = personN (thbind "ผัว") ; + ice_N = mkN (thbind "น้ำ" "แข็ง") ; -- 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 = regN "king" ; + knee_N = mkN (thbind "เข่า") ; know_V2 = mkV2 "รู้" ; ----- know_VQ = lin VQ (regV "รู้") ; ----- know_VS = lin VS (regV "รู้") ; ----- --- lake_N = regN "lake" ; + lake_N = mkN (thbind "ทะ" "เล" "สาบ") ; -- lamp_N = regN "lamp" ; +-- language_N = regN "language" ; + laugh_V = mkV (thbind "หัว" "เราะ") ; + leaf_N = mkN (thbind "ใบ") ; -- 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 "นอน") ; -- like_V2 = dirV2 (regV "like") ; -- listen_V2 = mkV2 (regV "listen") toP ; --- live_V = (regV "live") ; - john_PN = ss "จน" ; --- long_A = regADeg "long" ; + live_V = mkV (thbind "อยู่") ; + liver_N = mkN (thbind "ตับ") ; + long_A = mkA (thbind "ยาว") ; -- lose_V2 = dirV2 (irregV "lose" "lost" "lost") ; + louse_N = animalN (thbind "เล็น") ; -- love_N = regN "love" ; - love_V2 = mkV2 rak_s ; --- man_N = mk2N "man" "men" ; +-- love_V2 = mkV2 rak_s ; + man_N = personN (thbind "ชาย") ; + many_Det = mkN (thbind "หลาย") ; -- married_A2 = mkA2 (regA "married") toP ; --- meat_N = regN "meat" ; + meat_N = mkN (thbind "เนื้อ") ; -- milk_N = regN "milk" ; --- moon_N = regN "moon" ; + moon_N = mkN (thbind "เดือน") ; + mother_N = personN (thbind "แม่") ; -- mother_N2 = regN2 "mother" ; --- mountain_N = regN "mountain" ; + mountain_N = mkN (thbind "เขา") ; + mouth_N = mkN (thbind "ปาก") ; -- music_N = regN "music" ; --- narrow_A = regADeg "narrow" ; --- new_A = regADeg "new" ; +-- name_N = regN "name" ; + narrow_A = mkA (thbind "แคบ") ; +-- near_A = regA "near" ; + near_Adv = ss (thbind "ใกล้") ; + neck_N = mkN (thbind "คอ") ; + new_A = mkA (thbind "ใหม่") ; -- newspaper_N = regN "newspaper" ; + night_N = mkN (thbind "กลาง" "คืน") ; + nose_N = mkN (thbind "จมูก") ; +-- now_Adv = mkAdv "now" ; +-- number_N = regN "number" ; -- oil_N = regN "oil" ; --- old_A = regADeg "old" ; + old_A = mkA (thbind "แก่") ; +-- onP = mkPrep "on" ; -- open_V2 = dirV2 (regV "open") ; + other_A = mkA (thbind "อื่น") ; -- paint_V2A = mkV2A (regV "paint") noPrep ; -- paper_N = regN "paper" ; -- paris_PN = regPN "Paris" ; -- peace_N = regN "peace" ; -- pen_N = regN "pen" ; +-- person_N = genderN human (regN "person") ; -- planet_N = regN "planet" ; -- plastic_N = regN "plastic" ; + play_V = mkV (thbind "เล่น") ; -- 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 "ผลัก") ; +-- put_V2 = mkV2 (irregDuplV "put" "put" "put") noPrep ; -- queen_N = regN "queen" ; -- radio_N = regN "radio" ; + rain_N = mkN (thbind "ฝน") ; -- rain_V0 = mkV0 (regV "rain") ; -- read_V2 = dirV2 (irregV "read" "read" "read") ; --- red_A = duplADeg "red" ; + red_A = mkA (thbind "แดง") ; -- religion_N = regN "religion" ; -- restaurant_N = regN "restaurant" ; --- river_N = regN "river" ; +-- right_Ord = ss "right" ; + river_N = mkN (thbind "แม่" "น้ำ") ; + road_N = mkN (thbind "ทาง") ; -- 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 "ถู") ; -- rubber_N = regN "rubber" ; +-- rule_N = regN "rule" ; -- run_V = (irregDuplV "run" "ran" "run") ; --- say_VS = mkVS (irregV "say" "said" "said") ; + salt_N = mkN (thbind "เกลือ") ; + sand_N = mkN (thbind "ทราย") ; +--- say_VS = lin VS (mkV (thbind "พูด")) ; -- school_N = regN "school" ; -- science_N = regN "science" ; --- sea_N = regN "sea" ; + scratch_V2 = mkV2 (thbind "เกา") ; + sea_N = mkN (thbind "ทะ" "เล") ; + see_V2 = mkV2 (thbind "เห็น") ; + seed_N = mkN (thbind "เม็ด") ; -- seek_V2 = dirV2 (irregV "seek" "sought" "sought") ; --- see_V2 = dirV2 (irregV "see" "saw" "seen") ; -- sell_V3 = dirV3 (irregV "sell" "sold" "sold") toP ; -- send_V3 = dirV3 (irregV "send" "sent" "sent") toP ; +-- sew_V = sew_V ; + sew_V2 = mkV2 (thbind "เย็บ") ; + sharp_A = mkA (thbind "คม") ; -- sheep_N = mk2N "sheep" "sheep" ; -- ship_N = regN "ship" ; -- shirt_N = regN "shirt" ; -- shoe_N = regN "shoe" ; -- shop_N = regN "shop" ; --- short_A = regADeg "short" ; + short_A = mkA (thbind "สั้น") ; -- silver_N = regN "silver" ; + sing_V = mkV (thbind "ร้อง") ; -- sister_N = regN "sister" ; - sleep_V = resV noon_s lap_s ; --- small_A = regADeg "small" ; --- snake_N = regN "snake" ; + 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 "หิมะ") ; -- sock_N = regN "sock" ; + some_Det = mkN (thbind "บ้าง") ; +-- song_N = regN "song" ; -- speak_V2 = dirV2 (irregV "speak" "spoke" "spoken") ; --- star_N = regN "star" ; + spit_V = mkV (thbind "ถ่ม") ; + split_V2 = mkV2 (thbind "ผ่า") ; + squeeze_V2 = mkV2 (thbind "คั้น") ; + stab_V2 = mkV2 (thbind "แทง") ; + stand_V = mkV (thbind "ยืน") ; + star_N = mkN (thbind "ดาว") ; -- steel_N = regN "steel" ; --- stone_N = regN "stone" ; + stick_N = mkN (thbind "กิ่ง") ; + stone_N = mkN (thbind "หิน") ; +-- stop_V = regDuplV "stop" ; -- stove_N = regN "stove" ; + straight_A = mkA (thbind "ดิ่ง") ; -- student_N = regN "student" ; -- stupid_A = regADeg "stupid" ; --- sun_N = regN "sun" ; + suck_V2 = mkV2 (thbind "ดูด") ; + sun_N = mkN (thbind "ตะ" "วัน") ; + swell_V = mkV (thbind "ตุ่ม") ; + swim_V = mkV (thbind "ว่าย") ; -- switch8off_V2 = dirV2 (partV (regV "switch") "off") ; -- switch8on_V2 = dirV2 (partV (regV "switch") "on") ; -- table_N = regN "table" ; + tail_N = mkN (thbind "หาง") ; -- talk_V3 = mkV3 (regV "talk") toP aboutP ; --- teacher_N = regN "teacher" ; -- teach_V2 = dirV2 (irregV "teach" "taught" "taught") ; +-- teacher_N = regN "teacher" ; -- television_N = regN "television" ; --- thick_A = regADeg "thick" ; --- thin_A = duplADeg "thin" ; --- train_N = regN "train" ; + there_Adv = ss (thbind "ที่นั่น") ; + thick_A = mkA (thbind "หนา") ; + thin_A = mkA (thbind "บาง") ; + think_V = mkV (thbind "คิด") ; + throw_V2 = mkV2 (thbind "ขว้าง") ; + tie_V2 = mkV2 (thbind "ผูก") ; +-- toP = mkPrep "to" ; today_Adv = ss (thbind "วัน" "นี้") ; + tongue_N = mkN (thbind "ลิ้น") ; + tooth_N = mkN (thbind "ฟัน") ; +-- train_N = regN "train" ; -- travel_V = (regDuplV "travel") ; --- tree_N = regN "tree" ; --- ---- trousers_N = regN "trousers" ; + tree_N = mkN (thbind "ไม้") ; + turn_V = mkV (thbind "หัน") ; -- ugly_A = regADeg "ugly" ; -- understand_V2 = dirV2 (irregV "understand" "understood" "understood") ; -- university_N = regN "university" ; -- village_N = regN "village" ; + vomit_V = mkV (thbind "อ้วก") ; -- wait_V2 = mkV2 (regV "wait") forP ; --- walk_V = (regV "walk") ; --- warm_A = regADeg "warm" ; + walk_V = mkV (thbind "เดิน") ; -- war_N = regN "war" ; + warm_A = mkA (thbind "ร้อน") ; + wash_V2 = mkV2 (thbind "ล้าง") ; -- watch_V2 = dirV2 (regV "watch") ; --- water_N = regN "water" ; --- white_A = regADeg "white" ; + water_N = mkN (thbind "น้ำ") ; + wet_A = mkA (thbind "เปียก") ; + when_IAdv = ss (thbind "เมื่อไร") ; + white_A = mkA (thbind "ขาว") ; + wide_A = mkA (thbind "กว้าง") ; + wife_N = personN (thbind "เมีย") ; +-- win_V2 = dirV2 (irregDuplV "win" "won" "won") ; + wind_N = mkN (thbind "ลม") ; -- window_N = regN "window" ; -- wine_N = regN "wine" ; --- win_V2 = dirV2 (irregDuplV "win" "won" "won") ; - woman_N = mkN (puu_s ++ yig_s) khon_s ; + wing_N = mkN (thbind "ปิก") ; + wipe_V2 = mkV2 (thbind "เช็ด") ; + woman_N = personN (thbind "หญิง") ; -- wonder_VQ = mkVQ (regV "wonder") ; -- wood_N = regN "wood" ; --- write_V2 = dirV2 (irregV "write" "wrote" "written") ; --- yellow_A = regADeg "yellow" ; --- young_A = regADeg "young" ; --- --- do_V2 = dirV2 (mkV "do" "does" "did" "done" "doing") ; --- now_Adv = mkAdv "now" ; --- already_Adv = mkAdv "already" ; --- song_N = regN "song" ; --- add_V3 = dirV3 (regV "add") toP ; --- number_N = regN "number" ; --- put_V2 = mkV2 (irregDuplV "put" "put" "put") noPrep ; --- stop_V = regDuplV "stop" ; --- jump_V = regV "jump" ; --- --- left_Ord = ss "left" ; --- right_Ord = ss "right" ; --- far_Adv = mkAdv "far" ; --- correct_A = (regA "correct") ; --- dry_A = regA "dry" ; --- dull_A = regA "dull" ; --- full_A = regA "full" ; --- heavy_A = regA "heavy" ; --- near_A = regA "near" ; --- rotten_A = (regA "rotten") ; --- round_A = regA "round" ; --- sharp_A = regA "sharp" ; --- smooth_A = regA "smooth" ; --- straight_A = regA "straight" ; --- wet_A = regA "wet" ; ---- --- wide_A = regA "wide" ; --- animal_N = regN "animal" ; --- ashes_N = regN "ash" ; -- FIXME: plural only? --- back_N = regN "back" ; --- bark_N = regN "bark" ; --- belly_N = regN "belly" ; --- blood_N = regN "blood" ; --- bone_N = regN "bone" ; --- breast_N = regN "breast" ; --- cloud_N = regN "cloud" ; --- day_N = regN "day" ; --- dust_N = regN "dust" ; --- ear_N = regN "ear" ; --- earth_N = regN "earth" ; --- egg_N = regN "egg" ; --- eye_N = regN "eye" ; --- fat_N = regN "fat" ; --- feather_N = regN "feather" ; --- fingernail_N = regN "fingernail" ; --- fire_N = regN "fire" ; --- flower_N = regN "flower" ; --- fog_N = regN "fog" ; --- foot_N = mk2N "foot" "feet" ; --- forest_N = regN "forest" ; --- grass_N = regN "grass" ; --- guts_N = regN "gut" ; -- FIXME: no singular --- hair_N = regN "hair" ; --- hand_N = regN "hand" ; --- head_N = regN "head" ; --- heart_N = regN "heart" ; --- horn_N = regN "horn" ; --- husband_N = genderN masculine (regN "husband") ; --- ice_N = regN "ice" ; --- knee_N = regN "knee" ; --- leaf_N = mk2N "leaf" "leaves" ; --- leg_N = regN "leg" ; --- liver_N = regN "liver" ; --- louse_N = mk2N "louse" "lice" ; --- mouth_N = regN "mouth" ; --- name_N = regN "name" ; --- neck_N = regN "neck" ; --- night_N = regN "night" ; --- nose_N = regN "nose" ; --- person_N = genderN human (regN "person") ; --- rain_N = regN "rain" ; --- road_N = regN "road" ; --- root_N = regN "root" ; --- rope_N = regN "rope" ; --- salt_N = regN "salt" ; --- sand_N = regN "sand" ; --- seed_N = regN "seed" ; --- skin_N = regN "skin" ; --- sky_N = regN "sky" ; --- smoke_N = regN "smoke" ; --- snow_N = regN "snow" ; --- stick_N = regN "stick" ; --- tail_N = regN "tail" ; --- tongue_N = regN "tongue" ; --- tooth_N = mk2N "tooth" "teeth" ; --- wife_N = genderN feminine (mk2N "wife" "wives") ; --- wind_N = regN "wind" ; --- wing_N = regN "wing" ; --- worm_N = regN "worm" ; --- year_N = regN "year" ; --- blow_V = blow_V ; --- breathe_V = dirV2 (regV "breathe") ; --- burn_V = burn_V ; --- dig_V = dig_V ; --- fall_V = fall_V ; --- float_V = regV "float" ; --- flow_V = regV "flow" ; --- fly_V = fly_V ; --- freeze_V = freeze_V ; --- give_V3 = dirV3 give_V toP ; --- laugh_V = regV "laugh" ; --- lie_V = lie_V ; --- play_V = regV "play" ; --- sew_V = sew_V ; --- sing_V = sing_V ; --- sit_V = sit_V ; --- smell_V = regV "smell" ; --- spit_V = spit_V ; --- stand_V = stand_V ; --- swell_V = swell_V ; --- swim_V = swim_V ; --- think_V = think_V ; --- turn_V = regV "turn" ; --- vomit_V = regV "vomit" ; --- --- bite_V2 = dirV2 bite_V ; --- count_V2 = dirV2 (regV "count") ; --- cut_V2 = dirV2 cut_V ; --- fear_V2 = dirV2 (regV "fear") ; --- fight_V2 = dirV2 fight_V ; --- hit_V2 = dirV2 hit_V ; --- hold_V2 = dirV2 hold_V ; --- hunt_V2 = dirV2 (regV "hunt") ; --- kill_V2 = dirV2 (regV "kill") ; --- pull_V2 = dirV2 (regV "pull") ; --- push_V2 = dirV2 (regV "push") ; --- rub_V2 = dirV2 (regDuplV "rub") ; --- scratch_V2 = dirV2 (regV "scratch") ; --- split_V2 = dirV2 split_V ; --- squeeze_V2 = dirV2 (regV "squeeze") ; --- stab_V2 = dirV2 (regDuplV "stab") ; --- suck_V2 = dirV2 (regV "suck") ; --- throw_V2 = dirV2 throw_V ; --- tie_V2 = dirV2 (regV "tie") ; --- wash_V2 = dirV2 (regV "wash") ; --- wipe_V2 = dirV2 (regV "wipe") ; --- ----- other_A = regA "other" ; --- --- grammar_N = regN "grammar" ; --- language_N = regN "language" ; --- rule_N = regN "rule" ; --- ---oper --- aboutP = mkPrep "about" ; --- atP = mkPrep "at" ; --- forP = mkPrep "for" ; --- fromP = mkPrep "from" ; --- inP = mkPrep "in" ; --- onP = mkPrep "on" ; --- toP = mkPrep "to" ; --- -lin - here_Adv = ss (thbind "ที่นี่") ; - there_Adv = ss (thbind "ที่นั่น") ; - when_IAdv = ss (thbind "เมื่อไร") ; - how_IAdv = ss (thbind "อย่างไร") ; - all_Predet = ss (thbind "ทั้ง" "หมด") ; - many_Det = mkN (thbind "หลาย") ; - some_Det = mkN (thbind "บ้าง") ; - few_Det = mkN (thbind "สองสาม") ; - other_A = mkA (thbind "อื่น") ; --- big_A = mkA (thbind "ใหญ่") ; - long_A = mkA (thbind "ยาว") ; - wide_A = mkA (thbind "กว้าง") ; - thick_A = mkA (thbind "หนา") ; - heavy_A = mkA (thbind "หนัก") ; - small_A = mkA (thbind "เล็ก") ; - short_A = mkA (thbind "สั้น") ; - narrow_A = mkA (thbind "แคบ") ; - thin_A = mkA (thbind "บาง") ; --- woman_N = personN (thbind "หญิง") ; - man_N = personN (thbind "ชาย") ; --- child_N = mkN (thbind "เด็ก") ; - wife_N = personN (thbind "เมีย") ; - husband_N = personN (thbind "ผัว") ; - mother_N = personN (thbind "แม่") ; - father_N = personN (thbind "พ่อ") ; - animal_N = animalN (thbind "สัตว์") ; - fish_N = animalN (thbind "ปลา") ; - bird_N = animalN (thbind "นก") ; - dog_N = animalN (thbind "หมา") ; - louse_N = animalN (thbind "เล็น") ; - snake_N = animalN (thbind "งู") ; worm_N = animalN (thbind "หนอน") ; - tree_N = mkN (thbind "ไม้") ; - forest_N = mkN (thbind "ดง") ; - stick_N = mkN (thbind "กิ่ง") ; - fruit_N = mkN (thbind "หมาก") ; - seed_N = mkN (thbind "เม็ด") ; - leaf_N = mkN (thbind "ใบ") ; - root_N = mkN (thbind "ราก") ; - bark_N = mkN (thbind "เปลือก") ; - flower_N = mkN (thbind "ดอก") ; - grass_N = mkN (thbind "หญ้า") ; - rope_N = mkN (thbind "เชือก") ; - skin_N = mkN (thbind "หนัง") ; - meat_N = mkN (thbind "เนื้อ") ; - blood_N = mkN (thbind "เลือด") ; - bone_N = mkN (thbind "กระดูก") ; - fat_N = mkN (thbind "มัน") ; - egg_N = mkN (thbind "ไข่") ; - horn_N = mkN (thbind "เขา") ; - tail_N = mkN (thbind "หาง") ; - feather_N = mkN (thbind "ขน") ; - hair_N = mkN (thbind "ผม") ; - head_N = mkN (thbind "หัว") ; - ear_N = mkN (thbind "หู") ; - eye_N = mkN (thbind "ตา") ; - nose_N = mkN (thbind "จมูก") ; - mouth_N = mkN (thbind "ปาก") ; - tooth_N = mkN (thbind "ฟัน") ; - tongue_N = mkN (thbind "ลิ้น") ; - fingernail_N = mkN (thbind "เล็บ") ; - foot_N = mkN (thbind "เท้า") ; - leg_N = mkN (thbind "ขา") ; - knee_N = mkN (thbind "เข่า") ; - hand_N = mkN (thbind "มือ") ; - wing_N = mkN (thbind "ปิก") ; - belly_N = mkN (thbind "พุง") ; - guts_N = mkN (thbind "ไส้") ; - neck_N = mkN (thbind "คอ") ; - back_N = mkN (thbind "หลัง") ; - breast_N = mkN (thbind "นม") ; - heart_N = mkN (thbind "ใจ") ; - liver_N = mkN (thbind "ตับ") ; --- drink_V2 = mkV2 (thbind "ดื่ม") ; - eat_V2 = mkV2 (thbind "กิน") ; - bite_V2 = mkV2 (thbind "กัด") ; - suck_V2 = mkV2 (thbind "ดูด") ; - spit_V = mkV (thbind "ถ่ม") ; - vomit_V = mkV (thbind "อ้วก") ; - blow_V = mkV (thbind "พัด") ; - breathe_V = mkV (thbind "หาย" "ใจ") ; - laugh_V = mkV (thbind "หัว" "เราะ") ; - see_V2 = mkV2 (thbind "เห็น") ; - hear_V2 = mkV2 (thbind "ยิน") ; --- know_V2 = mkV2 (thbind "รู้") ; - think_V = mkV (thbind "คิด") ; - smell_V = mkV (thbind "มีก" "ลิ่น") ; - fear_N = mkN (thbind "กลัว") ; --- sleep_V = mkV (thbind "นอน") ; - live_V = mkV (thbind "อยู่") ; - die_V = mkV (thbind "ตาย") ; - kill_V2 = mkV2 (thbind "ฆ่า") ; - fight_V = mkV (thbind "สู้") ; - hunt_V2 = mkV2 (thbind "ล่า") ; - hit_V2 = mkV2 (thbind "ตี") ; - cut_V2 = mkV2 (thbind "ตัด") ; - split_V2 = mkV2 (thbind "ผ่า") ; - stab_V2 = mkV2 (thbind "แทง") ; - scratch_V2 = mkV2 (thbind "เกา") ; - dig_V2 = mkV2 (thbind "ขุด") ; - swim_V = mkV (thbind "ว่าย") ; - fly_V = mkV (thbind "บิน") ; - walk_V = mkV (thbind "เดิน") ; - come_V = mkV (thbind "มา") ; - lie_V = mkV (thbind "นอน") ; - sit_V = mkV (thbind "นั่ง") ; - stand_V = mkV (thbind "ยืน") ; - turn_V = mkV (thbind "หัน") ; - fall_V = mkV (thbind "ตก") ; ----- give_V3 = mkV3 (thbind "ให้") ; - hold_V2 = mkV2 (thbind "อุ้ม") ; - squeeze_V2 = mkV2 (thbind "คั้น") ; - rub_V2 = mkV2 (thbind "ถู") ; - wash_V2 = mkV2 (thbind "ล้าง") ; - wipe_V2 = mkV2 (thbind "เช็ด") ; - pull_V2 = mkV2 (thbind "ดึง") ; - push_V2 = mkV2 (thbind "ผลัก") ; - throw_V2 = mkV2 (thbind "ขว้าง") ; - tie_V2 = mkV2 (thbind "ผูก") ; - sew_V2 = mkV2 (thbind "เย็บ") ; - count_V2 = mkV2 (thbind "นับ") ; --- say_VS = lin VS (mkV (thbind "พูด")) ; - sing_V = mkV (thbind "ร้อง") ; - play_V = mkV (thbind "เล่น") ; - float_V = mkV (thbind "ลอย") ; - flow_V = mkV (thbind "ไหล") ; - freeze_V = mkV (thbind "แข็ง") ; - swell_V = mkV (thbind "ตุ่ม") ; - sun_N = mkN (thbind "ตะ" "วัน") ; - moon_N = mkN (thbind "เดือน") ; - star_N = mkN (thbind "ดาว") ; - water_N = mkN (thbind "น้ำ") ; - rain_N = mkN (thbind "ฝน") ; - river_N = mkN (thbind "แม่" "น้ำ") ; - lake_N = mkN (thbind "ทะ" "เล" "สาบ") ; - sea_N = mkN (thbind "ทะ" "เล") ; - salt_N = mkN (thbind "เกลือ") ; - stone_N = mkN (thbind "หิน") ; - sand_N = mkN (thbind "ทราย") ; - dust_N = mkN (thbind "ฝุ่น") ; - earth_N = mkN (thbind "ดิน") ; - cloud_N = mkN (thbind "เมฆ") ; - fog_N = mkN (thbind "หมอก") ; - sky_N = mkN (thbind "ฟ้า") ; - wind_N = mkN (thbind "ลม") ; - snow_N = mkN (thbind "หิมะ") ; - ice_N = mkN (thbind "น้ำ" "แข็ง") ; - smoke_N = mkN (thbind "ควัน") ; - fire_N = mkN (thbind "ไฟ") ; - ash_N = mkN (thbind "เถ้า") ; - burn_V = mkV (thbind "เผา") ; - road_N = mkN (thbind "ทาง") ; - mountain_N = mkN (thbind "เขา") ; - red_A = mkA (thbind "แดง") ; - green_A = mkA (thbind "เขียว") ; - yellow_A = mkA (thbind "เหลือง") ; - white_A = mkA (thbind "ขาว") ; - black_A = mkA (thbind "ดำ") ; - night_N = mkN (thbind "กลาง" "คืน") ; - day_N = mkN (thbind "กลาง" "วัน") ; +-- write_V2 = dirV2 (irregV "write" "wrote" "written") ; year_N = mkN (thbind "ปี") ; - warm_A = mkA (thbind "ร้อน") ; - cold_A = mkA (thbind "หนาว") ; - full_A = mkA (thbind "เต็ม") ; - new_A = mkA (thbind "ใหม่") ; - old_A = mkA (thbind "แก่") ; - good_A = mkA (thbind "ดี") ; - - bad_A = mkA (thbind "เลว") ; - rotten_A = mkA (thbind "เน่า") ; - dirty_A = mkA (thbind "สก" "ปรก") ; - straight_A = mkA (thbind "ดิ่ง") ; - round_A = mkA (thbind "กลม") ; - sharp_A = mkA (thbind "คม") ; - dull_A = mkA (thbind "ทื่อ") ; - smooth_A = mkA (thbind "ละ" "มุน") ; - wet_A = mkA (thbind "เปียก") ; - dry_A = mkA (thbind "แห้ง") ; - correct_A = mkA (thbind "แท้") ; - near_Adv = ss (thbind "ใกล้") ; - far_Adv = ss (thbind "ไกล") ; - + yellow_A = mkA (thbind "เหลือง") ; +-- young_A = regADeg "young" ; }