[nasm:nasm-2.15.xx] rdsrc.pl: allow code paragraphs up to 80 characters long

[nasm-bot for H. Peter Anvin]

Commit-ID:  8ce4a58b1a7e5a6e313a22d284acf69c2825b216
Gitweb:     http://repo.or.cz/w/nasm.git?a=commitdiff;h=8ce4a58b1a7e5a6e313a22d284acf69c2825b216
Author:     H. Peter Anvin <hpa at zytor.com>
AuthorDate: Fri, 17 Jul 2020 18:12:34 -0700
Committer:  H. Peter Anvin <hpa at zytor.com>
CommitDate: Fri, 17 Jul 2020 18:12:34 -0700

rdsrc.pl: allow code paragraphs up to 80 characters long

All the backends support code paragraphs 80+ characters wide (85 for
HTML, 90 for PDF) without overrunning the margins. Avoid the noise.

Signed-off-by: H. Peter Anvin <hpa at zytor.com>


---
 doc/rdsrc.pl | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/doc/rdsrc.pl b/doc/rdsrc.pl
index 447bb9d4..fff62ec5 100644
--- a/doc/rdsrc.pl
+++ b/doc/rdsrc.pl
@@ -660,11 +660,13 @@ sub write_txt {
       }
       print "$title\n";
     } elsif ($ptype eq "code") {
-      # Code paragraph. Emit each line with a seven character indent.
-      foreach $i (@$pname) {
-        warn "code line longer than 68 chars: $i\n" if length $i > 68;
-        print ' 'x7, $i, "\n";
-      }
+	# Code paragraph. Emit each line with a seven character indent.
+	my $maxlen = 80;
+	foreach $i (@$pname) {
+	    warn "code line longer than $maxlen chars: $i\n"
+		if ( length($i) > $maxlen );
+	    print ' 'x7, $i, "\n";
+	}
     } elsif ($ptype =~ /^(norm|bull|indt|bquo)$/) {
       # Ordinary paragraph, optionally indented. We wrap, with ragged
       # 75-char right margin and either 7 or 11 char left margin