Return to sgml2txt CVS log

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

Annotation of embedaddon/bird/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: $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;