mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-24 02:12:50 -06:00
adjustments in Phrasebook and synopsis
This commit is contained in:
@@ -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 ;
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -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)) ;
|
||||||
|
|||||||
@@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user