clitic insertion started

This commit is contained in:
aarne
2006-01-20 13:40:19 +00:00
parent b21eeaa2df
commit e40cceeb4c
8 changed files with 29 additions and 293 deletions

View File

@@ -4,8 +4,10 @@ incomplete concrete VerbRomance of Verb = CatRomance ** open DiffRomance, ResRom
lin
UseV = predV ;
ComplV2 v np = insertObject v.c2 np (predV v) ;
{-
ComplV2 v np = insertObj (\\_ => v.c2 ++ np.s ! accusative) (predV v) ;
ComplV3 v np np2 =
insertObj
(\\_ => v.c2 ++ np.s ! accusative ++ v.c3 ++ np2.s ! accusative)