summaryrefslogtreecommitdiffstats
path: root/doc/sgml2txt
diff options
context:
space:
mode:
authorPavel Machek <pavel@ucw.cz>2000-05-30 13:50:17 +0200
committerPavel Machek <pavel@ucw.cz>2000-05-30 13:50:17 +0200
commit7b099bf9a73b4a81f74d90fa8f413c9ebd85f384 (patch)
tree5a6039c28101b51a299bc04a3515503cc0d3117f /doc/sgml2txt
parent068b41272e8fbb81882a187dcef6d5f3d4e43ed2 (diff)
downloadbird-7b099bf9a73b4a81f74d90fa8f413c9ebd85f384.tar
bird-7b099bf9a73b4a81f74d90fa8f413c9ebd85f384.zip
Recovering after change linuxdoc->birddoc
Diffstat (limited to 'doc/sgml2txt')
-rwxr-xr-xdoc/sgml2txt44
1 files changed, 44 insertions, 0 deletions
diff --git a/doc/sgml2txt b/doc/sgml2txt
new file mode 100755
index 0000000..3f7b682
--- /dev/null
+++ b/doc/sgml2txt
@@ -0,0 +1,44 @@
+#!/usr/bin/perl
+#
+# sgmltools.in
+#
+# $Id$
+#
+# SGML-Tools driver. Calls all other SGML-Tools components, contains
+# configuration information, etcetera.
+#
+package main;
+
+sub BEGIN
+{
+ require 5.004;
+}
+use strict;
+
+use vars qw($prefix $LibDir $BinDir $progs);
+
+$prefix = "/usr";
+$LibDir = "sbase";
+$BinDir = "/usr/bin";
+
+use lib "/usr/lib/sgml-tools";
+use lib "/usr/perl5";
+use lib "/usr/lib/perl5";
+$progs = {
+ "NSGMLS" => "/usr/bin/nsgmls",
+ "SGMLSASP" => "/usr/bin/sgmlsasp",
+ "GROFF" => "/usr/bin/groff",
+ "GROFFMACRO" => "-mgs"
+};
+
+require SGMLTools;
+&SGMLTools::init;
+
+my @FileList = SGMLTools::process_options ($0, @ARGV);
+for my $curfile (@FileList)
+ {
+ SGMLTools::process_file ($curfile);
+ }
+
+exit 0;
+