msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

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

Browse Source
This commit is contained in:
aarne
2013-12-07 15:55:20 +00:00
parent b4e08ae60c
commit c8d91cd407
11 changed files with 515 additions and 273 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/finnish/IdiomFin.gf
View File

@@ -1,5 +1,5 @@
concrete IdiomFin of Idiom = CatFin **
open MorphoFin, ParadigmsFin, Prelude in {
open MorphoFin, StemFin, ParadigmsFin, Prelude in {
flags optimize=all_subs ; coding=utf8;
@@ -57,7 +57,7 @@ concrete IdiomFin of Idiom = CatFin **
ProgrVP vp =
let
inf = vp.s.s ! Inf Inf3Iness ;
inf = (sverb2verbSep vp.s).s ! Inf Inf3Iness ;
on = predV olla
in {
s = on.s ;
@@ -69,7 +69,7 @@ concrete IdiomFin of Idiom = CatFin **
} ;
ImpPl1 vp =
let vps = vp.s.s ! ImperP1Pl
let vps = (sverb2verbSep vp.s).s ! ImperP1Pl
in
{s = vps ++
vp.s2 ! True ! Pos ! Ag Pl P1 ++ vp.ext
@@ -85,7 +85,7 @@ concrete IdiomFin of Idiom = CatFin **
} ;
oper
olla = verbOlla ** {sc = NPCase Nom ; h = Back ; p = []} ;
olla = vpVerbOlla ;
noSubj : Polarity -> Str = \_ -> [] ;
}