| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
| H A D | universal.c | 486 UV uv = SvUV(ST(0)); local
491 ST(0) = sv_2mortal(newSViv(NATIVE_TO_UNI(uv)));
498 UV uv = SvUV(ST(0)); local
503 ST(0) = sv_2mortal(newSViv(UNI_TO_NATIVE(uv)));
|
| H A D | doop.c | 311 UV uv; local
346 if ((uv = swash_fetch(rv, s, TRUE)) < none) {
349 d = uvuni_to_utf8(d, uv);
351 else if (uv == none) {
357 else if (uv == extra) {
405 UV uv; local
422 if ((uv = swash_fetch(rv, s, TRUE)) < none || uv == extra)
449 UV uv; local
490 uv
[all...] |
| H A D | pp.c | 1977 UV uv; local
1989 uv = SvUVX(TOPs);
1998 uv = SvUVX(*(SP+1)); /* Do I want TOPp1s() ? */
2000 SETs(boolSV((UV)iv != uv));
2794 UV uv = TOPu; local
2795 SETu(uv);
3419 UV uv; local
3422 uv = utf8_to_uvchr(tmpbuf, 0);
3423 tend = uvchr_to_utf8(tmpbuf, uv);
3560 UV uv local
[all...] |
| H A D | utf8.c | 32 =for apidoc A|U8 *|uvuni_to_utf8_flags|U8 *d|UV uv|UV flags
34 Adds the UTF-8 representation of the Unicode codepoint C<uv> to the end
39 d = uvuni_to_utf8_flags(d, uv, flags);
43 d = uvuni_to_utf8(d, uv);
47 d = uvuni_to_utf8_flags(d, uv, 0);
51 *(d++) = uv;
57 Perl_uvuni_to_utf8_flags(pTHX_ U8 *d, UV uv, UV flags) argument
60 if (UNICODE_IS_SURROGATE(uv) &&
62 Perl_warner(aTHX_ packWARN(WARN_UTF8), "UTF-16 surrogate 0x%04"UVxf, uv); local
64 ((uv >
75 "Unicode character 0x%04"UVxf" is illegal", uv); local
163 Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv) argument
183 UV uv, ouv; local
336 UV uv = *s, ouv = 0; local
840 UV uv = NATIVE_TO_ASCII(*s++); local
871 UV uv = (p[0] << 8) + p[1]; /* UTF-16BE */ local
1784 Perl_uvchr_to_utf8(pTHX_ U8 *d, UV uv) argument
1790 Perl_uvchr_to_utf8_flags(pTHX_ U8 *d, UV uv, UV flags) argument
1813 UV uv = Perl_utf8n_to_uvuni(aTHX_ s, curlen, retlen, flags); local
[all...] |
| H A D | regcomp.c | 4392 S_reguni(pTHX_ RExC_state_t *pRExC_state, UV uv, char* s, STRLEN* lenp) argument
4394 *lenp = SIZE_ONLY ? UNISKIP(uv) : (uvchr_to_utf8((U8*)s, uv) - (U8*)s);
|
| H A D | toke.c | 1226 UV uv; local
1430 uv = grok_oct(s, &len, &flags, NULL);
1450 uv = grok_hex(s, &len, &flags, NULL);
1457 uv = grok_hex(s, &len, &flags, NULL);
1471 if (!UNI_IS_INVARIANT(NATIVE_TO_UNI(uv))) {
1472 if (!has_utf8 && uv > 255) {
1508 if (has_utf8 || uv > 255) {
1509 d = (char*)uvchr_to_utf8((U8*)d, uv);
1519 *d++ = (char)uv;
1523 *d++ = (char) uv;
1566 UV uv = utf8_to_uvchr((U8*)str, 0); local
1653 UV uv = (this_utf8) ? utf8n_to_uvchr((U8*)s, send - s, &len, 0) : (UV) ((U8) *s); local
7542 UV uv; local
[all...] |
| H A D | sv.c | 2422 "0x%"UVxf" uv(%"NVgf" => %"IVdf") (precise)\n",
2433 "0x%"UVxf" uv(%"NVgf" => %"IVdf") (imprecise)\n",
2463 "0x%"UVxf" 2uv(%"UVuf" => %"IVdf") (as unsigned)\n",
2540 DEBUG_c(PerlIO_printf(Perl_debug_log, "0x%"UVxf" 2uv(%" PERL_PRIgldbl ")\n",
2543 DEBUG_c(PerlIO_printf(Perl_debug_log, "0x%"UVxf" 2uv(%"NVgf")\n",
2617 DEBUG_c(PerlIO_printf(Perl_debug_log, "0x%"UVxf" 2uv(%"UVuf")\n",
2903 uiv_2buf(char *buf, IV iv, UV uv, int is_uv, char **peob) argument
2912 uv = iv;
2915 uv = -iv;
2919 *--ptr = '0' + (char)(uv
7802 Perl_sv_setref_uv(pTHX_ SV *rv, const char *classname, UV uv) argument
7804 sv_setuv(newSVrv(rv,classname), uv); local
8276 UV uv; local
8447 UV uv = 0; local
[all...] |