GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-29 22:42:52 -06:00
Code Issues Packages Projects Releases Wiki 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

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