clause working with vp

This commit is contained in:
aarne
2005-02-04 20:07:45 +00:00
parent 0796338380
commit 977a7b6865
14 changed files with 60 additions and 25 deletions

View File

@@ -29,6 +29,8 @@ concrete ClauseEng of Clause = CategoriesEng **
SPredAV np v x = predVerbGroupClause np (complVerbAdj v x) ;
SPredObjA2V np v x y = predVerbGroupClause np (complVerbAdj2 True v x y) ;
SPredProgVP = progressiveClause ;
QPredV np v = intVerbPhrase np (predVerb v) ;
QPredPassV np v = intVerbPhrase np (passVerb v) ;
QPredV2 np v x = intVerbPhrase np (complTransVerb v x) ;