diff options
| author | aarne <aarne@chalmers.se> | 2011-12-05 09:36:26 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2011-12-05 09:36:26 +0000 |
| commit | 8f05c404c588b98161bee798e8390f53e3aa37e4 (patch) | |
| tree | 3360e9bf66beaacd8f564a5e00cd5ce24c7fc515 /examples/phrasebook/WordsTha.gf | |
| parent | 2a0c611486ec46d63a7109e51a5ad0a1b5dd2184 (diff) | |
adjustments in Thai pronunciation
Diffstat (limited to 'examples/phrasebook/WordsTha.gf')
| -rw-r--r-- | examples/phrasebook/WordsTha.gf | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/examples/phrasebook/WordsTha.gf b/examples/phrasebook/WordsTha.gf index 2192dd5bd..6f08e9c70 100644 --- a/examples/phrasebook/WordsTha.gf +++ b/examples/phrasebook/WordsTha.gf @@ -31,7 +31,7 @@ concrete WordsTha of Words = SentencesTha ** -- Properties; many of them are in the resource lexicon, others can be built by $mkA$. Bad = L.bad_A ; - Boring = mkA (R.thword "น่า" "เบิ่อ") ; + Boring = mkA (R.thword "น่า" "เบื่อ") ; Cheap = mkA (R.thword "รา" "คา" "ถูก") ; Cold = L.cold_A ; Delicious = mkA "อร่อย" ; @@ -131,7 +131,7 @@ concrete WordsTha of Words = SentencesTha ** (mkNP (mkNP a_Det (mkN "ห้อง")) (SyntaxTha.mkAdv for_Prep (mkNP num (mkN "หมาย" "เลข")))) ; AHasTable p num = mkCl p.name have_V2 (mkNP (mkNP a_Det (mkN "โต๊ะ")) (SyntaxTha.mkAdv for_Prep (mkNP num (mkN "ตัว" "ที่")))) ; - AHasName p name = mkCl (nameOf p) name ; + AHasName p name = mkCl p.name (mkV2 "ชื่อ") name ; --- AHungry p = mkCl p.name (mkA (R.thword "หิว" "ข้าว")) ; AIll p = mkCl p.name (mkA (R.thword "เจ็บ" "ปวย")) ; AKnow p = mkCl p.name <lin V L.know_V2 : V> ; @@ -251,8 +251,6 @@ concrete WordsTha of Words = SentencesTha ** {name = mkNP the_Det (mkCN (personN f) (SyntaxTha.mkAdv possess_Prep p.name)) ; isPron = False ; poss = the_Quant} ; ---- poss not used - nameOf : NPPerson -> NP = \p -> (xOf L.name_N.s p).name ; - mkTransport : N -> {name : CN ; by : Adv} = \n -> { name = mkCN n ; |