msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

added TranslateSwe to the Parse+Phrasebook translators

Browse Source
This commit is contained in:
aarne
2013-10-27 15:17:10 +00:00
parent 9afee8afe7
commit 2abbb55bd4
3 changed files with 20 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
examples/translator/TranslateSwe.gf Normal file
View File

@@ -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} ;
}