Annotation of embedaddon/bird2/doc/sgml2txt, revision 1.1.1.1

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: 
                     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;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>