… | |
… | |
93 | $fun .= sprintf "if (· == 0x%04x) return 0x%04x;\n", $b + $_, $enc->[$b + $_]; |
93 | $fun .= sprintf "if (· == 0x%04x) return 0x%04x;\n", $b + $_, $enc->[$b + $_]; |
94 | } |
94 | } |
95 | } elsif (linear $enc, $b + $l, $b + $h, $enc->[$b + $l]) { |
95 | } elsif (linear $enc, $b + $l, $b + $h, $enc->[$b + $l]) { |
96 | my $dif = $enc->[$b + $l] - ($b + $l); |
96 | my $dif = $enc->[$b + $l] - ($b + $l); |
97 | $dif = $dif < 0 ? sprintf "- 0x%04x", -$dif : sprintf "+ 0x%04x", $dif; |
97 | $dif = $dif < 0 ? sprintf "- 0x%04x", -$dif : sprintf "+ 0x%04x", $dif; |
98 | $fun .= sprintf "if (· <= 0x%04x && 0x%04x <= ·) return · %s;\n", $b + $l, $b + $h, $dif; |
98 | $fun .= sprintf "if (· >= 0x%04x && 0x%04x >= ·) return · %s;\n", $b + $l, $b + $h, $dif; |
99 | } elsif ($map2[$p] <= 5) { # defunct |
99 | } elsif ($map2[$p] <= 5) { # defunct |
100 | $fun .= "switch (·)\n {\n"; |
100 | $fun .= "switch (·)\n {\n"; |
101 | for ($l .. $h) { |
101 | for ($l .. $h) { |
102 | next unless defined $enc->[$b + $_]; |
102 | next unless defined $enc->[$b + $_]; |
103 | $fun .= sprintf " case 0x%04x: return 0x%04x;\n", $b + $_, $enc->[$b + $_]; |
103 | $fun .= sprintf " case 0x%04x: return 0x%04x;\n", $b + $_, $enc->[$b + $_]; |
… | |
… | |
295 | EU iso8859_8 iso-8859-8 |
295 | EU iso8859_8 iso-8859-8 |
296 | EU iso8859_9 iso-8859-9 |
296 | EU iso8859_9 iso-8859-9 |
297 | EU iso8859_10 iso-8859-10 |
297 | EU iso8859_10 iso-8859-10 |
298 | EU iso8859_11 iso-8859-11 |
298 | EU iso8859_11 iso-8859-11 |
299 | EU iso8859_13 iso-8859-13 |
299 | EU iso8859_13 iso-8859-13 |
300 | EU iso8859_14 iso-8859-14 |
300 | EU iso8859_14 iso-8859-14 |
301 | DEFAULT iso8859_15 iso-8859-15 |
301 | DEFAULT iso8859_15 iso-8859-15 |
302 | EU iso8859_16 iso-8859-16 |
302 | EU iso8859_16 iso-8859-16 |
303 | JP jis0201_1976_0 jis0201-raw |
303 | JP jis0201_1976_0 jis0201-raw |
304 | JP jis0208_1990_0 jis0208-raw |
304 | JP jis0208_1990_0 jis0208-raw |
305 | JP jis0212_1990_0 jis0212-raw |
305 | JP jis0212_1990_0 jis0212-raw |