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

Merge pull request #325 from bulbulistan/master

Browse Source 
Corrections to ResSlo.gf, mostly pronouns and numerals.
This commit is contained in:
Aarne Ranta
2020-05-05 10:19:32 +02:00
committed by GitHub
parent 2cc2bc22c6 01efa368c3
commit aa1b97a1b4
2 changed files with 27 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Setup.bat
View File

@@ -7,7 +7,8 @@ REM ---
REM Modules to compile for each language
REM TODO read from languages.csv
set langs=Afr Amh Ara Eus Bul Cat Chi Dan Dut Eng Est Fin Fre Grc Gre Heb Hin Ger Ice Ina Ita Jpn Lat Lav Mlt Mon Nep Nor Nno Pes Pol Por Pnb Ron Rus Snd Spa Swe Tha Tur Urd
set langs=Slo
REM set langs=Afr Amh Ara Eus Bul Cat Chi Dan Dut Eng Est Fin Fre Grc Gre Heb Hin Ger Ice Ina Ita Jpn Lat Lav Mlt Mon Nep Nor Nno Pes Pol Por Pnb Ron Rus Snd Spa Swe Tha Tur Urd
set modules_langs=All Symbol Compatibility
set modules_api=Try Symbolic

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" ;
@@ -844,7 +853,7 @@ oper
} ;
mkDemPronForms : Str -> DemPronForms = \jedn -> {
msnom = jedn + "y" ;
msnom = jedn + "y" ; -- should be "jeden"
fsnom = jedn + "a" ;
nsnom = jedn + "o" ;
msgen = jedn + "ého" ;
@@ -855,7 +864,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" ;
@@ -887,7 +896,7 @@ oper
-- interrogatives
kdoForms : Case => Str = table {
ktoForms : Case => Str = table {
Nom => "kto" ;
Gen | Acc => "koho" ;
Dat => "komu" ;
@@ -898,7 +907,7 @@ oper
coForms : Case => Str = table {
Nom|Acc => "čo" ;
Gen => "čoho" ;
Dat => "čemu" ;
Dat => "čomu" ;
Loc => "čom" ;
Ins => "čím"
} ;
@@ -958,12 +967,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 ;