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

fixed the lost AdV in scandinavian after correction of negation/pronoun placement

Browse Source
This commit is contained in:
aarne
2016-06-05 10:17:34 +00:00
parent 77a1d57dae
commit d6c11c45e1
1 changed files with 12 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
lib/src/scandinavian/CommonScand.gf
View File

@@ -327,9 +327,20 @@ oper
insertAdV : Str -> VP -> VP = \adv -> insertAdVAgr (\\_ => adv) ; insertAdV : Str -> VP -> VP = \adv -> insertAdVAgr (\\_ => adv) ;
insertAdVAgr : (Agr => Str) -> VP -> VP = \adv,vp ->vp ** { insertAdVAgr : (Agr => Str) -> VP -> VP = \adv,vp ->vp ** {
a1 = \\b,a => vp.a1 ! b ! a ++ adv ! a ; s = \\vo,vpf =>
let vps = vp.s ! vo ! vpf
in {
fin = vps.fin ;
inf = vps.inf ;
a1 = \\b,a => case vpf of {
VPFinite (SPres | SPast) Simul | VPImperat =>
<(vps.a1 ! b ! a).p1, (vps.a1 ! b ! a).p2 ++ adv ! a> ;
_ => <(vps.a1 ! b ! a).p1 ++ adv ! a, (vps.a1 ! b ! a).p2>
}
}
} ; } ;
passiveVP : VP -> VP = \vp -> vp ** { passiveVP : VP -> VP = \vp -> vp ** {
s = \\_ => vp.s ! Pass ; -- forms the s-passive s = \\_ => vp.s ! Pass ; -- forms the s-passive
} ; } ;