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

esto/isto in Spanish/Portuguese

Browse Source
This commit is contained in:
Krasimir Angelov
2023-10-16 16:20:42 +02:00
parent da608c2084
commit 17da1893d7
16 changed files with 168 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/romance/CatRomance.gf
View File

@@ -67,12 +67,14 @@ incomplete concrete CatRomance of Cat = CommonX - [SC,Pol,MU]
n : Number ;
s2 : Str ; -- -ci
sp : Gender => Case => Str ; -- substantival: mien, mienne
spn: Case => Str ;
isNeg : Bool -- negative element, e.g. aucun
} ;
Quant = {
s : Bool => Number => Gender => Case => Str ;
s2 : Str ;
sp : Number => Gender => Case => Str ;
spn: Case => Str ; -- neutral Spa: esto, eso, Por: isto, isso
isNeg : Bool -- negative element, e.g. aucun
} ;
Predet = {

12
src/romance/ExtendRomanceFunctor.gf
View File

@@ -27,6 +27,7 @@ incomplete concrete ExtendRomanceFunctor of Extend =
let denp = (np.s ! ResRomance.genitive).ton in {
s = \\_,_,_,_ => [] ;
sp = \\_,_,_ => denp ;
spn= \\_ => denp ;
s2 = denp ;
isNeg = False ;
} ;
@@ -240,7 +241,16 @@ incomplete concrete ExtendRomanceFunctor of Extend =
} ;
UseDAP, UseDAPMasc = \dap ->
UseDAP = \dap ->
let
g = Masc ;
n = dap.n
in heavyNPpol dap.isNeg {
s = dap.spn ;
a = agrP3 g n ;
hasClit = False
} ;
UseDAPMasc = \dap ->
let
g = Masc ;
n = dap.n

10
src/romance/NounRomance.gf
View File

@@ -55,6 +55,8 @@ incomplete concrete NounRomance of Noun =
DetQuantOrd quant num ord = {
s,sp = \\g,c => quant.s ! num.isNum ! num.n ! g ! c ++ num.s ! g ++
ord.s ! aagr g num.n ;
spn = \\c => quant.s ! num.isNum ! num.n ! Masc ! c ++ num.s ! Masc ++
ord.s ! aagr Masc num.n ;
s2 = quant.s2 ;
n = num.n ;
isNeg = quant.isNeg
@@ -66,6 +68,10 @@ incomplete concrete NounRomance of Noun =
True => quant.s ! True ! num.n ! g ! c ++ num.s ! g ;
False => quant.sp ! num.n ! g ! c ++ num.s ! g
} ;
spn= \\c => case num.isNum of {
True => quant.s ! True ! num.n ! Masc ! c ++ num.s ! Masc ;
False => quant.spn ! c ++ num.s ! Masc
} ;
s2 = quant.s2 ;
n = num.n ;
isNeg = quant.isNeg
@@ -84,6 +90,7 @@ incomplete concrete NounRomance of Noun =
PossPron p = {
s = \\_,n,g,c => possCase g n c ++ p.poss ! n ! g ; ---- il mio!
sp = \\ n,g,c => possCase g n c ++ p.poss ! n ! g ; ---- not for Fre
spn= \\ c => possCase Masc Sg c ++ p.poss ! Sg ! Masc ; ---- not for Fre
s2 = [] ;
isNeg = False
} ;
@@ -117,6 +124,7 @@ incomplete concrete NounRomance of Noun =
DefArt = {
s = \\_,n,g,c => artDef False g n c ;
sp = \\n,g,c => artDef True g n c ;
spn= \\c => artDef True Masc Sg c ;
s2 = [] ;
isNeg = False
} ;
@@ -124,6 +132,7 @@ incomplete concrete NounRomance of Noun =
IndefArt = {
s = \\b,n,g,c => if_then_Str b (prepCase c) (artIndef False g n c) ;
sp = \\n,g,c => artIndef True g n c ;
spn= \\c => artIndef True Masc Sg c ;
s2 = [] ;
isNeg = False
} ;
@@ -202,6 +211,7 @@ incomplete concrete NounRomance of Noun =
n = det.n ;
s2 = det.s2 ; -- -ci
sp = \\g,c => det.s ! g ! c ++ ap.s ! genNum2Aform g det.n ;
spn= \\c => det.s ! Masc ! c ++ ap.s ! genNum2Aform Masc det.n ;
isNeg = det.isNeg
} ;