msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests 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

22
src/italian/ExtendIta.gf
View File

@@ -1,7 +1,8 @@
--# -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
-- definitions here
with
@@ -21,4 +22,19 @@ lin FullName gn sn = {
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,
youPolFem_Pron,
youPolPlFem_Pron,
youPolPl_Pron
youPolPl_Pron,
PassVPSlash, PassAgentVPSlash
] -- don't forget to put the names of your own
-- definitions here
with
@@ -106,4 +107,18 @@ lin FullName gn sn = {
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 ;
} ;
} ;