b63128702d85c80ba625c217f9288660ac94ab7a
[ikiwiki.git] / doc / todo / Improving_the_efficiency_of_match__95__glob.mdwn
1 I've been profiling my IkiWiki to try to improve speed (with many pages makes speed even more important) and I've written a patch to improve the speed of match_glob.  This matcher is a good one to improve the speed of, because it gets called so many times.
2
3 Here's my patch - please consider it! -- [[KathrynAndersen]]
4
5 > It seems to me as though changing `glob2re` to return qr/$re/, and calling
6 > `memoize(glob2re)` next to the other memoize calls, would be a less
7 > verbose way to do this? --[[smcv]]
8
9 >> I think so, yeah. Anyway, do you have any benchmark results handy,
10 >> Kathryn?  --[[Joey]] 
11
12 --------------------------------------------------------------
13 <pre>
14 diff --git a/IkiWiki.pm b/IkiWiki.pm
15 index 08a3d78..c187b98 100644
16 --- a/IkiWiki.pm
17 +++ b/IkiWiki.pm
18 @@ -2482,6 +2482,8 @@ sub derel ($$) {
19         return $path;
20  }
21  
22 +my %glob_cache;
23 +
24  sub match_glob ($$;@) {
25         my $page=shift;
26         my $glob=shift;
27 @@ -2489,8 +2491,15 @@ sub match_glob ($$;@) {
28         
29         $glob=derel($glob, $params{location});
30  
31 -       my $regexp=IkiWiki::glob2re($glob);
32 -       if ($page=~/^$regexp$/i) {
33 +       # Instead of converting the glob to a regex every time,
34 +       # cache the compiled regex to save time.
35 +       if (!exists $glob_cache{$glob}
36 +           or !defined $glob_cache{$glob})
37 +       {
38 +           my $re=IkiWiki::glob2re($glob);
39 +           $glob_cache{$glob} = qr/^$re$/i;
40 +       }
41 +       if ($page =~ $glob_cache{$glob}) {
42                 if (! IkiWiki::isinternal($page) || $params{internal}) {
43                         return IkiWiki::SuccessReason->new("$glob matches $page");
44                 }
45 </pre>
46 --------------------------------------------------------------