another doubling of parsing speed for Fin by using stems inside VP as well. Now just 10% of the time before these optimizations.

This commit is contained in:
aarne
2013-12-07 15:55:20 +00:00
parent a03037b830
commit 39cff5a66b
11 changed files with 515 additions and 273 deletions

View File

@@ -1,5 +1,5 @@
--# -coding=latin1
concrete QuestionFin of Question = CatFin ** open ResFin, Prelude in {
concrete QuestionFin of Question = CatFin ** open ResFin, StemFin, Prelude in {
flags optimize=all_subs ;
@@ -32,7 +32,7 @@ concrete QuestionFin of Question = CatFin ** open ResFin, Prelude in {
QuestIComp icomp np = {
s = \\t,a,p =>
let
vp = predV (verbOlla ** {sc = NPCase Nom ; h = Back ; p = []}) ;
vp = predV vpVerbOlla ;
cl = mkClause (subjForm np vp.s.sc) np.a vp ;
in
icomp.s ! np.a ++ cl.s ! t ! a ! p ! SDecl