1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
#!/usr/bin/perl
# Copyright (c) 1996 Wolfram Schneider <wosch@FreeBSD.org>. Berlin.
# All rights reserved.
#
# xrs - detect unsorted cross references in section SEE ALSO
#
# Cross references in the SEE ALSO section should
# be sorted by section number, and then placed in alphabetical
# order and comma separated. For example:
#
# ls(1), ps(1), group(5), passwd(5).
#
# The last entry may be finished with a dot `.'
#
# or a source example:.
# .Sh SEE ALSO
# .Xr foo 1 ,
# .Xr bla 2 ,
# .Xr foobar 8
# .Sh HISTORY
#
# usage: xrs manpages ...
#
# $Id$
sub mysort {
local(@c) = split($",$a);
local(@d) = split($",$b);
local($ret) = ($c[2] <=> $d[2]);
return $ret if $ret;
return $c[1] cmp $d[1];
}
sub usage { die "usage: xrs manpages ...\n"; }
sub compare {
local(*a, *b) = @_;
return 1 if ($#a != $#b);
for($i = 0; $i <= $#a; $i++) {
return 1 if
$a[$i] ne $b[$i];
}
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+[^.\s]/;
return 0;
}
&usage if $#ARGV >= 0 && $ARGV[0] =~ /^-\?|h/;
while(<>) {
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";
}
}
last if eof();
}
|
