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

Merge pull request #313 from michmech/master

Browse Source 
improvements to czech, mostly morphological
This commit is contained in:
Inari Listenmaa
2020-04-16 20:17:38 +02:00
committed by GitHub
parent 8f447a8bea d2ad4d6105
commit a15e535042
2 changed files with 49 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/czech/ResCze.gf
View File

@@ -36,7 +36,7 @@ oper
) ; ) ;
dropFleetingE : Str -> Str = \s -> case s of { dropFleetingE : Str -> Str = \s -> case s of {
x + "e" + c@("k"|"c") => x + c ; x + "e" + c@("k"|"c"|"n") => x + c ;
x + "e" + "ň" => x + "n" ; x + "e" + "ň" => x + "n" ;
_ => s _ => s
} ; } ;
@@ -85,7 +85,7 @@ oper
shortFemPlGen : Str -> Str = \s -> case s of { shortFemPlGen : Str -> Str = \s -> case s of {
ul + "ice" => ul + "ic" ; ul + "ice" => ul + "ic" ;
koleg + "yně" => koleg + "yň" ; koleg + "yně" => koleg + "yň" ;
ruz + "e" => ruz + "i" ; ruz + "e" => ruz + "í" ;
_ => Predef.error ("shortFemPlGen does not apply to" ++ s) _ => Predef.error ("shortFemPlGen does not apply to" ++ s)
} ; } ;
@@ -284,7 +284,7 @@ oper
sins = muz + "em" ; sins = muz + "em" ;
pnom = case muz_ of { pnom = case muz_ of {
uci + "tel" => uci + "tele" ; uci + "tel" => uci + "telé" ;
_ => muz + "i" --- muzové _ => muz + "i" --- muzové
} ; } ;
pgen = muz + "ů" ; pgen = muz + "ů" ;
@@ -332,7 +332,8 @@ oper
in in
{ {
snom,sgen,svoc = ruze ; --- pnom,pacc snom,sgen,svoc = ruze ; --- pnom,pacc
sdat,sacc,sloc,sins = ruz + "i" ; sdat,sacc,sloc = ruz + "i" ;
sins = ruz + "í" ;
pnom,pacc = ruze ; pnom,pacc = ruze ;
pgen = shortFemPlGen ruze ; pgen = shortFemPlGen ruze ;
@@ -810,7 +811,7 @@ oper
} ; } ;
-- example: number 1 -- example: number 1
oneNumeral : Determiner = numeralFormsDeterminer (mkDemPronForms "jed") Num1 ; oneNumeral : Determiner = numeralFormsDeterminer ((mkDemPronForms "jedn") ** {msnom = "jeden"}) Num1 ;
-- numbers 2,3,4 ---- to check if everything comes out right with the determiner type -- numbers 2,3,4 ---- to check if everything comes out right with the determiner type
twoNumeral : Determiner = twoNumeral : Determiner =

2
src/czech/StructuralCze.gf
View File

@@ -2,7 +2,7 @@ concrete StructuralCze of Structural = CatCze **
open ParadigmsCze, ResCze, Prelude in { open ParadigmsCze, ResCze, Prelude in {
lin lin
and_Conj = mkConj "i" ; and_Conj = mkConj "a" ;
by8agent_Prep = mkPrep "od" Gen ; ---- TODO this means "from", there might be no good translation by8agent_Prep = mkPrep "od" Gen ; ---- TODO this means "from", there might be no good translation
few_Det = invarNumeral "málo" ; -- CEG 6.8 --- TODO genitive mála few_Det = invarNumeral "málo" ; -- CEG 6.8 --- TODO genitive mála
for_Prep = mkPrep "pro" accusative ; for_Prep = mkPrep "pro" accusative ;