ucs 116 ext/charconv/charconv.h #define UCS2UTF_NBYTES(ucs) \ ucs 117 ext/charconv/charconv.h (((ucs) < 0x80) ? 1 : \ ucs 118 ext/charconv/charconv.h (((ucs) < 0x800) ? 2 : \ ucs 119 ext/charconv/charconv.h (((ucs) < 0x10000) ? 3 : \ ucs 120 ext/charconv/charconv.h (((ucs) < 0x200000) ? 4 : \ ucs 121 ext/charconv/charconv.h (((ucs) < 0x4000000) ? 5 : 6))))) ucs 123 ext/charconv/charconv.h extern void jconv_ucs4_to_utf8(unsigned int ucs, char *cp); ucs 669 ext/charconv/jconv.c void jconv_ucs4_to_utf8(unsigned int ucs, char *cp) ucs 671 ext/charconv/jconv.c if (ucs < 0x80) { ucs 672 ext/charconv/jconv.c *cp = ucs; ucs 674 ext/charconv/jconv.c else if (ucs < 0x800) { ucs 675 ext/charconv/jconv.c *cp++ = ((ucs>>6)&0x1f) | 0xc0; ucs 676 ext/charconv/jconv.c *cp = (ucs&0x3f) | 0x80; ucs 678 ext/charconv/jconv.c else if (ucs < 0x10000) { ucs 679 ext/charconv/jconv.c *cp++ = ((ucs>>12)&0x0f) | 0xe0; ucs 680 ext/charconv/jconv.c *cp++ = ((ucs>>6)&0x3f) | 0x80; ucs 681 ext/charconv/jconv.c *cp = (ucs&0x3f) | 0x80; ucs 683 ext/charconv/jconv.c else if (ucs < 0x200000) { ucs 684 ext/charconv/jconv.c *cp++ = ((ucs>>18)&0x07) | 0xf0; ucs 685 ext/charconv/jconv.c *cp++ = ((ucs>>12)&0x3f) | 0x80; ucs 686 ext/charconv/jconv.c *cp++ = ((ucs>>6)&0x3f) | 0x80; ucs 687 ext/charconv/jconv.c *cp = (ucs&0x3f) | 0x80; ucs 689 ext/charconv/jconv.c else if (ucs < 0x4000000) { ucs 690 ext/charconv/jconv.c *cp++ = ((ucs>>24)&0x03) | 0xf8; ucs 691 ext/charconv/jconv.c *cp++ = ((ucs>>18)&0x3f) | 0x80; ucs 692 ext/charconv/jconv.c *cp++ = ((ucs>>12)&0x3f) | 0x80; ucs 693 ext/charconv/jconv.c *cp++ = ((ucs>>6)&0x3f) | 0x80; ucs 694 ext/charconv/jconv.c *cp = (ucs&0x3f) | 0x80; ucs 696 ext/charconv/jconv.c *cp++ = ((ucs>>30)&0x1) | 0xfc; ucs 697 ext/charconv/jconv.c *cp++ = ((ucs>>24)&0x3f) | 0x80; ucs 698 ext/charconv/jconv.c *cp++ = ((ucs>>18)&0x3f) | 0x80; ucs 699 ext/charconv/jconv.c *cp++ = ((ucs>>12)&0x3f) | 0x80; ucs 700 ext/charconv/jconv.c *cp++ = ((ucs>>6)&0x3f) | 0x80; ucs 701 ext/charconv/jconv.c *cp++ = (ucs&0x3f) | 0x80; ucs 708 ext/charconv/jconv.c static inline size_t eucj2utf_emit_utf(unsigned int ucs, size_t inchars, ucs 712 ext/charconv/jconv.c if (ucs == 0) { ucs 714 ext/charconv/jconv.c } else if (ucs < 0x100000) { ucs 715 ext/charconv/jconv.c int outreq = UCS2UTF_NBYTES(ucs); ucs 717 ext/charconv/jconv.c jconv_ucs4_to_utf8(ucs, outptr); ucs 721 ext/charconv/jconv.c unsigned int ucs0 = (ucs >> 16) & 0xffff; ucs 722 ext/charconv/jconv.c unsigned int ucs1 = ucs & 0xfff; ucs 737 ext/charconv/jconv.c unsigned int ucs; ucs 746 ext/charconv/jconv.c ucs = 0xff61 + (e1 - 0xa1); ucs 747 ext/charconv/jconv.c return eucj2utf_emit_utf(ucs, 2, outptr, outroom, outchars); ucs 764 ext/charconv/jconv.c ucs = euc_jisx0213_2_to_ucs2[index][e2 - 0xa1]; ucs 765 ext/charconv/jconv.c return eucj2utf_emit_utf(ucs, 3, outptr, outroom, outchars); ucs 779 ext/charconv/jconv.c ucs = euc_jisx0213_1_to_ucs2[e0 - 0xa1][e1 - 0xa1]; ucs 780 ext/charconv/jconv.c return eucj2utf_emit_utf(ucs, 2, outptr, outroom, outchars); ucs 1224 src/extlib.c int ucs = Scm_CharToUcs(c); ucs 1225 src/extlib.c if (ucs < 0) SCM_RETURN(SCM_FALSE); ucs 1226 src/extlib.c else SCM_RETURN(Scm_MakeInteger(ucs)); ucs 269 src/gauche.h SCM_EXTERN ScmChar Scm_UcsToChar(int ucs);