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/WordsRon.gf | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) (limited to 'examples/phrasebook/WordsRon.gf') diff --git a/examples/phrasebook/WordsRon.gf b/examples/phrasebook/WordsRon.gf index 922ee0e71..69c9bcd93 100644 --- a/examples/phrasebook/WordsRon.gf +++ b/examples/phrasebook/WordsRon.gf @@ -3,7 +3,8 @@ concrete WordsRon of Words = SentencesRon ** open SyntaxRon, ParadigmsRon, - DiffPhrasebookRon in + DiffPhrasebookRon, + (R = Roles) in { flags coding=utf8 ; @@ -34,18 +35,18 @@ Boring = mkAPA "plictisitor" "plictisitoare" "plictisitori" "plictisitoare" ; Dollar = mkCN (mkN "dolar" masculine) ; Lei = mkCN (mkN "leu" "lei") ; - AWant p obj = mkCl p want_V2 obj ; - ALike p item = mkCl p like_V2 item ; - AHave p kind = mkCl p have_V2 (SyntaxRon.mkNP kind) ; - ASpeak p lang = mkCl p (dirV2 (mkV "vorbi")) lang ; - ALove p q = mkCl p (dirV2 (mkV "iubi")) q ; - English = SyntaxRon.mkNP (mkPN "engleză") ; ---- ? -- Finnish = mkNP (mkPN "finnois") ; -- French = mkNP (mkPN "français") ; Romanian = SyntaxRon.mkNP (mkPN "română") ; ---- ? -- Swedish = mkNP (mkPN "suédois") ; + AWant p obj = {s = \\r => mkCl (p.s ! r) want_V2 obj} ; + ALike p item = {s = \\r => mkCl (p.s ! r) like_V2 item} ; + AHave p kind = {s = \\r => mkCl (p.s ! r) have_V2 (SyntaxRon.mkNP kind)} ; + ASpeak p lang = {s = \\r => mkCl (p.s ! r) (dirV2 (mkV "vorbi")) lang} ; + ALove p q = {s = \\r => mkCl (p.s ! R.PPolite) (dirV2 (mkV "iubi")) (q.s ! r)} ; ---- linking slow + oper mkAPA : (_,_,_,_ : Str) -> AP = \x,y,z,u -> mkAP (mkA x y z u) ; -- cgit v1.2.3