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/WordsRon.gf | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'examples/phrasebook/WordsRon.gf') diff --git a/examples/phrasebook/WordsRon.gf b/examples/phrasebook/WordsRon.gf index edf27ad11..997848125 100644 --- a/examples/phrasebook/WordsRon.gf +++ b/examples/phrasebook/WordsRon.gf @@ -3,8 +3,7 @@ concrete WordsRon of Words = SentencesRon ** open SyntaxRon, ParadigmsRon, - BeschRon, - DiffPhrasebookRon in + BeschRon in { flags coding=utf8 ; @@ -42,8 +41,8 @@ Good = mkA "bun" "bună" "buni" "bune" "bine" ; -- Romanian = SyntaxRon.mkNP (mkPN "română") ; ---- ? -- Swedish = mkNP (mkPN "suédois") ; - AWant p obj = mkCl p.name want_V2 obj ; - ALike p item = mkCl p.name like_V2 item ; + AWant p obj = mkCl p.name (dirV2 (lin V want_VV)) obj ; + ALike p item = mkCl p.name (dirV2 (v_besch71 "plăcea")) item ; ASpeak p lang = mkCl p.name (dirV2 (mkV "vorbi")) lang ; ALove p q = mkCl p.name (dirV2 (mkV "iubi")) q.name ; AUnderstand p = mkCl p.name (v_besch83 "înţelege") ; @@ -53,7 +52,6 @@ Good = mkA "bun" "bună" "buni" "bune" "bine" ; -- ATired p = mkCl p (mkA "stanco") ; -- AScared p = mkCl p (E.ComplCN have_V2 (mkCN (mkN "paura" feminine))) ; - {- GImHungry = ss "mi-e foame" ; GImThirsty = ss "mi-e sete" ; @@ -61,6 +59,9 @@ Good = mkA "bun" "bună" "buni" "bune" "bine" ; GImScared = ss "mi-e frică" ; -} + HowMuchCost item = mkQS (mkQCl how8much_IAdv (mkCl item (v_besch18 "costa"))) ; + ItCost item price = mkCl item (dirV2 (v_besch18 "costa")) price ; + oper mkPlace : N -> Prep -> {name : CN ; at : Prep ; to : Prep} = \p,i -> { name = mkCN p ; -- cgit v1.2.3