From de909a4e44419562ca4ba071e15cf9b8e00288be Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 30 Mar 2010 15:39:11 +0000 Subject: disambiguation in Phrasebook grammars, PGF server, and the GUI --- examples/phrasebook/WordsFre.gf | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) (limited to 'examples/phrasebook/WordsFre.gf') diff --git a/examples/phrasebook/WordsFre.gf b/examples/phrasebook/WordsFre.gf index 266d0ed6c..a0f406953 100644 --- a/examples/phrasebook/WordsFre.gf +++ b/examples/phrasebook/WordsFre.gf @@ -35,19 +35,21 @@ Boring = mkAPA "ennuyeux" ; Dollar = mkCN (mkN "dollar") ; Lei = mkCN (mkN "lei") ; ---- ? - AWant p obj = mkCl p want_V2 obj ; - ALike p item = mkCl item plaire_V2 p ; - AHave p kind = mkCl p have_V2 (mkNP kind) ; - ASpeak p lang = mkCl p (mkV2 (mkV "parler")) lang ; - ALove p q = mkCl p (mkV2 (mkV "aimer")) q ; - English = mkNP (mkPN "anglais") ; Finnish = mkNP (mkPN "finnois") ; French = mkNP (mkPN "français") ; Romanian = mkNP (mkPN "roumain") ; Swedish = mkNP (mkPN "suédois") ; -oper -mkAPA : (_ : Str) -> AP = \x -> mkAP (mkA x) ; + AWant p obj = {s = \\r => mkCl (p.s ! r) want_V2 obj} ; + ALike p item = {s = \\r => mkCl item plaire_V2 (p.s ! r)} ; + AHave p kind = {s = \\r => mkCl (p.s ! r) have_V2 (mkNP kind)} ; + ASpeak p lang = {s = \\r => mkCl (p.s ! r) (mkV2 (mkV "parler")) lang} ; + ALove p q = {s = \\r => mkCl (p.s ! r) (mkV2 (mkV "aimer")) (q.s ! r)} ; + + + oper + mkAPA : (_ : Str) -> AP = \x -> mkAP (mkA x) ; + } -- cgit v1.2.3