integration of Parse with Phrasebook, to get idiomatic translations whenever possible

This commit is contained in:
aarne
2013-10-11 08:19:04 +00:00
parent f358d37c4e
commit 824cf32226
3 changed files with 41 additions and 0 deletions

View File

@@ -0,0 +1,13 @@
--# -path=.:alltenses:../phrasebook:../../lib/src/english
concrete TranslateEng of Translate = ParseEng, PhrasebookEng ** open SyntaxEng, (E = ExtraEng), 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 = SyntaxEng.mkAdv in_Prep np ; to = SyntaxEng.mkAdv to_Prep np} ;
}