From b9fcba00cf1936887e86a98e4992c0f5565e47d2 Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 6 Apr 2010 20:35:12 +0000 Subject: improved the performance of Romance while retaining correct agreement ; removed Diff modules from Phrasebook --- examples/phrasebook/WordsFre.gf | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'examples/phrasebook/WordsFre.gf') diff --git a/examples/phrasebook/WordsFre.gf b/examples/phrasebook/WordsFre.gf index b61afdb14..6f0e7f152 100644 --- a/examples/phrasebook/WordsFre.gf +++ b/examples/phrasebook/WordsFre.gf @@ -2,7 +2,6 @@ concrete WordsFre of Words = SentencesFre ** open SyntaxFre, - DiffPhrasebookFre, IrregFre, (E = ExtraFre), ParadigmsFre, @@ -59,7 +58,7 @@ Good = prefixA (mkA "bon" "bonne" "bons" "bien") ; Saturday = mkDay "samedi" ; Sunday = mkDay "dimanche" ; - AWant p obj = mkCl p.name want_V2 obj ; + AWant p obj = mkCl p.name vouloir_V2 obj ; ALike p item = mkCl item plaire_V2 p.name ; ASpeak p lang = mkCl p.name (mkV2 (mkV "parler")) lang ; ALove p q = mkCl p.name (mkV2 (mkV "aimer")) q.name ; @@ -86,6 +85,9 @@ Good = prefixA (mkA "bon" "bonne" "bons" "bien") ; PropOpenDay p d = mkCl p.name (mkVP (mkVP open_A) d.habitual) ; PropClosedDay p d = mkCl p.name (mkVP (mkVP closed_A) d.habitual) ; + HowMuchCost item = mkQS (mkQCl how8much_IAdv (mkCl item (mkV "coûter"))) ; + ItCost item price = mkCl item (mkV2 (mkV "coûter")) price ; + oper mkNat : Str -> Str -> {lang : NP ; prop : A ; country : NP} = \nat,co -> {lang = mkNP (mkPN nat) ; prop = mkA nat ; country = mkNP (mkPN co)} ; -- cgit v1.2.3