From 98cbd993ac47f8ff0d73d2c77680cb9de3723b0d Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 17 Feb 2015 17:18:51 +0000 Subject: [PATCH] App14 with Tha up and running! --- examples/app/AppTha.gf | 48 +++++++++++++++++++ examples/app/Makefile | 6 +++ examples/phrasebook/Makefile | 2 +- lib/src/translator/DictionaryFre.gf | 2 +- lib/src/translator/DictionaryTha.gf | 12 +++-- .../ui/android/Translator.java | 1 + 6 files changed, 66 insertions(+), 5 deletions(-) create mode 100644 examples/app/AppTha.gf diff --git a/examples/app/AppTha.gf b/examples/app/AppTha.gf new file mode 100644 index 000000000..c1fc138e7 --- /dev/null +++ b/examples/app/AppTha.gf @@ -0,0 +1,48 @@ +--# -path=.:../../lib/src/chunk:../../lib/src/translator:../phrasebook/gfos + +concrete AppTha of App = + + TranslateTha - [ + -- Verb + SlashV2V, -- replaced by more efficient inlined versions + Slash2V3, Slash3V3, SlashV2S, SlashV2Q, SlashV2A, + SlashVV, SlashV2VNP, + AdvVPSlash, AdVVPSlash, VPSlashPrep, + -- Sentence + PredSCVP, + AdvSlash, SlashPrep, SlashVS, + EmbedS, EmbedQS, EmbedVP, RelS, + -- Question + ComplSlashIP,AdvQVP,AddAdvQVP,QuestQVP, + -- Idiom + CleftNP, CleftAdv, + ImpP3 + -- Construction + -- Extensions + ] + + ,PhrasebookTha - [at_Prep, closed_A, open_A] --- - [PSentence, PQuestion, PGreetingMale, PGreetingFemale, GObjectPlease, open_Adv, closed_A, open_A, at_Prep, by_Prep] + + ** open ParadigmsTha, SyntaxTha, Prelude in { + +flags + literal=Symb ; + + +-- to suppress punctuation +lin +---- PSentence, PQuestion = \s -> lin Text (mkUtt s) ; +---- PGreetingMale, PGreetingFemale = \s -> lin Text s ; +---- GObjectPlease o = lin Text (mkUtt o) ; + + PhrasePhr p = {s = "+" ++ p.s} | p ; + Phrase_Chunk p = p ; + + +ComplV2V v np vp = mkVP v np vp ; +ComplV2A v np vp = mkVP v np vp ; +ComplV2Q v np vp = mkVP v np vp ; +ComplV2S v np vp = mkVP v np vp ; +ComplV3 v np vp = mkVP v np vp ; + +} diff --git a/examples/app/Makefile b/examples/app/Makefile index f5207b377..26023d7ce 100644 --- a/examples/app/Makefile +++ b/examples/app/Makefile @@ -14,6 +14,7 @@ GFMKT=mkdir -p $(GFODIR) && gf $S -make -literal=PN,Symb -probs=$(PROBSFILE) -gf APP11=AppEng.pgf AppBul.pgf AppChi.pgf AppGer.pgf AppSwe.pgf AppHin.pgf AppFin.pgf AppFre.pgf AppIta.pgf AppSpa.pgf AppDut.pgf APP12=$(APP11) AppCat.pgf APP13=$(APP12) AppJpn.pgf +APP14=$(APP13) AppTha.pgf # With dependencies: App11.pgf: $(APP11) @@ -22,6 +23,8 @@ App12.pgf: $(APP12) $(GFMKT) -name=App12 $(APP12) +RTS -K200M App13.pgf: $(APP13) $(GFMKT) -name=App13 $(APP13) +RTS -K200M +App14.pgf: $(APP14) + $(GFMKT) -name=App14 $(APP14) +RTS -K200M # Without dependencies: App11: @@ -30,6 +33,8 @@ App12: $(GFMKT) -name=App12 $(APP12) +RTS -K200M App13: $(GFMKT) -name=App13 $(APP13) +RTS -K200M +App14: + $(GFMKT) -name=App14 $(APP14) +RTS -K200M # App grammars for individual languages AppEng.pgf:: ; $(GFMKT) -name=AppEng AppEng.gf @@ -45,6 +50,7 @@ AppIta.pgf:: ; $(GFMKT) -name=AppIta AppIta.gf +RTS -K64M AppJpn.pgf:: ; $(GFMKT) -name=AppJpn AppJpn.gf +RTS -K64M AppSpa.pgf:: ; $(GFMKT) -name=AppSpa AppSpa.gf +RTS -K64M AppSwe.pgf:: ; $(GFMKT) -name=AppSwe AppSwe.gf +AppTha.pgf:: ; $(GFMKT) -name=AppTha AppTha.gf # language pairs to test AppEngSwe: ; $(GFMKT) -name=AppEngSwe AppEng.pgf AppSwe.pgf diff --git a/examples/phrasebook/Makefile b/examples/phrasebook/Makefile index 685587d2a..cb8e488fa 100644 --- a/examples/phrasebook/Makefile +++ b/examples/phrasebook/Makefile @@ -1,7 +1,7 @@ compile = runghc Compile forApp: - $(compile) -opt Bul Cat Chi Dut Eng Fin Fre Ger Hin Ita Jpn Spa Swe + $(compile) -opt Bul Cat Chi Dut Eng Fin Fre Ger Hin Ita Jpn Spa Swe Tha make gfos .PHONY: gfos diff --git a/lib/src/translator/DictionaryFre.gf b/lib/src/translator/DictionaryFre.gf index 5e16734a5..46adce076 100644 --- a/lib/src/translator/DictionaryFre.gf +++ b/lib/src/translator/DictionaryFre.gf @@ -144,7 +144,7 @@ lin abrade_V2 = mkV2 (mkV "abraser") ; -- tocheck lin abrasion_N = mkN "abrasion" feminine ; -- tocheck lin abrasive_A = mkA "abrasif" ; -- tocheck lin abridge_V2 = mkV2 (mkV "abréger") ; -- tocheck -lin abridgement_N = mkN "abréviation" | mkN "capsule" | mkN "condensation"; mkN "raccourcissement" ; -- UWN -- tocheck +lin abridgement_N = mkN "abréviation" | mkN "capsule" | mkN "condensation" | mkN "raccourcissement" ; -- UWN -- tocheck lin abroad_Adv = variants {} ; -- lin abrocome_N = mkN "abrocomidae" ; -- UWN lin abrogation_N = mkN "abolition" | mkN "abrogation" | mkN "annulation" ; -- UWN diff --git a/lib/src/translator/DictionaryTha.gf b/lib/src/translator/DictionaryTha.gf index 1a49d7f81..7810b680c 100644 --- a/lib/src/translator/DictionaryTha.gf +++ b/lib/src/translator/DictionaryTha.gf @@ -17052,7 +17052,8 @@ lin hysteric_N = mkN "ผู้ป่วยโรคฮีสทีเรีย" lin hysterical_A = mkA "ขบขันมาก" | mkA "ซึ่งทําให้อดหัวเราะไม่ได้" | mkA "เกี่ยวกับหรือทําให้เกิดฮิสทีเรีย" ; -- src=panlex lin hysterosalpingogram_N = mkN "ภาพฉีดสีดูท่อนำไข่" ; -- src=panlex lin hysterotomy_N = mkN "การผ่ามดลูก" | mkN "การผ่าตัดมดลูก" | mkN "การผ่าตัดหน้าท้องในการคลอดลูก" ; -- src=panlex -lin i_Pronlin = ss chan_s ; +lin i_Pron = ss "ผม" ; +lin iFem_Pron = ss chan_s ; lin ibex_N = mkN "แพะป่า" ; -- src=panlex lin ibidem_Adv = mkAdv "ที่อ้างแล้ว" | mkAdv "ในบทหรือหน้าเดียวกัน" ; -- src=panlex lin ibis_N = mkN "นกอิบิส" ; -- src=panlex @@ -18457,7 +18458,7 @@ lin isotope_N = mkN "ไอโซโทป" | mkN "ไอโซโทป" ; -- s lin isotropy_N = mkN "ไอโซทรอปี" ; -- src=panlex lin issue_V = mkV "ออก" | mkV "พิมพ์" | mkV "ออกมา" | mkV "ตีพิมพ์" | mkV "พิมพ์" | mkV "จัดทํา" | mkV "ไหลออก" | mkV "ตีพิมพ์" | mkV "โผล่ออกมา" | mkV "ปรากฏออกมา" | mkV "พิมพ์ออกมา" | mkV "ตีพิมพ์เพื่อจําหน่ายหรือแจก" ; -- src=panlex lin isthmus_N = mkN "คอคอด" | mkN "คอคอด" | mkN "ส่วนเชื่อมต่อ" ; -- src=panlex -lin it_Pronlin = ss "มัน" ; +lin it_Pron = ss "มัน" ; lin italian_A = mkA "เกี่ยวกับอิตาลี" ; -- src=panlex lin italic_A = mkA "ตัวเอน" | mkA "ตัวเอียง" | mkA "เกี่ยวกับแบบหนังสือ ตัวเอียง" ; -- src=panlex lin italic_N = mkN "ตัวเอน" | mkN "ตัวเอียง" | mkN "อักษรเอียง" | mkN "ตัวอักษรแบบตัวเอน" | mkN "ตัวอักษรแบบตัวเอน" ; -- src=panlex @@ -35073,6 +35074,7 @@ lin thespian_N = mkN "ดารา" | mkN "นักแสดง" | mkN "ดา lin theta_N = mkN "ทีตา" | mkN "พยัญชนะตัวที่ 8 ของภาษากรีก" ; -- src=panlex lin theurgy_N = mkN "ปรากฎการณ์เหนือธรรมชาติ" ; -- src=panlex lin they_Pron = mkNP (thword "พวก" khaw_s) ; --- mkNP (thword "เขา" "ทั้ง" "หลาย") ; +lin theyFem_Pron = mkNP (thword "พวก" khaw_s) ; --- mkNP (thword "เขา" "ทั้ง" "หลาย") ; lin thiabendazole_N = mkN "ไทอะเบนดาโซล" ; -- src=panlex lin thiazide_N = mkN "ไทอะไซด์" ; -- src=panlex lin thiazine_N = mkN "ไทอาซิน" ; -- src=panlex @@ -38322,6 +38324,7 @@ lin wayfaring_N = mkN "การเดินทางด้วยเท้า" | lin wayside_N = mkN "ริมทาง" | mkN "ขอบทาง" | mkN "ข้างถนน" | mkN "ข้างทาง" ; -- src=panlex lin wayward_A = mkA "ผันแปร" | mkA "เถลไถล" | mkA "ดื้อดึง" | mkA "ถือทิฐิ" | mkA "หัวแข็ง" | mkA "ผ่าเหล่า" | mkA "เอาแต่ใจ" | mkA "ไม่แน่นอน" | mkA "เปลี่ยนแปลง" | mkA "ไม่เชื่อฟัง" ; -- src=panlex lin we_Pron = ss raw_s ; +lin weFem_Pron = ss raw_s ; lin weak_A = mkA "อ่อน" | mkA "อ่อนแอ" | mkA "จาง" | mkA "บาง" | mkA "แผ่ว" | mkA "เปราะ" | mkA "อ่อนลง" | mkA "อ่อนแอ" | mkA "ใจอ่อน" | mkA "ขาดแคลน" | mkA "อ่อนข้อ" | mkA "เจือจาง" | mkA "แพ้ง่าย" | mkA "ขาดทักษะ" | mkA "ปวกเปียก" | mkA "เปราะบาง" | mkA "เสียงอ่อน" | mkA "เหลาะแหละ" | mkA "อ่อนกําลัง" | mkA "ไม่กล้าหาญ" | mkA "ไม่หนักแน่น" | mkA "ขาดความสามารถ" | mkA "เอาชนะได้ง่าย" | mkA "ซึ่งไม่อาจโน้มน้าวได้" | mkA "ซึ่งทํางานได้ไม่เต็มที่" ; -- src=panlex lin weaken_V = mkV "อ่อนแอลง" | mkV "ลดผลกระทบ" | mkV "ก่อวินาศกรรม" | mkV "ลดความเข้มข้น" | mkV "แย่ลง" | mkV "ทรุดโทรม" | mkV "อ่อนแอลง" | mkV "เปราะบาง" | mkV "ทําให้อ่อนลง" | mkV "ทําให้อ่อนแอ" ; -- src=panlex lin weakener_N = mkN "สิ่งที่ทำให้อ่อนแอ" ; -- src=panlex @@ -39194,8 +39197,11 @@ lin yore_N = mkN "อดีตอันยาวนาน" | mkN "ในอด lin yottabit_N = mkN "ยอตตะบิต" ; -- src=panlex lin yottabyte_N = mkN "ยอตตะไบต์" ; -- src=panlex lin youPl_Pron = ss (thword "พวก" khun_s) ; +lin youPlFem_Pron = ss (thword "พวก" khun_s) ; lin youPol_Pron = ss khun_s ; -lin youSg_Pron = ss khun_s ; +lin youPolFem_Pron = ss khun_s ; +lin youSg_Pron = ss "เธอ" ; +lin youSgFem_Pron = ss "เธอ" ; lin young_A = mkA "รุ่น" | {-pan-} mkA "สาว" | mkA "อ่อน" | mkA "หนุ่ม" | mkA "อ่อนวัย" | mkA "หนุ่มสาว" | mkA "ซึ่งไม่พยายาม" | mkA "ที่หนุ่มยังแน่น" | mkA "ที่เป็นสาวเป็นแส้" | mkA "ที่เป็นหนุ่มเป็นสาว" | mkA "ลูก" | mkA "สาว" | mkA "อ่อน" | mkA "เด็ก" | mkA "หนุ่ม" | mkA "เยาว์" | mkA "อ่อนวัย" | mkA "อ่อนหัด" | mkA "อายุน้อย" | mkA "เยาว์วัย" | mkA "อายุยังน้อย" | mkA "ระยะแรกเริ่ม" | mkA "ยังไม่สมบูรณ์" | mkA "เพิ่งเริ่มต้น" | mkA "ด้อยประสบการณ์" | mkA "ยังไม่โตเต็มที่" | mkA "เกี่ยวกับผู้เยาว์" ; -- src=panlex lin young_N = mkN "ลูกอ่อน" | mkN "ลูกสัตว์" | mkN "คนหนุ่มสาว" | mkN "คนหนุ่มคนสาว" | mkN "คนที่มีอายุน้อย" ; -- src=panlex lin younger_A = mkA "ี่อ่อนกว่า" | mkA "มีอายุน้อยกว่า" | mkA "ลูกสาวหรือลูกชายที่ใช้ชื่อเดียวกับพ่อแม่" ; -- src=panlex diff --git a/src/ui/android/src/org/grammaticalframework/ui/android/Translator.java b/src/ui/android/src/org/grammaticalframework/ui/android/Translator.java index 5f620d4e2..9b1cfb2dc 100644 --- a/src/ui/android/src/org/grammaticalframework/ui/android/Translator.java +++ b/src/ui/android/src/org/grammaticalframework/ui/android/Translator.java @@ -36,6 +36,7 @@ public class Translator { new Language("ja-JP", "Japanese","AppJpn", R.xml.qwerty), new Language("es-ES", "Spanish", "AppSpa", R.xml.qwerty), new Language("sv-SE", "Swedish", "AppSwe", R.xml.nordic), + new Language("th-TH", "Thai", "AppTha", R.xml.nordic), }; private Context mContext;