Annotation of embedaddon/bird/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: $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 ("txt", @ARGV);
        !            41: for my $curfile (@FileList)
        !            42:   {
        !            43:     LinuxDocTools::process_file ($curfile);
        !            44:   }
        !            45: 
        !            46: exit 0;

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