More work on rom

lib/resource-0.6/french/SyntaxFre.gf

@@ -9,6 +9,8 @@ oper
       jean.g 
       Sg ;
 
+  nounPhraseOn = mkNameNounPhrase "on" Masc ;
+
   partitiveNounPhrase = \n,vin ->
     normalNounPhrase 
       (table {
@@ -90,7 +92,8 @@ oper
 
   isTransVerbClit = \v -> case v.c of { 
      Acc => True ;
-     _   => False  --- hmmm
+     Dat => True ;
+     _   => False
      } ;
 
 -- The "ne - pas" negation.

lib/resource-0.6/french/TypesFre.gf

@@ -126,6 +126,13 @@ oper
     _   => Ton c
     } ;
 
+  case2pformClit = \c -> case c of {
+    Nom => Aton Nom ;
+    Acc => Aton Acc ;
+    Dat => Aton Dat ;
+    _   => Ton c
+    } ;
+
 -- Relative pronouns: the case-dependent parameter type.
 
   param RelForm = RSimple Case | RComplex Gender Number Case ;