mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-12 22:39:31 -06:00
added passives and self's to Chi
This commit is contained in:
@@ -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) ;
|
||||
|
||||
@@ -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]
|
||||
|
||||
@@ -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} ;
|
||||
|
||||
}
|
||||
|
||||
|
||||
|
||||
@@ -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" ;
|
||||
|
||||
Reference in New Issue
Block a user