plan9port

fork of plan9port with libvec, libstr and libsdb
Log | Files | Refs | README | LICENSE

fixurls (664B)

      1 #!/usr/bin/env perl
      2 
      3 open(OMIT, "9 sed -n 's/.*Omitman\\[\"(.*)\\((.)\\)\".*/\\1 \\2/p' $ENV{'PLAN9'}/dist/checkman.awk |") || die "omit: $!";
      4 @omit = <OMIT>;
      5 close OMIT;
      6 chomp @omit;
      7 # push @omit, "grep 1", "lseek 2", "tcs 1", "sed 1", "rc 1", "strcat 3", "yacc 1";
      8 
      9 sub noref {
     10 	my ($p, $s) = @_;
     11 
     12 	$text =~ s!<a href="../man$s/$p.html">(([^<]|<[^/]|</[^a])*)</a>!\1!g;
     13 }
     14 
     15 for($i=0; $i<@ARGV; $i++){
     16 	open(IN, $ARGV[$i]) || die "open $ARGV[$i]: $!";
     17 	@text = <IN>;
     18 	close IN;
     19 	$text = join("", @text);
     20 
     21 	foreach $o (@omit) {
     22 		$o =~ /(.*) (.*)/;
     23 		noref($1, $2);
     24 	}
     25 
     26 	open(OUT, ">$ARGV[$i]") || die "open $ARGV[$i]: $!";
     27 	print OUT $text;
     28 	close OUT;
     29 }
     30 
     31 exit 0;