diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2002-08-20 16:27:37 +0000 |
---|---|---|
committer | Jelmer Vernooij <jelmer@samba.org> | 2002-08-20 16:27:37 +0000 |
commit | ba0000db88699d0d31be5f38a62d111e4e6cbd87 (patch) | |
tree | 52b117b03a2cc9a89cf779194384b2e4b58000a8 /docs/docbook/scripts | |
parent | 3f82b441ae4cc64a29ce8961bc7a4da34084ad6c (diff) | |
download | samba-ba0000db88699d0d31be5f38a62d111e4e6cbd87.tar.gz samba-ba0000db88699d0d31be5f38a62d111e4e6cbd87.tar.bz2 samba-ba0000db88699d0d31be5f38a62d111e4e6cbd87.zip |
New (simpler) documentation system.
(This used to be commit d3b8ad67fc32c097d5aa783744192197cb3b3f26)
Diffstat (limited to 'docs/docbook/scripts')
-rw-r--r-- | docs/docbook/scripts/README.ldp_print | 60 | ||||
-rw-r--r-- | docs/docbook/scripts/collateindex.pl | 595 | ||||
-rw-r--r-- | docs/docbook/scripts/fix_print_html.lib | 172 | ||||
-rwxr-xr-x | docs/docbook/scripts/ldp_print | 71 | ||||
-rw-r--r-- | docs/docbook/scripts/make-article.pl | 25 |
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;/\</g; - $buf =~ s/\&\#62;/\>/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 "$_"; } - - -} |