diff options
| author | aarne <aarne@chalmers.se> | 2013-10-12 18:54:47 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2013-10-12 18:54:47 +0000 |
| commit | e50594a83c67ee054ba8b2350d2b01f389f92d07 (patch) | |
| tree | f6d20da542f66d2458cb895e5adeff227c860dee /examples/translator/TranslateFin.gf | |
| parent | 99309cf8fd0f933a96b36d8d3476e0170ca63a99 (diff) | |
added TranslateChi and TranslateFin
Diffstat (limited to 'examples/translator/TranslateFin.gf')
| -rw-r--r-- | examples/translator/TranslateFin.gf | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/examples/translator/TranslateFin.gf b/examples/translator/TranslateFin.gf new file mode 100644 index 000000000..02c5d18bf --- /dev/null +++ b/examples/translator/TranslateFin.gf @@ -0,0 +1,14 @@ +--# -path=.:../phrasebook:../../lib/src/finnish/stemmed:../../lib/src/finnish:../../lib/src/api:../../lib/src/english:alltenses + +concrete TranslateFin of Translate = ParseFin, PhrasebookFin - [at_Prep] ** open SyntaxFin, (E = ExtraFin), Prelude in { + +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 = SyntaxFin.mkAdv in_Prep np ; + to = SyntaxFin.mkAdv to_Prep np ; from = SyntaxFin.mkAdv from_Prep np} ; + +}
\ No newline at end of file |