Also test arrays without aelemfast optimization

[perl/modules/autovivification.git] / samples / hash2array.pl

diff --git a/samples/hash2array.pl b/samples/hash2array.pl
index 863ba885721a1de1c42bc9929d4b51426a34f76b..8b3419d1139fbdbb68f742470b85125bbc8aec40 100644 (file)
--- a/samples/hash2array.pl
+++ b/samples/hash2array.pl
@@ -6,8 +6,9 @@ use warnings;
 use Fatal qw/open/;
 use Text::Balanced qw/extract_bracketed/;
 
-open my $hash_t,  '<', 't/20-hash.t';
-open my $array_t, '>', 't/21-array.t';
+open my $hash_t,       '<', 't/20-hash.t';
+open my $array_t,      '>', 't/30-array.t';
+open my $array_fast_t, '>', 't/31-array-fast.t';
 
 sub num { ord($_[0]) - ord('a') }
 
@@ -35,23 +36,28 @@ my $in_data;
 while (<$hash_t>) {
  if (/^__DATA__$/) {
   $in_data = 1;
-  print $array_t $_;
+  print $array_t      $_;
+  print $array_fast_t $_;
  } elsif (!$in_data) {
   s{'%'}{'\@'};
-  print $array_t $_;
+  print $array_t      $_;
+  print $array_fast_t $_;
  } else {
-  s!(\ba\b)?(\s*)HASH\b!($1 ? 'an': '') . "$2ARRAY"!eg;
-  s!->{([a-z])}!'->[' . num($1) . ']'!eg;
-  s!%(\{?)\$!\@$1\$!g;
-  my $buf;
-  my $suffix = $_;
-  my ($bracket, $prefix);
-  while (do { ($bracket, $suffix, $prefix) = extract($suffix); $bracket }) {
-   $buf .= $prefix . dump_array(hash2array(eval $bracket));
+  for my $file ([ 1, $array_t ], [ 0, $array_fast_t ]) {
+   local $_ = $_;
+   s!(\ba\b)?(\s*)HASH\b!($1 ? 'an': '') . "$2ARRAY"!eg;
+   s!->{([a-z])}!my $n = num($1); '->[' . ($file->[0] ? "\$N[$n]" : $n) .']'!eg;
+   s!%(\{?)\$!\@$1\$!g;
+   my $buf;
+   my $suffix = $_;
+   my ($bracket, $prefix);
+   while (do { ($bracket, $suffix, $prefix) = extract($suffix); $bracket }) {
+    $buf .= $prefix . dump_array(hash2array(eval $bracket));
+   }
+   $buf .= $suffix;
+   $buf =~ s/\s+/ /g;
+   $buf =~ s/\s+$//;
+   print { $file->[1] } "$buf\n";
   }
-  $buf .= $suffix;
-  $buf =~ s/\s+/ /g;
-  $buf =~ s/\s+$//;
-  print $array_t "$buf\n";
  }
 }