change in Romance agreement to produce correct number for polite singular pronouns ; linking functions that involve mkClause now takes a long time and should be revised

This commit is contained in:
aarne
2010-04-06 14:08:01 +00:00
parent f6db1ad200
commit d1d1c6215d
27 changed files with 118 additions and 69 deletions

View File

@@ -88,10 +88,11 @@ oper
infForm _ _ _ _ = True ;
mkImperative b p vp = {
s = \\pol,aag =>
s = \\pol,agr =>
let
pe = case b of {True => P3 ; _ => p} ;
agr = aag ** {p = pe} ;
---- agr = aag ** {p = pe} ;
aag = verbAgr agr ; ----
clpr = <[],[],False> ; ----e pronArg agr.n agr.p vp.clAcc vp.clDat ;
----e verb = case <aag.n, pol,pe> of {
----e <Sg,Neg,P2> => (vp.s ! VPInfinit Simul clpr.p3).inf ! aag ;