7 if (/^Primitive Name: (.*)$/) {
8 print $sep, lc $1, " {\n";
13 if (@f == 3 && $f[1] == "=") {
15 die "not a block boundary" if $pos % 64;
16 $hp = sprintf "%016x", $pos/64;
17 print " $k\n $n $hp 0 \"\"\n $s;\n";
21 if ($f[0] eq "key") { $k = lc $f[2]; $what = \$k; }
22 elsif ($f[0] eq "IV") { $n = lc $f[2]; }
23 elsif ($f[0] =~ /^stream\[(\d+)\.\.(\d+)]$/) {
29 if (defined $what) { $$what .= lc $f[0]; }
31 die "incomprehensible line";