mkinitrd-magellan/isolinux/genhash.pl

#!/usr/bin/perl
#
# Generate hash values for keywords
#

eval { use bytes; };

while ( defined($keywd = <STDIN>) ) {
    chomp $keywd;
    
    ($keywd,$keywdname) = split(/\s+/, $keywd);
    $keywdname = $keywd unless ( $keywdname );

    $l = length($keywd);
    $h = 0;
    for ( $i = 0 ; $i < $l ; $i++ ) {
	$c = ord(substr($keywd,$i,1)) | 0x20;
	$h = ((($h << 5)|($h >> 27)) ^ $c) & 0xFFFFFFFF;
    }
    if ( $seenhash{$h} ) {
	printf STDERR "$0: hash collision (0x%08x) %s %s\n",
	$h, $keywd, $seenhash{$h};
    }
    $seenhash{$h} = $keywd;
    printf("%-23s equ 0x%08x\n", "hash_${keywdname}", $h);
}
1	niro	532	#!/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			}