tex2make document.tex

tex2make document.tex > Makefile

#!/usr/bin/perl
# tex2make
# Creates a Makefile that compiles the TeX and figures.

# First, we collect the figures in the text file.
# Two possibilities for now: 
#  - Things in \ingludegraphics{...} clause and 
#  - \input{...} within a figure environment
my $texfile = (shift or (die "TeX file must be specified."));
if( -f $texfile ) {
                open( TEX, "< $texfile" );
} else {
                die "$texfile does not exist."
}

my @figs;
my @lines;
my $inFig = 0;
my $nfigs = 0;
my $line;

while( $line=<TEX> ) {
                if($line =~ /\\includegraphics{(.*?)}/) {
                                $figs[$nfigs++] = $1;
                                $lines[$nfigs-1] = $line;
                }
                $inFig = 1 if($line =~ /\\begin{c?figure}/);
                $inFig = 0 if($line =~ /\\end{c?figure}/);
                if($inFig and ($line =~ /\\input{(.*?)}/) and 
                         not ($line =~ /^%/) ) {
                          $figs[$nfigs++] = $1;
                          $lines[$nfigs-1] = $line;
                }
}

close TEX;


# Now we check for a Makefile in the current dir. 
# If it exists, we use it for the magnification ratios
my %figsMags = &getPrevious();

# This is for debuggind only
#print "$nfigs figures were detected:\n";
#for( my $i=0; $i<$nfigs; $i++) {
#  print "$i: $figs[$i] in line $lines[$i]\n";
#}

print STDERR "I've found $nfigs figures in $texfile\n";

# Now, we write the file. 
print "# THIS MAKEFILE WAS GENERATED WITH tex2make 0.1\n\n";
# First, we need a list of the figures first
$list = "";
for my $fig (@figs) {
                $list .= " $fig";
}
print "FIGS = $list\n\n";

# We start with the PS dependency
my $file = &file_name($texfile);
print "$file.ps: $file.dvi \$(FIGS)\n";
print "\tdvips -p $file.ps $file.dvi\n\n";
# DVI...
print "$file.dvi: $texfile $file.bbl \$(FIGS)\n";
print "\tlatex $texfile && latex $texfile\n\n";
# The bibliography...
print "$file.bbl: $file.bib\n";
print "\tbibtex $file\n\n";
# A PDF dependency also...
print "pdf: $file.ps\n";
print "\tps2pdf $file.ps\n\n";

# Now we generate the dependencies for individual figures

for my $fig (@figs) {
                my $path = &file_path($fig);
                my $type = &file_type($fig);
                my $file = &file_name($fig);
                my $mag = ($figsMags{$fig} or 1.0);
                print STDERR "$fig: path=$path, type=$type, file=$file\n";
                unless( $type eq "pstex_t" ) {
                                print "$fig: $file.fig\n";
                                print "\tfig2dev -L $type -m $mag $file.fig $fig                                             \n\n";
                } else {
                                print "$fig: $file.fig $file.pstex\n";
                                print "\tfig2dev -L $type -m $mag -p $file.pstex                                              $file.fig $fig\n";
                                print "$file.pstex: $file.fig\n";
                                print "\tfig2dev -L pstex -m $mag $file.fig $fil                                             e.pstex\n\n";
                }
}

# A "clean" target is provided also
print "clean:\n";
print "\t-rm $file.{aux,dvi,ps,pdf,tex~}\n";
for my $fig (@figs) {
                my $type = &file_type($fig);
                print "\t-rm $fig\n";
                if( $type eq "pstex_t" ) {
                                my $file = &file_name($fig);
                                print "\t-rm $file.pstex\n";
                }       
}
print "\n";

print "\n# END OF Makefile\n";

# Extracts relative path if exists
sub file_path() {
                my $file = shift;
                return $1 if ($file =~ m|(.*)/|);
}

# Gives filetype among the recognized formats
sub file_type() {
                my $file = shift;
                return $1 if ($file =~ /.*\.(eps|pstex_t|pstex|eepic|epic|tex)/)                                             ;
}

# Gives filename (with relative path but not extension)
sub file_name() {
                my $file = shift;
    my $type = &file_type($file);
    return substr($file,0,length($file)-length($type)-1);
}

# Recovers list of files in Makefile
# Returns hash with keys=names of files and values=magnification ratios
sub getPrevious() {
                my %mags;
                my $n = 0;
                if( -f "Makefile" ) {
                                print STDERR "Old Makefile found. Extracting mag                                             nification ratios.\n";
                                open MAKEFILE, "< Makefile";
                                while( <MAKEFILE> ) {
                                                if (/fig2dev/) {
                                                                chomp;
                                                                my @line = split                                             ;
                                                                my $file = $line                                             [$#line];
                                                                shift(@line) unt                                             il ($line[0] eq "-m");
                                                                my $mag = $line[                                             1];
                                                                $mags{$file} = $                                             mag;
                                                                $n++;
                                                }
                                }
                                close MAKEFILE;
                }
                print STDERR "Found $n magnification definitions in old Makefile                                             .\n";
                return %mags;