summaryrefslogtreecommitdiff
path: root/examples/translator/TranslateHin.gf
diff options
context:
space:
mode:
Diffstat (limited to 'examples/translator/TranslateHin.gf')
-rw-r--r--examples/translator/TranslateHin.gf26
1 files changed, 0 insertions, 26 deletions
diff --git a/examples/translator/TranslateHin.gf b/examples/translator/TranslateHin.gf
deleted file mode 100644
index cf8de4ebb..000000000
--- a/examples/translator/TranslateHin.gf
+++ /dev/null
@@ -1,26 +0,0 @@
---# -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