Lines Matching refs:ucs4
38 while (my ($ucs4, $outbuf) = each %$codes) {
40 unless ($result && $outbuf->[0] == $ucs4) {
53 while (my ($ucs4, $code) = each %$codes) {
54 my $outbuf = [ $ucs4 ];
75 my $ucs4 = shift;
77 if ($ucs4 <= 0x7f) {
78 return chr $ucs4;
79 } elsif ($ucs4 <= 0x7ff) {
81 (0xc0 | (($ucs4 >> 6) & 0x1f)),
82 (0x80 | ($ucs4 & 0x3f)));
83 } elsif ($ucs4 <= 0xffff) {
85 (0xe0 | (($ucs4 >> 12) & 0xf)),
86 (0x80 | (($ucs4 >> 6) & 0x3f)),
87 (0x80 | ($ucs4 & 0x3f)));
88 } elsif ($ucs4 <= 0x1fffff) {
90 (0xf0 | (($ucs4 >> 18) & 0x7)),
91 (0x80 | (($ucs4 >> 12) & 0x3f)),
92 (0x80 | (($ucs4 >> 6) & 0x3f)),
93 (0x80 | ($ucs4 & 0x3f)));
94 } elsif ($ucs4 <= 0x3ffffff) {
96 (0xf0 | (($ucs4 >> 24) & 0x3)),
97 (0x80 | (($ucs4 >> 18) & 0x3f)),
98 (0x80 | (($ucs4 >> 12) & 0x3f)),
99 (0x80 | (($ucs4 >> 6) & 0x3f)),
100 (0x80 | ($ucs4 & 0x3f)));
103 (0xf0 | (($ucs4 >> 30) & 0x3)),
104 (0x80 | (($ucs4 >> 24) & 0x1)),
105 (0x80 | (($ucs4 >> 18) & 0x3f)),
106 (0x80 | (($ucs4 >> 12) & 0x3f)),
107 (0x80 | (($ucs4 >> 6) & 0x3f)),
108 (0x80 | ($ucs4 & 0x3f)));