]>
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 PM |
19 | |
20 | $prefix = "/usr"; | |
9c763123 | 21 | $DataDir = "sbase"; |
6e06e6ee PM |
22 | $BinDir = "/usr/bin"; |
23 | ||
9c763123 | 24 | use lib "/usr/share/linuxdoc-tools"; |
6e06e6ee PM |
25 | use lib "/usr/perl5"; |
26 | use lib "/usr/lib/perl5"; | |
9c763123 | 27 | use lib "/usr/share/perl5"; |
6e06e6ee PM |
28 | $progs = { |
29 | "NSGMLS" => "/usr/bin/nsgmls", | |
30 | "SGMLSASP" => "/usr/bin/sgmlsasp", | |
31 | "GROFF" => "/usr/bin/groff", | |
9c763123 MM |
32 | "GROFFMACRO" => "-ms", |
33 | "AWK" => "/usr/share/linuxdoc-tools/awkwhich" | |
6e06e6ee | 34 | }; |
9c763123 | 35 | $ENV{"SGML_CATALOG_FILES"} = "sbase/dtd/catalog"; |
6e06e6ee | 36 | |
9c763123 MM |
37 | require "./LinuxDocTools.pm"; |
38 | &LinuxDocTools::init; | |
6e06e6ee | 39 | |
9c763123 | 40 | my @FileList = LinuxDocTools::process_options ("html", @ARGV); |
6e06e6ee PM |
41 | for my $curfile (@FileList) |
42 | { | |
9c763123 | 43 | LinuxDocTools::process_file ($curfile); |
6e06e6ee PM |
44 | } |
45 | ||
46 | exit 0; |