fix UncNeg in ParseEng

This commit is contained in:
kr.angelov
2012-06-13 06:10:51 +00:00
parent 3a352a953f
commit 5b22d474ef
2 changed files with 5 additions and 2 deletions

View File

@@ -15,7 +15,7 @@ concrete ParseEng of ParseEngAbs =
RelativeEng,
IdiomEng [NP, VP, Tense, Cl, ProgrVP, ExistNP],
ExtraEng [NP, Quant, VPSlash, VP, Tense, GenNP, PassVPSlash,
Temp, Pol, Conj, VPS, ListVPS, S, MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS, UncNeg,
Temp, Pol, Conj, VPS, ListVPS, S, MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS,
VPI, VPIForm, VPIInf, VPIPresPart, ListVPI, VV, MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV],
DictEng **
@@ -120,5 +120,6 @@ lin
lin
PPos = {s = [] ; p = CPos} ;
PNeg = {s = [] ; p = CNeg True} ; -- contracted: don't
UncNeg = {s = [] ; p = CNeg False} ;
}

View File

@@ -14,7 +14,7 @@ abstract ParseEngAbs =
Relative,
Idiom [NP, VP, Cl, ProgrVP, ExistNP],
Extra [NP, Quant, VPSlash, VP, GenNP, PassVPSlash,
Temp, Pol, Conj, VPS, ListVPS, S, MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS, UncNeg,
Temp, Pol, Conj, VPS, ListVPS, S, MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS,
VPI, ListVPI, VV, MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV],
DictEngAbs ** {
@@ -49,4 +49,6 @@ fun CompoundCN : Num -> N -> CN -> CN ;
PassVS : VS -> VP -> VP ;
PPartNP : NP -> VPSlash -> NP ;
UncNeg : Pol ;
}