GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-24 10:22:50 -06:00
Code Issues Packages Projects Releases Wiki 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 46bbbbf9b7
commit daa01f11d8
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

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