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