msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

Corrections to ResSlo.gf, mostly pronouns and numerals.

Browse Source
This commit is contained in:
bulbul
2020-05-04 18:17:20 +02:00
parent e906743c6f
commit 01efa368c3
2 changed files with 27 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
src/slovak/ResSlo.gf
View File

@@ -739,10 +739,15 @@ adjFormsAdjective : AdjForms -> Adjective = \afs -> {
} ;
Ag (Masc _) Sg P3 => {
nom = "on" ;
gen,acc = "jeho" ; ---- + other forms
gen,acc = "jeho" ;
cgen,cacc = "ho" ;
pgen,pacc = "neho" ; ---- + other forms
pgen,pacc = "neho" ;
---- pgen = "ňho"; ---- bind, only with prepositions "do", "u"
---- pgen = "ň"; ---- bind, only with preposition "do", "u"
dat = "jemu" ;
---- pacc = "eň" ; ---- bind, only with preposition "cez"
---- pacc = "ňho" ; ---- bind, only with prepositions "na", "pre", "za"
---- pacc = "ň" ; ---- bind, only with preposition "na", "pre", "za"
cdat = "mu" ;
pdat = "nemu" ;
loc = "ňom" ;
@@ -757,12 +762,16 @@ adjFormsAdjective : AdjForms -> Adjective = \afs -> {
} ;
Ag Neutr Sg P3 => {
nom = "ono" ;
gen = "jeho" ;
gen, acc = "jeho" ;
cgen,cacc = "ho" ;
pgen = "neho" ;
dat = "jemu" ;
acc = "je" ;
pacc = "eň" ; ---- bind?
---- pgen = "ňho"; ---- bind, only with prepositions "do", "u"
---- pgen = "ň"; ---- bind, only with preposition "do", "u"
dat = "jemu" ;
---- pacc = "eň" ; ---- bind, only with preposition "cez"
---- pacc = "ňho" ; ---- bind, only with prepositions "na", "pre", "za"
---- pacc = "ň" ; ---- bind, only with preposition "na", "pre", "za"
pacc = "jeho"; ---- doublecheck
cdat = "mu" ;
pdat = "nemu" ;
loc = "ňom" ;
@@ -843,7 +852,7 @@ oper
} ;
mkDemPronForms : Str -> DemPronForms = \jedn -> {
msnom = jedn + "y" ;
msnom = jedn + "y" ; -- should be "jeden"
fsnom = jedn + "a" ;
nsnom = jedn + "o" ;
msgen = jedn + "ého" ;
@@ -854,7 +863,7 @@ oper
msins = jedn + "ým" ;
fsins = jedn + "ou" ;
ampnom = jedn + "i" ;
fpnom = jedn + "é" ; ---- ?
fpnom = jedn + "y" ;
pgen = jedn + "ých" ;
pdat = jedn + "ým" ;
pins = jedn + "ými" ;
@@ -886,7 +895,7 @@ oper
-- interrogatives
kdoForms : Case => Str = table {
ktoForms : Case => Str = table {
Nom => "kto" ;
Gen | Acc => "koho" ;
Dat => "komu" ;
@@ -897,7 +906,7 @@ oper
coForms : Case => Str = table {
Nom|Acc => "čo" ;
Gen => "čoho" ;
Dat => "čemu" ;
Dat => "čomu" ;
Loc => "čom" ;
Ins => "čím"
} ;
@@ -957,12 +966,12 @@ oper
fourNumeral : Determiner =
let forms = {
---- amsnom = "štiraja" ;
msnom, fsnom, nsnom, fsacc = "štiri" ; ---- amsacc = "štiroch"
msgen, fsgen = "štiroch" ;
msdat = "štirom" ;
msloc = "štiroch" ;
msins,fsins = "štiromi" ;
---- amsnom = "štyria" ;
msnom, fsnom, nsnom, fsacc = "štyri" ; ---- amsacc = "štyroch"
msgen, fsgen = "štyroch" ;
msdat = "štyrom" ;
msloc = "štyroch" ;
msins,fsins = "štyrmi" ;
}
in numeralFormsDeterminer forms Num2_4 ;