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

(Romance) different ComparAgr for French

Browse Source
This commit is contained in:
Inari Listenmaa
2021-09-14 17:36:52 +08:00
parent 9620c738c5
commit b696b9e932
4 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/romance/AdjectiveRomance.gf
View File

@@ -7,7 +7,7 @@ incomplete concrete AdjectiveRomance of Adjective =
ComparA a np = a ** {
s = \\af =>
let compar : Str = case a.isDeg of {
True => a.compar ! af2num af ; -- bueno, mejor
True => a.compar ! af2compar af ; -- bueno, mejor
False => piuComp ++ a.s ! af } ; -- cher, plus cher
in compar ++ conjThan ++ (np.s ! Nom).ton ;
isPre = False ;
@@ -18,7 +18,7 @@ incomplete concrete AdjectiveRomance of Adjective =
} ;
UseComparA a = a ** {
s = \\af => case a.isDeg of {
True => a.compar ! af2num af ;
True => a.compar ! af2compar af ;
False => piuComp ++ a.s ! af }
} ;
AdjOrd ord = {

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} ;
VS = Verb ** {m : RPolarity => Mood} ;
A = {s : AForm => Str ; compar : Number => Str ; isPre : Bool ; copTyp : CopulaType ; isDeg : Bool} ;
A2 = {s : AForm => Str ; compar : Number => Str ; c2 : Compl ; copTyp : CopulaType ; isDeg : Bool} ;
A = {s : AForm => Str ; compar : ComparAgr => Str ; isPre : Bool ; copTyp : CopulaType ; isDeg : Bool} ;
A2 = {s : AForm => Str ; compar : ComparAgr => Str ; c2 : Compl ; copTyp : CopulaType ; isDeg : Bool} ;
N = Noun ;
N2 = Noun ** {c2 : Compl} ;

6
src/romance/DiffRomance.gf
View File

@@ -59,6 +59,12 @@ interface DiffRomance = open CommonRomance, Prelude in {
oper serCopula : CopulaType ;
oper estarCopula : CopulaType ;
-- Whether comparatives and superlatives inflect in only number, or also in gender: el/la mejor, but le meilleur, la meilleure
oper ComparAgr : PType = Number ; -- except Fre, where it's Number and Gender
oper af2compar : AForm -> ComparAgr = af2num ; -- except Fre
oper aagr2compar : AAgr -> ComparAgr = \a -> a.n ; -- except Fre
-- To decide if adverbial questions are inverted
oper iAdvQuestionInv : Direct = DInv ; -- except Fre

2
src/romance/NounRomance.gf
View File

@@ -103,7 +103,7 @@ incomplete concrete NounRomance of Noun =
OrdSuperl adj = {
s = \\a => case adj.isDeg of {
True => adj.compar ! a.n ;
True => adj.compar ! aagr2compar a ;
False => piuComp ++ adj.s ! genNum2Aform a.g a.n }
} ;