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

Added a case for regular adj in Cat

Browse Source
This commit is contained in:
jordi.saludes
2010-05-29 15:31:28 +00:00
parent 94a8938482
commit edbf5d0bd2
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/catalan/MorphoCat.gf
View File

@@ -118,9 +118,10 @@ oper
mkAdj fidel fidel fidels fidels (fidel + "ment") ;
mkAdjReg : Str -> Adj = \prim ->
case last prim of {
"e"|"u"|"o" => adjFondo prim ;
"l"|"r" => adjFidel prim ;
case prim of {
_ + "e" + ("r"|"l") => adjPrim prim ;
_ + ("r"|"l") => adjFidel prim ;
_ + ("e"|"u"|"o") => adjFondo prim ;
_ => adjPrim prim
} ;