forked from GitHub/gf-core
sorted LexiconTha again
This commit is contained in:
aarne
@@ -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"
|
||||
|
||||
@@ -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) ; -----
|
||||
|
||||
|
||||
@@ -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" ;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user