lib-src/gnudepend.pl

   1 #!/usr/bin/perl
   2
   3 while (<>)
   4 {
   5     if (/\\$/)
   6     {
   7         chop;
   8         $foo .= $_;
   9     }
  10     else
  11     {
  12         @foo = split (/[ \\:]+/, $foo);
  13         $filename = $foo[0];
  14         if (($filename =~ /^unex/) ||
  15             ($filename =~ /^sgiplay/) ||
  16             ($filename =~ /^Extern/) ||
  17             ($filename =~ /^extw/))
  18         {
  19             $foo = "";
  20             next;
  21         }
  22         @foo = grep (!/\.c$/, @foo);
  23         @foo = grep ((s/\/.*lwlib\//\$(LWLIBSRCDIR)\//, 1), @foo);
  24         @foo = grep (!/lisp\.h/, @foo);
  25         @foo = grep (!/lisp\.h/, @foo);
  26         @foo = grep (!/lisp-union\.h/, @foo);
  27         @foo = grep (!/lisp-disunion\.h/, @foo);
  28         @foo = grep (!/lrecord\.h/, @foo);
  29         @foo = grep (!/emacsfns\.h/, @foo);
  30         @foo = grep (!/symeval\.h/, @foo);
  31         @foo = grep (!/symsinit\.h/, @foo);
  32         @foo = grep (!/syssignal\.h/, @foo);
  33         @foo = grep (!/intl\.h/, @foo);
  34         @foo = grep (!/tt_c\.h/, @foo);
  35         @foo = grep (!/descrip\.h/, @foo);
  36         shift @foo;
  37         foreach $i (0 .. $#foo)
  38         {
  39             $foo[$i] = $filename . ": " . $foo[$i];
  40         }
  41         print $filename . ": config.h\n";
  42         print join ("\n", @foo);
  43         print "\n";
  44         $foo = "";
  45     }
  46 }