Mercurial > hg > xemacs-beta
view lib-src/gnudepend.pl @ 4398:479443c0f95a
Have list hashes depend on the order of the contents, as is the case for vectors.
src/ChangeLog addition:
2008-01-16 Aidan Kehoe <kehoea@parhasard.net>
* elhash.c (internal_hash):
Make short lists with the same contents in a different order hash
distinctly. Gives better performance for things like three-element
lists describing colours. Thank you Sebastian Freundt!
tests/ChangeLog addition:
2008-01-16 Aidan Kehoe <kehoea@parhasard.net>
* automated/hash-table-tests.el:
Assert that two short lists with the same contents in distinct
orders hash differently.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Wed, 16 Jan 2008 15:20:51 +0100 |
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 = ""; } }