Mercurial > hg > xemacs-beta

comparison lib-src/process-gnu-depends.sh @ 0:376386a54a3c r19-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-14
author cvs
date Mon, 13 Aug 2007 08:45:50 +0200
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:376386a54a3c
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