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

PastPartAP/PastPartAgentAP must also include the n3 complement

Browse Source
This commit is contained in:
krangelov
2020-04-27 10:37:47 +02:00
parent e4873bdcea
commit 0f0bc4e346
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/swedish/ExtendSwe.gf
View File

@@ -193,15 +193,17 @@ concrete ExtendSwe of Extend = CatSwe **
} ; } ;
PastPartAP vp = { PastPartAP vp = {
s = \\af => case vp.isSimple of { s = \\af => let vp' = vp**{n2 : Agr => Str =\\a => vp.n2 ! a ++ vp.n3 ! a}
True => partVPPlus vp (PartPret af Nom) (aformpos2agr af) Pos ; in case vp.isSimple of {
False => partVPPlusPost vp (PartPret af Nom) (aformpos2agr af) Pos True => partVPPlus vp' (PartPret af Nom) (aformpos2agr af) Pos ;
} ; False => partVPPlusPost vp' (PartPret af Nom) (aformpos2agr af) Pos
} ;
isPre = vp.isSimple isPre = vp.isSimple
} ; } ;
PastPartAgentAP vp np = { PastPartAgentAP vp np = {
s = \\af => partVPPlusPost vp (PartPret af Nom) (aformpos2agr af) Pos ++ "av" ++ np.s ! accusative ; s = \\af => let vp' = vp**{n2 : Agr => Str =\\a => vp.n2 ! a ++ vp.n3 ! a}
in partVPPlusPost vp' (PartPret af Nom) (aformpos2agr af) Pos ++ "av" ++ np.s ! accusative ;
isPre = False isPre = False
} ; } ;