(Cat,Por,Spa) Export CopulaType and {ser,estar}Copula in Paradigms

src/catalan/ParadigmsCat.gf

@@ -28,6 +28,7 @@ resource ParadigmsCat =
   open
     (Predef=Predef),
     Prelude,
+    DiffCat,
     MorphoCat,
     BeschCat,
     CatCat in {
@@ -64,6 +65,9 @@ oper
 
   mkPrep : Str -> Prep ; -- other preposition
 
+  CopulaType : Type ;
+  serCopula : CopulaType ;
+  estarCopula : CopulaType ;
 
 --2 Nouns
 
@@ -295,10 +299,13 @@ oper
 
   Gender = MorphoCat.Gender ;
   Number = MorphoCat.Number ;
+  CopulaType = DiffCat.CopulaType ;
   masculine = Masc ;
   feminine = Fem ;
   singular = Sg ;
   plural = Pl ;
+  serCopula = DiffCat.serCopula ;
+  estarCopula = DiffCat.estarCopula ;
 
   accusative = complAcc ** {lock_Prep = <>} ;
   genitive = complGen ** {lock_Prep = <>} ;

src/portuguese/ParadigmsPor.gf

@@ -35,6 +35,7 @@ resource ParadigmsPor =
     Prelude,
     MorphoPor,
     BeschPor,
+    DiffPor,
     CatPor in {
 
   flags optimize=all ;
@@ -79,6 +80,18 @@ oper
   dative     : Prep ; -- preposition "a" and its contractions
   dative = lin Prep complDat ;
 
+  CopulaType : Type ;
+  CopulaType = DiffPor.CopulaType ;
+
+  serCopula : CopulaType ;
+  serCopula = DiffPor.serCopula ;
+
+  estarCopula : CopulaType ;
+  estarCopula = DiffPor.estarCopula ;
+
+  ficarCopula : CopulaType ;
+  ficarCopula = DiffPor.ficarCopula ;
+
   mkPrep = overload {
     mkPrep : Str -> Prep -- other preposition
       = \p -> lin Prep {s = p ; c = Acc ; isDir = False} ;

src/spanish/ParadigmsSpa.gf

@@ -28,6 +28,7 @@ resource ParadigmsSpa =
     (Predef=Predef),
     Prelude,
     MorphoSpa,
+    DiffSpa,
     BeschSpa,
     CatSpa in {
 
@@ -60,6 +61,10 @@ oper
   genitive   : Prep ; -- preposition "de" and its contractions
   dative     : Prep ; -- preposition "a" and its contractions
 
+  CopulaType : Type ;
+  serCopula : CopulaType ;
+  estarCopula : CopulaType ;
+
   mkPrep : overload {
     mkPrep : Str -> Prep ; -- other preposition
     mkPrep : Str -> Prep -> Prep ; -- compound prepositions, e.g. "antes de", made as mkPrep "antes" genitive
@@ -322,10 +327,13 @@ oper
 
   Gender = MorphoSpa.Gender ;
   Number = MorphoSpa.Number ;
+  CopulaType = DiffSpa.CopulaType ;
   masculine = Masc ;
   feminine = Fem ;
   singular = Sg ;
   plural = Pl ;
+  serCopula = DiffSpa.serCopula ;
+  estarCopula = DiffSpa.estarCopula ;
 
   accusative = complAcc ** {lock_Prep = <>} ;
   genitive = complGen ** {lock_Prep = <>} ;