]>
Commit | Line | Data |
---|---|---|
6e06e6ee 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); |
6e06e6ee | 19 | |
d9573a40 OZ |
20 | use FindBin; |
21 | ||
6e06e6ee | 22 | $prefix = "/usr"; |
d9573a40 | 23 | $DataDir = "$FindBin::Bin/sbase"; |
6e06e6ee PM |
24 | $BinDir = "/usr/bin"; |
25 | ||
9c763123 | 26 | use lib "/usr/share/linuxdoc-tools"; |
6e06e6ee PM |
27 | use lib "/usr/perl5"; |
28 | use lib "/usr/lib/perl5"; | |
9c763123 | 29 | use lib "/usr/share/perl5"; |
6e06e6ee 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" | |
6e06e6ee | 36 | }; |
d9573a40 | 37 | $ENV{"SGML_CATALOG_FILES"} = "$DataDir/dtd/catalog"; |
6e06e6ee | 38 | |
d9573a40 | 39 | require "$FindBin::Bin/LinuxDocTools.pm"; |
9c763123 | 40 | &LinuxDocTools::init; |
6e06e6ee | 41 | |
9c763123 | 42 | my @FileList = LinuxDocTools::process_options ("html", @ARGV); |
6e06e6ee PM |
43 | for my $curfile (@FileList) |
44 | { | |
9c763123 | 45 | LinuxDocTools::process_file ($curfile); |
6e06e6ee PM |
46 | } |
47 | ||
48 | exit 0; |