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

added PlSurname

Browse Source
This commit is contained in:
Krasimir Angelov
2023-03-30 14:56:05 +02:00
parent 1c0a4f98ed
commit 95e7996a2d
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/spanish/ExtendSpa.gf
View File

@@ -106,7 +106,7 @@ concrete ExtendSpa of Extend = CatSpa ** ExtendRomanceFunctor -
lin UseComp_estar comp = insertComplement comp.s (predV I.estar_V) ;
UseComp_ser comp = insertComplement comp.s (predV copula) ;
lin GivenName, MaleSurname, FemaleSurname = \n -> n ;
lin GivenName, MaleSurname, FemaleSurname, PlSurname = \n -> n ;
lin FullName gn sn = {
s = gn.s ++ sn.s ;
g = gn.g
@@ -126,4 +126,6 @@ oper
comp = \\a => vps.comp ! a ++ (let agr = complAgr a in vps.s.s ! VPart agr.g agr.n) ++ agent ;
} ;
lin AnaphPron np = agr2pron ! np.a ;
} ;