diff options
| author | H. Peter Anvin <hpa@linux.intel.com> | 2010-09-22 14:02:28 -0700 |
|---|---|---|
| committer | H. Peter Anvin <hpa@linux.intel.com> | 2010-09-22 14:02:28 -0700 |
| commit | 0e7370cfa64b9cfe81d4ce9a5f0a07203836f9c7 (patch) | |
| tree | 978a59d597c0c907fc053284ac5db85e5834428e /perllib | |
| parent | 8fe1f65087dfa40e351b4afceb3c9b5b1f985d91 (diff) | |
| download | nasm-0e7370cfa64b9cfe81d4ce9a5f0a07203836f9c7.tar.gz nasm-0e7370cfa64b9cfe81d4ce9a5f0a07203836f9c7.tar.bz2 nasm-0e7370cfa64b9cfe81d4ce9a5f0a07203836f9c7.zip | |
phash: move sample function to the sample file
read_input() shouldn't be part of the phash.ph module; instead it
should go into the sample usage file phash.pl.
Signed-off-by: H. Peter Anvin <hpa@linux.intel.com>
Diffstat (limited to 'perllib')
| -rw-r--r-- | perllib/phash.ph | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/perllib/phash.ph b/perllib/phash.ph index 6b31f0a..5bc2744 100644 --- a/perllib/phash.ph +++ b/perllib/phash.ph @@ -170,32 +170,6 @@ sub gen_perfect_hash($) { } # -# Read input file -# -sub read_input() { - my $key,$val; - my %out; - my $x = 0; - - while (defined($l = <STDIN>)) { - chomp $l; - $l =~ s/\s*(\#.*|)$//; - - next if ($l eq ''); - - if ($l =~ /^([^=]+)\=([^=]+)$/) { - $out{$1} = $2; - $x = $2; - } else { - $out{$l} = $x; - } - $x++; - } - - return %out; -} - -# # Verify that the hash table is actually correct... # sub verify_hash_table($$) |