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