GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-29 04:46:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Cat) Implement AForm+related opers in DiffCat

Browse Source
This commit is contained in:
Inari Listenmaa
2021-09-17 11:32:36 +08:00
parent b8acdddabd
commit 445c4f5187
2 changed files with 23 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/catalan/MorphoCat.gf
+7 -7
View File
@@ -96,11 +96,11 @@ oper
mkAdjFull : (x1,_,_,_,_,x6 : Str) -> Adj = \bon,bo,prima,prims,primes,primament ->
{s = table {
ASg Masc AAttr => bon ;
ASg Masc APred => bo ;
ASg Fem _ => prima ;
APl Masc => prims ;
APl Fem => primes ;
AAttrMasc => bon ;
AF Masc Sg => bo ;
AF Fem Sg => prima ;
AF Masc Pl => prims ;
AF Fem Pl => primes ;
AA => primament
}
} ;
@@ -121,8 +121,8 @@ oper
let fond = Predef.tk 1 fondo
in adjBlau fondo (fond + "a") ;
adjBo : (bo,bon : Str) -> Adj = \bo,bon ->
mkAdjFull bon bo (bon + "a") (bon + "s") (bon + "es") (bon + "ament") ;
adjBo : (bo,bon,be : Str) -> Adj = \bo,bon,be ->
mkAdjFull bon bo (bon + "a") (bon + "s") (bon + "es") be ;
adjFidel : Str -> Adj = \fidel ->
let fidels : Str = case (last fidel) of {