Return to sgml2html CVS log

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

Annotation of embedaddon/bird/doc/sgml2html, revision 1.1.1.2

1.1       misho       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: 
1.1.1.2 ! misho      20: use FindBin;
        !            21: 
1.1       misho      22: $prefix = "/usr";
1.1.1.2 ! misho      23: $DataDir = "$FindBin::Bin/sbase";
1.1       misho      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: 
1.1.1.2 ! misho      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";
1.1       misho      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;