Lines Matching full:"$ key"
133 foreach my $key (keys(%index_map)) {
134 foreach my $reg (@{$index_map{$key}}) {
137 print OUTFILE " return $key;\n\n";
150 foreach my $key (keys(%chan_map)) {
151 foreach my $reg (@{$chan_map{$key}}) {
155 if ($key eq 'X') {
157 } elsif ($key eq 'Y') {
159 } elsif ($key eq 'Z') {
161 } elsif ($key eq 'W') {
164 die("Unknown chan value; $key");
