From 0da96d0fcec26cf027e7cd77d1119afc399a2624 Mon Sep 17 00:00:00 2001
From: Aarne Ranta <aarne@chalmers.se>
Date: Sat, 4 Apr 2020 12:56:49 +0200
Subject: [PATCH] more paradigms for Cze N and A

---
 src/czech/AdjectiveCze.gf  | 4 ++++
 src/czech/MissingCze.gf    | 1 -
 src/czech/ParadigmsCze.gf  | 3 +++
 src/czech/StructuralCze.gf | 1 +
 src/czech/SymbolCze.gf     | 2 ++
 5 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/src/czech/AdjectiveCze.gf b/src/czech/AdjectiveCze.gf
index 1ec27121..66891f01 100644
--- a/src/czech/AdjectiveCze.gf
+++ b/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} ;
+
 }
diff --git a/src/czech/MissingCze.gf b/src/czech/MissingCze.gf
index eaf4d1e2..d1ae7d3b 100644
--- a/src/czech/MissingCze.gf
+++ b/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" ;
diff --git a/src/czech/ParadigmsCze.gf b/src/czech/ParadigmsCze.gf
index 03fabf07..2f0a7bb0 100644
--- a/src/czech/ParadigmsCze.gf
+++ b/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
 
diff --git a/src/czech/StructuralCze.gf b/src/czech/StructuralCze.gf
index 3995db26..ffe5a10b 100644
--- a/src/czech/StructuralCze.gf
+++ b/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 ; ----
diff --git a/src/czech/SymbolCze.gf b/src/czech/SymbolCze.gf
index 8b7fd596..7cef10b4 100644
--- a/src/czech/SymbolCze.gf
+++ b/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} ;