diff --git a/src/czech/ResCze.gf b/src/czech/ResCze.gf index 632b0baa..29f409d0 100644 --- a/src/czech/ResCze.gf +++ b/src/czech/ResCze.gf @@ -740,6 +740,24 @@ oper mpnom, fpnom, pgen, pdat, pins = s ; } ; +-- interrogatives + + kdoForms : Case => Str = table { + Nom => "kdo" ; + Gen | Acc | Voc => "koho" ; + Dat => "komu" ; + Loc => "kom" ; + Ins => "kým" + } ; + + coForms : Case => Str = table { + Nom|Acc|Voc => "co" ; + Gen => "čeho" ; + Dat => "čemu" ; + Loc => "čem" ; + Ins => "čím" + } ; + -- Numerals -- singular forms of demonstratives diff --git a/src/czech/StructuralCze.gf b/src/czech/StructuralCze.gf index 60a5c4ce..3995db26 100644 --- a/src/czech/StructuralCze.gf +++ b/src/czech/StructuralCze.gf @@ -3,15 +3,15 @@ concrete StructuralCze of Structural = CatCze ** lin and_Conj = mkConj "i" ; ----- by8agent_Prep : Prep ----- few_Det : Det + 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 from_Prep = mkPrep (pre {"s"|"z" => "ze" ; _ => "z"}) Gen ; ---- consonant clusters have_V2 = mkV2 haveVerbForms ; in_Prep = mkPrep (pre {"v"|"m" => "ve" ; _ => "v"}) Loc ; ---- ----- many_Det : Det + many_Det = regNumeral "mnoho" "mnoha" ; -- CEG 6.8 ---- or_Conj = mkConj "nebo" ; ----- somePl_Det : Det ----- something_NP : NP + somePl_Det = regNumeral "několik" "několika" ; -- CEG 6.8 ---- + something_NP = {s,clit,prep = \\c => "ně" ++ coForms ! c ; a = Ag Neutr Sg P3 ; hasClit = False} ; -- CEG 5.6.3 possess_Prep = mkPrep "" Gen ; that_Quant = demPronFormsAdjective (mkDemPronForms "tamt") "" ; this_Quant = demPronFormsAdjective (mkDemPronForms "t") "to" ;