summaryrefslogtreecommitdiffstats
path: root/doc/sgml2txt
diff options
context:
space:
mode:
authorMartin Mares <mj@ucw.cz>2003-04-06 21:35:50 +0200
committerMartin Mares <mj@ucw.cz>2003-04-06 21:35:50 +0200
commit9c7631235ac174ebd33a3e04e07211b3ae8501f6 (patch)
tree8b5967a04584ca369cab81f5491503fbd428f574 /doc/sgml2txt
parenta9aa5887f3b9b43d9a3a5617ef9176da936ce35f (diff)
downloadbird-9c7631235ac174ebd33a3e04e07211b3ae8501f6.tar
bird-9c7631235ac174ebd33a3e04e07211b3ae8501f6.zip
Updated the documentation building tools to work with a recent linuxdoc-tools package.
Note that this is (and always was) a terrible hack and we really should replace it with something reasonable which wouldn't need changing every time linuxdoc-tools evolve. I also needed to include a patched version of LinuxDocTools.pm, because the original one explicitly refused to work with a non-linuxdoc DTD. The authors of linuxdoc recommend to use sgmltools-lite in such cases, but it would mean rewritting our formatting rules to the DSSSL language which I don't dare to speak about here :)
Diffstat (limited to 'doc/sgml2txt')
-rwxr-xr-xdoc/sgml2txt20
1 files changed, 11 insertions, 9 deletions
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;
-