(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/portuguese/ExtendPor.gf

@@ -142,7 +142,8 @@ concrete ExtendPor of Extend =
   lin
     PresPartAP vp = {
       s = \\af => gerVP vp (aform2aagr af ** {p = P3}) ;
-      isPre = False
+      isPre = False ;
+      copTyp = serCopula
       } ;
 
     PastPartAP vps = pastPartAP vps [] ;
@@ -178,7 +179,8 @@ concrete ExtendPor of Extend =
     pastPartAP : VPSlash -> Str -> AP ;
     pastPartAP vps agent = lin AP {
       s = \\af => vps.comp ! (aform2aagr af ** {p = P3}) ++ vps.s.s ! VPart (aform2gender af) (aform2number af) ++ agent ;
-      isPre = False
+      isPre = False ;
+      copTyp = serCopula
       } ;
 
     passVPSlash : VPSlash -> Str -> VP ;
@@ -203,7 +205,8 @@ concrete ExtendPor of Extend =
       s = \\af => case (aform2aagr af) of {
         {n = n} => adj.s ! Posit ! (genNum2Aform noun.g n) ++ "de" ++ noun.s ! n
         } ;
-      isPre = adj.isPre
+      isPre = adj.isPre ;
+      copTyp = adj.copTyp
       } ;
 
     GerundCN vp = {