Lines Matching refs:mb
134 my $mb = wctomb($d[0]);
139 next if !defined $utf8map{$mb};
160 $data{$cat}{$mb}{'wc'} = $d[0];
164 $data{$cat}{$mb}{'start'} = 1;
166 $data{$cat}{$mb}{'end'} = 1;
171 $data{'toupper'}{$mb} = wctomb($d[12]);
173 $data{'tolower'}{$mb} = wctomb($d[13]);
184 foreach my $mb (sort keys (%{$data{$cat}})) {
189 die "broken range end wc=$data{$cat}{$mb}{'wc'}"
190 if !defined $data{$cat}{$mb}{'end'};
198 print FOUT "($utf8map{$mb},$utf8map{$data{$cat}{$mb}})";
200 if (defined($data{$cat}{$mb}{'start'})) {
203 print FOUT "$utf8map{$mb}";