From 6ca419e7c56bfc854965c0d6cba81fc24cb527c3 Mon Sep 17 00:00:00 2001
From: "H. Peter Anvin" <hpa@zytor.com>
Date: Sun, 19 Apr 2009 17:24:54 -0700
Subject: doc: slightly tidy the copyright page of the manual.

---
 doc/genps.pl | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

(limited to 'doc/genps.pl')

diff --git a/doc/genps.pl b/doc/genps.pl
index 5517d844..6447564c 100755
--- a/doc/genps.pl
+++ b/doc/genps.pl
@@ -217,7 +217,8 @@ sub string2array($)
     my($s) = @_;
     my(@a) = ();
 
-    $s =~ s/ \- / $charcode{'endash'} /g;	# Replace " - " with en dash
+    $s =~ s/\B\-\-\B/$charcode{'emdash'}/g;
+    $s =~ s/\B\-\B/ $charcode{'endash'} /g;
 
     while ( $s =~ /^(\s+|\S+)(.*)$/ ) {
 	push(@a, [0,$1]);
@@ -594,11 +595,16 @@ unshift(@ptypes, @tocptypes); undef @tocptypes;
 #
 # Add copyright notice to the beginning
 #
-unshift(@paras,
-	[[0, $charcode{'copyright'}], [0, ' '], [0,$metadata{'year'}],
-	 [0, ' '], string2array($metadata{'author'})],
-	[string2array($metadata{'license'})]);
-unshift(@ptypes, 'norm', 'norm');
+@copyright_page =
+([[0, $charcode{'copyright'}],
+  [0, ' '], [0, $metadata{'year'}],
+  [0, ' '], string2array($metadata{'author'}),
+  [0, ' '], string2array($metadata{'copyright_tail'})],
+ [string2array($metadata{'license'})],
+ [string2array($metadata{'auxinfo'})]);
+
+unshift(@paras, @copyright_page);
+unshift(@ptypes, ('norm') x scalar(@copyright_page));
 
 $npara = scalar(@paras);
 
-- 
cgit