added passives and self's to Chi

This commit is contained in:
aarne
2013-12-06 09:16:50 +00:00
parent be58b6f224
commit 324eb400b5
4 changed files with 9 additions and 6 deletions

View File

@@ -1,5 +1,5 @@
concrete ExtraChi of ExtraChiAbs = CatChi **
open ResChi, Coordination, Prelude in {
open ResChi, Coordination, (S = StructuralChi), Prelude in {
flags coding = utf8 ;
@@ -11,6 +11,7 @@ concrete ExtraChi of ExtraChiAbs = CatChi **
lin
PassVPSlash vps = insertAdv (mkNP passive_s) vps ;
PassAgentVPSlash vps np = insertAdv (ss (appPrep S.by8agent_Prep np.s)) (insertAdv (mkNP passive_s) vps) ;
MkVPS t p vp = {s = t.s ++ p.s ++ (mkClause [] vp).s ! p.p ! t.t} ;
ConjVPS c = conjunctDistrSS (c.s ! CSent) ;