more on romance

lib/resource/french/MorphoFre.gf

@@ -13,6 +13,7 @@
 
 resource MorphoFre = open (Predef=Predef), Prelude, TypesFre in {
 
+flags optimize=all ;
 
 --3 Front vowels
 --
@@ -242,19 +243,23 @@ oper
     P3
     Clit1 ;
 
---2 Reflexive pronouns
---
--- It is simply a function depending on number and person.
-
-  pronRefl : Number -> Person -> Str = \n,p -> case <n,p> of {
-    <Sg,P1> => elision "m" ;
-    <Sg,P2> => elision "t" ;
-    <_, P3> => elision "s" ;
-    <Pl,P1> => "nous" ;
-    <Pl,P2> => "vous"
-    } ;
-
+  personPron : Gender -> Number -> Person -> Pronoun = \g,n,p -> 
+    case <n,p> of {
+      <Sg,P1> => pronJe ;
+      <Sg,P2> => pronTu ;
+      <Sg,P3> => case g of {
+        Masc => pronIl ;
+        Fem  => pronElle 
+        } ;
+      <Pl,P1> => pronNous ;
+      <Pl,P2> => pronVous ;
+      <Pl,P3> => case g of {
+        Masc => pronIls ;
+        Fem  => pronElles 
+        } 
+      } ;
 
+-- Reflexive pronouns are defined in $SyntaxFre$.
 
 -- The composable pronoun "lequel" is inflected by varying the definite
 -- article and the determiner "quel" in the expected way.

lib/resource/french/SyntaxFre.gf

@@ -2,6 +2,8 @@
 
 instance SyntaxFre of SyntaxRomance = TypesFre ** open Prelude, (CO=Coordination), MorphoFre in {
 
+flags optimize=parametrize ;
+
 oper
   nameNounPhrase = \jean -> 
     normalNounPhrase
@@ -53,6 +55,19 @@ oper
           } ++ duvin.s ! stressed accusative  --- il y en a ; have to define "y"
     } ;
 
+
+  reflPron : Number => Person => NPFormA => Str = \\n,p => 
+    case p of {
+      P3 => table {
+        Ton x => prepCase x ++ "soi" ;
+        Aton _ => elision "s" ;
+        Poss Sg Masc => "son" ;
+        Poss Sg Fem  => "sa" ;
+        Poss Pl _    => "ses"
+        } ;
+      _ => (personPron Masc n p).s
+    } ;
+
   mkAdjReg : Str -> Bool -> Adjective = \adj,p ->
     mkAdjective (adjGrand adj) p ;
 

lib/resource/french/TestResourceFre.gf

@@ -8,6 +8,7 @@ concrete TestResourceFre of TestResource =
   open Prelude, TypesFre, MorphoFre, SyntaxFre in {
 
 flags startcat=Phr ; lexer=text ; parser=chart ; unlexer=text ;
+optimize=all ;
 
 lin
   Big = mkAdjDegrReg "grand" adjPre ;