ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/gentables
(Generate patch)

Comparing rxvt-unicode/src/gentables (file contents):
Revision 1.9 by root, Fri Dec 10 19:55:55 2004 UTC vs.
Revision 1.12 by root, Wed Jun 16 23:07:11 2021 UTC

1#!/opt/bin/perl 1#!/opt/bin/perl
2 2
3# the generated tables mostly have NOT been checked so far! 3# the generated tables mostly have NOT been checked so far!
4
5# apt install libencode-hanextra-perl libencode-jis2k-perl
4 6
5use v5.8.2; 7use v5.8.2;
6use utf8; 8use utf8;
7use Encode; 9use Encode;
8use Encode::JP; 10use Encode::JP;
… …
93 $fun .= sprintf "if (· == 0x%04x) return 0x%04x;\n", $b + $_, $enc->[$b + $_]; 95 $fun .= sprintf "if (· == 0x%04x) return 0x%04x;\n", $b + $_, $enc->[$b + $_];
94 } 96 }
95 } elsif (linear $enc, $b + $l, $b + $h, $enc->[$b + $l]) { 97 } elsif (linear $enc, $b + $l, $b + $h, $enc->[$b + $l]) {
96 my $dif = $enc->[$b + $l] - ($b + $l); 98 my $dif = $enc->[$b + $l] - ($b + $l);
97 $dif = $dif < 0 ? sprintf "- 0x%04x", -$dif : sprintf "+ 0x%04x", $dif; 99 $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; 100 $fun .= sprintf "if (· >= 0x%04x && 0x%04x >= ·) return · %s;\n", $b + $l, $b + $h, $dif;
99 } elsif ($map2[$p] <= 5) { # defunct 101 } elsif ($map2[$p] <= 5) { # defunct
100 $fun .= "switch (·)\n {\n"; 102 $fun .= "switch (·)\n {\n";
101 for ($l .. $h) { 103 for ($l .. $h) {
102 next unless defined $enc->[$b + $_]; 104 next unless defined $enc->[$b + $_];
103 $fun .= sprintf " case 0x%04x: return 0x%04x;\n", $b + $_, $enc->[$b + $_]; 105 $fun .= sprintf " case 0x%04x: return 0x%04x;\n", $b + $_, $enc->[$b + $_];
… …
295EU iso8859_8 iso-8859-8 297EU iso8859_8 iso-8859-8
296EU iso8859_9 iso-8859-9 298EU iso8859_9 iso-8859-9
297EU iso8859_10 iso-8859-10 299EU iso8859_10 iso-8859-10
298EU iso8859_11 iso-8859-11 300EU iso8859_11 iso-8859-11
299EU iso8859_13 iso-8859-13 301EU iso8859_13 iso-8859-13
300EU iso8859_14 iso-8859-14 302EU iso8859_14 iso-8859-14
301DEFAULT iso8859_15 iso-8859-15 303DEFAULT iso8859_15 iso-8859-15
302EU iso8859_16 iso-8859-16 304EU iso8859_16 iso-8859-16
303JP jis0201_1976_0 jis0201-raw 305JP jis0201_1976_0 jis0201-raw
304JP jis0208_1990_0 jis0208-raw 306JP jis0208_1990_0 jis0208-raw
305JP jis0212_1990_0 jis0212-raw 307JP jis0212_1990_0 jis0212-raw

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines