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, 27 insertions, 0 deletions

diff --git a/examples/translator/TranslateGer.gf b/examples/translator/TranslateGer.gf
new file mode 100644
index 000000000..3af3ace4d
--- /dev/null
+++ b/examples/translator/TranslateGer.gf
@@ -0,0 +1,27 @@
+--# -path=.:alltenses:../phrasebook:../../lib/src/english:../../lib/src/german
+
+concrete TranslateGer of Translate = 
+    ParseGer - [open_A], 
+    PhrasebookGer - [PSentence, PQuestion, PGreetingMale, PGreetingFemale, GObjectPlease] 
+  ** open SyntaxGer, ParadigmsGer, (E = ExtraGer), Prelude in {
+
+flags
+  literal = Symb ;
+
+lin
+  PPhr p = lin Text p ;
+  NP_Person np = {name = lin NP np ; isPron = False ; poss = mkQuant he_Pron} ;
+  NP_Object np = lin NP np ;
+  NP_Item np = lin NP np ;
+  NP_Place np0 = let np = lin NP np0 in 
+                 {name = np ; at = SyntaxGer.mkAdv in_Prep np ; to = SyntaxGer.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