Mercurial > hg > xemacs-beta
view lib-src/gnudepend.pl @ 3734:e1f65870f845
[xemacs-hg @ 2006-12-11 10:04:27 by aidan]
2006-12-11 Aidan Kehoe <kehoea@parhasard.net>
* glyphs-eimage.c (png_warning_func):
* glyphs-eimage.c (png_instantiate):
* glyphs-eimage.c (tiff_warning_func):
Decode external binary data as such before passing it to
warn_when_safe().
author | aidan |
---|---|
date | Mon, 11 Dec 2006 10:04:30 +0000 (2006-12-11) |
parents | 3ecd8885ac67 |
children |
line wrap: on
line source
#!/usr/bin/perl while (<>) { if (/\\$/) { chop; $foo .= $_; } else { @foo = split (/[ \\:]+/, $foo); $filename = $foo[0]; if (($filename =~ /^unex/) || ($filename =~ /^sgiplay/) || ($filename =~ /^Extern/) || ($filename =~ /^extw/)) { $foo = ""; next; } @foo = grep (!/\.c$/, @foo); @foo = grep ((s/\/.*lwlib\//\$(LWLIBSRCDIR)\//, 1), @foo); @foo = grep (!/lisp\.h/, @foo); @foo = grep (!/lisp\.h/, @foo); @foo = grep (!/lisp-union\.h/, @foo); @foo = grep (!/lisp-disunion\.h/, @foo); @foo = grep (!/lrecord\.h/, @foo); @foo = grep (!/emacsfns\.h/, @foo); @foo = grep (!/symeval\.h/, @foo); @foo = grep (!/symsinit\.h/, @foo); @foo = grep (!/syssignal\.h/, @foo); @foo = grep (!/intl\.h/, @foo); @foo = grep (!/tt_c\.h/, @foo); @foo = grep (!/descrip\.h/, @foo); shift @foo; foreach $i (0 .. $#foo) { $foo[$i] = $filename . ": " . $foo[$i]; } print $filename . ": config.h\n"; print join ("\n", @foo); print "\n"; $foo = ""; } }