1
0
forked from GitHub/gf-rgl

Corrections to ResSlo.gf, mostly pronouns and numerals.

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

View File

@@ -7,7 +7,8 @@ REM ---
REM Modules to compile for each language REM Modules to compile for each language
REM TODO read from languages.csv 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_langs=All Symbol Compatibility
set modules_api=Try Symbolic set modules_api=Try Symbolic

View File

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