more paradigms for Cze N and A

src/czech/AdjectiveCze.gf

@@ -16,4 +16,8 @@ concrete AdjectiveCze of Adjective = CatCze ** open ResCze, Prelude in {
 
     UseA2 a = adjFormsAdjective a ** {isPost = False} ;
 
+    UseComparA a = adjFormsAdjective a ** {isPost = False} ; ---- TODO: this gives positive forms 
+
+    AdvAP ap adv = ap ** {s = \\g,n,c => ap.s ! g ! n ! c ++ adv.s} ;
+
 }

src/czech/MissingCze.gf

@@ -79,7 +79,6 @@ oper TCond : Tense = notYet "TCond" ;
 oper TFut : Tense = notYet "TFut" ;
 oper TPast : Tense = notYet "TPast" ;
 oper Use2N3 : N3 -> N2 = notYet "Use2N3" ;
-oper UseComparA : A -> AP = notYet "UseComparA" ;
 oper UseN2 : N2 -> CN = notYet "UseN2" ;
 oper UseSlash : Temp -> Pol -> ClSlash -> SSlash = notYet "UseSlash" ;
 oper UttCard : Card -> Utt = notYet "UttCard" ;

src/czech/ParadigmsCze.gf

@@ -110,6 +110,9 @@ oper
   matcinA : Str -> A
     = \s -> lin A (matcinAdjForms s) ;
 
+  mkA2 : A -> Prep -> A2
+    = \a,p -> lin A2 (a ** {c = p}) ;
+
 -------------------------
 -- Verbs
 

src/czech/StructuralCze.gf

@@ -5,6 +5,7 @@ lin
     and_Conj = mkConj "i" ; 
     by8agent_Prep = mkPrep "od" Gen ; ---- TODO this means "from", there might be no good translation
     few_Det = invarNumeral "málo" ; -- CEG 6.8 --- TODO genitive mála
+    for_Prep = mkPrep "pro" accusative ;
     from_Prep = mkPrep (pre {"s"|"z" => "ze" ; _ => "z"}) Gen ; ---- consonant clusters
     have_V2 = mkV2 haveVerbForms ;
     in_Prep = mkPrep (pre {"v"|"m" => "ve" ; _ => "v"}) Loc ; ----

src/czech/SymbolCze.gf

@@ -2,6 +2,8 @@
 
 concrete SymbolCze of Symbol = CatCze ** open Prelude, ResCze in {
 
+lincat
+  Symb = {s : Str} ;
 lin
   MkSymb s = s ;
   SymbPN s = lin PN {s = \\_ => s.s ; g = Neutr} ;