invarA in Cze and Slo

src/czech/ParadigmsCze.gf

@@ -92,13 +92,7 @@ oper
 
   mkA = overload {
     mkA : Str -> A
-      = \s -> lin A (case s of {
-        _ + "ý"  => mladyAdjForms s ;
-        _ + "í"  => jarniAdjForms s ;
-        _ + "ův" => otcuvAdjForms s ;
-        _ + "in" => matcinAdjForms s ;
-        _ => matcinAdjForms ("??" + s) -- Predef.error ("no mkA for" ++ s)
-        }) ;
+      = \s -> lin A (guessAdjForms s) ;
     } ;
 
   mladyA : Str -> A
@@ -110,6 +104,9 @@ oper
   matcinA : Str -> A
     = \s -> lin A (matcinAdjForms s) ;
 
+  invarA : Str -> A
+    = \s -> lin A (invarAdjForms s) ;
+
   mkA2 : A -> Prep -> A2
     = \a,p -> lin A2 (a ** {c = p}) ;
 

src/czech/ResCze.gf

@@ -441,6 +441,11 @@ oper
     pins : Str ;
     } ;
 
+invarAdjForms : Str -> AdjForms = \s -> {
+    msnom, fsnom, nsnom, msgen, fsgen, msdat, fsdat, fsacc,
+    msloc, msins, fsins, mpnom, fpnom, pgen, pins = s ;
+    } ;
+
 -- used in PositA but will also work in Compar and Superl by calling their record fields
 
 adjFormsAdjective : AdjForms -> Adjective = \afs -> {
@@ -477,6 +482,14 @@ adjFormsAdjective : AdjForms -> Adjective = \afs -> {
 
     } ;
 
+  guessAdjForms : Str -> AdjForms = \s -> case s of {
+        _ + "ý"  => mladyAdjForms s ;
+        _ + "í"  => jarniAdjForms s ;
+        _ + "ův" => otcuvAdjForms s ;
+        _ + "in" => matcinAdjForms s ;
+        _ => matcinAdjForms ("??" + s) -- Predef.error ("no mkA for" ++ s)
+        } ;
+
 -- hard declension
 
   mladyAdjForms : Str -> AdjForms = \mlady ->

src/slovak/ParadigmsSlo.gf

@@ -108,6 +108,8 @@ oper
   paviA  : Str -> A
     = \s -> lin A (R.paviA s) ;
 
+  invarA : Str -> A
+    = \s -> lin A (invarAdjForms s) ;
 
   mkA2 : A -> Prep -> A2
     = \a,p -> lin A2 (a ** {c = p}) ;

src/slovak/ResSlo.gf

@@ -477,6 +477,11 @@ palatal : Str -> Str = \s -> case s of {
     pins : Str ;
     } ;
 
+invarAdjForms : Str -> AdjForms = \s -> {
+    msnom, fsnom, nsnom, msgen, fsgen, msdat, fsacc,
+    msloc, msins, fsins, ampnom, pgen, pins = s ;
+    } ;
+
 -- used in PositA but will also work in Compar and Superl by calling their record fields
 
 adjFormsAdjective : AdjForms -> Adjective = \afs -> {