Lines Matching refs:fields

71     @fields = split (';', $_, 30);
74 	printf STDERR ("Entry for $fields[$CODE] has wrong number of fields (%d)\n", $#fields);
77     $code = hex ($fields[$CODE]);
82 	if ($fields[$NAME] =~ /Last>/)
86 	    @gfields = @fields;
101     &process_one ($code, @fields);
120     @fields = split ('\s*;\s*', $_, 30);
122     $raw_code = $fields[$CASE_CODE];
131     if (defined $fields[5]) {
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) = @_;
201     my $type =  $fields[$CATEGORY];
204 	$upper[$code] = make_hex ($fields[$UPPER]);
206 	$title[$code] = make_hex ($fields[$TITLE]);
210 	$lower[$code] = make_hex ($fields[$LOWER]);
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]);