- my %earliest;
- foreach my $arrayname (sort keys %arrays) {
- my $array = $arrays{$arrayname};
- die "No defined entries in $arrayname" unless $array->[$#$array];
- # Find the first used entry
- my $earliest = 0;
- $earliest++ while (!$array->[$earliest]);
- # Remove all the empty elements.
- splice @$array, 0, $earliest;
- print "unsigned char size_${arrayname}[", scalar @$array, "] = {\n";
- my @lines;
- foreach (@$array) {
- # Remove the assumption here that the last entry isn't conditonal
- if (ref $_) {
- push @lines,
- ["#if $_->[0]", " $_->[1]", "#else", " 0,", "#endif"];
- } else {
- push @lines, $_ ? " $_" : " 0,";
- }
+ $arrays{$shriek ? 'shrieking' : 'normal'}{ord $chrmap->{$letter}} =
+ make_text($chrmap, $letter,
+ $unpredictable, $nocsum, $size, $condition);