1@rem = '--*-Perl-*-- 2@echo off 3set arg= 4set prog=%0 5:one 6if "%1"=="" goto two 7set arg=%arg% %1 8shift 9goto one 10:two 11#if @TEXLIVE@ 12perl -x -S %prog% %arg% 13#else 14@PERL@ -x -S %prog% %arg% 15#fi 16set arg= 17set prog= 18goto endofperl 19@rem '; 20#! perl -w 21 22# Here we are in the perl script, finally. The stuff above 23# collects command line arguments and starts up perl and this 24# script 25 26package main; 27require 5.00305; 28use strict; 29use vars qw($LATEX2HTMLDIR $SCRIPT $TEXLIVEROOT); 30 31# Set LATEX2HTMLDIR 32 33my $tool = $0; 34$tool =~ s:^.*[\\/]::; # strip path 35$tool =~ s:[.][^\\/.]*$::; # strip extension 36 37BEGIN { 38 unless($LATEX2HTMLDIR = $ENV{'LATEX2HTMLDIR'}) { 39#if @texlive@ 40 my $root = try($0) || ( -s $0 ? 41 do { 42 use Cwd; 43 my $path = join('\\',cwd(),$0); 44 1 while($path =~ s|[/\\]\.?[/\\]|\\|g); # simplify 45 try($path); 46 } : 47 do { 48 my $path = ''; 49 foreach(split(/;/, $ENV{PATH} || '')) { 50 $path = "$_\\$0"; 51 last if(-s $path); 52 $path = ''; 53 } 54 try($path); 55 }) || die "Cannot determine TeXlive root path\n"; 56 57 $TEXLIVEROOT = $root; 58 $LATEX2HTMLDIR = $ENV{'LATEX2HTMLDIR'} = "$root\\latex2html"; 59#else 60 $LATEX2HTMLDIR = $ENV{'LATEX2HTMLDIR'} = '@LATEX2HTMLDIR@'; 61#fi 62 } 63 sub try { 64 my ($path) = @_; 65 $path =~ m:^(.*)[/\\]bin[/\\][^/\\]*[/\\]([^/\\]*)(\.bat|)$:i ? 66 $1 : ''; 67 } 68} 69 70if(-d $LATEX2HTMLDIR) { 71 push(@INC,$LATEX2HTMLDIR); 72} else { 73 die qq{Fatal: Directory "$LATEX2HTMLDIR" does not exist.\n}; 74} 75 76# now start the main script! 77$SCRIPT = "$LATEX2HTMLDIR\\$tool.pl"; 78require $SCRIPT 79 || die "Fatal: Cannot load script $SCRIPT\n"; 80 81__END__ 82:endofperl 83