GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-29 14:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

relatives and imperatives in Pred Eng and Swe

Browse Source
This commit is contained in:
aarne
2014-02-14 08:41:18 +00:00
parent 39ad565694
commit 22f817262f
7 changed files with 121 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
lib/src/experimental/PredSwe.gf
View File

@@ -1,4 +1,31 @@
concrete PredSwe of Pred =
CatSwe [Ant,NP,Utt,IP,IAdv,Conj] **
PredFunctor with
(PredInterface = PredInstanceSwe) ;
CatSwe [Ant,NP,Utt,IP,IAdv,Conj,RP,RS,Imp] **
PredFunctor - [RelVP,RelSlash] ---- incompatible arity: to be fixed in RGL
with
(PredInterface = PredInstanceSwe)
** open ResSwe, CommonScand in {
lin
RelVP rp vp =
let
cl : Agr -> RCase -> PrClause = \a,c ->
let rpa = rpagr2agr rp.a a in
vp ** {
v = applyVerb vp (agr2vagr rpa) ;
subj = rp.s ! a.g ! a.n ! subjRPCase a ;
adj = vp.adj ! rpa ;
obj1 = vp.part ++ strComplCase vp.c1 ++ vp.obj1.p1 ! rpa ; ---- apply complCase ---- place of part depends on obj
obj2 = strComplCase vp.c2 ++ vp.obj2.p1 ! (case vp.obj2.p2 of {True => rpa ; False => vp.obj1.p2}) ; ---- apply complCase
c3 = noComplCase ; -- for one more prep to build ClSlash
qforms = qformsVP vp (agr2vagr rpa) ;
}
in {s = \\a,c => declCl (cl a c) ; c = subjCase} ;
RelSlash rp cl = {
s = \\a,c => rp.s ! a.g ! a.n ! subjRPCase (rpagr2agr rp.a a) ++ declCl cl ; ---- rp case
c = objCase
} ;
}