Apply new glyph-image conventions for `ucs@*', `adobe-japan1-*',
[chise/xemacs-chise.git.1] / 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 }