src/gendepend.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4
   5 print "# Dependency list automatically generated by gendepend.pl\n\n";
   6
   7 &concatenate_lines();
   8
   9 sub process_line {
  10     my $line = shift;
  11     my $max = 78;
  12     my $first = 1;
  13
  14     $line =~ s|/usr/include/\S+||g;  # remove SDL etc header files
  15     $line =~ s/  +/ /g;              # remove duplicate spaces
  16
  17     while($line =~ /(.{1,$max})(\s|$)/g) {
  18         if($first) {
  19             $first = 0;
  20             $max -= 4;
  21         }
  22         else {
  23             print " \\\n    ";
  24         }
  25
  26         print "$1";
  27     }
  28
  29     print "\n\n";
  30 }
  31
  32 sub concatenate_lines {
  33     my $line = '';
  34
  35     while(<>) {
  36         chomp;                       # remove newline
  37
  38         if(!/:/) {
  39             $line =~ s/\\$//;        # remove trailing backslash
  40             $line .= ' ' . $_;
  41         }
  42         else {
  43             if($line ne '') {        # if it's not the first line
  44                 &process_line($line);
  45             }
  46
  47             $line = $_;
  48         }
  49     }
  50
  51     if($line ne '') {
  52         &process_line($line);
  53     }
  54 }