diff options
Diffstat (limited to 'doc/sgml2txt')
-rwxr-xr-x | doc/sgml2txt | 53 |
1 files changed, 0 insertions, 53 deletions
diff --git a/doc/sgml2txt b/doc/sgml2txt deleted file mode 100755 index 013479fe..00000000 --- a/doc/sgml2txt +++ /dev/null @@ -1,53 +0,0 @@ -#!/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); - -use FindBin; - -$prefix = "/usr"; -$DataDir = "$FindBin::Bin/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" -}; - -if (! -x $progs->{"NSGMLS"}) - { $progs->{"NSGMLS"} = "/usr/bin/onsgmls"; } - -$ENV{"SGML_CATALOG_FILES"} = "$DataDir/dtd/catalog" . - (defined $ENV{SGML_CATALOG_FILES} ? ":$ENV{SGML_CATALOG_FILES}" : ""); - -require "$FindBin::Bin/LinuxDocTools.pm"; -&LinuxDocTools::init; - -my @FileList = LinuxDocTools::process_options ("txt", @ARGV); -for my $curfile (@FileList) - { - LinuxDocTools::process_file ($curfile); - } - -exit 0; |