tfixurls - plan9port - [fork] Plan 9 from user space
 (HTM) git clone git://src.adamsgaard.dk/plan9port
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) README
 (DIR) LICENSE
       ---
 (DIR) commit add3511e9bec8db231c645e6b44db8eb2b7ff315
 (DIR) parent 0fdffa38a1a44f20dca78429ea96424d5eab07d2
 (HTM) Author: rsc <devnull@localhost>
       Date:   Fri, 14 Jan 2005 21:01:19 +0000
       
       fixurls
       
       Diffstat:
         A dist/fixurls                        |      34 +++++++++++++++++++++++++++++++
       
       1 file changed, 34 insertions(+), 0 deletions(-)
       ---
 (DIR) diff --git a/dist/fixurls b/dist/fixurls
       t@@ -0,0 +1,34 @@
       +#!/usr/bin/perl
       +
       +open(OMIT, "9 sed -n 's/.*Omitman\\[\"(.*)\\((.)\\)\".*/\\1 \\2/p' /usr/local/plan9/dist/checkman.awk |") || die "omit: $!";
       +@omit = <OMIT>;
       +close OMIT;
       +chomp @omit;
       +# push @omit, "grep 1", "lseek 2", "tcs 1", "sed 1", "rc 1", "strcat 3", "yacc 1";
       +
       +sub noref {
       +        my ($p, $s) = @_;
       +
       +        $text =~ s!<a href="../man$s/$p.html">(([^<]|<[^/]|</[^a])*)</a>!\1!g;
       +}
       +
       +for($i=0; $i<@ARGV; $i++){
       +        open(IN, $ARGV[$i]) || die "open $ARGV[$i]: $!";
       +        @text = <IN>;
       +        close IN;
       +        $text = join("", @text);
       +
       +        foreach $o (@omit) {
       +                $o =~ /(.*) (.*)/;
       +                noref($1, $2);
       +        }
       +
       +        $text =~ s!../man(.)/([^.]*)\.html!$2$1.html!g;
       +        $text =~ s!(http://swtch.com/plan9port/unix)!<a href="\1">\1</a>!g;
       +
       +        open(OUT, ">$ARGV[$i]") || die "open $ARGV[$i]: $!";
       +        print OUT $text;
       +        close OUT;
       +}
       +
       +exit 0;