adjustments in Phrasebook and synopsis

This commit is contained in:
aarne
2011-12-08 14:04:42 +00:00
parent 7c9bbd844b
commit 15168563a2
3 changed files with 13 additions and 9 deletions

View File

@@ -1,6 +1,7 @@
concrete SentencesTha of Sentences = NumeralTha ** SentencesI - [ concrete SentencesTha of Sentences = NumeralTha ** SentencesI - [
PGreetingMale, PGreetingFemale, PGreetingMale, PGreetingFemale,
GObjectPlease, GObjectPlease,
IMale, YouFamMale, YouFamFemale,
ACitizen ACitizen
] with ] with
(Syntax = SyntaxTha), (Syntax = SyntaxTha),
@@ -17,6 +18,9 @@ lin
ACitizen p n = mkCl p.name (mkVP (mkCN n (P.personN R.khon_s))) ; ACitizen p n = mkCl p.name (mkVP (mkCN n (P.personN R.khon_s))) ;
IMale = mkPerson (R.mkNP "ผม") ;
YouFamMale, YouFamFemale = mkPerson (R.mkNP "เธอ") ;
oper oper
thpron = R.thpron ; thpron = R.thpron ;
} }

View File

@@ -155,12 +155,12 @@ concrete WordsTha of Words = SentencesTha **
HowMuchCost item = mkQS (mkQCl (mkIComp how8much_IAdv) item) ; HowMuchCost item = mkQS (mkQCl (mkIComp how8much_IAdv) item) ;
ItCost item price = mkCl item (mkV2 (R.thword "เป็น" "รา" "คา")) price ; ItCost item price = mkCl item (mkV2 (R.thword "เป็น" "รา" "คา")) price ;
PropOpen p = mkCl p.name open_Adv ; PropOpen p = mkCl p.name open_A ;
PropClosed p = mkCl p.name closed_Adv ; PropClosed p = mkCl p.name closed_A ;
PropOpenDate p d = mkCl p.name (mkVP (mkVP open_Adv) d) ; PropOpenDate p d = mkCl p.name (mkVP (mkVP open_A) d) ;
PropClosedDate p d = mkCl p.name (mkVP (mkVP closed_Adv) d) ; PropClosedDate p d = mkCl p.name (mkVP (mkVP closed_A) d) ;
PropOpenDay p d = mkCl p.name (mkVP (mkVP open_Adv) d.habitual) ; PropOpenDay p d = mkCl p.name (mkVP (mkVP open_A) d.habitual) ;
PropClosedDay p d = mkCl p.name (mkVP (mkVP closed_Adv) d.habitual) ; PropClosedDay p d = mkCl p.name (mkVP (mkVP closed_A) d.habitual) ;
-- Building phrases from strings is complicated: the solution is to use -- Building phrases from strings is complicated: the solution is to use
-- mkText : Text -> Text -> Text ; -- mkText : Text -> Text -> Text ;
@@ -244,8 +244,8 @@ concrete WordsTha of Words = SentencesTha **
mkPlace : N -> {name : CN ; at : Prep ; to : Prep; isPl : Bool} = \p -> mkPlace : N -> {name : CN ; at : Prep ; to : Prep; isPl : Bool} = \p ->
mkCNPlace (mkCN p) at_Prep noPrep ; mkCNPlace (mkCN p) at_Prep noPrep ;
open_Adv = P.mkAdv "เปิด" ; open_A = P.mkA "เปิด" ;
closed_Adv = P.mkAdv "ปิด" ; closed_A = P.mkA "ปิด" ;
xOf : Str -> NPPerson -> NPPerson = \f,p -> xOf : Str -> NPPerson -> NPPerson = \f,p ->
{name = mkNP the_Det (mkCN (personN f) (SyntaxTha.mkAdv possess_Prep p.name)) ; {name = mkNP the_Det (mkCN (personN f) (SyntaxTha.mkAdv possess_Prep p.name)) ;

View File

@@ -1,5 +1,5 @@
DisambPhrasebookEng : DisambPhrasebookEng :
PhrasebookBul : ABusinessman ACook ADoctor AEngineer ALawyer AProfessor AStudent ATeacher Baht Beach Beef Chili Coke Durian Egg Garlic IceCream ItsCold ItsRaining ItsWarm ItsWindy Lemonade Mango Noodles ObjPlur OrangeJuice Pineapple Pork Rice Salad Shrimps Smoke SunShine Thai ThesPlur ThesePlur ThosePlur PhrasebookBul : Noodles
PhrasebookCat : ABusinessman ACook ADoctor AEngineer ALawyer AProfessor AStudent ATeacher Baht Beach Beef Chili Coke Durian Egg Garlic IceCream ItsCold ItsRaining ItsWarm ItsWindy Lemonade MMust Mango Noodles ObjPlur OrangeJuice Pineapple Pork Rice Salad Shrimps Smoke SunShine Thai ThesPlur ThesePlur ThosePlur PhrasebookCat : ABusinessman ACook ADoctor AEngineer ALawyer AProfessor AStudent ATeacher Baht Beach Beef Chili Coke Durian Egg Garlic IceCream ItsCold ItsRaining ItsWarm ItsWindy Lemonade MMust Mango Noodles ObjPlur OrangeJuice Pineapple Pork Rice Salad Shrimps Smoke SunShine Thai ThesPlur ThesePlur ThosePlur
PhrasebookDan : ABusinessman ACook ADoctor AEngineer ALawyer AProfessor AStudent ATeacher Baht Beach Beef Chili Coke Durian Egg Garlic IceCream ItsCold ItsRaining ItsWarm ItsWindy Lemonade Mango Noodles ObjPlur OrangeJuice Pineapple Pork Rice Salad Shrimps Smoke SunShine Thai ThesPlur ThesePlur ThosePlur PhrasebookDan : ABusinessman ACook ADoctor AEngineer ALawyer AProfessor AStudent ATeacher Baht Beach Beef Chili Coke Durian Egg Garlic IceCream ItsCold ItsRaining ItsWarm ItsWindy Lemonade Mango Noodles ObjPlur OrangeJuice Pineapple Pork Rice Salad Shrimps Smoke SunShine Thai ThesPlur ThesePlur ThosePlur
PhrasebookDut : ABusinessman ACook ADoctor AEngineer ALawyer AProfessor AStudent ATeacher Baht Beach Beef Chili Coke Durian Egg Garlic IceCream ItsCold ItsRaining ItsWarm ItsWindy Lemonade Mango Noodles ObjPlur OrangeJuice Pineapple Pork Rice Salad Shrimps Smoke SunShine Thai ThesPlur ThesePlur ThosePlur PhrasebookDut : ABusinessman ACook ADoctor AEngineer ALawyer AProfessor AStudent ATeacher Baht Beach Beef Chili Coke Durian Egg Garlic IceCream ItsCold ItsRaining ItsWarm ItsWindy Lemonade Mango Noodles ObjPlur OrangeJuice Pineapple Pork Rice Salad Shrimps Smoke SunShine Thai ThesPlur ThesePlur ThosePlur