GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 01:18:57 -06:00
Code Issues Packages Projects Releases Wiki Activity

Slavomír Čéplö's fixes in Slovak

Browse Source
This commit is contained in:
Aarne Ranta
2020-04-30 12:07:21 +02:00
parent 8080b43965
commit f19fc9c3ed
3 changed files with 28 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/slovak/ParadigmsSlo.gf
View File

@@ -105,6 +105,8 @@ oper
= \s -> lin A (R.rydziA s) ; = \s -> lin A (R.rydziA s) ;
otcovA : Str -> A otcovA : Str -> A
= \s -> lin A (R.otcovA s) ; = \s -> lin A (R.otcovA s) ;
paviA : Str -> A
= \s -> lin A (R.paviA s) ;
mkA2 : A -> Prep -> A2 mkA2 : A -> Prep -> A2

17
src/slovak/ResSlo.gf
View File

@@ -593,6 +593,23 @@ adjFormsAdjective : AdjForms -> Adjective = \afs -> {
pins = otcov + "ými" ; pins = otcov + "ými" ;
} ; } ;
paviA : Str -> AdjForms = \pavi ->
let pav = init pavi in {
msnom = pav + "í" ;
fsnom = pav + "ia" ;
nsnom = pav + "ie" ;
msgen = pav + "ieho" ;
fsgen = pav + "ej" ;
msdat = pav + "iemu" ;
fsacc = pav + "iu" ;
msloc = pav + "om" ;
msins = pav + "ím" ;
fsins = pav + "ou" ;
ampnom = pav + "í" ; ----
pgen = pav + "ich" ; ----
pins = pav + "imi" ; ----
} ;
--------------------- ---------------------
-- Verbs -- Verbs
-- https://en.wikipedia.org/wiki/Slovak_language#Verbs -- https://en.wikipedia.org/wiki/Slovak_language#Verbs

18
src/slovak/StructuralSlo.gf
View File

@@ -3,21 +3,21 @@ concrete StructuralSlo of Structural = CatSlo **
lin lin
and_Conj = mkConj "a" ; and_Conj = mkConj "a" ;
by8agent_Prep = mkPrep "od" Gen ; ---- TODO this means "from", there might be no good translation by8agent_Prep = mkPrep "" Ins ;
few_Det = invarNumeral "málo" ; ----- few_Det = invarNumeral "málo" ; -- see notes
for_Prep = mkPrep "pro" accusative ; for_Prep = mkPrep "pre" accusative ;
from_Prep = mkPrep (pre {"s"|"z" => "zo" ; _ => "z"}) Gen ; ---- consonant clusters from_Prep = mkPrep (pre {"z" => "zo" ; _ => "z"}) Gen ; ---- consonant clusters and syllable with the onset with the same place of articulation
have_V2 = mkV2 haveVerbForms ; have_V2 = mkV2 haveVerbForms ;
in_Prep = mkPrep (pre {"v"|"m" => "vo" ; _ => "v"}) Loc ; ---- in_Prep = mkPrep (pre {"v" => "vo" ; _ => "v"}) Loc ; ----
many_Det = regNumeral "mnoho" "mnohých" "mnohým" "mnohými" ; -- CEG 6.8 ---- many_Det = regNumeral "mnoho" "mnohých" "mnohým" "mnohými" ; ---- alternative: invarNumeral "veľa" ;
or_Conj = mkConj "alebo" ; or_Conj = mkConj "alebo" ;
somePl_Det = {s = \\g,c => (demPronFormsAdjective (mkDemPronForms "nektor") "").s ! g ! Pl ! c ; size = Num5} ; somePl_Det = {s = \\g,c => (demPronFormsAdjective (mkDemPronForms "niektor") "").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 something_NP = {s,clit,prep = \\c => "nie" + coForms ! c ; a = Ag Neutr Sg P3 ; hasClit = False} ; -- CEG 5.6.3
possess_Prep = mkPrep "" Gen ; possess_Prep = mkPrep "" Gen ;
that_Quant = demPronFormsAdjective (mkDemPronForms "tamt") "" ; that_Quant = demPronFormsAdjective (mkDemPronForms "tamt") "" ;
this_Quant = demPronFormsAdjective (mkDemPronForms "t") "to" ; this_Quant = demPronFormsAdjective (mkDemPronForms "ten") "to" ;
to_Prep = mkPrep "do" Gen ; to_Prep = mkPrep "do" Gen ;
with_Prep = mkPrep (pre {"s"|"z" => "so" ; _ => "s"}) Ins ; ---- with_Prep = mkPrep (pre {"s" => "so" ; _ => "s"}) Ins ;
i_Pron = personalPron (Ag (Masc Anim) Sg P1) ; i_Pron = personalPron (Ag (Masc Anim) Sg P1) ;
youSg_Pron = personalPron (Ag (Masc Anim) Sg P2) ; youSg_Pron = personalPron (Ag (Masc Anim) Sg P2) ;