added passives and self's to Chi

This commit is contained in:
aarne
2013-12-06 09:16:50 +00:00
parent ec5d8499df
commit e190bb6e71
4 changed files with 9 additions and 6 deletions
+2 -1
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) ;