Lines Matching refs:ucs4
94 my $ucs4 = shift;
96 if ($ucs4 <= 0x7f) {
97 return chr $ucs4;
98 } elsif ($ucs4 <= 0x7ff) {
100 (0xc0 | (($ucs4 >> 6) & 0x1f)),
101 (0x80 | ($ucs4 & 0x3f)));
102 } elsif ($ucs4 <= 0xffff) {
104 (0xe0 | (($ucs4 >> 12) & 0xf)),
105 (0x80 | (($ucs4 >> 6) & 0x3f)),
106 (0x80 | ($ucs4 & 0x3f)));
107 } elsif ($ucs4 <= 0x1fffff) {
109 (0xf0 | (($ucs4 >> 18) & 0x7)),
110 (0x80 | (($ucs4 >> 12) & 0x3f)),
111 (0x80 | (($ucs4 >> 6) & 0x3f)),
112 (0x80 | ($ucs4 & 0x3f)));
113 } elsif ($ucs4 <= 0x3ffffff) {
115 (0xf0 | (($ucs4 >> 24) & 0x3)),
116 (0x80 | (($ucs4 >> 18) & 0x3f)),
117 (0x80 | (($ucs4 >> 12) & 0x3f)),
118 (0x80 | (($ucs4 >> 6) & 0x3f)),
119 (0x80 | ($ucs4 & 0x3f)));
122 (0xf0 | (($ucs4 >> 30) & 0x3)),
123 (0x80 | (($ucs4 >> 24) & 0x1)),
124 (0x80 | (($ucs4 >> 18) & 0x3f)),
125 (0x80 | (($ucs4 >> 12) & 0x3f)),
126 (0x80 | (($ucs4 >> 6) & 0x3f)),
127 (0x80 | ($ucs4 & 0x3f)));