From d1748049aaa5cb193cff11707e767308bca231e8 Mon Sep 17 00:00:00 2001 From: "ramona.enache" Date: Sat, 15 May 2010 13:35:50 +0000 Subject: q --- examples/phrasebook/SentencesRon.gf | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) (limited to 'examples/phrasebook/SentencesRon.gf') diff --git a/examples/phrasebook/SentencesRon.gf b/examples/phrasebook/SentencesRon.gf index 7f8437f36..f604de218 100644 --- a/examples/phrasebook/SentencesRon.gf +++ b/examples/phrasebook/SentencesRon.gf @@ -45,14 +45,24 @@ lin IMale = {name = mkNP i_Pron ; isPron = True ; poss = mkQuant i_Pron} ; YouFamMale = {name = mkNP youSg_Pron ; isPron = True ; poss = mkQuant youSg_Pron} ; YouPolMale = {name = mkNP youPol_Pron ; isPron = True ; poss = mkQuant youPol_Pron} ; - ThePlace kind = let name : NP = mkNP the_Quant kind.name in { + ThePlace kind = let name : NP = mkNP the_Quant kind.name ; + condAt : Bool = needIndefPlace kind.name kind.at ; + condTo : Bool = needIndefPlace kind.name kind.to in { name = name ; - at = if_then_else Adv kind.at.needIndef (mkAdv kind.at name) (mkAdv kind.at (mkNP kind.name)); - to = if_then_else Adv kind.at.needIndef (mkAdv kind.to name) (mkAdv kind.at (mkNP kind.name)) + at = if_then_else Adv condAt (mkAdv kind.at (mkNP the_Art kind.name)) (mkAdv kind.at name); + to = if_then_else Adv condTo (mkAdv kind.at (mkNP the_Art kind.name)) (mkAdv kind.to name) } ; CitiNat n = {pers = n.propPers; prop = n.propObj} ; ACitizen p n = mkCl p.name (PR.mkAdv (n.pers ! (p.name.a.g) ! (p.name.a.n))) ; PCitizenship x = mkPhrase (mkUtt (mkAP x.prop)) ; PropCit p = p.prop ; + + +oper needIndefPlace : CN -> Prep -> Bool = \cn,prep -> + case of + { => True ; + => False ; + _ => True + }; } -- cgit v1.2.3