]>
Commit | Line | Data |
---|---|---|
7b099bf9 PM |
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 | ||
9c763123 | 18 | use vars qw($prefix $DataDir $BinDir $progs); |
7b099bf9 | 19 | |
7152e5ef JMM |
20 | use FindBin; |
21 | ||
7b099bf9 | 22 | $prefix = "/usr"; |
7152e5ef | 23 | $DataDir = "$FindBin::Bin/sbase"; |
7b099bf9 PM |
24 | $BinDir = "/usr/bin"; |
25 | ||
9c763123 | 26 | use lib "/usr/share/linuxdoc-tools"; |
7b099bf9 PM |
27 | use lib "/usr/perl5"; |
28 | use lib "/usr/lib/perl5"; | |
9c763123 | 29 | use lib "/usr/share/perl5"; |
7b099bf9 PM |
30 | $progs = { |
31 | "NSGMLS" => "/usr/bin/nsgmls", | |
32 | "SGMLSASP" => "/usr/bin/sgmlsasp", | |
33 | "GROFF" => "/usr/bin/groff", | |
9c763123 MM |
34 | "GROFFMACRO" => "-ms", |
35 | "AWK" => "/usr/share/linuxdoc-tools/awkwhich" | |
7b099bf9 | 36 | }; |
900fda44 OZ |
37 | |
38 | if (! -x $progs->{"NSGMLS"}) | |
39 | { $progs->{"NSGMLS"} = "/usr/bin/onsgmls"; } | |
40 | ||
0e492063 RS |
41 | $ENV{"SGML_CATALOG_FILES"} = "$DataDir/dtd/catalog" . |
42 | (defined $ENV{SGML_CATALOG_FILES} ? ":$ENV{SGML_CATALOG_FILES}" : ""); | |
7b099bf9 | 43 | |
7152e5ef | 44 | require "$FindBin::Bin/LinuxDocTools.pm"; |
9c763123 | 45 | &LinuxDocTools::init; |
7b099bf9 | 46 | |
9c763123 | 47 | my @FileList = LinuxDocTools::process_options ("txt", @ARGV); |
7b099bf9 PM |
48 | for my $curfile (@FileList) |
49 | { | |
9c763123 | 50 | LinuxDocTools::process_file ($curfile); |
7b099bf9 PM |
51 | } |
52 | ||
53 | exit 0; |