From 9b6086704f4726537ca9728a8e1f0b3314c37343 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Tue, 29 Nov 2011 15:24:59 +0000
Subject: [PATCH] verb negation and auxiliary fixes in Tha

---
 lib/src/thai/IdiomTha.gf      | 4 ++--
 lib/src/thai/LexiconTha.gf    | 2 +-
 lib/src/thai/StringsTha.gf    | 1 +
 lib/src/thai/StructuralTha.gf | 6 +-----
 4 files changed, 5 insertions(+), 8 deletions(-)

diff --git a/lib/src/thai/IdiomTha.gf b/lib/src/thai/IdiomTha.gf
index 637405e11..bfdd55b2f 100644
--- a/lib/src/thai/IdiomTha.gf
+++ b/lib/src/thai/IdiomTha.gf
@@ -14,8 +14,8 @@ concrete IdiomTha of Idiom = CatTha ** open Prelude, ResTha in {
 
     ExistNP np = {
       s = \\q,p => thbind (case p of {
-        Pos => thbind pen_s np.s ;
-        Neg => thbind may_s chay_s np.s
+        Pos => thbind mii_s np.s ;
+        Neg => thbind may_s mii_s np.s
       }) (case q of {ClQuest => m'ay_s ; _ => []})
     } ;
 
diff --git a/lib/src/thai/LexiconTha.gf b/lib/src/thai/LexiconTha.gf
index f57c2ba61..cff6ee53c 100644
--- a/lib/src/thai/LexiconTha.gf
+++ b/lib/src/thai/LexiconTha.gf
@@ -283,7 +283,7 @@ lin
   sit_V = mkV (thword "นั่ง") ;
   skin_N = mkN (thword "หนัง") ;
   sky_N = mkN (thword "ฟ้า") ;
-  sleep_V = mkV (thword "นอน") ;
+  sleep_V = mkV "นอน" "หลับ" ;
   small_A = mkA (thword "เล็ก") ;
   smell_V = mkV (thword "มีก" "ลิ่น") ;
   smoke_N = mkN (thword "ควัน") ;
diff --git a/lib/src/thai/StringsTha.gf b/lib/src/thai/StringsTha.gf
index 0663b49d7..90050532f 100644
--- a/lib/src/thai/StringsTha.gf
+++ b/lib/src/thai/StringsTha.gf
@@ -43,6 +43,7 @@ khow_s = "เข้ว" ; -- understand1
 khun_s = "คุณ" ; -- you
 koon_s = "ก่อน" ; -- bye2
 kwaa_s = "กว่า" ; -- comparative
+mii_s = "มี" ; -- have
 laa_s = "ลา" ; -- bye1
 lag2_s = "ลัง" ; -- Progr2
 lag_s = "หลัง" ; -- houses Classif
diff --git a/lib/src/thai/StructuralTha.gf b/lib/src/thai/StructuralTha.gf
index 906230dc7..85da1d894 100644
--- a/lib/src/thai/StructuralTha.gf
+++ b/lib/src/thai/StructuralTha.gf
@@ -20,7 +20,7 @@ concrete StructuralTha of Structural = CatTha **
   by8agent_Prep = ss [] ;
   by8means_Prep = ss "ผ่าน" ;
   can8know_VV = {s = pen_s ; typ = VVPost} ;
-  can_VV = {s = way_s ; typ = VVPost} ;
+  can_VV = {s = "ได้" ; typ = VVPost} ;
 --  during_Prep = ss "during" ;
 --  either7or_DConj = sd2 "either" "or" ** {n = Sg} ;
 --  everybody_NP = regNP "everybody" Sg ;
@@ -28,7 +28,6 @@ concrete StructuralTha of Structural = CatTha **
 --  everything_NP = regNP "everything" Sg ;
 --  everywhere_Adv = ss "everywhere" ;
   few_Det = quantDet (thword "สอง" "สาม") ;
---  first_Ord = ss "first" ;
 --  for_Prep = ss "for" ;
   from_Prep = ss "จาก" ;
   have_V2 = mkV2 "มี" ;
@@ -71,11 +70,8 @@ concrete StructuralTha of Structural = CatTha **
 --  there7to_Adv = ss "there" ;
 --  there7from_Adv = ss ["from there"] ;
 --  therefore_PConj = ss "therefore" ;
---  these_NP = regNP "these" Pl ;
   they_Pron = mkNP khaw_s ;
   this_Quant = demDet nii_s ;
---  this_NP = regNP "this" Sg ;
---  those_NP = regNP "those" Pl ;
 --  through_Prep = ss "through" ;
   too_AdA = ss (thword "เกิน" "ไป") ;
   to_Prep = ss "ถืง" ;