1
0
forked from GitHub/gf-core

Nui's grammar error reports implemented in PhrasebookTha

This commit is contained in:
aarne
2011-12-01 21:58:42 +00:00
parent 0814c07791
commit a32f9664f6
5 changed files with 61 additions and 49 deletions

View File

@@ -5,13 +5,13 @@ all: demo missing
demo: compdemo fin linkdemo
compdemo:
$(compile) Bul Dan Dut Nor Pol Spa
$(compile) -opt Cat Eng Fre Ger Rus Swe Tha Urd DisambPhrasebookEng
# $(compile) -opt Bul Cat Dan Dut Eng Fre Ger Ita Nor Pol Ron Rus Spa Swe Tha Urd DisambPhrasebookEng
# $(compile) Bul Dan Dut Nor Pol Spa
# $(compile) -opt Cat Eng Fre Ger Rus Swe Tha Urd DisambPhrasebookEng
$(compile) -opt Bul Cat Dan Dut Eng Fre Ger Ita Nor Pol Ron Rus Spa Swe Tha Urd DisambPhrasebookEng
linkdemo:
$(compile) -link Eng Bul Cat Dan Dut Fin Fre Ger Ita Nor Pol Rus Spa Swe Tha Urd DisambPhrasebookEng
# $(compile) -link Eng Bul Cat Dan Dut Fin Fre Ger Ita Nor Pol Ron Rus Spa Swe Tha Urd DisambPhrasebookEng
# $(compile) -link Eng Bul Cat Dan Dut Fin Fre Ger Ita Nor Pol Rus Spa Swe Tha Urd DisambPhrasebookEng
$(compile) -link Eng Bul Cat Dan Dut Fin Fre Ger Ita Nor Pol Ron Rus Spa Swe Tha Urd DisambPhrasebookEng
#separate, because slow...
fin:

View File

@@ -279,6 +279,18 @@ concrete WordsEng of Words = SentencesEng **
Pineapple = mkCN (mkN "pineapple") ;
Coke = mkCN (mkN "coke") ;
IceCream = mkCN (mkN "ice cream") ;
Salad = mkCN (mkN "salad") ;
OrangeJuice = mkCN (mkN "orange juice") ;
Lemonade = mkCN (mkN "lemonade") ;
Beach = mkPlace "beach" "on" ;
ItsRaining = mkCl (progressiveVP (mkVP L.rain_V0)) ;
ItsCold = mkCl (mkVP L.cold_A) ;
ItsWarm = mkCl (mkVP L.warm_A) ;
ItsWindy = mkCl (mkVP (P.mkA "windy")) ;
SunShine = mkCl (mkNP the_Det L.sun_N) (progressiveVP (mkVP shine_V)) ;
Smoke = mkVP (P.mkV "smoke") ;
}

View File

@@ -289,6 +289,7 @@ concrete WordsFin of Words = SentencesFin **
Rice = mkCN (mkN "riisi") ;
Pork = mkCN (mkN "sika") ;
Beef = mkCN (mkN "nauta") ;
Egg = mkCN L.egg_N ;
Noodles = mkCN (mkN "nuudeli" "nuudeleita") ;
Shrimps = mkCN (mkN "katka" (mkN "rapu")) ;
Chili = mkCN (mkN "chili") ;
@@ -298,7 +299,17 @@ concrete WordsFin of Words = SentencesFin **
Pineapple = mkCN (mkN "ananas" "ananaksia") ;
Coke = mkCN (mkN "coca-cola") ;
IceCream = mkCN (mkN "jäätelö" "jäätelöitä") ;
Salad = mkCN (mkN "salaatti") ;
OrangeJuice = mkCN (mkN "appelsiini" (mkN "mehu")) ;
Lemonade = mkCN (mkN "limsa") ;
Beach = mkPlace (mkN "uima" (mkN "ranta")) lla ;
ItsRaining = mkCl (mkVP L.rain_V0) ;
ItsCold = mkCl (mkVP L.cold_A) ;
ItsWarm = mkCl (mkVP L.warm_A) ;
ItsWindy = mkCl (mkVP (mkV "tuulla")) ;
SunShine = mkCl (mkNP the_Det L.sun_N) (mkVP (mkV "paistaa")) ;
Smoke = mkVP (mkV "tupakoida") ;
}

View File

@@ -209,18 +209,22 @@ concrete WordsTha of Words = SentencesTha **
-- transports
HowFar place = mkQS (mkQCl far_IAdv place.name) ;
HowFar place = mkQS (mkQCl howFar.how (mkNP place.name howFar.far)) ;
HowFarFrom x y =
mkQS (mkQCl far_IAdv (mkCl y.name (SyntaxTha.mkAdv from_Prep x.name))) ;
mkQS (mkQCl howFar.how (mkCl (mkNP y.name howFar.far) (SyntaxTha.mkAdv from_Prep x.name))) ;
HowFarFromBy x y t =
mkQS (mkQCl far_IAdv (mkCl y.name (SyntaxTha.mkAdv from_Prep (mkNP x.name t)))) ;
HowFarBy y t = mkQS (mkQCl far_IAdv (mkCl y.name t)) ;
mkQS (mkQCl howFar.how (mkCl (mkNP y.name howFar.far)
(SyntaxTha.mkAdv from_Prep (mkNP x.name t)))) ;
HowFarBy y t = mkQS (mkQCl howFar.how (mkCl (mkNP y.name howFar.far) t)) ;
WhichTranspPlace trans place =
mkQS (mkQCl (mkIP which_IDet trans.name) (mkVP (mkVP L.go_V) place.to)) ;
IsTranspPlace trans place =
mkQS (mkQCl (mkCl (mkCN trans.name place.to))) ;
mkQS (mkQCl (mkCl (mkCN (mkCN trans.name (mkSC (mkVP L.go_V))) place.to))) ;
@@ -258,7 +262,9 @@ concrete WordsTha of Words = SentencesTha **
mkCurrency : Str -> CN = \s -> mkCN (mkN [] s) ; ---- just a classifier
far_IAdv = lin IAdv (ss (R.thword "ไกล" "เท่า" "ไร")) ;
howFar : {far : Adv ; how : IAdv} = {
far = lin Adv (ss "ไกล") ; how = lin IAdv (ss ("เทา" + "ไร"))
} ;
at_Prep = mkPrep "ที่" ;
noPrep = mkPrep [] ;
@@ -284,7 +290,18 @@ concrete WordsTha of Words = SentencesTha **
Pineapple = mkCN (mkN (R.thword "สับ" "ปะ" "รด")) ;
Coke = mkCN (mkN ("โค้ก")) ;
IceCream = mkCN (mkN (R.thword "ไอ" "ศ" "กรีม")) ;
Salad = mkCN (mkN "สลัด") ;
OrangeJuice = mkCN (mkN (R.thword "น้ำ" "ส้ม" "คั้น")) ;
Lemonade = mkCN (mkN (R.thword "น้ำ" "มะ" "นาว")) ;
Beach = mkPlace (placeN (R.thword "หาด")) ;
ItsRaining = mkCl (mkVP L.rain_V0) ;
ItsCold = mkCl (mkVP L.cold_A) ;
ItsWarm = mkCl (mkVP L.warm_A) ;
ItsWindy = mkCl (mkVP (P.mkA (R.thword "ลม" "จัด"))) ;
SunShine = mkCl (mkNP the_Det L.sun_N) (mkVP (R.regV "ฉาย")) ;
Smoke = mkVP (P.mkV (R.thword "สูบ" "บุ" "รี")) ;
}

View File

@@ -1,41 +1,13 @@
v v v v v v v
DisambPhrasebookEng :
PhrasebookBul : Baht Beach Beef Chili Coke Durian Garlic IceCream Mango Noodles ObjPlur Pineapple Pork Rice Shrimps Thai ThesPlur ThesePlur ThosePlur
PhrasebookCat : Baht Beach Beef Chili Coke Durian Garlic IceCream MMust Mango Noodles ObjPlur Pineapple Pork Rice Shrimps Thai ThesPlur ThesePlur ThosePlur
PhrasebookDan : Baht Beach Beef Chili Coke Durian Garlic IceCream Mango Noodles ObjPlur Pineapple Pork Rice Shrimps Thai ThesPlur ThesePlur ThosePlur
PhrasebookDut : Baht Beach Beef Chili Coke Durian Garlic IceCream Mango Noodles ObjPlur Pineapple Pork Rice Shrimps Thai ThesPlur ThesePlur ThosePlur
*************
DisambPhrasebookEng :
PhrasebookBul : Baht Beef Durian Mango Pineapple Pork Rice Thai
PhrasebookCat : Baht Beef Durian MMust Mango Pineapple Pork Rice Thai
PhrasebookDan : Baht Beef Durian Mango Pineapple Pork Rice Thai
PhrasebookDut : Baht Beef Durian Mango Pineapple Pork Rice Thai
^ ^ ^ ^ ^ ^ ^
PhrasebookEng :
v v v v v v v
PhrasebookFin :
PhrasebookFre : Baht Beach Beef Chili Coke Durian Garlic IceCream Mango Noodles ObjPlur Pineapple Pork Rice Shrimps Thai ThesPlur ThesePlur ThosePlur
PhrasebookGer : AModVerbPhrase AModVerbPhrasePlace Baht Beach Beef Chili Coke Durian Garlic IceCream Mango Noodles ObjPlur Pineapple Pork Rice Shrimps Thai ThesPlur ThesePlur ThosePlur
PhrasebookIta : Baht Beach Beef Chili Coke Durian Garlic IceCream MCan MMust Mango Noodles ObjPlur Pineapple Pork Rice Shrimps Thai ThesPlur ThesePlur ThosePlur
PhrasebookNor : Baht Beach Beef Chili Coke Durian Garlic IceCream Mango Noodles ObjPlur Pineapple Pork Rice Shrimps Thai ThesPlur ThesePlur ThosePlur
PhrasebookPol : Baht Beach Beef Chili Coke Durian Garlic IceCream Mango Noodles ObjPlur Pineapple Pork Rice Shrimps Thai ThesPlur ThesePlur ThosePlur
PhrasebookRon : Baht Beach Beef Chili Coke Durian Garlic IceCream Mango Noodles ObjPlur Pineapple Pork Rice Shrimps Thai ThesPlur ThesePlur ThosePlur
PhrasebookRus : Baht Beach Beef Belgian Belgium Chili Coke Durian Flemish Garlic IceCream Mango Noodles ObjPlur Pineapple Pork Rice Shrimps Thai ThesPlur ThesePlur ThosePlur
PhrasebookSpa : Baht Beach Beef Chili Coke Durian Garlic IceCream Mango Noodles ObjPlur Pineapple Pork Rice Shrimps Thai ThesPlur ThesePlur ThosePlur
PhrasebookSwe :
PhrasebookFre : 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 : AModVerbPhrase AModVerbPhrasePlace 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 : 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 : 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 : 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 : 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 : 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 : 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 : Egg ItsCold ItsRaining ItsWarm ItsWindy Lemonade OrangeJuice Salad Smoke SunShine
PhrasebookTha :
PhrasebookUrd : Baht Beach Beef Chili Coke Durian Garlic IceCream MMust Mango Noodles ObjPlur Pineapple Pork Rice Shrimps Thai ThesPlur ThesePlur ThosePlur
*************
PhrasebookFin : Baht Beef Durian Mango Pineapple Pork Rice Thai
PhrasebookFre : Baht Beef Durian Mango Pineapple Pork Rice Thai
PhrasebookGer : AModVerbPhrase AModVerbPhrasePlace Baht Beef Durian Mango Pineapple Pork Rice Thai
PhrasebookIta : Baht Beef Durian MCan MMust Mango Pineapple Pork Rice Thai
PhrasebookNor : Baht Beef Durian Mango Pineapple Pork Rice Thai
PhrasebookPol : Baht Beef Durian Mango Pineapple Pork Rice Thai
PhrasebookRon : Baht Beef Durian Mango Pineapple Pork Rice Thai
PhrasebookRus : Baht Beef Belgian Belgium Durian Flemish Mango Pineapple Pork Rice Thai
PhrasebookSpa : Baht Beef Durian Mango Pineapple Pork Rice Thai
PhrasebookSwe : Baht Beef Durian Mango Pineapple Pork Rice Thai
PhrasebookTha :
PhrasebookUrd : Baht Beef Durian MMust Mango Pineapple Pork Rice Thai
^ ^ ^ ^ ^ ^ ^
PhrasebookUrd : 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