More work on rom

2003-12-16 15:39:07 +00:00
parent 7a8e663cc1
commit 51040d5ab8
6 changed files with 39 additions and 15 deletions
--- a/resource-0.6/french/TypesFre.gf
+++ b/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 ;