diff options
author | Martin Mares <mj@ucw.cz> | 2003-04-06 21:35:50 +0200 |
---|---|---|
committer | Martin Mares <mj@ucw.cz> | 2003-04-06 21:35:50 +0200 |
commit | 9c7631235ac174ebd33a3e04e07211b3ae8501f6 (patch) | |
tree | 8b5967a04584ca369cab81f5491503fbd428f574 /doc/sgml2txt | |
parent | a9aa5887f3b9b43d9a3a5617ef9176da936ce35f (diff) | |
download | bird-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-x | doc/sgml2txt | 20 |
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; - |