forked from GitHub/gf-rgl
upgrade after the change in SC
This commit is contained in:
@@ -1,7 +1,7 @@
|
|||||||
--# -path=.:../abstract:../translator
|
--# -path=.:../abstract:../translator
|
||||||
|
|
||||||
concrete ParseEng of ParseEngAbs =
|
concrete ParseEng of ParseEngAbs =
|
||||||
TenseX - [Pol, PNeg, PPos],
|
TenseX - [Pol, PNeg, PPos, SC],
|
||||||
CatEng,
|
CatEng,
|
||||||
NounEng - [PPartNP],
|
NounEng - [PPartNP],
|
||||||
AdjectiveEng,
|
AdjectiveEng,
|
||||||
@@ -142,7 +142,7 @@ lin
|
|||||||
|
|
||||||
VPSlashVS vs vp =
|
VPSlashVS vs vp =
|
||||||
insertObj (\\a => infVP VVInf vp Simul CPos a) (predV vs) **
|
insertObj (\\a => infVP VVInf vp Simul CPos a) (predV vs) **
|
||||||
{c2 = ""; gapInMiddle = False} ;
|
{c2 = ""; missingAdv = False; gapInMiddle = False} ;
|
||||||
|
|
||||||
PastPartRS ant pol vps = {
|
PastPartRS ant pol vps = {
|
||||||
s = \\agr => vps.ad ! agr ++ vps.ptp ++ vps.s2 ! agr ;
|
s = \\agr => vps.ad ! agr ++ vps.ptp ++ vps.s2 ! agr ;
|
||||||
|
|||||||
@@ -1,7 +1,7 @@
|
|||||||
--# -path=.:../chunk
|
--# -path=.:../chunk
|
||||||
|
|
||||||
concrete TranslateEng of Translate =
|
concrete TranslateEng of Translate =
|
||||||
TenseX - [Pol, PNeg, PPos],
|
TenseX - [Pol, PNeg, PPos, SC],
|
||||||
CatEng,
|
CatEng,
|
||||||
NounEng - [
|
NounEng - [
|
||||||
PPartNP
|
PPartNP
|
||||||
|
|||||||
Reference in New Issue
Block a user