diff options
| author | aarne <aarne@chalmers.se> | 2013-10-27 15:17:10 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2013-10-27 15:17:10 +0000 |
| commit | ccc18da2d406a7116e63c34798b22d036d203bc7 (patch) | |
| tree | dc6ede5d155a35642613bc9255825e719a43f813 /examples/translator/TranslateSwe.gf | |
| parent | 9410c6b1411612658d5262cbfca903fd1927cd55 (diff) | |
added TranslateSwe to the Parse+Phrasebook translators
Diffstat (limited to 'examples/translator/TranslateSwe.gf')
| -rw-r--r-- | examples/translator/TranslateSwe.gf | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/examples/translator/TranslateSwe.gf b/examples/translator/TranslateSwe.gf new file mode 100644 index 000000000..957be0c50 --- /dev/null +++ b/examples/translator/TranslateSwe.gf @@ -0,0 +1,16 @@ +--# -path=.:alltenses:../phrasebook:../../lib/src/english:../../lib/src/swedish:../../lib/src/scandinavian + +concrete TranslateSwe of Translate = + ParseSwe - [open_A], + PhrasebookSwe ** + open SyntaxSwe, ParadigmsSwe, (E = ExtraSwe), Prelude in { + +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 = SyntaxSwe.mkAdv in_Prep np ; to = SyntaxSwe.mkAdv to_Prep np} ; + +}
\ No newline at end of file |