doc/sgml2html

   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 $ENV{"SGML_CATALOG_FILES"} = "$DataDir/dtd/catalog";
  38
  39 require "$FindBin::Bin/LinuxDocTools.pm";
  40 &LinuxDocTools::init;
  41
  42 my @FileList = LinuxDocTools::process_options ("html", @ARGV);
  43 for my $curfile (@FileList)
  44   {
  45     LinuxDocTools::process_file ($curfile);
  46   }
  47
  48 exit 0;