Re: latex2html: repeated inputs/includes

[jbakker]

> I'm having a problem with repeated sections in the html conversion
> with both 97.1 and 98.1p1. The following is an example using three
> latex files, a.tex, b.tex and c.tex.

Lucky you! Have you tried more than 2 input files? You might notice,
latex2html 98.1p1 gets into an infinite loop.

Workaround for the latter might help you too: put everything into one (temp)
file, and use that as input to latex2html.
The script doing that is in Perl (see below). You run it on your latex
document:
    l2hpatch < your.tex > your.l2h
    latex2html your.l2h
    rm your.l2h

Cheers - Jorgo




#!/usr/local/bin/perl
#
# author:   Jorgo Bakker, BSC
#
# patch on: more than 2 \input{file} statements in LaTex documents produces 
#           infinite loop in latex2html.
#
# usage:    l2hpatch < LatexDocument > patchedLatexDocument
#
#           where the latter is the patched document that can be handled by
#           latex2html
$tabber = 1;
print STDERR "l2hpatch - 1.0 patch for latex2html latex2html 98.1p1\n";


&documentSearch(\*STDIN);

print STDERR "\n";
exit;


#------------------------------------------------------------------------------
# search current LaTeX document for include files....
sub documentSearch{
    my ($filehandle) = @_;
    my ($pre,$file,$post);

    while (<$filehandle>)
    {
        if (/^[^\%]*\\(input|include)\s*\{\s*([^\}]*)\s*\}/)
        {
            ($pre,$file,$post) = ($`,$2,$');
            if ($pre) {print STDOUT "$pre\n";}

            &documentInline($file);

            if ($post) {print STDOUT "$post";}
        }
        else
        {
            print STDOUT "$_";
        }
        
    }
}

# recursively opens included LaTeX files
sub documentInline{
    my ($file) = @_;
    local (*FILE);
        
    open(FILE,&documentLocate($file)) || die "could not open file '$file'\n";
    print STDOUT "\%//begin including\{$file\}\n";
    print STDERR "   " x $tabber++ . "including $file...\n";

    &documentSearch(\*FILE);    

    $tabber--;
    print STDOUT "\%//end including\{$file\}\n";
    close(FILE);
}

sub documentLocate{
    my ($file) = @_;
    my ($here);
    my (@path) = split(":",$ENV{"TEXINPUTS"});

    unshift(@path,".");
    while ( $here = shift(@path) ) {
        
        $here .= "/".$file;
        if (-e $here) {last;}

        $here .= ".tex";
        if (-e $here) {last;}

        undef $here;
    }

    $here || die "could not find $file!\n";

    $here;
}