o5r/plan9port
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add source links

Browse source
This commit is contained in:
rsc 2005-02-15 05:07:26 +00:00
parent 0c891f28db
commit 7383736cf8
5 changed files with 34 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

24
dist/addsrclinks vendored Executable file
View file

@ -0,0 +1,24 @@
#!/usr/bin/perl
@_ = <>;
my $root = $ENV{'PLAN9'};
my $html = join("", @_);
$html =~ s;$root;XXX$root;g;
while($html =~ /((.|\n)*)XXX($root\/([a-zA-Z0-9_.\/]|&#8722;)*[a-zA-Z0-9_\/])((.|\n)*)/){
($a, $b, $c) = ($1, $3, $5);
$b =~ s/&#8722;/-/g;
$l = $b;
while(! -e $l){
if($l =~ /(.*\/)(.+)/){
$l = $1;
}else{
last;
}
}
$bb = substr($b, length($l));
$b = $l;
$b =~ s/-/\&#8722;/g;
$bb =~ s/-/\&#8722;/g;
$html = "$a<a href=\"$l\">$b</a>$bb$c";
}
print $html;