From a8e6748a26fd0052a5b92ec50c7244f6b0336445 Mon Sep 17 00:00:00 2001
From: schwarze <schwarze@openbsd.org>
Date: Fri, 28 Apr 2017 14:11:01 +0000
Subject: [PATCH] Start deleting redundant features that are already covered by
 mandoc(1) -Tlint, as suggested by the upstream author and maintainer Thomas
 Klausner <wiz @ NetBSD>. The ultimate goal is to get rid of mdoclint and
 integrate all its functionality into mandoc, but that will still take some
 time, so simplify mdoclint for the time being. jmc@ "go ahead", OK wiz@, also
 committed upstream

This first patch removes the AUTHORS check that mandoc does, too.
---
 regress/usr.bin/mdoclint/mdoclint   | 27 ++++++---------------------
 regress/usr.bin/mdoclint/mdoclint.1 | 14 ++++----------
 2 files changed, 10 insertions(+), 31 deletions(-)

diff --git a/regress/usr.bin/mdoclint/mdoclint b/regress/usr.bin/mdoclint/mdoclint
index dd9e2e9a475..a7e281df800 100644
--- a/regress/usr.bin/mdoclint/mdoclint
+++ b/regress/usr.bin/mdoclint/mdoclint
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 #
-# $OpenBSD: mdoclint,v 1.56 2017/04/27 22:27:43 schwarze Exp $
+# $OpenBSD: mdoclint,v 1.57 2017/04/28 14:11:01 schwarze Exp $
 # $NetBSD: mdoclint,v 1.65 2017/04/25 13:17:38 wiz Exp $
 #
 # Copyright (c) 2001-2017 Thomas Klausner
@@ -41,11 +41,10 @@ use constant {
 	NETBSD => 0,
 	SECTION_NAME => 2,
 	SECTION_SEE_ALSO => 3,
-	SECTION_AUTHORS => 4
 };
 
 use vars qw(
-	$opt_A $opt_a $opt_D $opt_d $opt_e $opt_F $opt_f $opt_H $opt_h $opt_l
+	$opt_a $opt_D $opt_d $opt_e $opt_F $opt_f $opt_H $opt_h $opt_l
 	$opt_m
 	$opt_n $opt_o $opt_P $opt_p $opt_r $opt_S $opt_s $opt_v $opt_w
 	$opt_X $opt_x
@@ -54,16 +53,15 @@ use vars qw(
 
 my $arch=`uname -m`;
 chomp($arch);
-my $options="AaDdeFfHhlmnoPprSsvwXx";
+my $options="aDdeFfHhlmnoPprSsvwXx";
 
 sub usage
 	{
-	my $default = OPENBSD ? "-AaDdfmnoPprSsXx" : "-AaDdeflmnoPprSsXx";
+	my $default = OPENBSD ? "-aDdfmnoPprSsXx" : "-aDdeflmnoPprSsXx";
 
 	print STDERR <<"EOF";
 mdoclint: verify man page correctness
 usage:	mdoclint [-$options] file ...
-	-A	warn about missing .An in AUTHORS section
 	-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)
@@ -255,12 +253,12 @@ sub handle_options
 	$opt_h and usage();
 
 	# default to all warnings if no flag is set
-	unless ($opt_A or $opt_a or $opt_D or $opt_d or $opt_e
+	unless ($opt_a or $opt_D or $opt_d or $opt_e
 		or $opt_f or $opt_H or $opt_l
 		or $opt_m or $opt_n
 		or $opt_o or $opt_P or $opt_p or $opt_r
 		or $opt_S or $opt_s or $opt_X or $opt_x) {
-		$opt_A = $opt_a = $opt_D = $opt_d = $opt_f = $opt_m =
+		$opt_a = $opt_D = $opt_d = $opt_f = $opt_m =
 		    $opt_n = $opt_o = $opt_P = $opt_p = $opt_r = $opt_S =
 		    $opt_s = $opt_X = $opt_x = 1;
 		$opt_e = $opt_l = 1 if NETBSD;
@@ -316,7 +314,6 @@ sub new
 		sasection => 0,
 		saname => '',
 		sarest => ',',
-		inauthors => 0,
 		in_section => 0,
 		inliteral => 0,
 		shseen => {},
@@ -379,12 +376,6 @@ sub end_of_section
 		# to avoid a second warning at EOF
 		$s->{sarest} = "";
 	}
-
-	if ($s->{in_section} == SECTION_AUTHORS) {
-	    if (!$s->{an_found}) {
-		$s->warning("missing .An in AUTHORS section") if $opt_A;
-	    }
-	}
 }
 
 sub set_section_header
@@ -398,8 +389,6 @@ sub set_section_header
 		$s->{in_section} = SECTION_NAME;
 	} elsif ($section_header eq 'SEE ALSO') {
 		$s->{in_section} = SECTION_SEE_ALSO;
-	} elsif ($section_header eq 'AUTHORS') {
-		$s->{in_section} = SECTION_AUTHORS;
 	} else {
 		$s->{in_section} = 0;
 	}
@@ -527,10 +516,6 @@ sub process_line
 			}
 			$s->{sarest} = "";
 		}
-	} elsif ($s->{in_section} == SECTION_AUTHORS) {
-		if (/^\.An / && not /^\.An -(no|)split/) {
-			$s->{an_found} = 1;
-		}
 	}
 
 	if (/^\.Fn.*,.+/o) {
diff --git a/regress/usr.bin/mdoclint/mdoclint.1 b/regress/usr.bin/mdoclint/mdoclint.1
index 2b5a87dfc6d..e71bf3a6ba1 100644
--- a/regress/usr.bin/mdoclint/mdoclint.1
+++ b/regress/usr.bin/mdoclint/mdoclint.1
@@ -1,4 +1,4 @@
-.\"	$OpenBSD: mdoclint.1,v 1.16 2013/08/21 13:22:03 jmc Exp $
+.\"	$OpenBSD: mdoclint.1,v 1.17 2017/04/28 14:11:01 schwarze Exp $
 .\" $NetBSD: mdoclint.1,v 1.13 2013/08/21 11:22:15 wiz Exp $
 .\"
 .\" Copyright (c) 2001-2013 Thomas Klausner
@@ -25,7 +25,7 @@
 .\" ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 .\" POSSIBILITY OF SUCH DAMAGE.
 .\"
-.Dd $Mdocdate: August 21 2013 $
+.Dd $Mdocdate: April 28 2017 $
 .Dt MDOCLINT 1
 .Os
 .Sh NAME
@@ -33,7 +33,7 @@
 .Nd man page verifier
 .Sh SYNOPSIS
 .Nm
-.Op Fl AaDdeFfHhlmnoPprSsvwXx
+.Op Fl aDdeFfHhlmnoPprSsvwXx
 .Ar
 .Sh DESCRIPTION
 .Nm
@@ -41,18 +41,12 @@ is a man page verifier.
 It tries to automatically find as many common
 errors that occur when writing man pages as possible.
 If no flags are given,
-.Fl AaDdfmnoPprSsXx
+.Fl aDdfmnoPprSsXx
 is assumed (that is, everything except
 .Fl eFHhlvw ) .
 .Pp
 The options are as follows:
 .Bl -tag -width Ds
-.It Fl A
-Warn if the
-.Dq .An
-macro (author) markup is not used in the
-.Sx AUTHORS
-section.
 .It Fl a
 Warn about some possible problems in the
 .Sx SEE ALSO
-- 
2.20.1