GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

simple optimization of the parser that makes it about two times faster

Browse Source
This commit is contained in:
kr.angelov
2007-09-25 12:59:25 +00:00
parent c9daa2e2c1
commit 37d310f8c0
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/GF/Parsing/FCFG/Active.hs
View File

@@ -174,8 +174,12 @@ initialTD pinfo starts toks =
initialBU :: FCFPInfo -> Input FToken -> [(FCat,Item)] initialBU :: FCFPInfo -> Input FToken -> [(FCat,Item)]
initialBU pinfo toks = initialBU pinfo toks =
do tok <- aElems (inputToken toks) do (tok,rngs) <- aAssocs (inputToken toks)
ruleid <- leftcornerTokens pinfo ? tok ++ ruleid <- leftcornerTokens pinfo ? tok
epsilonRules pinfo let FRule _ _ cat _ = allRules pinfo ! ruleid
(i,j) <- rngs
return (cat,Active [] (makeRange i j) 0 1 (emptyChildren ruleid pinfo))
++
do ruleid <- epsilonRules pinfo
let FRule _ _ cat _ = allRules pinfo ! ruleid let FRule _ _ cat _ = allRules pinfo ! ruleid
return (cat,Active [] EmptyRange 0 0 (emptyChildren ruleid pinfo)) return (cat,Active [] EmptyRange 0 0 (emptyChildren ruleid pinfo))