Annotation of embedaddon/bird2/doc/sgml2txt, revision 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>