forked from GitHub/gf-core
Nui's grammar error reports implemented in PhrasebookTha
This commit is contained in:
@@ -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:
|
||||
|
||||
@@ -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") ;
|
||||
|
||||
}
|
||||
|
||||
@@ -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") ;
|
||||
}
|
||||
|
||||
@@ -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 "สูบ" "บุ" "รี")) ;
|
||||
|
||||
}
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user