GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 01:18:57 -06:00
Code Issues Packages Projects Releases Wiki Activity

added Extend.PassVPSlash to Ita, Spa

Browse Source
This commit is contained in:
aarneranta
2023-03-20 13:02:12 +01:00
parent 69d5b80f23
commit 9c96fc6653
2 changed files with 36 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
src/italian/ExtendIta.gf
View File

@@ -1,7 +1,8 @@
--# -path=alltenses:../common:../abstract:../romance --# -path=alltenses:../common:../abstract:../romance
concrete ExtendIta of Extend = CatIta ** ExtendRomanceFunctor-- - concrete ExtendIta of Extend = CatIta ** ExtendRomanceFunctor -
-- [ [
-- ] PassVPSlash, PassAgentVPSlash
]
-- don't forget to put the names of your own -- don't forget to put the names of your own
-- definitions here -- definitions here
with with
@@ -21,4 +22,19 @@ lin FullName gn sn = {
g = gn.g g = gn.g
} ; } ;
} ;
lin PassVPSlash vps = passVPSlash vps [] ;
PassAgentVPSlash vps np = passVPSlash
vps (let by = <Grammar.by8agent_Prep : Prep> in by.s ++ (np.s ! by.c).ton) ;
oper
passVPSlash : VPSlash -> Str -> VP = \vps, agent ->
let auxvp = predV auxPassive
in
vps ** {
s = auxvp.s ;
agr = auxvp.agr ;
comp = \\a => vps.comp ! a ++ (let agr = complAgr a in vps.s.s ! VPart agr.g agr.n) ++ agent ;
} ;
}

17
src/spanish/ExtendSpa.gf
View File

@@ -19,7 +19,8 @@ concrete ExtendSpa of Extend = CatSpa ** ExtendRomanceFunctor -
youPlFem_Pron, youPlFem_Pron,
youPolFem_Pron, youPolFem_Pron,
youPolPlFem_Pron, youPolPlFem_Pron,
youPolPl_Pron youPolPl_Pron,
PassVPSlash, PassAgentVPSlash
] -- don't forget to put the names of your own ] -- don't forget to put the names of your own
-- definitions here -- definitions here
with with
@@ -106,4 +107,18 @@ lin FullName gn sn = {
g = gn.g g = gn.g
} ; } ;
lin PassVPSlash vps = passVPSlash vps [] ;
PassAgentVPSlash vps np = passVPSlash
vps (let by = <Grammar.by8agent_Prep : Prep> in by.s ++ (np.s ! by.c).ton) ;
oper
passVPSlash : VPSlash -> Str -> VP = \vps, agent ->
let auxvp = predV auxPassive
in
vps ** {
s = auxvp.s ;
agr = auxvp.agr ;
comp = \\a => vps.comp ! a ++ (let agr = complAgr a in vps.s.s ! VPart agr.g agr.n) ++ agent ;
} ;
} ; } ;