another optimization of Romance VP. Effect on Fre over 50% in compilation and parse speed. Somewhat smaller on Spa,Ita,Cat.

This commit is contained in:
aarne
2014-11-30 15:05:00 +00:00
parent 76abd1e66f
commit 0ea47b76c4
9 changed files with 95 additions and 54 deletions

View File

@@ -61,15 +61,15 @@ instance DiffFre of DiffRomance - [
_ => copula.s
} ;
partAgr : VType -> VPAgr = \vtyp -> case vtyp of {
VTyp VHabere _ => vpAgrNone ;
_ => VPAgrSubj
} ;
vpAgrClit : Agr -> VPAgr = \a0 ->
let a = complAgr a0 in
VPAgrClit a.g a.n ;
partAgr : VType -> Bool = \vtyp -> case vtyp of { -- works for all except Spa
VTyp VHabere _ => False ;
_ => True
} ;
---- pronArg = pronArgGen Neg ; --- takes more space and time
pronArg : Number -> Person -> CAgr -> CAgr -> Str * Str * Bool =