forked from GitHub/gf-core
aarne
26 lines
735 B
Plaintext
26 lines
735 B
Plaintext
concrete ExtraSwe of ExtraSweAbs = ExtraScandSwe ** open CommonScand, ResSwe, ParamX in {
|
|
|
|
lin
|
|
FocVP vp np = {
|
|
s = \\t,a,p =>
|
|
let
|
|
subj = np.s ! nominative ;
|
|
agr = np.a ;
|
|
vps = vp.s ! VPFinite t a ;
|
|
verb = case <<t,a> : ParamX.Tense * Anteriority> of {
|
|
<Pres,Simul> => {fin = "gör" ; inf = vps.inf}
|
|
; --# notpresent
|
|
<Past,Simul> => {fin = "gjorde" ; inf = vps.inf} ; --# notpresent
|
|
_ => vps --# notpresent
|
|
} ;
|
|
vfin = verb.fin ;
|
|
vinf = verb.inf ;
|
|
neg = vp.a1 ! p ;
|
|
comp = vp.n2 ! agr ++ vp.a2 ++ vp.ext
|
|
in
|
|
vinf ++ comp ++ vfin ++ subj ++ neg
|
|
} ;
|
|
|
|
|
|
}
|