b 66 examples/spigot/spigot.c int k, i, j, l, b, q, r, *array;
b 81 examples/spigot/spigot.c for (i=0, b=2; i<digits; i++) {
b 89 examples/spigot/spigot.c r = b + q/10;
b 90 examples/spigot/spigot.c b = q % 10;
b 110 examples/spigot/spigot.c int k, i, j, l, b, q, r, *array;
b 125 examples/spigot/spigot.c for (i=0, b=1; i<digits; i++) {
b 132 examples/spigot/spigot.c r = b + q/10;
b 133 examples/spigot/spigot.c b = q % 10;
b 803 ext/auxsys/auxsyslib.c #define APPCONS(a, b) SCM_APPEND1(h, t, Scm_Cons(a, b))
b 70 ext/binary/binary.c int b;
b 72 ext/binary/binary.c if ((b = Scm_Getb(iport)) == EOF) return SCM_EOF;
b 73 ext/binary/binary.c else return SCM_MAKE_INT(b);
b 79 ext/binary/binary.c int b;
b 81 ext/binary/binary.c if ((b = Scm_Getb(iport)) == EOF) return SCM_EOF;
b 82 ext/binary/binary.c if (b >= 128) b -= 256;
b 83 ext/binary/binary.c return SCM_MAKE_INT(b);
b 95 ext/dbm/bdbm.c #define CAT2(a, b) a##b
b 96 ext/dbm/bdbm.c #define CAT3(a, b, c) a##b##c
b 34 ext/dbm/gdbm.c const ScmStringBody *b = SCM_STRING_BODY(scm_);\
b 35 ext/dbm/gdbm.c datum_.dptr = (char*)SCM_STRING_BODY_START(b); \
b 36 ext/dbm/gdbm.c datum_.dsize = SCM_STRING_BODY_SIZE(b); \
b 40 ext/dbm/ndbm.c const ScmStringBody *b = SCM_STRING_BODY(scm_);\
b 41 ext/dbm/ndbm.c datum_.dptr = (char*)SCM_STRING_BODY_START(b); \
b 42 ext/dbm/ndbm.c datum_.dsize = SCM_STRING_BODY_SIZE(b); \
b 31 ext/dbm/odbm.c const ScmStringBody *b = SCM_STRING_BODY(scm_);\
b 32 ext/dbm/odbm.c datum_.dptr = (char*)SCM_STRING_BODY_START(b);\
b 33 ext/dbm/odbm.c datum_.dsize = SCM_STRING_BODY_SIZE(b); \
b 66 ext/digest/md5.c const ScmStringBody *b = SCM_STRING_BODY(data);
b 68 ext/digest/md5.c (const unsigned char*)SCM_STRING_BODY_START(b),
b 69 ext/digest/md5.c SCM_STRING_BODY_SIZE(b));
b 164 ext/digest/md5c.c register u_int32_t a, b, c, d;
b 167 ext/digest/md5c.c b = buf[1];
b 171 ext/digest/md5c.c MD5STEP(F1, a, b, c, d, in[0] + 0xd76aa478, 7);
b 172 ext/digest/md5c.c MD5STEP(F1, d, a, b, c, in[1] + 0xe8c7b756, 12);
b 173 ext/digest/md5c.c MD5STEP(F1, c, d, a, b, in[2] + 0x242070db, 17);
b 174 ext/digest/md5c.c MD5STEP(F1, b, c, d, a, in[3] + 0xc1bdceee, 22);
b 175 ext/digest/md5c.c MD5STEP(F1, a, b, c, d, in[4] + 0xf57c0faf, 7);
b 176 ext/digest/md5c.c MD5STEP(F1, d, a, b, c, in[5] + 0x4787c62a, 12);
b 177 ext/digest/md5c.c MD5STEP(F1, c, d, a, b, in[6] + 0xa8304613, 17);
b 178 ext/digest/md5c.c MD5STEP(F1, b, c, d, a, in[7] + 0xfd469501, 22);
b 179 ext/digest/md5c.c MD5STEP(F1, a, b, c, d, in[8] + 0x698098d8, 7);
b 180 ext/digest/md5c.c MD5STEP(F1, d, a, b, c, in[9] + 0x8b44f7af, 12);
b 181 ext/digest/md5c.c MD5STEP(F1, c, d, a, b, in[10] + 0xffff5bb1, 17);
b 182 ext/digest/md5c.c MD5STEP(F1, b, c, d, a, in[11] + 0x895cd7be, 22);
b 183 ext/digest/md5c.c MD5STEP(F1, a, b, c, d, in[12] + 0x6b901122, 7);
b 184 ext/digest/md5c.c MD5STEP(F1, d, a, b, c, in[13] + 0xfd987193, 12);
b 185 ext/digest/md5c.c MD5STEP(F1, c, d, a, b, in[14] + 0xa679438e, 17);
b 186 ext/digest/md5c.c MD5STEP(F1, b, c, d, a, in[15] + 0x49b40821, 22);
b 188 ext/digest/md5c.c MD5STEP(F2, a, b, c, d, in[1] + 0xf61e2562, 5);
b 189 ext/digest/md5c.c MD5STEP(F2, d, a, b, c, in[6] + 0xc040b340, 9);
b 190 ext/digest/md5c.c MD5STEP(F2, c, d, a, b, in[11] + 0x265e5a51, 14);
b 191 ext/digest/md5c.c MD5STEP(F2, b, c, d, a, in[0] + 0xe9b6c7aa, 20);
b 192 ext/digest/md5c.c MD5STEP(F2, a, b, c, d, in[5] + 0xd62f105d, 5);
b 193 ext/digest/md5c.c MD5STEP(F2, d, a, b, c, in[10] + 0x02441453, 9);
b 194 ext/digest/md5c.c MD5STEP(F2, c, d, a, b, in[15] + 0xd8a1e681, 14);
b 195 ext/digest/md5c.c MD5STEP(F2, b, c, d, a, in[4] + 0xe7d3fbc8, 20);
b 196 ext/digest/md5c.c MD5STEP(F2, a, b, c, d, in[9] + 0x21e1cde6, 5);
b 197 ext/digest/md5c.c MD5STEP(F2, d, a, b, c, in[14] + 0xc33707d6, 9);
b 198 ext/digest/md5c.c MD5STEP(F2, c, d, a, b, in[3] + 0xf4d50d87, 14);
b 199 ext/digest/md5c.c MD5STEP(F2, b, c, d, a, in[8] + 0x455a14ed, 20);
b 200 ext/digest/md5c.c MD5STEP(F2, a, b, c, d, in[13] + 0xa9e3e905, 5);
b 201 ext/digest/md5c.c MD5STEP(F2, d, a, b, c, in[2] + 0xfcefa3f8, 9);
b 202 ext/digest/md5c.c MD5STEP(F2, c, d, a, b, in[7] + 0x676f02d9, 14);
b 203 ext/digest/md5c.c MD5STEP(F2, b, c, d, a, in[12] + 0x8d2a4c8a, 20);
b 205 ext/digest/md5c.c MD5STEP(F3, a, b, c, d, in[5] + 0xfffa3942, 4);
b 206 ext/digest/md5c.c MD5STEP(F3, d, a, b, c, in[8] + 0x8771f681, 11);
b 207 ext/digest/md5c.c MD5STEP(F3, c, d, a, b, in[11] + 0x6d9d6122, 16);
b 208 ext/digest/md5c.c MD5STEP(F3, b, c, d, a, in[14] + 0xfde5380c, 23);
b 209 ext/digest/md5c.c MD5STEP(F3, a, b, c, d, in[1] + 0xa4beea44, 4);
b 210 ext/digest/md5c.c MD5STEP(F3, d, a, b, c, in[4] + 0x4bdecfa9, 11);
b 211 ext/digest/md5c.c MD5STEP(F3, c, d, a, b, in[7] + 0xf6bb4b60, 16);
b 212 ext/digest/md5c.c MD5STEP(F3, b, c, d, a, in[10] + 0xbebfbc70, 23);
b 213 ext/digest/md5c.c MD5STEP(F3, a, b, c, d, in[13] + 0x289b7ec6, 4);
b 214 ext/digest/md5c.c MD5STEP(F3, d, a, b, c, in[0] + 0xeaa127fa, 11);
b 215 ext/digest/md5c.c MD5STEP(F3, c, d, a, b, in[3] + 0xd4ef3085, 16);
b 216 ext/digest/md5c.c MD5STEP(F3, b, c, d, a, in[6] + 0x04881d05, 23);
b 217 ext/digest/md5c.c MD5STEP(F3, a, b, c, d, in[9] + 0xd9d4d039, 4);
b 218 ext/digest/md5c.c MD5STEP(F3, d, a, b, c, in[12] + 0xe6db99e5, 11);
b 219 ext/digest/md5c.c MD5STEP(F3, c, d, a, b, in[15] + 0x1fa27cf8, 16);
b 220 ext/digest/md5c.c MD5STEP(F3, b, c, d, a, in[2] + 0xc4ac5665, 23);
b 222 ext/digest/md5c.c MD5STEP(F4, a, b, c, d, in[0] + 0xf4292244, 6);
b 223 ext/digest/md5c.c MD5STEP(F4, d, a, b, c, in[7] + 0x432aff97, 10);
b 224 ext/digest/md5c.c MD5STEP(F4, c, d, a, b, in[14] + 0xab9423a7, 15);
b 225 ext/digest/md5c.c MD5STEP(F4, b, c, d, a, in[5] + 0xfc93a039, 21);
b 226 ext/digest/md5c.c MD5STEP(F4, a, b, c, d, in[12] + 0x655b59c3, 6);
b 227 ext/digest/md5c.c MD5STEP(F4, d, a, b, c, in[3] + 0x8f0ccc92, 10);
b 228 ext/digest/md5c.c MD5STEP(F4, c, d, a, b, in[10] + 0xffeff47d, 15);
b 229 ext/digest/md5c.c MD5STEP(F4, b, c, d, a, in[1] + 0x85845dd1, 21);
b 230 ext/digest/md5c.c MD5STEP(F4, a, b, c, d, in[8] + 0x6fa87e4f, 6);
b 231 ext/digest/md5c.c MD5STEP(F4, d, a, b, c, in[15] + 0xfe2ce6e0, 10);
b 232 ext/digest/md5c.c MD5STEP(F4, c, d, a, b, in[6] + 0xa3014314, 15);
b 233 ext/digest/md5c.c MD5STEP(F4, b, c, d, a, in[13] + 0x4e0811a1, 21);
b 234 ext/digest/md5c.c MD5STEP(F4, a, b, c, d, in[4] + 0xf7537e82, 6);
b 235 ext/digest/md5c.c MD5STEP(F4, d, a, b, c, in[11] + 0xbd3af235, 10);
b 236 ext/digest/md5c.c MD5STEP(F4, c, d, a, b, in[2] + 0x2ad7d2bb, 15);
b 237 ext/digest/md5c.c MD5STEP(F4, b, c, d, a, in[9] + 0xeb86d391, 21);
b 240 ext/digest/md5c.c buf[1] += b;
b 135 ext/digest/sha.c #define subRound(a, b, c, d, e, f, k, data) \
b 136 ext/digest/sha.c ( e += ROTL(5,a) + f(b, c, d) + k + data, b = ROTL(30, b) )
b 66 ext/digest/sha1.c const ScmStringBody *b = SCM_STRING_BODY(data);
b 68 ext/digest/sha1.c (const unsigned char*)SCM_STRING_BODY_START(b),
b 69 ext/digest/sha1.c SCM_STRING_BODY_SIZE(b));
b 172 ext/mt-random/mt-random.c unsigned long a, b;
b 175 ext/mt-random/mt-random.c b = Scm_MTGenrandU32(mt)>>6;
b 176 ext/mt-random/mt-random.c r = (a*67108864.0+b)*(1.0/9007199254740992.0);
b 701 ext/uvector/uvector.c #define INT64LT(a, b) ((a.hi < b.hi) || (a.hi == b.hi) && (a.lo < b.lo))
b 703 ext/uvector/uvector.c #define INT64LT(a, b) (a < b)
b 113 ext/vport/vport.c ScmObj b = Scm_Apply(data->getb_proc, SCM_NIL);
b 114 ext/vport/vport.c if (!SCM_INTP(b)) return EOF;
b 115 ext/vport/vport.c return (SCM_INT_VALUE(b) & 0xff);
b 129 ext/vport/vport.c ScmObj b;
b 135 ext/vport/vport.c b = Scm_Apply(data->getb_proc, SCM_NIL);
b 136 ext/vport/vport.c if (!SCM_INTP(b)) return EOF;
b 137 ext/vport/vport.c buf[0] = SCM_INT_VALUE(b);
b 140 ext/vport/vport.c b = Scm_Apply(data->getb_proc, SCM_NIL);
b 141 ext/vport/vport.c if (!SCM_INTP(b)) {
b 145 ext/vport/vport.c buf[i+1] = SCM_INT_VALUE(b);
b 211 ext/vport/vport.c static void vport_putb(ScmByte b, ScmPort *p)
b 218 ext/vport/vport.c && SCM_CHAR_NFOLLOWS(b) == 0) {
b 220 ext/vport/vport.c Scm_Apply(data->putc_proc, SCM_LIST1(SCM_MAKE_CHAR(b)));
b 228 ext/vport/vport.c Scm_Apply(data->putb_proc, SCM_LIST1(SCM_MAKE_INT(b)));
b 272 ext/vport/vport.c unsigned char b = buf[i];
b 273 ext/vport/vport.c Scm_Apply(data->putb_proc, SCM_LIST1(SCM_MAKE_INT(b)));
b 287 ext/vport/vport.c const ScmStringBody *b = SCM_STRING_BODY(s);
b 292 ext/vport/vport.c } else if (SCM_STRING_BODY_INCOMPLETE_P(b)
b 296 ext/vport/vport.c vport_putz(SCM_STRING_BODY_START(b), SCM_STRING_BODY_SIZE(b), p);
b 300 ext/vport/vport.c const char *cp = SCM_STRING_BODY_START(b);
b 301 ext/vport/vport.c for (i=0; i < SCM_STRING_BODY_LENGTH(b); i++) {
b 71 gc/allchblk.c # define INCR_FREE_BYTES(n, b) GC_free_bytes[n] += (b);
b 77 gc/allchblk.c # define INCR_FREE_BYTES(n, b)
b 79 gc/checksums.c struct hblk *b;
b 95 gc/checksums.c b = h;
b 97 gc/checksums.c b -= (word)hhdr;
b 98 gc/checksums.c hhdr = HDR(b);
b 7 gc/include/gc_amiga_redirects.h # define GC_realloc(a,b) GC_amiga_realloc(a,b)
b 300 gc/include/private/gc_priv.h # define MS_TIME_DIFF(a,b) ((double) (a.tv_sec - b.tv_sec) * 1000.0 \
b 301 gc/include/private/gc_priv.h + (double) (a.tv_usec - b.tv_usec) / 1000.0)
b 308 gc/include/private/gc_priv.h # define MS_TIME_DIFF(a,b) ((long)((a)-(b)))
b 333 gc/include/private/gc_priv.h # define MS_TIME_DIFF(a,b) ((unsigned long) \
b 334 gc/include/private/gc_priv.h (1000.0*(double)((a)-(b))/(double)CLOCKS_PER_SEC))
b 1314 gc/include/private/gc_priv.h void GC_push_conditional GC_PROTO((ptr_t b, ptr_t t, GC_bool all));
b 1316 gc/include/private/gc_priv.h # define GC_push_conditional(b, t, all) GC_push_all(b, t)
b 1320 gc/include/private/gc_priv.h void GC_push_all_stack GC_PROTO((ptr_t b, ptr_t t));
b 1323 gc/include/private/gc_priv.h void GC_push_all_eager GC_PROTO((ptr_t b, ptr_t t));
b 1431 gc/include/private/gc_priv.h void GC_add_roots_inner GC_PROTO((char * b, char * e, GC_bool tmp));
b 1432 gc/include/private/gc_priv.h void GC_remove_roots_inner GC_PROTO((char * b, char * e));
b 1629 gc/include/private/gc_priv.h ptr_t GC_generic_malloc_ignore_off_page GC_PROTO((size_t b, int k));
b 1849 gc/include/private/gc_priv.h # define GC_printf2(f,a,b) GC_printf(f, (long)a, (long)b, 0l, 0l, 0l, 0l)
b 1850 gc/include/private/gc_priv.h # define GC_printf3(f,a,b,c) GC_printf(f, (long)a, (long)b, (long)c, 0l, 0l, 0l)
b 1851 gc/include/private/gc_priv.h # define GC_printf4(f,a,b,c,d) GC_printf(f, (long)a, (long)b, (long)c, \
b 1853 gc/include/private/gc_priv.h # define GC_printf5(f,a,b,c,d,e) GC_printf(f, (long)a, (long)b, (long)c, \
b 1855 gc/include/private/gc_priv.h # define GC_printf6(f,a,b,c,d,e,g) GC_printf(f, (long)a, (long)b, (long)c, \
b 1861 gc/include/private/gc_priv.h # define GC_err_printf2(f,a,b) GC_err_printf(f, (long)a, (long)b, 0l, 0l, 0l, 0l)
b 1862 gc/include/private/gc_priv.h # define GC_err_printf3(f,a,b,c) GC_err_printf(f, (long)a, (long)b, (long)c, \
b 1864 gc/include/private/gc_priv.h # define GC_err_printf4(f,a,b,c,d) GC_err_printf(f, (long)a, (long)b, \
b 1866 gc/include/private/gc_priv.h # define GC_err_printf5(f,a,b,c,d,e) GC_err_printf(f, (long)a, (long)b, \
b 1869 gc/include/private/gc_priv.h # define GC_err_printf6(f,a,b,c,d,e,g) GC_err_printf(f, (long)a, (long)b, \
b 19 gc/mach_dep.c # define _setjmp(b) setjmp(b)
b 20 gc/mach_dep.c # define _longjmp(b,v) longjmp(b,v)
b 1277 gc/mark.c # define GC_PUSH_ALL(b,t) GC_push_selected(b,t,GC_true_func,GC_push_all);
b 1279 gc/mark.c # define GC_PUSH_ALL(b,t) GC_push_all(b,t);
b 1453 gc/mark.c word * b = (word *)(((word) bottom + ALIGNMENT-1) & ~(ALIGNMENT-1));
b 1467 gc/mark.c for (p = b; p <= lim; p = (word *)(((char *)p) + ALIGNMENT)) {
b 119 gc/mark_rts.c struct roots * GC_roots_present(b)
b 120 gc/mark_rts.c char *b;
b 122 gc/mark_rts.c register int h = rt_hash(b);
b 126 gc/mark_rts.c if (p -> r_start == (ptr_t)b) return(p);
b 153 gc/mark_rts.c void GC_add_roots(b, e)
b 154 gc/mark_rts.c char * b; char * e;
b 160 gc/mark_rts.c GC_add_roots_inner(b, e, FALSE);
b 172 gc/mark_rts.c void GC_add_roots_inner(b, e, tmp)
b 173 gc/mark_rts.c char * b; char * e;
b 190 gc/mark_rts.c if ((ptr_t)b <= old -> r_end && (ptr_t)e >= old -> r_start) {
b 191 gc/mark_rts.c if ((ptr_t)b < old -> r_start) {
b 192 gc/mark_rts.c old -> r_start = (ptr_t)b;
b 193 gc/mark_rts.c GC_root_size += (old -> r_start - (ptr_t)b);
b 209 gc/mark_rts.c b = (char *)(other -> r_start);
b 211 gc/mark_rts.c if ((ptr_t)b <= old -> r_end && (ptr_t)e >= old -> r_start) {
b 212 gc/mark_rts.c if ((ptr_t)b < old -> r_start) {
b 213 gc/mark_rts.c old -> r_start = (ptr_t)b;
b 214 gc/mark_rts.c GC_root_size += (old -> r_start - (ptr_t)b);
b 232 gc/mark_rts.c old = GC_roots_present(b);
b 244 gc/mark_rts.c GC_static_roots[n_root_sets].r_start = (ptr_t)b;
b 251 gc/mark_rts.c GC_root_size += (ptr_t)e - (ptr_t)b;
b 317 gc/mark_rts.c void GC_remove_roots(b, e)
b 318 gc/mark_rts.c char * b; char * e;
b 324 gc/mark_rts.c GC_remove_roots_inner(b, e);
b 330 gc/mark_rts.c void GC_remove_roots_inner(b,e)
b 331 gc/mark_rts.c char * b; char * e;
b 335 gc/mark_rts.c if (GC_static_roots[i].r_start >= (ptr_t)b && GC_static_roots[i].r_end <= (ptr_t)e) {
b 971 gc/misc.c void GC_printf(format, a, b, c, d, e, f)
b 973 gc/misc.c long a, b, c, d, e, f;
b 979 gc/misc.c (void) sprintf(buf, format, a, b, c, d, e, f);
b 984 gc/misc.c void GC_err_printf(format, a, b, c, d, e, f)
b 986 gc/misc.c long a, b, c, d, e, f;
b 991 gc/misc.c (void) sprintf(buf, format, a, b, c, d, e, f);
b 64 gc/setjmp_t.c jmp_buf b;
b 89 gc/setjmp_t.c setjmp(b);
b 106 gc/setjmp_t.c if (y == 1) longjmp(b,1);
b 122 gc/tests/test.c # define GC_malloc_explicitly_typed(a,b) GC_amiga_gctest_malloc_explicitly_typed(a,b)
b 123 gc/tests/test.c # define GC_calloc_explicitly_typed(a,b,c) GC_amiga_gctest_calloc_explicitly_typed(a,b,c)
b 606 gc/tests/test.c sexpr b;
b 635 gc/tests/test.c b = ints(1, 50);
b 675 gc/tests/test.c check_ints(b,1,50);
b 678 gc/tests/test.c check_ints(b,1,50);
b 679 gc/tests/test.c b = reverse(reverse(b));
b 681 gc/tests/test.c check_ints(b,1,50);
b 702 gc/tests/test.c check_ints(b,1,50);
b 716 gc/tests/test.c b = c = 0;
b 248 gc/tests/test_cpp.cc B* b = new B( i );
b 249 gc/tests/test_cpp.cc b = new (USE_GC) B( i );
b 252 gc/tests/test_cpp.cc delete b;
b 262 gc/tests/test_cpp.cc B* b = (B*) Undisguise( bs[ i ] );
b 265 gc/tests/test_cpp.cc b->Test( i );
b 267 gc/tests/test_cpp.cc delete b;
b 94 src/bignum.c int Scm_DumpBignum(ScmBignum *b, ScmPort *out);
b 101 src/bignum.c static ScmBignum *bignum_clear(ScmBignum *b)
b 104 src/bignum.c for (i=0; i<b->size; i++) b->values[i] = 0;
b 105 src/bignum.c return b;
b 112 src/bignum.c ScmBignum *b;
b 118 src/bignum.c b = SCM_NEW_ATOMIC2(ScmBignum*, BIGNUM_SIZE(size));
b 119 src/bignum.c SCM_SET_CLASS(b, SCM_CLASS_INTEGER);
b 120 src/bignum.c b->size = size;
b 121 src/bignum.c b->sign = 1;
b 122 src/bignum.c return bignum_clear(b);
b 141 src/bignum.c ScmBignum *b;
b 143 src/bignum.c b = make_bignum(1);
b 144 src/bignum.c b->sign = -1;
b 145 src/bignum.c b->values[0] = (unsigned long)LONG_MAX+1;
b 147 src/bignum.c b = make_bignum(1);
b 148 src/bignum.c b->sign = -1;
b 149 src/bignum.c b->values[0] = -val;
b 151 src/bignum.c b = make_bignum(1);
b 152 src/bignum.c b->sign = 1;
b 153 src/bignum.c b->values[0] = val;
b 155 src/bignum.c return SCM_OBJ(b);
b 160 src/bignum.c ScmBignum *b = make_bignum(1);
b 161 src/bignum.c b->sign = 1;
b 162 src/bignum.c b->values[0] = val;
b 163 src/bignum.c return SCM_OBJ(b);
b 170 src/bignum.c ScmBignum *b = make_bignum(size);
b 173 src/bignum.c b->sign = (sign > 0)? 1 : -1;
b 174 src/bignum.c for (i=0; i<size; i++) b->values[i] = values[i];
b 178 src/bignum.c if ((b->values[i] = values[i]) != 0) nonzerop = TRUE;
b 181 src/bignum.c if (values[size-1] <= LONG_MAX) b->sign = 1;
b 182 src/bignum.c else { b->sign = -1; bignum_2scmpl(b); }
b 184 src/bignum.c b->sign = 0;
b 187 src/bignum.c return SCM_OBJ(b);
b 193 src/bignum.c ScmObj mantissa, b;
b 203 src/bignum.c b = Scm_Ash(mantissa, exponent);
b 205 src/bignum.c if (SCM_INTP(b)) {
b 206 src/bignum.c return Scm_MakeBignumFromSI(SCM_INT_VALUE(b));
b 208 src/bignum.c return b;
b 212 src/bignum.c ScmObj Scm_BignumCopy(ScmBignum *b)
b 215 src/bignum.c ScmBignum *c = make_bignum(b->size);
b 216 src/bignum.c c->sign = b->sign;
b 217 src/bignum.c for (i=0; i<b->size; i++) c->values[i] = b->values[i];
b 225 src/bignum.c ScmObj Scm_NormalizeBignum(ScmBignum *b)
b 227 src/bignum.c int size = b->size;
b 230 src/bignum.c if (b->values[i] == 0) size--;
b 234 src/bignum.c if (b->sign == 0) {
b 237 src/bignum.c if (b->sign > 0 && b->values[0] <= (u_long)SCM_SMALL_INT_MAX) {
b 238 src/bignum.c return SCM_MAKE_INT(b->values[0]);
b 240 src/bignum.c if (b->sign < 0 && b->values[0] <= (u_long)-SCM_SMALL_INT_MIN) {
b 241 src/bignum.c return SCM_MAKE_INT(-b->values[0]);
b 244 src/bignum.c b->size = size;
b 245 src/bignum.c return SCM_OBJ(b);
b 249 src/bignum.c long Scm_BignumToSI(ScmBignum *b, int clamp, int *oor)
b 252 src/bignum.c if (b->sign >= 0) {
b 253 src/bignum.c if (b->values[0] > LONG_MAX || b->size >= 2) {
b 257 src/bignum.c return (long)b->values[0];
b 260 src/bignum.c if (b->values[0] > (u_long)LONG_MAX+1 || b->size >= 2) {
b 264 src/bignum.c return -(long)b->values[0];
b 271 src/bignum.c Scm_Error("argument out of range: %S", SCM_OBJ(b));
b 277 src/bignum.c u_long Scm_BignumToUI(ScmBignum *b, int clamp, int *oor)
b 280 src/bignum.c if (b->sign >= 0) {
b 281 src/bignum.c if (b->size >= 2) {
b 285 src/bignum.c return b->values[0];
b 295 src/bignum.c Scm_Error("argument out of range: %S", SCM_OBJ(b));
b 302 src/bignum.c ScmInt64 Scm_BignumToSI64(ScmBignum *b, int clamp, int *oor)
b 307 src/bignum.c if (b->sign > 0) {
b 308 src/bignum.c if (b->size > 2 || b->values[1] > LONG_MAX) {
b 312 src/bignum.c r.lo = b->values[0];
b 313 src/bignum.c if (b->size == 2) r.hi = b->values[1];
b 315 src/bignum.c } else if (b->sign < 0) {
b 316 src/bignum.c if (b->size > 2 || b->values[1] > (u_long)LONG_MAX + 1) {
b 320 src/bignum.c b = SCM_BIGNUM(Scm_BignumComplement(b));
b 321 src/bignum.c r.lo = b->values[0];
b 322 src/bignum.c if (b->size == 2) r.hi = b->values[1];
b 330 src/bignum.c if (b->sign > 0) {
b 331 src/bignum.c if (b->size == 1) {
b 332 src/bignum.c r = b->values[0];
b 333 src/bignum.c } else if (b->size > 2 || b->values[1] > LONG_MAX) {
b 337 src/bignum.c r = ((int64_t)b->values[1] << 32) + (uint64_t)b->values[0];
b 340 src/bignum.c if (b->size == 1) {
b 341 src/bignum.c r = -(int64_t)b->values[0];
b 342 src/bignum.c } else if (b->size > 2 || (b->values[1] > LONG_MAX && b->values[0] > 0)) {
b 346 src/bignum.c r = -(((int64_t)b->values[1] << 32) + (uint64_t)b->values[0]);
b 355 src/bignum.c Scm_Error("argument out of range: %S", SCM_OBJ(b));
b 360 src/bignum.c ScmUInt64 Scm_BignumToUI64(ScmBignum *b, int clamp, int *oor)
b 365 src/bignum.c if (b->sign > 0) {
b 366 src/bignum.c if (b->size > 2) {
b 370 src/bignum.c r.lo = b->values[0];
b 371 src/bignum.c if (b->size == 2) r.hi = b->values[1];
b 373 src/bignum.c } else if (b->sign < 0) {
b 380 src/bignum.c if (b->sign > 0) {
b 381 src/bignum.c if (b->size > 2) {
b 384 src/bignum.c } else if (b->size == 2) {
b 385 src/bignum.c r = (((uint64_t)b->values[1]) << 32) + (uint64_t)b->values[0];
b 387 src/bignum.c r = (uint64_t)b->values[0];
b 398 src/bignum.c Scm_Error("argument out of range: %S", SCM_OBJ(b));
b 406 src/bignum.c double Scm_BignumToDouble(ScmBignum *b)
b 409 src/bignum.c switch (b->size) {
b 411 src/bignum.c case 1: r = (double)b->values[0]; break;
b 413 src/bignum.c r = ldexp((double)b->values[1], WORD_BITS) + (double)b->values[0];
b 416 src/bignum.c r = ldexp((double)b->values[b->size-1], WORD_BITS*(b->size-1))
b 417 src/bignum.c + ldexp((double)b->values[b->size-2], WORD_BITS*(b->size-2))
b 418 src/bignum.c + ldexp((double)b->values[b->size-3], WORD_BITS*(b->size-3));
b 421 src/bignum.c return (b->sign < 0)? -r : r;
b 425 src/bignum.c ScmObj Scm_BignumNegate(ScmBignum *b)
b 427 src/bignum.c ScmObj c = Scm_BignumCopy(b);
b 925 src/bignum.c u_long b = (1L<<(WORD_BITS-1)), c = 0;
b 926 src/bignum.c for (; b > 0; b>>=1, c++) {
b 927 src/bignum.c if (w & b) return c;
b 1253 src/bignum.c ScmObj Scm_BignumToString(ScmBignum *b, int radix, int use_upper)
b 1263 src/bignum.c q = SCM_BIGNUM(Scm_BignumCopy(b));
b 1276 src/bignum.c int Scm_DumpBignum(ScmBignum *b, ScmPort *out)
b 1280 src/bignum.c if (b->sign < 0) SCM_PUTC('-', out);
b 1281 src/bignum.c for (i=b->size-1; i>=0; i--) {
b 1282 src/bignum.c Scm_Printf(out, "%08x ", b->values[i]);
b 1298 src/bignum.c ScmBignum *b = make_bignum(size);
b 1299 src/bignum.c b->values[0] = init;
b 1300 src/bignum.c return b;
b 231 src/class.c const ScmStringBody *b = SCM_STRING_BODY(SCM_SYMBOL_NAME(name));
b 232 src/class.c if (((size = SCM_STRING_BODY_SIZE(b)) > 2)
b 233 src/class.c && SCM_STRING_BODY_START(b)[0] == '<'
b 234 src/class.c && SCM_STRING_BODY_START(b)[size-1] == '>') {
b 236 src/class.c SCM_STRING_BODY_LENGTH(b)-1);
b 270 src/code.c #define CC_BUILDER_BUFFER_EMPTY_P(b) ((b)->currentInsn == CC_BUILDER_BUFFER_EMPTY)
b 274 src/code.c #define CC_BUILDER_GET(b, cc) \
b 279 src/code.c (b) = (cc_builder*)cc->builder; \
b 284 src/code.c cc_builder *b;
b 285 src/code.c b = SCM_NEW(cc_builder);
b 286 src/code.c b->chunks = NULL;
b 287 src/code.c b->numChunks = 0;
b 288 src/code.c b->constants = SCM_NIL;
b 289 src/code.c b->currentIndex = 0;
b 290 src/code.c b->currentInsn = CC_BUILDER_BUFFER_EMPTY;
b 291 src/code.c b->currentOperand = b->currentInfo = SCM_FALSE;
b 292 src/code.c b->labelDefs = b->labelRefs = SCM_NIL;
b 293 src/code.c b->labelCount = 0;
b 294 src/code.c b->info = SCM_NIL;
b 295 src/code.c return b;
b 298 src/code.c static void cc_builder_add_word(cc_builder *b, ScmWord w)
b 300 src/code.c int ni = b->currentIndex & CC_BUILDER_CHUNK_MASK;
b 303 src/code.c newchunk->prev = b->chunks;
b 304 src/code.c b->chunks = newchunk;
b 305 src/code.c b->numChunks++;
b 307 src/code.c b->chunks->code[ni] = w;
b 308 src/code.c b->currentIndex++;
b 311 src/code.c static void cc_builder_add_constant(cc_builder *b, ScmObj obj)
b 314 src/code.c if (!SCM_FALSEP(Scm_Memq(obj, b->constants))) return;
b 315 src/code.c b->constants = Scm_Cons(obj, b->constants);
b 318 src/code.c static void cc_builder_add_info(cc_builder *b)
b 320 src/code.c if (SCM_FALSEP(b->currentInfo)) return;
b 321 src/code.c b->info = Scm_Acons(SCM_MAKE_INT(b->currentIndex),
b 323 src/code.c b->currentInfo)),
b 324 src/code.c b->info);
b 325 src/code.c b->currentInfo = SCM_FALSE;
b 330 src/code.c static int cc_builder_label_def(cc_builder *b, ScmObj label)
b 332 src/code.c ScmObj p = Scm_Assq(label, b->labelDefs);
b 341 src/code.c static void cc_builder_flush(cc_builder *b)
b 345 src/code.c if (CC_BUILDER_BUFFER_EMPTY_P(b)) return;
b 346 src/code.c cc_builder_add_info(b);
b 347 src/code.c cc_builder_add_word(b, b->currentInsn);
b 349 src/code.c code = SCM_VM_INSN_CODE(b->currentInsn);
b 357 src/code.c b->labelRefs = Scm_Acons(b->currentOperand,
b 358 src/code.c SCM_MAKE_INT(b->currentIndex),
b 359 src/code.c b->labelRefs);
b 360 src/code.c cc_builder_add_word(b, SCM_WORD(0)); /* dummy */
b 364 src/code.c cc_builder_add_word(b, SCM_WORD(b->currentOperand));
b 365 src/code.c cc_builder_add_constant(b, b->currentOperand);
b 369 src/code.c SCM_ASSERT(SCM_PAIRP(b->currentOperand)
b 370 src/code.c && SCM_PAIRP(SCM_CDR(b->currentOperand)));
b 371 src/code.c cc_builder_add_word(b, SCM_WORD(SCM_CAR(b->currentOperand)));
b 372 src/code.c cc_builder_add_constant(b, SCM_CAR(b->currentOperand));
b 373 src/code.c b->labelRefs = Scm_Acons(SCM_CADR(b->currentOperand),
b 374 src/code.c SCM_MAKE_INT(b->currentIndex),
b 375 src/code.c b->labelRefs);
b 376 src/code.c cc_builder_add_word(b, SCM_WORD(0)); /* dummy */
b 379 src/code.c if (!SCM_COMPILED_CODE_P(b->currentOperand)) goto badoperand;
b 380 src/code.c cc_builder_add_word(b, SCM_WORD(b->currentOperand));
b 381 src/code.c cc_builder_add_constant(b, b->currentOperand);
b 385 src/code.c b->currentInsn = CC_BUILDER_BUFFER_EMPTY;
b 388 src/code.c b->currentInsn = CC_BUILDER_BUFFER_EMPTY;
b 389 src/code.c Scm_Error("[internal error] bad operand: %S", b->currentOperand);
b 455 src/code.c cc_builder *b;
b 456 src/code.c CC_BUILDER_GET(b, cc);
b 457 src/code.c label = SCM_MAKE_INT(b->labelCount);
b 458 src/code.c b->labelCount++;
b 465 src/code.c cc_builder *b;
b 467 src/code.c CC_BUILDER_GET(b, cc);
b 470 src/code.c cc_builder_flush(b);
b 473 src/code.c b->labelDefs = Scm_Acons(label, SCM_MAKE_INT(b->currentIndex),
b 474 src/code.c b->labelDefs);
b 482 src/code.c cc_builder *b;
b 486 src/code.c CC_BUILDER_GET(b, cc);
b 487 src/code.c cc_builder_flush(b);
b 488 src/code.c cc->code = SCM_NEW_ATOMIC2(ScmWord *, b->currentIndex * sizeof(ScmWord));
b 489 src/code.c cc->codeSize = b->currentIndex;
b 493 src/code.c for (bc = b->chunks; bc;) {
b 502 src/code.c for (i=0, j=0; i<b->currentIndex; i++, j++) {
b 511 src/code.c numConstants = Scm_Length(b->constants);
b 515 src/code.c for (i=0, cp=b->constants; i<numConstants; i++, cp=SCM_CDR(cp)) {
b 522 src/code.c SCM_FOR_EACH(cp, b->labelRefs) {
b 523 src/code.c int destAddr = cc_builder_label_def(b, SCM_CAAR(cp));
b 538 src/code.c cc->info = b->info;
b 586 src/code.c #define INSN2(x, a, b) SCM_VM_INSN2(x, a, b)
b 593 src/code.c #define EMPTYP(b) CC_BUILDER_BUFFER_EMPTY_P(b)
b 598 src/code.c cc_builder_flush(b); \
b 599 src/code.c b->currentInsn = (insn); \
b 600 src/code.c b->currentOperand = (operand); \
b 601 src/code.c b->currentInfo = (info); \
b 606 src/code.c b->currentInsn = (insn); \
b 607 src/code.c if (!SCM_FALSEP(info)) b->currentInfo = info; \
b 612 src/code.c b->currentInsn = (insn); \
b 613 src/code.c b->currentOperand = (operand); \
b 614 src/code.c if (!SCM_FALSEP(info)) b->currentInfo = info; \
b 628 src/code.c cc_builder *b;
b 629 src/code.c CC_BUILDER_GET(b, cc);
b 658 src/code.c if (EMPTYP(b)) goto def;
b 659 src/code.c switch (CODE(b->currentInsn)) {
b 677 src/code.c IARG0(b->currentInsn),
b 678 src/code.c IARG1(b->currentInsn))); break;
b 690 src/code.c IARG(b->currentInsn))); break;
b 717 src/code.c if (EMPTYP(b)) goto def;
b 718 src/code.c switch (CODE(b->currentInsn)) {
b 733 src/code.c if (EMPTYP(b)) goto def;
b 734 src/code.c switch (CODE(b->currentInsn)) {
b 749 src/code.c if (!EMPTYP(b) && CODE(b->currentInsn) == SCM_VM_PUSH) {
b 759 src/code.c if (!EMPTYP(b)) {
b 760 src/code.c if (CODE(b->currentInsn) == SCM_VM_PUSH) {
b 763 src/code.c } else if (CODE(b->currentInsn) == SCM_VM_LREF0_PUSH) {
b 774 src/code.c if (!EMPTYP(b) && CODE(b->currentInsn) == SCM_VM_PUSH) {
b 784 src/code.c if (EMPTYP(b)) goto def;
b 785 src/code.c switch (CODE(b->currentInsn)) {
b 797 src/code.c if (EMPTYP(b)) goto def;
b 798 src/code.c switch (CODE(b->currentInsn)) {
b 809 src/code.c if (EMPTYP(b)) goto def;
b 810 src/code.c switch (CODE(b->currentInsn)) {
b 822 src/code.c if (EMPTYP(b)) goto def;
b 823 src/code.c switch (CODE(b->currentInsn)) {
b 1798 src/extlib.c int b;
b 1808 src/extlib.c b = SCM_INT_VALUE(b_scm);
b 1812 src/extlib.c SCM_RESULT = Scm_StringByteSet(str, k, b);
b 3274 src/extlib.c const ScmStringBody *b;
b 3283 src/extlib.c b = SCM_STRING_BODY(r);
b 3284 src/extlib.c siz = SCM_STRING_BODY_SIZE(b);
b 3286 src/extlib.c memcpy(p->src.buf.end, SCM_STRING_BODY_START(b), siz);
b 3287 src/extlib.c return SCM_STRING_BODY_SIZE(b);
b 3823 src/extlib.c int b; ScmPort *out = SCM_PORT(Scm_MakeOutputStringPort(TRUE));
b 3825 src/extlib.c SCM_GETB(b, port);
b 3826 src/extlib.c if (b == EOF) break;
b 3827 src/extlib.c Scm_PutbUnsafe(b, out);
b 3872 src/extlib.c int b; SCM_GETB(b, port);
b 3873 src/extlib.c SCM_RETURN((b < 0)? SCM_EOF : SCM_MAKE_INT(b));
b 3896 src/extlib.c int b = Scm_Peekb(port);
b 3897 src/extlib.c SCM_RETURN((b < 0)? SCM_EOF : SCM_MAKE_INT(b));
b 294 src/gauche.h #define SCM_CPP_CAT(a, b) a ## b
b 295 src/gauche.h #define SCM_CPP_CAT3(a, b, c) a ## b ## c
b 804 src/gauche.h #define SCM_LIST2(a,b) Scm_Cons(a, SCM_LIST1(b))
b 805 src/gauche.h #define SCM_LIST3(a,b,c) Scm_Cons(a, SCM_LIST2(b, c))
b 806 src/gauche.h #define SCM_LIST4(a,b,c,d) Scm_Cons(a, SCM_LIST3(b, c, d))
b 807 src/gauche.h #define SCM_LIST5(a,b,c,d,e) Scm_Cons(a, SCM_LIST4(b, c, d, e))
b 1079 src/gauche.h SCM_EXTERN ScmObj Scm_StringByteSet(ScmString *str, int k, ScmByte b);
b 1333 src/gauche.h void (*Putb)(ScmByte b, ScmPort *p);
b 1514 src/gauche.h SCM_EXTERN void Scm_Putb(ScmByte b, ScmPort *port);
b 1520 src/gauche.h SCM_EXTERN void Scm_PutbUnsafe(ScmByte b, ScmPort *port);
b 1527 src/gauche.h SCM_EXTERN void Scm_Ungetb(int b, ScmPort *port);
b 1535 src/gauche.h SCM_EXTERN void Scm_UngetbUnsafe(int b, ScmPort *port);
b 1555 src/gauche.h #define SCM_PUTB(b, p) Scm_Putb(b, SCM_PORT(p))
b 1563 src/gauche.h #define SCM_GETB(b, p) (b = Scm_Getb(SCM_PORT(p)))
b 2043 src/gauche.h SCM_EXTERN ScmObj Scm_BignumCopy(ScmBignum *b);
b 2044 src/gauche.h SCM_EXTERN ScmObj Scm_BignumToString(ScmBignum *b, int radix, int use_upper);
b 2046 src/gauche.h SCM_EXTERN long Scm_BignumToSI(ScmBignum *b, int clamp, int* oor);
b 2047 src/gauche.h SCM_EXTERN u_long Scm_BignumToUI(ScmBignum *b, int clamp, int* oor);
b 2049 src/gauche.h SCM_EXTERN ScmInt64 Scm_BignumToSI64(ScmBignum *b, int clamp, int *oor);
b 2050 src/gauche.h SCM_EXTERN ScmUInt64 Scm_BignumToUI64(ScmBignum *b, int clamp, int *oor);
b 2055 src/gauche.h SCM_EXTERN double Scm_BignumToDouble(ScmBignum *b);
b 2056 src/gauche.h SCM_EXTERN ScmObj Scm_NormalizeBignum(ScmBignum *b);
b 2057 src/gauche.h SCM_EXTERN ScmObj Scm_BignumNegate(ScmBignum *b);
b 2164 src/gauche.h #define Scm_Add2(a, b) Scm_Add((a), (b), SCM_NIL)
b 2165 src/gauche.h #define Scm_Subtract2(a, b) Scm_Subtract((a), (b), SCM_NIL)
b 2166 src/gauche.h #define Scm_Multiply2(a, b) Scm_Multiply((a), (b), SCM_NIL)
b 2167 src/gauche.h #define Scm_Divide2(a, b) Scm_Divide((a), (b), SCM_NIL)
b 205 src/hash.c const ScmStringBody *b = SCM_STRING_BODY(obj);
b 206 src/hash.c p = SCM_STRING_BODY_START(b);
b 207 src/hash.c STRING_HASH(hashval, p, SCM_STRING_BODY_SIZE(b));
b 216 src/hash.c const ScmStringBody *b = SCM_STRING_BODY(str);
b 217 src/hash.c p = SCM_STRING_BODY_START(b);
b 218 src/hash.c STRING_HASH(hashval, p, SCM_STRING_BODY_SIZE(b));
b 426 src/hash.c const ScmStringBody *b = SCM_STRING_BODY(key);
b 427 src/hash.c p = SCM_STRING_BODY_START(b);
b 428 src/hash.c STRING_HASH(hashval, p, SCM_STRING_BODY_SIZE(b));
b 521 src/hash.c ScmHashEntry **b;
b 527 src/hash.c b = SCM_NEW_ARRAY(ScmHashEntry*, initSize);
b 530 src/hash.c z->buckets = b;
b 525 src/module.c const ScmStringBody *b = SCM_STRING_BODY(SCM_SYMBOL_NAME(name));
b 526 src/module.c char *buf = SCM_NEW_ATOMIC2(char *, SCM_STRING_BODY_SIZE(b)+1);
b 527 src/module.c char *p = buf, *e = buf + SCM_STRING_BODY_SIZE(b);
b 528 src/module.c memcpy(buf, SCM_STRING_BODY_START(b), SCM_STRING_BODY_SIZE(b));
b 535 src/module.c return Scm_MakeString(buf, SCM_STRING_BODY_SIZE(b),
b 536 src/module.c SCM_STRING_BODY_LENGTH(b), 0);
b 541 src/module.c const ScmStringBody *b = SCM_STRING_BODY(path);
b 542 src/module.c char *buf = SCM_NEW_ATOMIC2(char *, SCM_STRING_BODY_SIZE(b)+1);
b 543 src/module.c char *p = buf, *e = buf + SCM_STRING_BODY_SIZE(b);
b 544 src/module.c memcpy(buf, SCM_STRING_BODY_START(b), SCM_STRING_BODY_SIZE(b));
b 533 src/number.c ScmObj b = Scm_MakeBignumFromDouble(SCM_FLONUM_VALUE(obj));
b 534 src/number.c return Scm_BignumToSI64(SCM_BIGNUM(b), clamp, oor);
b 597 src/number.c ScmObj b = Scm_MakeBignumFromDouble(SCM_FLONUM_VALUE(obj));
b 598 src/number.c return Scm_BignumToUI64(SCM_BIGNUM(b), clamp, oor);
b 48 src/port.c #define MAX(a, b) ((a)>(b)? (a) : (b))
b 49 src/port.c #define MIN(a, b) ((a)<(b)? (a) : (b))
b 988 src/port.c static void null_putb(ScmByte b, ScmPort *dummy)
b 98 src/portapi.c void Scm_Putb(ScmByte b, ScmPort *p)
b 100 src/portapi.c void Scm_PutbUnsafe(ScmByte b, ScmPort *p)
b 104 src/portapi.c SHORTCUT(p, Scm_PutbUnsafe(b, p); return);
b 114 src/portapi.c *p->src.buf.current++ = b;
b 121 src/portapi.c SCM_DSTRING_PUTB(&p->src.ostr, b);
b 125 src/portapi.c SAFE_CALL(p, p->src.vt.Putb(b, p));
b 358 src/portapi.c void Scm_Ungetb(int b, ScmPort *p)
b 360 src/portapi.c void Scm_UngetbUnsafe(int b, ScmPort *p)
b 364 src/portapi.c SHORTCUT(p, Scm_UngetbUnsafe(b, p); return);
b 371 src/portapi.c p->scratch[p->scrcnt++] = b;
b 381 src/portapi.c int b;
b 386 src/portapi.c b = (unsigned char)p->scratch[0];
b 388 src/portapi.c SCM_GETB(b, p);
b 389 src/portapi.c if (b >= 0) {
b 397 src/portapi.c p->scratch[0] = b;
b 400 src/portapi.c p->scratch[0] = b;
b 406 src/portapi.c return b;
b 428 src/portapi.c int b = (unsigned char)p->scratch[0];
b 431 src/portapi.c return b;
b 451 src/portapi.c int b = 0, r = 0;
b 459 src/portapi.c b = getb_scratch(p);
b 461 src/portapi.c b = getb_ungotten(p);
b 472 src/portapi.c b = (unsigned char)*p->src.buf.current++;
b 475 src/portapi.c if (p->src.istr.current >= p->src.istr.end) b = EOF;
b 476 src/portapi.c else b = (unsigned char)*p->src.istr.current++;
b 479 src/portapi.c SAFE_CALL(p, b = p->src.vt.Getb(p));
b 488 src/portapi.c return b;
b 1712 src/regexp.c static int is_word_constituent(unsigned char b)
b 1714 src/regexp.c if (b >= 128) return TRUE;
b 1715 src/regexp.c if (b >= '0' && b <= '9') return TRUE;
b 1716 src/regexp.c if (b >= 'A' && b <= 'Z') return TRUE;
b 1717 src/regexp.c if (b >= 'a' && b <= 'z') return TRUE;
b 1987 src/regexp.c const ScmStringBody *b = SCM_STRING_BODY(str);
b 1988 src/regexp.c const char *start = SCM_STRING_BODY_START(b);
b 1989 src/regexp.c const char *end = start + SCM_STRING_BODY_SIZE(b);
b 1070 src/stdlib.c double b;
b 1077 src/stdlib.c b = Scm_GetDouble(b_scm);
b 1079 src/stdlib.c if (b == 0.0) SCM_RETURN(Scm_MakeFlonum(a));
b 1080 src/stdlib.c else SCM_RETURN(Scm_MakeComplex(a, b));
b 75 src/string.c ScmStringBody *b = SCM_NEW(ScmStringBody);
b 76 src/string.c b->length = (len < 0)? siz : len;
b 77 src/string.c b->size = siz;
b 78 src/string.c b->start = p;
b 79 src/string.c b->flags = flags;
b 80 src/string.c return b;
b 90 src/string.c const ScmStringBody *b = SCM_STRING_BODY(str);
b 91 src/string.c int s = SCM_STRING_BODY_SIZE(b);
b 92 src/string.c const char *p = SCM_STRING_BODY_START(b);
b 94 src/string.c fprintf(out, "STR(len=%d,siz=%d) \"", SCM_STRING_BODY_LENGTH(b), s);
b 231 src/string.c const ScmStringBody *b = SCM_STRING_BODY(str);
b 233 src/string.c size = SCM_STRING_BODY_SIZE(b);
b 235 src/string.c memcpy(p, SCM_STRING_BODY_START(b), size);
b 241 src/string.c static const char *get_string_from_body(const ScmStringBody *b)
b 243 src/string.c int size = SCM_STRING_BODY_SIZE(b);
b 244 src/string.c if (SCM_STRING_BODY_START(b)[size] == '\0') {
b 246 src/string.c return SCM_STRING_BODY_START(b);
b 249 src/string.c memcpy(p, SCM_STRING_BODY_START(b), size);
b 253 src/string.c ((ScmStringBody*)b)->start = p; /* discard const qualifier */
b 273 src/string.c const ScmStringBody *b = SCM_STRING_BODY(str);
b 274 src/string.c if (psize) *psize = SCM_STRING_BODY_SIZE(b);
b 275 src/string.c if (plength) *plength = SCM_STRING_BODY_LENGTH(b);
b 276 src/string.c if (pflags) *pflags = SCM_STRING_BODY_FLAGS(b);
b 277 src/string.c return get_string_from_body(b);
b 296 src/string.c const ScmStringBody *b = SCM_STRING_BODY(x);
b 297 src/string.c int size = SCM_STRING_BODY_SIZE(b);
b 298 src/string.c int len = SCM_STRING_BODY_LENGTH(b);
b 299 src/string.c const char *start = SCM_STRING_BODY_START(b);
b 300 src/string.c int newflags = ((SCM_STRING_BODY_FLAGS(b) & ~mask)
b 308 src/string.c const ScmStringBody *b;
b 310 src/string.c b = SCM_STRING_BODY(x);
b 311 src/string.c x->body = make_str_body(SCM_STRING_BODY_SIZE(b),
b 312 src/string.c SCM_STRING_BODY_SIZE(b),
b 313 src/string.c SCM_STRING_BODY_START(b),
b 314 src/string.c SCM_STRING_BODY_FLAGS(b) | SCM_STRING_INCOMPLETE);
b 327 src/string.c ScmStringBody *b;
b 329 src/string.c b = (ScmStringBody*)SCM_STRING_BODY(x);
b 330 src/string.c if (SCM_STRING_BODY_INCOMPLETE_P(b)) {
b 331 src/string.c int len = count_length(SCM_STRING_BODY_START(b),
b 332 src/string.c SCM_STRING_BODY_SIZE(b));
b 334 src/string.c b->flags &= ~SCM_STRING_INCOMPLETE;
b 335 src/string.c b->length = len;
b 466 src/string.c const ScmStringBody *b = SCM_STRING_BODY(str);
b 467 src/string.c int len = SCM_STRING_BODY_LENGTH(b);
b 471 src/string.c if (SCM_STRING_BODY_INCOMPLETE_P(b)) {
b 481 src/string.c if (SCM_STRING_BODY_SINGLE_BYTE_P(b)) {
b 482 src/string.c return (ScmChar)(((unsigned char *)SCM_STRING_BODY_START(b))[pos]);
b 484 src/string.c const char *p = forward_pos(SCM_STRING_BODY_START(b), pos);
b 497 src/string.c const ScmStringBody *b = SCM_STRING_BODY(str);
b 498 src/string.c if (offset < 0 || offset >= SCM_STRING_BODY_SIZE(b)) {
b 505 src/string.c return (ScmByte)SCM_STRING_BODY_START(b)[offset];
b 516 src/string.c const ScmStringBody *b = SCM_STRING_BODY(str);
b 517 src/string.c if (offset < 0 || offset > SCM_STRING_BODY_LENGTH(b)) {
b 520 src/string.c if (SCM_STRING_BODY_INCOMPLETE_P(b)) {
b 521 src/string.c return (SCM_STRING_BODY_START(b)+offset);
b 523 src/string.c return (forward_pos(SCM_STRING_BODY_START(b), offset));
b 593 src/string.c const ScmStringBody *b;
b 597 src/string.c b = SCM_STRING_BODY(SCM_CAR(cp));
b 598 src/string.c size += SCM_STRING_BODY_SIZE(b);
b 599 src/string.c len += SCM_STRING_BODY_LENGTH(b);
b 600 src/string.c if (SCM_STRING_BODY_INCOMPLETE_P(b)) {
b 603 src/string.c bodies[i++] = b;
b 608 src/string.c const ScmStringBody *b = bodies[i];
b 609 src/string.c memcpy(bufp, SCM_STRING_BODY_START(b), SCM_STRING_BODY_SIZE(b));
b 610 src/string.c bufp += SCM_STRING_BODY_SIZE(b);
b 652 src/string.c const ScmStringBody *b;
b 656 src/string.c b = SCM_STRING_BODY(SCM_CAR(cp));
b 657 src/string.c size += SCM_STRING_BODY_SIZE(b);
b 658 src/string.c len += SCM_STRING_BODY_LENGTH(b);
b 659 src/string.c if (SCM_STRING_BODY_INCOMPLETE_P(b)) {
b 662 src/string.c bodies[i++] = b;
b 679 src/string.c const ScmStringBody *b = bodies[i];
b 680 src/string.c memcpy(bufp, SCM_STRING_BODY_START(b), SCM_STRING_BODY_SIZE(b));
b 681 src/string.c bufp += SCM_STRING_BODY_SIZE(b);
b 778 src/string.c ScmObj Scm_StringByteSet(ScmString *x, int k, ScmByte b)
b 789 src/string.c p[k] = (char)b;
b 1063 src/string.c const ScmStringBody *b = SCM_STRING_BODY(str);
b 1065 src/string.c const char *bufp = SCM_STRING_BODY_START(b);
b 1066 src/string.c int len = SCM_STRING_BODY_LENGTH(b);
b 1069 src/string.c if (SCM_STRING_BODY_INCOMPLETE_P(b))
b 1197 src/string.c const ScmStringBody *b = SCM_STRING_BODY(str);
b 1198 src/string.c if (SCM_STRING_BODY_SINGLE_BYTE_P(b)) {
b 1199 src/string.c const char *cp = SCM_STRING_BODY_START(b);
b 1200 src/string.c int size = SCM_STRING_BODY_SIZE(b);
b 1201 src/string.c if (SCM_STRING_BODY_INCOMPLETE_P(b)) {
b 1207 src/string.c string_putc(*cp++, port, SCM_STRING_BODY_INCOMPLETE_P(b));
b 1211 src/string.c const char *cp = SCM_STRING_BODY_START(b);
b 1212 src/string.c int len = SCM_STRING_BODY_LENGTH(b);
b 1535 src/string.c const ScmStringBody *b = SCM_STRING_BODY(str);
b 1536 src/string.c int size = SCM_STRING_BODY_SIZE(b);
b 1541 src/string.c memcpy(dstr->current, SCM_STRING_BODY_START(b), size);
b 1543 src/string.c if (dstr->length >= 0 && !SCM_STRING_BODY_INCOMPLETE_P(b)) {
b 1544 src/string.c dstr->length += SCM_STRING_BODY_LENGTH(b);
b 127 src/symbol.c const ScmStringBody *b = SCM_STRING_BODY(snam);
b 128 src/symbol.c const char *p = SCM_STRING_BODY_START(b), *q;
b 129 src/symbol.c int siz = SCM_STRING_BODY_SIZE(b), i;