Lines Matching refs:code
34 use vars qw($CODE $NAME $CATEGORY $COMBINING_CLASSES $BIDI_CATEGORY $DECOMPOSITION $DECIMAL_VALUE $DIGIT_VALUE $NUMERIC_VALUE $MIRRORED $OLD_NAME $COMMENT $UPPER $LOWER $TITLE $BREAK_CODE $BREAK_CATEGORY $BREAK_NAME $CASE_CODE $CASE_LOWER $CASE_TITLE $CASE_UPPER $CASE_CONDITION);
37 $CODE = 0;
74 printf STDERR ("Entry for $fields[$CODE] has wrong number of fields (%d)\n", $#fields);
77 $code = hex ($fields[$CODE]);
79 if ($code > $last_code + 1)
95 for (++$last_code; $last_code < $code; ++$last_code)
97 $gfields{$CODE} = sprintf ("%04x", $last_code);
101 &process_one ($code, @fields);
102 $last_code = $code;
111 my $code;
123 $code = hex ($raw_code);
136 $upper[$code] = &make_hex ($fields[$CASE_UPPER]);
137 $lower[$code] = &make_hex ($fields[$CASE_LOWER]);
138 $title[$code] = &make_hex ($fields[$CASE_TITLE]);
199 my ($code, @fields) = @_;
204 $upper[$code] = make_hex ($fields[$UPPER]);
205 $lower[$code] = pack ("U", $code);
206 $title[$code] = make_hex ($fields[$TITLE]);
210 $lower[$code] = make_hex ($fields[$LOWER]);
211 $upper[$code] = pack ("U", $code);
212 $title[$code] = make_hex ($fields[$TITLE]);
217 $upper[$code] = make_hex ($fields[$UPPER]);
218 $lower[$code] = pack ("U", hex ($fields[$LOWER]));
219 $title[$code] = make_hex ($fields[$LOWER]);
