summaryrefslogtreecommitdiff
path: root/doc/doc-docbook/Tidytxt
diff options
context:
space:
mode:
authorPhilip Hazel <ph10@hermes.cam.ac.uk>2007-08-29 13:37:28 +0000
committerPhilip Hazel <ph10@hermes.cam.ac.uk>2007-08-29 13:37:28 +0000
commit595028e435015508f214f06456874a8882bfd54e (patch)
tree644a398a8fa2f45d5d31aafc85f25a6b689cd450 /doc/doc-docbook/Tidytxt
parent86058a4a205e6a6b06190b8ccb827c6dbdced1bb (diff)
Update documentation for 4.68 release.
Diffstat (limited to 'doc/doc-docbook/Tidytxt')
-rwxr-xr-xdoc/doc-docbook/Tidytxt16
1 files changed, 13 insertions, 3 deletions
diff --git a/doc/doc-docbook/Tidytxt b/doc/doc-docbook/Tidytxt
index 5e19c37f4..bdec3d73f 100755
--- a/doc/doc-docbook/Tidytxt
+++ b/doc/doc-docbook/Tidytxt
@@ -1,17 +1,27 @@
#! /usr/bin/perl
-# $Cambridge: exim/doc/doc-docbook/Tidytxt,v 1.2 2006/02/01 11:01:01 ph10 Exp $
+# $Cambridge: exim/doc/doc-docbook/Tidytxt,v 1.3 2007/08/29 13:37:28 ph10 Exp $
# Script to tidy up the output of w3m when it makes a text file. First we
# convert sequences of blank lines into a single blank line, to get everything
# uniform. Then we go through and insert blank lines before chapter and
# sections, also converting chapter titles to uppercase.
+# We also have to do some character translation in the first pass. It seems
+# that xmlto now generates Unicode in its HTML pages. This gives three problems:
+# (1) It inserts the byte sequence C2 A0 (U+00A0) as a fixed-width space;
+# (2) It inserts a whole slew of "box drawing" characters round the heading.
+# (3) It uses U+25CF as its bullet character.
+
@lines = <>;
$lastwasblank = 0;
foreach $line (@lines)
{
+ $line =~ s/\x{c2}\x{a0}/ /g;
+ $line =~ s/\x{e2}\x{94}[\x{80}-\x{bf}]/-/g;
+ $line =~ s/\x{e2}\x{97}\x{8f}/*/g;
+
if ($line =~ /^\s*$/)
{
$line = "" if $lastwasblank;
@@ -26,13 +36,13 @@ foreach $line (@lines)
for ($i = 0; $i < scalar @lines; $i++)
{
$lines[$i] = "TABLE OF CONTENTS\n" if $lines[$i] =~ /^Table of Contents/;
- last if $lines[$i] =~ /^1. /;
+ last if $lines[$i] =~ /^1\. /;
}
# Find start of first chapter
for ($i++; $i < scalar @lines; $i++)
- { last if $lines[$i] =~ /^1. /; }
+ { last if $lines[$i] =~ /^1\. /; }
# Process the body. We can detect the starts of chapters and sections by
# looking for preceding and following blank lines, and then matching against