ctx 16 examples/mqueue-cpp/mqueue_glue.cpp static void mqueue_print(ScmObj obj, ScmPort *out, ScmWriteContext *ctx) ctx 22 ext/dbm/bdbm.c static void bsddb_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx); ctx 29 ext/dbm/bdbm.c static void bsddb_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 27 ext/dbm/gdbm.c static void gdbm_print(ScmObj obj, ScmPort *out, ScmWriteContext *ctx) ctx 33 ext/dbm/ndbm.c static void ndbm_print(ScmObj obj, ScmPort *out, ScmWriteContext *ctx) ctx 16 ext/digest/md5.c MD5_CTX ctx; ctx 33 ext/digest/md5.c MD5Init(&md5->ctx); ctx 64 ext/digest/md5.c MD5Update(&md5->ctx, SCM_UVECTOR_ELEMENTS(SCM_U8VECTOR(data)), SCM_U8VECTOR_SIZE(SCM_U8VECTOR(data))); ctx 67 ext/digest/md5.c MD5Update(&md5->ctx, ctx 90 ext/digest/md5.c MD5Final(digest, &md5->ctx); ctx 41 ext/digest/md5c.c void MD5Init(MD5_CTX *ctx) ctx 43 ext/digest/md5c.c ctx->buf[0] = 0x67452301; ctx 44 ext/digest/md5c.c ctx->buf[1] = 0xefcdab89; ctx 45 ext/digest/md5c.c ctx->buf[2] = 0x98badcfe; ctx 46 ext/digest/md5c.c ctx->buf[3] = 0x10325476; ctx 48 ext/digest/md5c.c ctx->bits[0] = 0; ctx 49 ext/digest/md5c.c ctx->bits[1] = 0; ctx 56 ext/digest/md5c.c void MD5Update(MD5_CTX *ctx, unsigned char const *buf, unsigned len) ctx 62 ext/digest/md5c.c t = ctx->bits[0]; ctx 63 ext/digest/md5c.c if ((ctx->bits[0] = t + ((u_int32_t) len << 3)) < t) ctx 64 ext/digest/md5c.c ctx->bits[1]++; /* Carry from low to high */ ctx 65 ext/digest/md5c.c ctx->bits[1] += len >> 29; ctx 72 ext/digest/md5c.c unsigned char *p = (unsigned char *) ctx->in + t; ctx 80 ext/digest/md5c.c byteReverse(ctx->in, 16); ctx 81 ext/digest/md5c.c MD5Transform(ctx->buf, (u_int32_t *) ctx->in); ctx 88 ext/digest/md5c.c memcpy(ctx->in, buf, 64); ctx 89 ext/digest/md5c.c byteReverse(ctx->in, 16); ctx 90 ext/digest/md5c.c MD5Transform(ctx->buf, (u_int32_t *) ctx->in); ctx 97 ext/digest/md5c.c memcpy(ctx->in, buf, len); ctx 104 ext/digest/md5c.c void MD5Final(unsigned char digest[16], MD5_CTX *ctx) ctx 110 ext/digest/md5c.c count = (ctx->bits[0] >> 3) & 0x3F; ctx 114 ext/digest/md5c.c p = ctx->in + count; ctx 124 ext/digest/md5c.c byteReverse(ctx->in, 16); ctx 125 ext/digest/md5c.c MD5Transform(ctx->buf, (u_int32_t *) ctx->in); ctx 128 ext/digest/md5c.c memset(ctx->in, 0, 56); ctx 133 ext/digest/md5c.c byteReverse(ctx->in, 14); ctx 136 ext/digest/md5c.c ((u_int32_t *) ctx->in)[14] = ctx->bits[0]; ctx 137 ext/digest/md5c.c ((u_int32_t *) ctx->in)[15] = ctx->bits[1]; ctx 139 ext/digest/md5c.c MD5Transform(ctx->buf, (u_int32_t *) ctx->in); ctx 140 ext/digest/md5c.c byteReverse((unsigned char *) ctx->buf, 4); ctx 141 ext/digest/md5c.c memcpy(digest, ctx->buf, 16); ctx 142 ext/digest/md5c.c memset((char *) ctx, 0, sizeof(ctx)); /* In case it's sensitive */ ctx 52 ext/digest/sha.c SHAInit (SHA_CTX * ctx) ctx 56 ext/digest/sha.c ctx->iv[0] = 0x67452301; ctx 57 ext/digest/sha.c ctx->iv[1] = 0xEFCDAB89; ctx 58 ext/digest/sha.c ctx->iv[2] = 0x98BADCFE; ctx 59 ext/digest/sha.c ctx->iv[3] = 0x10325476; ctx 60 ext/digest/sha.c ctx->iv[4] = 0xC3D2E1F0; ctx 64 ext/digest/sha.c ctx->bytes = 0; ctx 66 ext/digest/sha.c ctx->bytesHi = 0; ctx 67 ext/digest/sha.c ctx->bytesLo = 0; ctx 260 ext/digest/sha.c SHAUpdate (SHA_CTX * ctx, const unsigned char *buf, unsigned int len) ctx 267 ext/digest/sha.c i = (unsigned) ctx->bytes % SHA_BLOCKBYTES; ctx 268 ext/digest/sha.c ctx->bytes += len; ctx 270 ext/digest/sha.c uint32_t t = ctx->bytesLo; ctx 271 ext/digest/sha.c if ((ctx->bytesLo = t + len) < t) ctx 272 ext/digest/sha.c ctx->bytesHi++; /* Carry from low to high */ ctx 280 ext/digest/sha.c memcpy ((u_char *) ctx->key + i, buf, len); ctx 286 ext/digest/sha.c memcpy ((u_char *) ctx->key + i, buf, SHA_BLOCKBYTES - i); ctx 287 ext/digest/sha.c shaByteSwap (ctx->key, (u_char *) ctx->key, SHA_BLOCKWORDS); ctx 288 ext/digest/sha.c SHATransform (ctx); ctx 296 ext/digest/sha.c shaByteSwap (ctx->key, buf, SHA_BLOCKWORDS); ctx 297 ext/digest/sha.c SHATransform (ctx); ctx 304 ext/digest/sha.c memcpy (ctx->key, buf, len); ctx 313 ext/digest/sha.c SHAFinal (unsigned char digest[20], SHA_CTX * ctx) ctx 316 ext/digest/sha.c unsigned i = (unsigned) ctx->bytes % SHA_BLOCKBYTES; ctx 318 ext/digest/sha.c unsigned i = (unsigned) ctx->bytesLo % SHA_BLOCKBYTES; ctx 320 ext/digest/sha.c u_char *p = (u_char *) ctx->key + i; /* First unused byte */ ctx 332 ext/digest/sha.c shaByteSwap (ctx->key, (u_char *) ctx->key, 16); ctx 333 ext/digest/sha.c SHATransform (ctx); ctx 334 ext/digest/sha.c p = (u_char *) ctx->key; ctx 338 ext/digest/sha.c shaByteSwap (ctx->key, (u_char *) ctx->key, 14); ctx 342 ext/digest/sha.c ctx->key[14] = (uint32_t) (ctx->bytes >> 29); ctx 343 ext/digest/sha.c ctx->key[15] = (uint32_t) ctx->bytes << 3; ctx 345 ext/digest/sha.c ctx->key[14] = ctx->bytesHi << 3 | ctx->bytesLo >> 29; ctx 346 ext/digest/sha.c ctx->key[15] = ctx->bytesLo << 3; ctx 348 ext/digest/sha.c SHATransform (ctx); ctx 353 ext/digest/sha.c t = ctx->iv[i]; ctx 360 ext/digest/sha.c memset(ctx, 0, sizeof(ctx)); /* In case it's sensitive */ ctx 16 ext/digest/sha1.c SHA_CTX ctx; ctx 33 ext/digest/sha1.c SHAInit(&sha1->ctx); ctx 64 ext/digest/sha1.c SHAUpdate(&sha1->ctx, (const unsigned char*)SCM_UVECTOR_ELEMENTS(SCM_U8VECTOR(data)), SCM_U8VECTOR_SIZE(SCM_U8VECTOR(data))); ctx 67 ext/digest/sha1.c SHAUpdate(&sha1->ctx, ctx 90 ext/digest/sha1.c SHAFinal(digest, &sha1->ctx); ctx 32 ext/net/addr.c static void sockaddr_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx); ctx 45 ext/net/addr.c void sockaddr_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 45 ext/net/net.c static void socket_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx); ctx 61 ext/net/net.c static void socket_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 47 ext/threads/mutex.c static void mutex_print(ScmObj mutex, ScmPort *port, ScmWriteContext *ctx); ctx 86 ext/threads/mutex.c static void mutex_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 265 ext/threads/mutex.c static void cv_print(ScmObj cv, ScmPort *port, ScmWriteContext *ctx); ctx 296 ext/threads/mutex.c static void cv_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 629 ext/threads/thrlib.c static void thread_exception_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 639 ext/threads/thrlib.c static void uncaught_exception_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 644 ext/threads/thrlib.c static void terminated_thread_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 758 ext/uvector/uvector.c static void print_s8vector(ScmObj obj, ScmPort *out, ScmWriteContext *ctx) ctx 962 ext/uvector/uvector.c static void print_u8vector(ScmObj obj, ScmPort *out, ScmWriteContext *ctx) ctx 1166 ext/uvector/uvector.c static void print_s16vector(ScmObj obj, ScmPort *out, ScmWriteContext *ctx) ctx 1370 ext/uvector/uvector.c static void print_u16vector(ScmObj obj, ScmPort *out, ScmWriteContext *ctx) ctx 1574 ext/uvector/uvector.c static void print_s32vector(ScmObj obj, ScmPort *out, ScmWriteContext *ctx) ctx 1778 ext/uvector/uvector.c static void print_u32vector(ScmObj obj, ScmPort *out, ScmWriteContext *ctx) ctx 1982 ext/uvector/uvector.c static void print_s64vector(ScmObj obj, ScmPort *out, ScmWriteContext *ctx) ctx 2186 ext/uvector/uvector.c static void print_u64vector(ScmObj obj, ScmPort *out, ScmWriteContext *ctx) ctx 2390 ext/uvector/uvector.c static void print_f32vector(ScmObj obj, ScmPort *out, ScmWriteContext *ctx) ctx 2594 ext/uvector/uvector.c static void print_f64vector(ScmObj obj, ScmPort *out, ScmWriteContext *ctx) ctx 45 ext/uvector/uvinit.c ScmReadContext *ctx) ctx 65 ext/uvector/uvinit.c if (ctx->flags & SCM_READ_LITERAL_IMMUTABLE) { ctx 77 ext/uvector/uvinit.c ScmReadContext *ctx); ctx 46 ext/vport/vport.c static void vport_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx); ctx 400 ext/vport/vport.c static void vport_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 210 src/char.c static void charset_print(ScmObj obj, ScmPort *out, ScmWriteContext *ctx) ctx 394 src/class.c static void class_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 1680 src/class.c static void slot_accessor_print(ScmObj obj, ScmPort *out, ScmWriteContext *ctx) ctx 1920 src/class.c static void generic_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 2149 src/class.c static void method_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 2449 src/class.c static void next_method_print(ScmObj obj, ScmPort *out, ScmWriteContext *ctx) ctx 2461 src/class.c ScmWriteContext *ctx) ctx 98 src/compaux.c static void synclo_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 142 src/compaux.c static void identifier_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 46 src/error.c static void message_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx); ctx 87 src/error.c static void message_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 5280 src/extlib.c static void Scm_VMClass_PRINT(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 1594 src/gauche.h #define SCM_WRITE_MODE(ctx) ((ctx)->mode & SCM_WRITE_MODE_MASK) ctx 1595 src/gauche.h #define SCM_WRITE_CASE(ctx) ((ctx)->mode & SCM_WRITE_CASE_MASK) ctx 1623 src/gauche.h #define SCM_READ_CONTEXT_INIT(ctx) \ ctx 1624 src/gauche.h do { (ctx)->flags = 0; } while (0) ctx 1644 src/gauche.h SCM_EXTERN ScmObj Scm_ReadWithContext(ScmObj port, ScmReadContext *ctx); ctx 1647 src/gauche.h ScmReadContext *ctx); ctx 507 src/hash.c static void hash_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx); ctx 770 src/hash.c static void hash_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 43 src/keyword.c static void keyword_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 45 src/keyword.c if (SCM_WRITE_MODE(ctx) != SCM_WRITE_DISPLAY) { ctx 115 src/load.c ScmReadContext ctx; ctx 150 src/load.c ScmObj expr = Scm_ReadWithContext(SCM_OBJ(p->port), &(p->ctx)); ctx 192 src/load.c SCM_READ_CONTEXT_INIT(&(p->ctx)); ctx 193 src/load.c p->ctx.flags = SCM_READ_LITERAL_IMMUTABLE | SCM_READ_SOURCE_INFO; ctx 195 src/load.c p->ctx.flags |= SCM_READ_CASE_FOLD; ctx 920 src/load.c static void autoload_print(ScmObj obj, ScmPort *out, ScmWriteContext *ctx) ctx 97 src/macro.c static void pattern_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 288 src/macro.c static inline ScmObj add_pvar(PatternContext *ctx, ctx 292 src/macro.c ScmObj pvref = SCM_MAKE_PVREF(pat->level, ctx->pvcnt); ctx 293 src/macro.c if (!SCM_FALSEP(Scm_Assq(pvar, ctx->pvars))) { ctx 295 src/macro.c pvar, ctx->name, ctx->form); ctx 297 src/macro.c ctx->pvcnt++; ctx 298 src/macro.c ctx->pvars = Scm_Acons(pvar, pvref, ctx->pvars); ctx 305 src/macro.c static inline ScmObj pvar_to_pvref(PatternContext *ctx, ctx 309 src/macro.c ScmObj q = Scm_Assq(pvar, ctx->pvars), pvref; ctx 314 src/macro.c ctx->name, pvar, ctx->form); ctx 319 src/macro.c static inline ScmObj pvref_to_pvar(PatternContext *ctx, ScmObj pvref) ctx 322 src/macro.c ScmObj q = Scm_ListRef(ctx->pvars, count, SCM_UNBOUND); ctx 379 src/macro.c PatternContext *ctx, ctx 387 src/macro.c if (patternp && !SCM_NULLP(SCM_CDDR(pp))) BAD_ELLIPSIS(ctx); ctx 389 src/macro.c if (ctx->maxlev <= spat->level) ctx->maxlev++; ctx 390 src/macro.c nspat->pattern = compile_rule1(SCM_CAR(pp), nspat, ctx, ctx 399 src/macro.c ctx->name, form); ctx 408 src/macro.c ctx->name, form); ctx 415 src/macro.c compile_rule1(SCM_CAR(pp), spat, ctx, patternp)); ctx 419 src/macro.c SCM_APPEND(h, t, compile_rule1(pp, spat, ctx, patternp)); ctx 426 src/macro.c return Scm_ListToVector(compile_rule1(l, spat, ctx, patternp), 0, -1); ctx 436 src/macro.c if (form == SCM_SYM_ELLIPSIS) BAD_ELLIPSIS(ctx); ctx 437 src/macro.c if (!SCM_FALSEP(q = id_memq(form, ctx->literals))) return q; ctx 440 src/macro.c return add_pvar(ctx, spat, form); ctx 442 src/macro.c ScmObj id, pvref = pvar_to_pvref(ctx, spat, form); ctx 445 src/macro.c if (!SCM_FALSEP(q = id_memq(form, ctx->tvars))) return q; ctx 450 src/macro.c ctx->mod, ctx->env); ctx 452 src/macro.c ctx->tvars = Scm_Cons(id, ctx->tvars); ctx 470 src/macro.c PatternContext ctx; ctx 479 src/macro.c ctx.name = name; ctx 480 src/macro.c ctx.literals = preprocess_literals(literals, mod, env); ctx 481 src/macro.c ctx.mod = mod; ctx 482 src/macro.c ctx.env = env; ctx 494 src/macro.c ctx.pvars = SCM_NIL; ctx 495 src/macro.c ctx.tvars = SCM_NIL; ctx 496 src/macro.c ctx.pvcnt = 0; ctx 497 src/macro.c ctx.maxlev = 0; ctx 499 src/macro.c ctx.form = SCM_CAR(rule); ctx 500 src/macro.c if (!SCM_PAIRP(ctx.form)) goto badform; ctx 501 src/macro.c pat->pattern = compile_rule1(SCM_CDR(ctx.form), pat, &ctx, TRUE); ctx 503 src/macro.c ctx.form = SCM_CADR(rule); ctx 504 src/macro.c tmpl->pattern = compile_rule1(ctx.form, tmpl, &ctx, FALSE); ctx 508 src/macro.c sr->rules[i].numPvars = ctx.pvcnt; ctx 509 src/macro.c sr->rules[i].maxLevel = ctx.maxlev; ctx 510 src/macro.c if (ctx.pvcnt > sr->maxNumPvars) sr->maxNumPvars = ctx.pvcnt; ctx 75 src/module.c static void module_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 89 src/number.c static void number_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx); ctx 2097 src/number.c static void number_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 2227 src/number.c struct numread_packet *ctx, ctx 2233 src/number.c int radix = ctx->radix; ctx 2262 src/number.c if (ctx->padread) { ctx 2267 src/number.c ctx->padread = TRUE; ctx 2268 src/number.c if (ctx->exactness == NOEXACT) { ctx 2269 src/number.c ctx->exactness = INEXACT; ctx 2418 src/number.c struct numread_packet *ctx) ctx 2435 src/number.c intpart = read_uint(strp, lenp, ctx, SCM_FALSE); ctx 2438 src/number.c if (ctx->exactness == INEXACT) { ctx 2452 src/number.c denom = read_uint(strp, lenp, ctx, SCM_FALSE); ctx 2468 src/number.c if (ctx->exactness == EXACT && !Scm_IntegerP(ratval)) { ctx 2470 src/number.c ctx); ctx 2472 src/number.c if (ctx->exactness == INEXACT && !SCM_FLONUMP(ratval)) { ctx 2487 src/number.c if (ctx->radix != 10) { ctx 2489 src/number.c ctx); ctx 2493 src/number.c fraction = read_uint(strp, lenp, ctx, intpart); ctx 2523 src/number.c return numread_error("(exponent of floating-point number out of range)", ctx); ctx 2544 src/number.c if (ctx->exactness == EXACT) { ctx 2548 src/number.c ctx); ctx 2559 src/number.c struct numread_packet ctx; ctx 2563 src/number.c ctx.buffer = str; ctx 2564 src/number.c ctx.buflen = len; ctx 2565 src/number.c ctx.exactness = NOEXACT; ctx 2566 src/number.c ctx.padread = FALSE; ctx 2567 src/number.c ctx.strict = strict; ctx 2571 src/number.c if (ctx.exactness == EXACT) { \ ctx 2573 src/number.c &ctx); \ ctx 2579 src/number.c ctx.radix = radix; ctx 2588 src/number.c ctx.radix = 16; radix_seen++; ctx 2592 src/number.c ctx.radix = 8; radix_seen++; ctx 2596 src/number.c ctx.radix = 2; radix_seen++; ctx 2600 src/number.c ctx.radix = 10; radix_seen++; ctx 2604 src/number.c ctx.exactness = EXACT; exactness_seen++; ctx 2608 src/number.c ctx.exactness = INEXACT; exactness_seen++; ctx 2625 src/number.c realpart = read_real(&str, &len, &ctx); ctx 2637 src/number.c angle = read_real(&str, &len, &ctx); ctx 2653 src/number.c ScmObj imagpart = read_real(&str, &len, &ctx); ctx 55 src/port.c static void port_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx); ctx 213 src/port.c static void port_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 49 src/proc.c static void proc_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 79 src/promise.c static void promise_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 49 src/read.c static void read_context_init(ScmVM *vm, ScmReadContext *ctx); ctx 50 src/read.c static void read_context_flush(ScmReadContext *ctx); ctx 51 src/read.c static ScmObj read_internal(ScmPort *port, ScmReadContext *ctx); ctx 52 src/read.c static ScmObj read_item(ScmPort *port, ScmReadContext *ctx); ctx 53 src/read.c static ScmObj read_list(ScmPort *port, ScmChar closer, ScmReadContext *ctx); ctx 54 src/read.c static ScmObj read_vector(ScmPort *port, ScmChar closer, ScmReadContext *ctx); ctx 55 src/read.c static ScmObj read_string(ScmPort *port, int incompletep, ScmReadContext *ctx); ctx 56 src/read.c static ScmObj read_quoted(ScmPort *port, ScmObj quoter, ScmReadContext *ctx); ctx 57 src/read.c static ScmObj read_char(ScmPort *port, ScmReadContext *ctx); ctx 58 src/read.c static ScmObj read_word(ScmPort *port, ScmChar initial, ScmReadContext *ctx, ctx 60 src/read.c static ScmObj read_symbol(ScmPort *port, ScmChar initial, ScmReadContext *ctx); ctx 61 src/read.c static ScmObj read_number(ScmPort *port, ScmChar initial, ScmReadContext *ctx); ctx 62 src/read.c static ScmObj read_symbol_or_number(ScmPort *port, ScmChar initial, ScmReadContext *ctx); ctx 64 src/read.c static ScmObj read_keyword(ScmPort *port, ScmReadContext *ctx); ctx 67 src/read.c static ScmObj read_sharp_comma(ScmPort *port, ScmReadContext *ctx); ctx 69 src/read.c ScmReadContext *ctx, int has_ref); ctx 70 src/read.c static ScmObj read_reference(ScmPort *port, ScmChar ch, ScmReadContext *ctx); ctx 71 src/read.c static ScmObj maybe_uvector(ScmPort *port, char c, ScmReadContext *ctx); ctx 75 src/read.c ScmReadContext *ctx) = NULL; ctx 90 src/read.c ScmObj Scm_ReadWithContext(ScmObj port, ScmReadContext *ctx) ctx 97 src/read.c if (!(ctx->flags & SCM_READ_RECURSIVELY)) { ctx 98 src/read.c ctx->table = NULL; ctx 99 src/read.c ctx->pending = SCM_NIL; ctx 102 src/read.c r = read_item(SCM_PORT(port), ctx); ctx 105 src/read.c PORT_SAFE_CALL(SCM_PORT(port), r = read_item(SCM_PORT(port), ctx)); ctx 108 src/read.c if (!(ctx->flags & SCM_READ_RECURSIVELY)) { ctx 109 src/read.c read_context_flush(ctx); ctx 116 src/read.c ScmReadContext ctx; ctx 117 src/read.c read_context_init(Scm_VM(), &ctx); ctx 118 src/read.c return Scm_ReadWithContext(port, &ctx); ctx 125 src/read.c ScmReadContext ctx; ctx 126 src/read.c read_context_init(Scm_VM(), &ctx); ctx 127 src/read.c r = read_item(SCM_PORT(inp), &ctx); ctx 128 src/read.c read_context_flush(&ctx); ctx 137 src/read.c ScmReadContext ctx; ctx 138 src/read.c read_context_init(Scm_VM(), &ctx); ctx 139 src/read.c r = read_item(SCM_PORT(inp), &ctx); ctx 140 src/read.c read_context_flush(&ctx); ctx 144 src/read.c ScmObj Scm_ReadListWithContext(ScmObj port, ScmChar closer, ScmReadContext *ctx) ctx 151 src/read.c if (!(ctx->flags & SCM_READ_RECURSIVELY)) { ctx 152 src/read.c ctx->table = NULL; ctx 153 src/read.c ctx->pending = SCM_NIL; ctx 156 src/read.c r = read_list(SCM_PORT(port), closer, ctx); ctx 159 src/read.c PORT_SAFE_CALL(SCM_PORT(port), r = read_list(SCM_PORT(port), closer, ctx)); ctx 162 src/read.c if (!(ctx->flags & SCM_READ_RECURSIVELY)) { ctx 163 src/read.c read_context_flush(ctx); ctx 170 src/read.c ScmReadContext ctx; ctx 171 src/read.c read_context_init(Scm_VM(), &ctx); ctx 172 src/read.c return Scm_ReadListWithContext(port, closer, &ctx); ctx 175 src/read.c static void read_context_init(ScmVM *vm, ScmReadContext *ctx) ctx 177 src/read.c ctx->flags = SCM_READ_SOURCE_INFO; ctx 179 src/read.c ctx->flags |= SCM_READ_CASE_FOLD; ctx 181 src/read.c ctx->table = NULL; ctx 182 src/read.c ctx->pending = SCM_NIL; ctx 218 src/read.c ScmWriteContext *ctx); ctx 231 src/read.c ScmWriteContext *ctx) ctx 236 src/read.c static void ref_push(ScmReadContext *ctx, ScmObj obj, ScmObj finisher) ctx 238 src/read.c ctx->pending = Scm_Acons(obj, finisher, ctx->pending); ctx 249 src/read.c static ScmObj ref_register(ScmReadContext *ctx, ScmObj obj, int refnum) ctx 251 src/read.c SCM_ASSERT(ctx->table); ctx 252 src/read.c Scm_HashTablePut(ctx->table, SCM_MAKE_INT(refnum), obj); ctx 262 src/read.c static void read_context_flush(ScmReadContext *ctx) ctx 266 src/read.c SCM_FOR_EACH(cp, ctx->pending) { ctx 339 src/read.c static void read_nested_comment(ScmPort *port, ScmReadContext *ctx) ctx 374 src/read.c static int skipws(ScmPort *port, ScmReadContext *ctx) ctx 398 src/read.c static ScmObj read_internal(ScmPort *port, ScmReadContext *ctx) ctx 400 src/read.c int c = skipws(port, ctx); ctx 403 src/read.c return read_list(port, ')', ctx); ctx 405 src/read.c return read_string(port, FALSE, ctx); ctx 413 src/read.c case 'f':; case 'F': return maybe_uvector(port, 'f', ctx); ctx 414 src/read.c case 's':; case 'S': return maybe_uvector(port, 's', ctx); ctx 415 src/read.c case 'u':; case 'U': return maybe_uvector(port, 'u', ctx); ctx 417 src/read.c return read_vector(port, ')', ctx); ctx 419 src/read.c return read_char(port, ctx); ctx 424 src/read.c return read_number(port, c, ctx); ctx 440 src/read.c return read_sharp_comma(port, ctx); ctx 444 src/read.c read_nested_comment(port, ctx); ctx 449 src/read.c ScmObj form = read_item(port, ctx); ctx 452 src/read.c SCM_LIST1(form), ctx, FALSE); ctx 464 src/read.c form = read_item(port, ctx); ctx 475 src/read.c return read_reference(port, c1, ctx); ctx 482 src/read.c if (c2 == '"') return read_string(port, TRUE, ctx); ctx 487 src/read.c read_item(port, ctx); /* read and discard */ ctx 493 src/read.c case '\'': return read_quoted(port, SCM_SYM_QUOTE, ctx); ctx 494 src/read.c case '`': return read_quoted(port, SCM_SYM_QUASIQUOTE, ctx); ctx 496 src/read.c return read_keyword(port, ctx); ctx 503 src/read.c return read_quoted(port, SCM_SYM_UNQUOTE_SPLICING, ctx); ctx 506 src/read.c return read_quoted(port, SCM_SYM_UNQUOTE, ctx); ctx 513 src/read.c return read_list(port, ']', ctx); ctx 515 src/read.c return read_list(port, '}', ctx); ctx 519 src/read.c return read_symbol_or_number(port, c, ctx); ctx 527 src/read.c return read_symbol_or_number(port, c, ctx); ctx 533 src/read.c return read_symbol_or_number(port, c, ctx); ctx 539 src/read.c return read_symbol(port, c, ctx); ctx 543 src/read.c static ScmObj read_item(ScmPort *port, ScmReadContext *ctx) ctx 546 src/read.c ScmObj obj = read_internal(port, ctx); ctx 558 src/read.c ScmReadContext *ctx, int *has_ref, int start_line) ctx 564 src/read.c c = skipws(port, ctx); ctx 582 src/read.c item = read_item(port, ctx); ctx 589 src/read.c item = read_symbol_or_number(port, c, ctx); ctx 592 src/read.c item = read_internal(port, ctx); ctx 610 src/read.c static ScmObj read_list(ScmPort *port, ScmChar closer, ScmReadContext *ctx) ctx 616 src/read.c if (ctx->flags & SCM_READ_SOURCE_INFO) line = Scm_PortLine(port); ctx 618 src/read.c r = read_list_int(port, closer, ctx, &has_ref, line); ctx 620 src/read.c if (SCM_PAIRP(r) && (ctx->flags & SCM_READ_SOURCE_INFO) && line >= 0) { ctx 628 src/read.c if (has_ref) ref_push(ctx, r, SCM_FALSE); ctx 632 src/read.c static ScmObj read_vector(ScmPort *port, ScmChar closer, ScmReadContext *ctx) ctx 638 src/read.c if (ctx->flags & SCM_READ_SOURCE_INFO) line = Scm_PortLine(port); ctx 639 src/read.c r = read_list_int(port, closer, ctx, &has_ref, line); ctx 641 src/read.c if (has_ref) ref_push(ctx, r, SCM_FALSE); ctx 645 src/read.c static ScmObj read_quoted(ScmPort *port, ScmObj quoter, ScmReadContext *ctx) ctx 650 src/read.c if (ctx->flags & SCM_READ_SOURCE_INFO) line = Scm_PortLine(port); ctx 651 src/read.c item = read_item(port, ctx); ctx 660 src/read.c if (SCM_READ_REFERENCE_P(item)) ref_push(ctx, SCM_CDR(r), SCM_FALSE); ctx 703 src/read.c ScmReadContext *ctx) ctx 790 src/read.c static ScmObj read_char(ScmPort *port, ScmReadContext *ctx) ctx 807 src/read.c name = SCM_STRING(read_word(port, c, ctx, TRUE)); ctx 853 src/read.c static ScmObj read_word(ScmPort *port, ScmChar initial, ScmReadContext *ctx, ctx 857 src/read.c int case_fold = temp_case_fold || (ctx->flags & SCM_READ_CASE_FOLD); ctx 876 src/read.c static ScmObj read_symbol(ScmPort *port, ScmChar initial, ScmReadContext *ctx) ctx 878 src/read.c ScmString *s = SCM_STRING(read_word(port, initial, ctx, FALSE)); ctx 882 src/read.c static ScmObj read_number(ScmPort *port, ScmChar initial, ScmReadContext *ctx) ctx 884 src/read.c ScmString *s = SCM_STRING(read_word(port, initial, ctx, FALSE)); ctx 891 src/read.c static ScmObj read_symbol_or_number(ScmPort *port, ScmChar initial, ScmReadContext *ctx) ctx 893 src/read.c ScmString *s = SCM_STRING(read_word(port, initial, ctx, FALSE)); ctx 901 src/read.c static ScmObj read_keyword(ScmPort *port, ScmReadContext *ctx) ctx 903 src/read.c ScmString *s = SCM_STRING(read_word(port, SCM_CHAR_INVALID, ctx, FALSE)); ctx 982 src/read.c static ScmObj read_reference(ScmPort *port, ScmChar ch, ScmReadContext *ctx) ctx 1004 src/read.c if (ctx->table == NULL ctx 1005 src/read.c || (e = Scm_HashTableGet(ctx->table, Scm_MakeInteger(refnum))) == NULL) { ctx 1019 src/read.c if (ctx->table == NULL) { ctx 1020 src/read.c ctx->table = ctx 1023 src/read.c if (Scm_HashTableGet(ctx->table, Scm_MakeInteger(refnum)) != NULL) { ctx 1026 src/read.c ref_register(ctx, ref, refnum); ctx 1027 src/read.c val = read_item(port, ctx); ctx 1050 src/read.c static ScmObj read_sharp_comma(ScmPort *port, ScmReadContext *ctx) ctx 1062 src/read.c if (ctx->flags & SCM_READ_SOURCE_INFO) line = Scm_PortLine(port); ctx 1064 src/read.c form = read_list_int(port, ')', ctx, &has_ref, line); ctx 1069 src/read.c r = process_sharp_comma(port, SCM_CAR(form), SCM_CDR(form), ctx, has_ref); ctx 1074 src/read.c ScmReadContext *ctx, int has_ref) ctx 1086 src/read.c if (has_ref) ref_push(ctx, r, SCM_CDR(e->value)); ctx 1103 src/read.c static ScmObj maybe_uvector(ScmPort *port, char ch, ScmReadContext *ctx) ctx 1152 src/read.c return Scm_ReadUvectorHook(port, tag, ctx); ctx 203 src/regexp.c static void regexp_print(ScmObj rx, ScmPort *out, ScmWriteContext *ctx) ctx 257 src/regexp.c static void rc_ctx_init(regcomp_ctx *ctx, ScmRegexp *rx) ctx 259 src/regexp.c ctx->rx = rx; ctx 260 src/regexp.c ctx->pattern = rx->pattern; ctx 261 src/regexp.c ctx->casefoldp = FALSE; ctx 263 src/regexp.c ctx->ipat = SCM_PORT(Scm_MakeInputStringPort(rx->pattern, FALSE)); ctx 265 src/regexp.c ctx->ipat = NULL; ctx 267 src/regexp.c ctx->sets = SCM_NIL; ctx 268 src/regexp.c ctx->grpcount = 0; ctx 269 src/regexp.c ctx->code = NULL; ctx 270 src/regexp.c ctx->codep = 0; ctx 271 src/regexp.c ctx->emitp = FALSE; ctx 272 src/regexp.c ctx->codemax = 1; ctx 275 src/regexp.c static ScmObj rc_charset(regcomp_ctx *ctx); ctx 276 src/regexp.c static void rc_register_charset(regcomp_ctx *ctx, ScmCharSet *cs); ctx 277 src/regexp.c static ScmObj rc1_maybe_lazy(regcomp_ctx *ctx, ScmObj greedy, ScmObj lazy); ctx 278 src/regexp.c static ScmObj rc1_lex_minmax(regcomp_ctx *ctx); ctx 279 src/regexp.c static ScmObj rc1_lex_open_paren(regcomp_ctx *ctx); ctx 320 src/regexp.c static ScmObj rc1_lex(regcomp_ctx *ctx) ctx 325 src/regexp.c ch = Scm_GetcUnsafe(ctx->ipat); ctx 328 src/regexp.c case '(': return rc1_lex_open_paren(ctx); ctx 334 src/regexp.c case '[': return rc_charset(ctx); ctx 335 src/regexp.c case '{': return rc1_lex_minmax(ctx); ctx 336 src/regexp.c case '+': return rc1_maybe_lazy(ctx, SCM_SYM_PLUS, SCM_SYM_PLUSQ); ctx 337 src/regexp.c case '*': return rc1_maybe_lazy(ctx, SCM_SYM_STAR, SCM_SYM_STARQ); ctx 338 src/regexp.c case '?': return rc1_maybe_lazy(ctx, SCM_SYM_QUESTION, SCM_SYM_QUESTIONQ); ctx 340 src/regexp.c ch = Scm_GetcUnsafe(ctx->ipat); ctx 343 src/regexp.c ctx->pattern); ctx 355 src/regexp.c ch = rc1_lex_xdigits(ctx->ipat, 2, 'x'); ctx 358 src/regexp.c ch = rc1_lex_xdigits(ctx->ipat, 4, 'u'); ctx 361 src/regexp.c ch = rc1_lex_xdigits(ctx->ipat, 8, 'U'); ctx 365 src/regexp.c rc_register_charset(ctx, SCM_CHARSET(cs)); ctx 369 src/regexp.c rc_register_charset(ctx, SCM_CHARSET(cs)); ctx 373 src/regexp.c rc_register_charset(ctx, SCM_CHARSET(cs)); ctx 377 src/regexp.c rc_register_charset(ctx, SCM_CHARSET(cs)); ctx 381 src/regexp.c rc_register_charset(ctx, SCM_CHARSET(cs)); ctx 385 src/regexp.c rc_register_charset(ctx, SCM_CHARSET(cs)); ctx 390 src/regexp.c if (ctx->casefoldp) ch = SCM_CHAR_DOWNCASE(ch); ctx 427 src/regexp.c static ScmObj rc1_maybe_lazy(regcomp_ctx *ctx, ScmObj greedy, ScmObj lazy) ctx 429 src/regexp.c ScmChar ch = Scm_GetcUnsafe(ctx->ipat); ctx 431 src/regexp.c Scm_UngetcUnsafe(ch, ctx->ipat); ctx 437 src/regexp.c static ScmObj rc1_lex_open_paren(regcomp_ctx *ctx) ctx 442 src/regexp.c pos = Scm_PortSeekUnsafe(ctx->ipat, SCM_MAKE_INT(0), SEEK_CUR); ctx 443 src/regexp.c ch = Scm_GetcUnsafe(ctx->ipat); ctx 445 src/regexp.c Scm_UngetcUnsafe(ch, ctx->ipat); ctx 448 src/regexp.c ch = Scm_GetcUnsafe(ctx->ipat); ctx 453 src/regexp.c ch = Scm_GetcUnsafe(ctx->ipat); ctx 457 src/regexp.c ch = Scm_GetcUnsafe(ctx->ipat); ctx 459 src/regexp.c ch = Scm_GetcUnsafe(ctx->ipat); ctx 465 src/regexp.c Scm_PortSeekUnsafe(ctx->ipat, pos, SEEK_SET); ctx 478 src/regexp.c static ScmObj rc1_lex_minmax(regcomp_ctx *ctx) ctx 484 src/regexp.c pos = Scm_PortSeekUnsafe(ctx->ipat, SCM_MAKE_INT(0), SEEK_CUR); ctx 487 src/regexp.c ch = Scm_GetcUnsafe(ctx->ipat); ctx 507 src/regexp.c ch = Scm_GetcUnsafe(ctx->ipat); ctx 522 src/regexp.c Scm_Error("{n,m}-syntax requires n <= m: %S", ctx->pattern); ctx 530 src/regexp.c ch = Scm_GetcUnsafe(ctx->ipat); ctx 532 src/regexp.c else Scm_UngetcUnsafe(ch, ctx->ipat); ctx 537 src/regexp.c MAX_LIMITED_REPEAT, ctx->pattern); ctx 541 src/regexp.c Scm_PortSeekUnsafe(ctx->ipat, pos, SEEK_SET); ctx 545 src/regexp.c static ScmObj rc1_fold_alts(regcomp_ctx *ctx, ScmObj alts) ctx 560 src/regexp.c static ScmObj rc1_parse(regcomp_ctx *ctx, int bolp, int topp) ctx 570 src/regexp.c token = rc1_lex(ctx); ctx 573 src/regexp.c Scm_Error("unterminated grouping in regexp %S", ctx->pattern); ctx 579 src/regexp.c Scm_Error("extra close parenthesis in regexp %S", ctx->pattern); ctx 600 src/regexp.c int grpno = ++ctx->grpcount; ctx 601 src/regexp.c item = rc1_parse(ctx, bolp, FALSE); ctx 607 src/regexp.c item = rc1_parse(ctx, bolp, FALSE); ctx 613 src/regexp.c int oldflag = ctx->casefoldp; ctx 614 src/regexp.c ctx->casefoldp = SCM_EQ(token, SCM_SYM_SEQ_UNCASE); ctx 615 src/regexp.c item = rc1_parse(ctx, bolp, FALSE); ctx 617 src/regexp.c ctx->casefoldp = oldflag; ctx 622 src/regexp.c item = rc1_parse(ctx, bolp, FALSE); ctx 627 src/regexp.c item = rc1_parse(ctx, bolp, FALSE); ctx 664 src/regexp.c item = rc1_fold_alts(ctx, ctx 672 src/regexp.c item = rc1_fold_alts(ctx, ctx 722 src/regexp.c return SCM_LIST1(rc1_fold_alts(ctx, alts)); ctx 725 src/regexp.c Scm_Error("bad regexp syntax in %S", ctx->pattern); ctx 731 src/regexp.c static ScmObj rc1(regcomp_ctx *ctx) ctx 733 src/regexp.c ScmObj ast = rc1_parse(ctx, TRUE, TRUE); ctx 734 src/regexp.c if (ctx->casefoldp) { ctx 739 src/regexp.c ctx->rx->numGroups = ctx->grpcount+1; ctx 744 src/regexp.c static ScmObj rc_charset(regcomp_ctx *ctx) ctx 747 src/regexp.c ScmObj set = Scm_CharSetRead(ctx->ipat, &complement, FALSE, TRUE); ctx 749 src/regexp.c Scm_Error("bad charset spec in pattern: %S", ctx->pattern); ctx 751 src/regexp.c if (ctx->casefoldp) { ctx 755 src/regexp.c rc_register_charset(ctx, SCM_CHARSET(set)); ctx 764 src/regexp.c static void rc_register_charset(regcomp_ctx *ctx, ScmCharSet *cs) ctx 766 src/regexp.c if (SCM_FALSEP(Scm_Memq(SCM_OBJ(cs), ctx->sets))) { ctx 767 src/regexp.c ctx->sets = Scm_Cons(SCM_OBJ(cs), ctx->sets); ctx 773 src/regexp.c static void rc_setup_charsets(ScmRegexp *rx, regcomp_ctx *ctx) ctx 777 src/regexp.c rx->numSets = Scm_Length(ctx->sets); ctx 779 src/regexp.c for (i=0, cp = Scm_Reverse(ctx->sets); !SCM_NULLP(cp); cp = SCM_CDR(cp)) { ctx 919 src/regexp.c static void rc3_rec(regcomp_ctx *ctx, ScmObj ast, int lastp, int toplevelp); ctx 933 src/regexp.c static void rc3_emit(regcomp_ctx *ctx, char code) ctx 935 src/regexp.c if (ctx->emitp) { ctx 936 src/regexp.c SCM_ASSERT(ctx->codep < ctx->codemax); ctx 937 src/regexp.c ctx->code[ctx->codep++] = code; ctx 939 src/regexp.c ctx->codemax++; ctx 943 src/regexp.c static void rc3_emit_offset(regcomp_ctx *ctx, int offset) ctx 947 src/regexp.c SCM_OBJ(ctx->rx)); ctx 950 src/regexp.c if (ctx->emitp) { ctx 951 src/regexp.c SCM_ASSERT(ctx->codep < ctx->codemax-1); ctx 952 src/regexp.c ctx->code[ctx->codep++] = (offset>>8) & 0xff; ctx 953 src/regexp.c ctx->code[ctx->codep++] = offset & 0xff; ctx 955 src/regexp.c ctx->codemax+=2; ctx 959 src/regexp.c static void rc3_fill_offset(regcomp_ctx *ctx, int codep, int offset) ctx 963 src/regexp.c SCM_OBJ(ctx->rx)); ctx 966 src/regexp.c if (ctx->emitp) { ctx 967 src/regexp.c SCM_ASSERT(codep < ctx->codemax-1); ctx 968 src/regexp.c ctx->code[codep] = (offset >> 8) & 0xff; ctx 969 src/regexp.c ctx->code[codep+1] = offset & 0xff; ctx 973 src/regexp.c static void rc3_seq(regcomp_ctx *ctx, ScmObj seq, int lastp, int toplevelp) ctx 982 src/regexp.c int nrun = 0, ocodep = ctx->codep, nb, i; ctx 986 src/regexp.c rc3_emit(ctx, (ctx->casefoldp? RE_MATCH_CI:RE_MATCH)); ctx 987 src/regexp.c rc3_emit(ctx, 0); /* patched later */ ctx 992 src/regexp.c for (i=0; i<nb; i++) rc3_emit(ctx, chbuf[i]); ctx 998 src/regexp.c if (ctx->emitp) { ctx 1002 src/regexp.c ctx->code[ocodep] = ctx 1003 src/regexp.c ctx->casefoldp?RE_MATCH1_CI:RE_MATCH1; ctx 1004 src/regexp.c ctx->code[ocodep+1] = ctx->code[ocodep+2]; ctx 1005 src/regexp.c ctx->codep = ocodep+2; ctx 1007 src/regexp.c ctx->code[ocodep+1] = (char)nrun; ctx 1013 src/regexp.c rc3_rec(ctx, item, lastp&&SCM_NULLP(SCM_CDR(cp)), toplevelp); ctx 1018 src/regexp.c static void rc3_rec(regcomp_ctx *ctx, ScmObj ast, int lastp, int toplevelp) ctx 1021 src/regexp.c ScmRegexp *rx = ctx->rx; ctx 1032 src/regexp.c rc3_emit(ctx, (ctx->casefoldp? RE_MATCH1_CI:RE_MATCH1)); ctx 1033 src/regexp.c rc3_emit(ctx, chbuf[0]); ctx 1035 src/regexp.c rc3_emit(ctx, (ctx->casefoldp? RE_MATCH_CI:RE_MATCH)); ctx 1036 src/regexp.c rc3_emit(ctx, nb); ctx 1037 src/regexp.c for (i=0; i<nb; i++) rc3_emit(ctx, chbuf[i]); ctx 1044 src/regexp.c rc3_emit(ctx, RE_SET1); ctx 1046 src/regexp.c rc3_emit(ctx, RE_SET); ctx 1048 src/regexp.c rc3_emit(ctx, rc3_charset_index(rx, ast)); ctx 1054 src/regexp.c rc3_emit(ctx, RE_ANY); ctx 1058 src/regexp.c rc3_emit(ctx, RE_BOL); ctx 1063 src/regexp.c rc3_emit(ctx, RE_EOL); ctx 1065 src/regexp.c rc3_emit(ctx, RE_MATCH1); ctx 1066 src/regexp.c rc3_emit(ctx, '$'); ctx 1071 src/regexp.c rc3_emit(ctx, RE_WB); ctx 1075 src/regexp.c rc3_emit(ctx, RE_NWB); ctx 1089 src/regexp.c rc3_emit(ctx, RE_NSET1); ctx 1091 src/regexp.c rc3_emit(ctx, RE_NSET); ctx 1093 src/regexp.c rc3_emit(ctx, rc3_charset_index(rx, cs)); ctx 1097 src/regexp.c rc3_seq(ctx, SCM_CDR(ast), lastp, toplevelp); ctx 1102 src/regexp.c rc3_emit(ctx, RE_BEGIN); ctx 1103 src/regexp.c rc3_emit(ctx, grpno); ctx 1104 src/regexp.c rc3_seq(ctx, SCM_CDR(ast), lastp, toplevelp); ctx 1105 src/regexp.c rc3_emit(ctx, RE_END); ctx 1106 src/regexp.c rc3_emit(ctx, grpno); ctx 1110 src/regexp.c int oldcase = ctx->casefoldp; ctx 1111 src/regexp.c ctx->casefoldp = SCM_EQ(type, SCM_SYM_SEQ_UNCASE); ctx 1112 src/regexp.c rc3_seq(ctx, SCM_CDR(ast), lastp, toplevelp); ctx 1113 src/regexp.c ctx->casefoldp = oldcase; ctx 1121 src/regexp.c rc3_emit(ctx, SCM_CHARSET_SMALLP(elem)?RE_SET1R:RE_SETR); ctx 1122 src/regexp.c rc3_emit(ctx, rc3_charset_index(rx, elem)); ctx 1128 src/regexp.c rc3_emit(ctx, SCM_CHARSET_SMALLP(elem)?RE_NSET1R:RE_NSETR); ctx 1129 src/regexp.c rc3_emit(ctx, rc3_charset_index(rx, elem)); ctx 1137 src/regexp.c int ocodep = ctx->codep; ctx 1138 src/regexp.c rc3_emit(ctx, SCM_EQ(type, SCM_SYM_ASSERT) ? RE_ASSERT : RE_NASSERT); ctx 1139 src/regexp.c rc3_emit_offset(ctx, 0); /* will be patched */ ctx 1140 src/regexp.c rc3_seq(ctx, SCM_CDR(ast), lastp, toplevelp); ctx 1141 src/regexp.c rc3_emit(ctx, RE_SUCCESS); ctx 1142 src/regexp.c rc3_fill_offset(ctx, ocodep+1, ctx->codep); ctx 1151 src/regexp.c int ocodep = ctx->codep; ctx 1152 src/regexp.c rc3_emit(ctx, RE_TRY); ctx 1153 src/regexp.c rc3_emit_offset(ctx, 0); /* will be patched */ ctx 1154 src/regexp.c rc3_seq(ctx, SCM_CDR(ast), FALSE, FALSE); ctx 1155 src/regexp.c rc3_emit(ctx, RE_JUMP); ctx 1156 src/regexp.c rc3_emit_offset(ctx, ocodep); ctx 1157 src/regexp.c rc3_fill_offset(ctx, ocodep+1, ctx->codep); ctx 1168 src/regexp.c int ocodep1 = ctx->codep, ocodep2; ctx 1169 src/regexp.c rc3_emit(ctx, RE_TRY); ctx 1170 src/regexp.c rc3_emit_offset(ctx, 0); /* will be patched */ ctx 1171 src/regexp.c ocodep2 = ctx->codep; ctx 1172 src/regexp.c rc3_emit(ctx, RE_JUMP); ctx 1173 src/regexp.c rc3_emit_offset(ctx, 0); /* will be patched */ ctx 1174 src/regexp.c rc3_fill_offset(ctx, ocodep1+1, ctx->codep); ctx 1175 src/regexp.c rc3_seq(ctx, SCM_CDR(ast), FALSE, FALSE); ctx 1176 src/regexp.c rc3_emit(ctx, RE_JUMP); ctx 1177 src/regexp.c rc3_emit_offset(ctx, ocodep1); ctx 1178 src/regexp.c rc3_fill_offset(ctx, ocodep2+1, ctx->codep); ctx 1201 src/regexp.c rc3_emit(ctx, RE_TRY); ctx 1202 src/regexp.c patchp = ctx->codep; ctx 1203 src/regexp.c rc3_emit_offset(ctx, 0); /* will be patched */ ctx 1204 src/regexp.c rc3_rec(ctx, SCM_CAR(clause), lastp, FALSE); ctx 1205 src/regexp.c rc3_emit(ctx, RE_JUMP); ctx 1206 src/regexp.c if (ctx->emitp) { ctx 1207 src/regexp.c jumps = Scm_Cons(SCM_MAKE_INT(ctx->codep), jumps); ctx 1209 src/regexp.c rc3_emit_offset(ctx, 0); /* will be patched */ ctx 1210 src/regexp.c rc3_fill_offset(ctx, patchp, ctx->codep); ctx 1212 src/regexp.c rc3_rec(ctx, SCM_CAR(clause), lastp, FALSE); ctx 1213 src/regexp.c if (ctx->emitp) { ctx 1216 src/regexp.c rc3_fill_offset(ctx, patchp, ctx->codep); ctx 1264 src/regexp.c if (n>0) rc3_fill_offset(ctx, j0, ctx->codep); ctx 1265 src/regexp.c rc3_emit(ctx, RE_TRY); ctx 1266 src/regexp.c if (ctx->emitp) j0 = ctx->codep; ctx 1267 src/regexp.c rc3_emit_offset(ctx, 0); /* to be patched */ ctx 1268 src/regexp.c rc3_emit(ctx, RE_JUMP); ctx 1269 src/regexp.c if (ctx->emitp) { ctx 1270 src/regexp.c jlist = Scm_Cons(SCM_MAKE_INT(ctx->codep), jlist); ctx 1272 src/regexp.c rc3_emit_offset(ctx, 0); /* to be patched */ ctx 1274 src/regexp.c rc3_fill_offset(ctx, j0, ctx->codep); /* patch #0n */ ctx 1278 src/regexp.c rc3_emit(ctx, RE_JUMP); ctx 1279 src/regexp.c jn = ctx->codep; ctx 1280 src/regexp.c rc3_emit_offset(ctx, 0); /* to be patched */ ctx 1282 src/regexp.c rc3_emit(ctx, RE_TRY); ctx 1283 src/regexp.c jn = ctx->codep; ctx 1284 src/regexp.c rc3_emit_offset(ctx, 0); /* to be patched */ ctx 1285 src/regexp.c rc3_emit(ctx, RE_JUMP); ctx 1286 src/regexp.c if (ctx->emitp) { ctx 1287 src/regexp.c jlist = Scm_Cons(SCM_MAKE_INT(ctx->codep), jlist); ctx 1289 src/regexp.c rc3_emit_offset(ctx, 0); /* to be patched */ ctx 1290 src/regexp.c rc3_fill_offset(ctx, jn, ctx->codep); ctx 1292 src/regexp.c if (ctx->emitp && greedy) jlist = Scm_ReverseX(jlist); ctx 1293 src/regexp.c if (!greedy) rc3_seq(ctx, item, FALSE, toplevelp); ctx 1295 src/regexp.c if (ctx->emitp) { ctx 1296 src/regexp.c rc3_fill_offset(ctx, SCM_INT_VALUE(SCM_CAR(jlist)), ctx 1297 src/regexp.c ctx->codep); ctx 1299 src/regexp.c rc3_seq(ctx, item, FALSE, toplevelp); ctx 1300 src/regexp.c if (ctx->emitp) jlist = SCM_CDR(jlist); ctx 1304 src/regexp.c rc3_fill_offset(ctx, jn, ctx->codep); ctx 1307 src/regexp.c if (ctx->emitp) { ctx 1309 src/regexp.c rc3_fill_offset(ctx, SCM_INT_VALUE(SCM_CAR(jlist)), ctx->codep); ctx 1341 src/regexp.c static ScmObj rc3(regcomp_ctx *ctx, ScmObj ast) ctx 1344 src/regexp.c if (is_bol_anchored(ast)) ctx->rx->flags |= SCM_REGEXP_BOL_ANCHORED; ctx 1347 src/regexp.c ctx->codemax = 1; ctx 1348 src/regexp.c ctx->emitp = FALSE; ctx 1349 src/regexp.c rc3_rec(ctx, ast, TRUE, TRUE); ctx 1352 src/regexp.c ctx->code = SCM_NEW_ATOMIC2(unsigned char *, ctx->codemax); ctx 1353 src/regexp.c ctx->emitp = TRUE; ctx 1354 src/regexp.c rc3_rec(ctx, ast, TRUE, TRUE); ctx 1355 src/regexp.c rc3_emit(ctx, RE_SUCCESS); ctx 1356 src/regexp.c ctx->rx->code = ctx->code; ctx 1357 src/regexp.c ctx->rx->numCodes = ctx->codep; ctx 1358 src/regexp.c return SCM_OBJ(ctx->rx); ctx 1518 src/regexp.c static ScmObj rc_setup_context_seq(regcomp_ctx *ctx, ScmObj seq); ctx 1520 src/regexp.c static ScmObj rc_setup_context(regcomp_ctx *ctx, ScmObj ast) ctx 1526 src/regexp.c rc_register_charset(ctx, SCM_CHARSET(ast)); ctx 1538 src/regexp.c int grpno = ctx->grpcount++; ctx 1539 src/regexp.c rest = rc_setup_context_seq(ctx, SCM_CDR(ast)); ctx 1548 src/regexp.c rc_register_charset(ctx, SCM_CHARSET(SCM_CDR(ast))); ctx 1556 src/regexp.c rest = rc_setup_context_seq(ctx, SCM_CDR(ast)); ctx 1565 src/regexp.c rest = rc_setup_context_seq(ctx, SCM_CDDR(ast)); ctx 1574 src/regexp.c static ScmObj rc_setup_context_seq(regcomp_ctx *ctx, ScmObj seq) ctx 1578 src/regexp.c obj = rc_setup_context(ctx, SCM_CAR(sp)); ctx 1588 src/regexp.c SCM_APPEND1(head, tail, rc_setup_context(ctx, SCM_CAR(sp2))); ctx 1721 src/regexp.c static int is_word_boundary(struct match_ctx *ctx, const char *input) ctx 1726 src/regexp.c if (input == ctx->input || input == ctx->stop) return TRUE; ctx 1728 src/regexp.c SCM_CHAR_BACKWARD(input, ctx->input, prevp); ctx 1740 src/regexp.c struct match_ctx *ctx, ctx 1749 src/regexp.c if ((char*)&cset < (char*)ctx->begin_stack - MAX_STACK_USAGE) { ctx 1750 src/regexp.c Scm_Error("stack overrun during matching regexp %S", ctx->rx); ctx 1757 src/regexp.c if (ctx->stop - input < param) return; ctx 1763 src/regexp.c if (ctx->stop == input) return; ctx 1768 src/regexp.c if (ctx->stop - input < param) return; ctx 1772 src/regexp.c if (ctx->stop == input) return; ctx 1780 src/regexp.c if (ctx->stop == input) return; ctx 1784 src/regexp.c rex_rec(code+2, input, ctx, mlist); ctx 1785 src/regexp.c code = ctx->codehead + code[0]*256 + code[1]; ctx 1788 src/regexp.c code = ctx->codehead + code[0]*256 + code[1]; ctx 1791 src/regexp.c if (ctx->stop == input) return; ctx 1793 src/regexp.c if (!Scm_CharSetContains(ctx->rx->sets[*code++], *input)) return; ctx 1797 src/regexp.c if (ctx->stop == input) return; ctx 1799 src/regexp.c if (Scm_CharSetContains(ctx->rx->sets[*code++], *input)) ctx 1808 src/regexp.c if (ctx->stop == input) return; ctx 1810 src/regexp.c cset = ctx->rx->sets[*code++]; ctx 1815 src/regexp.c if (ctx->stop == input) return; ctx 1817 src/regexp.c cset = ctx->rx->sets[*code++]; ctx 1828 src/regexp.c if (input != ctx->input) return; ctx 1831 src/regexp.c if (input != ctx->stop) return; ctx 1834 src/regexp.c if (!is_word_boundary(ctx, input)) return; ctx 1837 src/regexp.c if (is_word_boundary(ctx, input)) return; ctx 1840 src/regexp.c ctx->last = input; ctx 1841 src/regexp.c ctx->matches = mlist; ctx 1842 src/regexp.c siglongjmp(*ctx->cont, 1); ctx 1847 src/regexp.c cset = ctx->rx->sets[*code++]; ctx 1849 src/regexp.c if (ctx->stop <= input) break; ctx 1856 src/regexp.c cset = ctx->rx->sets[*code++]; ctx 1858 src/regexp.c if (ctx->stop <= input) break; ctx 1868 src/regexp.c cset = ctx->rx->sets[*code++]; ctx 1870 src/regexp.c if (ctx->stop <= input) break; ctx 1877 src/regexp.c cset = ctx->rx->sets[*code++]; ctx 1879 src/regexp.c if (ctx->stop <= input) break; ctx 1886 src/regexp.c sigjmp_buf cont, *ocont = ctx->cont; ctx 1887 src/regexp.c ctx->cont = &cont; ctx 1889 src/regexp.c rex_rec(code+2, input, ctx, mlist); ctx 1890 src/regexp.c ctx->cont = ocont; ctx 1893 src/regexp.c code = ctx->codehead + code[0]*256 + code[1]; ctx 1894 src/regexp.c ctx->cont = ocont; ctx 1895 src/regexp.c mlist = ctx->matches; ctx 1899 src/regexp.c sigjmp_buf cont, *ocont = ctx->cont; ctx 1900 src/regexp.c ctx->cont = &cont; ctx 1902 src/regexp.c rex_rec(code+2, input, ctx, mlist); ctx 1903 src/regexp.c code = ctx->codehead + code[0]*256 + code[1]; ctx 1904 src/regexp.c ctx->cont = ocont; ctx 1907 src/regexp.c ctx->cont = ocont; ctx 1918 src/regexp.c struct match_ctx *ctx) ctx 1941 src/regexp.c rm->matches[0].endp = ctx->last; ctx 1943 src/regexp.c for (ml = ctx->matches; ml; ml = ml->next) { ctx 1964 src/regexp.c struct match_ctx ctx; ctx 1966 src/regexp.c ctx.rx = rx; ctx 1967 src/regexp.c ctx.codehead = rx->code; ctx 1968 src/regexp.c ctx.input = SCM_STRING_BODY_START(SCM_STRING_BODY(orig)); ctx 1969 src/regexp.c ctx.stop = end; ctx 1970 src/regexp.c ctx.matches = NULL; ctx 1971 src/regexp.c ctx.begin_stack = (void*)&ctx; ctx 1972 src/regexp.c ctx.cont = &cont; ctx 1975 src/regexp.c rex_rec(ctx.codehead, start, &ctx, NULL); ctx 1978 src/regexp.c return make_match(rx, orig, &ctx); ctx 316 src/signal.c static void sigset_print(ScmObj obj, ScmPort *out, ScmWriteContext *ctx); ctx 322 src/signal.c void sigset_print(ScmObj obj, ScmPort *out, ScmWriteContext *ctx) ctx 45 src/string.c static void string_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx); ctx 1191 src/string.c static void string_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 1194 src/string.c if (SCM_WRITE_MODE(ctx) == SCM_WRITE_DISPLAY) { ctx 118 src/symbol.c static void symbol_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 120 src/symbol.c if (SCM_WRITE_MODE(ctx) == SCM_WRITE_DISPLAY) { ctx 132 src/symbol.c ((SCM_WRITE_CASE(ctx) == SCM_WRITE_CASE_FOLD)? 0x12 : 0x02); ctx 184 src/symbol.c static void gloc_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 709 src/system.c static void time_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 921 src/system.c static void tm_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 980 src/system.c static void grp_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 1056 src/system.c static void pwd_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 43 src/vector.c static void vector_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 49 src/vector.c Scm_Write(SCM_VECTOR_ELEMENT(obj, i), SCM_OBJ(port), ctx->mode); ctx 52 src/weak.c static void weakvector_print(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 60 src/weak.c if (ptrs[i]) Scm_Write(ptrs[i], SCM_OBJ(port), ctx->mode); ctx 61 src/weak.c else Scm_Write(SCM_FALSE, SCM_OBJ(port), ctx->mode); ctx 44 src/write.c static void write_walk(ScmObj obj, ScmPort *port, ScmWriteContext *ctx); ctx 45 src/write.c static void write_ss(ScmObj obj, ScmPort *port, ScmWriteContext *ctx); ctx 46 src/write.c static void write_ss_rec(ScmObj obj, ScmPort *port, ScmWriteContext *ctx); ctx 47 src/write.c static void write_object(ScmObj obj, ScmPort *out, ScmWriteContext *ctx); ctx 132 src/write.c ScmWriteContext ctx; ctx 140 src/write.c ctx.mode = mode; ctx 141 src/write.c ctx.flags = 0; ctx 146 src/write.c write_walk(obj, port, &ctx); ctx 152 src/write.c write_ss_rec(obj, port, &ctx); ctx 157 src/write.c if (SCM_WRITE_CASE(&ctx) == 0) ctx.mode |= DEFAULT_CASE; ctx 161 src/write.c if (SCM_WRITE_MODE(&ctx) == SCM_WRITE_SHARED) { ctx 162 src/write.c PORT_SAFE_CALL(port, write_ss(obj, port, &ctx)); ctx 164 src/write.c PORT_SAFE_CALL(port, write_ss_rec(obj, port, &ctx)); ctx 181 src/write.c ScmWriteContext ctx; ctx 188 src/write.c ctx.mode = mode; ctx 189 src/write.c ctx.flags = WRITE_LIMITED; ctx 190 src/write.c ctx.limit = width; ctx 192 src/write.c if (SCM_WRITE_CASE(&ctx) == 0) ctx.mode |= DEFAULT_CASE; ctx 194 src/write.c write_ss_rec(obj, SCM_PORT(out), &ctx); ctx 213 src/write.c ScmWriteContext ctx; ctx 219 src/write.c ctx.mode = mode; ctx 220 src/write.c ctx.flags = WRITE_CIRCULAR; ctx 221 src/write.c if (SCM_WRITE_CASE(&ctx) == 0) ctx.mode |= DEFAULT_CASE; ctx 223 src/write.c ctx.flags |= WRITE_LIMITED; ctx 224 src/write.c ctx.limit = width; ctx 226 src/write.c ctx.ncirc = 0; ctx 227 src/write.c ctx.table = SCM_HASH_TABLE(Scm_MakeHashTableSimple(SCM_HASH_EQ, 8)); ctx 232 src/write.c write_ss(obj, SCM_PORT(out), &ctx); ctx 247 src/write.c write_ss(obj, SCM_PORT(port), &ctx)); ctx 270 src/write.c static void write_general(ScmObj obj, ScmPort *out, ScmWriteContext *ctx) ctx 273 src/write.c if (c->print) c->print(obj, out, ctx); ctx 274 src/write.c else write_object(obj, out, ctx); ctx 281 src/write.c static void write_object(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 339 src/write.c static void write_walk(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 359 src/write.c if (SCM_PTRP(elt)) write_walk(SCM_CAR(obj), port, ctx); ctx 378 src/write.c if (SCM_PTRP(elt)) write_walk(elt, port, ctx); ctx 389 src/write.c write_general(obj, port, ctx); ctx 396 src/write.c static void write_ss_rec(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 402 src/write.c if (ctx->flags & WRITE_LIMITED) { ctx 403 src/write.c if (outlen(port) >= ctx->limit) return; ctx 430 src/write.c if (SCM_WRITE_MODE(ctx) == SCM_WRITE_DISPLAY) { ctx 444 src/write.c write_general(obj, port, ctx); ctx 451 src/write.c write_general(obj, port, ctx); ctx 491 src/write.c write_ss_rec(SCM_CADR(obj), port, ctx); ctx 500 src/write.c write_ss_rec(SCM_CAR(obj), port, ctx); ctx 506 src/write.c write_ss_rec(obj, port, ctx); ctx 514 src/write.c write_ss_rec(obj, port, ctx); ctx 529 src/write.c write_ss_rec(elts[i], port, ctx); ctx 532 src/write.c write_ss_rec(elts[i], port, ctx); ctx 536 src/write.c write_general(obj, port, ctx); ctx 542 src/write.c static void write_ss(ScmObj obj, ScmPort *port, ScmWriteContext *ctx) ctx 547 src/write.c write_walk(obj, walker_port, ctx); ctx 554 src/write.c write_ss_rec(obj, port, ctx); ctx 578 src/write.c static void format_write(ScmObj obj, ScmPort *port, ScmWriteContext *ctx, ctx 583 src/write.c write_walk(obj, port, ctx); ctx 588 src/write.c write_ss_rec(obj, port, ctx); ctx 592 src/write.c write_ss(obj, port, ctx); ctx 594 src/write.c write_ss_rec(obj, port, ctx);