Lines Matching refs:code
20 # 2. Redistribution of source code must retain the copyright notices as they
21 # appear in each source code file, this License Terms and Conditions.
209 my $code = $data{CODE};
216 if (defined $cond && (@$lower > 1 || $lower->[0] != $code)
217 or @$lower > 1 or $lower->[0] != $code) {
218 $lower_special{$code} = [$lower, $cond];
220 if (defined $cond && (@$upper > 1 || $upper->[0] != $code)
221 or @$upper > 1 or $upper->[0] != $code) {
222 $upper_special{$code} = [$upper, $cond];
243 my $code = $data{CODE};
247 $nonstarter{$code} = 1;
248 $canon_class->add($code, $data{CLASS});
252 if (exists $upper_special{$code} or defined $data{UPPER}) {
256 $upper->add($code, $offset);
257 if (exists $upper_special{$code}) {
258 push @casedata, $upper_special{$code};
267 if (exists $lower_special{$code} or defined $data{LOWER}) {
271 $lower->add($code, $offset);
272 if (exists $lower_special{$code}) {
273 push @casedata, $lower_special{$code};
287 if ($tag eq '' and @decomp > 1 and not exists $exclusions{$code}) {
289 push @comp_cand, [$code, @decomp];
297 $decomp->add($code, $offset);
305 $casemap_ctx->add($code, $LETTER_BIT);
307 $casemap_ctx->add($code, $NSPMARK_BIT);