1#!/usr/bin/perl
2#
3# Generate hash values for keywords
4#
5
6eval { use bytes; };
7
8while ( 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}
27