From 5cb147fa19fdd348a24bc9d90fc8b5a6041530d8 Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 30 Mar 2010 18:48:59 +0000 Subject: simplified the treatment of politeness in Phrasebook --- examples/phrasebook/WordsIta.gf | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'examples/phrasebook/WordsIta.gf') diff --git a/examples/phrasebook/WordsIta.gf b/examples/phrasebook/WordsIta.gf index c28fbc302..43a19c4fe 100644 --- a/examples/phrasebook/WordsIta.gf +++ b/examples/phrasebook/WordsIta.gf @@ -18,7 +18,7 @@ Cheese = mkCN (mkN "formaggio") ; Fish = mkCN (mkN "pesce") ; Pizza = mkCN (mkN "pizza") ; -Itash = mkAP (mkA "frasco") ; +Fresh = mkAP (mkA "fresco") ; Warm = mkAPA "caldo" ; Italian = mkAPA "italiano" ; Expensive = mkAPA "caro" ; @@ -33,18 +33,18 @@ Boring = mkAPA "noioso" ; Dollar = mkCN (mkN "dollar") ; Lei = mkCN (mkN "lei") ; ---- ? + AWant p obj = mkCl p want_V2 obj ; + ALike p item = mkCl item (mkV2 (mkV (piacere_64 "piacere")) dative) p ; + AHave p kind = mkCl p have_V2 (mkNP kind) ; + ASpeak p lang = mkCl p (mkV2 (mkV "parlare")) lang ; + ALove p q = mkCl p (mkV2 (mkV "amare")) q ; + English = mkNP (mkPN "inglese") ; Finnish = mkNP (mkPN "finnico") ; - Itanch = mkNP (mkPN "francese") ; + French = mkNP (mkPN "francese") ; Romanian = mkNP (mkPN "romano") ; Swedish = mkNP (mkPN "svedese") ; - AWant p obj = {s = \\r => mkCl (p.s ! r) want_V2 obj} ; - ALike p item = {s = \\r => mkCl item (mkV2 (mkV (piacere_64 "piacere")) dative) (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 "parlare")) lang} ; - ALove p q = {s = \\r => mkCl (p.s ! r) (mkV2 (mkV "amare")) (q.s ! r)} ; - oper mkAPA : (_ : Str) -> AP = \x -> mkAP (mkA x) ; -- cgit v1.2.3