syncing with HEAD some more

(This used to be commit 805a89fbb771659ce9d397daad59f47d8b5fefcc)

5 files changed, 0 insertions, 923 deletions

diff --git a/docs/docbook/scripts/README.ldp_print b/docs/docbook/scripts/README.ldp_print
deleted file mode 100644
index 8d61a85534..0000000000
--- a/docs/docbook/scripts/README.ldp_print
+++ /dev/null
@@ -1,60 +0,0 @@
-
-######################################################################
-    ldp_print -  print tool/script for DocBook SGML/XML documents 
-######################################################################
-
-This process/script is used in the production environment for the
-LDP.  It relies on the HTMLDOC software package (GPL'ed) which can be
-obtained from the Easy Software Products (c) web site:
-
-        http://www.easysw.com/htmldoc/
-
-This process creates a PDF variant from the single-file HTML
-representation of a DocBook SGML (or XML) instance. The simple
-wrapper script (ldp_print) assumes that the file was created using
-{open}jade in a manner similar to:
-
-        jade -t sgml -i html -V nochunks -d $style $fname > $fname.html
-
-Give the script the filename as an argument. It will then parse the
-file into 'title.html' and 'body.html' and send each to htmldoc (as
-the corresponding title page and body of the document).
-
-
-CAVEATS
-=======
-
-o  Assumes perl is in /usr/bin; adjust if necessary
-
-o  You may need to specify where the htmldoc executable resides.
-   The script assumes it's within your $PATH.
-
-o  If you want Postscript as an output variant, uncomment the
-   appropriate lines (see below).
-
-o  Relies on output from a DocBook instance created via DSSSL/{open}jade!
-
-o  Cleans up (removes) the intermediate files it creates (but not the
-   PDF or Postscript files, obviously!)
-
-o  Works silently; PDF (PostScript) will be created in the same directory
-   as was specified for the input (single-file HTML) file.
-
-o  Provided without warranty or support!
-
-o  I ran into a problem with htmldoc v1.8.8 which required a source
-   code change (I was getting a core dump from the htmldoc process).
-   Here is the change required:
-
-	htmldoc/ps-pdf.cxx :
-	3662,3665d3661
-	<      /* gjf = 11Oct2000 */
-	<      if( temprow == NULL )
-	<          break;
-	< 
-
-
-====
-gferg (at) sgi.com / Ferg
-11 Jan 2000
-
diff --git a/docs/docbook/scripts/collateindex.pl b/docs/docbook/scripts/collateindex.pl
deleted file mode 100644
index fd757edb32..0000000000
--- a/docs/docbook/scripts/collateindex.pl
+++ /dev/null
@@ -1,595 +0,0 @@
-# -*- Perl -*-

-#

-

-use Getopt::Std;

-

-$usage = "Usage: $0 <opts> file

-Where <opts> are:

-       -p        Link to points in the document.  The default is to link

-                 to the closest containing section.

-       -g        Group terms with IndexDiv based on the first letter 

-                 of the term (or its sortas attribute).

-                 (This probably doesn't handle i10n particularly well)

-       -s name   Name the IndexDiv that contains symbols.  The default

-                 is 'Symbols'.  Meaningless if -g is not used.

-       -t name   Title for the index.

-       -P file   Read a preamble from file.  The content of file will

-                 be inserted before the <index> tag.

-       -i id     The ID for the <index> tag.

-       -o file   Output to file. Defaults to stdout.

-       -S scope  Scope of the index, must be 'all', 'local', or 'global'.

-                 If unspecified, 'all' is assumed.

-       -I scope  The implied scope, must be 'all', 'local', or 'global'.

-                 IndexTerms which do not specify a scope will have the

-                 implied scope.  If unspecified, 'all' is assumed.

-       -x        Make a SetIndex.

-       -f        Force the output file to be written, even if it appears

-                 to have been edited by hand.

-       -N        New index (generates an empty index file).

-       file      The file containing index data generated by Jade

-                 with the DocBook HTML Stylesheet.\n";

-

-die $usage if ! getopts('Dfgi:NpP:s:o:S:I:t:x');

-

-$linkpoints   = $opt_p;

-$lettergroups = $opt_g;

-$symbolsname  = $opt_s || "Symbols";

-$title        = $opt_t;

-$preamble     = $opt_P;

-$outfile      = $opt_o || '-';

-$indexid      = $opt_i;

-$scope        = uc($opt_S) || 'ALL';

-$impliedscope = uc($opt_I) || 'ALL';

-$setindex     = $opt_x;

-$forceoutput  = $opt_f;

-$newindex     = $opt_N;

-$debug        = $opt_D;

-

-$indextag     = $setindex ? 'setindex' : 'index';

-

-if ($newindex) {

-    safe_open(*OUT, $outfile);

-    if ($indexid) {

-	print OUT "<$indextag id='$indexid'>\n\n";

-    } else {

-	print OUT "<$indextag>\n\n";

-    }

-

-    print OUT "<!-- This file was produced by collateindex.pl.         -->\n";

-    print OUT "<!-- Remove this comment if you edit this file by hand! -->\n";

-

-    print OUT "</$indextag>\n";

-    exit 0;

-}

-

-$dat = shift @ARGV || die $usage;

-die "$0: cannot find $dat.\n" if ! -f $dat;

-

-%legal_scopes = ('ALL' => 1, 'LOCAL' => 1, 'GLOBAL' => 1);

-if ($scope && !$legal_scopes{$scope}) {

-    die "Invalid scope.\n$usage\n";

-}

-if ($impliedscope && !$legal_scopes{$impliedscope}) {

-    die "Invalid implied scope.\n$usage\n";

-}

-

-@term = ();

-%id   = ();

-

-$termcount = 0;

-

-print STDERR "Processing $dat...\n";

-

-# Read the index file, creating an array of objects.  Each object 

-# represents and indexterm and has fields for the content of the

-# indexterm

-

-open (F, $dat);

-while (<F>) {

-    chop;

-

-    if (/^\/indexterm/i) {

-	push (@term, $idx);

-	next;

-    }

-

-    if (/^indexterm (.*)$/i) {

-	$termcount++;

-	$idx = {};

-	$idx->{'zone'} = {};

-	$idx->{'href'} = $1;

-	$idx->{'count'} = $termcount;

-	$idx->{'scope'} = $impliedscope;

-	next;

-    }

-

-    if (/^indexpoint (.*)$/i) {

-	$idx->{'hrefpoint'} = $1;

-	next;

-    }

-

-    if (/^title (.*)$/i) {

-	$idx->{'title'} = $1;

-	next;

-    }

-

-    if (/^primary[\[ ](.*)$/i) {

-	if (/^primary\[(.*?)\] (.*)$/i) {

-	    $idx->{'psortas'} = $1;

-	    $idx->{'primary'} = $2;

-	} else {

-	    $idx->{'psortas'} = $1;

-	    $idx->{'primary'} = $1;

-	}

-	next;

-    }

-

-    if (/^secondary[\[ ](.*)$/i) {

-	if (/^secondary\[(.*?)\] (.*)$/i) {

-	    $idx->{'ssortas'} = $1;

-	    $idx->{'secondary'} = $2;

-	} else {

-	    $idx->{'ssortas'} = $1;

-	    $idx->{'secondary'} = $1;

-	}

-	next;

-    }

-

-    if (/^tertiary[\[ ](.*)$/i) {

-	if (/^tertiary\[(.*?)\] (.*)$/i) {

-	    $idx->{'tsortas'} = $1;

-	    $idx->{'tertiary'} = $2;

-	} else {

-	    $idx->{'tsortas'} = $1;

-	    $idx->{'tertiary'} = $1;

-	}

-	next;

-    }

-

-    if (/^see (.*)$/i) {

-	$idx->{'see'} = $1;

-	next;

-    }

-

-    if (/^seealso (.*)$/i) {

-	$idx->{'seealso'} = $1;

-	next;

-    }

-

-    if (/^significance (.*)$/i) {

-	$idx->{'significance'} = $1;

-	next;

-    }

-

-    if (/^class (.*)$/i) {

-	$idx->{'class'} = $1;

-	next;

-    }

-

-    if (/^scope (.*)$/i) {

-	$idx->{'scope'} = uc($1);

-	next;

-    }

-

-    if (/^startref (.*)$/i) {

-	$idx->{'startref'} = $1;

-	next;

-    }

-

-    if (/^id (.*)$/i) {

-	$idx->{'id'} = $1;

-	$id{$1} = $idx;

-	next;

-    }

-

-    if (/^zone (.*)$/i) {

-	my($href) = $1;

-	$_ = scalar(<F>);

-	chop;

-	die "Bad zone: $_\n" if !/^title (.*)$/i;

-	$idx->{'zone'}->{$href} = $1;

-	next;

-    }

-

-    die "Unrecognized: $_\n";

-}

-close (F);

-

-print STDERR "$termcount entries loaded...\n";

-

-# Fixup the startrefs...

-# In DocBook, STARTREF is a #CONREF attribute; support this by copying

-# all of the fields from the indexterm with the id specified by STARTREF

-# to the indexterm that has the STARTREF.

-foreach $idx (@term) {

-    my($ididx, $field);

-    if ($idx->{'startref'}) {

-	$ididx = $id{$idx->{'startref'}};

-	foreach $field ('primary', 'secondary', 'tertiary', 'see', 'seealso',

-		        'psortas', 'ssortas', 'tsortas', 'significance',

-		        'class', 'scope') {

-	    $idx->{$field} = $ididx->{$field};

-	}

-    }

-}

-

-# Sort the index terms

-@term = sort termsort @term;

-

-# Move all of the non-alphabetic entries to the front of the index.

-@term = sortsymbols(@term);

-

-safe_open(*OUT, $outfile);

-

-# Write the index...

-if ($indexid) {

-    print OUT "<$indextag id='$indexid'>\n\n";

-} else {

-    print OUT "<$indextag>\n\n";

-}

-

-print OUT "<!-- This file was produced by collateindex.pl.         -->\n";

-print OUT "<!-- Remove this comment if you edit this file by hand! -->\n";

-

-print OUT "<!-- ULINK is abused here.

-      

-      The URL attribute holds the URL that points from the index entry

-      back to the appropriate place in the output produced by the HTML

-      stylesheet. (It's much easier to calculate this URL in the first

-      pass.)

-

-      The Role attribute holds the ID (either real or manufactured) of

-      the corresponding INDEXTERM.  This is used by the print backends

-      to produce page numbers.

-

-      The entries below are sorted and collated into the correct order.

-      Duplicates may be removed in the HTML backend, but in the print

-      backends, it is impossible to suppress duplicate pages or coalesce

-      sequences of pages into a range.

--->\n\n";

-

-print OUT "<title>$title</title>\n\n" if $title;

-

-$last = {};     # the last indexterm we processed

-$first = 1;     # this is the first one

-$group = "";    # we're not in a group yet

-$lastout = "";  # we've not put anything out yet

-

-foreach $idx (@term) {

-    next if $idx->{'startref'}; # no way to represent spans...

-    next if ($idx->{'scope'} eq 'LOCAL') && ($scope eq 'GLOBAL');

-    next if ($idx->{'scope'} eq 'GLOBAL') && ($scope eq 'LOCAL');

-    next if &same($idx, $last); # suppress duplicates

-

-    $termcount--;

-

-    # If primary changes, output a whole new index term, otherwise just

-    # output another secondary or tertiary, as appropriate.  We know from

-    # sorting that the terms will always be in the right order.

-    if (!&tsame($last, $idx, 'primary')) { 

-	print "DIFF PRIM\n" if $debug;

-	&end_entry() if not $first;

-

-	if ($lettergroups) {

-	    # If we're grouping, make the right indexdivs

-	    $letter = $idx->{'psortas'};

-	    $letter = $idx->{'primary'} if !$letter;

-	    $letter = uc(substr($letter, 0, 1));

-	    

-	    # symbols are a special case

-	    if (($letter lt 'A') || ($letter gt 'Z')) {

-		if (($group eq '')

-		    || (($group ge 'A') && ($group le 'Z'))) {

-		    print OUT "</indexdiv>\n" if !$first;

-		    print OUT "<indexdiv><title>$symbolsname</title>\n\n";

-		    $group = $letter;

-		}

-	    } elsif (($group eq '') || ($group ne $letter)) {

-		print OUT "</indexdiv>\n" if !$first;

-		print OUT "<indexdiv><title>$letter</title>\n\n";

-		$group = $letter;

-	    }

-	}

-

-	$first = 0; # there can only be on first ;-)

-

-	print OUT "<indexentry>\n";

-	print OUT "  <primaryie>", $idx->{'primary'};

-	$lastout = "primaryie";

-

- 	if ($idx->{'secondary'}) {

-	    print OUT "\n  </primaryie>\n";

-	    print OUT "  <secondaryie>", $idx->{'secondary'};

-	    $lastout = "secondaryie";

-	};

-

-	if ($idx->{'tertiary'}) {

-	    print OUT "\n  </secondaryie>\n";

-	    print OUT "  <tertiaryie>", $idx->{'tertiary'};

-	    $lastout = "tertiaryie";

-	}

-    } elsif (!&tsame($last, $idx, 'secondary')) {

-	print "DIFF SEC\n" if $debug;

-

-	print OUT "\n  </$lastout>\n" if $lastout;

-

-	print OUT "  <secondaryie>", $idx->{'secondary'};

-	$lastout = "secondaryie";

-	if ($idx->{'tertiary'}) {

-	    print OUT "\n  </secondaryie>\n";

-	    print OUT "  <tertiaryie>", $idx->{'tertiary'};

-	    $lastout = "tertiaryie";

-	}

-    } elsif (!&tsame($last, $idx, 'tertiary')) {

-	print "DIFF TERT\n" if $debug;

-

-	print OUT "\n  </$lastout>\n" if $lastout;

-

-	if ($idx->{'tertiary'}) {

-	    print OUT "  <tertiaryie>", $idx->{'tertiary'};

-	    $lastout = "tertiaryie";

-	}

-    }

-

-    &print_term($idx);

-    

-    $last = $idx;

-}

-

-# Termcount is > 0 iff some entries were skipped.

-print STDERR "$termcount entries ignored...\n";

-

-&end_entry();

-

-print OUT "</indexdiv>\n" if $lettergroups;

-print OUT "</$indextag>\n";

-

-close (OUT);

-

-print STDERR "Done.\n";

-

-sub same {

-    my($a) = shift;

-    my($b) = shift;

-

-    my($aP) = $a->{'psortas'} || $a->{'primary'};   

-    my($aS) = $a->{'ssortas'} || $a->{'secondary'}; 

-    my($aT) = $a->{'tsortas'} || $a->{'tertiary'};  

-	                                            

-    my($bP) = $b->{'psortas'} || $b->{'primary'};   

-    my($bS) = $b->{'ssortas'} || $b->{'secondary'}; 

-    my($bT) = $b->{'tsortas'} || $b->{'tertiary'};  

-

-    my($same);

-

-    $aP =~ s/^\s*//; $aP =~ s/\s*$//; $aP = uc($aP);

-    $aS =~ s/^\s*//; $aS =~ s/\s*$//; $aS = uc($aS);

-    $aT =~ s/^\s*//; $aT =~ s/\s*$//; $aT = uc($aT);

-    $bP =~ s/^\s*//; $bP =~ s/\s*$//; $bP = uc($bP);

-    $bS =~ s/^\s*//; $bS =~ s/\s*$//; $bS = uc($bS);

-    $bT =~ s/^\s*//; $bT =~ s/\s*$//; $bT = uc($bT);

-

-#    print "[$aP]=[$bP]\n";

-#    print "[$aS]=[$bS]\n";

-#    print "[$aT]=[$bT]\n";

-

-    # Two index terms are the same if:

-    # 1. the primary, secondary, and tertiary entries are the same

-    #    (or have the same SORTAS)

-    # AND

-    # 2. They occur in the same titled section

-    # AND

-    # 3. They point to the same place

-    #

-    # Notes: Scope is used to suppress some entries, but can't be used

-    #          for comparing duplicates.

-    #        Interpretation of "the same place" depends on whether or

-    #          not $linkpoints is true.

-

-    $same = (($aP eq $bP)

-	     && ($aS eq $bS)

-	     && ($aT eq $bT)

-	     && ($a->{'title'} eq $b->{'title'})

-	     && ($a->{'href'} eq $b->{'href'}));

-

-    # If we're linking to points, they're only the same if they link

-    # to exactly the same spot.  (surely this is redundant?)

-    $same = $same && ($a->{'hrefpoint'} eq $b->{'hrefpoint'})

-	if $linkpoints;

-

-    $same;

-}

-

-sub tsame {

-    # Unlike same(), tsame only compares a single term

-    my($a) = shift;

-    my($b) = shift;

-    my($term) = shift;

-    my($sterm) = substr($term, 0, 1) . "sortas";

-    my($A, $B);

-

-    $A = $a->{$sterm} || $a->{$term};

-    $B = $b->{$sterm} || $b->{$term};

-

-    $A =~ s/^\s*//; $A =~ s/\s*$//; $A = uc($A);

-    $B =~ s/^\s*//; $B =~ s/\s*$//; $B = uc($B);

-

-    return $A eq $B;

-}

-

-sub end_entry {

-    # End any open elements...

-    print OUT "\n  </$lastout>\n" if $lastout;

-    print OUT "</indexentry>\n\n";

-    $lastout = "";

-}

-

-sub print_term {

-    # Print out the links for an indexterm.  There can be more than

-    # one if the term has a ZONE that points to more than one place.

-    # (do we do the right thing in that case?)

-    my($idx) = shift;

-    my($key, $indent, @hrefs);

-    my(%href) = ();

-    my(%phref) = ();

-

-    $indent = "    ";

-

-    if ($idx->{'see'}) {

-	# it'd be nice to make this a link...

-	if ($lastout) {

-	    print OUT "\n  </$lastout>\n";

-	    $lastout = "";

-	}

-	print OUT $indent, "<seeie>", $idx->{'see'}, "</seeie>\n";

-	return;

-    }

-

-    if ($idx->{'seealso'}) {

-	# it'd be nice to make this a link...

-	if ($lastout) {

-	    print OUT "\n  </$lastout>\n";

-	    $lastout = "";

-	}

-	print OUT $indent, "<seealsoie>", $idx->{'seealso'}, "</seealsoie>\n";

-	return;

-    }

-

-    if (keys %{$idx->{'zone'}}) {

-	foreach $key (keys %{$idx->{'zone'}}) {

-	    $href{$key} = $idx->{'zone'}->{$key};

-	    $phref{$key} = $idx->{'zone'}->{$key};

-	}

-    } else {

-	$href{$idx->{'href'}} = $idx->{'title'};

-	$phref{$idx->{'href'}} = $idx->{'hrefpoint'};

-    }

-

-    # We can't use <LINK> because we don't know the ID of the term in the

-    # original source (and, in fact, it might not have one).

-    print OUT ",\n";

-    @hrefs = keys %href;

-    while (@hrefs) {

-	my($linkend) = "";

-	my($role) = "";

-	$key = shift @hrefs;

-	if ($linkpoints) {

-	    $linkend = $phref{$key};

-	} else {

-	    $linkend = $key;

-	}

-

-	$role = $linkend;

-	$role = $1 if $role =~ /\#(.*)$/;

-

-	print OUT $indent;

-	print OUT "<ulink url=\"$linkend\" role=\"$role\">";

-	print OUT "<emphasis>" if ($idx->{'significance'} eq 'PREFERRED');

-	print OUT $href{$key};

-	print OUT "</emphasis>" if ($idx->{'significance'} eq 'PREFERRED');

-	print OUT "</ulink>";

-    }

-}

-

-sub termsort {

-    my($aP) = $a->{'psortas'} || $a->{'primary'};   

-    my($aS) = $a->{'ssortas'} || $a->{'secondary'}; 

-    my($aT) = $a->{'tsortas'} || $a->{'tertiary'};  

-    my($ap) = $a->{'count'};

-	                                            

-    my($bP) = $b->{'psortas'} || $b->{'primary'};   

-    my($bS) = $b->{'ssortas'} || $b->{'secondary'}; 

-    my($bT) = $b->{'tsortas'} || $b->{'tertiary'};  

-    my($bp) = $b->{'count'};

-

-    $aP =~ s/^\s*//; $aP =~ s/\s*$//; $aP = uc($aP);

-    $aS =~ s/^\s*//; $aS =~ s/\s*$//; $aS = uc($aS);

-    $aT =~ s/^\s*//; $aT =~ s/\s*$//; $aT = uc($aT);

-    $bP =~ s/^\s*//; $bP =~ s/\s*$//; $bP = uc($bP);

-    $bS =~ s/^\s*//; $bS =~ s/\s*$//; $bS = uc($bS);

-    $bT =~ s/^\s*//; $bT =~ s/\s*$//; $bT = uc($bT);

-

-    if ($aP eq $bP) {

-	if ($aS eq $bS) {

-	    if ($aT eq $bT) {

-		# make sure seealso's always sort to the bottom

-		return 1 if ($a->{'seealso'});

-		return -1  if ($b->{'seealso'});

-		# if everything else is the same, keep these elements

-		# in document order (so the index links are in the right

-		# order)

-		return $ap <=> $bp;

-	    } else {

-		return $aT cmp $bT;

-	    }

-	} else {

-	    return $aS cmp $bS;

-	}

-    } else {

-	return $aP cmp $bP;

-    }

-}

-

-sub sortsymbols {

-    my(@term) = @_;

-    my(@new) = ();

-    my(@sym) = ();

-    my($letter);

-    my($idx);

-

-    # Move the non-letter things to the front.  Should digits be thier

-    # own group?  Maybe...

-    foreach $idx (@term) {

-	$letter = $idx->{'psortas'};

-	$letter = $idx->{'primary'} if !$letter;

-	$letter = uc(substr($letter, 0, 1));

-

-	if (($letter lt 'A') || ($letter gt 'Z')) {

-	    push (@sym, $idx);

-	} else {

-	    push (@new, $idx);

-	}

-    }

-

-    return (@sym, @new);

-}

-

-sub safe_open {

-    local(*OUT) = shift;

-    local(*F, $_);

-

-    if (($outfile ne '-') && (!$forceoutput)) {

-	my($handedit) = 1;

-	if (open (OUT, $outfile)) {

-	    while (<OUT>) {

-		if (/<!-- Remove this comment if you edit this file by hand! -->/){

-		    $handedit = 0;

-		    last;

-		}

-	    } 

-	    close (OUT);

-	} else {

-	    $handedit = 0;

-	}

-	

-	if ($handedit) {

-	    print "\n$outfile appears to have been edited by hand; use -f or\n";

-	    print "      change the output file.\n";

-	    exit 1;

-	}

-    }

-

-    open (OUT, ">$outfile") || die "$usage\nCannot write to $outfile.\n";

-

-    if ($preamble) { 

-	# Copy the preamble

-	if (open(F, $preamble)) {

-	    while (<F>) {

-		print OUT $_;

-	    }

-	    close(F);

-	} else {

-	    warn "$0: cannot open preamble $preamble.\n";

-	}

-    }

-}

diff --git a/docs/docbook/scripts/fix_print_html.lib b/docs/docbook/scripts/fix_print_html.lib
deleted file mode 100644
index e8a9aaa4c7..0000000000
--- a/docs/docbook/scripts/fix_print_html.lib
+++ /dev/null
@@ -1,172 +0,0 @@
-#
-# fix_print_html.lib
-#
-#   Dan Scott  / <dan.scott (at) acm.org>
-#   Ferg       / <gferg (at) sgi.com>
-#
-#   Used to prepare single-file HTML variant for PDF/Postscript creation
-#   thru htmldoc.
-#
-# log:
-#     16Oct2000 - initial entry <gferg (at) sgi.com>
-#     03Apr2001 - fix for <preface>
-#
-#
-
-sub fix_print_html {
-
-   my($in,$out,$ttl) = @_;
-
-   open(IN_FILE, "< $in") || do {
-        print "fix_print_html: cannot open $in: $!\n";
-        return 0;
-   };
-
-   my($buf,$ttl_buf) = '';
-   my($indx) = -1;
-   my($is_article) = 0;
-   while(<IN_FILE>) {
-
-         if( $indx == 1 ) {
-
-             # ignore everything until we see the chapter or sect
-             #
-             if( $_ =~ /CLASS="CHAP/i || $_ =~ /CLASS="PREF/i ) {
-
-                 $buf .= $_;
-                 $indx++;
-
-             } elsif( $_ =~ /CLASS="SECT/ || $_ =~ /CLASS="sect/ )  {
-
-                 $buf .= $_;
-                 $indx++;
-                 $is_article = 1;
-
-             } else {
-                 next;
-             }
-
-         } elsif( $indx == 0 ) {
-
-             # write out the title page file
-             #
-             if( $_ =~ /CLASS="TOC"/ ) {
-
-                 $ttl_buf .= "></DIV>\n</BODY>\n</HTML>\n"; 
-                 $ttl_buf =~ s/<\/H1\n/<\/H1\n><P><BR><BR\n/ms;
-                 
-                 open(TOC_FILE, "> $ttl") || do {
-                      print "fix_print_html: cannot open $ttl: $!\n";
-                      close(IN_FILE);
-                      return 0;
-                 };
-                 print TOC_FILE $ttl_buf;
-                 close(TOC_FILE);
-                 $ttl_buf = '';
-                 $indx++;
-
-             } else {
-                $ttl_buf .= $_;
-             }
-
-         } elsif( $indx < 0 ) {
-
-             # up to this point, both buffers get the line
-             #
-             if( $_ =~ /CLASS="TITLEPAGE"/ ) {
-
-                 $ttl_buf .= $_ . ">\n<P>\n<BR><BR><BR><BR>\n<\/P\n";
-                 $indx++;
-
-             } else {
-                 $buf .= $_;
-                 $ttl_buf .= $_;
-             }
-
-         } else {
-
-             $buf .= $_;
-         }
-   }
-   close(IN_FILE);
-
-   open(OUT_FILE, "> $out") || do {
-        print "fix_print_html: cannot open $out: $!\n";
-        return 0;
-   };
-
-
-   # make these corrections and write out the file
-   #
-
-   $buf =~ s/(\n><LI\n)><P\n(.*?)<\/P\n>/$1$2\n/gms;
-   $buf =~ s/(\n><LI\n><DIV\nCLASS="FORMALPARA"\n)><P\n(.*?)<\/P\n>/$1$2\n/gms;
-   $buf =~ s/(\n><LI\nSTYLE="[^\"]+"\n)><P\n(.*?)<\/P\n>/$1$2\n/gms;
-   if( $is_article == 0 ) {
-       $buf =~ s/(\nCLASS="SECT[TION\d]+"\n>)<H1\n(.*?)<\/H1/$1<H2\n$2<\/H2/gims;
-       $buf =~ s/(\nCLASS="SECT[TION\d]+"\n><HR>)<H1\n(.*?)<\/H1/$1<H2\n$2<\/H2/gims;
-   }
-   $buf =~ s/<H1(\nCLASS="INDEXDIV"\n)(.*?)<\/H1/<H2$1$2<\/H2/gims;
-   if( ($indx = rindex($buf, "<H1\n><A\nNAME=\"DOC-INDEX\"")) > -1 ) {
-       $buf = substr($buf, 0, $indx);
-       $buf .= "\n<\/BODY>\n<\/HTML>\n\n";
-   } elsif( ($indx = rindex($buf, "<H1\n><A\nNAME=\"doc-index\"")) > -1 ) {
-       $buf = substr($buf, 0, $indx);
-       $buf .= "\n<\/BODY>\n<\/HTML>\n\n";
-   }
-   $buf =~ s/\&\#13;//g;
-   $buf =~ s/\&\#60;/\&lt;/g;
-   $buf =~ s/\&\#62;/\&gt;/g;
-   $buf =~ s/\&\#8211;/\-/g;
-   $buf =~ s/WIDTH=\"\d\"//g;
-   $buf =~ s/><[\/]*TBODY//g;
-   $buf =~ s/><[\/]*THEAD//g;
-   $buf =~ s/TYPE=\"1\"\n//gim;
-
-   if( $is_article == 0 ) {
-
-       # for books...decrement the headers by 1 and then re-set the
-       # chapter level only to H1...
-       #
-       my($cnt,$j) = 0;
-       for($cnt=5; $cnt > 0; $cnt--) {
-           $j = $cnt + 1;
-           $buf =~ s/<H${cnt}/<H${j}/g;
-           $buf =~ s/<\/H${cnt}/<\/H${j}/g;
-       }
-
-       my(@l) = split(/\n/, $buf);
-       for( $cnt=0; $cnt < (@l + 0); $cnt++ ) {
-
-            if( $j == 1 ) {
-                if( $l[$cnt] =~ /<DIV/ ) {
-                    $j = 0;
-                    next;
-                }
-                $l[$cnt] =~ s/<H2/<H1/g;
-                $l[$cnt] =~ s/<\/H2/<\/H1/g;
-            }
-            if( $l[$cnt] =~ /^CLASS=\"CHAP/i
-                ||
-                $l[$cnt] =~ /^CLASS=\"PREF/i ) {
-                $j = 1;
-            }
-       }
-
-       $buf = join("\n", @l);
-
-   }
-   $buf =~ s/><DIV\nCLASS="\w+"\n//gms;
-   $buf =~ s/><\/DIV\n//gms;
-   $buf =~ s/(><LI\n)><P\n(.*?)<\/P\n>(<\/LI\n)/$1$2$3/gms;
-
-   print OUT_FILE $buf;
-   close(OUT_FILE);
-
-   return 1;
-}
-
-# Return true from package include
-#
-1;
-
diff --git a/docs/docbook/scripts/ldp_print b/docs/docbook/scripts/ldp_print
deleted file mode 100755
index 70bb801def..0000000000
--- a/docs/docbook/scripts/ldp_print
+++ /dev/null
@@ -1,71 +0,0 @@
-#!/usr/bin/perl -w
-#
-# usage: ldp_print <single_file.html>
-#
-# Creates a PDF variant of a single-file HTML representation of a
-# DocBook SGML (or XML) instance. This simple wrapper assumes that
-# the file was created using {open}jade in a manner similar to:
-#
-#	jade -t sgml -i html -V nochunks -d $style $fname > $fname.html
-#
-# Give this script the filename as an argument. It will then parse
-# the file into 'title.html' and 'body.html' and send each to
-# htmldoc (as the corresponding title page and body of the document).
-#
-#
-# CAVEATS:
-#
-# Assumes perl is in /usr/bin; adjust if necessary
-#
-# You may need to specify where the htmldoc executable resides.
-# The script assumes it's within your $PATH.
-#
-# If you want Postscript as an output variant, uncomment the 
-# appropriate lines (see below).
-#
-# Relies on output from a DocBook instance created via DSSSL/{open}jade!
-#
-# Cleans up (removes) the intermediate files it creates (but not the
-# PDF or Postscript files, obviously!)
-#
-# Works silently; PDF (PostScript) will be created in the same directory
-# as was specified for the input (single-file HTML) file.
-#
-# Provided without warranty or support!
-#
-#	gferg@sgi.com / Ferg (used as part of the LDP production env)
-#
-
-use strict;
-push(@INC, "./");
-require 'fix_print_html.lib';
-
-if( $ARGV[0] eq '' || !(-r $ARGV[0]) ) {
-    die "\nusage: ldp_print <single_file.html>\n\n";
-}
-
-my($fname_wo_ext) = $ARGV[0];
-$fname_wo_ext =~ s/\.[\w]+$//;
-
-
-# create new files from single HTML file to use for print
-#
-&fix_print_html($ARGV[0], 'body.html', 'title.html');
-
-my($cmd) = "htmldoc --size universal -t pdf  -f ${fname_wo_ext}.pdf " .
-           "--firstpage p1 --titlefile title.html body.html";
-
-# For postscript output; append onto the above cmd string:
-#
-#          "; htmldoc --size universal -t ps -f -f ${fname_wo_ext}.ps " .
-#          "--firstpage p1 --titlefile title.html body.html";
-#
-system($cmd);
-die "\nldp_print: could not create ${fname_wo_ext}.pdf ($!)\n" if ($?);
-
-# cleanup
-#
-system("rm -f body.html title.html");
-
-exit(0);
-
diff --git a/docs/docbook/scripts/make-article.pl b/docs/docbook/scripts/make-article.pl
deleted file mode 100644
index d1f8c66832..0000000000
--- a/docs/docbook/scripts/make-article.pl
+++ /dev/null
@@ -1,25 +0,0 @@
-#!/usr/bin/perl
-
-$ignore = 0;
-
-print "<!DOCTYPE article PUBLIC \"-//OASIS//DTD DocBook V4.1//EN\">\n";
-
-while (<STDIN>) {
-
-	$_ =~ s/<chapter/<article/g;
-	$_ =~ s/<\/chapter/<\/article/g;
-
-	if ( $_ =~ '<articleinfo>') {
-		$ignore = 1;
-	}
-
-	if ( $_ =~ '</articleinfo>') {
-		$ignore = 0;
-		$_ = "";
-	}
-
-
-	if (! $ignore) { print "$_"; }
-
-
-}