(Romance) add copTyp to adjectives

- so that one can force the use of a copula verb
- before this, a sentence like "he was ready when I saw him" would be
  translated as "ele era pronto quando eu o via" in Portuguese,
  instead of using the estar copula

src/romance/AdjectiveRomance.gf

@@ -3,59 +3,70 @@ incomplete concrete AdjectiveRomance of Adjective =
   flags coding=utf8;
   lin
 
-    PositA  a = {
+    PositA a = {
       s = a.s ! Posit ;
-      isPre = a.isPre
+      isPre = a.isPre ;
+      copTyp = a.copTyp        
       } ;
     ComparA a np = {
       s = \\af => a.s ! Compar ! af ++ conjThan ++ (np.s ! Nom).ton ;
-      isPre = False
+      isPre = False ;
+      copTyp = a.copTyp
       } ;
     CAdvAP ad ap np = {
       s = \\af => ad.s ++ ap.s ! af ++ ad.p ++ (np.s ! Nom).ton ;
-      isPre = False
+      isPre = False ;
+      copTyp = ap.copTyp
       } ;
     UseComparA a = {
       s = \\af => a.s ! Compar ! af ;
-      isPre = a.isPre
+      isPre = a.isPre ;
+      copTyp = a.copTyp
       } ;
     AdjOrd ord = {
       s = \\af => ord.s ! aform2aagr af ; ----
-      isPre = False ----
+      isPre = False ; ----
+      copTyp = serCopula
       } ;
 
 -- $SuperlA$ belongs to determiner syntax in $Noun$.
 
     ComplA2 adj np = {
       s = \\af => adj.s ! Posit ! af ++ appCompl adj.c2 np ;
-      isPre = False
+      isPre = False ;
+      copTyp = serCopula
       } ;
 
     ReflA2 adj = {
       s = \\af =>
              adj.s ! Posit ! af ++
              adj.c2.s ++ prepCase adj.c2.c ++ reflPron Sg P3 Nom ; --- agr
-      isPre = False
+      isPre = False ;
+      copTyp = serCopula
       } ;
 
     SentAP ap sc = {
       s = \\a => ap.s ! a ++ sc.s ! dative ; -- prête à dormir --- mood
-      isPre = False
+      isPre = False ;
+      copTyp = ap.copTyp
       } ;
 
     AdAP ada ap = {
       s = \\a => ada.s ++ ap.s ! a ;
-      isPre = ap.isPre
+      isPre = ap.isPre ;
+      copTyp = ap.copTyp
       } ;
 
     UseA2 a = {
       s = a.s ! Posit ;
-      isPre = False ---- A2 has no isPre
+      isPre = False ; ---- A2 has no isPre
+      copTyp = serCopula ---- A2 has no copTyp (yet)
       } ;
 
     AdvAP ap adv = {
       s = \\a => ap.s ! a ++ adv.s ;
-      isPre = False
+      isPre = False ;
+      copTyp = ap.copTyp
       } ;