#!/usr/bin/perl

use strict;

my @files = ();
my %dirs = ();
my ($file_arg,$target,$file,$imagefilelist,$filelist,$paths,$makefile);

die "Usage:\n\t $0 target\n" if $#ARGV<0;
$file_arg=$ARGV[0];
die "Cannot calculate dependencies for non-existent file" if ! -f $file_arg;
$file_arg =~ /^(.*)\.tex$/;
$target = $1;
push @files, $file_arg;
%dirs = ();
while (scalar @files)
{
    $file = pop @files;
    open(SRC, $file);
    while(<SRC>)
    {
	next if /^%/;
	if (/^.*\\input\{([^\}]*)\}/)
	{
	    push @files, $1;
	    $1 =~ /^(.*\/)/;
	    if ($1 =~ /^(.*\/)/)
	    {
		$dirs{$1} = 1;
	    }
	}
	if (/^.*\\include\{([^\}]*)\}/)
	{
	    push @files, $1.".tex";
	    $1 =~ /^(.*\/)/;
	    if ($1 =~ /^(.*\/)/)
	    {
		$dirs{$1} = 1;
	    }
	}
	if (/^.*\\bibliography\{([^\}]*)\}/)
	{
	    push @files, $1.".bib";
	    if ($1 =~ /^(.*\/)/)
	    {
		$dirs{$1} = 1;
	    }
	}
    }
    if ($file =~ /eepic/)
    {
	$imagefilelist .= " $file";
    }
    $filelist.=" $file";
    close SRC;
}

$paths = "./";
foreach my $f (keys %dirs)
{
    $paths .= " ./$f";
}

$makefile = <<EOD;
# Processors
LATEX = latex --interaction=nonstopmode
BIBTEX = bibtex
L2H = latex2html
PDFLATEX = pdflatex
PS2PDF = ps2pdf
DVIPS = dvips
FIG2DEV = fig2dev
FIND = find
XARGS = xargs
GZIP = gzip -f
COPY = if test -r \$*.toc; then cp \$*.toc \$*.toc.bak; fi
RM = rm -f

# Viewers
PSVIEWER = gv
PDFVIEWER = xpdf

RERUN = (There were undefined references|Rerun to get (cross-references|the bars) right)
RERUNBIB = No file.*\.bbl|There were undefined citations

DVIFILES = $target.dvi
GOALS = \$(DVIFILES) $target.ps $target.pdf

ALLFILES = $filelist
IMAGEFILES = $imagefilelist

main:		\$(IMAGEFILES) \$(GOALS)

all:		\$(IMAGEFILES) \$(GOALS)

%.eepic:	%.fig
		fig2dev -L eepic \$< \$*.eepic

%.dvi:		%.tex \$(ALLFILES)
		\$(COPY);\$(LATEX) \$<
		egrep -c "\$(RERUNBIB)" \$*.log && (\$(BIBTEX) \$*;\$(COPY);\$(LATEX) \$<) ; true
		egrep "\$(RERUN)|\$(RERUNBIB)" \$*.log && (\$(COPY);\$(LATEX) \$<) ; true
		egrep "\$(RERUN)|\$(RERUNBIB)" \$*.log && (\$(COPY);\$(LATEX) \$<) ; true
		if cmp -s \$*.toc \$*.toc.bak; then echo "OK" ;else \$(LATEX) \$< ; fi
		\$(RM) \$*.toc.bak

%.ps:		%.dvi
		dvips \$< -o \$@
		cp \$@ \$@.copy
		\$(GZIP) \$@
		mv \$@.copy \$@

%.pdf:		%.ps
		cp \$< \$<.copy
		\$(PS2PDF) \$<
		mv \$<.copy \$<

clean: 		
		(\$(FIND) $paths \\
		    -maxdepth 1 \\
		    -name "*.aux" -or \\
		    -name "*.log" -or \\
		    -name "*.bbl" -or \\
		    -name "*.blg" -or \\
		    -name "*.brf" -or \\
		    -name "*.cb" -or \\
		    -name "*.ind" -or \\
		    -name "*.idx" -or \\
		    -name "*.ilg" -or \\
		    -name "*.inx" -or \\
		    -name "*.ps" -or \\
		    -name "*.dvi" -or \\
		    -name "*.pdf" -or \\
		    -name "*.ps.gz" -or \\
		    -name "*.thm" -or \\
		    -name "*.toc" -or \\
		    -name "*.bak" -or \\
		    -name "*.out" -or \\
		    -name "*.eepic" \\
		) | \$(XARGS) \$(RM)

cleaner:
		make clean
		\$(RM) Makefile

EOD

open MAKEFILE, "> Makefile";
print MAKEFILE $makefile;
close MAKEFILE;