Changeset 22739 for util

Timestamp:

10/24/08 18:08:56 (3 months ago)

Author:

azawawi

Message:

[util/smartlinks.pl] Added STD_syntax_highlight-ed hyperlinks

Files:

• util/smartlinks.pl (modified) (2 diffs)

util/smartlinks.pl

@@ -579 +579 @@
 
     my $nlines = $to - $from + 1;
-
+    my $hilited_file = $file;
+    $hilited_file =~ s{t/spec/}{};
+    $hilited_file =~ s{/([^/]+)\.t$}{/_$1.html};
     my $html = <<"_EOC_";
 <p>From $file lines $from&ndash;$to$stat:<span id="smartlink_skip_${snippet_id}"> <a href="#smartlink_skipto_${snippet_id}">(skip)</a></span></p>
@@ -586 +588 @@
 </div>
 <span id="smartlink_skipto_${snippet_id}">&nbsp;</span>
+<a href="http://feather.perl6.nl/~azawawi/html/$hilited_file" target="_blank">
+STD_syntax_highlight-ed $file
+</a>
 _EOC_
     $snippets[$snippet_id] = $html;