annotate lib-src/gnudepend.pl @ 3017:1e7cc382eb16
[xemacs-hg @ 2005-10-24 10:07:26 by ben]
refactor mc-alloc dependencies
next-error.el, occur.el: Fix some byte-compile warnings.
alloc.c, buffer.c, buffer.h, casetab.c, casetab.h, charset.h, chartab.c, chartab.h, console-impl.h, console-msw-impl.h, console.c, data.c, database.c, device-impl.h, device-msw.c, device.c, dialog-msw.c, elhash.c, events.h, extents-impl.h, extents.c, faces.c, faces.h, file-coding.c, file-coding.h, frame-impl.h, frame.c, glyphs.c, glyphs.h, gui.c, gui.h, keymap.c, lisp.h, lrecord.h, lstream.c, lstream.h, mule-charset.c, objects-impl.h, objects.c, opaque.c, opaque.h, print.c, process.c, procimpl.h, rangetab.c, rangetab.h, scrollbar-gtk.c, scrollbar-msw.c, scrollbar-x.c, scrollbar.c, scrollbar.h, specifier.c, specifier.h, symbols.c, symeval.h, toolbar.c, toolbar.h, tooltalk.c, ui-gtk.c, ui-gtk.h, unicode.c, window-impl.h, window.c:
Eliminate the majority of #ifdef MC_ALLOC occurrences through
macros LCRECORD_HEADER, ALLOC_LCRECORD_TYPE, MALLOCED_STORAGE_SIZE,
etc. (defined in lrecord.h).
| author |
ben |
| date |
Mon, 24 Oct 2005 10:07:42 +0000 |
| parents |
3ecd8885ac67 |
| children |
|
| rev |
line source |
|
428
|
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 }
|
