core/genhash.pl

   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 }