tools/mkdep.pl

   1 #!/usr/bin/perl
   2 #
   3
   4 use strict;
   5
   6 my $file;
   7 my $extnext;
   8 my @texfiles;
   9
  10 foreach my $name (@ARGV) {
  11   my @files;
  12   my $basename = $name;
  13   $basename =~ s/\.tex$//;
  14   open FH, "<$basename.log";
  15   while (<FH>) {
  16     $file = $1 if (m/^! LaTeX Error: File `(.+)' not found.$/);
  17     if (m/^I could not locate the file with any of these extensions:$/) {
  18       $extnext = 1;
  19       next;
  20     }
  21
  22     if ($extnext == 1) {
  23       $extnext = 0;
  24       $file .= (split /,/)[0];
  25       push @files, $file;
  26       $file = undef;
  27     }
  28   }
  29   close FH;
  30
  31   open FH, "<$basename.fls";
  32   while (<FH>) {
  33     if (m/^INPUT \.\/(.+\.tex)$/) {
  34         push @files, $1 unless ($1 eq $name);
  35         push @texfiles, $1;
  36     }
  37   }
  38
  39   $"=" ";
  40
  41   print "$basename.dvi: @files\n";
  42 }
  43
  44 print ".depends: @texfiles\n";