GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-16 14:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

focal constructions in Scandinavian

Browse Source
This commit is contained in:
aarne
2010-06-01 19:01:03 +00:00
parent ceb30f7e0d
commit 6404f1daed
3 changed files with 61 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
lib/src/swedish/ExtraSwe.gf
View File

@@ -1,3 +1,25 @@
concrete ExtraSwe of ExtraSweAbs = ExtraScandSwe ** {
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
} ;
}