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

fix some catalan morph

Browse Source
This commit is contained in:
francis.tyers
2014-11-05 17:41:53 +00:00
parent 120597750b
commit ecfcc13169
2 changed files with 16 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lib/src/catalan/MorphoCat.gf
View File

@@ -48,6 +48,12 @@ oper
nomTest : Str -> Number => Str = \test ->
numForms test (variants {test + "s"; test + "os"}) ;
nomLlengua: Str -> Number => Str = \llengua ->
let
lleng = Predef.tk 2 llengua
in
numForms llengua (lleng + "ües") ;
nomFaig : Str -> Number => Str = \faig ->
let
fa = Predef.tk 2 faig
@@ -77,6 +83,7 @@ oper
in
case noi of {
_ + ("ca"|"ga") => mkNoun (nomVaca noi) Fem ;
_ + "gua" => mkNoun (nomLlengua noi) Fem ;
_ + "a" => mkNoun (nomCasa "es" noi) Fem ;
_ + "s"|"x"|"ç" => mkNounMas nomCas ;
_ + "i" => mkNounMas nomFre ;