Contents of /tags/mkinitrd-6_0_6/mkinitrd-magellan/isolinux/genhash.pl
Parent Directory | Revision Log
Revision 705 -
(show annotations)
(download)
Mon Mar 31 13:51:27 2008 UTC (16 years, 6 months ago) by (unknown author)
File MIME type: text/plain
File size: 610 byte(s)
Mon Mar 31 13:51:27 2008 UTC (16 years, 6 months ago) by (unknown author)
File MIME type: text/plain
File size: 610 byte(s)
This commit was manufactured by cvs2svn to create tag 'mkinitrd-6_0_6'.
1 | #!/usr/bin/perl |
2 | # |
3 | # Generate hash values for keywords |
4 | # |
5 | |
6 | eval { use bytes; }; |
7 | |
8 | while ( defined($keywd = <STDIN>) ) { |
9 | chomp $keywd; |
10 | |
11 | ($keywd,$keywdname) = split(/\s+/, $keywd); |
12 | $keywdname = $keywd unless ( $keywdname ); |
13 | |
14 | $l = length($keywd); |
15 | $h = 0; |
16 | for ( $i = 0 ; $i < $l ; $i++ ) { |
17 | $c = ord(substr($keywd,$i,1)) | 0x20; |
18 | $h = ((($h << 5)|($h >> 27)) ^ $c) & 0xFFFFFFFF; |
19 | } |
20 | if ( $seenhash{$h} ) { |
21 | printf STDERR "$0: hash collision (0x%08x) %s %s\n", |
22 | $h, $keywd, $seenhash{$h}; |
23 | } |
24 | $seenhash{$h} = $keywd; |
25 | printf("%-23s equ 0x%08x\n", "hash_${keywdname}", $h); |
26 | } |
Properties
Name | Value |
---|---|
svn:executable | * |