msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

new ResTha oper thword, to build lexical words

Browse Source
This commit is contained in:
aarne
2011-11-20 15:08:57 +00:00
parent 949cbfe535
commit e00054061b
3 changed files with 208 additions and 209 deletions
Download Patch File Download Diff File Expand all files Collapse all files

356
lib/src/thai/LexiconTha.gf
View File

@@ -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" ;
}

7
lib/src/thai/ResTha.gf
View File

@@ -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

54
lib/src/thai/StructuralTha.gf
View File

@@ -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 "ถ้า") ;
}