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

(Romance) WIP: remove comparative más,più from A

Browse Source
This commit is contained in:
Inari Listenmaa
2021-09-13 10:49:41 +08:00
parent 93945265b8
commit 3d703856a6
3 changed files with 16 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/romance/AdjectiveRomance.gf
+8 -9
View File
@@ -3,25 +3,24 @@ incomplete concrete AdjectiveRomance of Adjective =
flags coding=utf8;
lin
PositA a = {
PositA a = a ** {
s = a.s ! Posit ;
isPre = a.isPre ;
copTyp = a.copTyp
} ;
ComparA a np = {
s = \\af => a.s ! Compar ! af ++ conjThan ++ (np.s ! Nom).ton ;
ComparA a np = a ** {
s = \\af =>
let compar : Str = case a.isDeg of {
True => a.s ! Compar ! af ; -- bueno, mejor
False => piuComp ++ a.s ! Posit ! af } ; -- cher, plus cher
in compar ++ conjThan ++ (np.s ! Nom).ton ;
isPre = False ;
copTyp = a.copTyp
} ;
CAdvAP ad ap np = {
s = \\af => ad.s ++ ap.s ! af ++ ad.p ++ (np.s ! Nom).ton ;
isPre = False ;
copTyp = ap.copTyp
} ;
UseComparA a = {
UseComparA a = a ** {
s = \\af => a.s ! Compar ! af ;
isPre = a.isPre ;
copTyp = a.copTyp
} ;
AdjOrd ord = {
s = \\af => ord.s ! aform2aagr af ; ----