From 9c73777a4c31b5bb33007a98f6abf37aa62030c1 Mon Sep 17 00:00:00 2001
From: "ramona.enache" <ramona.enache@chalmers.se>
Date: Mon, 26 Apr 2010 09:32:05 +0000
Subject: FixedRon

---
 examples/phrasebook/SentencesRon.gf | 31 ++++++++++++++++---------------
 1 file changed, 16 insertions(+), 15 deletions(-)

(limited to 'examples/phrasebook/SentencesRon.gf')

diff --git a/examples/phrasebook/SentencesRon.gf b/examples/phrasebook/SentencesRon.gf
index f7c404f60..94c94d9eb 100644
--- a/examples/phrasebook/SentencesRon.gf
+++ b/examples/phrasebook/SentencesRon.gf
@@ -1,26 +1,27 @@
 
 concrete SentencesRon of Sentences = NumeralRon ** SentencesI - [
-  IFemale, YouFamFemale, YouPolFemale, IMale, YouFamMale, YouPolMale
- ] 
+  IFemale, YouFamFemale, YouPolFemale, IMale, YouFamMale, YouPolMale,
+  ThePlace
+] 
   with 
     (Syntax = SyntaxRon), 
     (Symbolic = SymbolicRon), 
     (Lexicon = LexiconRon) ** 
   open SyntaxRon, ExtraRon in {
 
-    lin 
-      IFemale = 
-        {name = mkNP i8fem_Pron ; isPron = True ; poss = mkQuant i_Pron} ; 
-      YouFamFemale = 
-        {name = mkNP youSg8fem_Pron ; isPron = True ; poss = mkQuant youSg_Pron} ; 
-      YouPolFemale = 
-        {name = mkNP youPol8fem_Pron ; isPron = True ; poss = mkQuant youPol_Pron};
-      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} ;
+
+lin 
+ IFemale = {name = mkNP i8fem_Pron ; isPron = True ; poss = mkQuant i_Pron} ; 
+ YouFamFemale = {name = mkNP youSg8fem_Pron ; isPron = True ; poss = mkQuant youSg_Pron} ; 
+ YouPolFemale = {name = mkNP youPol8fem_Pron ; isPron = True ; poss = mkQuant youPol_Pron};
+ 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 {
+         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))
+       } ;
 
 }
 
-- 
cgit v1.2.3