Lines Matching refs:val
335 my %val;
350 $val{ $c[1] }{ $c[2] }{ $c[3] } = $hash->{$uv};
353 foreach my $p (sort { $a <=> $b } keys %val) {
354 next if ! $val{ $p };
356 next if ! $val{ $p }{ $r };
359 print "\t", defined $val{$p}{$r}{$c}
360 ? "($type)".$val{$p}{$r}{$c}
368 foreach my $p (sort { $a <=> $b } keys %val) {
369 next if ! $val{ $p };
372 print $val{ $p }{ $r }
376 print "\n" if $val{ $p }{ $r } || ($r+1) % 8 == 0;
382 print $val{ $p } ? sprintf("${head}_%02x", $p) : "NULL";