diff --git a/src/slovak/AdjectiveSlo.gf b/src/slovak/AdjectiveSlo.gf index 623faa7e6..14802dd6b 100644 --- a/src/slovak/AdjectiveSlo.gf +++ b/src/slovak/AdjectiveSlo.gf @@ -18,6 +18,6 @@ concrete AdjectiveSlo of Adjective = CatSlo ** open ResSlo, Prelude in { 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} ; + AdvAP ap adv = ap ** {s = \\g,n,c => ap.s ! g ! n ! c ++ adv.s ; isPost = True} ; } diff --git a/src/slovak/NounSlo.gf b/src/slovak/NounSlo.gf index d888c4ce1..cc8ba08cd 100644 --- a/src/slovak/NounSlo.gf +++ b/src/slovak/NounSlo.gf @@ -63,7 +63,7 @@ lin } ; AdjCN ap cn = { - s = \\n,c => ap.s ! cn.g ! n ! c ++ cn.s ! n ! c ; + s = \\n,c => preOrPost (notB ap.isPost) (ap.s ! cn.g ! n ! c) (cn.s ! n ! c) ; g = cn.g } ; diff --git a/src/slovak/StructuralSlo.gf b/src/slovak/StructuralSlo.gf index f311aec45..9d7682599 100644 --- a/src/slovak/StructuralSlo.gf +++ b/src/slovak/StructuralSlo.gf @@ -11,11 +11,12 @@ lin in_Prep = mkPrep (pre {"v" => "vo" ; _ => "v"}) Loc ; ---- many_Det = regNumeral "mnoho" "mnohých" "mnohým" "mnohými" ; ---- alternative: invarNumeral "veľa" ; or_Conj = mkConj "alebo" ; - somePl_Det = {s = \\g,c => (demPronFormsAdjective (mkDemPronForms "niektor") "").s ! g ! Pl ! c ; size = Num5} ; + somePl_Det = invarDeterminer "niekoľko" Num5 ; +--- somePl_Det = {s = \\g,c => (demPronFormsAdjective (mkDemPronForms "niekoľko") "").s ! g ! Pl ! c ; size = Num5} ; something_NP = {s,clit,prep = \\c => "nie" + coForms ! c ; a = Ag Neutr Sg P3 ; hasClit = False} ; -- CEG 5.6.3 possess_Prep = mkPrep "" Gen ; that_Quant = demPronFormsAdjective (tenDemPronForms "tam") "" ; - this_Quant = demPronFormsAdjective (tenDemPronForms "" ** {msgen = "toh"}) "to" ; + this_Quant = demPronFormsAdjective (tenDemPronForms "" ** {msgen = "toho"}) "" ; to_Prep = mkPrep "do" Gen ; with_Prep = mkPrep (pre {"s" => "so" ; _ => "s"}) Ins ;