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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
# -*- perl -*- -w
#-
#- This is a wrapper for the Perl scripts. Allows execution of
#- the same script on different platforms. Mainly used for
#- TeXlive.
#-
#- When running TeXlive, "perl" must be available in the PATH
#-
##!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
#
# This is almost guaranteed to not work. If someone has any
# suggestions, please contact marek@saftsack.fs.uni-bayreuth.de
#
##!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
#-
# The above lines start up perl,
# below we find usual perl code
package main;
require 5.00305;
use strict;
use vars qw($LATEX2HTMLDIR $SCRIPT $TEXLIVEROOT);
# Set LATEX2HTMLDIR
my $tool = $0;
$tool =~ s/^.*://; # strip path
$tool =~ s/[.][^.]*$//; # strip extension
BEGIN {
unless($LATEX2HTMLDIR = $ENV{'LATEX2HTMLDIR'}) {
#if @texlive@
my $root = try($0) || ( -s $0 ?
do {
use Cwd;
my $path = join(':',cwd(),$0);
1 while($path =~ s|:\.?:|:|g); # simplify
try($path);
} :
do {
my $path = '';
foreach(split(/[|]/, $ENV{PATH} || '')) {
$path = $_ . ':' . $0;
last if(-s $path);
$path = '';
}
try($path);
}) || die "Cannot determine TeXlive root path\n";
$TEXLIVEROOT = $root;
$LATEX2HTMLDIR = $ENV{'LATEX2HTMLDIR'} = $root . ':latex2html';
#else
$LATEX2HTMLDIR = $ENV{'LATEX2HTMLDIR'} = '@LATEX2HTMLDIR@';
#fi
}
sub try {
my ($path) = @_;
$path =~ m/^(.*):bin:[^:]*:([^:]*)(\.\w+|)$:i ?
$1 : '';
}
}
if(-d $LATEX2HTMLDIR) {
push(@INC,$LATEX2HTMLDIR);
} else {
die qq{Fatal: Directory "$LATEX2HTMLDIR" does not exist.\n};
}
# now start the main script!
$SCRIPT = $LATEX2HTMLDIR . ":$tool.pl";
require "$LATEX2HTMLDIR/$tool.pl"
|| die "Fatal: Cannot load script $SCRIPT\n";
|
