ch 538 ext/charconv/charconv.c static int chartoucs(ScmChar ch)
ch 541 ext/charconv/charconv.c if (ch == SCM_CHAR_INVALID) return -1;
ch 542 ext/charconv/charconv.c return (int)ch;
ch 549 ext/charconv/charconv.c if (ch == SCM_CHAR_INVALID) return -1;
ch 551 ext/charconv/charconv.c inroom = SCM_CHAR_NBYTES(ch);
ch 553 ext/charconv/charconv.c SCM_CHAR_PUT(inbuf, ch);
ch 558 ext/charconv/charconv.c Scm_Error("can't convert character %u to UCS4 code: implementation problem?", ch);
ch 606 ext/charconv/charconv.c SCM_EXTERN int (*Scm_CharToUcsHook)(ScmChar ch);
ch 55 ext/charconv/guess.c #define DFA_NEXT(dfa, ch) \
ch 59 ext/charconv/guess.c arc__ = dfa.states[dfa.state][ch]; \
ch 9362 ext/uvector/uvlib.c ScmChar ch;
ch 9363 ext/uvector/uvlib.c SCM_CHAR_GET(sp, ch);
ch 9364 ext/uvector/uvlib.c eltp[i] = ch;
ch 9365 ext/uvector/uvlib.c sp += SCM_CHAR_NBYTES(ch);
ch 9451 ext/uvector/uvlib.c ScmChar ch = (ScmChar)eltp[start];
ch 9452 ext/uvector/uvlib.c Scm_PutcUnsafe(ch, SCM_PORT(s));
ch 92 ext/vport/vport.c ScmObj ch;
ch 98 ext/vport/vport.c ch = Scm_Apply(data->getc_proc, SCM_NIL);
ch 99 ext/vport/vport.c if (!SCM_CHARP(ch)) return EOF;
ch 101 ext/vport/vport.c c = SCM_CHAR_VALUE(ch);
ch 131 ext/vport/vport.c ScmChar ch;
ch 147 ext/vport/vport.c SCM_CHAR_GET(buf, ch);
ch 148 ext/vport/vport.c return ch;
ch 150 ext/vport/vport.c ScmObj ch = Scm_Apply(data->getc_proc, SCM_NIL);
ch 151 ext/vport/vport.c if (!SCM_CHARP(ch)) return EOF;
ch 152 ext/vport/vport.c return SCM_CHAR_VALUE(ch);
ch 82 src/char.c int Scm_DigitToInt(ScmChar ch, int radix)
ch 84 src/char.c if (ch < '0') return -1;
ch 86 src/char.c if (ch <= '0' + radix) return (ch - '0');
ch 88 src/char.c if (ch <= '9') return (ch - '0');
ch 89 src/char.c if (ch < 'A') return -1;
ch 90 src/char.c if (ch < 'A' + radix - 10) return (ch - 'A' + 10);
ch 91 src/char.c if (ch < 'a') return -1;
ch 92 src/char.c if (ch < 'a' + radix - 10) return (ch - 'a' + 10);
ch 115 src/char.c int (*Scm_CharToUcsHook)(ScmChar ch) = NULL; /* filled by ext/charconv */
ch 139 src/char.c int Scm_CharToUcs(ScmChar ch)
ch 141 src/char.c if (ch == SCM_CHAR_INVALID) Scm_Error("bad character");
ch 143 src/char.c return (int)ch;
ch 145 src/char.c if (ch < 0x80) return (int)ch; /*ASCII range*/
ch 154 src/char.c return Scm_CharToUcsHook(ch);
ch 156 src/char.c return (int)ch; /* ISO8859-1 */
ch 187 src/char.c #define MASK_INDEX(ch) ((ch) >> MASK_BIT_SHIFT)
ch 188 src/char.c #define MASK_BIT(ch) (1L << ((ch) & MASK_BIT_MASK))
ch 189 src/char.c #define MASK_ISSET(cs, ch) (!!(cs->mask[MASK_INDEX(ch)] & MASK_BIT(ch)))
ch 190 src/char.c #define MASK_SET(cs, ch) (cs->mask[MASK_INDEX(ch)] |= MASK_BIT(ch))
ch 191 src/char.c #define MASK_RESET(cs, ch) (cs->mask[MASK_INDEX(ch)] &= ~MASK_BIT(ch))
ch 196 src/char.c static void charset_print_ch(ScmPort *out, ScmChar ch)
ch 198 src/char.c if (ch < 0x20 || ch == 0x7f) {
ch 199 src/char.c Scm_Printf(out, "\\x%02x", ch);
ch 203 src/char.c SCM_CHAR_PUT(chbuf, ch);
ch 204 src/char.c for (i=0; i<SCM_CHAR_NBYTES(ch); i++) {
ch 515 src/char.c int ch;
ch 516 src/char.c for (ch='a'; ch<='z'; ch++) {
ch 517 src/char.c if (MASK_ISSET(cs, ch) || MASK_ISSET(cs, (ch-('a'-'A')))) {
ch 518 src/char.c MASK_SET(cs, ch);
ch 519 src/char.c MASK_SET(cs, (ch-('a'-'A')));
ch 659 src/char.c ScmChar ch = 0;
ch 662 src/char.c SCM_GETC(ch, input);
ch 663 src/char.c if (ch == EOF) goto err;
ch 664 src/char.c chars = Scm_Cons(SCM_MAKE_CHAR(ch), chars);
ch 666 src/char.c if (begin == REAL_BEGIN && ch == '^') {
ch 671 src/char.c if (bracket_syntax && begin && ch == ']') {
ch 672 src/char.c Scm_CharSetAddRange(set, ch, ch);
ch 673 src/char.c lastchar = ch;
ch 679 src/char.c switch (ch) {
ch 695 src/char.c SCM_GETC(ch, input);
ch 696 src/char.c if (ch == SCM_CHAR_INVALID) goto err;
ch 697 src/char.c chars = Scm_Cons(SCM_MAKE_CHAR(ch), chars);
ch 698 src/char.c switch (ch) {
ch 699 src/char.c case 'a': ch = 7; goto ordchar;
ch 700 src/char.c case 'b': ch = 8; goto ordchar;
ch 701 src/char.c case 'n': ch = '\n'; goto ordchar;
ch 702 src/char.c case 'r': ch = '\r'; goto ordchar;
ch 703 src/char.c case 't': ch = '\t'; goto ordchar;
ch 704 src/char.c case 'f': ch = '\f'; goto ordchar;
ch 705 src/char.c case 'e': ch = 0x1b; goto ordchar;
ch 707 src/char.c ch = read_charset_xdigits(input, 2, 'x'); goto ordchar;
ch 709 src/char.c ch = Scm_UcsToChar(read_charset_xdigits(input, 4, 'u'));
ch 712 src/char.c ch = Scm_UcsToChar(read_charset_xdigits(input, 8, 'U'));
ch 756 src/char.c Scm_CharSetAddRange(set, ch, ch);
ch 757 src/char.c lastchar = ch;
ch 759 src/char.c Scm_CharSetAddRange(set, lastchar, ch);
ch 764 src/char.c Scm_CharSetAddRange(set, ch, ch);
ch 765 src/char.c lastchar = ch;
ch 792 src/char.c ScmChar ch;
ch 794 src/char.c SCM_GETC(ch, input);
ch 795 src/char.c if (ch == SCM_CHAR_INVALID) return SCM_FALSE;
ch 796 src/char.c *chars = Scm_Cons(SCM_MAKE_CHAR(ch), *chars);
ch 797 src/char.c if (!SCM_CHAR_ASCII_P(ch)) break;
ch 798 src/char.c if (ch != ']') {
ch 799 src/char.c name[i] = ch;
ch 298 src/core.c struct cleanup_handler_rec *ch;
ch 310 src/core.c for (ch = cleanup.handlers; ch; ch = ch->next) {
ch 311 src/core.c ch->handler(ch->data);
ch 1128 src/extlib.c ScmChar ch;
ch 1137 src/extlib.c ch = SCM_CHAR_VALUE(ch_scm);
ch 1151 src/extlib.c r = Scm_DigitToInt(ch, radix);
ch 1206 src/extlib.c ScmChar ch = Scm_UcsToChar(n);
ch 1207 src/extlib.c if (ch == SCM_CHAR_INVALID) SCM_RETURN(SCM_FALSE);
ch 1208 src/extlib.c else SCM_RETURN(SCM_MAKE_CHAR(ch));
ch 1305 src/extlib.c { ScmObj cp; ScmChar ch;
ch 1309 src/extlib.c ch = SCM_CHAR_VALUE(SCM_CAR(cp));
ch 1310 src/extlib.c Scm_CharSetAddRange(cs, ch, ch);
ch 1485 src/extlib.c ScmChar ch;
ch 1492 src/extlib.c ch = SCM_CHAR_VALUE(ch_scm);
ch 1496 src/extlib.c SCM_RESULT = Scm_CharSetContains(cs, ch);
ch 1972 src/extlib.c ScmChar ch;
ch 1979 src/extlib.c ch = SCM_CHAR_VALUE(ch_scm);
ch 1983 src/extlib.c SCM_RESULT = Scm_StringSplitByChar(s, ch);
ch 255 src/gauche.h #define SCM_MAKE_CHAR(ch) SCM_OBJ((long)((ch) << 3) + 2)
ch 260 src/gauche.h #define SCM_CHAR_ASCII_P(ch) ((ch) < 0x80)
ch 261 src/gauche.h #define SCM_CHAR_UPPER_P(ch) (('A' <= (ch)) && ((ch) <= 'Z'))
ch 262 src/gauche.h #define SCM_CHAR_LOWER_P(ch) (('a' <= (ch)) && ((ch) <= 'z'))
ch 263 src/gauche.h #define SCM_CHAR_UPCASE(ch) (SCM_CHAR_LOWER_P(ch)?((ch)-('a'-'A')):(ch))
ch 264 src/gauche.h #define SCM_CHAR_DOWNCASE(ch) (SCM_CHAR_UPPER_P(ch)?((ch)+('a'-'A')):(ch))
ch 266 src/gauche.h SCM_EXTERN int Scm_DigitToInt(ScmChar ch, int radix);
ch 268 src/gauche.h SCM_EXTERN int Scm_CharToUcs(ScmChar ch);
ch 1094 src/gauche.h SCM_EXTERN ScmObj Scm_StringSplitByChar(ScmString *str, ScmChar ch);
ch 1096 src/gauche.h SCM_EXTERN ScmObj Scm_StringScanChar(ScmString *s1, ScmChar ch, int retmode);
ch 1164 src/gauche.h SCM_EXTERN void Scm_DStringPutc(ScmDString *dstr, ScmChar ch);
ch 1175 src/gauche.h #define SCM_DSTRING_PUTC(dstr, ch) \
ch 1177 src/gauche.h ScmChar ch_DSTR = (ch); \
ch 1526 src/gauche.h SCM_EXTERN void Scm_Ungetc(ScmChar ch, ScmPort *port);
ch 1534 src/gauche.h SCM_EXTERN void Scm_UngetcUnsafe(ScmChar ch, ScmPort *port);
ch 52 src/gauche/char_euc_jp.h #define SCM_CHAR_NFOLLOWS(ch) \
ch 53 src/gauche/char_euc_jp.h ((((unsigned char)(ch)) >= 0x80) ? \
ch 54 src/gauche/char_euc_jp.h ((((unsigned char)(ch)) == 0x8f) ? 2 : 1) : 0)
ch 59 src/gauche/char_euc_jp.h #define SCM_CHAR_NBYTES(ch) \
ch 60 src/gauche/char_euc_jp.h (((ch) >= 0x80) ? (((ch) >= 0x10000)? 3 : 2) : 1)
ch 72 src/gauche/char_euc_jp.h #define SCM_CHAR_GET(cp, ch) \
ch 74 src/gauche/char_euc_jp.h if (((ch) = (unsigned char)*(cp)) >= 0x80) { \
ch 75 src/gauche/char_euc_jp.h if ((ch) == 0x8f && \
ch 78 src/gauche/char_euc_jp.h (ch) = ((ch) << 16) \
ch 82 src/gauche/char_euc_jp.h (ch) = ((ch) << 8) + (unsigned char)(cp)[1]; \
ch 84 src/gauche/char_euc_jp.h (ch) = SCM_CHAR_INVALID; \
ch 93 src/gauche/char_euc_jp.h #define SCM_CHAR_PUT(cp, ch) \
ch 95 src/gauche/char_euc_jp.h if ((ch) > 0xff) { \
ch 96 src/gauche/char_euc_jp.h if ((ch) > 0xffff) { \
ch 97 src/gauche/char_euc_jp.h (cp)[0] = ((ch) >> 16) & 0xff; \
ch 98 src/gauche/char_euc_jp.h (cp)[1] = ((ch) >> 8) & 0xff; \
ch 99 src/gauche/char_euc_jp.h (cp)[2] = (ch) & 0xff; \
ch 101 src/gauche/char_euc_jp.h (cp)[0] = (ch >> 8) & 0xff; \
ch 102 src/gauche/char_euc_jp.h (cp)[1] = ch & 0xff; \
ch 105 src/gauche/char_euc_jp.h (cp)[0] = ch & 0xff; \
ch 52 src/gauche/char_none.h #define SCM_CHAR_NFOLLOWS(ch) 0
ch 57 src/gauche/char_none.h #define SCM_CHAR_NBYTES(ch) 1
ch 62 src/gauche/char_none.h #define SCM_CHAR_GET(cp, ch) ((ch) = *(const unsigned char*)(cp))
ch 63 src/gauche/char_none.h #define SCM_CHAR_PUT(cp, ch) (*(cp) = (ch))
ch 60 src/gauche/char_sjis.h #define SCM_CHAR_NBYTES(ch) (((ch) > 0x0ff) ? 2 : 1)
ch 69 src/gauche/char_sjis.h #define SCM_CHAR_GET(cp, ch) \
ch 71 src/gauche/char_sjis.h (ch) = (unsigned char)*(cp); \
ch 72 src/gauche/char_sjis.h if ((unsigned char)(ch) >= 0x80) { \
ch 73 src/gauche/char_sjis.h if ((unsigned char)(ch) < 0xa0 || (unsigned char)(ch) >= 0xe0) { \
ch 74 src/gauche/char_sjis.h (ch) = (((unsigned char)(ch)) << 8) + (unsigned char)*(cp+1); \
ch 83 src/gauche/char_sjis.h #define SCM_CHAR_PUT(cp, ch) \
ch 85 src/gauche/char_sjis.h if ((ch) > 0xff) { \
ch 86 src/gauche/char_sjis.h (cp)[0] = (ch >> 8) & 0xff; \
ch 87 src/gauche/char_sjis.h (cp)[1] = ch & 0xff; \
ch 89 src/gauche/char_sjis.h (cp)[0] = ch & 0xff; \
ch 56 src/gauche/char_utf_8.h #define SCM_CHAR_NFOLLOWS(ch) ((int)Scm_CharSizeTable[(unsigned char)(ch)])
ch 61 src/gauche/char_utf_8.h #define SCM_CHAR_NBYTES(ch) \
ch 62 src/gauche/char_utf_8.h (((ch) < 0x80) ? 1 : \
ch 63 src/gauche/char_utf_8.h (((ch) < 0x800) ? 2 : \
ch 64 src/gauche/char_utf_8.h (((ch) < 0x10000) ? 3 : \
ch 65 src/gauche/char_utf_8.h (((ch) < 0x200000) ? 4 : \
ch 66 src/gauche/char_utf_8.h (((ch) < 0x4000000) ? 5 : 6)))))
ch 75 src/gauche/char_utf_8.h #define SCM_CHAR_GET(cp, ch) \
ch 77 src/gauche/char_utf_8.h if (((ch) = (unsigned char)*(cp)) >= 0x80) { \
ch 78 src/gauche/char_utf_8.h (ch) = Scm_CharUtf8Getc((unsigned char*)cp); \
ch 86 src/gauche/char_utf_8.h #define SCM_CHAR_PUT(cp, ch) \
ch 88 src/gauche/char_utf_8.h if (ch >= 0x80) { \
ch 89 src/gauche/char_utf_8.h Scm_CharUtf8Putc((unsigned char*)cp, ch); \
ch 91 src/gauche/char_utf_8.h *(cp) = (ch); \
ch 166 src/gauche/char_utf_8.h ScmChar ch;
ch 169 src/gauche/char_utf_8.h if (first < 0x80) { ch = first; }
ch 170 src/gauche/char_utf_8.h else if (first < 0xc0) { ch = SCM_CHAR_INVALID; }
ch 172 src/gauche/char_utf_8.h ch = first&0x1f;
ch 173 src/gauche/char_utf_8.h ch = (ch<<6) | (*ucp++&0x3f);
ch 174 src/gauche/char_utf_8.h if (ch < 0x80) ch = SCM_CHAR_INVALID;
ch 177 src/gauche/char_utf_8.h ch = first&0x0f;
ch 178 src/gauche/char_utf_8.h ch = (ch<<6) | (*ucp++&0x3f);
ch 179 src/gauche/char_utf_8.h ch = (ch<<6) | (*ucp++&0x3f);
ch 180 src/gauche/char_utf_8.h if (ch < 0x800) ch = SCM_CHAR_INVALID;
ch 183 src/gauche/char_utf_8.h ch = first&0x07;
ch 184 src/gauche/char_utf_8.h ch = (ch<<6) | (*ucp++&0x3f);
ch 185 src/gauche/char_utf_8.h ch = (ch<<6) | (*ucp++&0x3f);
ch 186 src/gauche/char_utf_8.h ch = (ch<<6) | (*ucp++&0x3f);
ch 187 src/gauche/char_utf_8.h if (ch < 0x10000) ch = SCM_CHAR_INVALID;
ch 190 src/gauche/char_utf_8.h ch = first&0x03;
ch 191 src/gauche/char_utf_8.h ch = (ch<<6) | (*ucp++&0x3f);
ch 192 src/gauche/char_utf_8.h ch = (ch<<6) | (*ucp++&0x3f);
ch 193 src/gauche/char_utf_8.h ch = (ch<<6) | (*ucp++&0x3f);
ch 194 src/gauche/char_utf_8.h ch = (ch<<6) | (*ucp++&0x3f);
ch 195 src/gauche/char_utf_8.h if (ch < 0x200000) ch = SCM_CHAR_INVALID;
ch 198 src/gauche/char_utf_8.h ch = first&0x01;
ch 199 src/gauche/char_utf_8.h ch = (ch<<6) | (*ucp++&0x3f);
ch 200 src/gauche/char_utf_8.h ch = (ch<<6) | (*ucp++&0x3f);
ch 201 src/gauche/char_utf_8.h ch = (ch<<6) | (*ucp++&0x3f);
ch 202 src/gauche/char_utf_8.h ch = (ch<<6) | (*ucp++&0x3f);
ch 203 src/gauche/char_utf_8.h ch = (ch<<6) | (*ucp++&0x3f);
ch 204 src/gauche/char_utf_8.h if (ch < 0x4000000) ch = SCM_CHAR_INVALID;
ch 207 src/gauche/char_utf_8.h ch = SCM_CHAR_INVALID;
ch 209 src/gauche/char_utf_8.h return ch;
ch 212 src/gauche/char_utf_8.h void Scm_CharUtf8Putc(unsigned char *cp, ScmChar ch)
ch 214 src/gauche/char_utf_8.h if (ch < 0x80) {
ch 215 src/gauche/char_utf_8.h *cp = ch;
ch 217 src/gauche/char_utf_8.h else if (ch < 0x800) {
ch 218 src/gauche/char_utf_8.h *cp++ = ((ch>>6)&0x1f) | 0xc0;
ch 219 src/gauche/char_utf_8.h *cp = (ch&0x3f) | 0x80;
ch 221 src/gauche/char_utf_8.h else if (ch < 0x10000) {
ch 222 src/gauche/char_utf_8.h *cp++ = ((ch>>12)&0x0f) | 0xe0;
ch 223 src/gauche/char_utf_8.h *cp++ = ((ch>>6)&0x3f) | 0x80;
ch 224 src/gauche/char_utf_8.h *cp = (ch&0x3f) | 0x80;
ch 226 src/gauche/char_utf_8.h else if (ch < 0x200000) {
ch 227 src/gauche/char_utf_8.h *cp++ = ((ch>>18)&0x07) | 0xf0;
ch 228 src/gauche/char_utf_8.h *cp++ = ((ch>>12)&0x3f) | 0x80;
ch 229 src/gauche/char_utf_8.h *cp++ = ((ch>>6)&0x3f) | 0x80;
ch 230 src/gauche/char_utf_8.h *cp = (ch&0x3f) | 0x80;
ch 232 src/gauche/char_utf_8.h else if (ch < 0x4000000) {
ch 233 src/gauche/char_utf_8.h *cp++ = ((ch>>24)&0x03) | 0xf8;
ch 234 src/gauche/char_utf_8.h *cp++ = ((ch>>18)&0x3f) | 0x80;
ch 235 src/gauche/char_utf_8.h *cp++ = ((ch>>12)&0x3f) | 0x80;
ch 236 src/gauche/char_utf_8.h *cp++ = ((ch>>6)&0x3f) | 0x80;
ch 237 src/gauche/char_utf_8.h *cp = (ch&0x3f) | 0x80;
ch 239 src/gauche/char_utf_8.h *cp++ = ((ch>>30)&0x1) | 0xfc;
ch 240 src/gauche/char_utf_8.h *cp++ = ((ch>>24)&0x3f) | 0x80;
ch 241 src/gauche/char_utf_8.h *cp++ = ((ch>>18)&0x3f) | 0x80;
ch 242 src/gauche/char_utf_8.h *cp++ = ((ch>>12)&0x3f) | 0x80;
ch 243 src/gauche/char_utf_8.h *cp++ = ((ch>>6)&0x3f) | 0x80;
ch 244 src/gauche/char_utf_8.h *cp++ = (ch&0x3f) | 0x80;
ch 341 src/portapi.c ScmChar ch;
ch 345 src/portapi.c if ((ch = p->ungotten) == SCM_CHAR_INVALID) {
ch 346 src/portapi.c ch = Scm_GetcUnsafe(p);
ch 347 src/portapi.c p->ungotten = ch;
ch 350 src/portapi.c return ch;
ch 505 src/portapi.c int nb = SCM_CHAR_NFOLLOWS(p->scratch[0]), ch, i, curr = p->scrcnt;
ch 519 src/portapi.c SCM_CHAR_GET(tbuf, ch);
ch 520 src/portapi.c return ch;
ch 70 src/read.c static ScmObj read_reference(ScmPort *port, ScmChar ch, ScmReadContext *ctx);
ch 771 src/read.c ScmObj ch;
ch 835 src/read.c if (strncmp(cntab->name, cname, namesize) == 0) return cntab->ch;
ch 982 src/read.c static ScmObj read_reference(ScmPort *port, ScmChar ch, ScmReadContext *ctx)
ch 985 src/read.c int refnum = Scm_DigitToInt(ch, 10);
ch 988 src/read.c ch = Scm_GetcUnsafe(port);
ch 989 src/read.c if (ch == EOF) {
ch 992 src/read.c if (SCM_CHAR_ASCII_P(ch) && isdigit(ch)) {
ch 993 src/read.c refnum = refnum*10+Scm_DigitToInt(ch, 10);
ch 997 src/read.c if (ch != '#' && ch != '=') {
ch 998 src/read.c Scm_ReadError(port, "invalid reference form (must be either #digits# or #digits=) : #%d%A", refnum, SCM_MAKE_CHAR(ch));
ch 1002 src/read.c if (ch == '#') {
ch 1103 src/read.c static ScmObj maybe_uvector(ScmPort *port, char ch, ScmReadContext *ctx)
ch 1109 src/read.c if (ch == 'f') {
ch 1118 src/read.c if (c1 == '8') tag = (ch == 's')? "s8" : "u8";
ch 1121 src/read.c if (c2 == '6') tag = (ch == 's')? "s16" : "u16";
ch 1125 src/read.c if (c2 == '2') tag = (ch == 's')? "s32" : "u32";
ch 1129 src/read.c if (c2 == '4') tag = (ch == 's')? "s64" : "u64";
ch 1134 src/read.c *bufp++ = ch;
ch 322 src/regexp.c ScmChar ch;
ch 325 src/regexp.c ch = Scm_GetcUnsafe(ctx->ipat);
ch 326 src/regexp.c if (ch == SCM_CHAR_INVALID) return SCM_EOF;
ch 327 src/regexp.c switch (ch) {
ch 340 src/regexp.c ch = Scm_GetcUnsafe(ctx->ipat);
ch 341 src/regexp.c if (ch == SCM_CHAR_INVALID) {
ch 345 src/regexp.c switch (ch) {
ch 355 src/regexp.c ch = rc1_lex_xdigits(ctx->ipat, 2, 'x');
ch 356 src/regexp.c return SCM_MAKE_CHAR(ch);
ch 358 src/regexp.c ch = rc1_lex_xdigits(ctx->ipat, 4, 'u');
ch 359 src/regexp.c return SCM_MAKE_CHAR(Scm_UcsToChar(ch));
ch 361 src/regexp.c ch = rc1_lex_xdigits(ctx->ipat, 8, 'U');
ch 362 src/regexp.c return SCM_MAKE_CHAR(Scm_UcsToChar(ch));
ch 390 src/regexp.c if (ctx->casefoldp) ch = SCM_CHAR_DOWNCASE(ch);
ch 391 src/regexp.c return SCM_MAKE_CHAR(ch);
ch 429 src/regexp.c ScmChar ch = Scm_GetcUnsafe(ctx->ipat);
ch 430 src/regexp.c if (ch == '?') return lazy;
ch 431 src/regexp.c Scm_UngetcUnsafe(ch, ctx->ipat);
ch 440 src/regexp.c ScmChar ch;
ch 443 src/regexp.c ch = Scm_GetcUnsafe(ctx->ipat);
ch 444 src/regexp.c if (ch != '?') {
ch 445 src/regexp.c Scm_UngetcUnsafe(ch, ctx->ipat);
ch 448 src/regexp.c ch = Scm_GetcUnsafe(ctx->ipat);
ch 449 src/regexp.c if (ch == ':') return SCM_SYM_SEQ;
ch 450 src/regexp.c if (ch == '=') return SCM_SYM_ASSERT;
ch 451 src/regexp.c if (ch == '!') return SCM_SYM_NASSERT;
ch 452 src/regexp.c if (ch == 'i') {
ch 453 src/regexp.c ch = Scm_GetcUnsafe(ctx->ipat);
ch 454 src/regexp.c if (ch == ':') return SCM_SYM_SEQ_UNCASE;
ch 456 src/regexp.c } else if (ch == '-') {
ch 457 src/regexp.c ch = Scm_GetcUnsafe(ctx->ipat);
ch 458 src/regexp.c if (ch == 'i') {
ch 459 src/regexp.c ch = Scm_GetcUnsafe(ctx->ipat);
ch 460 src/regexp.c if (ch == ':') return SCM_SYM_SEQ_CASE;
ch 480 src/regexp.c int rep_min = -1, rep_max = -1, exact = FALSE, ch;
ch 487 src/regexp.c ch = Scm_GetcUnsafe(ctx->ipat);
ch 488 src/regexp.c if (SCM_CHAR_ASCII_P(ch) && isdigit(ch)) {
ch 490 src/regexp.c rep_min = (ch - '0');
ch 492 src/regexp.c rep_min = rep_min*10 + (ch - '0');
ch 494 src/regexp.c } else if (ch == ',') {
ch 496 src/regexp.c } else if (ch == '}') {
ch 507 src/regexp.c ch = Scm_GetcUnsafe(ctx->ipat);
ch 508 src/regexp.c if (SCM_CHAR_ASCII_P(ch) && isdigit(ch)) {
ch 510 src/regexp.c rep_max = (ch - '0');
ch 512 src/regexp.c rep_max = rep_max*10 + (ch - '0');
ch 514 src/regexp.c } else if (ch == '}') {
ch 530 src/regexp.c ch = Scm_GetcUnsafe(ctx->ipat);
ch 531 src/regexp.c if (ch == '?') type = SCM_SYM_REP_BOUND_MIN;
ch 532 src/regexp.c else Scm_UngetcUnsafe(ch, ctx->ipat);
ch 983 src/regexp.c ScmChar ch;
ch 989 src/regexp.c ch = SCM_CHAR_VALUE(item);
ch 990 src/regexp.c nb = SCM_CHAR_NBYTES(ch);
ch 991 src/regexp.c SCM_CHAR_PUT(chbuf, ch);
ch 1028 src/regexp.c ScmChar ch = SCM_CHAR_VALUE(ast);
ch 1029 src/regexp.c int i, nb = SCM_CHAR_NBYTES(ch);
ch 1030 src/regexp.c SCM_CHAR_PUT(chbuf, ch);
ch 1744 src/regexp.c register ScmChar ch;
ch 1809 src/regexp.c SCM_CHAR_GET(input, ch);
ch 1811 src/regexp.c if (!Scm_CharSetContains(cset, ch)) return;
ch 1812 src/regexp.c input += SCM_CHAR_NBYTES(ch);
ch 1816 src/regexp.c SCM_CHAR_GET(input, ch);
ch 1818 src/regexp.c if (Scm_CharSetContains(cset, ch)) return;
ch 1819 src/regexp.c input += SCM_CHAR_NBYTES(ch);
ch 1871 src/regexp.c SCM_CHAR_GET(input, ch);
ch 1872 src/regexp.c if (!Scm_CharSetContains(cset, ch)) break;
ch 1873 src/regexp.c input += SCM_CHAR_NBYTES(ch);
ch 1880 src/regexp.c SCM_CHAR_GET(input, ch);
ch 1881 src/regexp.c if (Scm_CharSetContains(cset, ch)) break;
ch 1882 src/regexp.c input += SCM_CHAR_NBYTES(ch);
ch 3811 src/stdlib.c int ch = EOF;
ch 3812 src/stdlib.c SCM_GETC(ch, port);
ch 3813 src/stdlib.c if (ch == EOF) SCM_RETURN(SCM_EOF);
ch 3814 src/stdlib.c else SCM_RETURN(SCM_MAKE_CHAR(ch));
ch 3837 src/stdlib.c ScmChar ch = Scm_Peekc(port);
ch 3838 src/stdlib.c ScmObj r = (ch == SCM_CHAR_INVALID)? SCM_EOF : SCM_MAKE_CHAR(ch);
ch 3975 src/stdlib.c ScmChar ch;
ch 3984 src/stdlib.c ch = SCM_CHAR_VALUE(ch_scm);
ch 3993 src/stdlib.c SCM_PUTC(ch, port);
ch 143 src/string.c ScmChar ch;
ch 147 src/string.c SCM_CHAR_GET(str, ch);
ch 148 src/string.c if (ch == SCM_CHAR_INVALID) return -1;
ch 205 src/string.c ScmChar ch;
ch 211 src/string.c ch = SCM_CHAR_VALUE(SCM_CAR(cp));
ch 212 src/string.c size += SCM_CHAR_NBYTES(ch);
ch 217 src/string.c ch = SCM_CHAR_VALUE(SCM_CAR(cp));
ch 218 src/string.c SCM_CHAR_PUT(bufp, ch);
ch 219 src/string.c bufp += SCM_CHAR_NBYTES(ch);
ch 763 src/string.c ScmObj Scm_StringSet(ScmString *x, int k, ScmChar ch)
ch 768 src/string.c char byte = (char)ch;
ch 772 src/string.c int size = SCM_CHAR_NBYTES(ch);
ch 773 src/string.c SCM_CHAR_PUT(buf, ch);
ch 859 src/string.c ScmObj Scm_StringSplitByChar(ScmString *str, ScmChar ch)
ch 878 src/string.c if (ch == cc) {
ch 1050 src/string.c ScmObj Scm_StringScanChar(ScmString *s1, ScmChar ch, int retmode)
ch 1053 src/string.c SCM_CHAR_PUT(buf, ch);
ch 1054 src/string.c return string_scan(s1, buf, SCM_CHAR_NBYTES(ch), 1, FALSE, retmode);
ch 1067 src/string.c ScmChar ch;
ch 1072 src/string.c SCM_CHAR_GET(bufp, ch);
ch 1073 src/string.c bufp += SCM_CHAR_NBYTES(ch);
ch 1074 src/string.c SCM_APPEND1(start, end, SCM_MAKE_CHAR(ch));
ch 1079 src/string.c ScmObj Scm_StringFill(ScmString *str, ScmChar ch,
ch 1083 src/string.c int chlen = SCM_CHAR_NBYTES(ch);
ch 1128 src/string.c SCM_CHAR_PUT(p, ch);
ch 1170 src/string.c static inline void string_putc(ScmChar ch, ScmPort *port, int bytemode)
ch 1173 src/string.c switch (ch) {
ch 1182 src/string.c if (ch < ' ' || ch == 0x7f || (bytemode && ch >= 0x80)) {
ch 1183 src/string.c snprintf(buf, 5, "\\x%02x", (unsigned char)ch);
ch 1186 src/string.c SCM_PUTC(ch, port);
ch 1210 src/string.c ScmChar ch;
ch 1216 src/string.c SCM_CHAR_GET(cp, ch);
ch 1217 src/string.c string_putc(ch, port, FALSE);
ch 1218 src/string.c cp += SCM_CHAR_NBYTES(ch);
ch 1270 src/string.c ScmChar ch;
ch 1273 src/string.c ch = *sp->current;
ch 1276 src/string.c SCM_CHAR_GET(sp->current, ch);
ch 1278 src/string.c return SCM_MAKE_CHAR(ch);
ch 1283 src/string.c ScmChar ch;
ch 1287 src/string.c ch = *sp->current++;
ch 1290 src/string.c SCM_CHAR_GET(sp->current, ch);
ch 1294 src/string.c return SCM_MAKE_CHAR(ch);
ch 1299 src/string.c ScmChar ch;
ch 1303 src/string.c ch = *--sp->current;
ch 1308 src/string.c SCM_CHAR_GET(prev, ch);
ch 1312 src/string.c return SCM_MAKE_CHAR(ch);
ch 1555 src/string.c void Scm_DStringPutc(ScmDString *ds, ScmChar ch)
ch 1557 src/string.c SCM_DSTRING_PUTC(ds, ch);
ch 156 src/symbol.c unsigned int ch;
ch 157 src/symbol.c SCM_CHAR_GET(q, ch);
ch 158 src/symbol.c q += SCM_CHAR_NBYTES(ch);
ch 159 src/symbol.c if (ch < 128) {
ch 160 src/symbol.c if (special[ch] & 8) {
ch 162 src/symbol.c SCM_PUTC(ch, port);
ch 163 src/symbol.c } else if (special[ch] & 4) {
ch 164 src/symbol.c Scm_Printf(port, "\\x%02x", ch);
ch 166 src/symbol.c SCM_PUTC(ch, port);
ch 169 src/symbol.c SCM_PUTC(ch, port);
ch 388 src/system.c ScmChar ch;
ch 392 src/system.c SCM_CHAR_GET(srcp, ch);
ch 393 src/system.c Scm_DStringPutc(dst, ch);
ch 395 src/system.c srcp += SCM_CHAR_NBYTES(ch);
ch 2342 src/vm.c int nargs = SCM_VM_INSN_ARG(code), ch = 0;
ch 2352 src/vm.c ch = Scm_Getc(port);
ch 2354 src/vm.c VAL0 = (ch < 0)? SCM_EOF : SCM_MAKE_CHAR(ch);
ch 2358 src/vm.c int nargs = SCM_VM_INSN_ARG(code), ch = 0;
ch 2368 src/vm.c ch = Scm_Peekc(port);
ch 2370 src/vm.c VAL0 = (ch < 0)? SCM_EOF : SCM_MAKE_CHAR(ch);
ch 2375 src/vm.c ScmObj ch;
ch 2381 src/vm.c POP_ARG(ch);
ch 2384 src/vm.c ch = VAL0;
ch 2386 src/vm.c if (!SCM_CHARP(ch))
ch 2387 src/vm.c VM_ERR(("write-char: character required: %S", ch));
ch 2389 src/vm.c SCM_PUTC(SCM_CHAR_VALUE(ch), port);
ch 429 src/write.c ScmChar ch = SCM_CHAR_VALUE(obj);
ch 431 src/write.c Scm_PutcUnsafe(ch, port);
ch 434 src/write.c if (ch <= 0x20) Scm_PutzUnsafe(char_names[ch], -1, port);
ch 435 src/write.c else if (ch == 0x7f) Scm_PutzUnsafe("del", -1, port);
ch 436 src/write.c else Scm_PutcUnsafe(ch, port);
ch 723 src/write.c ScmChar ch = 0;
ch 743 src/write.c ch = Scm_GetcUnsafe(fmtstr);
ch 744 src/write.c if (ch == EOF) {
ch 751 src/write.c if (ch != '~') {
ch 752 src/write.c Scm_PutcUnsafe(ch, out);
ch 760 src/write.c ch = Scm_GetcUnsafe(fmtstr);
ch 761 src/write.c switch (ch) {
ch 825 src/write.c format_write(Scm_NumberToString(arg, 16, ch == 'X'),
ch 832 src/write.c colonflag, atflag, ch == 'X');
ch 869 src/write.c ch = Scm_GetcUnsafe(fmtstr);
ch 870 src/write.c if (ch != ',') Scm_UngetcUnsafe(ch, fmtstr);
ch 889 src/write.c ch = Scm_GetcUnsafe(fmtstr);
ch 890 src/write.c if (ch == EOF) goto badfmt;
ch 891 src/write.c params[numParams++] = SCM_MAKE_CHAR(ch);
ch 892 src/write.c ch = Scm_GetcUnsafe(fmtstr);
ch 893 src/write.c if (ch != ',') Scm_UngetcUnsafe(ch, fmtstr);
ch 901 src/write.c int sign = (ch == '-')? -1 : 1;
ch 902 src/write.c unsigned long value = isdigit(ch)? (ch - '0') : 0;
ch 904 src/write.c ch = Scm_GetcUnsafe(fmtstr);
ch 906 src/write.c if (!isdigit(ch)) {
ch 907 src/write.c if (ch != ',') Scm_UngetcUnsafe(ch, fmtstr);
ch 912 src/write.c value = value * 10 + (ch - '0');
ch 924 src/write.c Scm_PutcUnsafe(ch, out);