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

adjustments in Phrasebook and synopsis

Browse Source
This commit is contained in:
aarne
2011-12-08 14:04:42 +00:00
parent c20745480f
commit 2cc65efff8
16 changed files with 271 additions and 236 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -44,7 +44,8 @@ concrete CatTha of Cat = CommonX ** open ResTha, Prelude in {
CN = ResTha.Noun ;
NP, Pron = ResTha.NP ;
Det, Quant = ResTha.Determiner ;
Predet, Ord = {s : Str} ;
Predet = {s1,s2 : Str} ;
Ord = {s : Str} ;
Num = {s : Str ; hasC : Bool} ;
-- Numeral
@@ -60,8 +61,8 @@ concrete CatTha of Cat = CommonX ** open ResTha, Prelude in {
-- Open lexical classes, e.g. Lexicon
V, VS, VQ, VA = Verb ;
V2, V2A, V2Q, V2S, V2V = Verb ** {c2 : Str} ;
V3 = Verb ** {c2, c3 : Str} ;
V2, V2Q, V2S = Verb ** {c2 : Str} ;
V3, V2A, V2V = Verb ** {c2, c3 : Str} ;
VV = VVerb ;
A = ResTha.Adj ;

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

@@ -26,7 +26,7 @@ lin
beautiful_A = mkA "สวย" ;
become_VA = mkV (thword "กลาย" "เป็น") ; -- pen
beer_N = mkN biar_s kew_s ;
beg_V2V = regV "ขอ" ** {c2 = []} ;
beg_V2V = regV "ขอ" ** {c2 = [] ; c3 = "ให้"} ; --- hay as prep of VP
belly_N = mkN (thword "พุง") ;
big_A = mkA (thword "ใหญ่") ;
bike_N = mkN (thword "จักร" "ยาน") "คัน" ;
@@ -35,7 +35,7 @@ lin
black_A = mkA (thword "ดำ") ;
blood_N = mkN (thword "เลือด") ;
blow_V = mkV (thword "พัด") ;
blue_A = mkA (thword "สี" "น้ำ" "เงิน") ;
blue_A = mkA (thword "น้ำ" "เงิน") ; --- (thword "สี" "น้ำ" "เงิน") ;
boat_N = mkN (thword "เรือ") "ลำ" ;
bone_N = mkN (thword "กระ" "ดูก") ;
book_N = mkN (thword nag_s svv_s) lem_s ;
@@ -137,7 +137,7 @@ lin
good_A = mkA "ดี" ;
grammar_N = mkN (thword "ไวย" "กรณ์") ; ----?
grass_N = mkN "หญ้า" ;
green_A = mkA (thword "สี" "เขียว") ;
green_A = mkA "เขียว" ; --- (thword "สี" "เขียว") ;
guts_N = mkN (thword "ไส้") ;
hair_N = mkN (thword "ผม") ;
hand_N = mkN (thword "มือ") ;
@@ -214,7 +214,7 @@ lin
old_A = mkA (thword "แก่") ;
open_V2 = mkV2 (mkV "เปิด") ;
other_A = mkA "อื่น" ;
paint_V2A = mkV2A (regV "ทา") [] ;
paint_V2A = mkV2A (regV "ทา") [] "สี" ;
paper_N = mkN (thword "กระ" "ดาษ") ; ----?
paris_PN = ss "ปารีส" ;
peace_N = mkN (thword "สัน" "ติ" "ภาพ"); ----?
@@ -237,7 +237,7 @@ lin
ready_A = mkA "พร้อม" ;
reason_N = verbalN "เหตู" ;
read_V2 = mkV2 "อ่าน" ;
red_A = mkA (thword "สี" "แดง") ;
red_A = mkA "แดง" ; --- (thword "สี" "แดง") ;
religion_N = mkN (thword "ศาส" "นา") ; ----?
restaurant_N = placeN (thword "ร้าน" "อา" "หาร") ;
right_Ord = ss "ขวา" ;
@@ -264,7 +264,7 @@ lin
seed_N = mkN (thword "เม็ด") ;
seek_V2 = mkV2 "หา" ;
sell_V3 = mkV3 "ขาย" ;
send_V3 = mkV3 (mkV "ส่ง" "ให้") ;
send_V3 = mkV3 (mkV "ส่ง") [] (thword "ให้" "กับ") ; --- hai kab as prep
sew_V = mkV (thword "เย็บ") ;
sharp_A = mkA (thword "คม") ;
sheep_N = animalN "แกะ" ;
@@ -356,7 +356,7 @@ lin
worm_N = animalN (thword "หนอน") ;
write_V2 = mkV2 "เขียน" ;
year_N = mkN (thword "ปี") ;
yellow_A = mkA (thword "สี" "เหลือง") ;
yellow_A = mkA "เหลือง" ; ---- (thword "สี" "เหลือง") ;
young_A = mkA "รุ่น" ;
oper

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

@@ -11,7 +11,7 @@ concrete NounTha of Noun = CatTha ** open StringsTha, ResTha, Prelude in {
DetNP det = mkNP (thbind det.s1 det.s2) ;
PredetNP pred np = thbind pred np ;
PredetNP pred np = mkNP (thbind pred.s1 np.s pred.s2) ;
PPartNP np v2 = thbind np (ss ((predV v2).s ! Pos)) ; ---- ??

8
lib/src/thai/ParadigmsTha.gf
View File

@@ -76,14 +76,14 @@ oper
mkV2Q : V -> Str -> V2Q =
\v,p -> lin V2Q (v ** {c2 = p}) ;
mkV2V : V -> Str -> V2V =
\v,p -> lin V2V (v ** {c2 = p}) ;
mkV2V : V -> Str -> Str -> V2V =
\v,p,q -> lin V2V (v ** {c2 = p ; c3 = q}) ;
mkV2S : V -> Str -> V2S =
\v,p -> lin V2S (v ** {c2 = p}) ;
mkV2A : V -> Str -> V2A =
\v,p -> lin V2A (v ** {c2 = p}) ;
mkV2A : V -> Str -> Str -> V2A =
\v,p,q -> lin V2A (v ** {c2 = p ; c3 = q}) ;
mkAdv : Str -> Adv =
\s -> lin Adv (ss s) ;

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

@@ -6,7 +6,7 @@ concrete StructuralTha of Structural = CatTha **
lin
above_Prep = ss (thword "ข้าง" "บน") ;
after_Prep = ss (thword "หลัง" "จาก") ;
all_Predet = ss (thword "ทั้ง" "หมด") ;
all_Predet = {s1 = thword "ทั้ง" "หมด" ; s2 = []} ;
almost_AdA, almost_AdN = ss (thword "เกิ" "อบ") ;
although_Subj = ss "ถืง" ;
always_AdV = ss (thword "เส" "มอ") ; --- pronunciation
@@ -51,16 +51,16 @@ concrete StructuralTha of Structural = CatTha **
less_CAdv = {s = "น้อย" ; p = "กว่า"} ;
many_Det = quantDet "หลาย" ;
more_CAdv = {s = "มาก" ; p = "กว่า"} ;
most_Predet = ss (thword "มาก" "ที่" "สุด") ;
most_Predet = {s1 = thword "มาก" "ที่" "สุด" ; s2 = []} ;
much_Det = quantDet "หลาย" ; ---- always?
must_VV = {s = tog_s ; typ = VVPre} ;
no_Quant = quantDet (thword "ไม่" "มี") ;
no_Utt = ss may_s ;
nobody_NP = mkNP (thword "ไม่" "มี" "ใคร") ;
not_Predet = ss may_s ; ----
not_Predet = {s1 = may_s ; s2 = []} ; ----
nothing_NP = mkNP "เปล่า" ;
on_Prep = ss "บน" ;
only_Predet = ss (thword "เท่า" "นั้น") ;
only_Predet = {s1 = [] ; s2 = thword "เท่า" "นั้น"} ;
or_Conj = {s1 = [] ; s2 = "หริอ"} ;
otherwise_PConj = ss (thword "ไม่" "อย่าง" "นั้น") ;
part_Prep = ss "" ; ----

12
lib/src/thai/VerbTha.gf
View File

@@ -7,16 +7,16 @@ concrete VerbTha of Verb = CatTha ** open ResTha, StringsTha, Prelude in {
SlashV2a v = predV v ** {c2 = v.c2} ;
Slash2V3 v np = insertObj np (predV v) ** {c2 = v.c3} ;
Slash3V3 v np = insertObj np (predV v) ** {c2 = v.c2} ;
Slash2V3 v np = insertObject <thbind v.c2 np.s : Str> (predV v) ** {c2 = v.c3} ;
Slash3V3 v np = insertExtra <thbind v.c3 np.s : Str> (predV v) ** {c2 = v.c2} ;
SlashV2A v ap =
insertExtra <thbind v.c2 ap.s : Str> (predV v) ** {c2 = v.c2} ;
insertExtra <thbind pen_s v.c3 ap.s : Str> (predV v) ** {c2 = v.c2} ; --- pen?
SlashV2V v vp = ---- looks too simple compared with ComplVV
insertExtra <thbind <v.c2 : Str> <infVP vp : Str> : Str> (predV v) ** {c2 = v.c2} ;
insertExtra <thbind <v.c3 : Str> <infVP vp : Str> : Str> (predV v) ** {c2 = v.c2} ;
SlashV2S v s =
insertExtra conjThat (predV v) ** {c2 = v.c2} ;
insertExtra <thbind conjThat s.s : Str> (predV v) ** {c2 = v.c2} ;
SlashV2Q v q =
insertExtra (q.s ! QIndir) (predV v) ** {c2 = v.c2} ;
@@ -57,7 +57,7 @@ concrete VerbTha of Verb = CatTha ** open ResTha, StringsTha, Prelude in {
ReflVP vp = insertObj (mkNP (thbind vp.c2 reflPron)) vp ;
PassV2 v = {s = \\p => thbind thuuk_s ((predV v).s ! p) ; e = []} ;
PassV2 v = {s = \\p => thbind (polStr may_s p) thuuk_s ; e = thbind v.s1 v.s2} ; -- to put agent before verb; --- the place of neg?
CompAP ap = {s = \\p => thbind (polStr may_s p) ap.s} ;