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

Hrv: first words in Lexicon to test Lang

Browse Source
This commit is contained in:
Aarne Ranta
2022-09-29 10:06:03 +02:00
parent 54713a2987
commit 235fd0570f
2 changed files with 8 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/croatian/ResHrv.gf
+2
View File
@@ -380,6 +380,7 @@ adjFormsAdjective : AdjForms -> Adjective = \afs -> {
vel + "ao" => vel + "l" ;
vel + "ak" => voicing vel + "k" ;
vel + "a" + k@? => vel + k ;
vel + "i" => vel ;
_ => velik
}
in {
@@ -415,6 +416,7 @@ adjFormsAdjective : AdjForms -> Adjective = \afs -> {
smartVerbForms : Str -> VerbForms = \s -> case s of {
cit + "ati" => aeiVerbForms s (cit + "am") (cit + "ao") ;
vid + "jeti" => aeiVerbForms s (vid + "im") (vid + "io") ;
radi + "ti" => aeiVerbForms s (init radi + "em") (radi + "o") ;
_ => Predef.error ("expect infinitive form \"-ti\", found" ++ s)
} ;