From 63e338cb8059bd24565afef6a568c5b515381006 Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 28 Nov 2013 08:03:50 +0000 Subject: 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. --- examples/translator/TranslateGer.gf | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 examples/translator/TranslateGer.gf (limited to 'examples/translator/TranslateGer.gf') 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 -- cgit v1.2.3