From 8f9eb4f7f32560803d690be2b75e9dcc6cb08502 Mon Sep 17 00:00:00 2001 From: "ramona.enache" Date: Fri, 28 May 2010 12:15:28 +0000 Subject: added inherent number to places, fixed places in French --- examples/phrasebook/WordsEng.gf | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'examples/phrasebook/WordsEng.gf') diff --git a/examples/phrasebook/WordsEng.gf b/examples/phrasebook/WordsEng.gf index 10d201b06..38db65f62 100644 --- a/examples/phrasebook/WordsEng.gf +++ b/examples/phrasebook/WordsEng.gf @@ -233,10 +233,10 @@ concrete WordsEng of Words = SentencesEng ** mkNPDay day (SyntaxEng.mkAdv on_Prep day) (SyntaxEng.mkAdv on_Prep (mkNP a_Quant plNum (mkCN (mkN d)))) ; - mkCompoundPlace : Str -> Str -> Str -> {name : CN ; at : Prep ; to : Prep} = \comp, p, i -> + mkCompoundPlace : Str -> Str -> Str -> {name : CN ; at : Prep ; to : Prep; isPl : Bool} = \comp, p, i -> mkCNPlace (mkCN (P.mkN comp (mkN p))) (P.mkPrep i) to_Prep ; - mkPlace : Str -> Str -> {name : CN ; at : Prep ; to : Prep} = \p,i -> + mkPlace : Str -> Str -> {name : CN ; at : Prep ; to : Prep; isPl : Bool} = \p,i -> mkCNPlace (mkCN (mkN p)) (P.mkPrep i) to_Prep ; open_Adv = P.mkAdv "open" ; -- cgit v1.2.3