phash.pl

   1 #!/usr/bin/perl
   2 #
   3 # Perfect Minimal Hash Generator written in Perl, which produces
   4 # C output.
   5 #
   6
   7 # I don't think this file is even used.
   8
   9 use lib qw'perllib';
  10
  11 require 'phash.ph';
  12
  13 #
  14 # Main program
  15 #
  16 sub main() {
  17     my $n;
  18     my %data;
  19     my @hashinfo;
  20     my $x, $i;
  21
  22     %data = read_input();
  23     @hashinfo = gen_perfect_hash(\%data);
  24
  25     if (!defined(@hashinfo)) {
  26         die "$0: no hash found\n";
  27     }
  28
  29     verify_hash_table(\%data, \@hashinfo);
  30
  31     ($n, $sv, $f1, $f2, $g) = @hashinfo;
  32
  33     print "static int HASHNAME_fg1[$n] =\n";
  34     print "{\n";
  35     for ($i = 0; $i < $n; $i++) {
  36         print "\t", ${$g}[${$f1}[$i]], "\n";
  37     }
  38     print "};\n\n";
  39
  40     print "static int HASHNAME_fg2[$n] =\n";
  41     print "{\n";
  42     for ($i = 0; $i < $n; $i++) {
  43         print "\t", ${$g}[${$f2}[$i]], "\n";
  44     }
  45     print "};\n\n";
  46
  47     print "struct p_hash HASHNAME =\n";
  48     print "{\n";
  49     print "\t$n\n";
  50     print "\t$sv\n";
  51     print "\tHASHNAME_fg1,\n";
  52     print "\tHASHNAME_fg2,\n";
  53     print "};\n";
  54 }
  55
  56 main();