From 7b099bf9a73b4a81f74d90fa8f413c9ebd85f384 Mon Sep 17 00:00:00 2001
From: Pavel Machek <pavel@ucw.cz>
Date: Tue, 30 May 2000 11:50:17 +0000
Subject: Recovering after change linuxdoc->birddoc

---
 doc/sgml2txt | 44 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100755 doc/sgml2txt

(limited to 'doc/sgml2txt')

diff --git a/doc/sgml2txt b/doc/sgml2txt
new file mode 100755
index 00000000..3f7b6826
--- /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;
+
-- 
cgit v1.2.3