diff options
Diffstat (limited to 'examples/translator/TranslateFre.gf')
| -rw-r--r-- | examples/translator/TranslateFre.gf | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/examples/translator/TranslateFre.gf b/examples/translator/TranslateFre.gf new file mode 100644 index 000000000..ee5acf946 --- /dev/null +++ b/examples/translator/TranslateFre.gf @@ -0,0 +1,16 @@ +--# -path=.:alltenses:../phrasebook:../../lib/src/english:../../lib/src/french:../../lib/src/romance + +concrete TranslateFre of Translate = + ParseFre - [open_A], + PhrasebookFre ** + open SyntaxFre, ParadigmsFre, (E = ExtraFre), 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 = SyntaxFre.mkAdv dative np ; to = SyntaxFre.mkAdv dative np} ; + +}
\ No newline at end of file |