GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -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

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

@@ -118,10 +118,11 @@ 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 ;
_ => adjPrim prim
case prim of {
_ + "e" + ("r"|"l") => adjPrim prim ;
_ + ("r"|"l") => adjFidel prim ;
_ + ("e"|"u"|"o") => adjFondo prim ;
_ => adjPrim prim
} ;