summaryrefslogtreecommitdiffstats
path: root/doc
diff options
context:
space:
mode:
Diffstat (limited to 'doc')
-rw-r--r--doc/LinuxDocTools.pm634
-rw-r--r--doc/sbase/dist/fmt_html.pl32
-rw-r--r--doc/sbase/dist/fmt_latex2e.pl394
-rw-r--r--doc/sbase/dist/fmt_txt.pl178
-rwxr-xr-xdoc/sgml2html20
-rwxr-xr-xdoc/sgml2latex20
-rwxr-xr-xdoc/sgml2txt20
7 files changed, 1208 insertions, 90 deletions
diff --git a/doc/LinuxDocTools.pm b/doc/LinuxDocTools.pm
new file mode 100644
index 0000000..51d4a04
--- /dev/null
+++ b/doc/LinuxDocTools.pm
@@ -0,0 +1,634 @@
+#! /usr/bin/perl
+#
+# LinuxDocTools.pm
+#
+# $Id$
+#
+# LinuxDoc-Tools driver core. This contains all the basic functionality
+# we need to control all other components.
+#
+# © Copyright 1996, Cees de Groot.
+# © Copyright 2000, Taketoshi Sano
+#
+# THIS VERSION HAS BEEN HACKED FOR BIRD BY MARTIN MARES
+#
+package LinuxDocTools;
+
+require 5.004;
+use strict;
+
+=head1 NAME
+
+LinuxDocTools - SGML conversion utilities for LinuxDoc DTD.
+
+=head1 SYNOPSIS
+
+ use LinuxDocTools;
+ LinuxDocTools::init;
+ @files = LinuxDocTools::process_options ($0, @ARGV);
+ for $curfile (@files) {
+ LinuxDocTools::process_file ($curfile);
+ }
+
+=head1 DESCRIPTION
+
+The LinuxDocTools package encapsulates all the functionality offered by
+LinuxDoc-Tools. It is used, of course, by LinuxDoc-Tools;
+but the encapsulation should provide for a simple interface for other users as well.
+
+=head1 FUNCTIONS
+
+=over 4
+
+=cut
+
+use DirHandle;
+use File::Basename;
+use File::Find;
+use File::Copy;
+use FileHandle;
+use IPC::Open2;
+use Cwd;
+use LinuxDocTools::Lang;
+use LinuxDocTools::Utils qw(process_options usage cleanup trap_signals remove_tmpfiles create_temp);
+use LinuxDocTools::Vars;
+
+sub BEGIN
+{
+ #
+ # Make sure we're always looking here. Note that "use lib" adds
+ # on the front of the search path, so we first push dist, then
+ # site, so that site is searched first.
+ #
+ use lib "$main::DataDir/dist";
+ use lib "$main::DataDir/site";
+}
+
+=item LinuxDocTools::init
+
+Takes care of initialization of package-global variables (which are actually
+defined in L<LinuxDocTools::Vars>). The package-global variables are I<$global>,
+a reference to a hash containing numerous settings, I<%Formats>, a hash
+containing all the formats, and I<%FmtList>, a hash containing the currently
+active formats for help texts.
+
+Apart from this, C<LinuxDocTools::init> also finds all distributed and site-local
+formatting backends and C<require>s them.
+
+=cut
+
+sub init
+{
+ trap_signals;
+
+ #
+ # Register the ``global'' pseudoformat. Apart from the global settings,
+ # we also use $global to keep the global variable name space clean;
+ # everything that we need to provide to other modules is stuffed
+ # into $global.
+ #
+ $global = {};
+ $global->{NAME} = "global";
+ $global->{HELP} = "";
+ $global->{OPTIONS} = [
+ { option => "backend", type => "l",
+ 'values' => [ "html", "info", "latex",
+ "lyx", "rtf", "txt", "check" ],
+ short => "B" },
+ { option => "papersize", type => "l",
+ 'values' => [ "a4", "letter" ], short => "p" },
+ { option => "language", type => "l",
+ 'values' => [ @LinuxDocTools::Lang::Languages ], short => "l" },
+ { option => "charset", type => "l",
+ 'values' => [ "latin", "ascii", "nippon", "euc-kr" ], short => "c" },
+ { option => "style", type => "s", short => "S" },
+ { option => "tabsize", type => "i", short => "t" },
+# { option => "verbose", type => "f", short => "v" },
+ { option => "debug", type => "f", short => "d" },
+ { option => "define", type => "s", short => "D" },
+ { option => "include", type => "s", short => "i" },
+ { option => "pass", type => "s", short => "P" }
+ ];
+ $global->{backend} = "linuxdoc";
+ $global->{papersize} = "a4";
+ $global->{language} = "en";
+ $global->{charset} = "ascii";
+ $global->{style} = "";
+ $global->{tabsize} = 8;
+ $global->{verbose} = 0;
+ $global->{define} = "";
+ $global->{debug} = 0;
+ $global->{include} = "";
+ $global->{pass} = "";
+ $global->{InFiles} = [];
+ $Formats{$global->{NAME}} = $global; # All formats we know.
+ $FmtList{$global->{NAME}} = $global; # List of formats for help msgs.
+
+ # automatic language detection: disabled by default
+ # {
+ # my $lang;
+ # foreach $lang (@LinuxDocTools::Lang::Languages)
+ # {
+ # if (($ENV{"LC_ALL"} =~ /^$lang/i) ||
+ # ($ENV{"LC_CTYPE"} =~ /^$lang/i) ||
+ # ($ENV{"LANG"} =~ /^$lang/i)) {
+ # $global->{language} = Any2ISO($lang);
+ # }
+ # }
+ # }
+
+ #
+ # Used when the format is "global" (from sgmlcheck).
+ #
+ $global->{preNSGMLS} = sub {
+ $global->{NsgmlsOpts} .= " -s ";
+ $global->{NsgmlsPrePipe} = "cat $global->{file}";
+ };
+
+ #
+ # Build up the list of formatters.
+ #
+ my $savdir = cwd;
+ my %Locs;
+ chdir "$main::DataDir/dist";
+ my $dir = new DirHandle(".");
+ die "Unable to read directory $main::DataDir/dist: $!" unless defined($dir);
+ foreach my $fmt (grep(/^fmt_.*\.pl$/, $dir->read()))
+ {
+ $Locs{$fmt} = "dist";
+ }
+ $dir->close();
+ chdir "$main::DataDir/site";
+ $dir = new DirHandle(".");
+ die "Unable to read directory $main::DataDir/site: $!" unless defined($dir);
+ foreach my $fmt (grep(/^fmt_.*\.pl$/, $dir->read()))
+ {
+ $Locs{$fmt} = "site";
+ }
+ $dir->close();
+ foreach my $fmt (keys %Locs)
+ {
+ require $fmt;
+ }
+ chdir $savdir;
+}
+
+=item LinuxDocTools::process_options ($0, @ARGV)
+
+This function contains all initialization that is bound to the current
+invocation of LinuxDocTools. It looks in C<$0> to deduce the backend that
+should be used (ld2txt activates the I<txt> backend) and parses the
+options array. It returns an array of filenames it encountered during
+option processing.
+
+As a side effect, the environment variables I<SGMLDECL> and
+I<SGML_CATALOG_FILES> are modified.
+
+=cut
+
+sub process_options
+{
+ my $progname = shift;
+ my @args = @_;
+
+ #
+ # Deduce the format from the caller's file name
+ #
+ my ($format, $dummy1, $dummy2) = fileparse ($progname, "");
+ $global->{myname} = $format;
+ $format =~ s/sgml2*(.*)/$1/;
+
+ #
+ # check the option "--backend / -B"
+ #
+ if ($format eq "linuxdoc") {
+ my @backends = @args;
+ my $arg;
+ while (@backends) {
+ $arg = shift @backends;
+ if ($arg eq "-B") {
+ $arg = shift @backends;
+ $format = $arg;
+ last;
+ }
+ if ( $arg =~ s/--backend=(.*)/$1/ ) {
+ $format = $arg;
+ last;
+ }
+ }
+ }
+
+ $format = "global" if $format eq "check";
+ usage ("") if $format eq "linuxdoc";
+ $format = "latex2e" if $format eq "latex";
+ $FmtList{$format} = $Formats{$format} or
+ usage ("$global->{myname}: unknown format");
+ $global->{format} = $format;
+
+ #
+ # Parse all the options.
+ #
+ my @files = LinuxDocTools::Utils::process_options (@args);
+ $global->{language} = Any2ISO ($global->{language});
+ #
+ # check the number of given files
+ $#files > -1 || usage ("no filenames given");
+
+ #
+ # Setup the SGML environment.
+ # (Note that Debian package rewrite path to catalog of
+ # iso-entities using debian/rules so that it can use
+ # entities from sgml-data pacakge. debian/rules also
+ # removes iso-entites sub directory after doing make install.)
+ #
+ $ENV{SGML_CATALOG_FILES} .= (defined $ENV{SGML_CATALOG_FILES} ? ":" : "") .
+ "$main::prefix/share/sgml/entities/sgml-iso-entities-8879.1986/catalog";
+ $ENV{SGML_CATALOG_FILES} .= ":$main::DataDir/linuxdoc-tools.catalog";
+ $ENV{SGML_CATALOG_FILES} .= ":$main::/etc/sgml.catalog";
+ if (-f "$main::DataDir/dtd/$format.dcl")
+ {
+ $ENV{SGMLDECL} = "$main::DataDir/dtd/$format.dcl";
+ }
+ elsif (-f "$main::DataDir/dtd/$global->{style}.dcl")
+ {
+ $ENV{SGMLDECL} = "$main::DataDir/dtd/$global->{style}.dcl";
+ }
+ elsif (-f "$main::DataDir/dtd/sgml.dcl")
+ {
+ $ENV{SGMLDECL} = "$main::DataDir/dtd/sgml.dcl";
+ }
+
+ #
+ # OK. Give the list of files we distilled from the options
+ # back to the caller.
+ #
+ return @files;
+}
+
+=item LinuxDocTools::process_file
+
+With all the configuration done, this routine will take a single filename
+and convert it to the currently active backend format. The conversion is
+done in a number of steps in tight interaction with the currently active
+backend (see also L<LinuxDocTools::BackEnd>):
+
+=over
+
+=item 1. Backend: set NSGMLS options and optionally create a pre-NSGMLS pipe.
+
+=item 2. Here: Run the preprocessor to handle conditionals.
+
+=item 3. Here: Run NSGMLS.
+
+=item 4. Backend: run pre-ASP conversion.
+
+=item 5. Here: Run SGMLSASP.
+
+=item 6. Backend: run post-ASP conversion, generating the output.
+
+=back
+
+All stages are influenced by command-line settings, currently active format,
+etcetera. See the code for details.
+
+=cut
+
+sub process_file
+{
+ my $file = shift (@_);
+ my $saved_umask = umask;
+
+ print "Processing file $file\n";
+ umask 0077;
+
+ my ($filename, $filepath, $filesuffix) = fileparse ($file, "\.sgml");
+ my $tmpnam = $filepath . '/' . $filename;
+ $file = $tmpnam . $filesuffix;
+ -f $file || $file =~ /.*.sgml$/ || ($file .= '.sgml');
+ -f $file || ($file = $tmpnam . '.SGML');
+ -f $file || die "Cannot find $file\n";
+ $global->{filename} = $filename;
+ $global->{file} = $file;
+ $global->{filepath} = $filepath;
+
+ my $tmp = new FileHandle "<$file";
+ my $dtd;
+ while ( <$tmp> )
+ {
+ tr/A-Z/a-z/;
+ # check for [<!doctype ... system] type definition
+ if ( /<!doctype\s*(\w*)\s*system/ )
+ {
+ $dtd = $1;
+ last;
+ }
+ # check for <!doctype ... PUBLIC ... DTD ...
+ if ( /<!doctype\s*\w*\s*public\s*.*\/\/dtd\s*(\w*)/mi )
+ {
+ $dtd = $1;
+ last;
+ }
+ # check for <!doctype ...
+ # PUBLIC ... DTD ...
+ # (multi-line version)
+ if ( /<!doctype\s*(\w*)/ )
+ {
+ $dtd = "precheck";
+ next;
+ }
+ if ( /\s*public\s*.*\/\/dtd\s*(\w*)/ && $dtd eq "precheck" )
+ {
+ $dtd = $1;
+ last;
+ }
+ }
+ $tmp->close;
+ if ( $global->{debug} )
+ {
+ print "DTD: " . $dtd . "\n";
+ }
+ $global->{dtd} = $dtd;
+
+ # prepare temporary directory
+ my $tmpdir = $ENV{'TMPDIR'} || '/tmp';
+ $tmpdir = $tmpdir . '/' . 'linuxdoc-dir-' . $$;
+ mkdir ($tmpdir, 0700) ||
+ die " - temporary files can not be created, aborted - \n";
+
+ my $tmpbase = $global->{tmpbase} = $tmpdir . '/sgmltmp.' . $filename;
+ $ENV{"SGML_SEARCH_PATH"} .= ":$filepath";
+
+ #
+ # Set up the preprocessing command. Conditionals have to be
+ # handled here until they can be moved into the DTD, otherwise
+ # a validating SGML parser will choke on them.
+ #
+ # check if output option for latex is pdf or not
+ if ($global->{format} eq "latex2e")
+ {
+ if ($Formats{$global->{format}}{output} eq "pdf")
+ {
+ $global->{define} .= " pdflatex=yes";
+ }
+ }
+ #
+ my($precmd) = "|sgmlpre output=$global->{format} $global->{define}";
+
+ #
+ # You can hack $NsgmlsOpts here, etcetera.
+ #
+ $global->{NsgmlsOpts} .= "-D $main::prefix/share/sgml -D $main::DataDir";
+ $global->{NsgmlsOpts} .= "-i$global->{include}" if ($global->{include});
+ $global->{NsgmlsPrePipe} = "NOTHING";
+ if ( defined $Formats{$global->{format}}{preNSGMLS} )
+ {
+ $global->{NsgmlsPrePipe} = &{$Formats{$global->{format}}{preNSGMLS}};
+ }
+
+ #
+ # Run the prepocessor and nsgmls.
+ #
+ my ($ifile, $writensgmls);
+
+ if ($global->{NsgmlsPrePipe} eq "NOTHING")
+ {
+ $ifile = new FileHandle $file;
+ }
+ else
+ {
+ $ifile = new FileHandle "$global->{NsgmlsPrePipe}|";
+ }
+
+ create_temp("$tmpbase.1");
+ $writensgmls = new FileHandle
+ "$precmd|$main::progs->{NSGMLS} $global->{NsgmlsOpts} $ENV{SGMLDECL} >\"$tmpbase.1\"";
+ if ($global->{charset} eq "latin")
+ {
+ while (<$ifile>)
+ {
+ # Outline these commands later on - CdG
+ #change latin1 characters to SGML
+ #by Farzad Farid, adapted by Greg Hankins
+ s/À/\&Agrave;/g;
+ s/Á/\&Aacute;/g;
+ s/Â/\&Acirc;/g;
+ s/Ã/\&Atilde;/g;
+ s/Ä/\&Auml;/g;
+ s/Å/\&Aring;/g;
+ s/Æ/\&AElig;/g;
+ s/Ç/\&Ccedil;/g;
+ s/È/\&Egrave;/g;
+ s/É/\&Eacute;/g;
+ s/Ê/\&Ecirc;/g;
+ s/Ë/\&Euml;/g;
+ s/Ì/\&Igrave;/g;
+ s/Í/\&Iacute;/g;
+ s/Î/\&Icirc;/g;
+ s/Ï/\&Iuml;/g;
+ s/Ñ/\&Ntilde;/g;
+ s/Ò/\&Ograve;/g;
+ s/Ó/\&Oacute;/g;
+ s/Ô/\&Ocirc;/g;
+ s/Õ/\&Otilde;/g;
+ s/Ö/\&Ouml;/g;
+ s/Ø/\&Oslash;/g;
+ s/Ù/\&Ugrave;/g;
+ s/Ú/\&Uacute;/g;
+ s/Û/\&Ucirc;/g;
+ s/Ü/\&Uuml;/g;
+ s/Ý/\&Yacute;/g;
+ s/Þ/\&THORN;/g;
+ s/ß/\&szlig;/g;
+ s/à/\&agrave;/g;
+ s/á/\&aacute;/g;
+ s/â/\&acirc;/g;
+ s/ã/\&atilde;/g;
+ s/ä/\&auml;/g;
+ s/å/\&aring;/g;
+ s/æ/\&aelig;/g;
+ s/ç/\&ccedil;/g;
+ s/è/\&egrave;/g;
+ s/é/\&eacute;/g;
+ s/ê/\&ecirc;/g;
+ s/ë/\&euml;/g;
+ s/ì/\&igrave;/g;
+ s/í/\&iacute;/g;
+ s/î/\&icirc;/g;
+ s/ï/\&iuml;/g;
+ s/µ/\&mu;/g;
+ s/ð/\&eth;/g;
+ s/ñ/\&ntilde;/g;
+ s/ò/\&ograve;/g;
+ s/ó/\&oacute;/g;
+ s/ô/\&ocirc;/g;
+ s/õ/\&otilde;/g;
+ s/ö/\&ouml;/g;
+ s/ø/\&oslash;/g;
+ s/ù/\&ugrave;/g;
+ s/ú/\&uacute;/g;
+ s/û/\&ucirc;/g;
+ s/ü/\&uuml;/g;
+ s/ý/\&yacute;/g;
+ s/þ/\&thorn;/g;
+ s/ÿ/\&yuml;/g;
+ print $writensgmls $_;
+ }
+ }
+ else
+ {
+ while (<$ifile>)
+ {
+ print $writensgmls $_;
+ }
+ }
+ $ifile->close;
+ $writensgmls->close;
+
+ #
+ # Special case: if format is global, we're just checking.
+ #
+ $global->{format} eq "global" && cleanup;
+
+ #
+ # If the output file is empty, something went wrong.
+ #
+ ! -e "$tmpbase.1" and die "can't create file - exiting";
+ -z "$tmpbase.1" and die "SGML parsing error - exiting";
+ if ( $global->{debug} )
+ {
+ print "Nsgmls stage finished.\n";
+ }
+
+ #
+ # If a preASP stage is defined, let the format handle it.
+ #
+ # preASP ($inhandle, $outhandle);
+ #
+ my $inpreasp = new FileHandle "<$tmpbase.1";
+ my $outpreasp = new FileHandle "$tmpbase.2",O_WRONLY|O_CREAT|O_EXCL,0600;
+ if (defined $Formats{$global->{format}}{preASP})
+ {
+ &{$Formats{$global->{format}}{preASP}}($inpreasp, $outpreasp) == 0 or
+ die "error pre-processing $global->{format}.\n";
+ }
+ else
+ {
+ copy ($inpreasp, $outpreasp);
+ }
+ $inpreasp->close;
+ $outpreasp->close;
+ ! -e "$tmpbase.2" and die "can't create file - exiting";
+
+ if ( $global->{debug} )
+ {
+ print "PreASP stage finished.\n";
+ }
+
+ #
+ # Run sgmlsasp, with an optional style if specified.
+ #
+ # Search order:
+ # - datadir/site/<dtd>/<format>
+ # - datadir/dist/<dtd>/<format>
+ # So we need to fetch the doctype from the intermediate.
+ #
+ # Note: this is a very simplistic check - but as far as I know,
+ # it is correct. Am I right?
+ #
+ my $tmp = new FileHandle "<$tmpbase.2";
+ my $dtd;
+ while ( ($dtd = <$tmp>) && ! ( $dtd =~ /^\(/) ) { };
+ $tmp->close;
+ $dtd =~ s/^\(//;
+ $dtd =~ tr/A-Z/a-z/;
+ chop $dtd;
+ $global->{dtd} = $dtd;
+
+ my $style = "";
+ if ($global->{style})
+ {
+ $style = "$main::DataDir/site/$dtd/$global->{format}/$global->{style}mapping";
+ -r $style or
+ $style = "$main::DataDir/dist/$dtd/$global->{format}/$global->{style}mapping";
+ }
+ my $mapping = "$main::DataDir/site/$dtd/$global->{format}/mapping";
+ -r $mapping or $mapping = "$main::DataDir/dist/$dtd/$global->{format}/mapping";
+
+ $global->{charset} = "nippon" if ($global->{language} eq "ja");
+ #
+ # we don't have Korean groff so charset should be latin1.
+ #
+ if ($global->{language} eq "ko")
+ {
+ if ($global->{format} eq "groff")
+ {
+ $global->{charset} = "latin1";
+ }
+ else
+ {
+ $global->{charset} = "euc-kr";
+ }
+ }
+
+ if ($global->{format} eq "groff" or $global->{format} eq "latex2e")
+ {
+ if ($dtd eq "linuxdoctr")
+ {
+ $mapping = "$main::DataDir/dist/$dtd/$global->{format}/tr-mapping";
+ }
+ }
+
+ create_temp("$tmpbase.3");
+ system ("$main::progs->{SGMLSASP} $style $mapping <\"$tmpbase.2\" |
+ expand -$global->{tabsize} >\"$tmpbase.3\"");
+ ! -e "$tmpbase.3" and die "can't create file - exiting";
+
+
+ if ( $global->{debug} )
+ {
+ print "ASP stage finished.\n";
+ }
+
+ #
+ # If a postASP stage is defined, let the format handle it.
+ # It should leave whatever it thinks is right based on $file.
+ #
+ # postASP ($inhandle)
+ #
+ umask $saved_umask;
+ my $inpostasp = new FileHandle "<$tmpbase.3";
+ if (defined $Formats{$global->{format}}{postASP})
+ {
+ &{$Formats{$global->{format}}{postASP}}($inpostasp) == 0 or
+ die "error post-processing $global->{format}.\n";
+ }
+ $inpostasp->close;
+
+ if ( $global->{debug} )
+ {
+ print "postASP stage finished.\n";
+ }
+
+ #
+ # All done, remove the temporaries.
+ #
+ if( !$global->{debug} ) {
+ remove_tmpfiles($tmpbase);
+ }
+}
+
+=pod
+
+=back
+
+=head1 SEE ALSO
+
+Documentation for various sub-packages of LinuxDocTools.
+
+=head1 AUTHOR
+SGMLTools are written by Cees de Groot, C<E<lt>cg@cdegroot.comE<gt>>,
+and various SGML-Tools contributors as listed in C<CONTRIBUTORS>.
+Taketoshi Sano C<E<lt>sano@debian.org<gt>> rename to LinuxDocTools.
+
+=cut
+1;
diff --git a/doc/sbase/dist/fmt_html.pl b/doc/sbase/dist/fmt_html.pl
index f42e631..b372a12 100644
--- a/doc/sbase/dist/fmt_html.pl
+++ b/doc/sbase/dist/fmt_html.pl
@@ -7,17 +7,17 @@
#
# © Copyright 1996, Cees de Groot
#
-package SGMLTools::fmt_html;
+package LinuxDocTools::fmt_html;
use strict;
-use SGMLTools::CharEnts;
-use SGMLTools::Vars;
+use LinuxDocTools::CharEnts;
+use LinuxDocTools::Vars;
-use SGMLTools::FixRef;
-my $fixref = $SGMLTools::FixRef::fixref;
+use LinuxDocTools::FixRef;
+my $fixref = $LinuxDocTools::FixRef::fixref;
-use SGMLTools::Html2Html;
-my $html2html = $SGMLTools::Html2Html::html2html;
+use LinuxDocTools::Html2Html;
+my $html2html = $LinuxDocTools::Html2Html::html2html;
my $html = {};
$html->{NAME} = "html";
@@ -25,14 +25,22 @@ $html->{HELP} = "";
$html->{OPTIONS} = [
{ option => "split", type => "l",
'values' => [ "0", "1", "2" ], short => "s" },
+ { option => "toc", type => "l",
+ 'values' => [ "0", "1", "2" ], short => "T" },
{ option => "dosnames", type => "f", short => "h" },
- { option => "imagebuttons", type => "f", short => "I"}
+ { option => "imagebuttons", type => "f", short => "I"},
+ { option => "header", type => "s", short => "H"},
+ { option => "footer", type => "s", short => "F"}
];
$html->{'split'} = 1;
+$html->{'toc'} = -1;
$html->{dosnames} = 0;
$html->{imagebuttons} = 0;
+$html->{header} = "";
+$html->{footer} = "";
$html->{preNSGMLS} = sub {
$global->{NsgmlsOpts} .= " -ifmthtml ";
+ $global->{NsgmlsPrePipe} = "cat $global->{file}";
};
$Formats{$html->{NAME}} = $html;
@@ -132,11 +140,15 @@ $html->{postASP} = sub
# Run through html2html, preserving stdout
# Also, handle prehtml.sed's tasks
#
+ my $filter = "";
+# $filter = "|$main::progs->{NKF} -e" if ($global->{language} eq "ja");
open SAVEOUT, ">&STDOUT";
- open STDOUT, ">$filename.$ext" or die qq(Cannot open "$filename.$ext");
+ open STDOUT, "$filter>$filename.$ext" or die qq(Cannot open "$filename.$ext");
&{$html2html->{init}}($html->{'split'}, $ext, $img, $filename,
- $fixref->{filenum}, $fixref->{lrec});
+ $fixref->{filenum}, $fixref->{lrec},
+ $html->{'header'}, $html->{'footer'}, $html->{'toc'},
+ $global->{tmpbase}, $global->{debug});
LINE: foreach (@file) {
s,<P></P>,,g; # remove empty <P></P> containers
foreach my $pat (keys %{$html2html->{rules}}) {
diff --git a/doc/sbase/dist/fmt_latex2e.pl b/doc/sbase/dist/fmt_latex2e.pl
index 03b07f5..1f12174 100644
--- a/doc/sbase/dist/fmt_latex2e.pl
+++ b/doc/sbase/dist/fmt_latex2e.pl
@@ -7,12 +7,15 @@
#
# © Copyright 1996, Cees de Groot
#
-package SGMLTools::fmt_latex2e;
+# Support for PDF files: added by Juan Jose Amor, January 2000
+# © Copyright 2000, Juan Jose Amor
+#
+package LinuxDocTools::fmt_latex2e;
use strict;
-use SGMLTools::CharEnts;
-use SGMLTools::Vars;
-use SGMLTools::Lang;
+use LinuxDocTools::CharEnts;
+use LinuxDocTools::Vars;
+use LinuxDocTools::Lang;
use File::Copy;
@@ -24,23 +27,48 @@ $latex2e->{HELP} = <<EOF;
EOF
$latex2e->{OPTIONS} = [
{ option => "output", type => "l",
- 'values' => [ "dvi", "tex", "ps" ], short => "o" },
+ 'values' => [ "dvi", "tex", "ps", "pdf" ], short => "o" },
{ option => "bibtex", type => "f", short => "b" },
{ option => "makeindex", type => "f", short => "m" },
{ option => "pagenumber", type => "i", short => "n" },
- { option => "quick", type => "f", short => "q" }
+ { option => "quick", type => "f", short => "q" },
+ { option => "dvips", type => "l",
+ 'values' => [ "dvips", "dvi2ps", "jdvi2kps" ], short => "s" },
+ { option => "latex", type => "l",
+ 'values' => [ "latex", "hlatexp", "platex", "jlatex" ], short => "x" }
];
-$latex2e->{output} = "dvi";
+$latex2e->{output} = "tex";
$latex2e->{pagenumber} = 1;
$latex2e->{quick} = 0;
$latex2e->{bibtex} = 0;
$latex2e->{makeindex} = 0;
+$latex2e->{latex} = "unknown";
+$latex2e->{dvips} = "unknown";
+$Formats{$latex2e->{NAME}} = $latex2e;
+
$latex2e->{preNSGMLS} = sub {
$global->{NsgmlsOpts} .= " -ifmttex ";
-};
-$Formats{$latex2e->{NAME}} = $latex2e;
+ # for Japanese jlatex users
+ if ($global->{language} eq "ja" && $latex2e->{latex} eq "unknown") {
+ $latex2e->{latex} = "jlatex";
+ $latex2e->{dvips} = "dvi2ps";
+ # for Japanese platex users
+ # $latex2e->{latex} = "platex";
+ # $latex2e->{dvips} = "dvips";
+ }
+
+ # for Korean users
+ if ($global->{language} eq "ko" && $latex2e->{latex} eq "unknown") {
+ $latex2e->{latex} = "hlatexp";
+ }
+ # default process command
+ $latex2e->{latex} = "latex" if ($latex2e->{latex} eq "unknown");
+ $latex2e->{dvips} = "dvips" if ($latex2e->{dvips} eq "unknown");
+
+ $global->{NsgmlsPrePipe} = "cat $global->{file} ";
+};
# extra `\\' here for standard `nsgmls' output
my %latex2e_escapes;
@@ -59,6 +87,7 @@ $latex2e_escapes{'<'} = '{$<$}'; # wouldn't happen, but that's what'd be
$latex2e_escapes{'|'} = '{$|$}';
my $in_verb;
+my $remove_comment; # added 2000 Jan 25 by t.sano
# passed to `parse_data' below in latex2e_preASP
my $latex2e_escape = sub {
@@ -95,13 +124,22 @@ $latex2e->{preASP} = sub
# a VERB or CODE environment or not
$in_verb = 0;
+ # switch to remove empty line from TeX source or not, depending
+ # on whether we're in a HEADING or ABSTRACT environment or not
+ $remove_comment = 0;
+
while (<$infile>)
{
if (/^-/)
{
my ($str) = $';
chop ($str);
- print $outfile "-" . parse_data ($str, $char_maps, $latex2e_escape) . "\n";
+ $_ = parse_data ($str, $char_maps, $latex2e_escape);
+ if ($remove_comment)
+ {
+ s/(\s+\\n)+//;
+ }
+ print $outfile "-" . $_ . "\n";
}
elsif (/^A/)
{
@@ -111,9 +149,12 @@ $latex2e->{preASP} = sub
if ($type eq "CDATA")
{
# CDATA attributes get translated also
- if ($name eq "URL" or $name eq "ID")
+ if ($name eq "URL" or $name eq "ID" or $name eq "CA")
{
# URL for url.sty is a kind of verbatim...
+ # CA is used in "tabular" element.
+ # Thanks to Evgeny Stambulchik, he posted this fix
+ # on sgml-tools list. 2000 May 17, t.sano
my $old_verb = $in_verb;
$in_verb = 1;
$value = parse_data ($value, $ascii_char_maps,
@@ -141,6 +182,19 @@ $latex2e->{preASP} = sub
$in_verb = 0;
$char_maps = $tex_char_maps;
}
+ elsif (/^\((HEADING|ABSTRACT)/)
+ {
+ print $outfile $_;
+ # empty lines (comment in sgml source) do harm
+ # in HEADING or ABSTRACT
+ $remove_comment = 1;
+ }
+ elsif (/^\)(HEADING|ABSTRACT)/)
+ {
+ print $outfile $_;
+ # leaving HEADING or ABSTRACT section
+ $remove_comment = 0;
+ }
else
{
print $outfile $_;
@@ -148,6 +202,24 @@ $latex2e->{preASP} = sub
}
};
+# return the string of the name of the macro for urldef
+sub latex2e_defnam($)
+{
+ my ($num) = @_;
+
+ if ($num > 26*26*26) {
+ die "Too many URLs!\n";
+ }
+
+ my $anum = ord("a");
+
+ my $defnam = chr ($anum + ($num / 26 / 26)) .
+ chr ($anum + ($num / 26 % 26)) .
+ chr ($anum + ($num % 26));
+
+ return ($defnam);
+};
+
#
# Take the sgmlsasp output, and make something
# useful from it.
@@ -156,29 +228,117 @@ $latex2e->{postASP} = sub
{
my $infile = shift;
my $filename = $global->{filename};
- $ENV{TEXINPUTS} .= ":$main::LibDir";
+ my $tmplatexdir = $global->{tmpbase} . "-latex-" . $$ . ".dir";
+ my $tmplatexnam = $tmplatexdir . "/" . $filename;
+ my @epsfiles = ();
+ my @texlines = ();
+ my @urldefines = ();
+ my @urlnames = ();
+ my $urlnum = 0;
+ my $tmpepsf;
+ my $saved_umask = umask;
+ $ENV{TEXINPUTS} .= ":$main::DataDir";
+
+ umask 0077;
+ mkdir ($tmplatexdir, 0700) || return -1;
#
- # Set the correct \documentclass options. The if statement is just
- # a small optimization.
+ # check epsfile is specified in source file
+ # check nameurl specified in source file
+ #
+ {
+ my $epsf;
+ open SGMLFILE, "<$filename.sgml";
+ while (<SGMLFILE>)
+ {
+ # for epsfile
+ if ( s/^\s*<eps\s+file=(.*)>/$1/ )
+ {
+ s/\s+angle=.*//;
+ s/\s+height=.*//;
+ s/\"//g;
+ $epsf = $_;
+ chop ( $epsf );
+ push @epsfiles, $epsf;
+ }
+ if ($latex2e->{output} eq "pdf")
+ {
+ if ( s/^\s*<img\s+src=(.*)>/$1/ )
+ {
+ s/\"//g;
+ $epsf = $_;
+ chop ( $epsf );
+ push @epsfiles, $epsf;
+ }
+ }
+ }
+ close SGMLFILE;
+ }
+ {
+ my $urlid;
+ my $urlnam;
+ my $urldef;
+ while (<$infile>)
+ {
+ push @texlines, $_;
+ # for nameurl
+ if ( /\\nameurl/ )
+ {
+ ($urlid, $urlnam) = ($_ =~ /\\nameurl{(.*)}{(.*)}/);
+ print $urlnum . ": " . $urlid . "\n" if ( $global->{debug} );
+
+ $urldef = latex2e_defnam($urlnum) . "url";
+ s/\\nameurl{.*}{.*}/{\\em $urlnam} {\\tt \\$urldef}/;
+ push @urlnames, $_;
+ push @urldefines, "\\urldef{\\$urldef} \\url{$urlid}\n";
+ $urlnum++;
+ }
+ }
+ close $infile;
+ }
+
+ open OUTFILE, ">$tmplatexnam.tex";
+ #
+ # Set the correct \documentclass options.
#
- if ($global->{language} ne "en" ||
- $global->{papersize} ne "a4" ||
- $latex2e->{pagenumber} != 1 ||
- $global->{pass} ne "" ||
- $latex2e->{makeindex})
{
my $langlit = ISO2English ($global->{language});
$langlit = ($langlit eq 'english') ? "" : ",$langlit";
my $replace = $global->{papersize} . 'paper' . $langlit;
- open OUTFILE, ">$filename.tex";
- while (<$infile>)
+ my $hlatexopt = "";
+ $global->{charset} = "nippon" if ($global->{language} eq "ja");
+ $global->{charset} = "euc-kr" if ($global->{language} eq "ko");
+ $replace = $global->{papersize} . 'paper' if ($global->{charset} eq "nippon") || ($global->{charset} eq "euc-kr");
+ while (defined($texlines[0]))
{
+ $_ = shift @texlines;
if (/^\\documentclass/)
{
- s/\\documentclass\[.*\]/\\documentclass\[$replace\]/;
+ if ($global->{language} ne "en" ||
+ $global->{papersize} ne "a4")
+ {
+ s/\\documentclass\[.*\]/\\documentclass\[$replace\]/;
+ }
+ if ($global->{charset} eq "nippon") {
+ if ($latex2e->{latex} eq "platex") {
+ s/{article}/{jarticle}/;
+ } elsif ($latex2e->{latex} eq "jlatex") {
+ s/{article}/{j-article}/;
+ }
+ }
$_ = $_ . "\\makeindex\n" if ($latex2e->{makeindex});
- }
+ }
+ if (/^\\usepackage.epsfig/ && ($global->{charset} eq "euc-kr"))
+ {
+ $hlatexopt = "[noautojosa]" if ($latex2e->{latex} eq "hlatexp");
+ $_ = $_ . "\\usepackage" . "$hlatexopt" . "{hangul}\n"
+ }
+ if ((/\\usepackage.t1enc/) &&
+ (($global->{charset} eq "nippon") ||
+ ($global->{charset} eq "euc-kr")))
+ {
+ s/^/%%/;
+ }
if (/%end-preamble/)
{
if ($latex2e->{pagenumber})
@@ -192,20 +352,45 @@ $latex2e->{postASP} = sub
}
$_ = $_ . $global->{pass} . "\n" if ($global->{pass});
}
+ if (/\\nameurl/ && $latex2e->{output} ne "pdf")
+ {
+ $_ = shift @urlnames;
+ }
print OUTFILE;
+ if (/%end-preamble/)
+ {
+ if ($urlnum && $latex2e->{output} ne "pdf")
+ {
+ while (defined($urldefines[0]))
+ {
+ $_ = shift @urldefines;
+ print OUTFILE;
+ }
+ }
+ }
}
- close OUTFILE;
- }
- else
- {
- copy ($infile, "$filename.tex");
}
+ close OUTFILE;
#
# LaTeX, dvips, and assorted cleanups.
#
if ($latex2e->{output} eq "tex")
{
+# comment out, because this backup action is not documented yet.
+#
+# if ( -e "$filename.tex" ) {
+# rename ("$filename.tex", "$filename.tex.back");
+# }
+
+ umask $saved_umask;
+ copy ("$tmplatexnam.tex", "$filename.tex");
+ if ( ! $global->{debug} )
+ {
+ unlink ("$tmplatexnam.tex");
+ rmdir ($tmplatexdir) || return -1;
+ }
+
return 0;
}
@@ -215,30 +400,169 @@ $latex2e->{postASP} = sub
# references have been resolved. This avoids large numbers of
# spurious warnings.
#
- my ($latexcommand) = "latex '\\nonstopmode\\input{$filename.tex}'";
+ my $current_dir;
+ chop ($current_dir = `pwd`);
+ print $current_dir . "\n" if ( $global->{debug} );
+
+ #
+ # copy epsfiles specified in tex file
+ #
+ for my $epsf ( @epsfiles )
+ {
+ $tmpepsf = $tmplatexdir . "/" . $epsf;
+ print $epsf . " " . $tmpepsf . "\n" if ( $global->{debug} );
+ copy ("$epsf", "$tmpepsf") or die "can not copy graphics\n";
+ }
+
+ #
+ # go to the temporary directory
+ chdir ($tmplatexdir);
+
+ my ($latexcommand) = "$latex2e->{latex} '\\nonstopmode\\input{$filename.tex}'";
+
+ #
+ # We run pdflatex instead of latex if user selected pdf output
+ #
+ if ($latex2e->{output} eq "pdf")
+ {
+ $latexcommand = "pdflatex '\\nonstopmode\\input{$filename.tex}'";
+ }
+
+ #
+ # run hlatex if hlatexp is used
+ # for pdf: how about status?(for hlatex and hlatexp)
+ #
+ if ($latex2e->{latex} eq "hlatexp")
+ {
+ #$latex2e->{output} = "ps" if ($latex2e->{output} eq "pdf");
+ $latexcommand = "hlatex '\\nonstopmode\\input{$filename.tex}'";
+ }
+
+ #
+ # We use jlatex for Japanese encoded (euc-jp) characters.
+ # pdf support for Japanese are not yet. use ps for the time being.
+ #
+ if ($global->{charset} eq "nippon")
+ {
+ $latex2e->{output} = "ps" if ($latex2e->{output} eq "pdf");
+ $latexcommand = "$latex2e->{latex} '\\nonstopmode\\input{$filename.tex}'"
+ }
my ($suppress) = $latex2e->{quick} ? "" : ' >/dev/null';
system $latexcommand . $suppress || die "LaTeX problem\n";
$latex2e->{bibtex} && system "bibtex $filename.tex";
$latex2e->{quick} || system $latexcommand . ' >/dev/null';
$latex2e->{quick} || system $latexcommand;
- if ($global->{debug} == 0)
+ if ( ! $global->{debug} )
{
- my @suffixes = qw(log blg aux toc lof lot dlog bbl);
+ my @suffixes = qw(log blg aux toc lof lot dlog bbl out);
for my $suf (@suffixes)
{
- unlink "$filename.$suf";
+ unlink "$tmplatexnam.$suf";
}
}
+ #
+ # go back to the working directory
+ chdir ($current_dir);
+ #
+ # output dvi file
if ($latex2e->{output} eq "dvi")
{
- $global->{debug} || unlink "$filename.tex";
+# comment out, because this backup action is not documented yet.
+#
+# if ( -e "$filename.dvi" )
+# {
+# rename ("$filename.dvi", "$filename.dvi.back");
+# }
+ umask $saved_umask;
+ copy ("$tmplatexnam.dvi", "$filename.dvi");
+ if ( $global->{debug} )
+ {
+ print "Temporary files are in $tmplatexdir\n";
+ print "Please check there and remove them manually.\n";
+ } else {
+ unlink ("$tmplatexnam.tex", "$tmplatexnam.dvi");
+ for my $epsf ( @epsfiles )
+ {
+ $tmpepsf = $tmplatexdir . "/" . $epsf;
+ print $tmpepsf . "\n" if ( $global->{debug} );
+ unlink ("$tmpepsf");
+ }
+ rmdir ($tmplatexdir) || return -1;
+ }
+ return 0;
+ }
+ #
+ # output pdf file
+ if ($latex2e->{output} eq "pdf")
+ {
+# comment out, because this backup action is not documented yet.
+#
+# if ( -e "$filename.pdf" )
+# {
+# rename ("$filename.pdf", "$filename.pdf.back");
+# }
+ umask $saved_umask;
+ copy ("$tmplatexnam.pdf", "$filename.pdf");
+ if ( $global->{debug} )
+ {
+ print "Temporary files are in $tmplatexdir\n";
+ print "Please check there and remove them manually.\n";
+ } else {
+ unlink ("$tmplatexnam.tex", "$tmplatexnam.pdf");
+ for my $epsf ( @epsfiles )
+ {
+ $tmpepsf = $tmplatexdir . "/" . $epsf;
+ print $tmpepsf . "\n" if ( $global->{debug} );
+ unlink ("$tmpepsf");
+ }
+ rmdir ($tmplatexdir) || return -1;
+ }
return 0;
}
- `dvips -q -t $global->{papersize} -o $filename.ps $filename.dvi`;
- $global->{debug} || unlink ("$filename.dvi", "$filename.tex");
+ #
+ # convert dvi into ps using dvips command
+ chdir ($tmplatexdir);
+ if ($latex2e->{dvips} eq "dvi2ps")
+ {
+ `dvi2ps -q -o $global->{papersize} -c $tmplatexnam.ps $filename.dvi`;
+ }
+ elsif ($latex2e->{dvips} eq "jdvi2kps")
+ {
+ `jdvi2kps -q -pa $global->{papersize} -o $tmplatexnam.ps $filename.dvi`;
+ }
+ else
+ {
+ `dvips -R -q -t $global->{papersize} -o $tmplatexnam.ps $filename.dvi`;
+ }
+
+ chdir ($current_dir);
+# comment out, because this backup action is not documented yet.
+#
+# if ( -e "$filename.ps" )
+# {
+# rename ("$filename.ps", "$filename.ps.back");
+# }
+ umask $saved_umask;
+ copy ("$tmplatexnam.ps", "$filename.ps");
+ unlink ("$tmplatexnam.ps");
+ if ( $global->{debug} )
+ {
+ print "Temporary files are in $tmplatexdir\n";
+ print "Please check there and remove them manually.\n";
+ } else {
+ unlink ("$tmplatexnam.tex", "$tmplatexnam.dvi", "$tmplatexnam.ps");
+ for my $epsf ( @epsfiles )
+ {
+ $tmpepsf = $tmplatexdir . "/" . $epsf;
+ print $tmpepsf . "\n" if ( $global->{debug} );
+ unlink ("$tmpepsf");
+ }
+ rmdir ($tmplatexdir) || return -1;
+ }
return 0;
+
};
1;
diff --git a/doc/sbase/dist/fmt_txt.pl b/doc/sbase/dist/fmt_txt.pl
index 81c2b15..87d70d3 100644
--- a/doc/sbase/dist/fmt_txt.pl
+++ b/doc/sbase/dist/fmt_txt.pl
@@ -7,24 +7,27 @@
#
# © Copyright 1996, Cees de Groot
#
-package SGMLTools::fmt_txt;
+package LinuxDocTools::fmt_txt;
use strict;
use File::Copy;
use Text::EntityMap;
-use SGMLTools::CharEnts;
-use SGMLTools::Lang;
-use SGMLTools::Vars;
+use LinuxDocTools::CharEnts;
+use LinuxDocTools::Lang;
+use LinuxDocTools::Vars;
+use LinuxDocTools::Utils qw(create_temp);
my $txt = {};
$txt->{NAME} = "txt";
$txt->{HELP} = "";
$txt->{OPTIONS} = [
{ option => "manpage", type => "f", short => "m" },
- { option => "filter", type => "f", short => "f" }
+ { option => "filter", type => "f", short => "f" },
+ { option => "blanks", type => "i", short => "b" }
];
$txt->{manpage} = 0;
$txt->{filter} = 0;
+$txt->{blanks} = 3;
$Formats{$txt->{NAME}} = $txt;
@@ -44,19 +47,26 @@ $txt->{preNSGMLS} = sub
$global->{charset} = "latin1" if $global->{charset} eq "latin";
}
+
#
# Is there a cleaner solution than this? Can't do it earlier,
# would show up in the help messages...
#
+ # the language support ja.
+ # the charset support nippon.
+ #
$global->{format} = $global->{charset};
+ $global->{charset} = "nippon" if $global->{language} eq "ja";
$global->{format} = "groff" if $global->{format} eq "ascii";
+ $global->{format} = "groff" if $global->{format} eq "nippon";
+ $global->{format} = "groff" if $global->{format} eq "euc-kr";
$ENV{SGML_SEARCH_PATH} =~ s/txt/$global->{format}/;
$Formats{"groff"} = $txt;
$Formats{"latin1"} = $txt;
$Formats{"man"} = $txt;
- return 0;
+ $global->{NsgmlsPrePipe} = "cat $global->{file} " ;
};
@@ -81,16 +91,48 @@ $txt->{preASP} = sub
{
my ($infile, $outfile) = @_;
my (@toc, @lines);
- if ($txt->{manpage})
+ my $char_maps = load_char_maps ('.2tr', [ Text::EntityMap::sdata_dirs() ]);
+ if ( $global->{charset} eq "latin1" )
+ {
+ $char_maps = load_char_maps ('.2l1tr', [ Text::EntityMap::sdata_dirs() ]);
+ }
+
+ if ($txt->{manpage})
{
- copy ($infile, $outfile);
+ while (<$infile>)
+ {
+ if (/^-/)
+ {
+ my ($str) = $';
+ chop ($str);
+ print $outfile "-" .
+ parse_data ($str, $char_maps, $txt_escape) . "\n";
+ next;
+ }
+ elsif (/^A/)
+ {
+ /^A(\S+) (IMPLIED|CDATA|NOTATION|ENTITY|TOKEN)( (.*))?$/
+ || die "bad attribute data: $_\n";
+ my ($name,$type,$value) = ($1,$2,$4);
+ if ($type eq "CDATA")
+ {
+ # CDATA attributes get translated also
+ $value = parse_data ($value, $char_maps, $txt_escape);
+ }
+ print $outfile "A$name $type $value\n";
+ next;
+ }
+ #
+ # Default action if not skipped over with next: copy in to out.
+ #
+ print $outfile $_;
+ }
+
return;
}
# note the conversion of `sdata_dirs' list to an anonymous array to
# make a single argument
- my $char_maps = load_char_maps ('.2tr', [ Text::EntityMap::sdata_dirs() ]);
- $char_maps = load_char_maps ('.2l1tr', [ Text::EntityMap::sdata_dirs() ]) if $global->{charset} eq "latin1";
#
# Build TOC. The file is read into @lines in the meantime, we need to
@@ -103,6 +145,8 @@ $txt->{preASP} = sub
push (@toc, ")P\n");
push (@toc, "(VERB\n");
my (@prevheader, @header);
+ my $appendix = 0;
+ my $nonprint = 0;
while (<$infile>)
{
push (@lines, $_);
@@ -111,16 +155,27 @@ $txt->{preASP} = sub
{
@prevheader = @header;
@header = @header[0..$1];
- $header[$1]++;
+ if ($appendix == 1)
+ {
+ $header[$1] = "A";
+ $appendix = 0;
+ } else
+ {
+ $header[$1]++;
+ }
+ }
+ if (/^\(APPEND(.*)/)
+ {
+ $appendix = 1;
}
if (/^\(HEADING/)
{
$_ = <$infile>;
+ s/\\n/ /g;
push (@lines, $_);
chop;
s/^-//;
$_ = join(".",@header) . " " . $_;
- s/\\n/ /g;
s/\(\\[0-9][0-9][0-9]\)/\\\1/g;
if (!$#header)
@@ -130,15 +185,63 @@ $txt->{preASP} = sub
$_ = "\\n" . $_ unless (!$#prevheader);
# put a . and a space after top level sections
s/ /. /;
- $_ = "-" . $_ . "\\n";
+##### $_ = "-" . $_ . "\\n";
+ $_ = "-" . $_;
}
else
{
# subsections get indentation matching hierarchy
$_ = "-" . " " x $#header . $_;
}
- push(@toc, parse_data ($_, $char_maps, $txt_escape), "\\n\n");
- }
+
+# remove tags from a toc
+ s/\)TT//g;
+ s/\(TT//g;
+ s/\)IT//g;
+ s/\(IT//g;
+ s/\)EM//g;
+ s/\(EM//g;
+ s/\)BF//g;
+ s/\(BF//g;
+ s/AID * CDATA.*$//g;
+ s/\)LABEL//g;
+ s/\(LABEL//g;
+
+ push(@toc, parse_data ($_, $char_maps, $txt_escape));
+
+ $_ = <$infile>;
+ while (!/^\)HEADING/) {
+ s/\\n/ /g; ####
+ push(@lines, $_);
+ chop;
+ s/^-//;
+
+# remove tags from a toc
+ s/\)TT//g;
+ s/\(TT//g;
+ s/\)IT//g;
+ s/\(IT//g;
+ s/\)EM//g;
+ s/\(EM//g;
+ s/\)BF//g;
+ s/\(BF//g;
+ s/AID * CDATA.*$//g;
+ s/\)LABEL//g;
+ s/\(LABEL//g;
+
+# remove NIDX, NCDX from a toc entry
+ if (/^\(NIDX$/ || /^\(NCDX$/) { $nonprint = 1; }
+ if (/^\)NIDX$/ || /^\)NCDX$/) { $nonprint = 1; }
+
+# $_ = "-" . $_ . "\\n";
+ push(@toc, parse_data ($_, $char_maps, $txt_escape))
+ if (! $nonprint);
+ $_ = <$infile>;
+ }
+ s/\\n/ /g; ###
+ push(@lines, $_);
+ push(@toc, "\\n\n");
+ }
}
push (@toc, ")VERB\n");
push (@toc, "(HLINE\n");
@@ -233,8 +336,9 @@ $txt->{postASP} = sub
}
else
{
+ create_temp("$global->{tmpbase}.txt.1");
$outfile = new FileHandle
- "|$main::progs->{GROFF} -T $global->{pass} $global->{charset} -t $main::progs->{GROFFMACRO} >$global->{tmpbase}.txt.1";
+ "|$main::progs->{GROFF} $global->{pass} -T $global->{charset} -t $main::progs->{GROFFMACRO} >\"$global->{tmpbase}.txt.1\"";
}
#
@@ -265,17 +369,36 @@ $txt->{postASP} = sub
{
$outfile->open (">$global->{filename}.txt");
$groffout = new FileHandle "<$global->{tmpbase}.txt.1";
+ my $count = 0;
if ($txt->{filter})
{
while (<$groffout>)
{
+ s/[^\cH][^\cH]\cH\cH//g;
s/.//g;
- print $outfile $_;
+ if ($txt->{blanks})
+ {
+ $count = &{$txt->{cutblank}}($count, $outfile, $_);
+ }
+ else
+ {
+ print $outfile $_;
+ }
}
}
else
{
- copy ($groffout, $outfile);
+ if ($txt->{blanks})
+ {
+ while (<$groffout>)
+ {
+ $count = &{$txt->{cutblank}}($count, $outfile, $_);
+ }
+ }
+ else
+ {
+ copy ($groffout, $outfile);
+ }
}
}
$groffout->close;
@@ -284,4 +407,23 @@ $txt->{postASP} = sub
return 0;
};
+$txt->{cutblank} = sub
+{
+ my ($num, $out, $in) = @_;
+ if ( $in =~ /^$/ )
+ {
+ $num++;
+ }
+ else
+ {
+ $num = 0;
+ }
+ if ( $num <= $txt->{blanks} )
+ {
+ print $out $in;
+ }
+
+ return ($num);
+};
+
1;
diff --git a/doc/sgml2html b/doc/sgml2html
index 3f7b682..774a03d 100755
--- a/doc/sgml2html
+++ b/doc/sgml2html
@@ -15,30 +15,32 @@ sub BEGIN
}
use strict;
-use vars qw($prefix $LibDir $BinDir $progs);
+use vars qw($prefix $DataDir $BinDir $progs);
$prefix = "/usr";
-$LibDir = "sbase";
+$DataDir = "sbase";
$BinDir = "/usr/bin";
-use lib "/usr/lib/sgml-tools";
+use lib "/usr/share/linuxdoc-tools";
use lib "/usr/perl5";
use lib "/usr/lib/perl5";
+use lib "/usr/share/perl5";
$progs = {
"NSGMLS" => "/usr/bin/nsgmls",
"SGMLSASP" => "/usr/bin/sgmlsasp",
"GROFF" => "/usr/bin/groff",
- "GROFFMACRO" => "-mgs"
+ "GROFFMACRO" => "-ms",
+ "AWK" => "/usr/share/linuxdoc-tools/awkwhich"
};
+$ENV{"SGML_CATALOG_FILES"} = "sbase/dtd/catalog";
-require SGMLTools;
-&SGMLTools::init;
+require "./LinuxDocTools.pm";
+&LinuxDocTools::init;
-my @FileList = SGMLTools::process_options ($0, @ARGV);
+my @FileList = LinuxDocTools::process_options ("html", @ARGV);
for my $curfile (@FileList)
{
- SGMLTools::process_file ($curfile);
+ LinuxDocTools::process_file ($curfile);
}
exit 0;
-
diff --git a/doc/sgml2latex b/doc/sgml2latex
index 3f7b682..27aae4c 100755
--- a/doc/sgml2latex
+++ b/doc/sgml2latex
@@ -15,30 +15,32 @@ sub BEGIN
}
use strict;
-use vars qw($prefix $LibDir $BinDir $progs);
+use vars qw($prefix $DataDir $BinDir $progs);
$prefix = "/usr";
-$LibDir = "sbase";
+$DataDir = "sbase";
$BinDir = "/usr/bin";
-use lib "/usr/lib/sgml-tools";
+use lib "/usr/share/linuxdoc-tools";
use lib "/usr/perl5";
use lib "/usr/lib/perl5";
+use lib "/usr/share/perl5";
$progs = {
"NSGMLS" => "/usr/bin/nsgmls",
"SGMLSASP" => "/usr/bin/sgmlsasp",
"GROFF" => "/usr/bin/groff",
- "GROFFMACRO" => "-mgs"
+ "GROFFMACRO" => "-ms",
+ "AWK" => "/usr/share/linuxdoc-tools/awkwhich"
};
+$ENV{"SGML_CATALOG_FILES"} = "sbase/dtd/catalog";
-require SGMLTools;
-&SGMLTools::init;
+require "./LinuxDocTools.pm";
+&LinuxDocTools::init;
-my @FileList = SGMLTools::process_options ($0, @ARGV);
+my @FileList = LinuxDocTools::process_options ("latex", @ARGV);
for my $curfile (@FileList)
{
- SGMLTools::process_file ($curfile);
+ LinuxDocTools::process_file ($curfile);
}
exit 0;
-
diff --git a/doc/sgml2txt b/doc/sgml2txt
index 3f7b682..90dc485 100755
--- a/doc/sgml2txt
+++ b/doc/sgml2txt
@@ -15,30 +15,32 @@ sub BEGIN
}
use strict;
-use vars qw($prefix $LibDir $BinDir $progs);
+use vars qw($prefix $DataDir $BinDir $progs);
$prefix = "/usr";
-$LibDir = "sbase";
+$DataDir = "sbase";
$BinDir = "/usr/bin";
-use lib "/usr/lib/sgml-tools";
+use lib "/usr/share/linuxdoc-tools";
use lib "/usr/perl5";
use lib "/usr/lib/perl5";
+use lib "/usr/share/perl5";
$progs = {
"NSGMLS" => "/usr/bin/nsgmls",
"SGMLSASP" => "/usr/bin/sgmlsasp",
"GROFF" => "/usr/bin/groff",
- "GROFFMACRO" => "-mgs"
+ "GROFFMACRO" => "-ms",
+ "AWK" => "/usr/share/linuxdoc-tools/awkwhich"
};
+$ENV{"SGML_CATALOG_FILES"} = "sbase/dtd/catalog";
-require SGMLTools;
-&SGMLTools::init;
+require "./LinuxDocTools.pm";
+&LinuxDocTools::init;
-my @FileList = SGMLTools::process_options ($0, @ARGV);
+my @FileList = LinuxDocTools::process_options ("txt", @ARGV);
for my $curfile (@FileList)
{
- SGMLTools::process_file ($curfile);
+ LinuxDocTools::process_file ($curfile);
}
exit 0;
-