parametrized participle-clitic agreement

lib/resource-1.0/romance/DiffRomance.gf

@@ -1,19 +1,44 @@
 interface DiffRomance = open CommonRomance, Prelude in {
 
---2 Constants whose definitions depend on language.
+--2 Constants whose definitions fundamentally depend on language
 
--- Prepositions that fuse with the article vary.
+-- Prepositions that fuse with the article
+-- (Fre, Spa "de", "a"; Ita also "in", "con").
 
-param
+  param Prep ;
 
-  Prep ;
-  VType ;
+-- Which types of verbs exist, in terms of auxiliaries.
+-- (Fre, Ita "avoir", "être", and refl; Spa only "haber" and refl).
 
-oper
+  param VType ;
+
+-- Derivatively, if/when the participle agrees to the subject.
+-- (Fre "elle est partie", Ita "lei è partita", Spa not)
+
+  oper partAgr   : VType -> VPAgr ;
+
+-- Whether participle agrees to foregoing clitic.
+-- (Fre "je l'ai vue", Ita "io la ho visto")
+
+  oper vpAgrClit : Agr -> VPAgr ;
+
+-- Whether a preposition is repeated in conjunction
+-- (Fre "la somme de 3 et de 4", Ita "la somma di 3 e 4").
+
+  oper conjunctCase : NPForm -> NPForm ;
+
+
+--2 Constants that must derivatively depend on language
 
   dative    : Case ;
   genitive  : Case ;
 
+  vRefl   : VType ;
+  isVRefl : VType -> Bool ;
+
+
+--2 Strings
+
   prepCase  : Case -> Str ;
 
   partitive : Gender -> Case -> Str ;
@@ -21,17 +46,10 @@ oper
   artDef    : Gender -> Number -> Case -> Str ;
   artIndef  : Gender -> Number -> Case -> Str ;
 
--- This regulates whether a preposition is repeated in conjunction
--- (Fre "la somme de 3 et de 4", Ita "la somma di 3 e 4").
-
-  conjunctCase : NPForm -> NPForm ;
-
   auxVerb   : VType -> (VF => Str) ;
   negation  : Polarity => (Str * Str) ;
   copula    : Verb ;
 
-  partAgr   : VType -> VPAgr ;
-
   conjThan  : Str ;
   conjThat  : Str ;
 
@@ -44,13 +62,10 @@ oper
 
   reflPron : Number => Person => Case => Str ;
 
-  vRefl   : VType ;
-  isVRefl : VType -> Bool ;
-
   auxPassive : Verb ;
 
 
--- These are needed above.
+--2 Contants needed in type signatures above
 
 param
   Case = Nom | Acc | CPrep Prep ;