mirror of
https://gitlab.nic.cz/labs/bird.git
synced 2024-11-18 09:08:42 +00:00
9c7631235a
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 :)
47 lines
887 B
Perl
Executable File
47 lines
887 B
Perl
Executable File
#!/usr/bin/perl
|
|
#
|
|
# sgmltools.in
|
|
#
|
|
# $Id$
|
|
#
|
|
# SGML-Tools driver. Calls all other SGML-Tools components, contains
|
|
# configuration information, etcetera.
|
|
#
|
|
package main;
|
|
|
|
sub BEGIN
|
|
{
|
|
require 5.004;
|
|
}
|
|
use strict;
|
|
|
|
use vars qw($prefix $DataDir $BinDir $progs);
|
|
|
|
$prefix = "/usr";
|
|
$DataDir = "sbase";
|
|
$BinDir = "/usr/bin";
|
|
|
|
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" => "-ms",
|
|
"AWK" => "/usr/share/linuxdoc-tools/awkwhich"
|
|
};
|
|
$ENV{"SGML_CATALOG_FILES"} = "sbase/dtd/catalog";
|
|
|
|
require "./LinuxDocTools.pm";
|
|
&LinuxDocTools::init;
|
|
|
|
my @FileList = LinuxDocTools::process_options ("txt", @ARGV);
|
|
for my $curfile (@FileList)
|
|
{
|
|
LinuxDocTools::process_file ($curfile);
|
|
}
|
|
|
|
exit 0;
|