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

17
src/romance/AdjectiveRomance.gf
View File

@@ -3,25 +3,24 @@ incomplete concrete AdjectiveRomance of Adjective =
flags coding=utf8; flags coding=utf8;
lin lin
PositA a = { PositA a = a ** {
s = a.s ! Posit ; s = a.s ! Posit ;
isPre = a.isPre ;
copTyp = a.copTyp
} ; } ;
ComparA a np = { ComparA a np = a ** {
s = \\af => a.s ! Compar ! af ++ conjThan ++ (np.s ! Nom).ton ; 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 ; isPre = False ;
copTyp = a.copTyp
} ; } ;
CAdvAP ad ap np = { CAdvAP ad ap np = {
s = \\af => ad.s ++ ap.s ! af ++ ad.p ++ (np.s ! Nom).ton ; s = \\af => ad.s ++ ap.s ! af ++ ad.p ++ (np.s ! Nom).ton ;
isPre = False ; isPre = False ;
copTyp = ap.copTyp copTyp = ap.copTyp
} ; } ;
UseComparA a = { UseComparA a = a ** {
s = \\af => a.s ! Compar ! af ; s = \\af => a.s ! Compar ! af ;
isPre = a.isPre ;
copTyp = a.copTyp
} ; } ;
AdjOrd ord = { AdjOrd ord = {
s = \\af => ord.s ! aform2aagr af ; ---- s = \\af => ord.s ! aform2aagr af ; ----

4
src/romance/CatRomance.gf
View File

@@ -104,8 +104,8 @@ incomplete concrete CatRomance of Cat = CommonX - [SC,Pol]
V3, V2A, V2V = Verb ** {c2,c3 : Compl} ; V3, V2A, V2V = Verb ** {c2,c3 : Compl} ;
VS = Verb ** {m : RPolarity => Mood} ; VS = Verb ** {m : RPolarity => Mood} ;
A = {s : Degree => AForm => Str ; isPre : Bool ; copTyp : CopulaType} ; A = {s : Degree => AForm => Str ; isPre : Bool ; copTyp : CopulaType ; isDeg : Bool} ;
A2 = {s : Degree => AForm => Str ; c2 : Compl ; copTyp : CopulaType} ; A2 = {s : Degree => AForm => Str ; c2 : Compl ; copTyp : CopulaType ; isDeg : Bool} ;
N = Noun ; N = Noun ;
N2 = Noun ** {c2 : Compl} ; N2 = Noun ** {c2 : Compl} ;

2
src/romance/DiffRomance.gf
View File

@@ -100,6 +100,8 @@ interface DiffRomance = open CommonRomance, Prelude in {
subjIf : Str ; subjIf : Str ;
piuComp : Str ; -- to form comparative and superlative: plus cher, más grande, …
relPron : Bool => AAgr => Case => Str ; relPron : Bool => AAgr => Case => Str ;
pronSuch : AAgr => Str ; pronSuch : AAgr => Str ;