Translate grammar for Ger and Hin added. Some functions in Ger phrasebook need to be commented out to compile. Now a system for 7 languages can be built, but including Fre as well is too heavy on my laptop although it can be compiled separately.

1 files changed, 26 insertions, 0 deletions

diff --git a/examples/translator/TranslateHin.gf b/examples/translator/TranslateHin.gf
new file mode 100644
index 000000000..cf8de4ebb
--- /dev/null
+++ b/examples/translator/TranslateHin.gf
@@ -0,0 +1,26 @@
+--# -path=.:../phrasebook:../../lib/src/english:../../lib/src/abstract:../../lib/src/hindi:../../lib/src/hindustani
+
+concrete TranslateHin of Translate = 
+  ParseHin, 
+  PhrasebookHin  - [PSentence, PQuestion, PGreetingMale, PGreetingFemale, GObjectPlease] 
+  ** open SyntaxHin, (E = ExtraHin), Prelude in {
+
+flags
+  literal = Symb ;
+lin
+  PPhr p = lin Text p ;
+  NP_Person np = {name = lin NP np ; isPron = False ; poss = E.GenNP np} ;
+  NP_Object np = lin NP np ;
+  NP_Item np = lin NP np ;
+  NP_Place np0 = let np = lin NP np0 in 
+                 {name = np ; at = SyntaxHin.mkAdv in_Prep np ; to = SyntaxHin.mkAdv to_Prep np} ;
+  NP_Name np = lin NP np ;
+
+--- to remove Phrasebook punctuation, which makes the output in Translate heterogeneous
+
+    PSentence s = lin Text (mkUtt s) ; 
+    PQuestion s = lin Text (mkUtt s) ; 
+    PGreetingMale, PGreetingFemale = \g -> lin Text g ;
+    GObjectPlease o = lin Text (mkUtt o) ;
+  
+}
\ No newline at end of file