Case insensitive sort. Ignore troff comments. Bugfixes.

share/man/man0/xrs.pl

@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 # Copyright (c) 1996 Wolfram Schneider <wosch@FreeBSD.org>. Berlin.
+# All rights reserved.
 #
 # xrs - detect unsorted cross references in section SEE ALSO
 #
@@ -33,6 +34,8 @@ sub mysort {
     return $c[1] cmp $d[1];
 }
 
+sub usage { die "usage: xrs manpages ...\n"; }
+
 sub compare {
     local(*a, *b) = @_;
 
@@ -46,29 +49,35 @@ sub compare {
     for ($i = 0; $i < $#a; $i++) {
 	return 1 if $a[$i] !~ /\s,\s*$/;
     }
+
     return 1 if $a[$#a] =~ /\s,\s*$/;
-    return 1 if $a[$#a] =~ /^.Xr\s+\S+\s+\S+\s+[^.]$/;
+    return 1 if $a[$#a] =~ /^.Xr\s+\S+\s+\S+\s+[^.\s]/;
     return 0;
 }
 
+&usage if $#ARGV >= 0 && $ARGV[0] =~ /^-\?|h/;
 
 while(<>) {
-    if (/^\.Sh\s/ && /SEE\s+ALSO/) {
+    if (/^\.Sh\s/ && /"?SEE\s+ALSO"?/) {
 	$file = $ARGV;
 	@a = ();
 	while(<>) {
+            last if $file ne $ARGV;
+
+	    next if /^\.\\"\s/; # " ignore comments
+            # next if m%^/[^/]+/%; # ignore absolute path names
 	    if (!/^\.(Xr|Fn)\s/) {
 		if (!/^\.(Sh|Rs|\\"|Pp|br)\s*/ && !/^\s*$/) {
 		    warn "Oops: $ARGV $_";
 		}
 		last;
 	    }
+            tr/A-Z/a-z/;
 	    push(@a, $_);
 	}
 	@b = sort mysort @a;
 	if (&compare(*a,*b)) {
 	    print "$file\n";
-	    #print "@a\n@b\n";
 	}
     }
     last if eof();