--- embedaddon/bird/doc/sgml2txt 2017/08/22 12:33:54 1.1.1.1 +++ embedaddon/bird/doc/sgml2txt 2021/03/17 19:50:23 1.1.1.2 @@ -2,7 +2,7 @@ # # sgmltools.in # -# $Id: sgml2txt,v 1.1.1.1 2017/08/22 12:33:54 misho Exp $ +# $Id: sgml2txt,v 1.1.1.2 2021/03/17 19:50:23 misho Exp $ # # SGML-Tools driver. Calls all other SGML-Tools components, contains # configuration information, etcetera. @@ -17,8 +17,10 @@ use strict; use vars qw($prefix $DataDir $BinDir $progs); +use FindBin; + $prefix = "/usr"; -$DataDir = "sbase"; +$DataDir = "$FindBin::Bin/sbase"; $BinDir = "/usr/bin"; use lib "/usr/share/linuxdoc-tools"; @@ -32,9 +34,14 @@ $progs = { "GROFFMACRO" => "-ms", "AWK" => "/usr/share/linuxdoc-tools/awkwhich" }; -$ENV{"SGML_CATALOG_FILES"} = "sbase/dtd/catalog"; -require "./LinuxDocTools.pm"; +if (! -x $progs->{"NSGMLS"}) + { $progs->{"NSGMLS"} = "/usr/bin/onsgmls"; } + +$ENV{"SGML_CATALOG_FILES"} = "$DataDir/dtd/catalog" . + (defined $ENV{SGML_CATALOG_FILES} ? ":$ENV{SGML_CATALOG_FILES}" : ""); + +require "$FindBin::Bin/LinuxDocTools.pm"; &LinuxDocTools::init; my @FileList = LinuxDocTools::process_options ("txt", @ARGV);