new abstract implemented for exper/french

This commit is contained in:
aarne
2008-04-27 19:19:40 +00:00
parent 9d3f381e71
commit be6aa2b07f
13 changed files with 247 additions and 54 deletions

View File

@@ -122,7 +122,7 @@ oper
clDat = cc.p2 ;
clit2 = vp.clit2 ;
neg = vp.neg ;
comp = \\a => vp.comp ! a ++ cc.p3 ;
comp = \\a => cc.p3 ++ vp.comp ! a ;
ext = vp.ext ;
} ;
@@ -195,6 +195,8 @@ oper
ext = \\p => vp.ext ! p ++ co ! p ;
} ;
mkVPSlash : Compl -> VP -> VP ** {c2 : Compl} = \c,vp -> vp ** {c2 = c} ;
mkClause : Str -> Bool -> Agr -> VP ->
{s : Direct => RTense => Anteriority => Polarity => Mood => Str} =
\subj,hasClit,agr,vp -> {