Return to sgml2html CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / bird2 / doc

bird2 ver 2.0.7

    1: #!/usr/bin/perl 
    2: #
    3: #   sgmltools.in
    4: #
    5: #   $Id: sgml2html,v 1.1.1.1 2019/10/21 16:03:57 misho Exp $
    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 ("html", @ARGV);
   48: for my $curfile (@FileList)
   49:   {
   50:     LinuxDocTools::process_file ($curfile);
   51:   }
   52: 
   53: exit 0;