mirror/freebsd
1
0
Fork 0
mirror of https://git.FreeBSD.org/src.git synced 2024-12-14 10:09:48 +00:00
Code Issues Releases Activity

Case insensitive sort. Ignore troff comments. Bugfixes.

Browse Source
This commit is contained in:
Wolfram Schneider 1997-09-29 12:41:35 +00:00
parent 5fb9db85bb
commit a203eb6ef6
Notes: svn2git 2020-12-20 02:59:44 +00:00 
svn path=/head/; revision=29979
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
share/man/man0/xrs.pl
View File

@ -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();