diff options
author | wiz <wiz> | 2017-05-15 09:33:03 +0000 |
---|---|---|
committer | wiz <wiz> | 2017-05-15 09:33:03 +0000 |
commit | faacf3777f742fa5f55f8f993ad61c8a10cff6f9 (patch) | |
tree | 921b95d35a045a90d80cdfd7c2e8d49457d18758 /textproc/mdoclint/files | |
parent | cf1f7897bfe39362a6150f19e63d51fc2a28d10a (diff) | |
download | pkgsrc-faacf3777f742fa5f55f8f993ad61c8a10cff6f9.tar.gz |
More cleanup from Ingo Schwarze.
Remove -a remnants, simplify section header code, delete 9-argument
check - OpenBSD does not use groff for quite some time now.
Bump version.
Diffstat (limited to 'textproc/mdoclint/files')
-rwxr-xr-x | textproc/mdoclint/files/mdoclint | 24 |
1 files changed, 3 insertions, 21 deletions
diff --git a/textproc/mdoclint/files/mdoclint b/textproc/mdoclint/files/mdoclint index 2d90e21d8e1..f6352071673 100755 --- a/textproc/mdoclint/files/mdoclint +++ b/textproc/mdoclint/files/mdoclint @@ -1,7 +1,7 @@ #!@PERL5@ # # $OpenBSD: mdoclint,v 1.48 2016/01/24 20:10:48 schwarze Exp $ -# $NetBSD: mdoclint,v 1.70 2017/05/14 18:04:23 wiz Exp $ +# $NetBSD: mdoclint,v 1.71 2017/05/15 09:33:03 wiz Exp $ # # Copyright (c) 2001-2017 Thomas Klausner # All rights reserved. @@ -39,7 +39,6 @@ use Getopt::Std; use constant { OPENBSD => 0, NETBSD => 1, - SECTION_NAME => 2, }; use vars qw( @@ -55,12 +54,11 @@ my $options="aDdeFfHhlmnoprSvwXx"; sub usage { - my $default = OPENBSD ? "-aDdfmnoprSXx" : "-aDdeflmnoprSXx"; + my $default = OPENBSD ? "-DdfmnoprSXx" : "-DdeflmnoprSXx"; print STDERR <<"EOF"; mdoclint: verify man page correctness usage: mdoclint [-$options] file ... - -a warn about SEE ALSO section problems -D warn about bad casing and archs in .Dt -d warn about bad date strings (in .Dd only) -e warn about unsorted errors (for functions) @@ -304,8 +302,6 @@ sub new changes => 0, oxrcsidseen => 0, nxrcsidseen => 0, - lastsh => 0, - in_section => 0, inliteral => 0, shseen => {}, last_error_name => '', @@ -351,9 +347,6 @@ sub parse_macro_args push(@params, $1); } } - if (@params > 9 and OPENBSD) { - $s->warning("$string holds >9 parameters"); - } return @params; } @@ -362,22 +355,11 @@ sub set_section_header my ($s, $section_header) = @_; $section_header = join(' ', $s->parse_macro_args($section_header)); - if ($section_header eq 'NAME') { - $s->{in_section} = SECTION_NAME; - } else { - $s->{in_section} = 0; - } - if (not $sections{$section_header}) { $s->warning("unknown section header: ", "`$section_header'") if $opt_S; } else { - if ($s->{lastsh} >= $sections{$section_header}) { - $s->warning("section header ", - "`$section_header' in wrong order") if $opt_S; - } $s->{shseen}->{$section_header} = 1; - $s->{lastsh} = $sections{$section_header}; } $s->{current_section_header} = $section_header; @@ -452,7 +434,7 @@ sub process_line } } - if ($s->{in_section} == SECTION_NAME) { + if ($s->{current_section_header} eq "NAME") { if (/^\.Nm\s+(\S+)/o) { $s->{names}{$1.$s->{sec}} = 1; } |