GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 08:58:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

added PassVPSlash & PassAgentVPSlash

Browse Source
This commit is contained in:
Krasimir Angelov
2023-03-16 09:38:43 +01:00
parent e192627e24
commit 14955ff5d4
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/afrikaans/ExtendAfr.gf
View File

@@ -1,10 +1,16 @@
concrete ExtendAfr of Extend = concrete ExtendAfr of Extend =
CatAfr ** ExtendFunctor CatAfr ** ExtendFunctor - [PassVPSlash,PassAgentVPSlash]
with with
(Grammar = GrammarAfr) ** (Grammar = GrammarAfr) **
open open
ResAfr in { ParadigmsAfr, ResAfr in {
-- KA: guessed from PassV2 in Afrikaans and the equivalents in Dutch
lin PassVPSlash vps =
insertInf (vps.s.s ! VPerf) (predV word_V) ;
PassAgentVPSlash vps np =
insertAdv (appPrep "door" np.s) (insertInf (vps.s.s ! VPerf) (predV word_V)) ;
lin GivenName, MaleSurname, FemaleSurname = \n -> n ; lin GivenName, MaleSurname, FemaleSurname = \n -> n ;
lin FullName gn sn = { lin FullName gn sn = {