cirno/plan9port
1
0
Fork 0
mirror of https://github.com/9fans/plan9port.git synced 2025-01-12 11:10:07 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

dist: new, linear addsrclinks

Browse source
This commit is contained in:
Russ Cox 2008-07-03 18:50:23 -04:00
parent 806c4c953c
commit 020c5cbb67
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
dist/addsrclinks vendored
View file

@ -4,8 +4,9 @@
my $root = $ENV{'PLAN9'}; my $root = $ENV{'PLAN9'};
my $html = join("", @_); my $html = join("", @_);
$html =~ s;$root/;XXX$root/;g; $html =~ s;$root/;XXX$root/;g;
while($html =~ /((.|\n)*)XXX($root\/([a-zA-Z0-9_.\/]|−)*[a-zA-Z0-9_\/])((.|\n)*)/){ $newhtml = "";
($a, $b, $c) = ($1, $3, $5); while($html =~ /XXX($root\/([a-zA-Z0-9_.\/]|−)*[a-zA-Z0-9_\/])/){
($a, $b, $c) = ($`, $1, $');
$b =~ s/−/-/g; $b =~ s/−/-/g;
$l = $b; $l = $b;
while(! -e $l){ while(! -e $l){
@ -19,6 +20,8 @@ while($html =~ /((.|\n)*)XXX($root\/([a-zA-Z0-9_.\/]|−)*[a-zA-Z0-9_\/])((.
$b = $l; $b = $l;
$b =~ s/-/\−/g; $b =~ s/-/\−/g;
$bb =~ s/-/\−/g; $bb =~ s/-/\−/g;
$html = "$a<a href=\"$l\">$b</a>$bb$c"; $newhtml .= "$a<a href=\"$l\">$b</a>$bb";
$html = $c;
} }
print $html; $newhtml .= $html;
print $newhtml;