1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
#!@PERL@ @PERLWARN@
#
# linuxdoc.in
#
# LinuxDoc-Tools driver. Calls all other LinuxDoc-Tools components,
# contains configuration information, etcetera.
# -------------------------------------------------------------------
package main;
use 5.006;
use strict;
use lib "@pkgdatadir@";
use lib "@perl5libdir@";
use LinuxDocTools::Utils qw{ldt_which};
our $prefix = "@prefix@";
our $isoentities_prefix = "@isoentities_prefix@";
our $DataDir = "@pkgdatadir@";
our $AuxBinDir = "@auxbindir@";
our $progs = {
"SGMLSASP" => ldt_which("sgmlsasp"),
"NSGMLS" => ldt_which("nsgmls","onsgmls"),
"GROFF" => ldt_which("groff"),
"GROFFMACRO" => "@GROFFMACRO@",
# "NKF" => "@NKF@"
};
require LinuxDocTools;
&LinuxDocTools::init;
my @FileList = LinuxDocTools::process_options ($0, @ARGV);
foreach my $curfile (@FileList) {
&LinuxDocTools::process_file ($curfile);
}
exit 0;
# Local Variables:
# mode: perl
# End:
|
