doc/sgml2txt

   1 #!/usr/bin/perl
   2 #
   3 #   sgmltools.in
   4 #
   5 #   $Id$
   6 #
   7 #   SGML-Tools driver. Calls all other SGML-Tools components, contains
   8 #   configuration information, etcetera.
   9 #
  10 package main;
  11
  12 sub BEGIN
  13 {
  14   require 5.004;
  15 }
  16 use strict;
  17
  18 use vars qw($prefix $DataDir $BinDir $progs);
  19
  20 use FindBin;
  21
  22 $prefix = "/usr";
  23 $DataDir = "$FindBin::Bin/sbase";
  24 $BinDir = "/usr/bin";
  25
  26 use lib "/usr/share/linuxdoc-tools";
  27 use lib "/usr/perl5";
  28 use lib "/usr/lib/perl5";
  29 use lib "/usr/share/perl5";
  30 $progs = {
  31   "NSGMLS" => "/usr/bin/nsgmls",
  32   "SGMLSASP" => "/usr/bin/sgmlsasp",
  33   "GROFF" => "/usr/bin/groff",
  34   "GROFFMACRO" => "-ms",
  35   "AWK" => "/usr/share/linuxdoc-tools/awkwhich"
  36 };
  37
  38 if (! -x $progs->{"NSGMLS"})
  39   { $progs->{"NSGMLS"} = "/usr/bin/onsgmls"; }
  40
  41 $ENV{"SGML_CATALOG_FILES"} = "$DataDir/dtd/catalog" .
  42   (defined $ENV{SGML_CATALOG_FILES} ? ":$ENV{SGML_CATALOG_FILES}" : "");
  43
  44 require "$FindBin::Bin/LinuxDocTools.pm";
  45 &LinuxDocTools::init;
  46
  47 my @FileList = LinuxDocTools::process_options ("txt", @ARGV);
  48 for my $curfile (@FileList)
  49   {
  50     LinuxDocTools::process_file ($curfile);
  51   }
  52
  53 exit 0;