perllib/gensv.pl

   1 #!/usr/bin/perl
   2 #
   3 # Generate a list of rotation vectors so we always use the same set.
   4 # This needs to be run on a platform with /dev/urandom.
   5 #
   6
   7 ($n) = @ARGV;
   8
   9 sysopen(UR, '/dev/urandom', O_RDONLY) or die;
  10
  11 $maxlen = 78;
  12
  13 print "\@random_sv_vectors = (\n";
  14 $outl = '   ';
  15
  16 for ($i = 0; $i < $n; $i++) {
  17
  18     do {
  19         die if (sysread(UR, $x4, 4) != 4);
  20         @n = unpack("C*", $x4);
  21
  22         $n[0] &= 31;
  23         $n[1] &= 31;
  24         $n[2] &= 31;
  25         $n[3] &= 31;
  26     } while ($n[0] == 0 || $n[1] == 0 || $n[2] == 0 || $n[3] == 0 ||
  27         $n[0] == $n[3] || $n[1] == $n[2]);
  28
  29     $xl = sprintf(" [%d,%d,%d,%d]%s",
  30                   $n[0], $n[1], $n[2], $n[3],
  31                   ($i == $n-1) ? '' : ',');
  32     if (length($outl.$xl) > $maxlen) {
  33         print $outl, "\n";
  34         $outl = '   ';
  35     }
  36     $outl .= $xl;
  37 }
  38 close(UR);
  39
  40 print $outl, "\n";
  41 print ");\n";
  42 print "1;\n";