GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-21 00:52:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

verb negation and auxiliary fixes in Tha

Browse Source
This commit is contained in:
aarne
2011-11-29 15:24:59 +00:00
parent eaaefe73d0
commit 9b6086704f
4 changed files with 5 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/src/thai/IdiomTha.gf
View File

@@ -14,8 +14,8 @@ concrete IdiomTha of Idiom = CatTha ** open Prelude, ResTha in {
ExistNP np = { ExistNP np = {
s = \\q,p => thbind (case p of { s = \\q,p => thbind (case p of {
Pos => thbind pen_s np.s ; Pos => thbind mii_s np.s ;
Neg => thbind may_s chay_s np.s Neg => thbind may_s mii_s np.s
}) (case q of {ClQuest => m'ay_s ; _ => []}) }) (case q of {ClQuest => m'ay_s ; _ => []})
} ; } ;

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

@@ -283,7 +283,7 @@ lin
sit_V = mkV (thword "นั่ง") ; sit_V = mkV (thword "นั่ง") ;
skin_N = mkN (thword "หนัง") ; skin_N = mkN (thword "หนัง") ;
sky_N = mkN (thword "ฟ้า") ; sky_N = mkN (thword "ฟ้า") ;
sleep_V = mkV (thword "นอน") ; sleep_V = mkV "นอน" "หลับ" ;
small_A = mkA (thword "เล็ก") ; small_A = mkA (thword "เล็ก") ;
smell_V = mkV (thword "มีก" "ลิ่น") ; smell_V = mkV (thword "มีก" "ลิ่น") ;
smoke_N = mkN (thword "ควัน") ; smoke_N = mkN (thword "ควัน") ;

1
lib/src/thai/StringsTha.gf
View File

@@ -43,6 +43,7 @@ khow_s = "เข้ว" ; -- understand1
khun_s = "คุณ" ; -- you khun_s = "คุณ" ; -- you
koon_s = "ก่อน" ; -- bye2 koon_s = "ก่อน" ; -- bye2
kwaa_s = "กว่า" ; -- comparative kwaa_s = "กว่า" ; -- comparative
mii_s = "มี" ; -- have
laa_s = "ลา" ; -- bye1 laa_s = "ลา" ; -- bye1
lag2_s = "ลัง" ; -- Progr2 lag2_s = "ลัง" ; -- Progr2
lag_s = "หลัง" ; -- houses Classif lag_s = "หลัง" ; -- houses Classif

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

@@ -20,7 +20,7 @@ concrete StructuralTha of Structural = CatTha **
by8agent_Prep = ss [] ; by8agent_Prep = ss [] ;
by8means_Prep = ss "ผ่าน" ; by8means_Prep = ss "ผ่าน" ;
can8know_VV = {s = pen_s ; typ = VVPost} ; can8know_VV = {s = pen_s ; typ = VVPost} ;
can_VV = {s = way_s ; typ = VVPost} ; can_VV = {s = "ได้" ; typ = VVPost} ;
-- during_Prep = ss "during" ; -- during_Prep = ss "during" ;
-- either7or_DConj = sd2 "either" "or" ** {n = Sg} ; -- either7or_DConj = sd2 "either" "or" ** {n = Sg} ;
-- everybody_NP = regNP "everybody" Sg ; -- everybody_NP = regNP "everybody" Sg ;
@@ -28,7 +28,6 @@ concrete StructuralTha of Structural = CatTha **
-- everything_NP = regNP "everything" Sg ; -- everything_NP = regNP "everything" Sg ;
-- everywhere_Adv = ss "everywhere" ; -- everywhere_Adv = ss "everywhere" ;
few_Det = quantDet (thword "สอง" "สาม") ; few_Det = quantDet (thword "สอง" "สาม") ;
-- first_Ord = ss "first" ;
-- for_Prep = ss "for" ; -- for_Prep = ss "for" ;
from_Prep = ss "จาก" ; from_Prep = ss "จาก" ;
have_V2 = mkV2 "มี" ; have_V2 = mkV2 "มี" ;
@@ -71,11 +70,8 @@ concrete StructuralTha of Structural = CatTha **
-- there7to_Adv = ss "there" ; -- there7to_Adv = ss "there" ;
-- there7from_Adv = ss ["from there"] ; -- there7from_Adv = ss ["from there"] ;
-- therefore_PConj = ss "therefore" ; -- therefore_PConj = ss "therefore" ;
-- these_NP = regNP "these" Pl ;
they_Pron = mkNP khaw_s ; they_Pron = mkNP khaw_s ;
this_Quant = demDet nii_s ; this_Quant = demDet nii_s ;
-- this_NP = regNP "this" Sg ;
-- those_NP = regNP "those" Pl ;
-- through_Prep = ss "through" ; -- through_Prep = ss "through" ;
too_AdA = ss (thword "เกิน" "ไป") ; too_AdA = ss (thword "เกิน" "ไป") ;
to_Prep = ss "ถืง" ; to_Prep = ss "ถืง" ;