-r $source or Abort("Requested file not found", '404 source not found');
my $size = (stat $source)->[7];
+ my $cachefile = "source/$source.html";
+ if (-e $cachefile and (stat $cachefile)->[9] >= (stat $source)->[9]) {
+ say '<pre>';
+ print ReadFile($cachefile);
+ say '</pre>';
+ exit;
+ }
+ open my $cache, '>', $cachefile
+ or Alert("Could not save cache", "Opening $cachefile failed: $!");;
+
if (my $hl = eval {
$size < 32_768 or die 'large files take too long to parse';
require Text::VimColor;
Statement => 'strong',
Error => 'em',
Todo => 'em',
+ PreProc => 'strong',
);
say '<pre>';
my ($type, $contents) = @{$_};
$contents = decode_utf8($contents);
my $tag = $type && ($TYPETAG{$type} || 'span');
- my $arg = '';
- print "<$tag$arg class=\"sy-\l$type\">" if $tag;
- if (!$type || $type eq 'Constant'
- and $contents =~ s{^(['"]?)($incname)(?=\1$)}{}) {
- # link other page sources, stylesheets, and javascript
- print $1 . showlink($2, "/source/$2");
- }
- if (!$type and $contents =~ s/^(\s*)([A-Z]\w+(?:::\w+)+)(?![^;\s])//) {
- # link perl module names (Xx::Xx...)
- print $1 . showlink($2, "/source/$2");
- }
- if ($type && $type eq 'Comment'
- and $contents =~ s{^(.*? by )(tools/\S+)}{}) {
- # link generator scripts (by tools/...)
- print $1 . showlink($2, "/source/$2");
- }
- print Text::VimColor::_xml_escape($contents);
- print "</$tag>" if $tag;
+ my $line = Text::VimColor::_xml_escape($contents);
+
+ # link other page sources, stylesheets, and javascript
+ $line =~ s{ ^(['"]?) \K ($incname) (?=\1$) }{ showlink($2, "/source/$2") }xe
+ if !$type || $type eq 'Constant';
+ # link perl module names (Xx::Xx...)
+ $line =~ s{ ^\s* \K ([A-Z]\w+(?:::\w+)+) (?![^;\s]) }{ showlink($1, "/source/$1") }xe
+ if !$type;
+ # link generator scripts (by tools/...)
+ $line =~ s{ ^.*? by\ \K (tools/\S+) }{ showlink($1, "/source/$1") }xe
+ if $type && $type eq 'Comment';
+
+ $line = qq(<$tag class="sy-\l$type">$line</$tag>) if $tag;
+ print $line;
+ print {$cache} $line if $cache;
}
say '</pre>';
}