Lines Matching full:upper
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);
49 $UPPER = 12;
60 my @upper;
136 $upper[$code] = &make_hex ($fields[$CASE_UPPER]);
204 $upper[$code] = make_hex ($fields[$UPPER]);
211 $upper[$code] = pack ("U", $code);
217 $upper[$code] = make_hex ($fields[$UPPER]);
233 my $upper = $upper[$i];
235 if (defined $upper || defined $lower || defined $title) {
240 (defined $upper ? $upper : ""),
