cs 1375 ext/charconv/convaux.c ScmCharSet *cs = SCM_CHARSET(Scm_MakeEmptyCharSet());
cs 1376 ext/charconv/convaux.c Scm_CharSetAddRange(cs, SCM_CHAR(45), SCM_CHAR(45));
cs 1377 ext/charconv/convaux.c Scm_CharSetAddRange(cs, SCM_CHAR(95), SCM_CHAR(95));
cs 1378 ext/charconv/convaux.c scm__rc.d396[7] = SCM_OBJ(cs);
cs 10746 ext/file/file-util-lib.c ScmCharSet *cs = SCM_CHARSET(Scm_MakeEmptyCharSet());
cs 10747 ext/file/file-util-lib.c Scm_CharSetAddRange(cs, SCM_CHAR(47), SCM_CHAR(47));
cs 10748 ext/file/file-util-lib.c scm__rc.d396[90] = SCM_OBJ(cs);
cs 10865 ext/file/file-util-lib.c ScmCharSet *cs = SCM_CHARSET(Scm_MakeEmptyCharSet());
cs 10866 ext/file/file-util-lib.c Scm_CharSetAddRange(cs, SCM_CHAR(47), SCM_CHAR(47));
cs 10867 ext/file/file-util-lib.c Scm_CharSetAddRange(cs, SCM_CHAR(92), SCM_CHAR(92));
cs 10868 ext/file/file-util-lib.c scm__rc.d396[147] = SCM_OBJ(cs);
cs 8209 ext/srfi/srfi-13-lib.c ScmCharSet *cs = SCM_CHARSET(Scm_MakeEmptyCharSet());
cs 8210 ext/srfi/srfi-13-lib.c Scm_CharSetAddRange(cs, SCM_CHAR(9), SCM_CHAR(13));
cs 8211 ext/srfi/srfi-13-lib.c Scm_CharSetAddRange(cs, SCM_CHAR(32), SCM_CHAR(32));
cs 8212 ext/srfi/srfi-13-lib.c scm__rc.d396[64] = SCM_OBJ(cs);
cs 8244 ext/srfi/srfi-13-lib.c ScmCharSet *cs = SCM_CHARSET(Scm_MakeEmptyCharSet());
cs 8245 ext/srfi/srfi-13-lib.c Scm_CharSetAddRange(cs, SCM_CHAR(9), SCM_CHAR(13));
cs 8246 ext/srfi/srfi-13-lib.c Scm_CharSetAddRange(cs, SCM_CHAR(32), SCM_CHAR(32));
cs 8247 ext/srfi/srfi-13-lib.c scm__rc.d396[75] = SCM_OBJ(cs);
cs 8269 ext/srfi/srfi-13-lib.c ScmCharSet *cs = SCM_CHARSET(Scm_MakeEmptyCharSet());
cs 8270 ext/srfi/srfi-13-lib.c Scm_CharSetAddRange(cs, SCM_CHAR(9), SCM_CHAR(13));
cs 8271 ext/srfi/srfi-13-lib.c Scm_CharSetAddRange(cs, SCM_CHAR(32), SCM_CHAR(32));
cs 8272 ext/srfi/srfi-13-lib.c scm__rc.d396[77] = SCM_OBJ(cs);
cs 8740 ext/srfi/srfi-13-lib.c ScmCharSet *cs = SCM_CHARSET(Scm_MakeEmptyCharSet());
cs 8741 ext/srfi/srfi-13-lib.c Scm_CharSetAddRange(cs, SCM_CHAR(65), SCM_CHAR(90));
cs 8742 ext/srfi/srfi-13-lib.c Scm_CharSetAddRange(cs, SCM_CHAR(97), SCM_CHAR(122));
cs 8743 ext/srfi/srfi-13-lib.c scm__rc.d396[143] = SCM_OBJ(cs);
cs 9008 ext/srfi/srfi-13-lib.c ScmCharSet *cs = SCM_CHARSET(Scm_MakeEmptyCharSet());
cs 9009 ext/srfi/srfi-13-lib.c Scm_CharSetAddRange(cs, SCM_CHAR(0), SCM_CHAR(8));
cs 9010 ext/srfi/srfi-13-lib.c Scm_CharSetAddRange(cs, SCM_CHAR(14), SCM_CHAR(31));
cs 9011 ext/srfi/srfi-13-lib.c Scm_CharSetAddRange(cs, SCM_CHAR(33), SCM_CHAR(536870911));
cs 9012 ext/srfi/srfi-13-lib.c scm__rc.d396[205] = SCM_OBJ(cs);
cs 4799 ext/sxml/sxml-ssax.c ScmCharSet *cs = SCM_CHARSET(Scm_MakeEmptyCharSet());
cs 4800 ext/sxml/sxml-ssax.c Scm_CharSetAddRange(cs, SCM_CHAR(9), SCM_CHAR(13));
cs 4801 ext/sxml/sxml-ssax.c Scm_CharSetAddRange(cs, SCM_CHAR(32), SCM_CHAR(32));
cs 4802 ext/sxml/sxml-ssax.c scm__rc.d273[45] = SCM_OBJ(cs);
cs 234 gc/darwin_stop_world.c GC_push_one(info.cs);
cs 68 src/char.c const char **cs = supportedCharacterEncodings;
cs 69 src/char.c for (;*cs;cs++) {
cs 70 src/char.c const char *p = *cs;
cs 189 src/char.c #define MASK_ISSET(cs, ch) (!!(cs->mask[MASK_INDEX(ch)] & MASK_BIT(ch)))
cs 190 src/char.c #define MASK_SET(cs, ch) (cs->mask[MASK_INDEX(ch)] |= MASK_BIT(ch))
cs 191 src/char.c #define MASK_RESET(cs, ch) (cs->mask[MASK_INDEX(ch)] &= ~MASK_BIT(ch))
cs 213 src/char.c ScmCharSet *cs = SCM_CHARSET(obj);
cs 218 src/char.c if (MASK_ISSET(cs, code) && prev < 0) {
cs 222 src/char.c else if (!MASK_ISSET(cs, code) && prev >= 0) {
cs 236 src/char.c for (r = cs->ranges; r; r = r->next) {
cs 250 src/char.c ScmCharSet *cs = SCM_NEW(ScmCharSet);
cs 252 src/char.c SCM_SET_CLASS(cs, SCM_CLASS_CHARSET);
cs 253 src/char.c for (i=0; i<SCM_CHARSET_MASK_SIZE; i++) cs->mask[i] = 0;
cs 254 src/char.c cs->ranges = NULL;
cs 255 src/char.c return cs;
cs 405 src/char.c ScmObj Scm_CharSetAddRange(ScmCharSet *cs, ScmChar from, ScmChar to)
cs 410 src/char.c if (to < from) return SCM_OBJ(cs);
cs 413 src/char.c for (i=from; i<=to; i++) MASK_SET(cs, i);
cs 414 src/char.c return SCM_OBJ(cs);
cs 416 src/char.c for (i=from; i<SCM_CHARSET_MASK_CHARS; i++) MASK_SET(cs, i);
cs 419 src/char.c if (cs->ranges == NULL) {
cs 420 src/char.c cs->ranges = newrange(from, to, NULL);
cs 421 src/char.c return SCM_OBJ(cs);
cs 432 src/char.c for (lop = NULL, lo = cs->ranges; lo; lop = lo, lo = lo->next) {
cs 437 src/char.c return SCM_OBJ(cs);
cs 446 src/char.c if (lop == NULL) cs->ranges = newrange(from, to, lo);
cs 472 src/char.c return SCM_OBJ(cs);
cs 487 src/char.c ScmObj Scm_CharSetComplement(ScmCharSet *cs)
cs 492 src/char.c cs->mask[i] = ~cs->mask[i];
cs 494 src/char.c for (p = NULL, r = cs->ranges; r; p = r, r = r->next) {
cs 500 src/char.c cs->ranges = r->next;
cs 505 src/char.c if (!p) cs->ranges = newrange(last, SCM_CHAR_MAX, NULL);
cs 508 src/char.c return SCM_OBJ(cs);
cs 513 src/char.c ScmObj Scm_CharSetCaseFold(ScmCharSet *cs)
cs 517 src/char.c if (MASK_ISSET(cs, ch) || MASK_ISSET(cs, (ch-('a'-'A')))) {
cs 518 src/char.c MASK_SET(cs, ch);
cs 519 src/char.c MASK_SET(cs, (ch-('a'-'A')));
cs 522 src/char.c return SCM_OBJ(cs);
cs 529 src/char.c int Scm_CharSetContains(ScmCharSet *cs, ScmChar c)
cs 532 src/char.c if (c < SCM_CHARSET_MASK_CHARS) return MASK_ISSET(cs, c);
cs 535 src/char.c for (r = cs->ranges; r; r = r->next) {
cs 547 src/char.c ScmObj Scm_CharSetRanges(ScmCharSet *cs)
cs 554 src/char.c int bit = MASK_ISSET(cs, ind);
cs 563 src/char.c if (!cs->ranges || cs->ranges->lo != SCM_CHARSET_MASK_CHARS) {
cs 567 src/char.c r = cs->ranges;
cs 569 src/char.c cell = Scm_Cons(SCM_MAKE_INT(begin), SCM_MAKE_INT(cs->ranges->hi));
cs 571 src/char.c r = cs->ranges->next;
cs 574 src/char.c r = cs->ranges;
cs 584 src/char.c void Scm_CharSetDump(ScmCharSet *cs, ScmPort *port)
cs 588 src/char.c Scm_Printf(port, "CharSet %p\nmask:", cs);
cs 590 src/char.c Scm_Printf(port, "[%08x]", cs->mask[i]);
cs 592 src/char.c for (r=cs->ranges; r; r=r->next)
cs 98 src/code.c void Scm_VMExecuteToplevels(ScmCompiledCode *cs[])
cs 100 src/code.c ScmObj proc = Scm_MakeSubr(execute_toplevels, cs, 0, 0, SCM_FALSE);
cs 106 src/code.c ScmCompiledCode **cs = (ScmCompiledCode **)data[0];
cs 109 src/code.c if (cs[0] == NULL) return SCM_UNDEFINED;
cs 110 src/code.c data[0] = cs+1;
cs 113 src/code.c vm->base = cs[0];
cs 1304 src/extlib.c static void char_set_add(ScmCharSet *cs, ScmObj chars)
cs 1310 src/extlib.c Scm_CharSetAddRange(cs, ch, ch);
cs 1372 src/extlib.c ScmCharSet *cs = SCM_CHARSET(Scm_MakeEmptyCharSet());
cs 1373 src/extlib.c char_set_add(cs, chars);
cs 1374 src/extlib.c SCM_RETURN(SCM_OBJ(cs));
cs 1384 src/extlib.c ScmCharSet* cs;
cs 1388 src/extlib.c cs = SCM_CHARSET(cs_scm);
cs 1392 src/extlib.c SCM_RESULT = Scm_CopyCharSet(cs);
cs 1404 src/extlib.c ScmCharSet* cs;
cs 1410 src/extlib.c cs = SCM_CHARSET(cs_scm);
cs 1415 src/extlib.c char_set_add(cs, chars); SCM_RETURN(SCM_OBJ(cs));
cs 1425 src/extlib.c ScmCharSet* cs;
cs 1433 src/extlib.c cs = SCM_CHARSET(cs_scm);
cs 1448 src/extlib.c SCM_RETURN(Scm_CharSetAddRange(cs, (ScmChar)fromc, (ScmChar)toc));
cs 1483 src/extlib.c ScmCharSet* cs;
cs 1489 src/extlib.c cs = SCM_CHARSET(cs_scm);
cs 1496 src/extlib.c SCM_RESULT = Scm_CharSetContains(cs, ch);
cs 1508 src/extlib.c ScmCharSet* cs;
cs 1512 src/extlib.c cs = SCM_CHARSET(cs_scm);
cs 1516 src/extlib.c SCM_RESULT = Scm_CharSetComplement(cs);
cs 1528 src/extlib.c ScmCharSet* cs;
cs 1532 src/extlib.c cs = SCM_CHARSET(cs_scm);
cs 1536 src/extlib.c SCM_RESULT = Scm_CharSetRanges(cs);
cs 1569 src/extlib.c ScmCharSet* cs;
cs 1573 src/extlib.c cs = SCM_CHARSET(cs_scm);
cs 1575 src/extlib.c Scm_CharSetDump(cs, SCM_CUROUT);
cs 904 src/gauche.h SCM_EXTERN ScmObj Scm_CharSetAddRange(ScmCharSet *cs,
cs 907 src/gauche.h SCM_EXTERN ScmObj Scm_CharSetComplement(ScmCharSet *cs);
cs 908 src/gauche.h SCM_EXTERN ScmObj Scm_CharSetCaseFold(ScmCharSet *cs);
cs 909 src/gauche.h SCM_EXTERN ScmObj Scm_CharSetRanges(ScmCharSet *cs);
cs 913 src/gauche.h SCM_EXTERN int Scm_CharSetContains(ScmCharSet *cs, ScmChar c);
cs 276 src/regexp.c static void rc_register_charset(regcomp_ctx *ctx, ScmCharSet *cs);
cs 323 src/regexp.c ScmObj cs;
cs 364 src/regexp.c cs = Scm_GetStandardCharSet(SCM_CHARSET_DIGIT);
cs 365 src/regexp.c rc_register_charset(ctx, SCM_CHARSET(cs));
cs 366 src/regexp.c return cs;
cs 368 src/regexp.c cs = Scm_GetStandardCharSet(SCM_CHARSET_DIGIT);
cs 369 src/regexp.c rc_register_charset(ctx, SCM_CHARSET(cs));
cs 370 src/regexp.c return Scm_Cons(SCM_SYM_COMP, cs);
cs 372 src/regexp.c cs = Scm_GetStandardCharSet(SCM_CHARSET_WORD);
cs 373 src/regexp.c rc_register_charset(ctx, SCM_CHARSET(cs));
cs 374 src/regexp.c return cs;
cs 376 src/regexp.c cs = Scm_GetStandardCharSet(SCM_CHARSET_WORD);
cs 377 src/regexp.c rc_register_charset(ctx, SCM_CHARSET(cs));
cs 378 src/regexp.c return Scm_Cons(SCM_SYM_COMP, cs);
cs 380 src/regexp.c cs = Scm_GetStandardCharSet(SCM_CHARSET_SPACE);
cs 381 src/regexp.c rc_register_charset(ctx, SCM_CHARSET(cs));
cs 382 src/regexp.c return cs;
cs 384 src/regexp.c cs = Scm_GetStandardCharSet(SCM_CHARSET_SPACE);
cs 385 src/regexp.c rc_register_charset(ctx, SCM_CHARSET(cs));
cs 386 src/regexp.c return Scm_Cons(SCM_SYM_COMP, cs);
cs 764 src/regexp.c static void rc_register_charset(regcomp_ctx *ctx, ScmCharSet *cs)
cs 766 src/regexp.c if (SCM_FALSEP(Scm_Memq(SCM_OBJ(cs), ctx->sets))) {
cs 767 src/regexp.c ctx->sets = Scm_Cons(SCM_OBJ(cs), ctx->sets);
cs 924 src/regexp.c static int rc3_charset_index(ScmRegexp *rx, ScmObj cs)
cs 928 src/regexp.c if (cs == SCM_OBJ(rx->sets[i])) return i;
cs 1086 src/regexp.c ScmObj cs = SCM_CDR(ast);
cs 1087 src/regexp.c SCM_ASSERT(SCM_CHARSETP(cs));
cs 1088 src/regexp.c if (SCM_CHARSET_SMALLP(cs)) {
cs 1093 src/regexp.c rc3_emit(ctx, rc3_charset_index(rx, cs));