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

copy PassVPSlash/PassAgentVPSlash to ExtendDut

Browse Source
This commit is contained in:
Krasimir Angelov
2023-03-16 09:24:10 +01:00
parent 1c496a719b
commit e192627e24
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/dutch/ExtendDut.gf
View File

@@ -5,7 +5,8 @@ concrete ExtendDut of Extend =
- [PastPartAP,ICompAP,IAdvAdv, - [PastPartAP,ICompAP,IAdvAdv,
VPS, VPS,
BaseVPS, ConsVPS, BaseVPS, ConsVPS,
MkVPS, ConjVPS, PredVPS MkVPS, ConjVPS, PredVPS,
PassVPSlash, PassAgentVPSlash
] ]
with with
(Grammar = GrammarDut) ** (Grammar = GrammarDut) **
@@ -102,6 +103,11 @@ lin
IAdvAdv adv = {s = "hoe" ++ adv.s} ; IAdvAdv adv = {s = "hoe" ++ adv.s} ;
lin PassVPSlash vps =
insertInf (vps.s.s ! VPerf APred) (predV ResDut.worden_V) ;
PassAgentVPSlash vps np =
insertAdv (appPrep (mkPrep "door") np) (insertInf (vps.s.s ! VPerf APred) (predV ResDut.worden_V)) ;
lin lin
UseDAP dap = dap ** { UseDAP dap = dap ** {
s = \\_ => dap.sp ! Neutr ; s = \\_ => dap.sp ! Neutr ;