GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 17:08:54 -06:00
Code Issues Packages Projects Releases Wiki 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 ** { ComparA a np = a ** {
s = \\af => s = \\af =>
let compar : Str = case a.isDeg of { 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 False => piuComp ++ a.s ! af } ; -- cher, plus cher
in compar ++ conjThan ++ (np.s ! Nom).ton ; in compar ++ conjThan ++ (np.s ! Nom).ton ;
isPre = False ; isPre = False ;
@@ -18,7 +18,7 @@ incomplete concrete AdjectiveRomance of Adjective =
} ; } ;
UseComparA a = a ** { UseComparA a = a ** {
s = \\af => case a.isDeg of { s = \\af => case a.isDeg of {
True => a.compar ! af2num af ; True => a.compar ! af2compar af ;
False => piuComp ++ a.s ! af } False => piuComp ++ a.s ! af }
} ; } ;
AdjOrd ord = { 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} ; V3, V2A, V2V = Verb ** {c2,c3 : Compl} ;
VS = Verb ** {m : RPolarity => Mood} ; VS = Verb ** {m : RPolarity => Mood} ;
A = {s : AForm => Str ; compar : Number => Str ; isPre : Bool ; copTyp : CopulaType ; isDeg : Bool} ; A = {s : AForm => Str ; compar : ComparAgr => Str ; isPre : Bool ; copTyp : CopulaType ; isDeg : Bool} ;
A2 = {s : AForm => Str ; compar : Number => Str ; c2 : Compl ; copTyp : CopulaType ; isDeg : Bool} ; A2 = {s : AForm => Str ; compar : ComparAgr => Str ; c2 : Compl ; copTyp : CopulaType ; isDeg : Bool} ;
N = Noun ; N = Noun ;
N2 = Noun ** {c2 : Compl} ; 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 serCopula : CopulaType ;
oper estarCopula : 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 -- To decide if adverbial questions are inverted
oper iAdvQuestionInv : Direct = DInv ; -- except Fre oper iAdvQuestionInv : Direct = DInv ; -- except Fre

2
src/romance/NounRomance.gf
View File

@@ -103,7 +103,7 @@ incomplete concrete NounRomance of Noun =
OrdSuperl adj = { OrdSuperl adj = {
s = \\a => case adj.isDeg of { 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 } False => piuComp ++ adj.s ! genNum2Aform a.g a.n }
} ; } ;