Lines Matching refs:key
36 my $file; ## file to load data from, and also part of the %Cache key.
147 ## If we have, return the cached results. The cache key is the
252 my $key;
255 for $key (0 .. $len - 1) { vec($swatch, $key, $bits) = $none }
278 for ($key = $min; $key <= $max; $key++) {
279 last LINE if $key >= $end;
280 print STDERR "$key => $val\n" if DEBUG;
281 vec($swatch, $key - $start, $bits) = $val;
290 for ($key = $min; $key <= $max; $key++, $val++) {
291 last LINE if $key >= $end;
292 print STDERR "$key => $val\n" if DEBUG;
293 vec($swatch, $key - $start, $bits) = $val;
308 for ($key = $min; $key <= $max; $key++) {
309 last LINE if $key >= $end;
310 print STDERR "$key => 1\n" if DEBUG;
311 vec($swatch, $key - $start, 1) = 1;
330 for ($key = 0; $key < $len; $key++) {
331 vec($swatch, $key, $bits) = vec($other, $key, $otherbits);
340 for ($key = 0; $key < $len; $key++) {
341 if (!vec($other, $key, $otherbits)) {
342 vec($swatch, $key, $bits) = 1;
352 for ($key = 0; $key < $len; $key++) {
353 if (vec($other, $key, $otherbits)) {
354 vec($swatch, $key, $bits) = 0;
363 for ($key = 0; $key < $len; $key++) {
364 print STDERR vec($swatch, $key, $bits), " ";