From 642a843a8c59ae14d68c2798843f455b512e267a Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Mon, 30 Jan 2006 20:21:09 +0000
Subject: [PATCH] bug fix in romance preposition + pronoun

---
 lib/resource-1.0/romance/DiffRomance.gf | 15 +++++++++++++--
 lib/resource-1.0/romance/ResRomance.gf  |  4 ++--
 2 files changed, 15 insertions(+), 4 deletions(-)

diff --git a/lib/resource-1.0/romance/DiffRomance.gf b/lib/resource-1.0/romance/DiffRomance.gf
index d9489bb8f..6ba1c8f6f 100644
--- a/lib/resource-1.0/romance/DiffRomance.gf
+++ b/lib/resource-1.0/romance/DiffRomance.gf
@@ -1,5 +1,13 @@
+--1 Differences between Romance languages
+
 interface DiffRomance = open CommonRomance, Prelude in {
 
+-- The first six constants show the essential differences
+-- between French, Italian, and Romance syntaxes (as regards the
+-- resource API). The other constants are either derivatively
+-- dependent, or have as values strings, which are language-dependent
+-- anyway.
+
 --2 Constants whose definitions fundamentally depend on language
 
 -- Prepositions that fuse with the article
@@ -27,6 +35,11 @@ interface DiffRomance = open CommonRomance, Prelude in {
 
   oper conjunctCase : NPForm -> NPForm ;
 
+-- How infinitives and clitics are placed relative to each other
+-- (Fre "la voir", Ita "vederla").
+
+  oper clitInf : Str -> Str -> Str ;
+
 
 --2 Constants that must derivatively depend on language
 
@@ -53,8 +66,6 @@ interface DiffRomance = open CommonRomance, Prelude in {
   conjThan  : Str ;
   conjThat  : Str ;
 
-  clitInf   : Str -> Str -> Str ;
-
   relPron   : Bool => AAgr => Case => Str ;
   pronSuch  : AAgr => Str ;
 
diff --git a/lib/resource-1.0/romance/ResRomance.gf b/lib/resource-1.0/romance/ResRomance.gf
index 4c145263e..33ca41a9b 100644
--- a/lib/resource-1.0/romance/ResRomance.gf
+++ b/lib/resource-1.0/romance/ResRomance.gf
@@ -32,8 +32,8 @@ oper
     } ;
 
   case2npform : Case -> NPForm = \c -> case c of {
-    Nom => Aton Nom ;
-    Acc => Aton Acc ;
+    Nom => Ton Nom ;
+    Acc => Ton Acc ;
     _   => Ton c
     } ;