aboutsummaryrefslogtreecommitdiffstats
path: root/doc/genps.pl
diff options
context:
space:
mode:
Diffstat (limited to 'doc/genps.pl')
-rwxr-xr-xdoc/genps.pl18
1 files changed, 12 insertions, 6 deletions
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);