Return to sgml2html CVS log

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

bird 1.6.3

    1: #!/usr/bin/perl 
    2: #
    3: #   sgmltools.in
    4: #
    5: #   $Id: sgml2html,v 1.1.1.1 2017/08/22 12:33:54 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: $prefix = "/usr";
   21: $DataDir = "sbase";
   22: $BinDir = "/usr/bin";
   23: 
   24: use lib "/usr/share/linuxdoc-tools";
   25: use lib "/usr/perl5";
   26: use lib "/usr/lib/perl5";
   27: use lib "/usr/share/perl5";
   28: $progs = {
   29:   "NSGMLS" => "/usr/bin/nsgmls",
   30:   "SGMLSASP" => "/usr/bin/sgmlsasp",
   31:   "GROFF" => "/usr/bin/groff",
   32:   "GROFFMACRO" => "-ms",
   33:   "AWK" => "/usr/share/linuxdoc-tools/awkwhich"
   34: };
   35: $ENV{"SGML_CATALOG_FILES"} = "sbase/dtd/catalog";
   36: 
   37: require "./LinuxDocTools.pm";
   38: &LinuxDocTools::init;
   39: 
   40: my @FileList = LinuxDocTools::process_options ("html", @ARGV);
   41: for my $curfile (@FileList)
   42:   {
   43:     LinuxDocTools::process_file ($curfile);
   44:   }
   45: 
   46: exit 0;