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) ;

View File

@@ -1,6 +1,6 @@
abstract ExtraChiAbs = Cat,
Extra [NP, Quant, VPSlash, VP, Tense, Aspect, GenNP, PassVPSlash,
Extra [NP, Quant, VPSlash, VP, Tense, Aspect, GenNP, PassVPSlash, PassAgentVPSlash,
Temp, Pol, Conj, VPS, ListVPS, S, Num, CN, RP, MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS, GenRP,
VPI, VPIForm, VPIInf, VPIPresPart, ListVPI, VV, MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV,
ClSlash, RCl, EmptyRelSlash]

View File

@@ -27,6 +27,10 @@ concrete IdiomChi of Idiom = CatChi ** open Prelude, ResChi in {
ImpPl1 vp = ss (zan_s ++ men_s ++ infVP vp ++ ba0_s) ;
SelfAdvVP vp = insertAdv (ss reflPron) vp ;
SelfAdVVP vp = insertAdv (ss reflPron) vp ;
SelfNP np = {s = np.s ++ reflPron} ;
}

View File

@@ -13,8 +13,8 @@ concrete ParseChi of ParseEngAbs =
SentenceChi,
QuestionChi,
RelativeChi,
IdiomChi [NP, VP, Tense, Cl, ProgrVP, ExistNP],
ExtraChi [NP, Quant, VPSlash, VP, Tense, GenNP, PassVPSlash,
IdiomChi [NP, VP, Tense, Cl, ProgrVP, ExistNP, SelfAdvVP, SelfAdVVP, SelfNP],
ExtraChi [NP, Quant, VPSlash, VP, Tense, GenNP, PassVPSlash, PassAgentVPSlash,
Temp, Pol, Conj, VPS, ListVPS, S, Num, CN, RP, MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS, GenRP,
VPI, VPIForm, VPIInf, VPIPresPart, ListVPI, VV, MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV,
ClSlash, RCl, EmptyRelSlash, ListCN, ConjCN, BaseCN, ConsCN],
@@ -35,8 +35,6 @@ lin
that_RP = which_RP ;
UncNeg = negativePol ;
-- lexical entries
-- another_Quant = mkQuantifier "otro" "otra" "otros" "otras" ;