From 8f05c404c588b98161bee798e8390f53e3aa37e4 Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 5 Dec 2011 09:36:26 +0000 Subject: [PATCH] adjustments in Thai pronunciation --- examples/phrasebook/Makefile | 6 +++--- examples/phrasebook/WordsTha.gf | 6 ++---- examples/phrasebook/missing.txt | 12 ++++++++++++ 3 files changed, 17 insertions(+), 7 deletions(-) diff --git a/examples/phrasebook/Makefile b/examples/phrasebook/Makefile index 2d363bb9d..2322a2832 100644 --- a/examples/phrasebook/Makefile +++ b/examples/phrasebook/Makefile @@ -2,10 +2,10 @@ compile = runghc Compile all: demo missing -thaidroid: +thaidroid: #thaiscript cp -p Phrasebook.pgf FullPhrasebook.pgf - $(compile) -opt Eng Swe Tha Thp DisambPhrasebookEng - $(compile) -link Eng Fin Swe Tha Thp DisambPhrasebookEng + $(compile) -opt Eng Swe Tha PhrasebookThaP DisambPhrasebookEng + $(compile) -link Eng Fin Swe Tha PhrasebookThaP DisambPhrasebookEng mv Phrasebook.pgf Thaidroid.pgf mv FullPhrasebook.pgf Phrasebook.pgf 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 ; @@ -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 ; diff --git a/examples/phrasebook/missing.txt b/examples/phrasebook/missing.txt index 72de1871a..d16355ca4 100644 --- a/examples/phrasebook/missing.txt +++ b/examples/phrasebook/missing.txt @@ -1,5 +1,17 @@ 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 +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 +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 PhrasebookEng : +PhrasebookFin : +PhrasebookFre : 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 +PhrasebookGer : ABusinessman ACook ADoctor AEngineer ALawyer AModVerbPhrase AModVerbPhrasePlace 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 +PhrasebookIta : ABusinessman ACook ADoctor AEngineer ALawyer AProfessor AStudent ATeacher Baht Beach Beef Chili Coke Durian Egg Garlic IceCream ItsCold ItsRaining ItsWarm ItsWindy Lemonade MCan MMust Mango Noodles ObjPlur OrangeJuice Pineapple Pork Rice Salad Shrimps Smoke SunShine Thai ThesPlur ThesePlur ThosePlur +PhrasebookNor : 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 +PhrasebookPol : 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 +PhrasebookRon : 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 +PhrasebookRus : ABusinessman ACook ADoctor AEngineer ALawyer AProfessor AStudent ATeacher Baht Beach Beef Belgian Belgium Chili Coke Durian Egg Flemish Garlic IceCream ItsCold ItsRaining ItsWarm ItsWindy Lemonade Mango Noodles ObjPlur OrangeJuice Pineapple Pork Rice Salad Shrimps Smoke SunShine Thai ThesPlur ThesePlur ThosePlur PhrasebookSpa : 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 PhrasebookSwe : PhrasebookTha :