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);