summaryrefslogtreecommitdiffstats
path: root/contrib/syslinux/syslinux-4.03/core/genhash.pl
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/syslinux/syslinux-4.03/core/genhash.pl')
-rwxr-xr-xcontrib/syslinux/syslinux-4.03/core/genhash.pl26
1 files changed, 0 insertions, 26 deletions
diff --git a/contrib/syslinux/syslinux-4.03/core/genhash.pl b/contrib/syslinux/syslinux-4.03/core/genhash.pl
deleted file mode 100755
index c79139f..0000000
--- a/contrib/syslinux/syslinux-4.03/core/genhash.pl
+++ /dev/null
@@ -1,26 +0,0 @@
-#!/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);
-}