GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-05 01:02:51 -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

22
lib/src/scandinavian/ExtraScand.gf
View File

@@ -1,5 +1,5 @@
incomplete concrete ExtraScand of ExtraScandAbs = CatScand **
open CommonScand,Coordination,ResScand in {
open CommonScand,Coordination,ResScand, ParamX in {
lin
GenNP np = {
s,sp = \\n,_,_,g => np.s ! NPPoss (gennum (ngen2gen g) n) Nom ;
@@ -84,4 +84,24 @@ incomplete concrete ExtraScand of ExtraScandAbs = CatScand **
ICompAP ap = {s = \\a => hur_IAdv.s ++ ap.s ! a} ;
IAdvAdv adv = {s = hur_IAdv.s ++ adv.s} ;
lincat
Foc = {s : ParamX.Tense => Anteriority => Polarity => Str} ;
lin
FocObj np cls = {
s = \\t,a,p => cls.c2.s ++ np.s ! accusative ++ cls.s ! t ! a ! p ! Inv
} ;
FocAdv adv cls = {
s = \\t,a,p => adv.s ++ cls.s ! t ! a ! p ! Inv
} ;
FocAdV adv cls = {
s = \\t,a,p => adv.s ++ cls.s ! t ! a ! p ! Inv
} ;
FocNeg cl = {
s = \\t,a,p => (negation ! Neg) ++ cl.s ! t ! a ! p ! Inv
} ;
UseFoc t p foc = {s = t.s ++ p.s ++ foc.s ! t.t ! t.a ! p.p} ;
}